projects / unix-history / blame
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
BSD 4_1_snap development
[unix-history] / usr / src / cmd / efl / bigdefs
CommitLineData
432a87be
C		 1#include "stdio.h"
2
3#define HASHEDTABLE 1
4
5
6#define NFTNTYPES 5
7#define NEFLTYPES 12
8
9#define MEMSIZE 12000
10
11#define MAXSTNO 200
12#define MAXINCLUDEDEPTH 10
13#define MAXBLOCKDEPTH 30
14#define MAXINDIFS 100
15#define MAXFTNAMES 200
16#define MAXEFLNAMES 401
17
18#define EXECPOOL 20
19#define EXPRPOOL 40
20
21#define NAMESPERLINE 6
22
23#define LINESPACES 66
24#define INDENTSPACES 3
25
26extern int yylineno;
27extern int dumpic;
28extern int memdump;
29extern int dbgflag;
30extern int nowarnflag;
31extern int nocommentflag;
32extern int verbose;
33extern int dumpcore;
34#define TEST if(dbgflag)
35#define efgetc (efmacp?*efmacp++:getc(yyin))
36extern char msg[];
37
38#define UNIX 1
39#define GCOS 2
40#define GCOSBCD 3
41
42#define FIELDMAX 32768.
43
44typedef *ptr;
45#define ALLOC(x) intalloc(sizeof(struct x))
46
47extern FILE *diagfile;
48extern FILE *codefile;
49extern FILE *yyin;
50extern FILE *fileptrs[];
51extern char *filenames[];
52extern int filelines[];
53extern int filedepth;
54extern char *efmacp;
55extern int filemacs[];
56extern int pushchars[];
57
58extern struct fileblock *iifilep;
59
60extern int mem[];
61extern unsigned int nmemused;
62extern long int totfreed;
63extern long int totalloc;
64
65extern int nhid[];
66extern int ndecl[];
67
68extern int indifs[];
69extern int nxtindif;
70extern int afterif;
71
72extern neflnames;
73
74extern int nftnch;
75extern int nftncont;
76
77extern char ftnames[MAXFTNAMES][7];
78extern int nftnames;
79extern int nftnm0;
80extern int impltype[];
81extern int ftnmask[];
82
83extern double fieldmax;
84extern int ftnefl[];
85extern int eflftn[];
86
87extern ptr thisexec;
88extern ptr thisctl;
89extern int pushlex;
90extern int igeol;
91extern int ateof;
92extern int eofneed;
93extern int forcerr;
94extern int comneed;
95extern int optneed;
96extern int defneed;
97extern int lettneed;
98
99extern int prevbg;
100
101extern ptr hidlist;
102extern ptr commonlist;
103extern ptr tempvarlist;
104extern ptr temptypelist;
105extern ptr gonelist;
106extern int blklevel;
107extern int ctllevel;
108extern int dclsect;
109extern int instruct;
110extern int inbound;
111extern int inproc;
112
113extern int ncases;
114extern ptr comments;
115extern ptr prevcomments;
116extern ptr genequivs;
117extern ptr arrays;
118extern ptr generlist;
119extern ptr knownlist;
120
121extern int graal;
122extern ptr thisproc;
123extern ptr thisargs;
124
125extern int langopt;
126extern int dotsopt;
127extern int dbgopt;
128extern int dbglevel;
129
130extern int stnos[];
131extern int nxtstno;
132extern int constno;
133extern int labno;
134extern int nerrs;
135extern int nbad;
136extern int nwarns;
137
138struct headbits
139 {
140 int tag:8;
141 int subtype:8;
142 int blklevel:8;
143 };
144
145extern struct fileblock
146 {
147 FILE *fileptr;
148 char filename[20];
149 };
150
151extern struct fileblock *ibfile;
152extern struct fileblock *icfile;
153extern struct fileblock *idfile;
154extern struct fileblock *iefile;
155
156extern struct chain
157 {
158 ptr nextp;
159 ptr datap;
160 } ;
161
162typedef struct chain *chainp;
163
164extern struct comentry
165 {
166 struct headbits header;
167 char comname[7];
168 long int comleng;
169 int cominit:2;
170 chainp comchain;
171 } ;
172
173extern struct stentry
174 {
175 struct headbits header;
176 char *namep;
177 ptr varp;
178 int hashval;
179 };
180
181extern struct stentry *hashtab[];
182extern struct stentry **hashend;
183
184extern struct typeblock
185 {
186 struct headbits header;
187 ptr sthead;
188 ptr strdesc;
189 int stralign;
190 int strsize;
191 int basetypes;
192 } ;
193
194extern struct keyblock
195 {
196 struct headbits header;
197 ptr sthead;
198 } ;
199
200
201extern struct varblock
202 {
203 struct headbits header;
204 ptr sthead;
205 ptr vinit;
206 int vadjdim:1;
207 int vdcldone:1;
208 int vdclstart:1;
209 int vnamedone:1;
210 int vprec:1;
211 int vext:1;
212 int vproc:2;
213 int needpar:1;
214 int vtype:4;
215 int vclass:3;
216 ptr vtypep;
217 ptr vdim;
218 ptr vsubs;
219 ptr voffset;
220 int vextbase;
221 int vbase[NFTNTYPES];
222 } ;
223
224extern struct atblock
225 {
226 int atprec;
227 int attype;
228 int atext;
229 int atclass;
230 ptr attypep;
231 ptr atcommon;
232 ptr atdim;
233 } ;
234
235extern struct dimblock
236 {
237 ptr nextp;
238 ptr lowerb;
239 ptr upperb;
240 } ;
241
242extern struct exprblock /* must be same size as varblock */
243 {
244 struct headbits header;
245 ptr leftp;
246 ptr rightp;
247 int vadjdim:1;
248 int vdcldone:1;
249 int vdclstart:1;
250 int vnamedone:1;
251 int vprec:1;
252 int vext:1;
253 int vproc:2;
254 int needpar:1;
255 int vtype:4;
256 int vclass:3;
257 ptr vtypep;
258 ptr vdim;
259 ptr vsubs;
260 ptr voffset;
261 int vextbase;
262 int vbase[NFTNTYPES];
263 } ;
264
265
266typedef union { struct varblock ; struct exprblock; } *nodep;
267
268extern struct execblock
269 {
270 struct headbits header;
271 ptr temps;
272 int labelno;
273 int uniffable:1;
274 int brnchend:1;
275 int labeled:1;
276 int copylab:1;
277 int labdefined:1;
278 int labused:1;
279 int labinacc:1;
280 ptr execdesc;
281 ptr prevexec;
282 int nxtlabno;
283 int nftnst;
284 } ;
285
286
287extern struct ctlblock /* must be same size as execblock */
288 {
289 struct headbits header;
290 ptr loopvar;
291 ptr loopctl;
292 ptr prevctl;
293 int nextlab;
294 int breaklab;
295 int xlab;
296 int indifn;
297 } ;
298
299extern struct caseblock
300 {
301 struct headbits header;
302 ptr nextcase;
303 int labelno;
304 int uniffable:1;
305 int brnchend:1;
306 int labeled:1;
307 int copylab:1;
308 int labdefined:1;
309 int labused:1;
310 int labinacc:1;
311 ptr casexpr;
312 } ;
313
314extern struct labelblock
315 {
316 struct headbits header;
317 ptr sthead;
318 int labelno;
319 int uniffable:1;
320 int brnchend:1;
321 int labeled:1;
322 int copylab:1;
323 int labdefined:1;
324 int labused:1;
325 int labinacc:1;
326 } ;
327
328extern struct defblock
329 {
330 struct headbits header;
331 ptr sthead;
332 char *valp;
333 } ;
334
335extern struct doblock
336 {
337 struct headbits header;
338 ptr dovar;
339 ptr dopar[3];
340 } ;
341
342extern struct fieldspec
343 {
344 struct headbits header;
345 int flbound;
346 int frange;
347 int frshift;
348 int fanymore;
349 } ;
350
351
352extern struct genblock
353 {
354 struct headbits header;
355 ptr nextgenf;
356 char *genname;
357 char *genfname[NEFLTYPES];
358 int genftype[NEFLTYPES];
359 } ;
360
361
362extern struct knownname
363 {
364 struct headbits header;
365 ptr nextfunct;
366 char *funcname;
367 int functype;
368 } ;
369
370extern struct iostblock
371 {
372 struct headbits header;
373 ptr leftp; /* padding */
374 ptr right; /* padding */
375 int vadjdim:1;
376 int vdcldone:1;
377 int vdclstart:1;
378 int vnamedone:1;
379 int vprec:1;
380 int vext:1;
381 int vproc:2;
382 int needpar:1;
383 int vtype:4;
384 int vclass:3;
385 int iokwd;
386 ptr iounit;
387 ptr iolist;
388 int iojunk[7]; /* padding */
389 } ;
390
391extern struct ioitem
392 {
393 struct headbits header;
394 ptr ioexpr;
395 char *iofmt;
396 } ;
397
398
399extern struct tailoring
400 {
401 int ftnsys;
402 int errmode;
403 int charcomp;
404 int ftnin;
405 int ftnout;
406 int ftncontnu;
407 char *procheader;
408 int ftnchwd;
409 int ftnsize[NFTNTYPES];
410 int ftnalign[NFTNTYPES];
411 char *dfltfmt[NEFLTYPES];
412 int hollincall;
413 int deltastno;
414 int dclintrinsics;
415 } tailor;
416\f
417/*Block tags */
418
419#define TAROP 1
420#define TASGNOP 2
421#define TLOGOP 3
422#define TRELOP 4
423#define TCALL 5
424#define TREPOP 6
425#define TLIST 7
426#define TCONST 8
427#define TNAME 9
428#define TERROR 10
429#define TCOMMON 11
430#define TSTRUCT 12
431#define TSTFUNCT 13
432#define TEXEC 14
433#define TTEMP 15
434#define TDEFINE 16
435#define TKEYWORD 17
436#define TLABEL 18
437#define TCASE 19
438#define TNOTOP 20
439#define TNEGOP 21
440#define TDOBLOCK 22
441#define TCONTROL 23
442#define TKNOWNFUNCT 24
443#define TFIELD 25
444#define TGENERIC 26
445#define TIOSTAT 27
446
447/* Operator subtypes */
448
449#define OPPLUS 1
450#define OPMINUS 2
451#define OPSTAR 3
452#define OPSLASH 4
453#define OPPOWER 5
454
455#define OPNOT 6
456#define OPAND 7
457#define OP2AND 8
458#define OP2OR 9
459#define OPOR 10
460
461#define OPEQ 11
462#define OPLT 12
463#define OPGT 13
464#define OPLE 14
465#define OPGE 15
466#define OPNE 16
467
468#define OPLPAR 17
469#define OPRPAR 18
470#define OPEQUALS 19
471#define OPCOMMA 20
472
473#define OPASGN 0
474#define OPREL 0
475
476
477/* Simplification types */
478
479#define LVAL 1
480#define RVAL 2
481#define SUBVAL 3
482#define IFVAL 4
483
484
485/* Parser return values */
486
487#define PARSERR 1
488#define PARSEOF 2
489#define PARSOPT 3
490#define PARSDCL 4
491#define PARSDEF 5
492#define PARSPROC 6
493\f
494
495/* Symbol table types */
496
497#define TYUNDEFINED 0
498#define TYINT 1
499#define TYREAL 2
500#define TYLREAL 3
501#define TYLOG 4
502#define TYCOMPLEX 5
503#define TYCHAR 6
504#define TYSTRUCT 7
505#define TYLABEL 8
506#define TYSUBR 9
507#define TYFIELD 10
508#define TYHOLLERITH 11
509
510
511
512/* Fortran types */
513
514#define FTNINT 0
515#define FTNREAL 1
516#define FTNLOG 2
517#define FTNCOMPLEX 3
518#define FTNDOUBLE 4
519#define FTNCHAR 5
520
521
522
523/* symbol table classes */
524
525#define CLUNDEFINED 0
526#define CLARG 1
527#define CLVALUE 2
528#define CLSTAT 3
529#define CLAUTO 4
530#define CLCOMMON 5
531#define CLMOS 6
532#define CLEXT 7
533
534
535/* values of vproc */
536
537#define PROCUNKNOWN 0
538#define PROCNO 1
539#define PROCYES 2
540#define PROCINTRINSIC 3
541
542
543
544/* ctlblock subtypes */
545
546#define STNULL 1
547#define STIF 2
548#define STIFELSE 3
549#define STREPEAT 4
550#define STWHILE 5
551#define STFOR 6
552#define STDO 7
553#define STSWITCH 8
554#define STRETURN 9
555#define STGOTO 10
556#define STCALL 11
557#define STPROC 12
558
559
560
561/* intermediate code definitions */
562
563#define ICEOF 0
564#define ICBEGIN 1
565#define ICKEYWORD 2
566#define ICOP 3
567#define ICNAME 4
568#define ICCONST 5
569#define ICLABEL 6
570#define ICMARK 7
571#define ICINDENT 8
572#define ICCOMMENT 9
573#define ICINDPTR 10
574#define ICBLANK 11
575
576#define FCONTINUE 2
577#define FCALL 3
578#define FDO 4
579#define FIF1 5
580#define FIF2 6
581#define FGOTO 7
582#define FRETURN 8
583#define FREAD 9
584#define FWRITE 10
585#define FFORMAT 11
586#define FSTOP 12
587#define FDATA 13
588#define FEQUIVALENCE 14
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.