4 #include "yaccParser/binding.h"
13 /************** tbind ******************/
15 binding mktbind(PPgtbindc, PPgtbindid, PPgtbindl, PPgtbindd, PPgtline, PPgtpragma)
23 register struct Stbind *pp =
24 (struct Stbind *) malloc(sizeof(struct Stbind));
26 pp -> Xgtbindc = PPgtbindc;
27 pp -> Xgtbindid = PPgtbindid;
28 pp -> Xgtbindl = PPgtbindl;
29 pp -> Xgtbindd = PPgtbindd;
30 pp -> Xgtline = PPgtline;
31 pp -> Xgtpragma = PPgtpragma;
40 fprintf(stderr,"gtbindc: illegal selection; was %d\n", t -> tag);
41 #endif /* UGEN_DEBUG */
42 return(& t -> Xgtbindc);
50 fprintf(stderr,"gtbindid: illegal selection; was %d\n", t -> tag);
51 #endif /* UGEN_DEBUG */
52 return(& t -> Xgtbindid);
60 fprintf(stderr,"gtbindl: illegal selection; was %d\n", t -> tag);
61 #endif /* UGEN_DEBUG */
62 return(& t -> Xgtbindl);
70 fprintf(stderr,"gtbindd: illegal selection; was %d\n", t -> tag);
71 #endif /* UGEN_DEBUG */
72 return(& t -> Xgtbindd);
80 fprintf(stderr,"gtline: illegal selection; was %d\n", t -> tag);
81 #endif /* UGEN_DEBUG */
82 return(& t -> Xgtline);
90 fprintf(stderr,"gtpragma: illegal selection; was %d\n", t -> tag);
91 #endif /* UGEN_DEBUG */
92 return(& t -> Xgtpragma);
95 /************** nbind ******************/
97 binding mknbind(PPgnbindid, PPgnbindas, PPgnline, PPgnpragma)
103 register struct Snbind *pp =
104 (struct Snbind *) malloc(sizeof(struct Snbind));
106 pp -> Xgnbindid = PPgnbindid;
107 pp -> Xgnbindas = PPgnbindas;
108 pp -> Xgnline = PPgnline;
109 pp -> Xgnpragma = PPgnpragma;
117 if(t -> tag != nbind)
118 fprintf(stderr,"gnbindid: illegal selection; was %d\n", t -> tag);
119 #endif /* UGEN_DEBUG */
120 return(& t -> Xgnbindid);
127 if(t -> tag != nbind)
128 fprintf(stderr,"gnbindas: illegal selection; was %d\n", t -> tag);
129 #endif /* UGEN_DEBUG */
130 return(& t -> Xgnbindas);
137 if(t -> tag != nbind)
138 fprintf(stderr,"gnline: illegal selection; was %d\n", t -> tag);
139 #endif /* UGEN_DEBUG */
140 return(& t -> Xgnline);
143 hpragma *Rgnpragma(t)
147 if(t -> tag != nbind)
148 fprintf(stderr,"gnpragma: illegal selection; was %d\n", t -> tag);
149 #endif /* UGEN_DEBUG */
150 return(& t -> Xgnpragma);
153 /************** pbind ******************/
155 binding mkpbind(PPgpbindl, PPgpline)
159 register struct Spbind *pp =
160 (struct Spbind *) malloc(sizeof(struct Spbind));
162 pp -> Xgpbindl = PPgpbindl;
163 pp -> Xgpline = PPgpline;
171 if(t -> tag != pbind)
172 fprintf(stderr,"gpbindl: illegal selection; was %d\n", t -> tag);
173 #endif /* UGEN_DEBUG */
174 return(& t -> Xgpbindl);
181 if(t -> tag != pbind)
182 fprintf(stderr,"gpline: illegal selection; was %d\n", t -> tag);
183 #endif /* UGEN_DEBUG */
184 return(& t -> Xgpline);
187 /************** fbind ******************/
189 binding mkfbind(PPgfbindl, PPgfline)
193 register struct Sfbind *pp =
194 (struct Sfbind *) malloc(sizeof(struct Sfbind));
196 pp -> Xgfbindl = PPgfbindl;
197 pp -> Xgfline = PPgfline;
205 if(t -> tag != fbind)
206 fprintf(stderr,"gfbindl: illegal selection; was %d\n", t -> tag);
207 #endif /* UGEN_DEBUG */
208 return(& t -> Xgfbindl);
215 if(t -> tag != fbind)
216 fprintf(stderr,"gfline: illegal selection; was %d\n", t -> tag);
217 #endif /* UGEN_DEBUG */
218 return(& t -> Xgfline);
221 /************** abind ******************/
223 binding mkabind(PPgabindfst, PPgabindsnd)
227 register struct Sabind *pp =
228 (struct Sabind *) malloc(sizeof(struct Sabind));
230 pp -> Xgabindfst = PPgabindfst;
231 pp -> Xgabindsnd = PPgabindsnd;
235 binding *Rgabindfst(t)
239 if(t -> tag != abind)
240 fprintf(stderr,"gabindfst: illegal selection; was %d\n", t -> tag);
241 #endif /* UGEN_DEBUG */
242 return(& t -> Xgabindfst);
245 binding *Rgabindsnd(t)
249 if(t -> tag != abind)
250 fprintf(stderr,"gabindsnd: illegal selection; was %d\n", t -> tag);
251 #endif /* UGEN_DEBUG */
252 return(& t -> Xgabindsnd);
255 /************** ibind ******************/
257 binding mkibind(PPgibindc, PPgibindid, PPgibindi, PPgibindw, PPgiline, PPgipragma)
265 register struct Sibind *pp =
266 (struct Sibind *) malloc(sizeof(struct Sibind));
268 pp -> Xgibindc = PPgibindc;
269 pp -> Xgibindid = PPgibindid;
270 pp -> Xgibindi = PPgibindi;
271 pp -> Xgibindw = PPgibindw;
272 pp -> Xgiline = PPgiline;
273 pp -> Xgipragma = PPgipragma;
281 if(t -> tag != ibind)
282 fprintf(stderr,"gibindc: illegal selection; was %d\n", t -> tag);
283 #endif /* UGEN_DEBUG */
284 return(& t -> Xgibindc);
291 if(t -> tag != ibind)
292 fprintf(stderr,"gibindid: illegal selection; was %d\n", t -> tag);
293 #endif /* UGEN_DEBUG */
294 return(& t -> Xgibindid);
301 if(t -> tag != ibind)
302 fprintf(stderr,"gibindi: illegal selection; was %d\n", t -> tag);
303 #endif /* UGEN_DEBUG */
304 return(& t -> Xgibindi);
311 if(t -> tag != ibind)
312 fprintf(stderr,"gibindw: illegal selection; was %d\n", t -> tag);
313 #endif /* UGEN_DEBUG */
314 return(& t -> Xgibindw);
321 if(t -> tag != ibind)
322 fprintf(stderr,"giline: illegal selection; was %d\n", t -> tag);
323 #endif /* UGEN_DEBUG */
324 return(& t -> Xgiline);
327 hpragma *Rgipragma(t)
331 if(t -> tag != ibind)
332 fprintf(stderr,"gipragma: illegal selection; was %d\n", t -> tag);
333 #endif /* UGEN_DEBUG */
334 return(& t -> Xgipragma);
337 /************** dbind ******************/
339 binding mkdbind(PPgdbindts, PPgdline)
343 register struct Sdbind *pp =
344 (struct Sdbind *) malloc(sizeof(struct Sdbind));
346 pp -> Xgdbindts = PPgdbindts;
347 pp -> Xgdline = PPgdline;
355 if(t -> tag != dbind)
356 fprintf(stderr,"gdbindts: illegal selection; was %d\n", t -> tag);
357 #endif /* UGEN_DEBUG */
358 return(& t -> Xgdbindts);
365 if(t -> tag != dbind)
366 fprintf(stderr,"gdline: illegal selection; was %d\n", t -> tag);
367 #endif /* UGEN_DEBUG */
368 return(& t -> Xgdline);
371 /************** cbind ******************/
373 binding mkcbind(PPgcbindc, PPgcbindid, PPgcbindw, PPgcline, PPgcpragma)
380 register struct Scbind *pp =
381 (struct Scbind *) malloc(sizeof(struct Scbind));
383 pp -> Xgcbindc = PPgcbindc;
384 pp -> Xgcbindid = PPgcbindid;
385 pp -> Xgcbindw = PPgcbindw;
386 pp -> Xgcline = PPgcline;
387 pp -> Xgcpragma = PPgcpragma;
395 if(t -> tag != cbind)
396 fprintf(stderr,"gcbindc: illegal selection; was %d\n", t -> tag);
397 #endif /* UGEN_DEBUG */
398 return(& t -> Xgcbindc);
405 if(t -> tag != cbind)
406 fprintf(stderr,"gcbindid: illegal selection; was %d\n", t -> tag);
407 #endif /* UGEN_DEBUG */
408 return(& t -> Xgcbindid);
415 if(t -> tag != cbind)
416 fprintf(stderr,"gcbindw: illegal selection; was %d\n", t -> tag);
417 #endif /* UGEN_DEBUG */
418 return(& t -> Xgcbindw);
425 if(t -> tag != cbind)
426 fprintf(stderr,"gcline: illegal selection; was %d\n", t -> tag);
427 #endif /* UGEN_DEBUG */
428 return(& t -> Xgcline);
431 hpragma *Rgcpragma(t)
435 if(t -> tag != cbind)
436 fprintf(stderr,"gcpragma: illegal selection; was %d\n", t -> tag);
437 #endif /* UGEN_DEBUG */
438 return(& t -> Xgcpragma);
441 /************** sbind ******************/
443 binding mksbind(PPgsbindids, PPgsbindid, PPgsline, PPgspragma)
449 register struct Ssbind *pp =
450 (struct Ssbind *) malloc(sizeof(struct Ssbind));
452 pp -> Xgsbindids = PPgsbindids;
453 pp -> Xgsbindid = PPgsbindid;
454 pp -> Xgsline = PPgsline;
455 pp -> Xgspragma = PPgspragma;
463 if(t -> tag != sbind)
464 fprintf(stderr,"gsbindids: illegal selection; was %d\n", t -> tag);
465 #endif /* UGEN_DEBUG */
466 return(& t -> Xgsbindids);
473 if(t -> tag != sbind)
474 fprintf(stderr,"gsbindid: illegal selection; was %d\n", t -> tag);
475 #endif /* UGEN_DEBUG */
476 return(& t -> Xgsbindid);
483 if(t -> tag != sbind)
484 fprintf(stderr,"gsline: illegal selection; was %d\n", t -> tag);
485 #endif /* UGEN_DEBUG */
486 return(& t -> Xgsline);
489 hpragma *Rgspragma(t)
493 if(t -> tag != sbind)
494 fprintf(stderr,"gspragma: illegal selection; was %d\n", t -> tag);
495 #endif /* UGEN_DEBUG */
496 return(& t -> Xgspragma);
499 /************** mbind ******************/
501 binding mkmbind(PPgmbindmodn, PPgmbindimp, PPgmbindren, PPgmline)
502 stringId PPgmbindmodn;
507 register struct Smbind *pp =
508 (struct Smbind *) malloc(sizeof(struct Smbind));
510 pp -> Xgmbindmodn = PPgmbindmodn;
511 pp -> Xgmbindimp = PPgmbindimp;
512 pp -> Xgmbindren = PPgmbindren;
513 pp -> Xgmline = PPgmline;
517 stringId *Rgmbindmodn(t)
521 if(t -> tag != mbind)
522 fprintf(stderr,"gmbindmodn: illegal selection; was %d\n", t -> tag);
523 #endif /* UGEN_DEBUG */
524 return(& t -> Xgmbindmodn);
531 if(t -> tag != mbind)
532 fprintf(stderr,"gmbindimp: illegal selection; was %d\n", t -> tag);
533 #endif /* UGEN_DEBUG */
534 return(& t -> Xgmbindimp);
541 if(t -> tag != mbind)
542 fprintf(stderr,"gmbindren: illegal selection; was %d\n", t -> tag);
543 #endif /* UGEN_DEBUG */
544 return(& t -> Xgmbindren);
551 if(t -> tag != mbind)
552 fprintf(stderr,"gmline: illegal selection; was %d\n", t -> tag);
553 #endif /* UGEN_DEBUG */
554 return(& t -> Xgmline);
557 /************** nullbind ******************/
559 binding mknullbind(void)
561 register struct Snullbind *pp =
562 (struct Snullbind *) malloc(sizeof(struct Snullbind));
563 pp -> tag = nullbind;
567 /************** import ******************/
569 binding mkimport(PPgiebindmod, PPgiebindexp, PPgiebindren, PPgiebinddef, PPgiebindfile, PPgiebindline)
570 stringId PPgiebindmod;
573 binding PPgiebinddef;
574 stringId PPgiebindfile;
577 register struct Simport *pp =
578 (struct Simport *) malloc(sizeof(struct Simport));
580 pp -> Xgiebindmod = PPgiebindmod;
581 pp -> Xgiebindexp = PPgiebindexp;
582 pp -> Xgiebindren = PPgiebindren;
583 pp -> Xgiebinddef = PPgiebinddef;
584 pp -> Xgiebindfile = PPgiebindfile;
585 pp -> Xgiebindline = PPgiebindline;
589 stringId *Rgiebindmod(t)
593 if(t -> tag != import)
594 fprintf(stderr,"giebindmod: illegal selection; was %d\n", t -> tag);
595 #endif /* UGEN_DEBUG */
596 return(& t -> Xgiebindmod);
603 if(t -> tag != import)
604 fprintf(stderr,"giebindexp: illegal selection; was %d\n", t -> tag);
605 #endif /* UGEN_DEBUG */
606 return(& t -> Xgiebindexp);
613 if(t -> tag != import)
614 fprintf(stderr,"giebindren: illegal selection; was %d\n", t -> tag);
615 #endif /* UGEN_DEBUG */
616 return(& t -> Xgiebindren);
619 binding *Rgiebinddef(t)
623 if(t -> tag != import)
624 fprintf(stderr,"giebinddef: illegal selection; was %d\n", t -> tag);
625 #endif /* UGEN_DEBUG */
626 return(& t -> Xgiebinddef);
629 stringId *Rgiebindfile(t)
633 if(t -> tag != import)
634 fprintf(stderr,"giebindfile: illegal selection; was %d\n", t -> tag);
635 #endif /* UGEN_DEBUG */
636 return(& t -> Xgiebindfile);
639 long *Rgiebindline(t)
643 if(t -> tag != import)
644 fprintf(stderr,"giebindline: illegal selection; was %d\n", t -> tag);
645 #endif /* UGEN_DEBUG */
646 return(& t -> Xgiebindline);
649 /************** hiding ******************/
651 binding mkhiding(PPgihbindmod, PPgihbindexp, PPgihbindren, PPgihbinddef, PPgihbindfile, PPgihbindline)
652 stringId PPgihbindmod;
655 binding PPgihbinddef;
656 stringId PPgihbindfile;
659 register struct Shiding *pp =
660 (struct Shiding *) malloc(sizeof(struct Shiding));
662 pp -> Xgihbindmod = PPgihbindmod;
663 pp -> Xgihbindexp = PPgihbindexp;
664 pp -> Xgihbindren = PPgihbindren;
665 pp -> Xgihbinddef = PPgihbinddef;
666 pp -> Xgihbindfile = PPgihbindfile;
667 pp -> Xgihbindline = PPgihbindline;
671 stringId *Rgihbindmod(t)
675 if(t -> tag != hiding)
676 fprintf(stderr,"gihbindmod: illegal selection; was %d\n", t -> tag);
677 #endif /* UGEN_DEBUG */
678 return(& t -> Xgihbindmod);
685 if(t -> tag != hiding)
686 fprintf(stderr,"gihbindexp: illegal selection; was %d\n", t -> tag);
687 #endif /* UGEN_DEBUG */
688 return(& t -> Xgihbindexp);
695 if(t -> tag != hiding)
696 fprintf(stderr,"gihbindren: illegal selection; was %d\n", t -> tag);
697 #endif /* UGEN_DEBUG */
698 return(& t -> Xgihbindren);
701 binding *Rgihbinddef(t)
705 if(t -> tag != hiding)
706 fprintf(stderr,"gihbinddef: illegal selection; was %d\n", t -> tag);
707 #endif /* UGEN_DEBUG */
708 return(& t -> Xgihbinddef);
711 stringId *Rgihbindfile(t)
715 if(t -> tag != hiding)
716 fprintf(stderr,"gihbindfile: illegal selection; was %d\n", t -> tag);
717 #endif /* UGEN_DEBUG */
718 return(& t -> Xgihbindfile);
721 long *Rgihbindline(t)
725 if(t -> tag != hiding)
726 fprintf(stderr,"gihbindline: illegal selection; was %d\n", t -> tag);
727 #endif /* UGEN_DEBUG */
728 return(& t -> Xgihbindline);
731 /************** vspec_uprag ******************/
733 binding mkvspec_uprag(PPgvspec_id, PPgvspec_tys, PPgvspec_line)
738 register struct Svspec_uprag *pp =
739 (struct Svspec_uprag *) malloc(sizeof(struct Svspec_uprag));
740 pp -> tag = vspec_uprag;
741 pp -> Xgvspec_id = PPgvspec_id;
742 pp -> Xgvspec_tys = PPgvspec_tys;
743 pp -> Xgvspec_line = PPgvspec_line;
748 struct Svspec_uprag *t;
751 if(t -> tag != vspec_uprag)
752 fprintf(stderr,"gvspec_id: illegal selection; was %d\n", t -> tag);
753 #endif /* UGEN_DEBUG */
754 return(& t -> Xgvspec_id);
758 struct Svspec_uprag *t;
761 if(t -> tag != vspec_uprag)
762 fprintf(stderr,"gvspec_tys: illegal selection; was %d\n", t -> tag);
763 #endif /* UGEN_DEBUG */
764 return(& t -> Xgvspec_tys);
767 long *Rgvspec_line(t)
768 struct Svspec_uprag *t;
771 if(t -> tag != vspec_uprag)
772 fprintf(stderr,"gvspec_line: illegal selection; was %d\n", t -> tag);
773 #endif /* UGEN_DEBUG */
774 return(& t -> Xgvspec_line);
777 /************** vspec_ty_and_id ******************/
779 binding mkvspec_ty_and_id(PPgvspec_ty, PPgvspec_tyid)
783 register struct Svspec_ty_and_id *pp =
784 (struct Svspec_ty_and_id *) malloc(sizeof(struct Svspec_ty_and_id));
785 pp -> tag = vspec_ty_and_id;
786 pp -> Xgvspec_ty = PPgvspec_ty;
787 pp -> Xgvspec_tyid = PPgvspec_tyid;
792 struct Svspec_ty_and_id *t;
795 if(t -> tag != vspec_ty_and_id)
796 fprintf(stderr,"gvspec_ty: illegal selection; was %d\n", t -> tag);
797 #endif /* UGEN_DEBUG */
798 return(& t -> Xgvspec_ty);
801 list *Rgvspec_tyid(t)
802 struct Svspec_ty_and_id *t;
805 if(t -> tag != vspec_ty_and_id)
806 fprintf(stderr,"gvspec_tyid: illegal selection; was %d\n", t -> tag);
807 #endif /* UGEN_DEBUG */
808 return(& t -> Xgvspec_tyid);
811 /************** ispec_uprag ******************/
813 binding mkispec_uprag(PPgispec_clas, PPgispec_ty, PPgispec_line)
818 register struct Sispec_uprag *pp =
819 (struct Sispec_uprag *) malloc(sizeof(struct Sispec_uprag));
820 pp -> tag = ispec_uprag;
821 pp -> Xgispec_clas = PPgispec_clas;
822 pp -> Xgispec_ty = PPgispec_ty;
823 pp -> Xgispec_line = PPgispec_line;
827 unkId *Rgispec_clas(t)
828 struct Sispec_uprag *t;
831 if(t -> tag != ispec_uprag)
832 fprintf(stderr,"gispec_clas: illegal selection; was %d\n", t -> tag);
833 #endif /* UGEN_DEBUG */
834 return(& t -> Xgispec_clas);
838 struct Sispec_uprag *t;
841 if(t -> tag != ispec_uprag)
842 fprintf(stderr,"gispec_ty: illegal selection; was %d\n", t -> tag);
843 #endif /* UGEN_DEBUG */
844 return(& t -> Xgispec_ty);
847 long *Rgispec_line(t)
848 struct Sispec_uprag *t;
851 if(t -> tag != ispec_uprag)
852 fprintf(stderr,"gispec_line: illegal selection; was %d\n", t -> tag);
853 #endif /* UGEN_DEBUG */
854 return(& t -> Xgispec_line);
857 /************** inline_uprag ******************/
859 binding mkinline_uprag(PPginline_id, PPginline_howto, PPginline_line)
861 list PPginline_howto;
864 register struct Sinline_uprag *pp =
865 (struct Sinline_uprag *) malloc(sizeof(struct Sinline_uprag));
866 pp -> tag = inline_uprag;
867 pp -> Xginline_id = PPginline_id;
868 pp -> Xginline_howto = PPginline_howto;
869 pp -> Xginline_line = PPginline_line;
873 unkId *Rginline_id(t)
874 struct Sinline_uprag *t;
877 if(t -> tag != inline_uprag)
878 fprintf(stderr,"ginline_id: illegal selection; was %d\n", t -> tag);
879 #endif /* UGEN_DEBUG */
880 return(& t -> Xginline_id);
883 list *Rginline_howto(t)
884 struct Sinline_uprag *t;
887 if(t -> tag != inline_uprag)
888 fprintf(stderr,"ginline_howto: illegal selection; was %d\n", t -> tag);
889 #endif /* UGEN_DEBUG */
890 return(& t -> Xginline_howto);
893 long *Rginline_line(t)
894 struct Sinline_uprag *t;
897 if(t -> tag != inline_uprag)
898 fprintf(stderr,"ginline_line: illegal selection; was %d\n", t -> tag);
899 #endif /* UGEN_DEBUG */
900 return(& t -> Xginline_line);
903 /************** deforest_uprag ******************/
905 binding mkdeforest_uprag(PPgdeforest_id, PPgdeforest_line)
906 unkId PPgdeforest_id;
907 long PPgdeforest_line;
909 register struct Sdeforest_uprag *pp =
910 (struct Sdeforest_uprag *) malloc(sizeof(struct Sdeforest_uprag));
911 pp -> tag = deforest_uprag;
912 pp -> Xgdeforest_id = PPgdeforest_id;
913 pp -> Xgdeforest_line = PPgdeforest_line;
917 unkId *Rgdeforest_id(t)
918 struct Sdeforest_uprag *t;
921 if(t -> tag != deforest_uprag)
922 fprintf(stderr,"gdeforest_id: illegal selection; was %d\n", t -> tag);
923 #endif /* UGEN_DEBUG */
924 return(& t -> Xgdeforest_id);
927 long *Rgdeforest_line(t)
928 struct Sdeforest_uprag *t;
931 if(t -> tag != deforest_uprag)
932 fprintf(stderr,"gdeforest_line: illegal selection; was %d\n", t -> tag);
933 #endif /* UGEN_DEBUG */
934 return(& t -> Xgdeforest_line);
937 /************** magicuf_uprag ******************/
939 binding mkmagicuf_uprag(PPgmagicuf_id, PPgmagicuf_str, PPgmagicuf_line)
941 stringId PPgmagicuf_str;
942 long PPgmagicuf_line;
944 register struct Smagicuf_uprag *pp =
945 (struct Smagicuf_uprag *) malloc(sizeof(struct Smagicuf_uprag));
946 pp -> tag = magicuf_uprag;
947 pp -> Xgmagicuf_id = PPgmagicuf_id;
948 pp -> Xgmagicuf_str = PPgmagicuf_str;
949 pp -> Xgmagicuf_line = PPgmagicuf_line;
953 unkId *Rgmagicuf_id(t)
954 struct Smagicuf_uprag *t;
957 if(t -> tag != magicuf_uprag)
958 fprintf(stderr,"gmagicuf_id: illegal selection; was %d\n", t -> tag);
959 #endif /* UGEN_DEBUG */
960 return(& t -> Xgmagicuf_id);
963 stringId *Rgmagicuf_str(t)
964 struct Smagicuf_uprag *t;
967 if(t -> tag != magicuf_uprag)
968 fprintf(stderr,"gmagicuf_str: illegal selection; was %d\n", t -> tag);
969 #endif /* UGEN_DEBUG */
970 return(& t -> Xgmagicuf_str);
973 long *Rgmagicuf_line(t)
974 struct Smagicuf_uprag *t;
977 if(t -> tag != magicuf_uprag)
978 fprintf(stderr,"gmagicuf_line: illegal selection; was %d\n", t -> tag);
979 #endif /* UGEN_DEBUG */
980 return(& t -> Xgmagicuf_line);
983 /************** abstract_uprag ******************/
985 binding mkabstract_uprag(PPgabstract_id, PPgabstract_line)
986 unkId PPgabstract_id;
987 long PPgabstract_line;
989 register struct Sabstract_uprag *pp =
990 (struct Sabstract_uprag *) malloc(sizeof(struct Sabstract_uprag));
991 pp -> tag = abstract_uprag;
992 pp -> Xgabstract_id = PPgabstract_id;
993 pp -> Xgabstract_line = PPgabstract_line;
997 unkId *Rgabstract_id(t)
998 struct Sabstract_uprag *t;
1001 if(t -> tag != abstract_uprag)
1002 fprintf(stderr,"gabstract_id: illegal selection; was %d\n", t -> tag);
1003 #endif /* UGEN_DEBUG */
1004 return(& t -> Xgabstract_id);
1007 long *Rgabstract_line(t)
1008 struct Sabstract_uprag *t;
1011 if(t -> tag != abstract_uprag)
1012 fprintf(stderr,"gabstract_line: illegal selection; was %d\n", t -> tag);
1013 #endif /* UGEN_DEBUG */
1014 return(& t -> Xgabstract_line);
1017 /************** dspec_uprag ******************/
1019 binding mkdspec_uprag(PPgdspec_id, PPgdspec_tys, PPgdspec_line)
1024 register struct Sdspec_uprag *pp =
1025 (struct Sdspec_uprag *) malloc(sizeof(struct Sdspec_uprag));
1026 pp -> tag = dspec_uprag;
1027 pp -> Xgdspec_id = PPgdspec_id;
1028 pp -> Xgdspec_tys = PPgdspec_tys;
1029 pp -> Xgdspec_line = PPgdspec_line;
1030 return((binding)pp);
1033 unkId *Rgdspec_id(t)
1034 struct Sdspec_uprag *t;
1037 if(t -> tag != dspec_uprag)
1038 fprintf(stderr,"gdspec_id: illegal selection; was %d\n", t -> tag);
1039 #endif /* UGEN_DEBUG */
1040 return(& t -> Xgdspec_id);
1043 list *Rgdspec_tys(t)
1044 struct Sdspec_uprag *t;
1047 if(t -> tag != dspec_uprag)
1048 fprintf(stderr,"gdspec_tys: illegal selection; was %d\n", t -> tag);
1049 #endif /* UGEN_DEBUG */
1050 return(& t -> Xgdspec_tys);
1053 long *Rgdspec_line(t)
1054 struct Sdspec_uprag *t;
1057 if(t -> tag != dspec_uprag)
1058 fprintf(stderr,"gdspec_line: illegal selection; was %d\n", t -> tag);
1059 #endif /* UGEN_DEBUG */
1060 return(& t -> Xgdspec_line);