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
|
/* xlglob.h -- external declarations for global variables */
/* symbols */
XLGLOBAL struct node isnil;
XLGLOBAL LVAL s_true,obarray;
XLGLOBAL LVAL s_features;
XLGLOBAL LVAL s_unbound,s_dot;
XLGLOBAL LVAL s_quote,s_identity,s_function;
XLGLOBAL LVAL s_bquote,s_comma,s_comat;
XLGLOBAL LVAL s_evalhook,s_applyhook,s_tracelist;
XLGLOBAL LVAL s_lambda,s_macro;
XLGLOBAL LVAL s_stdin,s_stdout,s_stderr,s_debugio,s_traceout;
XLGLOBAL LVAL s_rtable;
XLGLOBAL LVAL s_tracenable,s_tlimit,s_breakenable;
XLGLOBAL LVAL s_setf,s_setfl,s_car,s_cdr,s_apply,s_nth;
XLGLOBAL LVAL s_aref,s_get,s_getf;
XLGLOBAL LVAL s_svalue,s_sfunction,s_splist;
XLGLOBAL LVAL s_eql,s_gcflag,s_gchook;
#ifdef BIGNUMS
XLGLOBAL LVAL s_readbase, s_printbase;
#else
XLGLOBAL LVAL s_ifmt;
#endif
XLGLOBAL LVAL s_ffmt;
XLGLOBAL LVAL s_1plus,s_2plus,s_3plus;
XLGLOBAL LVAL s_1star,s_2star,s_3star;
XLGLOBAL LVAL s_minus,s_printcase;
XLGLOBAL LVAL s_printlevel, s_printlength;
XLGLOBAL LVAL s_dispmacros;
XLGLOBAL LVAL s_strtypep, s_mkstruct, s_cpystruct;
XLGLOBAL LVAL s_prntfunc;
XLGLOBAL LVAL s_strref, s_strset;
XLGLOBAL LVAL s_x, s_s, s_sslots;
XLGLOBAL LVAL s_elt;
XLGLOBAL LVAL a_list, a_number, a_null, a_atom, a_anystream;
XLGLOBAL LVAL s_and, s_or, s_not, s_satisfies, s_member;
XLGLOBAL LVAL a_struct;
XLGLOBAL LVAL s_read_suppress;
#ifdef DOSINPUT
XLGLOBAL LVAL s_dosinput;
#endif
#ifdef HASHFCNS
XLGLOBAL LVAL s_gethash, a_hashtable;
#endif
XLGLOBAL LVAL a_complex;
#ifdef READTABLECASE
XLGLOBAL LVAL s_rtcase;
#endif
#ifdef PACKAGES
XLGLOBAL LVAL xlisppack, xlkeypack, xluserpack, s_package;
#endif /* PACKAGES */
XLGLOBAL LVAL s_load;
/* keywords */
XLGLOBAL LVAL k_and, k_or, k_not;
XLGLOBAL LVAL k_test,k_tnot;
XLGLOBAL LVAL k_wspace,k_const,k_nmacro,k_tmacro;
XLGLOBAL LVAL k_sescape,k_mescape;
XLGLOBAL LVAL k_direction,k_input,k_output;
XLGLOBAL LVAL k_start,k_end,k_1start,k_1end;
XLGLOBAL LVAL k_2start,k_2end,k_count;
XLGLOBAL LVAL k_verbose,k_print;
XLGLOBAL LVAL k_upcase,k_downcase,k_capitalize;
XLGLOBAL LVAL k_io, k_elementtype;
XLGLOBAL LVAL s_termio, k_exist, k_nexist, k_error;
XLGLOBAL LVAL k_rename, k_newversion, k_overwrite, k_append;
XLGLOBAL LVAL k_supersede, k_rendel, k_probe, k_create;
XLGLOBAL LVAL k_concname, k_include, k_prntfunc;
XLGLOBAL LVAL k_initelem, k_initcont;
XLGLOBAL LVAL k_allow_other_keys; /* TAA added 9/93 */
XLGLOBAL LVAL k_displacedto;
#ifdef REDUCE
XLGLOBAL LVAL k_ivalue;
#endif
#ifdef KEYARG
XLGLOBAL LVAL k_key;
#endif
#ifdef HASHFCNS
XLGLOBAL LVAL k_size;
#endif
#ifdef RANDOM
XLGLOBAL LVAL k_data;
#endif
#ifdef READTABLECASE
XLGLOBAL LVAL k_preserve,k_invert;
#endif
#ifdef PACKAGES
XLGLOBAL LVAL k_nicknames, k_use;
#ifdef MULVALS
XLGLOBAL LVAL k_internal, k_external, k_inherited;
#endif /* MULVALS */
#endif /* PACKAGES */
#ifdef CONDITIONS
XLGLOBAL LVAL s_condition_hook;
XLGLOBAL LVAL s_error, s_cerror, s_signal, s_warn, s_break, s_debug;
XLGLOBAL LVAL s_unboundvar, s_unboundfun;
XLGLOBAL LVAL k_name;
#endif /* CONDITIONS */
XLGLOBAL LVAL s_keepdocs, s_fundoc, s_aref,s_row_major_aref, s_otherwise;
XLGLOBAL LVAL s_intaction, s_baktraceprargs, s_strict_keywords;
XLGLOBAL LVAL s_destructbind;
XLGLOBAL LVAL s_typespec, s_batchmode, k_fromend;
XLGLOBAL LVAL s_eq,s_equal;
XLGLOBAL LVAL s_printgensym,s_printreadably,s_printescape;
XLGLOBAL LVAL k_construct, k_predicate;
XLGLOBAL LVAL s_strinclude, s_strconstruct;
#ifdef BYTECODE
XLGLOBAL LVAL a_bcclosure, a_cpsnode, a_bcode, s_stdrtable;
#endif /* BYTECODE */
#ifdef XLISP_STAT
XLGLOBAL LVAL a_adata;
XLGLOBAL char *defaultpath;
#endif /* XLISP_STAT */
XLGLOBAL LVAL a_ptr;
#ifdef HASHFCNS
XLGLOBAL LVAL k_rhthresh, k_rhsize;
#endif
XLGLOBAL LVAL a_rndstate, s_rndstate;
XLGLOBAL LVAL a_array; /* L. Tierney */
XLGLOBAL LVAL s_vardoc;
XLGLOBAL LVAL a_tvec;
XLGLOBAL LVAL s_c_char, s_c_short, s_c_int, s_c_long, s_c_float, s_c_double;
XLGLOBAL LVAL s_c_complex, s_c_dcomplex, s_make_array;
#ifdef IEEEFP
XLGLOBAL LVAL s_posinfinity, s_neginfinity, s_notanumber;
#endif
#ifdef PACKAGES
XLGLOBAL LVAL s_printsympack;
#endif /* PACKAGES */
#ifdef PRINTCIRCLE
XLGLOBAL LVAL s_printcircle, s_prcircdat, s_rdcircdat;
#endif /* PRINTCIRCLE */
/* lambda list keywords */
XLGLOBAL LVAL lk_optional,lk_rest,lk_key,lk_aux;
XLGLOBAL LVAL lk_allow_other_keys;
XLGLOBAL LVAL lk_whole,lk_body,lk_environment;
/* read type -- preserve whitespace?*/
XLGLOBAL LVAL a_readpw;
/* type names */
XLGLOBAL LVAL a_subr,a_fsubr;
XLGLOBAL LVAL a_cons,a_symbol,a_fixnum,a_flonum;
XLGLOBAL LVAL a_string,a_object,a_stream,a_vector;
XLGLOBAL LVAL a_closure,a_char,a_ustream;
XLGLOBAL LVAL a_integer, a_real;
#ifdef BIGNUMS
XLGLOBAL LVAL a_ratio;
XLGLOBAL LVAL a_rational;
XLGLOBAL LVAL a_bignum;
XLGLOBAL LVAL a_unbyte, a_sbyte;
XLGLOBAL LVAL n_bigzero, n_bigmone;
#endif
#ifdef PACKAGES
XLGLOBAL LVAL a_package;
#endif /* PACKAGES */
XLGLOBAL LVAL k_symbol_macro;
/* Object system */
XLGLOBAL LVAL s_self,k_new,k_isnew;
XLGLOBAL LVAL k_prin1;
XLGLOBAL LVAL cls_class,cls_object;
#ifdef MSDOS
XLGLOBAL LVAL k_data, k_type, k_item, k_timeout, k_request;
#endif /* MSDOS */
#ifdef MACINTOSH
XLGLOBAL LVAL k_appllistlabel, k_canswitch, k_data, k_name, k_object, k_prompt;
XLGLOBAL LVAL k_signature, k_timeout, k_type, k_waitreply, k_zone;
#endif /* MACINTOSH */
/* evaluation variables */
XLGLOBAL LVAL **xlstktop; /* top of the evaluation stack */
XLGLOBAL LVAL **xlstkbase; /* base of the evaluation stack */
XLGLOBAL LVAL **xlstack; /* evaluation stack pointer */
XLGLOBAL LVAL xlenv,xlfenv,xldenv; /* environment pointers */
/* argument stack */
XLGLOBAL LVAL *xlargstkbase; /* base of the argument stack */
XLGLOBAL LVAL *xlargstktop; /* top of the argument stack */
XLGLOBAL LVAL *xlfp; /* argument frame pointer */
XLGLOBAL LVAL *xlsp; /* argument stack pointer */
XLGLOBAL LVAL *xlargv; /* current argument vector */
XLGLOBAL int xlargc; /* current argument count */
/* continuation stack */
#ifdef BYTECODE
XLGLOBAL CONTINUATIONP xlcontinuation_stack, xlcstop, xlcsend;
XLGLOBAL LVAL *vsbase;
#define vstop xlsp
#endif /* BYTECODE */
/* exception handling variables */
XLGLOBAL CONTEXT *xlcontext; /* current exception handler */
XLGLOBAL CONTEXT *xltarget; /* target context (for xljump) */
XLGLOBAL LVAL xlvalue; /* exception value (for xljump) */
XLGLOBAL int xlmask; /* exception type (for xljump) */
#ifdef MULVALS
XLGLOBAL int xlnumresults; /* number of values */
XLGLOBAL LVAL *xlresults; /* multiple values array */
#endif /* MULVALS */
/* Garbage collection reporting variables */
XLGLOBAL long gccalls, nfree, total;
/* Weak box list */
XLGLOBAL LVAL xlweakboxes;
/* debugging variables */
XLGLOBAL int xldebug; /* debug level */
XLGLOBAL int xlsample; /* control character sample rate */
XLGLOBAL int xltrcindent; /* trace indent level */
/* gensym variables */
XLGLOBAL char gsprefix[]; /* gensym prefix string */
XLGLOBAL FIXTYPE gsnumber; /* gensym number */
/* i/o variables */
XLGLOBAL FILEP tfp; /* transcript file pointer */
XLGLOBAL int redirectout; /* output is redirected */
XLGLOBAL int redirectin; /* input is redirected */
XLGLOBAL int batchmode; /* running a batch process */
XLGLOBAL int lposition; /* postition in screen */
/* From Luke Tierney, 9/93 */
/* startup functions and command line symbols */
XLGLOBAL LVAL s_startup_functions, s_command_line;
XLGLOBAL LVAL s_loadfileargs, s_toplevelloop;
/* general purpose string buffer */
XLGLOBAL char buf[];
/* remaining nodes */
XLGLOBAL long nnodes;
/* printing level and length */
XLGLOBAL int plevel, plength;
#ifdef STSZ
/* For stack checking */
XLGLOBAL int stackwarn; /* is TRUE when warning given */
XLGLOBAL int marghi; /* stackleft for warning */
#endif
#ifdef FILETABLE
XLGLOBAL FILETABLETYPE filetab[FTABSIZE];
#endif
#ifdef ASCII8
/* conversion tables for 8 bit ASCII */
XLGLOBAL char ascii8tbl[];
XLGLOBAL unsigned char ascii8cnv[];
#endif
/* defined in xlisp.c */
#ifdef SAVERESTORE
XLGLOBAL jmp_buf top_level;
#endif
/* defined in xlftab.c */
/* XLGLOBALal variable from xlftab.c */
#if defined(_Windows) && ! defined(WIN32) /* L. Tierney */
XLGLOBAL FUNDEF far funtab[];
#else
XLGLOBAL FUNDEF funtab[];
#endif
XLGLOBAL int ftabsize; /* TAA MOD -- added validity check */
/* $putpatch.c$: "MODULE_XLGLOB_H_GLOBALS" */
|
