1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
/*
* DO NOT EDIT THIS FILE! EDIT "s9import.h.edoc" INSTEAD.
*/
/*
* S9core Toolkit, Mk IVc
* By Nils M Holm, 2007-2018
* In the public domain
*
* Under jurisdictions without a public domain, the CC0 applies:
* https://creativecommons.org/publicdomain/zero/1.0/
*/
/*
* Remove S9_ and s9_ prefixes from common definitions
*/
#define cell s9_cell
#define counter s9_counter
#define special_p s9_special_p
#define NIL S9_NIL
#define TRUE S9_TRUE
#define FALSE S9_FALSE
#define END_OF_FILE S9_END_OF_FILE
#define UNDEFINED S9_UNDEFINED
#define UNSPECIFIC S9_UNSPECIFIC
#define VOID S9_VOID
#define T_ANY S9_T_ANY
#define T_BOOLEAN S9_T_BOOLEAN
#define T_CHAR S9_T_CHAR
#define T_INPUT_PORT S9_T_INPUT_PORT
#define T_INTEGER S9_T_INTEGER
#define T_LIST S9_T_LIST
#define T_OUTPUT_PORT S9_T_OUTPUT_PORT
#define T_PAIR S9_T_PAIR
#define T_PRIMITIVE S9_T_PRIMITIVE
#define T_FUNCTION S9_T_FUNCTION
#define T_REAL S9_T_REAL
#define T_STRING S9_T_STRING
#define T_SYMBOL S9_T_SYMBOL
#define T_SYNTAX S9_T_SYNTAX
#define T_VECTOR S9_T_VECTOR
#define T_CONTINUATION S9_T_CONTINUATION
#define T_FIXNUM S9_T_FIXNUM
#define T_NONE S9_T_NONE
#define USER_SPECIALS S9_USER_SPECIALS
#define nl s9_nl
#define string s9_string
#define string_len s9_string_len
#define symbol_name s9_symbol_name
#define symbol_len s9_symbol_len
#define vector s9_vector
#define vector_link s9_vector_link
#define vector_index s9_vector_index
#define vector_size s9_vector_size
#define vector_len s9_vector_len
#define port_no s9_port_no
#define fixval s9_fixval
#define small_int_value s9_small_int_value
#define char_value s9_char_value
#define prim_slot s9_prim_slot
#define prim_info s9_prim_info
#define tag s9_tag
#define car s9_car
#define cdr s9_cdr
#define caar s9_caar
#define cadr s9_cadr
#define cdar s9_cdar
#define cddr s9_cddr
#define caaar s9_caaar
#define caadr s9_caadr
#define cadar s9_cadar
#define caddr s9_caddr
#define cdaar s9_cdaar
#define cdadr s9_cdadr
#define cddar s9_cddar
#define cdddr s9_cdddr
#define caaaar s9_caaaar
#define caaadr s9_caaadr
#define caadar s9_caadar
#define caaddr s9_caaddr
#define cadaar s9_cadaar
#define cadadr s9_cadadr
#define caddar s9_caddar
#define cadddr s9_cadddr
#define cdaaar s9_cdaaar
#define cdaadr s9_cdaadr
#define cdadar s9_cdadar
#define cdaddr s9_cdaddr
#define cddaar s9_cddaar
#define cddadr s9_cddadr
#define cdddar s9_cdddar
#define cddddr s9_cddddr
#define Car S9_car
#define Cdr S9_cdr
#define Tag S9_tag
#define Vectors S9_vectors
#define Nullvec S9_nullvec
#define Stack S9_stack
#define Primitives S9_primitives
#define Zero S9_zero
#define One S9_one
#define Two S9_two
#define Ten S9_ten
#define Epsilon S9_epsilon
#define Ports S9_ports
#define Input_port S9_input_port
#define Output_port S9_output_port
#define Error_port S9_error_port
#define eof_p s9_eof_p
#define undefined_p s9_undefined_p
#define unspecific_p s9_unspecific_p
#define boolean_p s9_boolean_p
#define constant_p s9_constant_p
#define integer_p s9_integer_p
#define number_p s9_number_p
#define primitive_p s9_primitive_p
#define function_p s9_function_p
#define continuation_p s9_continuation_p
#define real_p s9_real_p
#define fix_p s9_fix_p
#define char_p s9_char_p
#define syntax_p s9_syntax_p
#define input_port_p s9_input_port_p
#define output_port_p s9_output_port_p
#define symbol_p s9_symbol_p
#define vector_p s9_vector_p
#define string_p s9_string_p
#define atom_p s9_atom_p
#define pair_p s9_pair_p
#define small_int_p s9_small_int_p
#define type_tag s9_type_tag
#define cons s9_cons
#define new_atom s9_new_atom
#define save s9_save
#define bignum_negative_p s9_bignum_negative_p
#define bignum_zero_p s9_bignum_zero_p
#define bignum_positive_p s9_bignum_positive_p
#define Make_real S9_make_real
#define Real_flags S9_real_flags
#define Real_exponent S9_real_exponent
#define Real_mantissa S9_real_mantissa
#define REAL_NEGATIVE S9_REAL_NEGATIVE
#define Real_negative_flag S9_real_negative_flag
#define Real_zero_p S9_real_zero_p
#define Real_negative_p S9_real_negative_p
#define Real_positive_p S9_real_positive_p
#define Real_negate S9_real_negate
#define GC_stack S9_gc_stack
#define GC_stkptr S9_gc_stkptr
#ifndef S9_S9CORE
#define apply_prim s9_apply_prim
#define argv_to_list s9_argv_to_list
#define asctol s9_asctol
#define bignum_abs s9_bignum_abs
#define bignum_add s9_bignum_add
#define bignum_divide s9_bignum_divide
#define bignum_equal_p s9_bignum_equal_p
#define bignum_even_p s9_bignum_even_p
#define bignum_less_p s9_bignum_less_p
#define bignum_multiply s9_bignum_multiply
#define bignum_negate s9_bignum_negate
#define bignum_shift_left s9_bignum_shift_left
#define bignum_shift_right s9_bignum_shift_right
#define bignum_subtract s9_bignum_subtract
#define bignum_to_int s9_bignum_to_int
#define bignum_to_real s9_bignum_to_real
#define bignum_to_string s9_bignum_to_string
#define blockread s9_blockread
#define blockwrite s9_blockwrite
#define close_input_string s9_close_input_string
#define close_port s9_close_port
#define cons3 s9_cons3
#define conses s9_conses
#define cons_stats s9_cons_stats
#define copy_string s9_copy_string
#define count s9_count
#define dump_image s9_dump_image
#define error_port s9_error_port
#define exponent_chars s9_exponent_chars
#define fatal s9_fatal
#define find_symbol s9_find_symbol
#define flat_copy s9_flat_copy
#define flush s9_flush
#define gc s9_gc
#define gc_verbosity s9_gc_verbosity
#define gcv s9_gcv
#define get_counters s9_get_counters
#define image_vars s9_image_vars
#define input_port s9_input_port
#define inport_open_p s9_inport_open_p
#define integer_string_p s9_integer_string_p
#define intern_symbol s9_intern_symbol
#define int_to_bignum s9_int_to_bignum
#define io_reset s9_io_reset
#define io_status s9_io_status
#define length s9_length
#define load_image s9_load_image
#define lock_port s9_lock_port
#define make_char s9_make_char
#define make_integer s9_make_integer
#define make_port s9_make_port
#define make_primitive s9_make_primitive
#define make_real s9_make_real
#define make_string s9_make_string
#define make_symbol s9_make_symbol
#define make_vector s9_make_vector
#define mem_error_handler s9_mem_error_handler
#define mkfix s9_mkfix
#define new_port s9_new_port
#define new_vec s9_new_vec
#define open_input_port s9_open_input_port
#define open_input_string s9_open_input_string
#define open_output_port s9_open_output_port
#define output_port s9_output_port
#define outport_open_p s9_outport_open_p
#define port_eof s9_port_eof
#define print_bignum s9_print_bignum
#define print_expanded_real s9_print_expanded_real
#define print_real s9_print_real
#define print_sci_real s9_print_sci_real
#define printer_limit s9_printer_limit
#define prints s9_prints
#define read_counter s9_read_counter
#define readc s9_readc
#define real_abs s9_real_abs
#define real_add s9_real_add
#define real_approx_p s9_real_approx_p
#define real_ceil s9_real_ceil
#define real_divide s9_real_divide
#define real_equal_p s9_real_equal_p
#define real_exponent s9_real_exponent
#define real_floor s9_real_floor
#define real_integer_p s9_real_integer_p
#define real_less_p s9_real_less_p
#define real_mantissa s9_real_mantissa
#define real_multiply s9_real_multiply
#define real_negate s9_real_negate
#define real_negative_p s9_real_negative_p
#define real_positive_p s9_real_positive_p
#define real_power s9_real_power
#define real_round s9_real_round
#define real_sqrt s9_real_sqrt
#define real_subtract s9_real_subtract
#define real_to_bignum s9_real_to_bignum
#define real_to_string s9_real_to_string
#define real_trunc s9_real_trunc
#define real_zero_p s9_real_zero_p
#define rejectc s9_rejectc
#define reset_counter s9_reset_counter
#define reset_std_ports s9_reset_std_ports
#define run_stats s9_run_stats
#define set_input_port s9_set_input_port
#define set_node_limit s9_set_node_limit
#define set_output_port s9_set_output_port
#define set_printer_limit s9_set_printer_limit
#define set_vector_limit s9_set_vector_limit
#define string_numeric_p s9_string_numeric_p
#define string_to_bignum s9_string_to_bignum
#define string_to_number s9_string_to_number
#define string_to_real s9_string_to_real
#define string_to_symbol s9_string_to_symbol
#define symbol_ref s9_symbol_ref
#define symbol_table s9_symbol_table
#define symbol_to_string s9_symbol_to_string
#define typecheck s9_typecheck
#define unlock_port s9_unlock_port
#define unsave s9_unsave
#define writec s9_writec
#endif
|
