23 typedef struct { Ttree tag; } *tree;
27 extern __inline__ Ttree ttree(tree t)
31 #else /* ! __GNUC__ */
32 extern Ttree ttree PROTO((tree));
33 #endif /* ! __GNUC__ */
69 extern tree mktypdef PROTO((id, tree));
72 id *Rgtid PROTO((struct Stypdef *));
74 extern __inline__ id *Rgtid(struct Stypdef *t)
77 if(t -> tag != typdef)
78 fprintf(stderr,"gtid: illegal selection; was %d\n", t -> tag);
79 #endif /* UGEN_DEBUG */
82 #else /* ! __GNUC__ */
83 extern id *Rgtid PROTO((struct Stypdef *));
84 #endif /* ! __GNUC__ */
86 #define gtid(xyzxyz) (*Rgtid((struct Stypdef *) (xyzxyz)))
89 tree *Rgtdeflist PROTO((struct Stypdef *));
91 extern __inline__ tree *Rgtdeflist(struct Stypdef *t)
94 if(t -> tag != typdef)
95 fprintf(stderr,"gtdeflist: illegal selection; was %d\n", t -> tag);
96 #endif /* UGEN_DEBUG */
97 return(& t -> Xgtdeflist);
99 #else /* ! __GNUC__ */
100 extern tree *Rgtdeflist PROTO((struct Stypdef *));
101 #endif /* ! __GNUC__ */
103 #define gtdeflist(xyzxyz) (*Rgtdeflist((struct Stypdef *) (xyzxyz)))
105 extern tree mkdeflist PROTO((tree, tree));
108 tree *Rgdeflist PROTO((struct Sdeflist *));
110 extern __inline__ tree *Rgdeflist(struct Sdeflist *t)
113 if(t -> tag != deflist)
114 fprintf(stderr,"gdeflist: illegal selection; was %d\n", t -> tag);
115 #endif /* UGEN_DEBUG */
116 return(& t -> Xgdeflist);
118 #else /* ! __GNUC__ */
119 extern tree *Rgdeflist PROTO((struct Sdeflist *));
120 #endif /* ! __GNUC__ */
122 #define gdeflist(xyzxyz) (*Rgdeflist((struct Sdeflist *) (xyzxyz)))
125 tree *Rgdef PROTO((struct Sdeflist *));
127 extern __inline__ tree *Rgdef(struct Sdeflist *t)
130 if(t -> tag != deflist)
131 fprintf(stderr,"gdef: illegal selection; was %d\n", t -> tag);
132 #endif /* UGEN_DEBUG */
133 return(& t -> Xgdef);
135 #else /* ! __GNUC__ */
136 extern tree *Rgdef PROTO((struct Sdeflist *));
137 #endif /* ! __GNUC__ */
139 #define gdef(xyzxyz) (*Rgdef((struct Sdeflist *) (xyzxyz)))
141 extern tree mkdef PROTO((id, tree));
144 id *Rgdid PROTO((struct Sdef *));
146 extern __inline__ id *Rgdid(struct Sdef *t)
150 fprintf(stderr,"gdid: illegal selection; was %d\n", t -> tag);
151 #endif /* UGEN_DEBUG */
152 return(& t -> Xgdid);
154 #else /* ! __GNUC__ */
155 extern id *Rgdid PROTO((struct Sdef *));
156 #endif /* ! __GNUC__ */
158 #define gdid(xyzxyz) (*Rgdid((struct Sdef *) (xyzxyz)))
161 tree *Rgditemlist PROTO((struct Sdef *));
163 extern __inline__ tree *Rgditemlist(struct Sdef *t)
167 fprintf(stderr,"gditemlist: illegal selection; was %d\n", t -> tag);
168 #endif /* UGEN_DEBUG */
169 return(& t -> Xgditemlist);
171 #else /* ! __GNUC__ */
172 extern tree *Rgditemlist PROTO((struct Sdef *));
173 #endif /* ! __GNUC__ */
175 #define gditemlist(xyzxyz) (*Rgditemlist((struct Sdef *) (xyzxyz)))
177 extern tree mkitemlist PROTO((tree, tree));
180 tree *Rgitemlist PROTO((struct Sitemlist *));
182 extern __inline__ tree *Rgitemlist(struct Sitemlist *t)
185 if(t -> tag != itemlist)
186 fprintf(stderr,"gitemlist: illegal selection; was %d\n", t -> tag);
187 #endif /* UGEN_DEBUG */
188 return(& t -> Xgitemlist);
190 #else /* ! __GNUC__ */
191 extern tree *Rgitemlist PROTO((struct Sitemlist *));
192 #endif /* ! __GNUC__ */
194 #define gitemlist(xyzxyz) (*Rgitemlist((struct Sitemlist *) (xyzxyz)))
197 tree *Rgitem PROTO((struct Sitemlist *));
199 extern __inline__ tree *Rgitem(struct Sitemlist *t)
202 if(t -> tag != itemlist)
203 fprintf(stderr,"gitem: illegal selection; was %d\n", t -> tag);
204 #endif /* UGEN_DEBUG */
205 return(& t -> Xgitem);
207 #else /* ! __GNUC__ */
208 extern tree *Rgitem PROTO((struct Sitemlist *));
209 #endif /* ! __GNUC__ */
211 #define gitem(xyzxyz) (*Rgitem((struct Sitemlist *) (xyzxyz)))
213 extern tree mkemitemlist PROTO((void));
215 extern tree mkitem PROTO((id, id));
218 id *Rgitemfunid PROTO((struct Sitem *));
220 extern __inline__ id *Rgitemfunid(struct Sitem *t)
224 fprintf(stderr,"gitemfunid: illegal selection; was %d\n", t -> tag);
225 #endif /* UGEN_DEBUG */
226 return(& t -> Xgitemfunid);
228 #else /* ! __GNUC__ */
229 extern id *Rgitemfunid PROTO((struct Sitem *));
230 #endif /* ! __GNUC__ */
232 #define gitemfunid(xyzxyz) (*Rgitemfunid((struct Sitem *) (xyzxyz)))
235 id *Rgitemtypid PROTO((struct Sitem *));
237 extern __inline__ id *Rgitemtypid(struct Sitem *t)
241 fprintf(stderr,"gitemtypid: illegal selection; was %d\n", t -> tag);
242 #endif /* UGEN_DEBUG */
243 return(& t -> Xgitemtypid);
245 #else /* ! __GNUC__ */
246 extern id *Rgitemtypid PROTO((struct Sitem *));
247 #endif /* ! __GNUC__ */
249 #define gitemtypid(xyzxyz) (*Rgitemtypid((struct Sitem *) (xyzxyz)))