1 #ifndef lint
2 static char *sccsid = "glob.c	(CWI)	1.1	85/03/01";
3 #endif
4 #include "e.h"
5 
6 int	dbg;	/* debugging print if non-zero */
7 int	lp[80];	/* stack for things like piles and matrices */
8 int	ct;	/* pointer to lp */
9 int	used[100];	/* available registers */
10 int	ps;	/* default init point size */
11 int	deltaps	= 3;	/* default change in ps */
12 int	gsize	= 10;	/* default initial point size */
13 int	gfont	= ITAL;	/* italic */
14 int	ft;	/* default font */
15 #ifdef	APS
16 	int	ttype	= DEVAPS;	/* type of typesetter today */
17 	int	res	= 723;	/* resolution of typesetter; dflt = 202 */
18 	int	minsize	= 5;	/* min size it can handle; ditto */
19 #endif
20 #ifdef
21 		/*
22 		 * with just two possible typesetters, this would be the
23 		 * approach
24 		 */
25 	int	ttype	= DEV202;	/* type of typesetter today */
26 	int	res	= 972;	/* resolution of typesetter; dflt = 202 */
27 	int	minsize	= 6;	/* min size it can handle; ditto */
28 #else
29 	int	ttype	= DEVHAR;	/* type of typesetter today */
30 	int	res	= 1445;	/* resolution of typesetter; dflt = har */
31 	int	minsize	= 4;	/* min size it can handle; ditto */
32 #endif
33 FILE	*curfile;	/* current input file */
34 int	ifile;
35 int	linect;	/* line number in file */
36 int	eqline;	/* line where eqn started */
37 int	svargc;
38 char	**svargv;
39 int	eht[100];
40 int	ebase[100];
41 int	lfont[100];
42 int	rfont[100];
43 int	eqnreg;	/* register where final string appears */
44 int	eqnht;	/* inal height of equation */
45 int	lefteq	= '\0';	/* left in-line delimiter */
46 int	righteq	= '\0';	/* right in-line delimiter */
47 int	lastchar;	/* last character read by lex */
48 int	markline	= 0;	/* 1 if this EQ/EN contains mark; 2 if lineup */
49