44 typedef struct { Ttree tag; } *tree;
48 extern __inline__ Ttree ttree(tree t)
52 #else /* ! __GNUC__ */
53 extern Ttree ttree PROTO((tree));
54 #endif /* ! __GNUC__ */
95 binding Xgletvdeflist;
213 extern tree mkhmodule PROTO((stringId, list, list, binding, long));
216 stringId *Rghname PROTO((struct Shmodule *));
218 extern __inline__ stringId *Rghname(struct Shmodule *t)
221 if(t -> tag != hmodule)
222 fprintf(stderr,"ghname: illegal selection; was %d\n", t -> tag);
223 #endif /* UGEN_DEBUG */
224 return(& t -> Xghname);
226 #else /* ! __GNUC__ */
227 extern stringId *Rghname PROTO((struct Shmodule *));
228 #endif /* ! __GNUC__ */
230 #define ghname(xyzxyz) (*Rghname((struct Shmodule *) (xyzxyz)))
233 list *Rghimplist PROTO((struct Shmodule *));
235 extern __inline__ list *Rghimplist(struct Shmodule *t)
238 if(t -> tag != hmodule)
239 fprintf(stderr,"ghimplist: illegal selection; was %d\n", t -> tag);
240 #endif /* UGEN_DEBUG */
241 return(& t -> Xghimplist);
243 #else /* ! __GNUC__ */
244 extern list *Rghimplist PROTO((struct Shmodule *));
245 #endif /* ! __GNUC__ */
247 #define ghimplist(xyzxyz) (*Rghimplist((struct Shmodule *) (xyzxyz)))
250 list *Rghexplist PROTO((struct Shmodule *));
252 extern __inline__ list *Rghexplist(struct Shmodule *t)
255 if(t -> tag != hmodule)
256 fprintf(stderr,"ghexplist: illegal selection; was %d\n", t -> tag);
257 #endif /* UGEN_DEBUG */
258 return(& t -> Xghexplist);
260 #else /* ! __GNUC__ */
261 extern list *Rghexplist PROTO((struct Shmodule *));
262 #endif /* ! __GNUC__ */
264 #define ghexplist(xyzxyz) (*Rghexplist((struct Shmodule *) (xyzxyz)))
267 binding *Rghmodlist PROTO((struct Shmodule *));
269 extern __inline__ binding *Rghmodlist(struct Shmodule *t)
272 if(t -> tag != hmodule)
273 fprintf(stderr,"ghmodlist: illegal selection; was %d\n", t -> tag);
274 #endif /* UGEN_DEBUG */
275 return(& t -> Xghmodlist);
277 #else /* ! __GNUC__ */
278 extern binding *Rghmodlist PROTO((struct Shmodule *));
279 #endif /* ! __GNUC__ */
281 #define ghmodlist(xyzxyz) (*Rghmodlist((struct Shmodule *) (xyzxyz)))
284 long *Rghmodline PROTO((struct Shmodule *));
286 extern __inline__ long *Rghmodline(struct Shmodule *t)
289 if(t -> tag != hmodule)
290 fprintf(stderr,"ghmodline: illegal selection; was %d\n", t -> tag);
291 #endif /* UGEN_DEBUG */
292 return(& t -> Xghmodline);
294 #else /* ! __GNUC__ */
295 extern long *Rghmodline PROTO((struct Shmodule *));
296 #endif /* ! __GNUC__ */
298 #define ghmodline(xyzxyz) (*Rghmodline((struct Shmodule *) (xyzxyz)))
300 extern tree mkident PROTO((unkId));
303 unkId *Rgident PROTO((struct Sident *));
305 extern __inline__ unkId *Rgident(struct Sident *t)
308 if(t -> tag != ident)
309 fprintf(stderr,"gident: illegal selection; was %d\n", t -> tag);
310 #endif /* UGEN_DEBUG */
311 return(& t -> Xgident);
313 #else /* ! __GNUC__ */
314 extern unkId *Rgident PROTO((struct Sident *));
315 #endif /* ! __GNUC__ */
317 #define gident(xyzxyz) (*Rgident((struct Sident *) (xyzxyz)))
319 extern tree mklit PROTO((literal));
322 literal *Rglit PROTO((struct Slit *));
324 extern __inline__ literal *Rglit(struct Slit *t)
328 fprintf(stderr,"glit: illegal selection; was %d\n", t -> tag);
329 #endif /* UGEN_DEBUG */
330 return(& t -> Xglit);
332 #else /* ! __GNUC__ */
333 extern literal *Rglit PROTO((struct Slit *));
334 #endif /* ! __GNUC__ */
336 #define glit(xyzxyz) (*Rglit((struct Slit *) (xyzxyz)))
338 extern tree mktuple PROTO((list));
341 list *Rgtuplelist PROTO((struct Stuple *));
343 extern __inline__ list *Rgtuplelist(struct Stuple *t)
346 if(t -> tag != tuple)
347 fprintf(stderr,"gtuplelist: illegal selection; was %d\n", t -> tag);
348 #endif /* UGEN_DEBUG */
349 return(& t -> Xgtuplelist);
351 #else /* ! __GNUC__ */
352 extern list *Rgtuplelist PROTO((struct Stuple *));
353 #endif /* ! __GNUC__ */
355 #define gtuplelist(xyzxyz) (*Rgtuplelist((struct Stuple *) (xyzxyz)))
357 extern tree mkap PROTO((tree, tree));
360 tree *Rgfun PROTO((struct Sap *));
362 extern __inline__ tree *Rgfun(struct Sap *t)
366 fprintf(stderr,"gfun: illegal selection; was %d\n", t -> tag);
367 #endif /* UGEN_DEBUG */
368 return(& t -> Xgfun);
370 #else /* ! __GNUC__ */
371 extern tree *Rgfun PROTO((struct Sap *));
372 #endif /* ! __GNUC__ */
374 #define gfun(xyzxyz) (*Rgfun((struct Sap *) (xyzxyz)))
377 tree *Rgarg PROTO((struct Sap *));
379 extern __inline__ tree *Rgarg(struct Sap *t)
383 fprintf(stderr,"garg: illegal selection; was %d\n", t -> tag);
384 #endif /* UGEN_DEBUG */
385 return(& t -> Xgarg);
387 #else /* ! __GNUC__ */
388 extern tree *Rgarg PROTO((struct Sap *));
389 #endif /* ! __GNUC__ */
391 #define garg(xyzxyz) (*Rgarg((struct Sap *) (xyzxyz)))
393 extern tree mklambda PROTO((list, tree, long));
396 list *Rglampats PROTO((struct Slambda *));
398 extern __inline__ list *Rglampats(struct Slambda *t)
401 if(t -> tag != lambda)
402 fprintf(stderr,"glampats: illegal selection; was %d\n", t -> tag);
403 #endif /* UGEN_DEBUG */
404 return(& t -> Xglampats);
406 #else /* ! __GNUC__ */
407 extern list *Rglampats PROTO((struct Slambda *));
408 #endif /* ! __GNUC__ */
410 #define glampats(xyzxyz) (*Rglampats((struct Slambda *) (xyzxyz)))
413 tree *Rglamexpr PROTO((struct Slambda *));
415 extern __inline__ tree *Rglamexpr(struct Slambda *t)
418 if(t -> tag != lambda)
419 fprintf(stderr,"glamexpr: illegal selection; was %d\n", t -> tag);
420 #endif /* UGEN_DEBUG */
421 return(& t -> Xglamexpr);
423 #else /* ! __GNUC__ */
424 extern tree *Rglamexpr PROTO((struct Slambda *));
425 #endif /* ! __GNUC__ */
427 #define glamexpr(xyzxyz) (*Rglamexpr((struct Slambda *) (xyzxyz)))
430 long *Rglamline PROTO((struct Slambda *));
432 extern __inline__ long *Rglamline(struct Slambda *t)
435 if(t -> tag != lambda)
436 fprintf(stderr,"glamline: illegal selection; was %d\n", t -> tag);
437 #endif /* UGEN_DEBUG */
438 return(& t -> Xglamline);
440 #else /* ! __GNUC__ */
441 extern long *Rglamline PROTO((struct Slambda *));
442 #endif /* ! __GNUC__ */
444 #define glamline(xyzxyz) (*Rglamline((struct Slambda *) (xyzxyz)))
446 extern tree mklet PROTO((binding, tree));
449 binding *Rgletvdeflist PROTO((struct Slet *));
451 extern __inline__ binding *Rgletvdeflist(struct Slet *t)
455 fprintf(stderr,"gletvdeflist: illegal selection; was %d\n", t -> tag);
456 #endif /* UGEN_DEBUG */
457 return(& t -> Xgletvdeflist);
459 #else /* ! __GNUC__ */
460 extern binding *Rgletvdeflist PROTO((struct Slet *));
461 #endif /* ! __GNUC__ */
463 #define gletvdeflist(xyzxyz) (*Rgletvdeflist((struct Slet *) (xyzxyz)))
466 tree *Rgletvexpr PROTO((struct Slet *));
468 extern __inline__ tree *Rgletvexpr(struct Slet *t)
472 fprintf(stderr,"gletvexpr: illegal selection; was %d\n", t -> tag);
473 #endif /* UGEN_DEBUG */
474 return(& t -> Xgletvexpr);
476 #else /* ! __GNUC__ */
477 extern tree *Rgletvexpr PROTO((struct Slet *));
478 #endif /* ! __GNUC__ */
480 #define gletvexpr(xyzxyz) (*Rgletvexpr((struct Slet *) (xyzxyz)))
482 extern tree mkcasee PROTO((tree, list));
485 tree *Rgcaseexpr PROTO((struct Scasee *));
487 extern __inline__ tree *Rgcaseexpr(struct Scasee *t)
490 if(t -> tag != casee)
491 fprintf(stderr,"gcaseexpr: illegal selection; was %d\n", t -> tag);
492 #endif /* UGEN_DEBUG */
493 return(& t -> Xgcaseexpr);
495 #else /* ! __GNUC__ */
496 extern tree *Rgcaseexpr PROTO((struct Scasee *));
497 #endif /* ! __GNUC__ */
499 #define gcaseexpr(xyzxyz) (*Rgcaseexpr((struct Scasee *) (xyzxyz)))
502 list *Rgcasebody PROTO((struct Scasee *));
504 extern __inline__ list *Rgcasebody(struct Scasee *t)
507 if(t -> tag != casee)
508 fprintf(stderr,"gcasebody: illegal selection; was %d\n", t -> tag);
509 #endif /* UGEN_DEBUG */
510 return(& t -> Xgcasebody);
512 #else /* ! __GNUC__ */
513 extern list *Rgcasebody PROTO((struct Scasee *));
514 #endif /* ! __GNUC__ */
516 #define gcasebody(xyzxyz) (*Rgcasebody((struct Scasee *) (xyzxyz)))
518 extern tree mkife PROTO((tree, tree, tree));
521 tree *Rgifpred PROTO((struct Sife *));
523 extern __inline__ tree *Rgifpred(struct Sife *t)
527 fprintf(stderr,"gifpred: illegal selection; was %d\n", t -> tag);
528 #endif /* UGEN_DEBUG */
529 return(& t -> Xgifpred);
531 #else /* ! __GNUC__ */
532 extern tree *Rgifpred PROTO((struct Sife *));
533 #endif /* ! __GNUC__ */
535 #define gifpred(xyzxyz) (*Rgifpred((struct Sife *) (xyzxyz)))
538 tree *Rgifthen PROTO((struct Sife *));
540 extern __inline__ tree *Rgifthen(struct Sife *t)
544 fprintf(stderr,"gifthen: illegal selection; was %d\n", t -> tag);
545 #endif /* UGEN_DEBUG */
546 return(& t -> Xgifthen);
548 #else /* ! __GNUC__ */
549 extern tree *Rgifthen PROTO((struct Sife *));
550 #endif /* ! __GNUC__ */
552 #define gifthen(xyzxyz) (*Rgifthen((struct Sife *) (xyzxyz)))
555 tree *Rgifelse PROTO((struct Sife *));
557 extern __inline__ tree *Rgifelse(struct Sife *t)
561 fprintf(stderr,"gifelse: illegal selection; was %d\n", t -> tag);
562 #endif /* UGEN_DEBUG */
563 return(& t -> Xgifelse);
565 #else /* ! __GNUC__ */
566 extern tree *Rgifelse PROTO((struct Sife *));
567 #endif /* ! __GNUC__ */
569 #define gifelse(xyzxyz) (*Rgifelse((struct Sife *) (xyzxyz)))
571 extern tree mkpar PROTO((tree));
574 tree *Rgpare PROTO((struct Spar *));
576 extern __inline__ tree *Rgpare(struct Spar *t)
580 fprintf(stderr,"gpare: illegal selection; was %d\n", t -> tag);
581 #endif /* UGEN_DEBUG */
582 return(& t -> Xgpare);
584 #else /* ! __GNUC__ */
585 extern tree *Rgpare PROTO((struct Spar *));
586 #endif /* ! __GNUC__ */
588 #define gpare(xyzxyz) (*Rgpare((struct Spar *) (xyzxyz)))
590 extern tree mkas PROTO((unkId, tree));
593 unkId *Rgasid PROTO((struct Sas *));
595 extern __inline__ unkId *Rgasid(struct Sas *t)
599 fprintf(stderr,"gasid: illegal selection; was %d\n", t -> tag);
600 #endif /* UGEN_DEBUG */
601 return(& t -> Xgasid);
603 #else /* ! __GNUC__ */
604 extern unkId *Rgasid PROTO((struct Sas *));
605 #endif /* ! __GNUC__ */
607 #define gasid(xyzxyz) (*Rgasid((struct Sas *) (xyzxyz)))
610 tree *Rgase PROTO((struct Sas *));
612 extern __inline__ tree *Rgase(struct Sas *t)
616 fprintf(stderr,"gase: illegal selection; was %d\n", t -> tag);
617 #endif /* UGEN_DEBUG */
618 return(& t -> Xgase);
620 #else /* ! __GNUC__ */
621 extern tree *Rgase PROTO((struct Sas *));
622 #endif /* ! __GNUC__ */
624 #define gase(xyzxyz) (*Rgase((struct Sas *) (xyzxyz)))
626 extern tree mklazyp PROTO((tree));
629 tree *Rglazyp PROTO((struct Slazyp *));
631 extern __inline__ tree *Rglazyp(struct Slazyp *t)
634 if(t -> tag != lazyp)
635 fprintf(stderr,"glazyp: illegal selection; was %d\n", t -> tag);
636 #endif /* UGEN_DEBUG */
637 return(& t -> Xglazyp);
639 #else /* ! __GNUC__ */
640 extern tree *Rglazyp PROTO((struct Slazyp *));
641 #endif /* ! __GNUC__ */
643 #define glazyp(xyzxyz) (*Rglazyp((struct Slazyp *) (xyzxyz)))
645 extern tree mkplusp PROTO((tree, literal));
648 tree *Rgplusp PROTO((struct Splusp *));
650 extern __inline__ tree *Rgplusp(struct Splusp *t)
653 if(t -> tag != plusp)
654 fprintf(stderr,"gplusp: illegal selection; was %d\n", t -> tag);
655 #endif /* UGEN_DEBUG */
656 return(& t -> Xgplusp);
658 #else /* ! __GNUC__ */
659 extern tree *Rgplusp PROTO((struct Splusp *));
660 #endif /* ! __GNUC__ */
662 #define gplusp(xyzxyz) (*Rgplusp((struct Splusp *) (xyzxyz)))
665 literal *Rgplusi PROTO((struct Splusp *));
667 extern __inline__ literal *Rgplusi(struct Splusp *t)
670 if(t -> tag != plusp)
671 fprintf(stderr,"gplusi: illegal selection; was %d\n", t -> tag);
672 #endif /* UGEN_DEBUG */
673 return(& t -> Xgplusi);
675 #else /* ! __GNUC__ */
676 extern literal *Rgplusi PROTO((struct Splusp *));
677 #endif /* ! __GNUC__ */
679 #define gplusi(xyzxyz) (*Rgplusi((struct Splusp *) (xyzxyz)))
681 extern tree mkwildp PROTO((void));
683 extern tree mkrestr PROTO((tree, ttype));
686 tree *Rgrestre PROTO((struct Srestr *));
688 extern __inline__ tree *Rgrestre(struct Srestr *t)
691 if(t -> tag != restr)
692 fprintf(stderr,"grestre: illegal selection; was %d\n", t -> tag);
693 #endif /* UGEN_DEBUG */
694 return(& t -> Xgrestre);
696 #else /* ! __GNUC__ */
697 extern tree *Rgrestre PROTO((struct Srestr *));
698 #endif /* ! __GNUC__ */
700 #define grestre(xyzxyz) (*Rgrestre((struct Srestr *) (xyzxyz)))
703 ttype *Rgrestrt PROTO((struct Srestr *));
705 extern __inline__ ttype *Rgrestrt(struct Srestr *t)
708 if(t -> tag != restr)
709 fprintf(stderr,"grestrt: illegal selection; was %d\n", t -> tag);
710 #endif /* UGEN_DEBUG */
711 return(& t -> Xgrestrt);
713 #else /* ! __GNUC__ */
714 extern ttype *Rgrestrt PROTO((struct Srestr *));
715 #endif /* ! __GNUC__ */
717 #define grestrt(xyzxyz) (*Rgrestrt((struct Srestr *) (xyzxyz)))
719 extern tree mkcomprh PROTO((tree, list));
722 tree *Rgcexp PROTO((struct Scomprh *));
724 extern __inline__ tree *Rgcexp(struct Scomprh *t)
727 if(t -> tag != comprh)
728 fprintf(stderr,"gcexp: illegal selection; was %d\n", t -> tag);
729 #endif /* UGEN_DEBUG */
730 return(& t -> Xgcexp);
732 #else /* ! __GNUC__ */
733 extern tree *Rgcexp PROTO((struct Scomprh *));
734 #endif /* ! __GNUC__ */
736 #define gcexp(xyzxyz) (*Rgcexp((struct Scomprh *) (xyzxyz)))
739 list *Rgcquals PROTO((struct Scomprh *));
741 extern __inline__ list *Rgcquals(struct Scomprh *t)
744 if(t -> tag != comprh)
745 fprintf(stderr,"gcquals: illegal selection; was %d\n", t -> tag);
746 #endif /* UGEN_DEBUG */
747 return(& t -> Xgcquals);
749 #else /* ! __GNUC__ */
750 extern list *Rgcquals PROTO((struct Scomprh *));
751 #endif /* ! __GNUC__ */
753 #define gcquals(xyzxyz) (*Rgcquals((struct Scomprh *) (xyzxyz)))
755 extern tree mkqual PROTO((tree, tree));
758 tree *Rgqpat PROTO((struct Squal *));
760 extern __inline__ tree *Rgqpat(struct Squal *t)
764 fprintf(stderr,"gqpat: illegal selection; was %d\n", t -> tag);
765 #endif /* UGEN_DEBUG */
766 return(& t -> Xgqpat);
768 #else /* ! __GNUC__ */
769 extern tree *Rgqpat PROTO((struct Squal *));
770 #endif /* ! __GNUC__ */
772 #define gqpat(xyzxyz) (*Rgqpat((struct Squal *) (xyzxyz)))
775 tree *Rgqexp PROTO((struct Squal *));
777 extern __inline__ tree *Rgqexp(struct Squal *t)
781 fprintf(stderr,"gqexp: illegal selection; was %d\n", t -> tag);
782 #endif /* UGEN_DEBUG */
783 return(& t -> Xgqexp);
785 #else /* ! __GNUC__ */
786 extern tree *Rgqexp PROTO((struct Squal *));
787 #endif /* ! __GNUC__ */
789 #define gqexp(xyzxyz) (*Rgqexp((struct Squal *) (xyzxyz)))
791 extern tree mkguard PROTO((tree));
794 tree *Rggexp PROTO((struct Sguard *));
796 extern __inline__ tree *Rggexp(struct Sguard *t)
799 if(t -> tag != guard)
800 fprintf(stderr,"ggexp: illegal selection; was %d\n", t -> tag);
801 #endif /* UGEN_DEBUG */
802 return(& t -> Xggexp);
804 #else /* ! __GNUC__ */
805 extern tree *Rggexp PROTO((struct Sguard *));
806 #endif /* ! __GNUC__ */
808 #define ggexp(xyzxyz) (*Rggexp((struct Sguard *) (xyzxyz)))
810 extern tree mkdef PROTO((tree));
813 tree *Rggdef PROTO((struct Sdef *));
815 extern __inline__ tree *Rggdef(struct Sdef *t)
819 fprintf(stderr,"ggdef: illegal selection; was %d\n", t -> tag);
820 #endif /* UGEN_DEBUG */
821 return(& t -> Xggdef);
823 #else /* ! __GNUC__ */
824 extern tree *Rggdef PROTO((struct Sdef *));
825 #endif /* ! __GNUC__ */
827 #define ggdef(xyzxyz) (*Rggdef((struct Sdef *) (xyzxyz)))
829 extern tree mktinfixop PROTO((infixTree));
832 infixTree *Rgdummy PROTO((struct Stinfixop *));
834 extern __inline__ infixTree *Rgdummy(struct Stinfixop *t)
837 if(t -> tag != tinfixop)
838 fprintf(stderr,"gdummy: illegal selection; was %d\n", t -> tag);
839 #endif /* UGEN_DEBUG */
840 return(& t -> Xgdummy);
842 #else /* ! __GNUC__ */
843 extern infixTree *Rgdummy PROTO((struct Stinfixop *));
844 #endif /* ! __GNUC__ */
846 #define gdummy(xyzxyz) (*Rgdummy((struct Stinfixop *) (xyzxyz)))
848 extern tree mklsection PROTO((tree, unkId));
851 tree *Rglsexp PROTO((struct Slsection *));
853 extern __inline__ tree *Rglsexp(struct Slsection *t)
856 if(t -> tag != lsection)
857 fprintf(stderr,"glsexp: illegal selection; was %d\n", t -> tag);
858 #endif /* UGEN_DEBUG */
859 return(& t -> Xglsexp);
861 #else /* ! __GNUC__ */
862 extern tree *Rglsexp PROTO((struct Slsection *));
863 #endif /* ! __GNUC__ */
865 #define glsexp(xyzxyz) (*Rglsexp((struct Slsection *) (xyzxyz)))
868 unkId *Rglsop PROTO((struct Slsection *));
870 extern __inline__ unkId *Rglsop(struct Slsection *t)
873 if(t -> tag != lsection)
874 fprintf(stderr,"glsop: illegal selection; was %d\n", t -> tag);
875 #endif /* UGEN_DEBUG */
876 return(& t -> Xglsop);
878 #else /* ! __GNUC__ */
879 extern unkId *Rglsop PROTO((struct Slsection *));
880 #endif /* ! __GNUC__ */
882 #define glsop(xyzxyz) (*Rglsop((struct Slsection *) (xyzxyz)))
884 extern tree mkrsection PROTO((unkId, tree));
887 unkId *Rgrsop PROTO((struct Srsection *));
889 extern __inline__ unkId *Rgrsop(struct Srsection *t)
892 if(t -> tag != rsection)
893 fprintf(stderr,"grsop: illegal selection; was %d\n", t -> tag);
894 #endif /* UGEN_DEBUG */
895 return(& t -> Xgrsop);
897 #else /* ! __GNUC__ */
898 extern unkId *Rgrsop PROTO((struct Srsection *));
899 #endif /* ! __GNUC__ */
901 #define grsop(xyzxyz) (*Rgrsop((struct Srsection *) (xyzxyz)))
904 tree *Rgrsexp PROTO((struct Srsection *));
906 extern __inline__ tree *Rgrsexp(struct Srsection *t)
909 if(t -> tag != rsection)
910 fprintf(stderr,"grsexp: illegal selection; was %d\n", t -> tag);
911 #endif /* UGEN_DEBUG */
912 return(& t -> Xgrsexp);
914 #else /* ! __GNUC__ */
915 extern tree *Rgrsexp PROTO((struct Srsection *));
916 #endif /* ! __GNUC__ */
918 #define grsexp(xyzxyz) (*Rgrsexp((struct Srsection *) (xyzxyz)))
920 extern tree mkeenum PROTO((tree, list, list));
923 tree *Rgefrom PROTO((struct Seenum *));
925 extern __inline__ tree *Rgefrom(struct Seenum *t)
928 if(t -> tag != eenum)
929 fprintf(stderr,"gefrom: illegal selection; was %d\n", t -> tag);
930 #endif /* UGEN_DEBUG */
931 return(& t -> Xgefrom);
933 #else /* ! __GNUC__ */
934 extern tree *Rgefrom PROTO((struct Seenum *));
935 #endif /* ! __GNUC__ */
937 #define gefrom(xyzxyz) (*Rgefrom((struct Seenum *) (xyzxyz)))
940 list *Rgestep PROTO((struct Seenum *));
942 extern __inline__ list *Rgestep(struct Seenum *t)
945 if(t -> tag != eenum)
946 fprintf(stderr,"gestep: illegal selection; was %d\n", t -> tag);
947 #endif /* UGEN_DEBUG */
948 return(& t -> Xgestep);
950 #else /* ! __GNUC__ */
951 extern list *Rgestep PROTO((struct Seenum *));
952 #endif /* ! __GNUC__ */
954 #define gestep(xyzxyz) (*Rgestep((struct Seenum *) (xyzxyz)))
957 list *Rgeto PROTO((struct Seenum *));
959 extern __inline__ list *Rgeto(struct Seenum *t)
962 if(t -> tag != eenum)
963 fprintf(stderr,"geto: illegal selection; was %d\n", t -> tag);
964 #endif /* UGEN_DEBUG */
965 return(& t -> Xgeto);
967 #else /* ! __GNUC__ */
968 extern list *Rgeto PROTO((struct Seenum *));
969 #endif /* ! __GNUC__ */
971 #define geto(xyzxyz) (*Rgeto((struct Seenum *) (xyzxyz)))
973 extern tree mkllist PROTO((list));
976 list *Rgllist PROTO((struct Sllist *));
978 extern __inline__ list *Rgllist(struct Sllist *t)
981 if(t -> tag != llist)
982 fprintf(stderr,"gllist: illegal selection; was %d\n", t -> tag);
983 #endif /* UGEN_DEBUG */
984 return(& t -> Xgllist);
986 #else /* ! __GNUC__ */
987 extern list *Rgllist PROTO((struct Sllist *));
988 #endif /* ! __GNUC__ */
990 #define gllist(xyzxyz) (*Rgllist((struct Sllist *) (xyzxyz)))
992 extern tree mkccall PROTO((stringId, stringId, list));
995 stringId *Rgccid PROTO((struct Sccall *));
997 extern __inline__ stringId *Rgccid(struct Sccall *t)
1000 if(t -> tag != ccall)
1001 fprintf(stderr,"gccid: illegal selection; was %d\n", t -> tag);
1002 #endif /* UGEN_DEBUG */
1003 return(& t -> Xgccid);
1005 #else /* ! __GNUC__ */
1006 extern stringId *Rgccid PROTO((struct Sccall *));
1007 #endif /* ! __GNUC__ */
1009 #define gccid(xyzxyz) (*Rgccid((struct Sccall *) (xyzxyz)))
1012 stringId *Rgccinfo PROTO((struct Sccall *));
1014 extern __inline__ stringId *Rgccinfo(struct Sccall *t)
1017 if(t -> tag != ccall)
1018 fprintf(stderr,"gccinfo: illegal selection; was %d\n", t -> tag);
1019 #endif /* UGEN_DEBUG */
1020 return(& t -> Xgccinfo);
1022 #else /* ! __GNUC__ */
1023 extern stringId *Rgccinfo PROTO((struct Sccall *));
1024 #endif /* ! __GNUC__ */
1026 #define gccinfo(xyzxyz) (*Rgccinfo((struct Sccall *) (xyzxyz)))
1029 list *Rgccargs PROTO((struct Sccall *));
1031 extern __inline__ list *Rgccargs(struct Sccall *t)
1034 if(t -> tag != ccall)
1035 fprintf(stderr,"gccargs: illegal selection; was %d\n", t -> tag);
1036 #endif /* UGEN_DEBUG */
1037 return(& t -> Xgccargs);
1039 #else /* ! __GNUC__ */
1040 extern list *Rgccargs PROTO((struct Sccall *));
1041 #endif /* ! __GNUC__ */
1043 #define gccargs(xyzxyz) (*Rgccargs((struct Sccall *) (xyzxyz)))
1045 extern tree mkscc PROTO((hstring, tree));
1048 hstring *Rgsccid PROTO((struct Sscc *));
1050 extern __inline__ hstring *Rgsccid(struct Sscc *t)
1054 fprintf(stderr,"gsccid: illegal selection; was %d\n", t -> tag);
1055 #endif /* UGEN_DEBUG */
1056 return(& t -> Xgsccid);
1058 #else /* ! __GNUC__ */
1059 extern hstring *Rgsccid PROTO((struct Sscc *));
1060 #endif /* ! __GNUC__ */
1062 #define gsccid(xyzxyz) (*Rgsccid((struct Sscc *) (xyzxyz)))
1065 tree *Rgsccexp PROTO((struct Sscc *));
1067 extern __inline__ tree *Rgsccexp(struct Sscc *t)
1071 fprintf(stderr,"gsccexp: illegal selection; was %d\n", t -> tag);
1072 #endif /* UGEN_DEBUG */
1073 return(& t -> Xgsccexp);
1075 #else /* ! __GNUC__ */
1076 extern tree *Rgsccexp PROTO((struct Sscc *));
1077 #endif /* ! __GNUC__ */
1079 #define gsccexp(xyzxyz) (*Rgsccexp((struct Sscc *) (xyzxyz)))
1081 extern tree mknegate PROTO((tree));
1084 tree *Rgnexp PROTO((struct Snegate *));
1086 extern __inline__ tree *Rgnexp(struct Snegate *t)
1089 if(t -> tag != negate)
1090 fprintf(stderr,"gnexp: illegal selection; was %d\n", t -> tag);
1091 #endif /* UGEN_DEBUG */
1092 return(& t -> Xgnexp);
1094 #else /* ! __GNUC__ */
1095 extern tree *Rgnexp PROTO((struct Snegate *));
1096 #endif /* ! __GNUC__ */
1098 #define gnexp(xyzxyz) (*Rgnexp((struct Snegate *) (xyzxyz)))