|
|
1.1 root 1: #include "e.h"
2:
3: int dbg; /* debugging print if non-zero */
4: int lp[200]; /* stack for things like piles and matrices */
5: int ct; /* pointer to lp */
6: int used[100]; /* available registers */
7: int ps; /* default init point size */
8: int deltaps = 3; /* default change in ps */
9: int dps_set = 0; /* 1 => -p option used */
10: int gsize = 10; /* default initial point size */
11: int ft = '2';
12: Font ftstack[10] = { '2', "2" }; /* bottom is global font */
13: Font *ftp = ftstack;
14: int szstack[10]; /* non-zero if absolute size set at this level */
15: int nszstack = 0;
16: int display = 0; /* 1=>display, 0=>.EQ/.EN */
17:
18: #ifdef APS
19: char *typesetter = "aps"; /* name for -T */
20: int ttype = DEVAPS; /* type of typesetter today */
21: int minsize = 5; /* min size it can handle; ditto */
22: #else
23: char *typesetter = "202";
24: int ttype = DEV202; /* type of typesetter today */
25: int minsize = 5; /* min size it can handle; ditto */
26: #endif
27:
28: int synerr; /* 1 if syntax err in this eqn */
29: float eht[100]; /* height in ems at gsize */
30: float ebase[100]; /* base: where one enters above bottom */
31: int eps[100]; /* unused right now */
32: int lfont[100];
33: int rfont[100];
34: int eqnreg; /* register where final string appears */
35: float eqnht; /* final height of equation */
36: int lefteq = '\0'; /* left in-line delimiter */
37: int righteq = '\0'; /* right in-line delimiter */
38: int markline = 0; /* 1 if this EQ/EN contains mark; 2 if lineup */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.