![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tree_ty.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / src|
Return to tree_ty.h CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / src |
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: * @(#)tree_ty.h 5.1 (Berkeley) 6/5/85
7: */
8:
9: typedef struct /* T_FORU, T_FORD */
10: {
11: int line_no; /* line number of for */
12: struct tnode *init_asg; /* initialization */
13: struct tnode *term_expr; /* termination expresssion */
14: struct tnode *for_stmnt; /* for statement */
15: } FOR_NODE;
16: typedef struct /* T_ASGN */
17: {
18: int line_no; /* line number of := */
19: struct tnode *lhs_var;
20: struct tnode *rhs_expr;
21: } ASG_NODE;
22: #ifndef PTREE
23: typedef struct /* T_VAR */
24: {
25: int line_no;
26: char *cptr;
27: struct tnode *qual; /* list node */
28: } VAR_NODE;
29: typedef struct /* T_FIELD */
30: {
31: char *id_ptr;
32: struct tnode *other;
33: } FIELD_NODE;
34: #else
35: typedef struct /* T_VAR */
36: {
37: int line_no;
38: char *cptr;
39: struct tnode *qual;
40: struct nl *nl_entry;
41: } VAR_NODE;
42: typedef struct /* T_FIELD */
43: {
44: char *id_ptr;
45: struct tnode *other;
46: struct nl *nl_entry;
47: } FIELD_NODE;
48: #endif
49: typedef struct /* T_MOD, T_MULT, T_DIVD, T_DIV,
50: T_AND, T_ADD, T_SUB, T_OR,
51: T_EQ, T_LT, T_GT, T_NE, T_LE
52: T_GE, T_IN */
53: {
54: int const_tag;
55: struct tnode *lhs;
56: struct tnode *rhs;
57: } EXPR_NODE;
58: typedef struct /* T_LISTPP */
59: {
60: struct tnode *list; /* check the types on these,
61: this is used in pclvalue and lvalue */
62: struct tnode *next;
63: } LIST_NODE;
64: typedef struct /* T_IF, T_IFEL, T_IFX */
65: {
66: int line_no;
67: struct tnode *cond_expr;
68: struct tnode *then_stmnt;
69: struct tnode *else_stmnt;
70: } IF_NODE;
71: typedef struct /* T_MINUS, T_PLUS, T_NOT */
72: {
73: int const_tag;
74: struct tnode *expr;
75: } UN_EXPR;
76: typedef struct /* T_PDEC, T_FDEC, T_PROG */
77: {
78: int line_no;
79: char *id_ptr;
80: struct tnode *param_list;
81: struct tnode *type;
82: } P_DEC;
83: typedef struct /* T_PVAL, T_PVAR */
84: {
85: struct tnode *id_list;
86: struct tnode *type;
87: } PARAM;
88: typedef struct /* T_PFUNC, T_PPROC */
89: {
90: struct tnode *id_list,
91: *type,
92: *param_list;
93: int line_no;
94: } PFUNC_NODE;
95: typedef struct /* T_NIL */
96: {
97: int const_tag;
98: } NIL_NODE;
99: typedef struct /* T_STRNG, T_INT, T_FINT, T_BINT */
100: {
101: int const_tag;
102: char *cptr;
103: } CONST_NODE;
104: typedef struct /* T_CSTRNG, T_ID, T_CFINT, T_CINT, T_CBINT */
105: {
106: char *cptr;
107: } CHAR_CONST;
108: typedef struct /* T_PLUSC, T_MINUSC */
109: {
110: struct tnode *number;
111: } SIGN_CONST;
112: #ifdef PTREE
113: typedef struct
114: {
115: int line_no
116: struct tnode *type;
117: struct nl *nl_entry;
118: } COMP_TY;
119: #else
120: typedef struct /* T_TYPACK, T_TYSCAL, T_TYFILE, T_TYSET, T_TYREC */
121: {
122: int line_no;
123: struct tnode *type;
124: } COMP_TY;
125: #endif
126: typedef struct /* T_TYPTR */
127: {
128: int line_no;
129: struct tnode *id_node;
130: } PTR_TY;
131: typedef struct /* T_TYRANG */
132: {
133: int line_no;
134: struct tnode *const1;
135: struct tnode *const2;
136: } RANG_TY;
137: typedef struct /* T_TYCRANG */
138: {
139: int line_no;
140: struct tnode *lwb_var;
141: struct tnode *upb_var;
142: struct tnode *type;
143: } CRANG_TY;
144: typedef struct /* T_TYARY, T_TYCARY */
145: {
146: int line_no;
147: struct tnode *type_list;
148: struct tnode *type;
149: } ARY_TY;
150: typedef struct /* T_TYVARNT */
151: {
152: int line_no;
153: struct tnode *const_list;
154: struct tnode *fld_list;
155: } TYVARNT;
156: typedef struct /* T_TYVARPT */
157: {
158: int line_no;
159: char *cptr;
160: struct tnode *type_id;
161: struct tnode *var_list;
162: } VARPT;
163: typedef struct /* T_CSTAT */
164: {
165: int line_no;
166: struct tnode *const_list;
167: struct tnode *stmnt;
168: } C_STMNT;
169: typedef struct /* T_BSTL, T_BLOCK */
170: {
171: int line_no;
172: struct tnode *stmnt_list;
173: } STMNT_BLCK;
174: typedef struct /* T_FLDLST */
175: {
176: int line_no;
177: struct tnode *fix_list;
178: struct tnode *variant;
179: } FLDLST;
180: typedef struct /* T_RFIELD */
181: {
182: int line_no;
183: struct tnode *id_list;
184: struct tnode *type;
185: } RFIELD;
186: typedef struct /* T_LABEL */
187: {
188: int line_no;
189: char *lbl_ptr;
190: struct tnode *stmnt;
191: } LABEL_NODE;
192: typedef struct /* T_GOTO */
193: {
194: int line_no;
195: char *lbl_ptr;
196: } GOTO_NODE;
197: typedef struct /* T_PCALL, T_FCALL */
198: {
199: int line_no;
200: char *proc_id;
201: struct tnode *arg;
202: } PCALL_NODE;
203: typedef struct /* T_CASE, T_WHILE */
204: {
205: int line_no;
206: struct tnode *expr;
207: struct tnode *stmnt_list;
208: } WHI_CAS;
209: typedef struct /* T_WITH */
210: {
211: int line_no;
212: struct tnode *var_list;
213: struct tnode *stmnt;
214: } WITH_NODE;
215: typedef struct /* T_REPEAT */
216: {
217: int line_no;
218: struct tnode *stmnt_list;
219: struct tnode *term_expr;
220: } REPEAT;
221: typedef struct /* T_RANG */
222: {
223: struct tnode *expr1;
224: struct tnode *expr2;
225: } RANG;
226: typedef struct /* T_CSET */
227: {
228: int const_tag;
229: struct tnode *el_list;
230: } CSET_NODE;
231: typedef struct /* T_ARY */
232: {
233: struct tnode *expr_list;
234: } ARY_NODE;
235: typedef struct /* T_WEXPR */
236: {
237: struct tnode *expr1;
238: struct tnode *expr2;
239: struct tnode *expr3;
240: } WEXPR_NODE;
241: typedef struct /* T_TYID */
242: {
243: int line_no;
244: char *idptr;
245: } TYID_NODE;
246: typedef struct /* anything with linenumber in first field */
247: {
248: int line_no;
249: } LINED;
250:
251: struct tnode
252: {
253: int tag;
254: union
255: {
256: FOR_NODE t_for_node;
257: ASG_NODE t_asg_node;
258: VAR_NODE t_var_node;
259: EXPR_NODE t_expr_node;
260: LIST_NODE t_list_node;
261: IF_NODE t_if_node;
262: UN_EXPR t_un_expr;
263: P_DEC t_p_dec;
264: PARAM t_param;
265: PFUNC_NODE t_pfunc_node;
266: NIL_NODE t_nil_node;
267: CONST_NODE t_const_node;
268: CHAR_CONST t_char_const;
269: SIGN_CONST t_sign_const;
270: COMP_TY t_comp_ty;
271: PTR_TY t_ptr_ty;
272: RANG_TY t_rang_ty;
273: CRANG_TY t_crang_ty;
274: ARY_TY t_ary_ty;
275: VARPT t_varpt;
276: TYVARNT t_tyvarnt;
277: C_STMNT t_c_stmnt;
278: STMNT_BLCK t_stmnt_blck;
279: FLDLST t_fldlst;
280: RFIELD t_rfield;
281: LABEL_NODE t_label_node;
282: PCALL_NODE t_pcall_node;
283: WHI_CAS t_whi_cas;
284: WITH_NODE t_with_node;
285: REPEAT t_repeat;
286: RANG t_rang;
287: CSET_NODE t_cset_node;
288: ARY_NODE t_ary_node;
289: WEXPR_NODE t_wexpr_node;
290: FIELD_NODE t_field_node;
291: TYID_NODE t_tyid_node;
292: LINED t_lined;
293: GOTO_NODE t_goto_node;
294: } tree_ele;
295: };
296:
297: #define for_node tree_ele.t_for_node
298: #define asg_node tree_ele.t_asg_node
299: #define var_node tree_ele.t_var_node
300: #define expr_node tree_ele.t_expr_node
301: #define list_node tree_ele.t_list_node
302: #define if_node tree_ele.t_if_node
303: #define un_expr tree_ele.t_un_expr
304: #define p_dec tree_ele.t_p_dec
305: #define param tree_ele.t_param
306: #define pfunc_node tree_ele.t_pfunc_node
307: #define nil_node tree_ele.t_nil_node
308: #define const_node tree_ele.t_const_node
309: #define char_const tree_ele.t_char_const
310: #define sign_const tree_ele.t_sign_const
311: #define comp_ty tree_ele.t_comp_ty
312: #define ptr_ty tree_ele.t_ptr_ty
313: #define rang_ty tree_ele.t_rang_ty
314: #define crang_ty tree_ele.t_crang_ty
315: #define ary_ty tree_ele.t_ary_ty
316: #define varpt tree_ele.t_varpt
317: #define tyvarnt tree_ele.t_tyvarnt
318: #define c_stmnt tree_ele.t_c_stmnt
319: #define stmnt_blck tree_ele.t_stmnt_blck
320: #define fldlst tree_ele.t_fldlst
321: #define rfield tree_ele.t_rfield
322: #define label_node tree_ele.t_label_node
323: #define pcall_node tree_ele.t_pcall_node
324: #define whi_cas tree_ele.t_whi_cas
325: #define with_node tree_ele.t_with_node
326: #define repeat tree_ele.t_repeat
327: #define rang tree_ele.t_rang
328: #define cset_node tree_ele.t_cset_node
329: #define ary_node tree_ele.t_ary_node
330: #define wexpr_node tree_ele.t_wexpr_node
331: #define field_node tree_ele.t_field_node
332: #define tyid_node tree_ele.t_tyid_node
333: #define lined tree_ele.t_lined
334: #define goto_node tree_ele.t_goto_node
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.