18 typedef struct { Tatype tag; } *atype;
21 extern __inline__ Tatype tatype(atype t)
25 #else /* ! __GNUC__ */
26 extern Tatype tatype PROTO((atype));
27 #endif /* ! __GNUC__ */
36 extern atype mkatc PROTO((unkId, list, long));
39 extern __inline__ unkId *Rgatcid(struct Satc *t)
43 fprintf(stderr,"gatcid: illegal selection; was %d\n", t -> tag);
44 #endif /* UGEN_DEBUG */
45 return(& t -> Xgatcid);
47 #else /* ! __GNUC__ */
48 extern unkId *Rgatcid PROTO((struct Satc *));
49 #endif /* ! __GNUC__ */
51 #define gatcid(xyzxyz) (*Rgatcid((struct Satc *) (xyzxyz)))
54 extern __inline__ list *Rgatctypel(struct Satc *t)
58 fprintf(stderr,"gatctypel: illegal selection; was %d\n", t -> tag);
59 #endif /* UGEN_DEBUG */
60 return(& t -> Xgatctypel);
62 #else /* ! __GNUC__ */
63 extern list *Rgatctypel PROTO((struct Satc *));
64 #endif /* ! __GNUC__ */
66 #define gatctypel(xyzxyz) (*Rgatctypel((struct Satc *) (xyzxyz)))
69 extern __inline__ long *Rgatcline(struct Satc *t)
73 fprintf(stderr,"gatcline: illegal selection; was %d\n", t -> tag);
74 #endif /* UGEN_DEBUG */
75 return(& t -> Xgatcline);
77 #else /* ! __GNUC__ */
78 extern long *Rgatcline PROTO((struct Satc *));
79 #endif /* ! __GNUC__ */
81 #define gatcline(xyzxyz) (*Rgatcline((struct Satc *) (xyzxyz)))