[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / compiler / yaccParser / atype.c
1
2
3 #include "hspincl.h"
4 #include "yaccParser/atype.h"
5
6 Tatype tatype(t)
7 atype t;
8 {
9 return(t -> tag);
10 }
11
12
13 /************** atc ******************/
14
15 atype mkatc(PPgatcid, PPgatctypel, PPgatcline)
16 unkId PPgatcid;
17 list PPgatctypel;
18 long PPgatcline;
19 {
20 register struct Satc *pp =
21 (struct Satc *) malloc(sizeof(struct Satc));
22 pp -> tag = atc;
23 pp -> Xgatcid = PPgatcid;
24 pp -> Xgatctypel = PPgatctypel;
25 pp -> Xgatcline = PPgatcline;
26 return((atype)pp);
27 }
28
29 unkId *Rgatcid(t)
30 struct Satc *t;
31 {
32 #ifdef UGEN_DEBUG
33 if(t -> tag != atc)
34 fprintf(stderr,"gatcid: illegal selection; was %d\n", t -> tag);
35 #endif /* UGEN_DEBUG */
36 return(& t -> Xgatcid);
37 }
38
39 list *Rgatctypel(t)
40 struct Satc *t;
41 {
42 #ifdef UGEN_DEBUG
43 if(t -> tag != atc)
44 fprintf(stderr,"gatctypel: illegal selection; was %d\n", t -> tag);
45 #endif /* UGEN_DEBUG */
46 return(& t -> Xgatctypel);
47 }
48
49 long *Rgatcline(t)
50 struct Satc *t;
51 {
52 #ifdef UGEN_DEBUG
53 if(t -> tag != atc)
54 fprintf(stderr,"gatcline: illegal selection; was %d\n", t -> tag);
55 #endif /* UGEN_DEBUG */
56 return(& t -> Xgatcline);
57 }