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