23 typedef struct { Tentidt tag; } *entidt;
26 extern __inline__ Tentidt tentidt(entidt t)
30 #else /* ! __GNUC__ */
31 extern Tentidt tentidt PROTO((entidt));
32 #endif /* ! __GNUC__ */
66 extern entidt mkentid PROTO((stringId));
69 extern __inline__ stringId *Rgentid(struct Sentid *t)
73 fprintf(stderr,"gentid: illegal selection; was %d\n", t -> tag);
74 #endif /* UGEN_DEBUG */
75 return(& t -> Xgentid);
77 #else /* ! __GNUC__ */
78 extern stringId *Rgentid PROTO((struct Sentid *));
79 #endif /* ! __GNUC__ */
81 #define gentid(xyzxyz) (*Rgentid((struct Sentid *) (xyzxyz)))
83 extern entidt mkenttype PROTO((stringId));
86 extern __inline__ stringId *Rgitentid(struct Senttype *t)
89 if(t -> tag != enttype)
90 fprintf(stderr,"gitentid: illegal selection; was %d\n", t -> tag);
91 #endif /* UGEN_DEBUG */
92 return(& t -> Xgitentid);
94 #else /* ! __GNUC__ */
95 extern stringId *Rgitentid PROTO((struct Senttype *));
96 #endif /* ! __GNUC__ */
98 #define gitentid(xyzxyz) (*Rgitentid((struct Senttype *) (xyzxyz)))
100 extern entidt mkenttypeall PROTO((stringId));
103 extern __inline__ stringId *Rgatentid(struct Senttypeall *t)
106 if(t -> tag != enttypeall)
107 fprintf(stderr,"gatentid: illegal selection; was %d\n", t -> tag);
108 #endif /* UGEN_DEBUG */
109 return(& t -> Xgatentid);
111 #else /* ! __GNUC__ */
112 extern stringId *Rgatentid PROTO((struct Senttypeall *));
113 #endif /* ! __GNUC__ */
115 #define gatentid(xyzxyz) (*Rgatentid((struct Senttypeall *) (xyzxyz)))
117 extern entidt mkenttypecons PROTO((stringId, list));
120 extern __inline__ stringId *Rgctentid(struct Senttypecons *t)
123 if(t -> tag != enttypecons)
124 fprintf(stderr,"gctentid: illegal selection; was %d\n", t -> tag);
125 #endif /* UGEN_DEBUG */
126 return(& t -> Xgctentid);
128 #else /* ! __GNUC__ */
129 extern stringId *Rgctentid PROTO((struct Senttypecons *));
130 #endif /* ! __GNUC__ */
132 #define gctentid(xyzxyz) (*Rgctentid((struct Senttypecons *) (xyzxyz)))
135 extern __inline__ list *Rgctentcons(struct Senttypecons *t)
138 if(t -> tag != enttypecons)
139 fprintf(stderr,"gctentcons: illegal selection; was %d\n", t -> tag);
140 #endif /* UGEN_DEBUG */
141 return(& t -> Xgctentcons);
143 #else /* ! __GNUC__ */
144 extern list *Rgctentcons PROTO((struct Senttypecons *));
145 #endif /* ! __GNUC__ */
147 #define gctentcons(xyzxyz) (*Rgctentcons((struct Senttypecons *) (xyzxyz)))
149 extern entidt mkentclass PROTO((stringId, list));
152 extern __inline__ stringId *Rgcentid(struct Sentclass *t)
155 if(t -> tag != entclass)
156 fprintf(stderr,"gcentid: illegal selection; was %d\n", t -> tag);
157 #endif /* UGEN_DEBUG */
158 return(& t -> Xgcentid);
160 #else /* ! __GNUC__ */
161 extern stringId *Rgcentid PROTO((struct Sentclass *));
162 #endif /* ! __GNUC__ */
164 #define gcentid(xyzxyz) (*Rgcentid((struct Sentclass *) (xyzxyz)))
167 extern __inline__ list *Rgcentops(struct Sentclass *t)
170 if(t -> tag != entclass)
171 fprintf(stderr,"gcentops: illegal selection; was %d\n", t -> tag);
172 #endif /* UGEN_DEBUG */
173 return(& t -> Xgcentops);
175 #else /* ! __GNUC__ */
176 extern list *Rgcentops PROTO((struct Sentclass *));
177 #endif /* ! __GNUC__ */
179 #define gcentops(xyzxyz) (*Rgcentops((struct Sentclass *) (xyzxyz)))
181 extern entidt mkentmod PROTO((stringId));
184 extern __inline__ stringId *Rgmentid(struct Sentmod *t)
187 if(t -> tag != entmod)
188 fprintf(stderr,"gmentid: illegal selection; was %d\n", t -> tag);
189 #endif /* UGEN_DEBUG */
190 return(& t -> Xgmentid);
192 #else /* ! __GNUC__ */
193 extern stringId *Rgmentid PROTO((struct Sentmod *));
194 #endif /* ! __GNUC__ */
196 #define gmentid(xyzxyz) (*Rgmentid((struct Sentmod *) (xyzxyz)))