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
|
/*
* 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 Polling
extern int pollctr;
#endif /* Polling */
/*
* Externals that were conditional on multithreading.
*/
extern struct region rootstring;
extern struct region rootblock;
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 */
/*
* External declarations that differed for the compiler.
*/
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;
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 */
extern dptr xargp;
extern word xnargs;
extern word lastop;
/*
* 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 */
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;
#ifdef XWindows
extern struct _wdisplay * wdsplys;
extern stringint cursorsyms[];
#endif /* XWindows */
#ifdef WinGraphics
extern HINSTANCE mswinInstance;
extern int ncmdShow;
#endif /* WinGraphics */
#endif /* Graphics */
|
