![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to defines.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / usr.bin / f77 / include|
Return to defines.h CVS log | Up to [CSRG BSD Unix] / 43BSD / usr.bin / f77 / include |
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)defines.h 5.2 (Berkeley) 8/28/85
7: */
8:
9: /*
10: * defines.h
11: *
12: * Global definitions for the first pass of the f77 compiler, Unix 4.3 BSD.
13: *
14: * University of Utah CS Dept modification history:
15: *
16: * $Log: defines.h,v $
17: * Revision 5.2 85/08/10 05:11:20 donn
18: * Added comment header; added Jerry Berkman's changes to delete INTRCNST
19: * and to ifdef 66 code.
20: *
21: */
22:
23: #define INTERDATA 2
24: #define GCOS 3
25: #define PDP11 4
26: #define IBM 5
27: #define CMACH 6
28: #define VAX 7
29:
30: #define DMR 2
31: #define PCC 3
32:
33: #ifndef FAMILY
34: FAMILY NOT DEFINED !!!
35: Family = FAMILY
36: #endif
37:
38: #ifndef HERE
39: HERE NOT DEFINED !!!!
40: Here = HERE
41: #endif
42:
43: #define M(x) (1<<x)
44: #define ALLOC(x) (struct x *) ckalloc(sizeof(struct x))
45: #define ALLOCN(n,x) (struct x *) ckalloc(n*sizeof(struct x))
46: #define ALLEXPR (expptr) ckalloc( sizeof(union Expression) )
47: typedef int *ptr;
48: typedef char *charptr;
49: typedef FILE *FILEP;
50: typedef short flag;
51: typedef char field; /* actually need only 4 bits */
52: typedef long int ftnint;
53: #define LOCAL static
54:
55: #define NO 0
56: #define YES 1
57:
58: #define CNULL (char *) 0
59: #define PNULL (ptr) 0
60: #define CHNULL (chainp) 0
61: #define ENULL (expptr) 0
62:
63:
64:
65: /* block tag values */
66:
67: #define TNAME 1
68: #define TCONST 2
69: #define TEXPR 3
70: #define TADDR 4
71: #define TTEMP 5
72: #define TPRIM 6
73: #define TLIST 7
74: #define TIMPLDO 8
75: #define TERROR 9
76:
77:
78: /* parser states */
79:
80: #define OUTSIDE 0
81: #define INSIDE 1
82: #define INDCL 2
83: #define INDATA 3
84: #define INEXEC 4
85:
86: /* procedure classes */
87:
88: #define PROCMAIN 1
89: #define PROCBLOCK 2
90: #define PROCSUBR 3
91: #define PROCFUNCT 4
92:
93:
94: /* storage classes -- vstg values */
95:
96: #define STGUNKNOWN 0
97: #define STGARG 1
98: #define STGAUTO 2
99: #define STGBSS 3
100: #define STGINIT 4
101: #define STGCONST 5
102: #define STGEXT 6
103: #define STGINTR 7
104: #define STGSTFUNCT 8
105: #define STGCOMMON 9
106: #define STGEQUIV 10
107: #define STGREG 11
108: #define STGLENG 12
109: #define STGNULL 13
110: #define STGPREG 14
111:
112: /* name classes -- vclass values */
113:
114: #define CLUNKNOWN 0
115: #define CLPARAM 1
116: #define CLVAR 2
117: #define CLENTRY 3
118: #define CLMAIN 4
119: #define CLBLOCK 5
120: #define CLPROC 6
121: #define CLNAMELIST 7
122:
123:
124: /* vprocclass values */
125:
126: #define PUNKNOWN 0
127: #define PEXTERNAL 1
128: #define PINTRINSIC 2
129: #define PSTFUNCT 3
130: #define PTHISPROC 4
131:
132: /* control stack codes */
133:
134: #define CTLDO 1
135: #define CTLIF 2
136: #define CTLELSE 3
137:
138:
139: /* operators -- see also arrays 'ops' and 'ops2' in put.c */
140:
141: #define OPPLUS 1
142: #define OPMINUS 2
143: #define OPSTAR 3
144: #define OPSLASH 4
145: #define OPPOWER 5
146: #define OPNEG 6
147: #define OPOR 7
148: #define OPAND 8
149: #define OPEQV 9
150: #define OPNEQV 10
151: #define OPNOT 11
152: #define OPCONCAT 12
153: #define OPLT 13
154: #define OPEQ 14
155: #define OPGT 15
156: #define OPLE 16
157: #define OPNE 17
158: #define OPGE 18
159: #define OPCALL 19
160: #define OPCCALL 20
161: #define OPASSIGN 21
162: #define OPPLUSEQ 22
163: #define OPSTAREQ 23
164: #define OPCONV 24
165: #define OPLSHIFT 25
166: #define OPMOD 26
167: #define OPCOMMA 27
168: #define OPQUEST 28
169: #define OPCOLON 29
170: #define OPABS 30
171: #define OPMIN 31
172: #define OPMAX 32
173: #define OPADDR 33
174: #define OPINDIRECT 34
175: #define OPBITOR 35
176: #define OPBITAND 36
177: #define OPBITXOR 37
178: #define OPBITNOT 38
179: #define OPRSHIFT 39
180: #define OPPAREN 40
181: #define OPUNARYPLUS 41
182:
183:
184: /* label type codes */
185:
186: #define LABUNKNOWN 0
187: #define LABEXEC 1
188: #define LABFORMAT 2
189: #define LABOTHER 3
190:
191:
192: /* INTRINSIC function codes*/
193:
194: #define INTREND 0
195: #define INTRCONV 1
196: #define INTRMIN 2
197: #define INTRMAX 3
198: #define INTRGEN 4
199: #define INTRSPEC 5
200: #define INTRBOOL 6
201:
202:
203: /* I/O statement codes */
204:
205: #define IOSTDIN ICON(5)
206: #define IOSTDOUT ICON(6)
207: #define IOSTDERR ICON(0)
208:
209: #define IOSBAD (-1)
210: #define IOSPOSITIONAL 0
211: #define IOSUNIT 1
212: #define IOSFMT 2
213:
214: #define IOINQUIRE 1
215: #define IOOPEN 2
216: #define IOCLOSE 3
217: #define IOREWIND 4
218: #define IOBACKSPACE 5
219: #define IOENDFILE 6
220: #define IOREAD 7
221: #define IOWRITE 8
222:
223:
224: /* type masks */
225:
226: #define MSKLOGICAL M(TYLOGICAL)
227: #define MSKADDR M(TYADDR)
228: #define MSKCHAR M(TYCHAR)
229: #define MSKINT M(TYSHORT)|M(TYLONG)
230: #define MSKREAL M(TYREAL)|M(TYDREAL)
231: #define MSKCOMPLEX M(TYCOMPLEX)|M(TYDCOMPLEX)
232: #define MSKSTATIC (M(STGINIT)|M(STGBSS)|M(STGCOMMON)|M(STGEQUIV)|M(STGCONST))
233:
234: /* miscellaneous macros */
235:
236: #define ONEOF(x,y) (M(x) & (y))
237: #define ISCOMPLEX(z) ONEOF(z, MSKCOMPLEX)
238: #define ISREAL(z) ONEOF(z, MSKREAL)
239: #define ISNUMERIC(z) ONEOF(z, MSKINT|MSKREAL|MSKCOMPLEX)
240: #define ISICON(z) (z->tag==TCONST && ISINT(z->constblock.vtype))
241: #define ISCHAR(z) (z->headblock.vtype==TYCHAR)
242: #define ISINT(z) ONEOF(z, MSKINT)
243: #define ISCONST(z) (z->tag==TCONST)
244: #define ISERROR(z) (z->tag==TERROR)
245: #define ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)
246: #define ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)
247: #define ISONE(z) (ISICON(z) && z->constblock.const.ci==1)
248: #define INT(z) ONEOF(z, MSKINT|MSKCHAR)
249: #define ICON(z) mkintcon( (ftnint)(z) )
250:
251: #ifdef ONLY66
252: #define NO66(s) if(no66flag) err66(s)
253: #define NOEXT(s) if(noextflag) errext(s)
254: #else
255: #define NO66(s)
256: #define NOEXT(s)
257: #endif
258:
259: /* round a up to a multiple of b */
260: #define roundup(a,b) ( b * ( (a+b-1)/b) )
261:
262:
263: /* optimization buffer slot types */
264:
265: #define SKNULL 0
266: #define SKIFN 1
267: #define SKGOTO 2
268: #define SKLABEL 3
269: #define SKEQ 4
270: #define SKCALL 5
271: #define SKCMGOTO 6
272: #define SKSTOP 7
273: #define SKDOHEAD 8
274: #define SKENDDO 9
275: #define SKARIF 10
276: #define SKRETURN 11
277: #define SKASGOTO 12
278: #define SKPAUSE 13
279: #define SKASSIGN 14
280: #define SKIOIFN 15
281: #define SKFRTEMP 16
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.