[project @ 1996-01-09 18:40:14 by partain]
[ghc-hetmet.git] / ghc / utils / ugen / tree.h
1 #ifndef tree_defined
2 #define tree_defined
3 typedef enum {
4         typdef,
5         deflist,
6         def,
7         itemlist,
8         emitemlist,
9         item
10 } Ttree;
11
12 typedef struct { Ttree tag; } *tree;
13
14 /* Compatibility defines */
15 extern Ttree ttree();
16
17 #endif
18 extern tree mktypdef();
19 extern id *Rgtid();
20 #define gtid(xyzxyz) (*Rgtid(xyzxyz))
21 extern tree *Rgtdeflist();
22 #define gtdeflist(xyzxyz) (*Rgtdeflist(xyzxyz))
23
24 extern tree mkdeflist();
25 extern tree *Rgdeflist();
26 #define gdeflist(xyzxyz) (*Rgdeflist(xyzxyz))
27 extern tree *Rgdef();
28 #define gdef(xyzxyz) (*Rgdef(xyzxyz))
29
30 extern tree mkdef();
31 extern id *Rgdid();
32 #define gdid(xyzxyz) (*Rgdid(xyzxyz))
33 extern tree *Rgditemlist();
34 #define gditemlist(xyzxyz) (*Rgditemlist(xyzxyz))
35
36 extern tree mkitemlist();
37 extern tree *Rgitemlist();
38 #define gitemlist(xyzxyz) (*Rgitemlist(xyzxyz))
39 extern tree *Rgitem();
40 #define gitem(xyzxyz) (*Rgitem(xyzxyz))
41
42 extern tree mkemitemlist();
43
44 extern tree mkitem();
45 extern id *Rgitemfunid();
46 #define gitemfunid(xyzxyz) (*Rgitemfunid(xyzxyz))
47 extern id *Rgitemtypid();
48 #define gitemtypid(xyzxyz) (*Rgitemtypid(xyzxyz))
49