|
|
1.1 root 1: /*
2: * Sydney C Compiler.
3: *
4: * Copyright 1984, Bruce Ellis.
5: *
6: * Unauthorised possesion, sale or use prohibited.
7: */
8:
9: /*
10: * Note. Any modification to this enum should be matched by an equivalent
11: * entry in "sutab.c" and a string in "debug.c"
12: */
13: typedef enum
14: {
15: xt_and,
16: xt_andand,
17: xt_andeq,
18: xt_argident,
19: xt_argname,
20: xt_arrayof,
21: xt_bar,
22: xt_barbar,
23: xt_bareq,
24: xt_basetype,
25: xt_bitfield,
26: xt_block,
27: xt_caddr,
28: xt_call,
29: xt_cast,
30: xt_cchar,
31: xt_cdouble,
32: xt_cfloat,
33: xt_cint,
34: xt_class,
35: xt_clong,
36: xt_cnull,
37: xt_colon,
38: xt_comma,
39: xt_cuint,
40: xt_culong,
41: xt_do,
42: xt_dot,
43: xt_enum,
44: xt_eq,
45: xt_eqeq,
46: xt_expr,
47: xt_extf,
48: xt_ftnreturning,
49: xt_grgreq,
50: xt_grt,
51: xt_grteq,
52: xt_grtgrt,
53: xt_if,
54: xt_insf,
55: xt_less,
56: xt_lesseq,
57: xt_lessless,
58: xt_literal,
59: xt_lslseq,
60: xt_maxof,
61: xt_memblist,
62: xt_minof,
63: xt_minus,
64: xt_minuseq,
65: xt_name,
66: xt_not,
67: xt_noteq,
68: xt_null,
69: xt_obj,
70: xt_percent,
71: xt_pereq,
72: xt_plus,
73: xt_pluseq,
74: xt_postdec,
75: xt_postinc,
76: xt_predec,
77: xt_preinc,
78: xt_ptrdiff,
79: xt_ptrminus,
80: xt_ptrminuseq,
81: xt_ptrplus,
82: xt_ptrpluseq,
83: xt_ptrpostdec,
84: xt_ptrpostinc,
85: xt_ptrpredec,
86: xt_ptrpreinc,
87: xt_ptrto,
88: xt_question,
89: xt_sizeof,
90: xt_slash,
91: xt_slasheq,
92: xt_sref,
93: xt_string,
94: xt_structof,
95: xt_svalue,
96: xt_tilda,
97: xt_times,
98: xt_timeseq,
99: xt_uand,
100: xt_uminus,
101: xt_unionof,
102: xt_uparrow,
103: xt_uparroweq,
104: xt_utimes,
105: xt_while,
106: }
107: xnodes;
108:
109: #define SAMESU 1
110: #define MAXSU 255
111:
112: typedef enum
113: {
114: su_arrayof,
115: su_basetype,
116: su_bitfield,
117: su_enum,
118: su_ftnreturning,
119: su_ptrto,
120: su_structof,
121: su_unionof,
122: su_types,
123:
124: su_null,
125:
126: su_and,
127: su_bar,
128: su_plus,
129: su_times,
130: su_uparrow,
131: }
132: suequivs;
133:
134: typedef struct
135: {
136: char *xd_name;
137: pack_t xd_suequiv;
138: }
139: xdopes;
140:
141: #define xunpack(t) ((xnodes)(t))
142: #define sunpack(t) ((suequivs)(t))
143:
144: extern xdopes xdope[];
145: extern uchar sutab[];
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.