1 #ifndef lint 2 static char sccsid[] = "@(#)glob.c 2.2 (CWI) 87/04/01"; 3 #endif lint 4 #include "e.h" 5 6 int dbg; /* debugging print if non-zero */ 7 int lp[200]; /* 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 dps_set = 0; /* 1 => -p option used */ 13 int gsize = 10; /* default initial point size */ 14 int ft = '2'; 15 Font ftstack[10] = { '2', "2" }; /* bottom is global font */ 16 Font *ftp = ftstack; 17 int szstack[10]; /* non-zero if absolute size set at this level */ 18 int nszstack = 0; 19 int display = 0; /* 1=>display, 0=>.EQ/.EN */ 20 21 #ifdef APS 22 char *typesetter = "aps"; /* name for -T */ 23 int ttype = DEVAPS; /* type of typesetter today */ 24 int res = 723; /* resolution of typesetter; dflt = 202 */ 25 int minsize = 5; /* min size it can handle; ditto */ 26 #else 27 char *typesetter = "har"; 28 int ttype = DEVHAR; /* type of typesetter today */ 29 int res = 1445; /* resolution of typesetter; dflt = har */ 30 int minsize = 4; /* min size it can handle; ditto */ 31 #endif 32 33 int synerr; /* 1 if syntax err in this eqn */ 34 float eht[100]; /* height in ems at gsize */ 35 float ebase[100]; /* base: where one enters above bottom */ 36 int eps[100]; /* unused right now */ 37 int lfont[100]; 38 int rfont[100]; 39 int eqnreg; /* register where final string appears */ 40 float eqnht; /* final height of equation */ 41 int lefteq = '\0'; /* left in-line delimiter */ 42 int righteq = '\0'; /* right in-line delimiter */ 43 int markline = 0; /* 1 if this EQ/EN contains mark; 2 if lineup */ 44