517 lines
24 KiB
C
517 lines
24 KiB
C
/* This file was generated automatically.
|
|
It's probably not a good idea to change it. */
|
|
|
|
#ifndef _H_SCHEME48
|
|
#define _H_SCHEME48
|
|
|
|
/* Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees.
|
|
See file COPYING. */
|
|
|
|
#include "write-barrier.h"
|
|
|
|
typedef long s48_value;
|
|
|
|
#define NO_ERRORS 0 /* errno value */
|
|
|
|
extern int s48_main (long heap_size, long stack_size,
|
|
char *image_name, int argc, char** argv);
|
|
|
|
extern int s48_add_external_init(void (*init)());
|
|
|
|
/* Misc stuff */
|
|
|
|
#define S48_EQ_P(v1, v2) ((v1) == (v2))
|
|
/* Superceded name for the above definition, retained for compatibility. */
|
|
#define S48_EQ(v1, v2) ((v1) == (v2))
|
|
|
|
#define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1)
|
|
#define S48_MIN_FIXNUM_VALUE (-1 << 29)
|
|
|
|
extern int s48_stob_has_type(s48_value, int);
|
|
extern long s48_stob_length(s48_value, int);
|
|
extern long s48_stob_byte_length(s48_value, int);
|
|
extern s48_value s48_stob_ref(s48_value, int, long);
|
|
extern void s48_stob_set(s48_value, int, long, s48_value);
|
|
extern char s48_stob_byte_ref(s48_value, int, long);
|
|
extern void s48_stob_byte_set(s48_value, int, long, char);
|
|
|
|
extern void s48_register_gc_rootB(char *);
|
|
extern void s48_push_gc_rootsB(char *, long);
|
|
extern char s48_pop_gc_rootsB(void);
|
|
extern char s48_pop_gc_roots_up_to_markerB(char *);
|
|
|
|
extern s48_value s48_enter_char(unsigned char);
|
|
extern unsigned char s48_extract_char(s48_value);
|
|
extern s48_value s48_enter_fixnum(long);
|
|
extern long s48_extract_fixnum(s48_value);
|
|
extern s48_value s48_enter_integer(long);
|
|
extern long s48_extract_integer(s48_value);
|
|
extern s48_value s48_enter_unsigned_integer(unsigned long);
|
|
extern unsigned long s48_extract_unsigned_integer(s48_value);
|
|
extern s48_value s48_enter_double(double);
|
|
extern double s48_extract_double(s48_value);
|
|
extern s48_value s48_cons(s48_value, s48_value);
|
|
extern s48_value s48_list_1(s48_value);
|
|
extern s48_value s48_list_2(s48_value, s48_value);
|
|
extern s48_value s48_list_3(s48_value, s48_value, s48_value);
|
|
extern s48_value s48_list_4(s48_value, s48_value, s48_value, s48_value);
|
|
extern s48_value s48_list_5(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value);
|
|
extern s48_value s48_list_6(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value);
|
|
extern s48_value s48_list_7(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value);
|
|
extern s48_value s48_list_8(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value);
|
|
extern s48_value s48_list_9(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value,
|
|
s48_value);
|
|
extern s48_value s48_list_10(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value);
|
|
extern s48_value s48_list_11(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value);
|
|
extern s48_value s48_list_12(s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value,
|
|
s48_value, s48_value, s48_value, s48_value);
|
|
extern s48_value s48_enter_string(char *);
|
|
extern char * s48_extract_string(s48_value);
|
|
extern s48_value s48_enter_substring(char *, int);
|
|
extern s48_value s48_make_string(int, char);
|
|
extern s48_value s48_make_vector(int, s48_value);
|
|
extern s48_value s48_enter_byte_vector(char *, int);
|
|
extern char * s48_extract_byte_vector(s48_value);
|
|
extern s48_value s48_make_byte_vector(int, int);
|
|
extern s48_value s48_make_record(s48_value);
|
|
extern s48_value s48_make_weak_pointer(s48_value);
|
|
extern void s48_check_record_type(s48_value, s48_value);
|
|
extern long s48_length(s48_value);
|
|
extern s48_value s48_enter_pointer(void *);
|
|
extern s48_value s48_get_imported_binding(char *);
|
|
extern void s48_define_exported_binding(char *, s48_value);
|
|
|
|
extern s48_value s48_set_channel_os_index(s48_value, long);
|
|
extern s48_value s48_add_channel(s48_value, s48_value, long);
|
|
extern void s48_close_channel(long);
|
|
|
|
extern s48_value s48_call_scheme(s48_value proc, long nargs, ...);
|
|
|
|
#define S48_EXPORT_FUNCTION(p) (s48_define_exported_binding(#p, s48_enter_pointer(p)))
|
|
|
|
#define S48_MAKE_VALUE(type) (s48_make_byte_vector(sizeof(type),0))
|
|
extern void * s48_value_pointer(s48_value);
|
|
|
|
#define S48_EXTRACT_VALUE_POINTER(x, type) ((type *) s48_value_pointer(x))
|
|
#define S48_EXTRACT_VALUE(x, type) (*(S48_EXTRACT_VALUE_POINTER((x), type)))
|
|
#define S48_SET_VALUE(x, type, v) (S48_EXTRACT_VALUE((x), type) = (v))
|
|
|
|
#define S48_UNSAFE_EXTRACT_VALUE_POINTER(x, type) \
|
|
(S48_ADDRESS_AFTER_HEADER((x), type))
|
|
#define S48_UNSAFE_EXTRACT_VALUE(x, type) \
|
|
(*(S48_UNSAFE_EXTRACT_VALUE_POINTER((x), type)))
|
|
#define S48_UNSAFE_SET_VALUE(x, type, v) \
|
|
(S48_UNSAFE_EXTRACT_VALUE((x), type) = (v))
|
|
|
|
#define S48_UNSAFE_EXTRACT_DOUBLE(x) \
|
|
(*(S48_ADDRESS_AFTER_HEADER((x), double)))
|
|
|
|
#define S48_DECLARE_GC_PROTECT(n) long ___gc_buffer[(n)+2]
|
|
|
|
#define S48_GC_PROTECT_1(v) \
|
|
(___gc_buffer[2]=(long)&(v), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 1))
|
|
|
|
#define S48_GC_PROTECT_2(v1, v2) \
|
|
(___gc_buffer[2]=(long)&(v1), ___gc_buffer[3]=(long)&(v2), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 2))
|
|
|
|
#define S48_GC_PROTECT_3(v1, v2, v3) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 3))
|
|
|
|
#define S48_GC_PROTECT_4(v1, v2, v3, v4) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 4))
|
|
|
|
#define S48_GC_PROTECT_5(v1, v2, v3, v4, v5) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 5))
|
|
|
|
#define S48_GC_PROTECT_6(v1, v2, v3, v4, v5, v6) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
___gc_buffer[7]=(long)&(v6), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 6))
|
|
|
|
#define S48_GC_PROTECT_7(v1, v2, v3, v4, v5, v6, v7) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
___gc_buffer[7]=(long)&(v6), \
|
|
___gc_buffer[8]=(long)&(v7), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 7))
|
|
|
|
#define S48_GC_PROTECT_8(v1, v2, v3, v4, v5, v6, v7, v8) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
___gc_buffer[7]=(long)&(v6), \
|
|
___gc_buffer[8]=(long)&(v7), \
|
|
___gc_buffer[9]=(long)&(v8), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 8))
|
|
|
|
#define S48_GC_PROTECT_9(v1, v2, v3, v4, v5, v6, v7, v8, v9) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
___gc_buffer[7]=(long)&(v6), \
|
|
___gc_buffer[8]=(long)&(v7), \
|
|
___gc_buffer[9]=(long)&(v8), \
|
|
___gc_buffer[10]=(long)&(v9), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 9))
|
|
|
|
#define S48_GC_PROTECT_10(v1, v2, v3, v4, v5, v6, v7, v8, v9, v10) \
|
|
(___gc_buffer[2]=(long)&(v1), \
|
|
___gc_buffer[3]=(long)&(v2), \
|
|
___gc_buffer[4]=(long)&(v3), \
|
|
___gc_buffer[5]=(long)&(v4), \
|
|
___gc_buffer[6]=(long)&(v5), \
|
|
___gc_buffer[7]=(long)&(v6), \
|
|
___gc_buffer[8]=(long)&(v7), \
|
|
___gc_buffer[9]=(long)&(v8), \
|
|
___gc_buffer[10]=(long)&(v9), \
|
|
___gc_buffer[11]=(long)&(v10), \
|
|
s48_push_gc_rootsB((char *) ___gc_buffer, 10))
|
|
|
|
#define S48_GC_UNPROTECT() \
|
|
do { if (! s48_pop_gc_rootsB()) \
|
|
s48_raise_scheme_exception( S48_EXCEPTION_GC_PROTECTION_MISMATCH, 0); \
|
|
} while(0)
|
|
|
|
#define S48_GC_PROTECT_GLOBAL(v) (s48_register_gc_rootB((char *)&(v)))
|
|
|
|
/* Exceptions */
|
|
|
|
extern void s48_raise_scheme_exception(long type, long nargs, ...);
|
|
extern void s48_raise_argument_type_error(s48_value value);
|
|
extern void s48_raise_argument_number_error(s48_value value,
|
|
s48_value min,
|
|
s48_value max);
|
|
extern void s48_raise_range_error(s48_value value,
|
|
s48_value min, s48_value max);
|
|
extern void s48_raise_closed_channel_error();
|
|
extern void s48_raise_os_error(int the_errno);
|
|
extern void s48_raise_os_error_1(int the_errno, s48_value arg1);
|
|
extern void s48_raise_os_error_2(int the_errno, s48_value arg1, s48_value arg2);
|
|
extern void s48_raise_os_error_3(int the_errno, s48_value arg1, s48_value arg2,
|
|
s48_value arg3);
|
|
extern void s48_raise_os_error_4(int the_errno, s48_value arg1, s48_value arg2,
|
|
s48_value arg3, s48_value arg4);
|
|
extern void s48_raise_os_error_5(int the_errno, s48_value arg1, s48_value arg2,
|
|
s48_value arg3, s48_value arg4, s48_value arg5);
|
|
extern void s48_raise_os_error_6(int the_errno, s48_value arg1, s48_value arg2,
|
|
s48_value arg3, s48_value arg4, s48_value arg5,
|
|
s48_value arg6);
|
|
extern void s48_raise_string_os_error(char *reason);
|
|
extern void s48_raise_out_of_memory_error();
|
|
|
|
/* Type checking */
|
|
|
|
#define S48_CHECK_PAIR(v) do { if (!S48_PAIR_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_FIXNUM(v) do { if (!S48_FIXNUM_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_STRING(v) do { if (!S48_STRING_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_BYTE_VECTOR(v) do { if (!S48_BYTE_VECTOR_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_CHANNEL(v) do { if (!S48_CHANNEL_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_RECORD(v) do { if (!S48_RECORD_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_VALUE(v) do { if (!S48_BYTE_VECTOR_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
#define S48_CHECK_EXPORT_BINDING(v) do { if (!S48_EXPORT_BINDING_P(v)) s48_raise_argument_type_error(v); } while (0)
|
|
|
|
#define S48_VALUE_P(v) (S48_BYTE_VECTOR_P(v))
|
|
|
|
#define S48_TRUE_P(v) ((v) == S48_TRUE)
|
|
#define S48_FALSE_P(v) ((v) == S48_FALSE)
|
|
#define S48_EXTRACT_BOOLEAN(v) ((v) != S48_FALSE)
|
|
#define S48_ENTER_BOOLEAN(v) ((v) ? S48_TRUE : S48_FALSE)
|
|
|
|
extern void s48_check_record_type(s48_value record, s48_value type_binding);
|
|
|
|
#define S48_SHARED_BINDING_CHECK(binding) \
|
|
do { if (S48_UNSPECIFIC == S48_SHARED_BINDING_REF(binding)) \
|
|
s48_raise_scheme_exception(S48_EXCEPTION_UNBOUND_EXTERNAL_NAME, 1, \
|
|
S48_SHARED_BINDING_NAME(binding)); \
|
|
} while(0)
|
|
|
|
|
|
#define S48_FIXNUM_TAG 0
|
|
#define S48_FIXNUM_P(x) (((long)(x) & 3L) == S48_FIXNUM_TAG)
|
|
#define S48_IMMEDIATE_TAG 1
|
|
#define S48_IMMEDIATE_P(x) (((long)(x) & 3L) == S48_IMMEDIATE_TAG)
|
|
#define S48_HEADER_TAG 2
|
|
#define S48_HEADER_P(x) (((long)(x) & 3L) == S48_HEADER_TAG)
|
|
#define S48_STOB_TAG 3
|
|
#define S48_STOB_P(x) (((long)(x) & 3L) == S48_STOB_TAG)
|
|
|
|
#define S48_UNSAFE_ENTER_FIXNUM(n) ((s48_value)((n) << 2))
|
|
#define S48_UNSAFE_EXTRACT_FIXNUM(x) ((long)(x) >> 2)
|
|
|
|
#define S48_MISC_IMMEDIATE(n) ((s48_value)(S48_IMMEDIATE_TAG | ((n) << 2)))
|
|
#define S48_FALSE (S48_MISC_IMMEDIATE(0))
|
|
#define S48_TRUE (S48_MISC_IMMEDIATE(1))
|
|
#define S48_CHAR (S48_MISC_IMMEDIATE(2))
|
|
#define S48_UNSPECIFIC (S48_MISC_IMMEDIATE(3))
|
|
#define S48_UNDEFINED (S48_MISC_IMMEDIATE(4))
|
|
#define S48_EOF (S48_MISC_IMMEDIATE(5))
|
|
#define S48_NULL (S48_MISC_IMMEDIATE(6))
|
|
|
|
#define S48_ENTER_BOOLEAN(n) ((n) ? S48_TRUE : S48_FALSE)
|
|
#define S48_EXTRACT_BOOLEAN(x) ((x) != S48_FALSE)
|
|
|
|
#define S48_UNSAFE_ENTER_CHAR(c) (S48_CHAR | ((c) << 8))
|
|
#define S48_UNSAFE_EXTRACT_CHAR(x) ((x) >> 8)
|
|
#define S48_CHAR_P(x) ((((long) (x)) & 0xff) == S48_CHAR)
|
|
|
|
#define S48_ADDRESS_AFTER_HEADER(x, type) ((type *)((x) - S48_STOB_TAG))
|
|
#define S48_STOB_REF(x, i) (S48_ADDRESS_AFTER_HEADER(x, s48_value)[i])
|
|
#define S48_STOB_BYTE_REF(x, i) (((char *)S48_ADDRESS_AFTER_HEADER(x, s48_value))[i])
|
|
#define S48_STOB_SET(x, i, v) do { s48_value __stob_set_x = (x); long __stob_set_i = (i); s48_value __stob_set_v = (v); if (S48_STOB_IMMUTABLEP(__stob_set_x)) s48_raise_argument_type_error(__stob_set_x); else { S48_WRITE_BARRIER((__stob_set_x), (char *) (&S48_STOB_REF((__stob_set_x), (__stob_set_i))),(__stob_set_v)); *(&S48_STOB_REF((__stob_set_x), (__stob_set_i))) = (__stob_set_v); } } while (0)
|
|
#define S48_STOB_BYTE_SET(x, i, v) do { s48_value __stob_set_x = (x); long __stob_set_i = (i); char __stob_set_v = (v); if (S48_STOB_IMMUTABLEP(__stob_set_x)) s48_raise_argument_type_error(__stob_set_x); else *(&S48_STOB_BYTE_REF((__stob_set_x), (__stob_set_i))) = (__stob_set_v); } while (0)
|
|
#define S48_STOB_TYPE(x) ((S48_STOB_HEADER(x)>>2)&31)
|
|
#define S48_STOB_HEADER(x) (S48_STOB_REF((x),-1))
|
|
#define S48_STOB_ADDRESS(x) (&(S48_STOB_HEADER(x)))
|
|
#define S48_STOB_BYTE_LENGTH(x) (S48_STOB_HEADER(x) >> 8)
|
|
#define S48_STOB_DESCRIPTOR_LENGTH(x) (S48_STOB_HEADER(x) >> 10)
|
|
#define S48_STOB_IMMUTABLEP(x) ((S48_STOB_HEADER(x)>>7) & 1)
|
|
#define S48_STOB_MAKE_IMMUTABLE(x) ((S48_STOB_HEADER(x)) |= (1<<7))
|
|
|
|
#define S48_STOBTYPE_PAIR 0
|
|
#define S48_PAIR_P(x) (s48_stob_has_type(x, 0))
|
|
#define S48_STOBTYPE_SYMBOL 1
|
|
#define S48_SYMBOL_P(x) (s48_stob_has_type(x, 1))
|
|
#define S48_STOBTYPE_VECTOR 2
|
|
#define S48_VECTOR_P(x) (s48_stob_has_type(x, 2))
|
|
#define S48_STOBTYPE_CLOSURE 3
|
|
#define S48_CLOSURE_P(x) (s48_stob_has_type(x, 3))
|
|
#define S48_STOBTYPE_LOCATION 4
|
|
#define S48_LOCATION_P(x) (s48_stob_has_type(x, 4))
|
|
#define S48_STOBTYPE_CHANNEL 5
|
|
#define S48_CHANNEL_P(x) (s48_stob_has_type(x, 5))
|
|
#define S48_STOBTYPE_PORT 6
|
|
#define S48_PORT_P(x) (s48_stob_has_type(x, 6))
|
|
#define S48_STOBTYPE_RATNUM 7
|
|
#define S48_RATNUM_P(x) (s48_stob_has_type(x, 7))
|
|
#define S48_STOBTYPE_RECORD 8
|
|
#define S48_RECORD_P(x) (s48_stob_has_type(x, 8))
|
|
#define S48_STOBTYPE_CONTINUATION 9
|
|
#define S48_CONTINUATION_P(x) (s48_stob_has_type(x, 9))
|
|
#define S48_STOBTYPE_EXTENDED_NUMBER 10
|
|
#define S48_EXTENDED_NUMBER_P(x) (s48_stob_has_type(x, 10))
|
|
#define S48_STOBTYPE_TEMPLATE 11
|
|
#define S48_TEMPLATE_P(x) (s48_stob_has_type(x, 11))
|
|
#define S48_STOBTYPE_WEAK_POINTER 12
|
|
#define S48_WEAK_POINTER_P(x) (s48_stob_has_type(x, 12))
|
|
#define S48_STOBTYPE_SHARED_BINDING 13
|
|
#define S48_SHARED_BINDING_P(x) (s48_stob_has_type(x, 13))
|
|
#define S48_STOBTYPE_UNUSED_D_HEADER1 14
|
|
#define S48_UNUSED_D_HEADER1_P(x) (s48_stob_has_type(x, 14))
|
|
#define S48_STOBTYPE_UNUSED_D_HEADER2 15
|
|
#define S48_UNUSED_D_HEADER2_P(x) (s48_stob_has_type(x, 15))
|
|
#define S48_STOBTYPE_STRING 16
|
|
#define S48_STRING_P(x) (s48_stob_has_type(x, 16))
|
|
#define S48_STOBTYPE_BYTE_VECTOR 17
|
|
#define S48_BYTE_VECTOR_P(x) (s48_stob_has_type(x, 17))
|
|
#define S48_STOBTYPE_DOUBLE 18
|
|
#define S48_DOUBLE_P(x) (s48_stob_has_type(x, 18))
|
|
#define S48_STOBTYPE_BIGNUM 19
|
|
#define S48_BIGNUM_P(x) (s48_stob_has_type(x, 19))
|
|
|
|
#define S48_CAR_OFFSET 0
|
|
#define S48_CAR(x) (s48_stob_ref((x), S48_STOBTYPE_PAIR, 0))
|
|
#define S48_UNSAFE_CAR(x) (S48_STOB_REF((x), 0))
|
|
#define S48_SET_CAR(x, v) (s48_stob_set((x), S48_STOBTYPE_PAIR, 0, (v)))
|
|
#define S48_UNSAFE_SET_CAR(x, v) S48_STOB_SET((x), 0, (v))
|
|
#define S48_CDR_OFFSET 1
|
|
#define S48_CDR(x) (s48_stob_ref((x), S48_STOBTYPE_PAIR, 1))
|
|
#define S48_UNSAFE_CDR(x) (S48_STOB_REF((x), 1))
|
|
#define S48_SET_CDR(x, v) (s48_stob_set((x), S48_STOBTYPE_PAIR, 1, (v)))
|
|
#define S48_UNSAFE_SET_CDR(x, v) S48_STOB_SET((x), 1, (v))
|
|
#define S48_SYMBOL_TO_STRING_OFFSET 0
|
|
#define S48_SYMBOL_TO_STRING(x) (s48_stob_ref((x), S48_STOBTYPE_SYMBOL, 0))
|
|
#define S48_UNSAFE_SYMBOL_TO_STRING(x) (S48_STOB_REF((x), 0))
|
|
#define S48_LOCATION_ID_OFFSET 0
|
|
#define S48_LOCATION_ID(x) (s48_stob_ref((x), S48_STOBTYPE_LOCATION, 0))
|
|
#define S48_UNSAFE_LOCATION_ID(x) (S48_STOB_REF((x), 0))
|
|
#define S48_SET_LOCATION_ID(x, v) (s48_stob_set((x), S48_STOBTYPE_LOCATION, 0, (v)))
|
|
#define S48_UNSAFE_SET_LOCATION_ID(x, v) S48_STOB_SET((x), 0, (v))
|
|
#define S48_CONTENTS_OFFSET 1
|
|
#define S48_CONTENTS(x) (s48_stob_ref((x), S48_STOBTYPE_LOCATION, 1))
|
|
#define S48_UNSAFE_CONTENTS(x) (S48_STOB_REF((x), 1))
|
|
#define S48_SET_CONTENTS(x, v) (s48_stob_set((x), S48_STOBTYPE_LOCATION, 1, (v)))
|
|
#define S48_UNSAFE_SET_CONTENTS(x, v) S48_STOB_SET((x), 1, (v))
|
|
#define S48_CLOSURE_TEMPLATE_OFFSET 0
|
|
#define S48_CLOSURE_TEMPLATE(x) (s48_stob_ref((x), S48_STOBTYPE_CLOSURE, 0))
|
|
#define S48_UNSAFE_CLOSURE_TEMPLATE(x) (S48_STOB_REF((x), 0))
|
|
#define S48_CLOSURE_ENV_OFFSET 1
|
|
#define S48_CLOSURE_ENV(x) (s48_stob_ref((x), S48_STOBTYPE_CLOSURE, 1))
|
|
#define S48_UNSAFE_CLOSURE_ENV(x) (S48_STOB_REF((x), 1))
|
|
#define S48_WEAK_POINTER_REF_OFFSET 0
|
|
#define S48_WEAK_POINTER_REF(x) (s48_stob_ref((x), S48_STOBTYPE_WEAK_POINTER, 0))
|
|
#define S48_UNSAFE_WEAK_POINTER_REF(x) (S48_STOB_REF((x), 0))
|
|
#define S48_SHARED_BINDING_NAME_OFFSET 0
|
|
#define S48_SHARED_BINDING_NAME(x) (s48_stob_ref((x), S48_STOBTYPE_SHARED_BINDING, 0))
|
|
#define S48_UNSAFE_SHARED_BINDING_NAME(x) (S48_STOB_REF((x), 0))
|
|
#define S48_SHARED_BINDING_IS_IMPORTP_OFFSET 1
|
|
#define S48_SHARED_BINDING_IS_IMPORTP(x) (s48_stob_ref((x), S48_STOBTYPE_SHARED_BINDING, 1))
|
|
#define S48_UNSAFE_SHARED_BINDING_IS_IMPORTP(x) (S48_STOB_REF((x), 1))
|
|
#define S48_SHARED_BINDING_REF_OFFSET 2
|
|
#define S48_SHARED_BINDING_REF(x) (s48_stob_ref((x), S48_STOBTYPE_SHARED_BINDING, 2))
|
|
#define S48_UNSAFE_SHARED_BINDING_REF(x) (S48_STOB_REF((x), 2))
|
|
#define S48_SHARED_BINDING_SET(x, v) (s48_stob_set((x), S48_STOBTYPE_SHARED_BINDING, 2, (v)))
|
|
#define S48_UNSAFE_SHARED_BINDING_SET(x, v) S48_STOB_SET((x), 2, (v))
|
|
#define S48_PORT_HANDLER_OFFSET 0
|
|
#define S48_PORT_HANDLER(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 0))
|
|
#define S48_UNSAFE_PORT_HANDLER(x) (S48_STOB_REF((x), 0))
|
|
#define S48_SET_PORT_HANDLER(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 0, (v)))
|
|
#define S48_UNSAFE_SET_PORT_HANDLER(x, v) S48_STOB_SET((x), 0, (v))
|
|
#define S48_PORT_STATUS_OFFSET 1
|
|
#define S48_PORT_STATUS(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 1))
|
|
#define S48_UNSAFE_PORT_STATUS(x) (S48_STOB_REF((x), 1))
|
|
#define S48_SET_PORT_STATUS(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 1, (v)))
|
|
#define S48_UNSAFE_SET_PORT_STATUS(x, v) S48_STOB_SET((x), 1, (v))
|
|
#define S48_PORT_LOCK_OFFSET 2
|
|
#define S48_PORT_LOCK(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 2))
|
|
#define S48_UNSAFE_PORT_LOCK(x) (S48_STOB_REF((x), 2))
|
|
#define S48_SET_PORT_LOCK(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 2, (v)))
|
|
#define S48_UNSAFE_SET_PORT_LOCK(x, v) S48_STOB_SET((x), 2, (v))
|
|
#define S48_PORT_LOCKEDP_OFFSET 3
|
|
#define S48_PORT_LOCKEDP(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 3))
|
|
#define S48_UNSAFE_PORT_LOCKEDP(x) (S48_STOB_REF((x), 3))
|
|
#define S48_SET_PORT_LOCKEDP(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 3, (v)))
|
|
#define S48_UNSAFE_SET_PORT_LOCKEDP(x, v) S48_STOB_SET((x), 3, (v))
|
|
#define S48_PORT_DATA_OFFSET 4
|
|
#define S48_PORT_DATA(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 4))
|
|
#define S48_UNSAFE_PORT_DATA(x) (S48_STOB_REF((x), 4))
|
|
#define S48_SET_PORT_DATA(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 4, (v)))
|
|
#define S48_UNSAFE_SET_PORT_DATA(x, v) S48_STOB_SET((x), 4, (v))
|
|
#define S48_PORT_BUFFER_OFFSET 5
|
|
#define S48_PORT_BUFFER(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 5))
|
|
#define S48_UNSAFE_PORT_BUFFER(x) (S48_STOB_REF((x), 5))
|
|
#define S48_SET_PORT_BUFFER(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 5, (v)))
|
|
#define S48_UNSAFE_SET_PORT_BUFFER(x, v) S48_STOB_SET((x), 5, (v))
|
|
#define S48_PORT_INDEX_OFFSET 6
|
|
#define S48_PORT_INDEX(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 6))
|
|
#define S48_UNSAFE_PORT_INDEX(x) (S48_STOB_REF((x), 6))
|
|
#define S48_SET_PORT_INDEX(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 6, (v)))
|
|
#define S48_UNSAFE_SET_PORT_INDEX(x, v) S48_STOB_SET((x), 6, (v))
|
|
#define S48_PORT_LIMIT_OFFSET 7
|
|
#define S48_PORT_LIMIT(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 7))
|
|
#define S48_UNSAFE_PORT_LIMIT(x) (S48_STOB_REF((x), 7))
|
|
#define S48_SET_PORT_LIMIT(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 7, (v)))
|
|
#define S48_UNSAFE_SET_PORT_LIMIT(x, v) S48_STOB_SET((x), 7, (v))
|
|
#define S48_PORT_PENDING_EOFP_OFFSET 8
|
|
#define S48_PORT_PENDING_EOFP(x) (s48_stob_ref((x), S48_STOBTYPE_PORT, 8))
|
|
#define S48_UNSAFE_PORT_PENDING_EOFP(x) (S48_STOB_REF((x), 8))
|
|
#define S48_SET_PORT_PENDING_EOFP(x, v) (s48_stob_set((x), S48_STOBTYPE_PORT, 8, (v)))
|
|
#define S48_UNSAFE_SET_PORT_PENDING_EOFP(x, v) S48_STOB_SET((x), 8, (v))
|
|
#define S48_CHANNEL_STATUS_OFFSET 0
|
|
#define S48_CHANNEL_STATUS(x) (s48_stob_ref((x), S48_STOBTYPE_CHANNEL, 0))
|
|
#define S48_UNSAFE_CHANNEL_STATUS(x) (S48_STOB_REF((x), 0))
|
|
#define S48_CHANNEL_ID_OFFSET 1
|
|
#define S48_CHANNEL_ID(x) (s48_stob_ref((x), S48_STOBTYPE_CHANNEL, 1))
|
|
#define S48_UNSAFE_CHANNEL_ID(x) (S48_STOB_REF((x), 1))
|
|
#define S48_CHANNEL_OS_INDEX_OFFSET 2
|
|
#define S48_CHANNEL_OS_INDEX(x) (s48_stob_ref((x), S48_STOBTYPE_CHANNEL, 2))
|
|
#define S48_UNSAFE_CHANNEL_OS_INDEX(x) (S48_STOB_REF((x), 2))
|
|
|
|
#define S48_VECTOR_LENGTH(x) (s48_stob_length((x), S48_STOBTYPE_VECTOR))
|
|
#define S48_UNSAFE_VECTOR_LENGTH(x) (STOB_DESCRIPTOR_LENGTH(x))
|
|
#define S48_VECTOR_REF(x, i) (s48_stob_ref((x), S48_STOBTYPE_VECTOR, (i)))
|
|
#define S48_VECTOR_SET(x, i, v) (s48_stob_set((x), S48_STOBTYPE_VECTOR, (i), (v)))
|
|
#define S48_UNSAFE_VECTOR_REF(x, i) (S48_STOB_REF((x), (i)))
|
|
#define S48_UNSAFE_VECTOR_SET(x, i, v) S48_STOB_SET((x), (i), (v))
|
|
#define S48_RECORD_LENGTH(x) (s48_stob_length((x), S48_STOBTYPE_RECORD))
|
|
#define S48_UNSAFE_RECORD_LENGTH(x) (STOB_DESCRIPTOR_LENGTH(x))
|
|
#define S48_RECORD_REF(x, i) (s48_stob_ref((x), S48_STOBTYPE_RECORD, (i) + 1))
|
|
#define S48_RECORD_SET(x, i, v) (s48_stob_set((x), S48_STOBTYPE_RECORD, (i) + 1, (v)))
|
|
#define S48_UNSAFE_RECORD_REF(x, i) (S48_STOB_REF((x), (i) + 1))
|
|
#define S48_UNSAFE_RECORD_SET(x, i, v) S48_STOB_SET((x), (i) + 1, (v))
|
|
#define S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD))
|
|
#define S48_UNSAFE_RECORD_TYPE(x) (STOB_REF((x), 0))
|
|
#define S48_BYTE_VECTOR_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_BYTE_VECTOR))
|
|
#define S48_BYTE_VECTOR_REF(x, i) (s48_stob_byte_ref((x), S48_STOBTYPE_BYTE_VECTOR, (i)))
|
|
#define S48_BYTE_VECTOR_SET(x, i, v) (s48_stob_byte_set((x), S48_STOBTYPE_BYTE_VECTOR, (i), (v)))
|
|
#define S48_UNSAFE_BYTE_VECTOR_REF(x, i) (S48_STOB_BYTE_REF((x), (i)))
|
|
#define S48_UNSAFE_BYTE_VECTOR_SET(x, i, v) S48_STOB_BYTE_SET((x), (i), (v))
|
|
#define S48_STRING_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_STRING))
|
|
#define S48_STRING_REF(x, i) (s48_stob_byte_ref((x), S48_STOBTYPE_STRING, (i)))
|
|
#define S48_STRING_SET(x, i, v) (s48_stob_byte_set((x), S48_STOBTYPE_STRING, (i), (v)))
|
|
#define S48_UNSAFE_STRING_REF(x, i) (S48_STOB_BYTE_REF((x), (i)))
|
|
#define S48_UNSAFE_STRING_SET(x, i, v) S48_STOB_BYTE_SET((x), (i), (v))
|
|
#define S48_UNSAFE_BYTE_VECTOR_LENGTH(x) (S48_STOB_BYTE_LENGTH(x))
|
|
#define S48_UNSAFE_STRING_LENGTH(x) (S48_STOB_BYTE_LENGTH(x) - 1)
|
|
#define S48_UNSAFE_EXTRACT_STRING(x) (S48_ADDRESS_AFTER_HEADER((x), char))
|
|
#define S48_UNSAFE_EXTRACT_BYTE_VECTOR(x) (S48_ADDRESS_AFTER_HEADER((x), char))
|
|
#define S48_EXTRACT_EXTERNAL_OBJECT(x, type) ((type *)(S48_ADDRESS_AFTER_HEADER(x, long)+1))
|
|
|
|
#define S48_RECORD_TYPE_RESUMER(x) S48_RECORD_REF((x), 0)
|
|
#define S48_RECORD_TYPE_UID(x) S48_RECORD_REF((x), 1)
|
|
#define S48_RECORD_TYPE_NAME(x) S48_RECORD_REF((x), 2)
|
|
#define S48_RECORD_TYPE_FIELD_NAMES(x) S48_RECORD_REF((x), 3)
|
|
#define S48_RECORD_TYPE_NUMBER_OF_FIELDS(x) S48_RECORD_REF((x), 4)
|
|
#define S48_RECORD_TYPE_DISCLOSER(x) S48_RECORD_REF((x), 5)
|
|
|
|
#define S48_EXCEPTION_UNASSIGNED_LOCAL 0
|
|
#define S48_EXCEPTION_UNDEFINED_GLOBAL 1
|
|
#define S48_EXCEPTION_UNBOUND_GLOBAL 2
|
|
#define S48_EXCEPTION_BAD_PROCEDURE 3
|
|
#define S48_EXCEPTION_WRONG_NUMBER_OF_ARGUMENTS 4
|
|
#define S48_EXCEPTION_WRONG_TYPE_ARGUMENT 5
|
|
#define S48_EXCEPTION_ARITHMETIC_OVERFLOW 6
|
|
#define S48_EXCEPTION_INDEX_OUT_OF_RANGE 7
|
|
#define S48_EXCEPTION_HEAP_OVERFLOW 8
|
|
#define S48_EXCEPTION_OUT_OF_MEMORY 9
|
|
#define S48_EXCEPTION_CANNOT_OPEN_CHANNEL 10
|
|
#define S48_EXCEPTION_CHANNEL_OS_INDEX_ALREADY_IN_USE 11
|
|
#define S48_EXCEPTION_CLOSED_CHANNEL 12
|
|
#define S48_EXCEPTION_PENDING_CHANNEL_IO 13
|
|
#define S48_EXCEPTION_BUFFER_FULLEMPTY 14
|
|
#define S48_EXCEPTION_UNIMPLEMENTED_INSTRUCTION 15
|
|
#define S48_EXCEPTION_TRAP 16
|
|
#define S48_EXCEPTION_PROCEEDING_AFTER_EXCEPTION 17
|
|
#define S48_EXCEPTION_BAD_OPTION 18
|
|
#define S48_EXCEPTION_UNBOUND_EXTERNAL_NAME 19
|
|
#define S48_EXCEPTION_TOO_MANY_ARGUMENTS_TO_EXTERNAL_PROCEDURE 20
|
|
#define S48_EXCEPTION_TOO_MANY_ARGUMENTS_IN_CALLBACK 21
|
|
#define S48_EXCEPTION_CALLBACK_RETURN_UNCOVERED 22
|
|
#define S48_EXCEPTION_EXTENSION_EXCEPTION 23
|
|
#define S48_EXCEPTION_EXTENSION_RETURN_ERROR 24
|
|
#define S48_EXCEPTION_OS_ERROR 25
|
|
#define S48_EXCEPTION_UNRESUMABLE_RECORDS_IN_IMAGE 26
|
|
#define S48_EXCEPTION_GC_PROTECTION_MISMATCH 27
|
|
|
|
#define S48_CHANNEL_STATUS_CLOSED S48_UNSAFE_ENTER_FIXNUM(0)
|
|
#define S48_CHANNEL_STATUS_INPUT S48_UNSAFE_ENTER_FIXNUM(1)
|
|
#define S48_CHANNEL_STATUS_OUTPUT S48_UNSAFE_ENTER_FIXNUM(2)
|
|
#define S48_CHANNEL_STATUS_SPECIAL_INPUT S48_UNSAFE_ENTER_FIXNUM(3)
|
|
#define S48_CHANNEL_STATUS_SPECIAL_OUTPUT S48_UNSAFE_ENTER_FIXNUM(4)
|
|
|
|
#endif /* _H_SCHEME48 */
|