X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Fbinding.c;fp=ghc%2Fcompiler%2FyaccParser%2Fbinding.c;h=20a82a36f1bce841d8408bc10d3d3c7e5b219dfa;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/binding.c b/ghc/compiler/yaccParser/binding.c
new file mode 100644
index 0000000..20a82a3
--- /dev/null
+++ b/ghc/compiler/yaccParser/binding.c
@@ -0,0 +1,1187 @@
+
+
+#include "hspincl.h"
+#include "yaccParser/binding.h"
+
+Tbinding tbinding(t)
+ binding t;
+{
+	return(t -> tag);
+}
+
+
+/************** tbind ******************/
+
+binding mktbind(PPgtbindc, PPgtbindid, PPgtbindl, PPgtbindd, PPgtline, PPgtpragma)
+ list PPgtbindc;
+ ttype PPgtbindid;
+ list PPgtbindl;
+ list PPgtbindd;
+ long PPgtline;
+ hpragma PPgtpragma;
+{
+	register struct Stbind *pp =
+		(struct Stbind *) malloc(sizeof(struct Stbind));
+	pp -> tag = tbind;
+	pp -> Xgtbindc = PPgtbindc;
+	pp -> Xgtbindid = PPgtbindid;
+	pp -> Xgtbindl = PPgtbindl;
+	pp -> Xgtbindd = PPgtbindd;
+	pp -> Xgtline = PPgtline;
+	pp -> Xgtpragma = PPgtpragma;
+	return((binding)pp);
+}
+
+list *Rgtbindc(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtbindc: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtbindc);
+}
+
+ttype *Rgtbindid(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtbindid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtbindid);
+}
+
+list *Rgtbindl(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtbindl: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtbindl);
+}
+
+list *Rgtbindd(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtbindd: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtbindd);
+}
+
+long *Rgtline(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtline);
+}
+
+hpragma *Rgtpragma(t)
+ struct Stbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != tbind)
+		fprintf(stderr,"gtpragma: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgtpragma);
+}
+
+/************** nbind ******************/
+
+binding mknbind(PPgnbindid, PPgnbindas, PPgnline, PPgnpragma)
+ ttype PPgnbindid;
+ ttype PPgnbindas;
+ long PPgnline;
+ hpragma PPgnpragma;
+{
+	register struct Snbind *pp =
+		(struct Snbind *) malloc(sizeof(struct Snbind));
+	pp -> tag = nbind;
+	pp -> Xgnbindid = PPgnbindid;
+	pp -> Xgnbindas = PPgnbindas;
+	pp -> Xgnline = PPgnline;
+	pp -> Xgnpragma = PPgnpragma;
+	return((binding)pp);
+}
+
+ttype *Rgnbindid(t)
+ struct Snbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != nbind)
+		fprintf(stderr,"gnbindid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgnbindid);
+}
+
+ttype *Rgnbindas(t)
+ struct Snbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != nbind)
+		fprintf(stderr,"gnbindas: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgnbindas);
+}
+
+long *Rgnline(t)
+ struct Snbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != nbind)
+		fprintf(stderr,"gnline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgnline);
+}
+
+hpragma *Rgnpragma(t)
+ struct Snbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != nbind)
+		fprintf(stderr,"gnpragma: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgnpragma);
+}
+
+/************** pbind ******************/
+
+binding mkpbind(PPgpbindl, PPgpline)
+ list PPgpbindl;
+ long PPgpline;
+{
+	register struct Spbind *pp =
+		(struct Spbind *) malloc(sizeof(struct Spbind));
+	pp -> tag = pbind;
+	pp -> Xgpbindl = PPgpbindl;
+	pp -> Xgpline = PPgpline;
+	return((binding)pp);
+}
+
+list *Rgpbindl(t)
+ struct Spbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != pbind)
+		fprintf(stderr,"gpbindl: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgpbindl);
+}
+
+long *Rgpline(t)
+ struct Spbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != pbind)
+		fprintf(stderr,"gpline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgpline);
+}
+
+/************** fbind ******************/
+
+binding mkfbind(PPgfbindl, PPgfline)
+ list PPgfbindl;
+ long PPgfline;
+{
+	register struct Sfbind *pp =
+		(struct Sfbind *) malloc(sizeof(struct Sfbind));
+	pp -> tag = fbind;
+	pp -> Xgfbindl = PPgfbindl;
+	pp -> Xgfline = PPgfline;
+	return((binding)pp);
+}
+
+list *Rgfbindl(t)
+ struct Sfbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != fbind)
+		fprintf(stderr,"gfbindl: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgfbindl);
+}
+
+long *Rgfline(t)
+ struct Sfbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != fbind)
+		fprintf(stderr,"gfline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgfline);
+}
+
+/************** abind ******************/
+
+binding mkabind(PPgabindfst, PPgabindsnd)
+ binding PPgabindfst;
+ binding PPgabindsnd;
+{
+	register struct Sabind *pp =
+		(struct Sabind *) malloc(sizeof(struct Sabind));
+	pp -> tag = abind;
+	pp -> Xgabindfst = PPgabindfst;
+	pp -> Xgabindsnd = PPgabindsnd;
+	return((binding)pp);
+}
+
+binding *Rgabindfst(t)
+ struct Sabind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != abind)
+		fprintf(stderr,"gabindfst: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgabindfst);
+}
+
+binding *Rgabindsnd(t)
+ struct Sabind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != abind)
+		fprintf(stderr,"gabindsnd: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgabindsnd);
+}
+
+/************** lbind ******************/
+
+binding mklbind(PPglbindfst, PPglbindsnd)
+ binding PPglbindfst;
+ binding PPglbindsnd;
+{
+	register struct Slbind *pp =
+		(struct Slbind *) malloc(sizeof(struct Slbind));
+	pp -> tag = lbind;
+	pp -> Xglbindfst = PPglbindfst;
+	pp -> Xglbindsnd = PPglbindsnd;
+	return((binding)pp);
+}
+
+binding *Rglbindfst(t)
+ struct Slbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != lbind)
+		fprintf(stderr,"glbindfst: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xglbindfst);
+}
+
+binding *Rglbindsnd(t)
+ struct Slbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != lbind)
+		fprintf(stderr,"glbindsnd: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xglbindsnd);
+}
+
+/************** ebind ******************/
+
+binding mkebind(PPgebindl, PPgebind, PPgeline)
+ list PPgebindl;
+ binding PPgebind;
+ long PPgeline;
+{
+	register struct Sebind *pp =
+		(struct Sebind *) malloc(sizeof(struct Sebind));
+	pp -> tag = ebind;
+	pp -> Xgebindl = PPgebindl;
+	pp -> Xgebind = PPgebind;
+	pp -> Xgeline = PPgeline;
+	return((binding)pp);
+}
+
+list *Rgebindl(t)
+ struct Sebind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ebind)
+		fprintf(stderr,"gebindl: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgebindl);
+}
+
+binding *Rgebind(t)
+ struct Sebind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ebind)
+		fprintf(stderr,"gebind: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgebind);
+}
+
+long *Rgeline(t)
+ struct Sebind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ebind)
+		fprintf(stderr,"geline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgeline);
+}
+
+/************** hbind ******************/
+
+binding mkhbind(PPghbindl, PPghbind, PPghline)
+ list PPghbindl;
+ binding PPghbind;
+ long PPghline;
+{
+	register struct Shbind *pp =
+		(struct Shbind *) malloc(sizeof(struct Shbind));
+	pp -> tag = hbind;
+	pp -> Xghbindl = PPghbindl;
+	pp -> Xghbind = PPghbind;
+	pp -> Xghline = PPghline;
+	return((binding)pp);
+}
+
+list *Rghbindl(t)
+ struct Shbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hbind)
+		fprintf(stderr,"ghbindl: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xghbindl);
+}
+
+binding *Rghbind(t)
+ struct Shbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hbind)
+		fprintf(stderr,"ghbind: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xghbind);
+}
+
+long *Rghline(t)
+ struct Shbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hbind)
+		fprintf(stderr,"ghline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xghline);
+}
+
+/************** ibind ******************/
+
+binding mkibind(PPgibindc, PPgibindid, PPgibindi, PPgibindw, PPgiline, PPgipragma)
+ list PPgibindc;
+ unkId PPgibindid;
+ ttype PPgibindi;
+ binding PPgibindw;
+ long PPgiline;
+ hpragma PPgipragma;
+{
+	register struct Sibind *pp =
+		(struct Sibind *) malloc(sizeof(struct Sibind));
+	pp -> tag = ibind;
+	pp -> Xgibindc = PPgibindc;
+	pp -> Xgibindid = PPgibindid;
+	pp -> Xgibindi = PPgibindi;
+	pp -> Xgibindw = PPgibindw;
+	pp -> Xgiline = PPgiline;
+	pp -> Xgipragma = PPgipragma;
+	return((binding)pp);
+}
+
+list *Rgibindc(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"gibindc: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgibindc);
+}
+
+unkId *Rgibindid(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"gibindid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgibindid);
+}
+
+ttype *Rgibindi(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"gibindi: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgibindi);
+}
+
+binding *Rgibindw(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"gibindw: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgibindw);
+}
+
+long *Rgiline(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"giline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiline);
+}
+
+hpragma *Rgipragma(t)
+ struct Sibind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ibind)
+		fprintf(stderr,"gipragma: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgipragma);
+}
+
+/************** dbind ******************/
+
+binding mkdbind(PPgdbindts, PPgdline)
+ list PPgdbindts;
+ long PPgdline;
+{
+	register struct Sdbind *pp =
+		(struct Sdbind *) malloc(sizeof(struct Sdbind));
+	pp -> tag = dbind;
+	pp -> Xgdbindts = PPgdbindts;
+	pp -> Xgdline = PPgdline;
+	return((binding)pp);
+}
+
+list *Rgdbindts(t)
+ struct Sdbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != dbind)
+		fprintf(stderr,"gdbindts: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdbindts);
+}
+
+long *Rgdline(t)
+ struct Sdbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != dbind)
+		fprintf(stderr,"gdline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdline);
+}
+
+/************** cbind ******************/
+
+binding mkcbind(PPgcbindc, PPgcbindid, PPgcbindw, PPgcline, PPgcpragma)
+ list PPgcbindc;
+ ttype PPgcbindid;
+ binding PPgcbindw;
+ long PPgcline;
+ hpragma PPgcpragma;
+{
+	register struct Scbind *pp =
+		(struct Scbind *) malloc(sizeof(struct Scbind));
+	pp -> tag = cbind;
+	pp -> Xgcbindc = PPgcbindc;
+	pp -> Xgcbindid = PPgcbindid;
+	pp -> Xgcbindw = PPgcbindw;
+	pp -> Xgcline = PPgcline;
+	pp -> Xgcpragma = PPgcpragma;
+	return((binding)pp);
+}
+
+list *Rgcbindc(t)
+ struct Scbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != cbind)
+		fprintf(stderr,"gcbindc: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgcbindc);
+}
+
+ttype *Rgcbindid(t)
+ struct Scbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != cbind)
+		fprintf(stderr,"gcbindid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgcbindid);
+}
+
+binding *Rgcbindw(t)
+ struct Scbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != cbind)
+		fprintf(stderr,"gcbindw: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgcbindw);
+}
+
+long *Rgcline(t)
+ struct Scbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != cbind)
+		fprintf(stderr,"gcline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgcline);
+}
+
+hpragma *Rgcpragma(t)
+ struct Scbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != cbind)
+		fprintf(stderr,"gcpragma: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgcpragma);
+}
+
+/************** sbind ******************/
+
+binding mksbind(PPgsbindids, PPgsbindid, PPgsline, PPgspragma)
+ list PPgsbindids;
+ ttype PPgsbindid;
+ long PPgsline;
+ hpragma PPgspragma;
+{
+	register struct Ssbind *pp =
+		(struct Ssbind *) malloc(sizeof(struct Ssbind));
+	pp -> tag = sbind;
+	pp -> Xgsbindids = PPgsbindids;
+	pp -> Xgsbindid = PPgsbindid;
+	pp -> Xgsline = PPgsline;
+	pp -> Xgspragma = PPgspragma;
+	return((binding)pp);
+}
+
+list *Rgsbindids(t)
+ struct Ssbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != sbind)
+		fprintf(stderr,"gsbindids: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgsbindids);
+}
+
+ttype *Rgsbindid(t)
+ struct Ssbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != sbind)
+		fprintf(stderr,"gsbindid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgsbindid);
+}
+
+long *Rgsline(t)
+ struct Ssbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != sbind)
+		fprintf(stderr,"gsline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgsline);
+}
+
+hpragma *Rgspragma(t)
+ struct Ssbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != sbind)
+		fprintf(stderr,"gspragma: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgspragma);
+}
+
+/************** mbind ******************/
+
+binding mkmbind(PPgmbindmodn, PPgmbindimp, PPgmbindren, PPgmline)
+ stringId PPgmbindmodn;
+ list PPgmbindimp;
+ list PPgmbindren;
+ long PPgmline;
+{
+	register struct Smbind *pp =
+		(struct Smbind *) malloc(sizeof(struct Smbind));
+	pp -> tag = mbind;
+	pp -> Xgmbindmodn = PPgmbindmodn;
+	pp -> Xgmbindimp = PPgmbindimp;
+	pp -> Xgmbindren = PPgmbindren;
+	pp -> Xgmline = PPgmline;
+	return((binding)pp);
+}
+
+stringId *Rgmbindmodn(t)
+ struct Smbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != mbind)
+		fprintf(stderr,"gmbindmodn: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmbindmodn);
+}
+
+list *Rgmbindimp(t)
+ struct Smbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != mbind)
+		fprintf(stderr,"gmbindimp: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmbindimp);
+}
+
+list *Rgmbindren(t)
+ struct Smbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != mbind)
+		fprintf(stderr,"gmbindren: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmbindren);
+}
+
+long *Rgmline(t)
+ struct Smbind *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != mbind)
+		fprintf(stderr,"gmline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmline);
+}
+
+/************** nullbind ******************/
+
+binding mknullbind()
+{
+	register struct Snullbind *pp =
+		(struct Snullbind *) malloc(sizeof(struct Snullbind));
+	pp -> tag = nullbind;
+	return((binding)pp);
+}
+
+/************** import ******************/
+
+binding mkimport(PPgiebindmod, PPgiebindexp, PPgiebindren, PPgiebinddef, PPgiebindfile, PPgiebindline)
+ stringId PPgiebindmod;
+ list PPgiebindexp;
+ list PPgiebindren;
+ binding PPgiebinddef;
+ stringId PPgiebindfile;
+ long PPgiebindline;
+{
+	register struct Simport *pp =
+		(struct Simport *) malloc(sizeof(struct Simport));
+	pp -> tag = import;
+	pp -> Xgiebindmod = PPgiebindmod;
+	pp -> Xgiebindexp = PPgiebindexp;
+	pp -> Xgiebindren = PPgiebindren;
+	pp -> Xgiebinddef = PPgiebinddef;
+	pp -> Xgiebindfile = PPgiebindfile;
+	pp -> Xgiebindline = PPgiebindline;
+	return((binding)pp);
+}
+
+stringId *Rgiebindmod(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebindmod: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebindmod);
+}
+
+list *Rgiebindexp(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebindexp: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebindexp);
+}
+
+list *Rgiebindren(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebindren: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebindren);
+}
+
+binding *Rgiebinddef(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebinddef: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebinddef);
+}
+
+stringId *Rgiebindfile(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebindfile: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebindfile);
+}
+
+long *Rgiebindline(t)
+ struct Simport *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != import)
+		fprintf(stderr,"giebindline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgiebindline);
+}
+
+/************** hiding ******************/
+
+binding mkhiding(PPgihbindmod, PPgihbindexp, PPgihbindren, PPgihbinddef, PPgihbindfile, PPgihbindline)
+ stringId PPgihbindmod;
+ list PPgihbindexp;
+ list PPgihbindren;
+ binding PPgihbinddef;
+ stringId PPgihbindfile;
+ long PPgihbindline;
+{
+	register struct Shiding *pp =
+		(struct Shiding *) malloc(sizeof(struct Shiding));
+	pp -> tag = hiding;
+	pp -> Xgihbindmod = PPgihbindmod;
+	pp -> Xgihbindexp = PPgihbindexp;
+	pp -> Xgihbindren = PPgihbindren;
+	pp -> Xgihbinddef = PPgihbinddef;
+	pp -> Xgihbindfile = PPgihbindfile;
+	pp -> Xgihbindline = PPgihbindline;
+	return((binding)pp);
+}
+
+stringId *Rgihbindmod(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbindmod: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbindmod);
+}
+
+list *Rgihbindexp(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbindexp: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbindexp);
+}
+
+list *Rgihbindren(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbindren: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbindren);
+}
+
+binding *Rgihbinddef(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbinddef: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbinddef);
+}
+
+stringId *Rgihbindfile(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbindfile: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbindfile);
+}
+
+long *Rgihbindline(t)
+ struct Shiding *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != hiding)
+		fprintf(stderr,"gihbindline: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgihbindline);
+}
+
+/************** vspec_uprag ******************/
+
+binding mkvspec_uprag(PPgvspec_id, PPgvspec_tys, PPgvspec_line)
+ unkId PPgvspec_id;
+ list PPgvspec_tys;
+ long PPgvspec_line;
+{
+	register struct Svspec_uprag *pp =
+		(struct Svspec_uprag *) malloc(sizeof(struct Svspec_uprag));
+	pp -> tag = vspec_uprag;
+	pp -> Xgvspec_id = PPgvspec_id;
+	pp -> Xgvspec_tys = PPgvspec_tys;
+	pp -> Xgvspec_line = PPgvspec_line;
+	return((binding)pp);
+}
+
+unkId *Rgvspec_id(t)
+ struct Svspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != vspec_uprag)
+		fprintf(stderr,"gvspec_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgvspec_id);
+}
+
+list *Rgvspec_tys(t)
+ struct Svspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != vspec_uprag)
+		fprintf(stderr,"gvspec_tys: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgvspec_tys);
+}
+
+long *Rgvspec_line(t)
+ struct Svspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != vspec_uprag)
+		fprintf(stderr,"gvspec_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgvspec_line);
+}
+
+/************** vspec_ty_and_id ******************/
+
+binding mkvspec_ty_and_id(PPgvspec_ty, PPgvspec_tyid)
+ ttype PPgvspec_ty;
+ list PPgvspec_tyid;
+{
+	register struct Svspec_ty_and_id *pp =
+		(struct Svspec_ty_and_id *) malloc(sizeof(struct Svspec_ty_and_id));
+	pp -> tag = vspec_ty_and_id;
+	pp -> Xgvspec_ty = PPgvspec_ty;
+	pp -> Xgvspec_tyid = PPgvspec_tyid;
+	return((binding)pp);
+}
+
+ttype *Rgvspec_ty(t)
+ struct Svspec_ty_and_id *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != vspec_ty_and_id)
+		fprintf(stderr,"gvspec_ty: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgvspec_ty);
+}
+
+list *Rgvspec_tyid(t)
+ struct Svspec_ty_and_id *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != vspec_ty_and_id)
+		fprintf(stderr,"gvspec_tyid: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgvspec_tyid);
+}
+
+/************** ispec_uprag ******************/
+
+binding mkispec_uprag(PPgispec_clas, PPgispec_ty, PPgispec_line)
+ unkId PPgispec_clas;
+ ttype PPgispec_ty;
+ long PPgispec_line;
+{
+	register struct Sispec_uprag *pp =
+		(struct Sispec_uprag *) malloc(sizeof(struct Sispec_uprag));
+	pp -> tag = ispec_uprag;
+	pp -> Xgispec_clas = PPgispec_clas;
+	pp -> Xgispec_ty = PPgispec_ty;
+	pp -> Xgispec_line = PPgispec_line;
+	return((binding)pp);
+}
+
+unkId *Rgispec_clas(t)
+ struct Sispec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ispec_uprag)
+		fprintf(stderr,"gispec_clas: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgispec_clas);
+}
+
+ttype *Rgispec_ty(t)
+ struct Sispec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ispec_uprag)
+		fprintf(stderr,"gispec_ty: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgispec_ty);
+}
+
+long *Rgispec_line(t)
+ struct Sispec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != ispec_uprag)
+		fprintf(stderr,"gispec_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgispec_line);
+}
+
+/************** inline_uprag ******************/
+
+binding mkinline_uprag(PPginline_id, PPginline_howto, PPginline_line)
+ unkId PPginline_id;
+ list PPginline_howto;
+ long PPginline_line;
+{
+	register struct Sinline_uprag *pp =
+		(struct Sinline_uprag *) malloc(sizeof(struct Sinline_uprag));
+	pp -> tag = inline_uprag;
+	pp -> Xginline_id = PPginline_id;
+	pp -> Xginline_howto = PPginline_howto;
+	pp -> Xginline_line = PPginline_line;
+	return((binding)pp);
+}
+
+unkId *Rginline_id(t)
+ struct Sinline_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != inline_uprag)
+		fprintf(stderr,"ginline_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xginline_id);
+}
+
+list *Rginline_howto(t)
+ struct Sinline_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != inline_uprag)
+		fprintf(stderr,"ginline_howto: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xginline_howto);
+}
+
+long *Rginline_line(t)
+ struct Sinline_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != inline_uprag)
+		fprintf(stderr,"ginline_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xginline_line);
+}
+
+/************** deforest_uprag ******************/
+
+binding mkdeforest_uprag(PPgdeforest_id, PPgdeforest_line)
+ unkId PPgdeforest_id;
+ long PPgdeforest_line;
+{
+	register struct Sdeforest_uprag *pp =
+		(struct Sdeforest_uprag *) malloc(sizeof(struct Sdeforest_uprag));
+	pp -> tag = deforest_uprag;
+	pp -> Xgdeforest_id = PPgdeforest_id;
+	pp -> Xgdeforest_line = PPgdeforest_line;
+	return((binding)pp);
+}
+
+unkId *Rgdeforest_id(t)
+ struct Sdeforest_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != deforest_uprag)
+		fprintf(stderr,"gdeforest_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdeforest_id);
+}
+
+long *Rgdeforest_line(t)
+ struct Sdeforest_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != deforest_uprag)
+		fprintf(stderr,"gdeforest_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdeforest_line);
+}
+
+/************** magicuf_uprag ******************/
+
+binding mkmagicuf_uprag(PPgmagicuf_id, PPgmagicuf_str, PPgmagicuf_line)
+ unkId PPgmagicuf_id;
+ stringId PPgmagicuf_str;
+ long PPgmagicuf_line;
+{
+	register struct Smagicuf_uprag *pp =
+		(struct Smagicuf_uprag *) malloc(sizeof(struct Smagicuf_uprag));
+	pp -> tag = magicuf_uprag;
+	pp -> Xgmagicuf_id = PPgmagicuf_id;
+	pp -> Xgmagicuf_str = PPgmagicuf_str;
+	pp -> Xgmagicuf_line = PPgmagicuf_line;
+	return((binding)pp);
+}
+
+unkId *Rgmagicuf_id(t)
+ struct Smagicuf_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != magicuf_uprag)
+		fprintf(stderr,"gmagicuf_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmagicuf_id);
+}
+
+stringId *Rgmagicuf_str(t)
+ struct Smagicuf_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != magicuf_uprag)
+		fprintf(stderr,"gmagicuf_str: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmagicuf_str);
+}
+
+long *Rgmagicuf_line(t)
+ struct Smagicuf_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != magicuf_uprag)
+		fprintf(stderr,"gmagicuf_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgmagicuf_line);
+}
+
+/************** abstract_uprag ******************/
+
+binding mkabstract_uprag(PPgabstract_id, PPgabstract_line)
+ unkId PPgabstract_id;
+ long PPgabstract_line;
+{
+	register struct Sabstract_uprag *pp =
+		(struct Sabstract_uprag *) malloc(sizeof(struct Sabstract_uprag));
+	pp -> tag = abstract_uprag;
+	pp -> Xgabstract_id = PPgabstract_id;
+	pp -> Xgabstract_line = PPgabstract_line;
+	return((binding)pp);
+}
+
+unkId *Rgabstract_id(t)
+ struct Sabstract_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != abstract_uprag)
+		fprintf(stderr,"gabstract_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgabstract_id);
+}
+
+long *Rgabstract_line(t)
+ struct Sabstract_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != abstract_uprag)
+		fprintf(stderr,"gabstract_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgabstract_line);
+}
+
+/************** dspec_uprag ******************/
+
+binding mkdspec_uprag(PPgdspec_id, PPgdspec_tys, PPgdspec_line)
+ unkId PPgdspec_id;
+ list PPgdspec_tys;
+ long PPgdspec_line;
+{
+	register struct Sdspec_uprag *pp =
+		(struct Sdspec_uprag *) malloc(sizeof(struct Sdspec_uprag));
+	pp -> tag = dspec_uprag;
+	pp -> Xgdspec_id = PPgdspec_id;
+	pp -> Xgdspec_tys = PPgdspec_tys;
+	pp -> Xgdspec_line = PPgdspec_line;
+	return((binding)pp);
+}
+
+unkId *Rgdspec_id(t)
+ struct Sdspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != dspec_uprag)
+		fprintf(stderr,"gdspec_id: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdspec_id);
+}
+
+list *Rgdspec_tys(t)
+ struct Sdspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != dspec_uprag)
+		fprintf(stderr,"gdspec_tys: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdspec_tys);
+}
+
+long *Rgdspec_line(t)
+ struct Sdspec_uprag *t;
+{
+#ifdef UGEN_DEBUG
+	if(t -> tag != dspec_uprag)
+		fprintf(stderr,"gdspec_line: illegal selection; was %d\n", t -> tag);
+#endif /* UGEN_DEBUG */
+	return(& t -> Xgdspec_line);
+}