1 #ifndef binding_defined
2 #define binding_defined
41 typedef struct { Tbinding tag; } *binding;
44 extern __inline__ Tbinding tbinding(binding t)
48 #else /* ! __GNUC__ */
49 extern Tbinding tbinding PROTO((binding));
50 #endif /* ! __GNUC__ */
143 stringId Xgmbindmodn;
155 stringId Xgiebindmod;
159 stringId Xgiebindfile;
165 stringId Xgihbindmod;
169 stringId Xgihbindfile;
173 struct Svspec_uprag {
180 struct Svspec_ty_and_id {
186 struct Sispec_uprag {
193 struct Sinline_uprag {
200 struct Sdeforest_uprag {
203 long Xgdeforest_line;
206 struct Smagicuf_uprag {
209 stringId Xgmagicuf_str;
213 struct Sabstract_uprag {
216 long Xgabstract_line;
219 struct Sdspec_uprag {
226 extern binding mktbind PROTO((list, ttype, list, list, long, hpragma));
229 extern __inline__ list *Rgtbindc(struct Stbind *t)
232 if(t -> tag != tbind)
233 fprintf(stderr,"gtbindc: illegal selection; was %d\n", t -> tag);
234 #endif /* UGEN_DEBUG */
235 return(& t -> Xgtbindc);
237 #else /* ! __GNUC__ */
238 extern list *Rgtbindc PROTO((struct Stbind *));
239 #endif /* ! __GNUC__ */
241 #define gtbindc(xyzxyz) (*Rgtbindc((struct Stbind *) (xyzxyz)))
244 extern __inline__ ttype *Rgtbindid(struct Stbind *t)
247 if(t -> tag != tbind)
248 fprintf(stderr,"gtbindid: illegal selection; was %d\n", t -> tag);
249 #endif /* UGEN_DEBUG */
250 return(& t -> Xgtbindid);
252 #else /* ! __GNUC__ */
253 extern ttype *Rgtbindid PROTO((struct Stbind *));
254 #endif /* ! __GNUC__ */
256 #define gtbindid(xyzxyz) (*Rgtbindid((struct Stbind *) (xyzxyz)))
259 extern __inline__ list *Rgtbindl(struct Stbind *t)
262 if(t -> tag != tbind)
263 fprintf(stderr,"gtbindl: illegal selection; was %d\n", t -> tag);
264 #endif /* UGEN_DEBUG */
265 return(& t -> Xgtbindl);
267 #else /* ! __GNUC__ */
268 extern list *Rgtbindl PROTO((struct Stbind *));
269 #endif /* ! __GNUC__ */
271 #define gtbindl(xyzxyz) (*Rgtbindl((struct Stbind *) (xyzxyz)))
274 extern __inline__ list *Rgtbindd(struct Stbind *t)
277 if(t -> tag != tbind)
278 fprintf(stderr,"gtbindd: illegal selection; was %d\n", t -> tag);
279 #endif /* UGEN_DEBUG */
280 return(& t -> Xgtbindd);
282 #else /* ! __GNUC__ */
283 extern list *Rgtbindd PROTO((struct Stbind *));
284 #endif /* ! __GNUC__ */
286 #define gtbindd(xyzxyz) (*Rgtbindd((struct Stbind *) (xyzxyz)))
289 extern __inline__ long *Rgtline(struct Stbind *t)
292 if(t -> tag != tbind)
293 fprintf(stderr,"gtline: illegal selection; was %d\n", t -> tag);
294 #endif /* UGEN_DEBUG */
295 return(& t -> Xgtline);
297 #else /* ! __GNUC__ */
298 extern long *Rgtline PROTO((struct Stbind *));
299 #endif /* ! __GNUC__ */
301 #define gtline(xyzxyz) (*Rgtline((struct Stbind *) (xyzxyz)))
304 extern __inline__ hpragma *Rgtpragma(struct Stbind *t)
307 if(t -> tag != tbind)
308 fprintf(stderr,"gtpragma: illegal selection; was %d\n", t -> tag);
309 #endif /* UGEN_DEBUG */
310 return(& t -> Xgtpragma);
312 #else /* ! __GNUC__ */
313 extern hpragma *Rgtpragma PROTO((struct Stbind *));
314 #endif /* ! __GNUC__ */
316 #define gtpragma(xyzxyz) (*Rgtpragma((struct Stbind *) (xyzxyz)))
318 extern binding mknbind PROTO((ttype, ttype, long, hpragma));
321 extern __inline__ ttype *Rgnbindid(struct Snbind *t)
324 if(t -> tag != nbind)
325 fprintf(stderr,"gnbindid: illegal selection; was %d\n", t -> tag);
326 #endif /* UGEN_DEBUG */
327 return(& t -> Xgnbindid);
329 #else /* ! __GNUC__ */
330 extern ttype *Rgnbindid PROTO((struct Snbind *));
331 #endif /* ! __GNUC__ */
333 #define gnbindid(xyzxyz) (*Rgnbindid((struct Snbind *) (xyzxyz)))
336 extern __inline__ ttype *Rgnbindas(struct Snbind *t)
339 if(t -> tag != nbind)
340 fprintf(stderr,"gnbindas: illegal selection; was %d\n", t -> tag);
341 #endif /* UGEN_DEBUG */
342 return(& t -> Xgnbindas);
344 #else /* ! __GNUC__ */
345 extern ttype *Rgnbindas PROTO((struct Snbind *));
346 #endif /* ! __GNUC__ */
348 #define gnbindas(xyzxyz) (*Rgnbindas((struct Snbind *) (xyzxyz)))
351 extern __inline__ long *Rgnline(struct Snbind *t)
354 if(t -> tag != nbind)
355 fprintf(stderr,"gnline: illegal selection; was %d\n", t -> tag);
356 #endif /* UGEN_DEBUG */
357 return(& t -> Xgnline);
359 #else /* ! __GNUC__ */
360 extern long *Rgnline PROTO((struct Snbind *));
361 #endif /* ! __GNUC__ */
363 #define gnline(xyzxyz) (*Rgnline((struct Snbind *) (xyzxyz)))
366 extern __inline__ hpragma *Rgnpragma(struct Snbind *t)
369 if(t -> tag != nbind)
370 fprintf(stderr,"gnpragma: illegal selection; was %d\n", t -> tag);
371 #endif /* UGEN_DEBUG */
372 return(& t -> Xgnpragma);
374 #else /* ! __GNUC__ */
375 extern hpragma *Rgnpragma PROTO((struct Snbind *));
376 #endif /* ! __GNUC__ */
378 #define gnpragma(xyzxyz) (*Rgnpragma((struct Snbind *) (xyzxyz)))
380 extern binding mkpbind PROTO((list, long));
383 extern __inline__ list *Rgpbindl(struct Spbind *t)
386 if(t -> tag != pbind)
387 fprintf(stderr,"gpbindl: illegal selection; was %d\n", t -> tag);
388 #endif /* UGEN_DEBUG */
389 return(& t -> Xgpbindl);
391 #else /* ! __GNUC__ */
392 extern list *Rgpbindl PROTO((struct Spbind *));
393 #endif /* ! __GNUC__ */
395 #define gpbindl(xyzxyz) (*Rgpbindl((struct Spbind *) (xyzxyz)))
398 extern __inline__ long *Rgpline(struct Spbind *t)
401 if(t -> tag != pbind)
402 fprintf(stderr,"gpline: illegal selection; was %d\n", t -> tag);
403 #endif /* UGEN_DEBUG */
404 return(& t -> Xgpline);
406 #else /* ! __GNUC__ */
407 extern long *Rgpline PROTO((struct Spbind *));
408 #endif /* ! __GNUC__ */
410 #define gpline(xyzxyz) (*Rgpline((struct Spbind *) (xyzxyz)))
412 extern binding mkfbind PROTO((list, long));
415 extern __inline__ list *Rgfbindl(struct Sfbind *t)
418 if(t -> tag != fbind)
419 fprintf(stderr,"gfbindl: illegal selection; was %d\n", t -> tag);
420 #endif /* UGEN_DEBUG */
421 return(& t -> Xgfbindl);
423 #else /* ! __GNUC__ */
424 extern list *Rgfbindl PROTO((struct Sfbind *));
425 #endif /* ! __GNUC__ */
427 #define gfbindl(xyzxyz) (*Rgfbindl((struct Sfbind *) (xyzxyz)))
430 extern __inline__ long *Rgfline(struct Sfbind *t)
433 if(t -> tag != fbind)
434 fprintf(stderr,"gfline: illegal selection; was %d\n", t -> tag);
435 #endif /* UGEN_DEBUG */
436 return(& t -> Xgfline);
438 #else /* ! __GNUC__ */
439 extern long *Rgfline PROTO((struct Sfbind *));
440 #endif /* ! __GNUC__ */
442 #define gfline(xyzxyz) (*Rgfline((struct Sfbind *) (xyzxyz)))
444 extern binding mkabind PROTO((binding, binding));
447 extern __inline__ binding *Rgabindfst(struct Sabind *t)
450 if(t -> tag != abind)
451 fprintf(stderr,"gabindfst: illegal selection; was %d\n", t -> tag);
452 #endif /* UGEN_DEBUG */
453 return(& t -> Xgabindfst);
455 #else /* ! __GNUC__ */
456 extern binding *Rgabindfst PROTO((struct Sabind *));
457 #endif /* ! __GNUC__ */
459 #define gabindfst(xyzxyz) (*Rgabindfst((struct Sabind *) (xyzxyz)))
462 extern __inline__ binding *Rgabindsnd(struct Sabind *t)
465 if(t -> tag != abind)
466 fprintf(stderr,"gabindsnd: illegal selection; was %d\n", t -> tag);
467 #endif /* UGEN_DEBUG */
468 return(& t -> Xgabindsnd);
470 #else /* ! __GNUC__ */
471 extern binding *Rgabindsnd PROTO((struct Sabind *));
472 #endif /* ! __GNUC__ */
474 #define gabindsnd(xyzxyz) (*Rgabindsnd((struct Sabind *) (xyzxyz)))
476 extern binding mklbind PROTO((binding, binding));
479 extern __inline__ binding *Rglbindfst(struct Slbind *t)
482 if(t -> tag != lbind)
483 fprintf(stderr,"glbindfst: illegal selection; was %d\n", t -> tag);
484 #endif /* UGEN_DEBUG */
485 return(& t -> Xglbindfst);
487 #else /* ! __GNUC__ */
488 extern binding *Rglbindfst PROTO((struct Slbind *));
489 #endif /* ! __GNUC__ */
491 #define glbindfst(xyzxyz) (*Rglbindfst((struct Slbind *) (xyzxyz)))
494 extern __inline__ binding *Rglbindsnd(struct Slbind *t)
497 if(t -> tag != lbind)
498 fprintf(stderr,"glbindsnd: illegal selection; was %d\n", t -> tag);
499 #endif /* UGEN_DEBUG */
500 return(& t -> Xglbindsnd);
502 #else /* ! __GNUC__ */
503 extern binding *Rglbindsnd PROTO((struct Slbind *));
504 #endif /* ! __GNUC__ */
506 #define glbindsnd(xyzxyz) (*Rglbindsnd((struct Slbind *) (xyzxyz)))
508 extern binding mkebind PROTO((list, binding, long));
511 extern __inline__ list *Rgebindl(struct Sebind *t)
514 if(t -> tag != ebind)
515 fprintf(stderr,"gebindl: illegal selection; was %d\n", t -> tag);
516 #endif /* UGEN_DEBUG */
517 return(& t -> Xgebindl);
519 #else /* ! __GNUC__ */
520 extern list *Rgebindl PROTO((struct Sebind *));
521 #endif /* ! __GNUC__ */
523 #define gebindl(xyzxyz) (*Rgebindl((struct Sebind *) (xyzxyz)))
526 extern __inline__ binding *Rgebind(struct Sebind *t)
529 if(t -> tag != ebind)
530 fprintf(stderr,"gebind: illegal selection; was %d\n", t -> tag);
531 #endif /* UGEN_DEBUG */
532 return(& t -> Xgebind);
534 #else /* ! __GNUC__ */
535 extern binding *Rgebind PROTO((struct Sebind *));
536 #endif /* ! __GNUC__ */
538 #define gebind(xyzxyz) (*Rgebind((struct Sebind *) (xyzxyz)))
541 extern __inline__ long *Rgeline(struct Sebind *t)
544 if(t -> tag != ebind)
545 fprintf(stderr,"geline: illegal selection; was %d\n", t -> tag);
546 #endif /* UGEN_DEBUG */
547 return(& t -> Xgeline);
549 #else /* ! __GNUC__ */
550 extern long *Rgeline PROTO((struct Sebind *));
551 #endif /* ! __GNUC__ */
553 #define geline(xyzxyz) (*Rgeline((struct Sebind *) (xyzxyz)))
555 extern binding mkhbind PROTO((list, binding, long));
558 extern __inline__ list *Rghbindl(struct Shbind *t)
561 if(t -> tag != hbind)
562 fprintf(stderr,"ghbindl: illegal selection; was %d\n", t -> tag);
563 #endif /* UGEN_DEBUG */
564 return(& t -> Xghbindl);
566 #else /* ! __GNUC__ */
567 extern list *Rghbindl PROTO((struct Shbind *));
568 #endif /* ! __GNUC__ */
570 #define ghbindl(xyzxyz) (*Rghbindl((struct Shbind *) (xyzxyz)))
573 extern __inline__ binding *Rghbind(struct Shbind *t)
576 if(t -> tag != hbind)
577 fprintf(stderr,"ghbind: illegal selection; was %d\n", t -> tag);
578 #endif /* UGEN_DEBUG */
579 return(& t -> Xghbind);
581 #else /* ! __GNUC__ */
582 extern binding *Rghbind PROTO((struct Shbind *));
583 #endif /* ! __GNUC__ */
585 #define ghbind(xyzxyz) (*Rghbind((struct Shbind *) (xyzxyz)))
588 extern __inline__ long *Rghline(struct Shbind *t)
591 if(t -> tag != hbind)
592 fprintf(stderr,"ghline: illegal selection; was %d\n", t -> tag);
593 #endif /* UGEN_DEBUG */
594 return(& t -> Xghline);
596 #else /* ! __GNUC__ */
597 extern long *Rghline PROTO((struct Shbind *));
598 #endif /* ! __GNUC__ */
600 #define ghline(xyzxyz) (*Rghline((struct Shbind *) (xyzxyz)))
602 extern binding mkibind PROTO((list, unkId, ttype, binding, long, hpragma));
605 extern __inline__ list *Rgibindc(struct Sibind *t)
608 if(t -> tag != ibind)
609 fprintf(stderr,"gibindc: illegal selection; was %d\n", t -> tag);
610 #endif /* UGEN_DEBUG */
611 return(& t -> Xgibindc);
613 #else /* ! __GNUC__ */
614 extern list *Rgibindc PROTO((struct Sibind *));
615 #endif /* ! __GNUC__ */
617 #define gibindc(xyzxyz) (*Rgibindc((struct Sibind *) (xyzxyz)))
620 extern __inline__ unkId *Rgibindid(struct Sibind *t)
623 if(t -> tag != ibind)
624 fprintf(stderr,"gibindid: illegal selection; was %d\n", t -> tag);
625 #endif /* UGEN_DEBUG */
626 return(& t -> Xgibindid);
628 #else /* ! __GNUC__ */
629 extern unkId *Rgibindid PROTO((struct Sibind *));
630 #endif /* ! __GNUC__ */
632 #define gibindid(xyzxyz) (*Rgibindid((struct Sibind *) (xyzxyz)))
635 extern __inline__ ttype *Rgibindi(struct Sibind *t)
638 if(t -> tag != ibind)
639 fprintf(stderr,"gibindi: illegal selection; was %d\n", t -> tag);
640 #endif /* UGEN_DEBUG */
641 return(& t -> Xgibindi);
643 #else /* ! __GNUC__ */
644 extern ttype *Rgibindi PROTO((struct Sibind *));
645 #endif /* ! __GNUC__ */
647 #define gibindi(xyzxyz) (*Rgibindi((struct Sibind *) (xyzxyz)))
650 extern __inline__ binding *Rgibindw(struct Sibind *t)
653 if(t -> tag != ibind)
654 fprintf(stderr,"gibindw: illegal selection; was %d\n", t -> tag);
655 #endif /* UGEN_DEBUG */
656 return(& t -> Xgibindw);
658 #else /* ! __GNUC__ */
659 extern binding *Rgibindw PROTO((struct Sibind *));
660 #endif /* ! __GNUC__ */
662 #define gibindw(xyzxyz) (*Rgibindw((struct Sibind *) (xyzxyz)))
665 extern __inline__ long *Rgiline(struct Sibind *t)
668 if(t -> tag != ibind)
669 fprintf(stderr,"giline: illegal selection; was %d\n", t -> tag);
670 #endif /* UGEN_DEBUG */
671 return(& t -> Xgiline);
673 #else /* ! __GNUC__ */
674 extern long *Rgiline PROTO((struct Sibind *));
675 #endif /* ! __GNUC__ */
677 #define giline(xyzxyz) (*Rgiline((struct Sibind *) (xyzxyz)))
680 extern __inline__ hpragma *Rgipragma(struct Sibind *t)
683 if(t -> tag != ibind)
684 fprintf(stderr,"gipragma: illegal selection; was %d\n", t -> tag);
685 #endif /* UGEN_DEBUG */
686 return(& t -> Xgipragma);
688 #else /* ! __GNUC__ */
689 extern hpragma *Rgipragma PROTO((struct Sibind *));
690 #endif /* ! __GNUC__ */
692 #define gipragma(xyzxyz) (*Rgipragma((struct Sibind *) (xyzxyz)))
694 extern binding mkdbind PROTO((list, long));
697 extern __inline__ list *Rgdbindts(struct Sdbind *t)
700 if(t -> tag != dbind)
701 fprintf(stderr,"gdbindts: illegal selection; was %d\n", t -> tag);
702 #endif /* UGEN_DEBUG */
703 return(& t -> Xgdbindts);
705 #else /* ! __GNUC__ */
706 extern list *Rgdbindts PROTO((struct Sdbind *));
707 #endif /* ! __GNUC__ */
709 #define gdbindts(xyzxyz) (*Rgdbindts((struct Sdbind *) (xyzxyz)))
712 extern __inline__ long *Rgdline(struct Sdbind *t)
715 if(t -> tag != dbind)
716 fprintf(stderr,"gdline: illegal selection; was %d\n", t -> tag);
717 #endif /* UGEN_DEBUG */
718 return(& t -> Xgdline);
720 #else /* ! __GNUC__ */
721 extern long *Rgdline PROTO((struct Sdbind *));
722 #endif /* ! __GNUC__ */
724 #define gdline(xyzxyz) (*Rgdline((struct Sdbind *) (xyzxyz)))
726 extern binding mkcbind PROTO((list, ttype, binding, long, hpragma));
729 extern __inline__ list *Rgcbindc(struct Scbind *t)
732 if(t -> tag != cbind)
733 fprintf(stderr,"gcbindc: illegal selection; was %d\n", t -> tag);
734 #endif /* UGEN_DEBUG */
735 return(& t -> Xgcbindc);
737 #else /* ! __GNUC__ */
738 extern list *Rgcbindc PROTO((struct Scbind *));
739 #endif /* ! __GNUC__ */
741 #define gcbindc(xyzxyz) (*Rgcbindc((struct Scbind *) (xyzxyz)))
744 extern __inline__ ttype *Rgcbindid(struct Scbind *t)
747 if(t -> tag != cbind)
748 fprintf(stderr,"gcbindid: illegal selection; was %d\n", t -> tag);
749 #endif /* UGEN_DEBUG */
750 return(& t -> Xgcbindid);
752 #else /* ! __GNUC__ */
753 extern ttype *Rgcbindid PROTO((struct Scbind *));
754 #endif /* ! __GNUC__ */
756 #define gcbindid(xyzxyz) (*Rgcbindid((struct Scbind *) (xyzxyz)))
759 extern __inline__ binding *Rgcbindw(struct Scbind *t)
762 if(t -> tag != cbind)
763 fprintf(stderr,"gcbindw: illegal selection; was %d\n", t -> tag);
764 #endif /* UGEN_DEBUG */
765 return(& t -> Xgcbindw);
767 #else /* ! __GNUC__ */
768 extern binding *Rgcbindw PROTO((struct Scbind *));
769 #endif /* ! __GNUC__ */
771 #define gcbindw(xyzxyz) (*Rgcbindw((struct Scbind *) (xyzxyz)))
774 extern __inline__ long *Rgcline(struct Scbind *t)
777 if(t -> tag != cbind)
778 fprintf(stderr,"gcline: illegal selection; was %d\n", t -> tag);
779 #endif /* UGEN_DEBUG */
780 return(& t -> Xgcline);
782 #else /* ! __GNUC__ */
783 extern long *Rgcline PROTO((struct Scbind *));
784 #endif /* ! __GNUC__ */
786 #define gcline(xyzxyz) (*Rgcline((struct Scbind *) (xyzxyz)))
789 extern __inline__ hpragma *Rgcpragma(struct Scbind *t)
792 if(t -> tag != cbind)
793 fprintf(stderr,"gcpragma: illegal selection; was %d\n", t -> tag);
794 #endif /* UGEN_DEBUG */
795 return(& t -> Xgcpragma);
797 #else /* ! __GNUC__ */
798 extern hpragma *Rgcpragma PROTO((struct Scbind *));
799 #endif /* ! __GNUC__ */
801 #define gcpragma(xyzxyz) (*Rgcpragma((struct Scbind *) (xyzxyz)))
803 extern binding mksbind PROTO((list, ttype, long, hpragma));
806 extern __inline__ list *Rgsbindids(struct Ssbind *t)
809 if(t -> tag != sbind)
810 fprintf(stderr,"gsbindids: illegal selection; was %d\n", t -> tag);
811 #endif /* UGEN_DEBUG */
812 return(& t -> Xgsbindids);
814 #else /* ! __GNUC__ */
815 extern list *Rgsbindids PROTO((struct Ssbind *));
816 #endif /* ! __GNUC__ */
818 #define gsbindids(xyzxyz) (*Rgsbindids((struct Ssbind *) (xyzxyz)))
821 extern __inline__ ttype *Rgsbindid(struct Ssbind *t)
824 if(t -> tag != sbind)
825 fprintf(stderr,"gsbindid: illegal selection; was %d\n", t -> tag);
826 #endif /* UGEN_DEBUG */
827 return(& t -> Xgsbindid);
829 #else /* ! __GNUC__ */
830 extern ttype *Rgsbindid PROTO((struct Ssbind *));
831 #endif /* ! __GNUC__ */
833 #define gsbindid(xyzxyz) (*Rgsbindid((struct Ssbind *) (xyzxyz)))
836 extern __inline__ long *Rgsline(struct Ssbind *t)
839 if(t -> tag != sbind)
840 fprintf(stderr,"gsline: illegal selection; was %d\n", t -> tag);
841 #endif /* UGEN_DEBUG */
842 return(& t -> Xgsline);
844 #else /* ! __GNUC__ */
845 extern long *Rgsline PROTO((struct Ssbind *));
846 #endif /* ! __GNUC__ */
848 #define gsline(xyzxyz) (*Rgsline((struct Ssbind *) (xyzxyz)))
851 extern __inline__ hpragma *Rgspragma(struct Ssbind *t)
854 if(t -> tag != sbind)
855 fprintf(stderr,"gspragma: illegal selection; was %d\n", t -> tag);
856 #endif /* UGEN_DEBUG */
857 return(& t -> Xgspragma);
859 #else /* ! __GNUC__ */
860 extern hpragma *Rgspragma PROTO((struct Ssbind *));
861 #endif /* ! __GNUC__ */
863 #define gspragma(xyzxyz) (*Rgspragma((struct Ssbind *) (xyzxyz)))
865 extern binding mkmbind PROTO((stringId, list, list, long));
868 extern __inline__ stringId *Rgmbindmodn(struct Smbind *t)
871 if(t -> tag != mbind)
872 fprintf(stderr,"gmbindmodn: illegal selection; was %d\n", t -> tag);
873 #endif /* UGEN_DEBUG */
874 return(& t -> Xgmbindmodn);
876 #else /* ! __GNUC__ */
877 extern stringId *Rgmbindmodn PROTO((struct Smbind *));
878 #endif /* ! __GNUC__ */
880 #define gmbindmodn(xyzxyz) (*Rgmbindmodn((struct Smbind *) (xyzxyz)))
883 extern __inline__ list *Rgmbindimp(struct Smbind *t)
886 if(t -> tag != mbind)
887 fprintf(stderr,"gmbindimp: illegal selection; was %d\n", t -> tag);
888 #endif /* UGEN_DEBUG */
889 return(& t -> Xgmbindimp);
891 #else /* ! __GNUC__ */
892 extern list *Rgmbindimp PROTO((struct Smbind *));
893 #endif /* ! __GNUC__ */
895 #define gmbindimp(xyzxyz) (*Rgmbindimp((struct Smbind *) (xyzxyz)))
898 extern __inline__ list *Rgmbindren(struct Smbind *t)
901 if(t -> tag != mbind)
902 fprintf(stderr,"gmbindren: illegal selection; was %d\n", t -> tag);
903 #endif /* UGEN_DEBUG */
904 return(& t -> Xgmbindren);
906 #else /* ! __GNUC__ */
907 extern list *Rgmbindren PROTO((struct Smbind *));
908 #endif /* ! __GNUC__ */
910 #define gmbindren(xyzxyz) (*Rgmbindren((struct Smbind *) (xyzxyz)))
913 extern __inline__ long *Rgmline(struct Smbind *t)
916 if(t -> tag != mbind)
917 fprintf(stderr,"gmline: illegal selection; was %d\n", t -> tag);
918 #endif /* UGEN_DEBUG */
919 return(& t -> Xgmline);
921 #else /* ! __GNUC__ */
922 extern long *Rgmline PROTO((struct Smbind *));
923 #endif /* ! __GNUC__ */
925 #define gmline(xyzxyz) (*Rgmline((struct Smbind *) (xyzxyz)))
927 extern binding mknullbind PROTO(());
929 extern binding mkimport PROTO((stringId, list, list, binding, stringId, long));
932 extern __inline__ stringId *Rgiebindmod(struct Simport *t)
935 if(t -> tag != import)
936 fprintf(stderr,"giebindmod: illegal selection; was %d\n", t -> tag);
937 #endif /* UGEN_DEBUG */
938 return(& t -> Xgiebindmod);
940 #else /* ! __GNUC__ */
941 extern stringId *Rgiebindmod PROTO((struct Simport *));
942 #endif /* ! __GNUC__ */
944 #define giebindmod(xyzxyz) (*Rgiebindmod((struct Simport *) (xyzxyz)))
947 extern __inline__ list *Rgiebindexp(struct Simport *t)
950 if(t -> tag != import)
951 fprintf(stderr,"giebindexp: illegal selection; was %d\n", t -> tag);
952 #endif /* UGEN_DEBUG */
953 return(& t -> Xgiebindexp);
955 #else /* ! __GNUC__ */
956 extern list *Rgiebindexp PROTO((struct Simport *));
957 #endif /* ! __GNUC__ */
959 #define giebindexp(xyzxyz) (*Rgiebindexp((struct Simport *) (xyzxyz)))
962 extern __inline__ list *Rgiebindren(struct Simport *t)
965 if(t -> tag != import)
966 fprintf(stderr,"giebindren: illegal selection; was %d\n", t -> tag);
967 #endif /* UGEN_DEBUG */
968 return(& t -> Xgiebindren);
970 #else /* ! __GNUC__ */
971 extern list *Rgiebindren PROTO((struct Simport *));
972 #endif /* ! __GNUC__ */
974 #define giebindren(xyzxyz) (*Rgiebindren((struct Simport *) (xyzxyz)))
977 extern __inline__ binding *Rgiebinddef(struct Simport *t)
980 if(t -> tag != import)
981 fprintf(stderr,"giebinddef: illegal selection; was %d\n", t -> tag);
982 #endif /* UGEN_DEBUG */
983 return(& t -> Xgiebinddef);
985 #else /* ! __GNUC__ */
986 extern binding *Rgiebinddef PROTO((struct Simport *));
987 #endif /* ! __GNUC__ */
989 #define giebinddef(xyzxyz) (*Rgiebinddef((struct Simport *) (xyzxyz)))
992 extern __inline__ stringId *Rgiebindfile(struct Simport *t)
995 if(t -> tag != import)
996 fprintf(stderr,"giebindfile: illegal selection; was %d\n", t -> tag);
997 #endif /* UGEN_DEBUG */
998 return(& t -> Xgiebindfile);
1000 #else /* ! __GNUC__ */
1001 extern stringId *Rgiebindfile PROTO((struct Simport *));
1002 #endif /* ! __GNUC__ */
1004 #define giebindfile(xyzxyz) (*Rgiebindfile((struct Simport *) (xyzxyz)))
1007 extern __inline__ long *Rgiebindline(struct Simport *t)
1010 if(t -> tag != import)
1011 fprintf(stderr,"giebindline: illegal selection; was %d\n", t -> tag);
1012 #endif /* UGEN_DEBUG */
1013 return(& t -> Xgiebindline);
1015 #else /* ! __GNUC__ */
1016 extern long *Rgiebindline PROTO((struct Simport *));
1017 #endif /* ! __GNUC__ */
1019 #define giebindline(xyzxyz) (*Rgiebindline((struct Simport *) (xyzxyz)))
1021 extern binding mkhiding PROTO((stringId, list, list, binding, stringId, long));
1024 extern __inline__ stringId *Rgihbindmod(struct Shiding *t)
1027 if(t -> tag != hiding)
1028 fprintf(stderr,"gihbindmod: illegal selection; was %d\n", t -> tag);
1029 #endif /* UGEN_DEBUG */
1030 return(& t -> Xgihbindmod);
1032 #else /* ! __GNUC__ */
1033 extern stringId *Rgihbindmod PROTO((struct Shiding *));
1034 #endif /* ! __GNUC__ */
1036 #define gihbindmod(xyzxyz) (*Rgihbindmod((struct Shiding *) (xyzxyz)))
1039 extern __inline__ list *Rgihbindexp(struct Shiding *t)
1042 if(t -> tag != hiding)
1043 fprintf(stderr,"gihbindexp: illegal selection; was %d\n", t -> tag);
1044 #endif /* UGEN_DEBUG */
1045 return(& t -> Xgihbindexp);
1047 #else /* ! __GNUC__ */
1048 extern list *Rgihbindexp PROTO((struct Shiding *));
1049 #endif /* ! __GNUC__ */
1051 #define gihbindexp(xyzxyz) (*Rgihbindexp((struct Shiding *) (xyzxyz)))
1054 extern __inline__ list *Rgihbindren(struct Shiding *t)
1057 if(t -> tag != hiding)
1058 fprintf(stderr,"gihbindren: illegal selection; was %d\n", t -> tag);
1059 #endif /* UGEN_DEBUG */
1060 return(& t -> Xgihbindren);
1062 #else /* ! __GNUC__ */
1063 extern list *Rgihbindren PROTO((struct Shiding *));
1064 #endif /* ! __GNUC__ */
1066 #define gihbindren(xyzxyz) (*Rgihbindren((struct Shiding *) (xyzxyz)))
1069 extern __inline__ binding *Rgihbinddef(struct Shiding *t)
1072 if(t -> tag != hiding)
1073 fprintf(stderr,"gihbinddef: illegal selection; was %d\n", t -> tag);
1074 #endif /* UGEN_DEBUG */
1075 return(& t -> Xgihbinddef);
1077 #else /* ! __GNUC__ */
1078 extern binding *Rgihbinddef PROTO((struct Shiding *));
1079 #endif /* ! __GNUC__ */
1081 #define gihbinddef(xyzxyz) (*Rgihbinddef((struct Shiding *) (xyzxyz)))
1084 extern __inline__ stringId *Rgihbindfile(struct Shiding *t)
1087 if(t -> tag != hiding)
1088 fprintf(stderr,"gihbindfile: illegal selection; was %d\n", t -> tag);
1089 #endif /* UGEN_DEBUG */
1090 return(& t -> Xgihbindfile);
1092 #else /* ! __GNUC__ */
1093 extern stringId *Rgihbindfile PROTO((struct Shiding *));
1094 #endif /* ! __GNUC__ */
1096 #define gihbindfile(xyzxyz) (*Rgihbindfile((struct Shiding *) (xyzxyz)))
1099 extern __inline__ long *Rgihbindline(struct Shiding *t)
1102 if(t -> tag != hiding)
1103 fprintf(stderr,"gihbindline: illegal selection; was %d\n", t -> tag);
1104 #endif /* UGEN_DEBUG */
1105 return(& t -> Xgihbindline);
1107 #else /* ! __GNUC__ */
1108 extern long *Rgihbindline PROTO((struct Shiding *));
1109 #endif /* ! __GNUC__ */
1111 #define gihbindline(xyzxyz) (*Rgihbindline((struct Shiding *) (xyzxyz)))
1113 extern binding mkvspec_uprag PROTO((unkId, list, long));
1116 extern __inline__ unkId *Rgvspec_id(struct Svspec_uprag *t)
1119 if(t -> tag != vspec_uprag)
1120 fprintf(stderr,"gvspec_id: illegal selection; was %d\n", t -> tag);
1121 #endif /* UGEN_DEBUG */
1122 return(& t -> Xgvspec_id);
1124 #else /* ! __GNUC__ */
1125 extern unkId *Rgvspec_id PROTO((struct Svspec_uprag *));
1126 #endif /* ! __GNUC__ */
1128 #define gvspec_id(xyzxyz) (*Rgvspec_id((struct Svspec_uprag *) (xyzxyz)))
1131 extern __inline__ list *Rgvspec_tys(struct Svspec_uprag *t)
1134 if(t -> tag != vspec_uprag)
1135 fprintf(stderr,"gvspec_tys: illegal selection; was %d\n", t -> tag);
1136 #endif /* UGEN_DEBUG */
1137 return(& t -> Xgvspec_tys);
1139 #else /* ! __GNUC__ */
1140 extern list *Rgvspec_tys PROTO((struct Svspec_uprag *));
1141 #endif /* ! __GNUC__ */
1143 #define gvspec_tys(xyzxyz) (*Rgvspec_tys((struct Svspec_uprag *) (xyzxyz)))
1146 extern __inline__ long *Rgvspec_line(struct Svspec_uprag *t)
1149 if(t -> tag != vspec_uprag)
1150 fprintf(stderr,"gvspec_line: illegal selection; was %d\n", t -> tag);
1151 #endif /* UGEN_DEBUG */
1152 return(& t -> Xgvspec_line);
1154 #else /* ! __GNUC__ */
1155 extern long *Rgvspec_line PROTO((struct Svspec_uprag *));
1156 #endif /* ! __GNUC__ */
1158 #define gvspec_line(xyzxyz) (*Rgvspec_line((struct Svspec_uprag *) (xyzxyz)))
1160 extern binding mkvspec_ty_and_id PROTO((ttype, list));
1163 extern __inline__ ttype *Rgvspec_ty(struct Svspec_ty_and_id *t)
1166 if(t -> tag != vspec_ty_and_id)
1167 fprintf(stderr,"gvspec_ty: illegal selection; was %d\n", t -> tag);
1168 #endif /* UGEN_DEBUG */
1169 return(& t -> Xgvspec_ty);
1171 #else /* ! __GNUC__ */
1172 extern ttype *Rgvspec_ty PROTO((struct Svspec_ty_and_id *));
1173 #endif /* ! __GNUC__ */
1175 #define gvspec_ty(xyzxyz) (*Rgvspec_ty((struct Svspec_ty_and_id *) (xyzxyz)))
1178 extern __inline__ list *Rgvspec_tyid(struct Svspec_ty_and_id *t)
1181 if(t -> tag != vspec_ty_and_id)
1182 fprintf(stderr,"gvspec_tyid: illegal selection; was %d\n", t -> tag);
1183 #endif /* UGEN_DEBUG */
1184 return(& t -> Xgvspec_tyid);
1186 #else /* ! __GNUC__ */
1187 extern list *Rgvspec_tyid PROTO((struct Svspec_ty_and_id *));
1188 #endif /* ! __GNUC__ */
1190 #define gvspec_tyid(xyzxyz) (*Rgvspec_tyid((struct Svspec_ty_and_id *) (xyzxyz)))
1192 extern binding mkispec_uprag PROTO((unkId, ttype, long));
1195 extern __inline__ unkId *Rgispec_clas(struct Sispec_uprag *t)
1198 if(t -> tag != ispec_uprag)
1199 fprintf(stderr,"gispec_clas: illegal selection; was %d\n", t -> tag);
1200 #endif /* UGEN_DEBUG */
1201 return(& t -> Xgispec_clas);
1203 #else /* ! __GNUC__ */
1204 extern unkId *Rgispec_clas PROTO((struct Sispec_uprag *));
1205 #endif /* ! __GNUC__ */
1207 #define gispec_clas(xyzxyz) (*Rgispec_clas((struct Sispec_uprag *) (xyzxyz)))
1210 extern __inline__ ttype *Rgispec_ty(struct Sispec_uprag *t)
1213 if(t -> tag != ispec_uprag)
1214 fprintf(stderr,"gispec_ty: illegal selection; was %d\n", t -> tag);
1215 #endif /* UGEN_DEBUG */
1216 return(& t -> Xgispec_ty);
1218 #else /* ! __GNUC__ */
1219 extern ttype *Rgispec_ty PROTO((struct Sispec_uprag *));
1220 #endif /* ! __GNUC__ */
1222 #define gispec_ty(xyzxyz) (*Rgispec_ty((struct Sispec_uprag *) (xyzxyz)))
1225 extern __inline__ long *Rgispec_line(struct Sispec_uprag *t)
1228 if(t -> tag != ispec_uprag)
1229 fprintf(stderr,"gispec_line: illegal selection; was %d\n", t -> tag);
1230 #endif /* UGEN_DEBUG */
1231 return(& t -> Xgispec_line);
1233 #else /* ! __GNUC__ */
1234 extern long *Rgispec_line PROTO((struct Sispec_uprag *));
1235 #endif /* ! __GNUC__ */
1237 #define gispec_line(xyzxyz) (*Rgispec_line((struct Sispec_uprag *) (xyzxyz)))
1239 extern binding mkinline_uprag PROTO((unkId, list, long));
1242 extern __inline__ unkId *Rginline_id(struct Sinline_uprag *t)
1245 if(t -> tag != inline_uprag)
1246 fprintf(stderr,"ginline_id: illegal selection; was %d\n", t -> tag);
1247 #endif /* UGEN_DEBUG */
1248 return(& t -> Xginline_id);
1250 #else /* ! __GNUC__ */
1251 extern unkId *Rginline_id PROTO((struct Sinline_uprag *));
1252 #endif /* ! __GNUC__ */
1254 #define ginline_id(xyzxyz) (*Rginline_id((struct Sinline_uprag *) (xyzxyz)))
1257 extern __inline__ list *Rginline_howto(struct Sinline_uprag *t)
1260 if(t -> tag != inline_uprag)
1261 fprintf(stderr,"ginline_howto: illegal selection; was %d\n", t -> tag);
1262 #endif /* UGEN_DEBUG */
1263 return(& t -> Xginline_howto);
1265 #else /* ! __GNUC__ */
1266 extern list *Rginline_howto PROTO((struct Sinline_uprag *));
1267 #endif /* ! __GNUC__ */
1269 #define ginline_howto(xyzxyz) (*Rginline_howto((struct Sinline_uprag *) (xyzxyz)))
1272 extern __inline__ long *Rginline_line(struct Sinline_uprag *t)
1275 if(t -> tag != inline_uprag)
1276 fprintf(stderr,"ginline_line: illegal selection; was %d\n", t -> tag);
1277 #endif /* UGEN_DEBUG */
1278 return(& t -> Xginline_line);
1280 #else /* ! __GNUC__ */
1281 extern long *Rginline_line PROTO((struct Sinline_uprag *));
1282 #endif /* ! __GNUC__ */
1284 #define ginline_line(xyzxyz) (*Rginline_line((struct Sinline_uprag *) (xyzxyz)))
1286 extern binding mkdeforest_uprag PROTO((unkId, long));
1289 extern __inline__ unkId *Rgdeforest_id(struct Sdeforest_uprag *t)
1292 if(t -> tag != deforest_uprag)
1293 fprintf(stderr,"gdeforest_id: illegal selection; was %d\n", t -> tag);
1294 #endif /* UGEN_DEBUG */
1295 return(& t -> Xgdeforest_id);
1297 #else /* ! __GNUC__ */
1298 extern unkId *Rgdeforest_id PROTO((struct Sdeforest_uprag *));
1299 #endif /* ! __GNUC__ */
1301 #define gdeforest_id(xyzxyz) (*Rgdeforest_id((struct Sdeforest_uprag *) (xyzxyz)))
1304 extern __inline__ long *Rgdeforest_line(struct Sdeforest_uprag *t)
1307 if(t -> tag != deforest_uprag)
1308 fprintf(stderr,"gdeforest_line: illegal selection; was %d\n", t -> tag);
1309 #endif /* UGEN_DEBUG */
1310 return(& t -> Xgdeforest_line);
1312 #else /* ! __GNUC__ */
1313 extern long *Rgdeforest_line PROTO((struct Sdeforest_uprag *));
1314 #endif /* ! __GNUC__ */
1316 #define gdeforest_line(xyzxyz) (*Rgdeforest_line((struct Sdeforest_uprag *) (xyzxyz)))
1318 extern binding mkmagicuf_uprag PROTO((unkId, stringId, long));
1321 extern __inline__ unkId *Rgmagicuf_id(struct Smagicuf_uprag *t)
1324 if(t -> tag != magicuf_uprag)
1325 fprintf(stderr,"gmagicuf_id: illegal selection; was %d\n", t -> tag);
1326 #endif /* UGEN_DEBUG */
1327 return(& t -> Xgmagicuf_id);
1329 #else /* ! __GNUC__ */
1330 extern unkId *Rgmagicuf_id PROTO((struct Smagicuf_uprag *));
1331 #endif /* ! __GNUC__ */
1333 #define gmagicuf_id(xyzxyz) (*Rgmagicuf_id((struct Smagicuf_uprag *) (xyzxyz)))
1336 extern __inline__ stringId *Rgmagicuf_str(struct Smagicuf_uprag *t)
1339 if(t -> tag != magicuf_uprag)
1340 fprintf(stderr,"gmagicuf_str: illegal selection; was %d\n", t -> tag);
1341 #endif /* UGEN_DEBUG */
1342 return(& t -> Xgmagicuf_str);
1344 #else /* ! __GNUC__ */
1345 extern stringId *Rgmagicuf_str PROTO((struct Smagicuf_uprag *));
1346 #endif /* ! __GNUC__ */
1348 #define gmagicuf_str(xyzxyz) (*Rgmagicuf_str((struct Smagicuf_uprag *) (xyzxyz)))
1351 extern __inline__ long *Rgmagicuf_line(struct Smagicuf_uprag *t)
1354 if(t -> tag != magicuf_uprag)
1355 fprintf(stderr,"gmagicuf_line: illegal selection; was %d\n", t -> tag);
1356 #endif /* UGEN_DEBUG */
1357 return(& t -> Xgmagicuf_line);
1359 #else /* ! __GNUC__ */
1360 extern long *Rgmagicuf_line PROTO((struct Smagicuf_uprag *));
1361 #endif /* ! __GNUC__ */
1363 #define gmagicuf_line(xyzxyz) (*Rgmagicuf_line((struct Smagicuf_uprag *) (xyzxyz)))
1365 extern binding mkabstract_uprag PROTO((unkId, long));
1368 extern __inline__ unkId *Rgabstract_id(struct Sabstract_uprag *t)
1371 if(t -> tag != abstract_uprag)
1372 fprintf(stderr,"gabstract_id: illegal selection; was %d\n", t -> tag);
1373 #endif /* UGEN_DEBUG */
1374 return(& t -> Xgabstract_id);
1376 #else /* ! __GNUC__ */
1377 extern unkId *Rgabstract_id PROTO((struct Sabstract_uprag *));
1378 #endif /* ! __GNUC__ */
1380 #define gabstract_id(xyzxyz) (*Rgabstract_id((struct Sabstract_uprag *) (xyzxyz)))
1383 extern __inline__ long *Rgabstract_line(struct Sabstract_uprag *t)
1386 if(t -> tag != abstract_uprag)
1387 fprintf(stderr,"gabstract_line: illegal selection; was %d\n", t -> tag);
1388 #endif /* UGEN_DEBUG */
1389 return(& t -> Xgabstract_line);
1391 #else /* ! __GNUC__ */
1392 extern long *Rgabstract_line PROTO((struct Sabstract_uprag *));
1393 #endif /* ! __GNUC__ */
1395 #define gabstract_line(xyzxyz) (*Rgabstract_line((struct Sabstract_uprag *) (xyzxyz)))
1397 extern binding mkdspec_uprag PROTO((unkId, list, long));
1400 extern __inline__ unkId *Rgdspec_id(struct Sdspec_uprag *t)
1403 if(t -> tag != dspec_uprag)
1404 fprintf(stderr,"gdspec_id: illegal selection; was %d\n", t -> tag);
1405 #endif /* UGEN_DEBUG */
1406 return(& t -> Xgdspec_id);
1408 #else /* ! __GNUC__ */
1409 extern unkId *Rgdspec_id PROTO((struct Sdspec_uprag *));
1410 #endif /* ! __GNUC__ */
1412 #define gdspec_id(xyzxyz) (*Rgdspec_id((struct Sdspec_uprag *) (xyzxyz)))
1415 extern __inline__ list *Rgdspec_tys(struct Sdspec_uprag *t)
1418 if(t -> tag != dspec_uprag)
1419 fprintf(stderr,"gdspec_tys: illegal selection; was %d\n", t -> tag);
1420 #endif /* UGEN_DEBUG */
1421 return(& t -> Xgdspec_tys);
1423 #else /* ! __GNUC__ */
1424 extern list *Rgdspec_tys PROTO((struct Sdspec_uprag *));
1425 #endif /* ! __GNUC__ */
1427 #define gdspec_tys(xyzxyz) (*Rgdspec_tys((struct Sdspec_uprag *) (xyzxyz)))
1430 extern __inline__ long *Rgdspec_line(struct Sdspec_uprag *t)
1433 if(t -> tag != dspec_uprag)
1434 fprintf(stderr,"gdspec_line: illegal selection; was %d\n", t -> tag);
1435 #endif /* UGEN_DEBUG */
1436 return(& t -> Xgdspec_line);
1438 #else /* ! __GNUC__ */
1439 extern long *Rgdspec_line PROTO((struct Sdspec_uprag *));
1440 #endif /* ! __GNUC__ */
1442 #define gdspec_line(xyzxyz) (*Rgdspec_line((struct Sdspec_uprag *) (xyzxyz)))