GT - generate tables for C compiler.

- Rename YPRASE to C25, because that's what the STINKR script expects.
- Rename the lextype variable to lextag, because that's what G1 expects.
- Remove duplicate definition of STCMP; it's already in the C library.
- No need to link in APFNAM; it's already in the C library.
- Rewrite STINKR script for ITS.

build/misc.tcl

@@ -1153,6 +1153,11 @@ expect ":KILL"
 respond "*" ":stinkr cc\r"
 expect ":KILL"
 
+# GT
+respond "*" ":c;cc g0.c g1.c g2.c g3.c g4.c g5.c c25.c\r"
+expect ":KILL"
+respond "*" ":stinkr gt\r"
+
 # TJ6
 respond "*" ":midas sysbin;_tj6;tj6\r"
 expect ":KILL"

doc/programs.md

@@ -101,6 +101,7 @@
 - GETSYM, copy all symbols from running ITS to a file.
 - GLP/XGP, queue files to be printed by GLPSPL/XGPSPL.
 - GLPDEV/XGPDEV, device for viewing GLPSPL/XGPSPL printer queues.
+- GT, generate tables for C compiler.
 - GTLEM, GT40 Lunar Lander.
 - GTLOAD, load programs into GT40.
 - GO, the Go board game.

src/c/c25.c

@@ -26,7 +26,7 @@ extern int cout;
 
 /*	GLOBAL VARIABLES USED TO RECEIVE INFO FROM GETTOK	*/
 
-int	lextype;	/* indicates which terminal symbol read */
+int	lextag;	/* indicates which terminal symbol read */
 int	lexindex;	/* used as translation element */
 int	lexline;	/* line-number of line which token appears on */
 
@@ -498,7 +498,7 @@ rtoken(p) token *p;
 
 	{
 	gettok();
-	p->type = lextype;
+	p->type = lextag;
 	p->index = lexindex;
 	p->line = lexline;
 	}

src/c/g1.c

@@ -488,18 +488,3 @@ int lgetc()
 		return (ch);
 		}
 	}
-
-/**********************************************************************
-
-	STCMP - Compare Strings
-
-**********************************************************************/
-
-int stcmp (s1, s2) char *s1,*s2;
-
-	{int u;
-
-	while ((u = *s1++) == *s2++) if (!u) return (TRUE);
-	return (FALSE);
-	}
-