4 #include "yaccParser/pbinding.h"
13 /************** pgrhs ******************/
15 pbinding mkpgrhs(PPggpat, PPggdexprs, PPggbind, PPggfuncname, PPggline)
19 stringId PPggfuncname;
22 register struct Spgrhs *pp =
23 (struct Spgrhs *) malloc(sizeof(struct Spgrhs));
25 pp -> Xggpat = PPggpat;
26 pp -> Xggdexprs = PPggdexprs;
27 pp -> Xggbind = PPggbind;
28 pp -> Xggfuncname = PPggfuncname;
29 pp -> Xggline = PPggline;
38 fprintf(stderr,"ggpat: illegal selection; was %d\n", t -> tag);
39 #endif /* UGEN_DEBUG */
40 return(& t -> Xggpat);
48 fprintf(stderr,"ggdexprs: illegal selection; was %d\n", t -> tag);
49 #endif /* UGEN_DEBUG */
50 return(& t -> Xggdexprs);
58 fprintf(stderr,"ggbind: illegal selection; was %d\n", t -> tag);
59 #endif /* UGEN_DEBUG */
60 return(& t -> Xggbind);
63 stringId *Rggfuncname(t)
68 fprintf(stderr,"ggfuncname: illegal selection; was %d\n", t -> tag);
69 #endif /* UGEN_DEBUG */
70 return(& t -> Xggfuncname);
78 fprintf(stderr,"ggline: illegal selection; was %d\n", t -> tag);
79 #endif /* UGEN_DEBUG */
80 return(& t -> Xggline);