Plan 9 lex (to be installed as lex.9, if at all).

1 files changed, 292 insertions, 0 deletions

diff --git a/src/cmd/lex/lmain.c b/src/cmd/lex/lmain.c
new file mode 100644
index 00000000..ec43869a
--- /dev/null
+++ b/src/cmd/lex/lmain.c
@@ -0,0 +1,292 @@
+/* lex [-[dynvt]] [file] ... [file] */
+
+/* Copyright 1976, Bell Telephone Laboratories, Inc.,
+   written by Eric Schmidt, August 27, 1976   */
+
+# include "ldefs.h"
+Biobuf	fout;
+int	foutopen;
+int	errorf = 1;
+int	sect = DEFSECTION;
+int	prev = '\n';	/* previous input character */
+int	pres = '\n';	/* present input character */
+int	peek = '\n';	/* next input character */
+uchar	*pushptr = pushc;
+uchar	*slptr = slist;
+
+char	*cname = SYS9 "/sys/lib/lex/ncform";
+
+int nine;
+int ccount = 1;
+int casecount = 1;
+int aptr = 1;
+int nstates = NSTATES, maxpos = MAXPOS;
+int treesize = TREESIZE, ntrans = NTRANS;
+int yytop;
+int outsize = NOUTPUT;
+int sptr = 1;
+int report = 2;
+int debug;		/* 1 = on */
+int charc;
+int sargc;
+char **sargv;
+uchar buf[520];
+int yyline;		/* line number of file */
+int eof;
+int lgatflg;
+int divflg;
+int funcflag;
+int pflag;
+int chset;	/* 1 = char set modified */
+Biobuf *fin, *fother;
+int fptr;
+int *name;
+int *left;
+int *right;
+int *parent;
+uchar *nullstr;
+int tptr;
+uchar pushc[TOKENSIZE];
+uchar slist[STARTSIZE];
+uchar **def, **subs, *dchar;
+uchar **sname, *stchar;
+uchar *ccl;
+uchar *ccptr;
+uchar *dp, *sp;
+int dptr;
+uchar *bptr;		/* store input position */
+uchar *tmpstat;
+int count;
+int **foll;
+int *nxtpos;
+int *positions;
+int *gotof;
+int *nexts;
+uchar *nchar;
+int **state;
+int *sfall;		/* fallback state num */
+uchar *cpackflg;		/* true if state has been character packed */
+int *atable;
+int nptr;
+uchar symbol[NCH];
+uchar cindex[NCH];
+int xstate;
+int stnum;
+uchar match[NCH];
+uchar extra[NACTIONS];
+uchar *pchar, *pcptr;
+int pchlen = TOKENSIZE;
+ long rcount;
+int *verify, *advance, *stoff;
+int scon;
+uchar *psave;
+
+static void	free1core(void);
+static void	free2core(void);
+#ifdef DEBUG
+static void	free3core(void);
+#endif
+static void	get1core(void);
+static void	get2core(void);
+static void	get3core(void);
+
+void
+main(int argc, char **argv)
+{
+	int i;
+
+	ARGBEGIN {
+# ifdef DEBUG
+		case 'd': debug++; break;
+		case 'y': yydebug = TRUE; break;
+# endif
+		case 't': case 'T':
+			Binit(&fout, 1, OWRITE);
+			errorf= 2;
+			foutopen = 1;
+			break;
+		case 'v': case 'V':
+			report = 1;
+			break;
+		case 'n': case 'N':
+			report = 0;
+			break;
+		case '9':
+			nine = 1;
+			break;
+		default:
+			warning("Unknown option %c", ARGC());
+	} ARGEND
+	sargc = argc;
+	sargv = argv;
+	if (argc > 0){
+		fin = Bopen(argv[fptr++], OREAD);
+		if(fin == 0)
+			error ("Can't read input file %s",argv[0]);
+		sargc--;
+		sargv++;
+	}
+	else {
+		fin = myalloc(sizeof(Biobuf), 1);
+		if(fin == 0)
+			exits("core");
+		Binit(fin, 0, OREAD);
+	}
+	if(Bgetc(fin) == Beof)		/* no input */
+		exits(0);
+	Bseek(fin, 0, 0);
+	gch();
+		/* may be gotten: def, subs, sname, stchar, ccl, dchar */
+	get1core();
+		/* may be gotten: name, left, right, nullstr, parent */
+	strcpy((char*)sp, "INITIAL");
+	sname[0] = sp;
+	sp += strlen("INITIAL") + 1;
+	sname[1] = 0;
+	if(yyparse()) exits("error");	/* error return code */
+		/* may be disposed of: def, subs, dchar */
+	free1core();
+		/* may be gotten: tmpstat, foll, positions, gotof, nexts, nchar, state, atable, sfall, cpackflg */
+	get2core();
+	ptail();
+	mkmatch();
+# ifdef DEBUG
+	if(debug) pccl();
+# endif
+	sect  = ENDSECTION;
+	if(tptr>0)cfoll(tptr-1);
+# ifdef DEBUG
+	if(debug)pfoll();
+# endif
+	cgoto();
+# ifdef DEBUG
+	if(debug){
+		print("Print %d states:\n",stnum+1);
+		for(i=0;i<=stnum;i++)stprt(i);
+		}
+# endif
+		/* may be disposed of: positions, tmpstat, foll, state, name, left, right, parent, ccl, stchar, sname */
+		/* may be gotten: verify, advance, stoff */
+	free2core();
+	get3core();
+	layout();
+		/* may be disposed of: verify, advance, stoff, nexts, nchar,
+			gotof, atable, ccpackflg, sfall */
+# ifdef DEBUG
+	free3core();
+# endif
+	fother = Bopen(cname,OREAD);
+	if(fother == 0)
+		error("Lex driver missing, file %s",cname);
+	while ( (i=Bgetc(fother)) != Beof)
+		Bputc(&fout, i);
+
+	Bterm(fother);
+	Bterm(&fout);
+	if(
+# ifdef DEBUG
+		debug   ||
+# endif
+			report == 1)statistics();
+	Bterm(fin);
+	exits(0);	/* success return code */
+}
+
+static void
+get1core(void)
+{
+	ccptr =	ccl = myalloc(CCLSIZE,sizeof(*ccl));
+	pcptr = pchar = myalloc(pchlen, sizeof(*pchar));
+	def = myalloc(DEFSIZE,sizeof(*def));
+	subs = myalloc(DEFSIZE,sizeof(*subs));
+	dp = dchar = myalloc(DEFCHAR,sizeof(*dchar));
+	sname = myalloc(STARTSIZE,sizeof(*sname));
+	sp = stchar = myalloc(STARTCHAR,sizeof(*stchar));
+	if(ccl == 0 || def == 0 || subs == 0 || dchar == 0 || sname == 0 || stchar == 0)
+		error("Too little core to begin");
+}
+
+static void
+free1core(void)
+{
+	free(def);
+	free(subs);
+	free(dchar);
+}
+
+static void
+get2core(void)
+{
+	int i;
+
+	gotof = myalloc(nstates,sizeof(*gotof));
+	nexts = myalloc(ntrans,sizeof(*nexts));
+	nchar = myalloc(ntrans,sizeof(*nchar));
+	state = myalloc(nstates,sizeof(*state));
+	atable = myalloc(nstates,sizeof(*atable));
+	sfall = myalloc(nstates,sizeof(*sfall));
+	cpackflg = myalloc(nstates,sizeof(*cpackflg));
+	tmpstat = myalloc(tptr+1,sizeof(*tmpstat));
+	foll = myalloc(tptr+1,sizeof(*foll));
+	nxtpos = positions = myalloc(maxpos,sizeof(*positions));
+	if(tmpstat == 0 || foll == 0 || positions == 0 ||
+		gotof == 0 || nexts == 0 || nchar == 0 || state == 0 || atable == 0 || sfall == 0 || cpackflg == 0 )
+		error("Too little core for state generation");
+	for(i=0;i<=tptr;i++)foll[i] = 0;
+}
+
+static void
+free2core(void)
+{
+	free(positions);
+	free(tmpstat);
+	free(foll);
+	free(name);
+	free(left);
+	free(right);
+	free(parent);
+	free(nullstr);
+	free(state);
+	free(sname);
+	free(stchar);
+	free(ccl);
+}
+
+static void
+get3core(void)
+{
+	verify = myalloc(outsize,sizeof(*verify));
+	advance = myalloc(outsize,sizeof(*advance));
+	stoff = myalloc(stnum+2,sizeof(*stoff));
+	if(verify == 0 || advance == 0 || stoff == 0)
+		error("Too little core for final packing");
+}
+# ifdef DEBUG
+static void
+free3core(void){
+	free(advance);
+	free(verify);
+	free(stoff);
+	free(gotof);
+	free(nexts);
+	free(nchar);
+	free(atable);
+	free(sfall);
+	free(cpackflg);
+}
+# endif
+void *
+myalloc(int a, int b)
+{
+	void *i;
+	i = calloc(a, b);
+	if(i==0)
+		warning("OOPS - calloc returns a 0");
+	return(i);
+}
+
+void
+yyerror(char *s)
+{
+	fprint(2, "line %d: %s\n", yyline, s);
+}