|
|
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.