24 typedef struct { Timpidt tag; } *impidt;
26 /* Compatibility defines */
27 extern Timpidt timpidt PROTO((impidt));
82 extern impidt mkimpid PROTO((id, ttype, finfot, long));
83 extern id *Rgimpid PROTO((struct Simpid *));
84 #define gimpid(xyzxyz) (*Rgimpid((struct Simpid *) (xyzxyz)))
85 extern ttype *Rgimptype PROTO((struct Simpid *));
86 #define gimptype(xyzxyz) (*Rgimptype((struct Simpid *) (xyzxyz)))
87 extern finfot *Rgimpfinfo PROTO((struct Simpid *));
88 #define gimpfinfo(xyzxyz) (*Rgimpfinfo((struct Simpid *) (xyzxyz)))
89 extern long *Rgivline PROTO((struct Simpid *));
90 #define givline(xyzxyz) (*Rgivline((struct Simpid *) (xyzxyz)))
92 extern impidt mkimptype PROTO((list, ttype, list, long));
93 extern list *Rgimptypec PROTO((struct Simptype *));
94 #define gimptypec(xyzxyz) (*Rgimptypec((struct Simptype *) (xyzxyz)))
95 extern ttype *Rgimptypet PROTO((struct Simptype *));
96 #define gimptypet(xyzxyz) (*Rgimptypet((struct Simptype *) (xyzxyz)))
97 extern list *Rgimptyped PROTO((struct Simptype *));
98 #define gimptyped(xyzxyz) (*Rgimptyped((struct Simptype *) (xyzxyz)))
99 extern long *Rgitline PROTO((struct Simptype *));
100 #define gitline(xyzxyz) (*Rgitline((struct Simptype *) (xyzxyz)))
102 extern impidt mkimpsyn PROTO((ttype, ttype, long));
103 extern ttype *Rgimpsynti PROTO((struct Simpsyn *));
104 #define gimpsynti(xyzxyz) (*Rgimpsynti((struct Simpsyn *) (xyzxyz)))
105 extern ttype *Rgimpsynts PROTO((struct Simpsyn *));
106 #define gimpsynts(xyzxyz) (*Rgimpsynts((struct Simpsyn *) (xyzxyz)))
107 extern long *Rgisline PROTO((struct Simpsyn *));
108 #define gisline(xyzxyz) (*Rgisline((struct Simpsyn *) (xyzxyz)))
110 extern impidt mkimpeqtype PROTO((binding));
111 extern binding *Rgimpeqtype PROTO((struct Simpeqtype *));
112 #define gimpeqtype(xyzxyz) (*Rgimpeqtype((struct Simpeqtype *) (xyzxyz)))
114 extern impidt mkimpclass PROTO((list, ttype, list, long));
115 extern list *Rgimpclassc PROTO((struct Simpclass *));
116 #define gimpclassc(xyzxyz) (*Rgimpclassc((struct Simpclass *) (xyzxyz)))
117 extern ttype *Rgimpclasst PROTO((struct Simpclass *));
118 #define gimpclasst(xyzxyz) (*Rgimpclasst((struct Simpclass *) (xyzxyz)))
119 extern list *Rgimpclassw PROTO((struct Simpclass *));
120 #define gimpclassw(xyzxyz) (*Rgimpclassw((struct Simpclass *) (xyzxyz)))
121 extern long *Rgicline PROTO((struct Simpclass *));
122 #define gicline(xyzxyz) (*Rgicline((struct Simpclass *) (xyzxyz)))
124 extern impidt mkimpinst PROTO((list, id, ttype, long));
125 extern list *Rgimpinstc PROTO((struct Simpinst *));
126 #define gimpinstc(xyzxyz) (*Rgimpinstc((struct Simpinst *) (xyzxyz)))
127 extern id *Rgimpinstid PROTO((struct Simpinst *));
128 #define gimpinstid(xyzxyz) (*Rgimpinstid((struct Simpinst *) (xyzxyz)))
129 extern ttype *Rgimpinstt PROTO((struct Simpinst *));
130 #define gimpinstt(xyzxyz) (*Rgimpinstt((struct Simpinst *) (xyzxyz)))
131 extern long *Rgiiline PROTO((struct Simpinst *));
132 #define giiline(xyzxyz) (*Rgiiline((struct Simpinst *) (xyzxyz)))
134 extern impidt mkimpmod PROTO((id, list, list, long));
135 extern id *Rgimpmodn PROTO((struct Simpmod *));
136 #define gimpmodn(xyzxyz) (*Rgimpmodn((struct Simpmod *) (xyzxyz)))
137 extern list *Rgimpmodimp PROTO((struct Simpmod *));
138 #define gimpmodimp(xyzxyz) (*Rgimpmodimp((struct Simpmod *) (xyzxyz)))
139 extern list *Rgimpmodren PROTO((struct Simpmod *));
140 #define gimpmodren(xyzxyz) (*Rgimpmodren((struct Simpmod *) (xyzxyz)))
141 extern long *Rgimline PROTO((struct Simpmod *));
142 #define gimline(xyzxyz) (*Rgimline((struct Simpmod *) (xyzxyz)))