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
|
/*
* External declarations for the run-time system.
*/
/*
* External declarations common to the compiler and interpreter.
*/
extern struct b_proc *op_tbl; /* operators available for string invocation */
extern int op_tbl_sz; /* number of operators in op_tbl */
extern int debug_info; /* flag: debugging information is available */
extern int err_conv; /* flag: error conversion is supported */
extern int dodump; /* termination dump */
extern int line_info; /* flag: line information is available */
extern char *file_name; /* source file for current execution point */
extern int line_num; /* line number for current execution point */
extern unsigned char allchars[];/* array for making one-character strings */
extern char *blkname[]; /* print names for block types. */
extern char *currend; /* current end of memory region */
extern dptr *quallist; /* start of qualifier list */
extern int bsizes[]; /* sizes of blocks */
extern int firstd[]; /* offset (words) of first descrip. */
extern uword segsize[]; /* size of hash bucket segment */
extern int k_level; /* value of &level */
extern struct b_coexpr *stklist;/* base of co-expression stack list */
extern struct b_cset blankcs; /* ' ' */
extern struct b_cset lparcs; /* '(' */
extern struct b_cset rparcs; /* ')' */
extern struct b_cset fullcs; /* cset containing all characters */
extern struct descrip blank; /* blank */
extern struct descrip emptystr; /* empty string */
extern struct descrip kywd_dmp; /* descriptor for &dump */
extern struct descrip nullptr; /* descriptor with null block pointer */
extern struct descrip lcase; /* lowercase string */
extern struct descrip letr; /* letter "r" */
extern struct descrip maps2; /* second argument to map() */
extern struct descrip maps3; /* third argument to map() */
extern struct descrip nulldesc; /* null value */
extern struct descrip onedesc; /* one */
extern struct descrip ucase; /* uppercase string */
extern struct descrip zerodesc; /* zero */
extern word mstksize; /* size of main stack in words */
extern word stksize; /* size of co-expression stacks in words */
extern word qualsize; /* size of string qualifier list */
extern word memcushion; /* memory region cushion factor */
extern word memgrowth; /* memory region growth factor */
extern uword stattotal; /* cumulative total of all static allocations */
/* N.B. not currently set */
extern struct tend_desc *tend; /* chain of tended descriptors */
/*
* Externals that are conditional on features.
*/
#ifdef FncTrace
extern struct descrip kywd_ftrc; /* descriptor for &ftrace */
#endif /* FncTrace */
#ifdef Polling
extern int pollctr;
#endif /* Polling */
#ifdef EventMon
extern char typech[];
extern word oldsum;
extern struct descrip csetdesc; /* cset descriptor */
extern struct descrip eventdesc; /* event descriptor */
extern struct b_iproc mt_llist;
extern struct descrip rzerodesc; /* real descriptor */
extern struct b_real realzero; /* real zero block */
#endif /* EventMon */
/*
* Externals conditional on multithreading.
*/
extern struct region rootstring;
extern struct region rootblock;
#ifndef MultiThread
extern dptr glbl_argp; /* argument pointer */
extern struct region *curstring;
extern struct region *curblock;
extern struct descrip k_current; /* ¤t */
extern char *k_errortext; /* value of &errortext */
extern int have_errval; /* &errorvalue has a legal value */
extern int k_errornumber; /* value of &errornumber */
extern int t_errornumber; /* tentative k_errornumber value */
extern int t_have_val; /* tentative have_errval flag */
extern struct b_file k_errout; /* value of &errout */
extern struct b_file k_input; /* value of &input */
extern struct b_file k_output; /* value of &output */
extern struct descrip k_errorvalue; /* value of &errorvalue */
extern struct descrip kywd_err; /* &error */
extern struct descrip kywd_pos; /* descriptor for &pos */
extern struct descrip kywd_prog; /* descriptor for &prog */
extern struct descrip kywd_ran; /* descriptor for &random */
extern struct descrip k_subject; /* &subject */
extern struct descrip kywd_trc; /* descriptor for &trace */
extern struct descrip k_eventcode; /* &eventcode */
extern struct descrip k_eventsource; /* &eventsource */
extern struct descrip k_eventvalue; /* &eventvalue */
extern struct descrip k_main; /* value of &main */
extern struct descrip t_errorvalue; /* tentative k_errorvalue value */
extern uword blktotal; /* cumul total of all block allocs */
extern uword strtotal; /* cumul total of all string allocs */
extern word coll_tot; /* total number of collections */
extern word coll_stat; /* collections from static reqests */
extern word coll_str; /* collections from string requests */
extern word coll_blk; /* collections from block requests */
extern dptr globals; /* start of global variables */
extern dptr eglobals; /* end of global variables */
extern dptr gnames; /* start of global variable names */
extern dptr egnames; /* end of global variable names */
extern dptr estatics; /* end of static variables */
extern int n_globals; /* number of global variables */
extern int n_statics; /* number of static variables */
extern struct b_coexpr *mainhead; /* &main */
#endif /* MultiThread */
/*
* Externals that differ between compiler and interpreter.
*/
#if !COMPILER
/*
* External declarations for the interpreter.
*/
extern int ixinited; /* iconx has initialized */
extern inst ipc; /* interpreter program counter */
extern int ilevel; /* interpreter level */
extern int ntended; /* number of active tended descriptors*/
extern struct b_cset k_ascii; /* value of &ascii */
extern struct b_cset k_cset; /* value of &cset */
extern struct b_cset k_digits; /* value of &lcase */
extern struct b_cset k_lcase; /* value of &lcase */
extern struct b_cset k_letters; /* value of &letters */
extern struct b_cset k_ucase; /* value of &ucase */
extern struct descrip tended[]; /* tended descriptors */
extern struct ef_marker *efp; /* expression frame pointer */
extern struct gf_marker *gfp; /* generator frame pointer */
extern struct pf_marker *pfp; /* procedure frame pointer */
extern word *sp; /* interpreter stack pointer */
extern word *stack; /* interpreter stack base */
extern word *stackend; /* end of evaluation stack */
extern struct pstrnm pntab[];
extern int pnsize;
#ifdef MultiThread
extern struct progstate *curpstate;
extern struct progstate rootpstate;
extern int noMTevents; /* no MT events during GC */
#else /* MultiThread */
extern char *code; /* start of icode */
extern char *ecode; /* end of icode */
extern dptr statics; /* start of static variables */
extern char *strcons; /* start of the string constants */
extern dptr fnames; /* field names */
extern dptr efnames; /* end of field names */
extern word *records;
extern int *ftabp; /* field table pointer */
#ifdef FieldTableCompression
extern word ftabwidth, foffwidth;
extern unsigned char *ftabcp;
extern short *ftabsp;
#endif /* FieldTableCompression */
extern dptr xargp;
extern word xnargs;
extern word lastop;
#endif /* MultiThread */
#else /* COMPILER */
extern struct descrip statics[]; /* array of static variables */
extern struct b_proc *builtins[]; /* pointers to builtin functions */
extern int noerrbuf; /* error buffering */
extern struct p_frame *pfp; /* procedure frame pointer */
extern struct descrip trashcan; /* dummy descriptor, never read */
extern int largeints; /* flag: large integers supported */
#endif /* COMPILER */
/*
* graphics
*/
#ifdef Graphics
extern stringint attribs[], drawops[];
extern wbp wbndngs;
extern wcp wcntxts;
extern wsp wstates;
extern int GraphicsLeft, GraphicsUp, GraphicsRight, GraphicsDown;
extern int GraphicsHome, GraphicsPrior, GraphicsNext, GraphicsEnd;
extern int win_highwater, canvas_serial, context_serial;
extern clock_t starttime; /* start time in milliseconds */
#ifndef MultiThread
extern struct descrip kywd_xwin[];
extern struct descrip lastEventWin;
extern int lastEvFWidth, lastEvLeading, lastEvAscent;
extern struct descrip amperCol;
extern struct descrip amperRow;
extern struct descrip amperX;
extern struct descrip amperY;
extern struct descrip amperInterval;
extern uword xmod_control, xmod_shift, xmod_meta;
#endif /* MultiThread */
#ifdef XWindows
extern struct _wdisplay * wdsplys;
extern stringint cursorsyms[];
#endif /* XWindows */
#ifdef WinGraphics
extern HINSTANCE mswinInstance;
extern int ncmdShow;
#endif /* WinGraphics */
#endif /* Graphics */
|
