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 /************** lbind ******************/
257 binding mklbind(PPglbindfst, PPglbindsnd)
261 register struct Slbind *pp =
262 (struct Slbind *) malloc(sizeof(struct Slbind));
264 pp -> Xglbindfst = PPglbindfst;
265 pp -> Xglbindsnd = PPglbindsnd;
269 binding *Rglbindfst(t)
273 if(t -> tag != lbind)
274 fprintf(stderr,"glbindfst: illegal selection; was %d\n", t -> tag);
275 #endif /* UGEN_DEBUG */
276 return(& t -> Xglbindfst);
279 binding *Rglbindsnd(t)
283 if(t -> tag != lbind)
284 fprintf(stderr,"glbindsnd: illegal selection; was %d\n", t -> tag);
285 #endif /* UGEN_DEBUG */
286 return(& t -> Xglbindsnd);
289 /************** ebind ******************/
291 binding mkebind(PPgebindl, PPgebind, PPgeline)
296 register struct Sebind *pp =
297 (struct Sebind *) malloc(sizeof(struct Sebind));
299 pp -> Xgebindl = PPgebindl;
300 pp -> Xgebind = PPgebind;
301 pp -> Xgeline = PPgeline;
309 if(t -> tag != ebind)
310 fprintf(stderr,"gebindl: illegal selection; was %d\n", t -> tag);
311 #endif /* UGEN_DEBUG */
312 return(& t -> Xgebindl);
319 if(t -> tag != ebind)
320 fprintf(stderr,"gebind: illegal selection; was %d\n", t -> tag);
321 #endif /* UGEN_DEBUG */
322 return(& t -> Xgebind);
329 if(t -> tag != ebind)
330 fprintf(stderr,"geline: illegal selection; was %d\n", t -> tag);
331 #endif /* UGEN_DEBUG */
332 return(& t -> Xgeline);
335 /************** hbind ******************/
337 binding mkhbind(PPghbindl, PPghbind, PPghline)
342 register struct Shbind *pp =
343 (struct Shbind *) malloc(sizeof(struct Shbind));
345 pp -> Xghbindl = PPghbindl;
346 pp -> Xghbind = PPghbind;
347 pp -> Xghline = PPghline;
355 if(t -> tag != hbind)
356 fprintf(stderr,"ghbindl: illegal selection; was %d\n", t -> tag);
357 #endif /* UGEN_DEBUG */
358 return(& t -> Xghbindl);
365 if(t -> tag != hbind)
366 fprintf(stderr,"ghbind: illegal selection; was %d\n", t -> tag);
367 #endif /* UGEN_DEBUG */
368 return(& t -> Xghbind);
375 if(t -> tag != hbind)
376 fprintf(stderr,"ghline: illegal selection; was %d\n", t -> tag);
377 #endif /* UGEN_DEBUG */
378 return(& t -> Xghline);
381 /************** ibind ******************/
383 binding mkibind(PPgibindc, PPgibindid, PPgibindi, PPgibindw, PPgiline, PPgipragma)
391 register struct Sibind *pp =
392 (struct Sibind *) malloc(sizeof(struct Sibind));
394 pp -> Xgibindc = PPgibindc;
395 pp -> Xgibindid = PPgibindid;
396 pp -> Xgibindi = PPgibindi;
397 pp -> Xgibindw = PPgibindw;
398 pp -> Xgiline = PPgiline;
399 pp -> Xgipragma = PPgipragma;
407 if(t -> tag != ibind)
408 fprintf(stderr,"gibindc: illegal selection; was %d\n", t -> tag);
409 #endif /* UGEN_DEBUG */
410 return(& t -> Xgibindc);
417 if(t -> tag != ibind)
418 fprintf(stderr,"gibindid: illegal selection; was %d\n", t -> tag);
419 #endif /* UGEN_DEBUG */
420 return(& t -> Xgibindid);
427 if(t -> tag != ibind)
428 fprintf(stderr,"gibindi: illegal selection; was %d\n", t -> tag);
429 #endif /* UGEN_DEBUG */
430 return(& t -> Xgibindi);
437 if(t -> tag != ibind)
438 fprintf(stderr,"gibindw: illegal selection; was %d\n", t -> tag);
439 #endif /* UGEN_DEBUG */
440 return(& t -> Xgibindw);
447 if(t -> tag != ibind)
448 fprintf(stderr,"giline: illegal selection; was %d\n", t -> tag);
449 #endif /* UGEN_DEBUG */
450 return(& t -> Xgiline);
453 hpragma *Rgipragma(t)
457 if(t -> tag != ibind)
458 fprintf(stderr,"gipragma: illegal selection; was %d\n", t -> tag);
459 #endif /* UGEN_DEBUG */
460 return(& t -> Xgipragma);
463 /************** dbind ******************/
465 binding mkdbind(PPgdbindts, PPgdline)
469 register struct Sdbind *pp =
470 (struct Sdbind *) malloc(sizeof(struct Sdbind));
472 pp -> Xgdbindts = PPgdbindts;
473 pp -> Xgdline = PPgdline;
481 if(t -> tag != dbind)
482 fprintf(stderr,"gdbindts: illegal selection; was %d\n", t -> tag);
483 #endif /* UGEN_DEBUG */
484 return(& t -> Xgdbindts);
491 if(t -> tag != dbind)
492 fprintf(stderr,"gdline: illegal selection; was %d\n", t -> tag);
493 #endif /* UGEN_DEBUG */
494 return(& t -> Xgdline);
497 /************** cbind ******************/
499 binding mkcbind(PPgcbindc, PPgcbindid, PPgcbindw, PPgcline, PPgcpragma)
506 register struct Scbind *pp =
507 (struct Scbind *) malloc(sizeof(struct Scbind));
509 pp -> Xgcbindc = PPgcbindc;
510 pp -> Xgcbindid = PPgcbindid;
511 pp -> Xgcbindw = PPgcbindw;
512 pp -> Xgcline = PPgcline;
513 pp -> Xgcpragma = PPgcpragma;
521 if(t -> tag != cbind)
522 fprintf(stderr,"gcbindc: illegal selection; was %d\n", t -> tag);
523 #endif /* UGEN_DEBUG */
524 return(& t -> Xgcbindc);
531 if(t -> tag != cbind)
532 fprintf(stderr,"gcbindid: illegal selection; was %d\n", t -> tag);
533 #endif /* UGEN_DEBUG */
534 return(& t -> Xgcbindid);
541 if(t -> tag != cbind)
542 fprintf(stderr,"gcbindw: illegal selection; was %d\n", t -> tag);
543 #endif /* UGEN_DEBUG */
544 return(& t -> Xgcbindw);
551 if(t -> tag != cbind)
552 fprintf(stderr,"gcline: illegal selection; was %d\n", t -> tag);
553 #endif /* UGEN_DEBUG */
554 return(& t -> Xgcline);
557 hpragma *Rgcpragma(t)
561 if(t -> tag != cbind)
562 fprintf(stderr,"gcpragma: illegal selection; was %d\n", t -> tag);
563 #endif /* UGEN_DEBUG */
564 return(& t -> Xgcpragma);
567 /************** sbind ******************/
569 binding mksbind(PPgsbindids, PPgsbindid, PPgsline, PPgspragma)
575 register struct Ssbind *pp =
576 (struct Ssbind *) malloc(sizeof(struct Ssbind));
578 pp -> Xgsbindids = PPgsbindids;
579 pp -> Xgsbindid = PPgsbindid;
580 pp -> Xgsline = PPgsline;
581 pp -> Xgspragma = PPgspragma;
589 if(t -> tag != sbind)
590 fprintf(stderr,"gsbindids: illegal selection; was %d\n", t -> tag);
591 #endif /* UGEN_DEBUG */
592 return(& t -> Xgsbindids);
599 if(t -> tag != sbind)
600 fprintf(stderr,"gsbindid: illegal selection; was %d\n", t -> tag);
601 #endif /* UGEN_DEBUG */
602 return(& t -> Xgsbindid);
609 if(t -> tag != sbind)
610 fprintf(stderr,"gsline: illegal selection; was %d\n", t -> tag);
611 #endif /* UGEN_DEBUG */
612 return(& t -> Xgsline);
615 hpragma *Rgspragma(t)
619 if(t -> tag != sbind)
620 fprintf(stderr,"gspragma: illegal selection; was %d\n", t -> tag);
621 #endif /* UGEN_DEBUG */
622 return(& t -> Xgspragma);
625 /************** mbind ******************/
627 binding mkmbind(PPgmbindmodn, PPgmbindimp, PPgmbindren, PPgmline)
628 stringId PPgmbindmodn;
633 register struct Smbind *pp =
634 (struct Smbind *) malloc(sizeof(struct Smbind));
636 pp -> Xgmbindmodn = PPgmbindmodn;
637 pp -> Xgmbindimp = PPgmbindimp;
638 pp -> Xgmbindren = PPgmbindren;
639 pp -> Xgmline = PPgmline;
643 stringId *Rgmbindmodn(t)
647 if(t -> tag != mbind)
648 fprintf(stderr,"gmbindmodn: illegal selection; was %d\n", t -> tag);
649 #endif /* UGEN_DEBUG */
650 return(& t -> Xgmbindmodn);
657 if(t -> tag != mbind)
658 fprintf(stderr,"gmbindimp: illegal selection; was %d\n", t -> tag);
659 #endif /* UGEN_DEBUG */
660 return(& t -> Xgmbindimp);
667 if(t -> tag != mbind)
668 fprintf(stderr,"gmbindren: illegal selection; was %d\n", t -> tag);
669 #endif /* UGEN_DEBUG */
670 return(& t -> Xgmbindren);
677 if(t -> tag != mbind)
678 fprintf(stderr,"gmline: illegal selection; was %d\n", t -> tag);
679 #endif /* UGEN_DEBUG */
680 return(& t -> Xgmline);
683 /************** nullbind ******************/
687 register struct Snullbind *pp =
688 (struct Snullbind *) malloc(sizeof(struct Snullbind));
689 pp -> tag = nullbind;
693 /************** import ******************/
695 binding mkimport(PPgiebindmod, PPgiebindexp, PPgiebindren, PPgiebinddef, PPgiebindfile, PPgiebindline)
696 stringId PPgiebindmod;
699 binding PPgiebinddef;
700 stringId PPgiebindfile;
703 register struct Simport *pp =
704 (struct Simport *) malloc(sizeof(struct Simport));
706 pp -> Xgiebindmod = PPgiebindmod;
707 pp -> Xgiebindexp = PPgiebindexp;
708 pp -> Xgiebindren = PPgiebindren;
709 pp -> Xgiebinddef = PPgiebinddef;
710 pp -> Xgiebindfile = PPgiebindfile;
711 pp -> Xgiebindline = PPgiebindline;
715 stringId *Rgiebindmod(t)
719 if(t -> tag != import)
720 fprintf(stderr,"giebindmod: illegal selection; was %d\n", t -> tag);
721 #endif /* UGEN_DEBUG */
722 return(& t -> Xgiebindmod);
729 if(t -> tag != import)
730 fprintf(stderr,"giebindexp: illegal selection; was %d\n", t -> tag);
731 #endif /* UGEN_DEBUG */
732 return(& t -> Xgiebindexp);
739 if(t -> tag != import)
740 fprintf(stderr,"giebindren: illegal selection; was %d\n", t -> tag);
741 #endif /* UGEN_DEBUG */
742 return(& t -> Xgiebindren);
745 binding *Rgiebinddef(t)
749 if(t -> tag != import)
750 fprintf(stderr,"giebinddef: illegal selection; was %d\n", t -> tag);
751 #endif /* UGEN_DEBUG */
752 return(& t -> Xgiebinddef);
755 stringId *Rgiebindfile(t)
759 if(t -> tag != import)
760 fprintf(stderr,"giebindfile: illegal selection; was %d\n", t -> tag);
761 #endif /* UGEN_DEBUG */
762 return(& t -> Xgiebindfile);
765 long *Rgiebindline(t)
769 if(t -> tag != import)
770 fprintf(stderr,"giebindline: illegal selection; was %d\n", t -> tag);
771 #endif /* UGEN_DEBUG */
772 return(& t -> Xgiebindline);
775 /************** hiding ******************/
777 binding mkhiding(PPgihbindmod, PPgihbindexp, PPgihbindren, PPgihbinddef, PPgihbindfile, PPgihbindline)
778 stringId PPgihbindmod;
781 binding PPgihbinddef;
782 stringId PPgihbindfile;
785 register struct Shiding *pp =
786 (struct Shiding *) malloc(sizeof(struct Shiding));
788 pp -> Xgihbindmod = PPgihbindmod;
789 pp -> Xgihbindexp = PPgihbindexp;
790 pp -> Xgihbindren = PPgihbindren;
791 pp -> Xgihbinddef = PPgihbinddef;
792 pp -> Xgihbindfile = PPgihbindfile;
793 pp -> Xgihbindline = PPgihbindline;
797 stringId *Rgihbindmod(t)
801 if(t -> tag != hiding)
802 fprintf(stderr,"gihbindmod: illegal selection; was %d\n", t -> tag);
803 #endif /* UGEN_DEBUG */
804 return(& t -> Xgihbindmod);
811 if(t -> tag != hiding)
812 fprintf(stderr,"gihbindexp: illegal selection; was %d\n", t -> tag);
813 #endif /* UGEN_DEBUG */
814 return(& t -> Xgihbindexp);
821 if(t -> tag != hiding)
822 fprintf(stderr,"gihbindren: illegal selection; was %d\n", t -> tag);
823 #endif /* UGEN_DEBUG */
824 return(& t -> Xgihbindren);
827 binding *Rgihbinddef(t)
831 if(t -> tag != hiding)
832 fprintf(stderr,"gihbinddef: illegal selection; was %d\n", t -> tag);
833 #endif /* UGEN_DEBUG */
834 return(& t -> Xgihbinddef);
837 stringId *Rgihbindfile(t)
841 if(t -> tag != hiding)
842 fprintf(stderr,"gihbindfile: illegal selection; was %d\n", t -> tag);
843 #endif /* UGEN_DEBUG */
844 return(& t -> Xgihbindfile);
847 long *Rgihbindline(t)
851 if(t -> tag != hiding)
852 fprintf(stderr,"gihbindline: illegal selection; was %d\n", t -> tag);
853 #endif /* UGEN_DEBUG */
854 return(& t -> Xgihbindline);
857 /************** vspec_uprag ******************/
859 binding mkvspec_uprag(PPgvspec_id, PPgvspec_tys, PPgvspec_line)
864 register struct Svspec_uprag *pp =
865 (struct Svspec_uprag *) malloc(sizeof(struct Svspec_uprag));
866 pp -> tag = vspec_uprag;
867 pp -> Xgvspec_id = PPgvspec_id;
868 pp -> Xgvspec_tys = PPgvspec_tys;
869 pp -> Xgvspec_line = PPgvspec_line;
874 struct Svspec_uprag *t;
877 if(t -> tag != vspec_uprag)
878 fprintf(stderr,"gvspec_id: illegal selection; was %d\n", t -> tag);
879 #endif /* UGEN_DEBUG */
880 return(& t -> Xgvspec_id);
884 struct Svspec_uprag *t;
887 if(t -> tag != vspec_uprag)
888 fprintf(stderr,"gvspec_tys: illegal selection; was %d\n", t -> tag);
889 #endif /* UGEN_DEBUG */
890 return(& t -> Xgvspec_tys);
893 long *Rgvspec_line(t)
894 struct Svspec_uprag *t;
897 if(t -> tag != vspec_uprag)
898 fprintf(stderr,"gvspec_line: illegal selection; was %d\n", t -> tag);
899 #endif /* UGEN_DEBUG */
900 return(& t -> Xgvspec_line);
903 /************** vspec_ty_and_id ******************/
905 binding mkvspec_ty_and_id(PPgvspec_ty, PPgvspec_tyid)
909 register struct Svspec_ty_and_id *pp =
910 (struct Svspec_ty_and_id *) malloc(sizeof(struct Svspec_ty_and_id));
911 pp -> tag = vspec_ty_and_id;
912 pp -> Xgvspec_ty = PPgvspec_ty;
913 pp -> Xgvspec_tyid = PPgvspec_tyid;
918 struct Svspec_ty_and_id *t;
921 if(t -> tag != vspec_ty_and_id)
922 fprintf(stderr,"gvspec_ty: illegal selection; was %d\n", t -> tag);
923 #endif /* UGEN_DEBUG */
924 return(& t -> Xgvspec_ty);
927 list *Rgvspec_tyid(t)
928 struct Svspec_ty_and_id *t;
931 if(t -> tag != vspec_ty_and_id)
932 fprintf(stderr,"gvspec_tyid: illegal selection; was %d\n", t -> tag);
933 #endif /* UGEN_DEBUG */
934 return(& t -> Xgvspec_tyid);
937 /************** ispec_uprag ******************/
939 binding mkispec_uprag(PPgispec_clas, PPgispec_ty, PPgispec_line)
944 register struct Sispec_uprag *pp =
945 (struct Sispec_uprag *) malloc(sizeof(struct Sispec_uprag));
946 pp -> tag = ispec_uprag;
947 pp -> Xgispec_clas = PPgispec_clas;
948 pp -> Xgispec_ty = PPgispec_ty;
949 pp -> Xgispec_line = PPgispec_line;
953 unkId *Rgispec_clas(t)
954 struct Sispec_uprag *t;
957 if(t -> tag != ispec_uprag)
958 fprintf(stderr,"gispec_clas: illegal selection; was %d\n", t -> tag);
959 #endif /* UGEN_DEBUG */
960 return(& t -> Xgispec_clas);
964 struct Sispec_uprag *t;
967 if(t -> tag != ispec_uprag)
968 fprintf(stderr,"gispec_ty: illegal selection; was %d\n", t -> tag);
969 #endif /* UGEN_DEBUG */
970 return(& t -> Xgispec_ty);
973 long *Rgispec_line(t)
974 struct Sispec_uprag *t;
977 if(t -> tag != ispec_uprag)
978 fprintf(stderr,"gispec_line: illegal selection; was %d\n", t -> tag);
979 #endif /* UGEN_DEBUG */
980 return(& t -> Xgispec_line);
983 /************** inline_uprag ******************/
985 binding mkinline_uprag(PPginline_id, PPginline_howto, PPginline_line)
987 list PPginline_howto;
990 register struct Sinline_uprag *pp =
991 (struct Sinline_uprag *) malloc(sizeof(struct Sinline_uprag));
992 pp -> tag = inline_uprag;
993 pp -> Xginline_id = PPginline_id;
994 pp -> Xginline_howto = PPginline_howto;
995 pp -> Xginline_line = PPginline_line;
999 unkId *Rginline_id(t)
1000 struct Sinline_uprag *t;
1003 if(t -> tag != inline_uprag)
1004 fprintf(stderr,"ginline_id: illegal selection; was %d\n", t -> tag);
1005 #endif /* UGEN_DEBUG */
1006 return(& t -> Xginline_id);
1009 list *Rginline_howto(t)
1010 struct Sinline_uprag *t;
1013 if(t -> tag != inline_uprag)
1014 fprintf(stderr,"ginline_howto: illegal selection; was %d\n", t -> tag);
1015 #endif /* UGEN_DEBUG */
1016 return(& t -> Xginline_howto);
1019 long *Rginline_line(t)
1020 struct Sinline_uprag *t;
1023 if(t -> tag != inline_uprag)
1024 fprintf(stderr,"ginline_line: illegal selection; was %d\n", t -> tag);
1025 #endif /* UGEN_DEBUG */
1026 return(& t -> Xginline_line);
1029 /************** deforest_uprag ******************/
1031 binding mkdeforest_uprag(PPgdeforest_id, PPgdeforest_line)
1032 unkId PPgdeforest_id;
1033 long PPgdeforest_line;
1035 register struct Sdeforest_uprag *pp =
1036 (struct Sdeforest_uprag *) malloc(sizeof(struct Sdeforest_uprag));
1037 pp -> tag = deforest_uprag;
1038 pp -> Xgdeforest_id = PPgdeforest_id;
1039 pp -> Xgdeforest_line = PPgdeforest_line;
1040 return((binding)pp);
1043 unkId *Rgdeforest_id(t)
1044 struct Sdeforest_uprag *t;
1047 if(t -> tag != deforest_uprag)
1048 fprintf(stderr,"gdeforest_id: illegal selection; was %d\n", t -> tag);
1049 #endif /* UGEN_DEBUG */
1050 return(& t -> Xgdeforest_id);
1053 long *Rgdeforest_line(t)
1054 struct Sdeforest_uprag *t;
1057 if(t -> tag != deforest_uprag)
1058 fprintf(stderr,"gdeforest_line: illegal selection; was %d\n", t -> tag);
1059 #endif /* UGEN_DEBUG */
1060 return(& t -> Xgdeforest_line);
1063 /************** magicuf_uprag ******************/
1065 binding mkmagicuf_uprag(PPgmagicuf_id, PPgmagicuf_str, PPgmagicuf_line)
1066 unkId PPgmagicuf_id;
1067 stringId PPgmagicuf_str;
1068 long PPgmagicuf_line;
1070 register struct Smagicuf_uprag *pp =
1071 (struct Smagicuf_uprag *) malloc(sizeof(struct Smagicuf_uprag));
1072 pp -> tag = magicuf_uprag;
1073 pp -> Xgmagicuf_id = PPgmagicuf_id;
1074 pp -> Xgmagicuf_str = PPgmagicuf_str;
1075 pp -> Xgmagicuf_line = PPgmagicuf_line;
1076 return((binding)pp);
1079 unkId *Rgmagicuf_id(t)
1080 struct Smagicuf_uprag *t;
1083 if(t -> tag != magicuf_uprag)
1084 fprintf(stderr,"gmagicuf_id: illegal selection; was %d\n", t -> tag);
1085 #endif /* UGEN_DEBUG */
1086 return(& t -> Xgmagicuf_id);
1089 stringId *Rgmagicuf_str(t)
1090 struct Smagicuf_uprag *t;
1093 if(t -> tag != magicuf_uprag)
1094 fprintf(stderr,"gmagicuf_str: illegal selection; was %d\n", t -> tag);
1095 #endif /* UGEN_DEBUG */
1096 return(& t -> Xgmagicuf_str);
1099 long *Rgmagicuf_line(t)
1100 struct Smagicuf_uprag *t;
1103 if(t -> tag != magicuf_uprag)
1104 fprintf(stderr,"gmagicuf_line: illegal selection; was %d\n", t -> tag);
1105 #endif /* UGEN_DEBUG */
1106 return(& t -> Xgmagicuf_line);
1109 /************** abstract_uprag ******************/
1111 binding mkabstract_uprag(PPgabstract_id, PPgabstract_line)
1112 unkId PPgabstract_id;
1113 long PPgabstract_line;
1115 register struct Sabstract_uprag *pp =
1116 (struct Sabstract_uprag *) malloc(sizeof(struct Sabstract_uprag));
1117 pp -> tag = abstract_uprag;
1118 pp -> Xgabstract_id = PPgabstract_id;
1119 pp -> Xgabstract_line = PPgabstract_line;
1120 return((binding)pp);
1123 unkId *Rgabstract_id(t)
1124 struct Sabstract_uprag *t;
1127 if(t -> tag != abstract_uprag)
1128 fprintf(stderr,"gabstract_id: illegal selection; was %d\n", t -> tag);
1129 #endif /* UGEN_DEBUG */
1130 return(& t -> Xgabstract_id);
1133 long *Rgabstract_line(t)
1134 struct Sabstract_uprag *t;
1137 if(t -> tag != abstract_uprag)
1138 fprintf(stderr,"gabstract_line: illegal selection; was %d\n", t -> tag);
1139 #endif /* UGEN_DEBUG */
1140 return(& t -> Xgabstract_line);
1143 /************** dspec_uprag ******************/
1145 binding mkdspec_uprag(PPgdspec_id, PPgdspec_tys, PPgdspec_line)
1150 register struct Sdspec_uprag *pp =
1151 (struct Sdspec_uprag *) malloc(sizeof(struct Sdspec_uprag));
1152 pp -> tag = dspec_uprag;
1153 pp -> Xgdspec_id = PPgdspec_id;
1154 pp -> Xgdspec_tys = PPgdspec_tys;
1155 pp -> Xgdspec_line = PPgdspec_line;
1156 return((binding)pp);
1159 unkId *Rgdspec_id(t)
1160 struct Sdspec_uprag *t;
1163 if(t -> tag != dspec_uprag)
1164 fprintf(stderr,"gdspec_id: illegal selection; was %d\n", t -> tag);
1165 #endif /* UGEN_DEBUG */
1166 return(& t -> Xgdspec_id);
1169 list *Rgdspec_tys(t)
1170 struct Sdspec_uprag *t;
1173 if(t -> tag != dspec_uprag)
1174 fprintf(stderr,"gdspec_tys: illegal selection; was %d\n", t -> tag);
1175 #endif /* UGEN_DEBUG */
1176 return(& t -> Xgdspec_tys);
1179 long *Rgdspec_line(t)
1180 struct Sdspec_uprag *t;
1183 if(t -> tag != dspec_uprag)
1184 fprintf(stderr,"gdspec_line: illegal selection; was %d\n", t -> tag);
1185 #endif /* UGEN_DEBUG */
1186 return(& t -> Xgdspec_line);