1 5cedca1b 2004-05-15 devnull #include <stdio.h>
2 5cedca1b 2004-05-15 devnull #include <stdlib.h>
3 5cedca1b 2004-05-15 devnull #include <string.h>
4 10b819c6 2005-01-19 devnull #include <errno.h>
6 b237df90 2004-05-16 devnull #undef sqrt
7 b237df90 2004-05-16 devnull #define sqrt p9_sqrt
8 b237df90 2004-05-16 devnull #define YYSTYPE int /* DEC v. GNU garbage */
10 5cedca1b 2004-05-15 devnull enum charclass {
11 5cedca1b 2004-05-15 devnull OTHER, OLET, ILET, DIG, LPAR, RPAR, SLASH, PLUS, ILETF, ILETJ, VBAR,
12 5cedca1b 2004-05-15 devnull NONE, LAST
14 5cedca1b 2004-05-15 devnull extern int class[LAST][LAST];
16 5cedca1b 2004-05-15 devnull #define dprintf if (dbg) printf
17 5cedca1b 2004-05-15 devnull #define max(x,y) (((x) >= (y)) ? (x) : (y)) /* beware of side effects */
18 5cedca1b 2004-05-15 devnull #define min(x,y) (((x) <= (y)) ? (x) : (y))
20 5cedca1b 2004-05-15 devnull extern char errbuf[200];
21 5cedca1b 2004-05-15 devnull extern char *cmdname;
22 5cedca1b 2004-05-15 devnull #define ERROR sprintf(errbuf,
23 5cedca1b 2004-05-15 devnull #define FATAL ), error(1, errbuf)
24 5cedca1b 2004-05-15 devnull #define WARNING ), error(0, errbuf)
25 5cedca1b 2004-05-15 devnull #define SYNTAX ), yyerror(errbuf)
27 5cedca1b 2004-05-15 devnull #define ROM '1'
28 5cedca1b 2004-05-15 devnull #define ITAL '2'
29 5cedca1b 2004-05-15 devnull #define BLD '3'
30 5cedca1b 2004-05-15 devnull #define BDIT '4'
32 5cedca1b 2004-05-15 devnull #define DEFGAP -999 /* default gap in piles */
34 5cedca1b 2004-05-15 devnull extern int dbg;
35 5cedca1b 2004-05-15 devnull extern int ct;
36 5cedca1b 2004-05-15 devnull extern int lp[];
37 5cedca1b 2004-05-15 devnull extern int used[]; /* available registers */
38 5cedca1b 2004-05-15 devnull extern int ps; /* dflt init pt size */
39 5cedca1b 2004-05-15 devnull extern int deltaps; /* default change in ps */
40 5cedca1b 2004-05-15 devnull extern int dps_set; /* 1 => -p option used */
41 5cedca1b 2004-05-15 devnull extern int gsize; /* global size */
42 5cedca1b 2004-05-15 devnull extern int ft; /* default font */
43 5cedca1b 2004-05-15 devnull extern int display; /* 1 => inline, 0 => .EQ/.EN */
44 5cedca1b 2004-05-15 devnull extern int synerr; /* 1 if syntax error in this eqn */
46 5cedca1b 2004-05-15 devnull extern char *typesetter; /* typesetter name for -T... */
47 5cedca1b 2004-05-15 devnull extern int minsize; /* min size it can print */
48 5cedca1b 2004-05-15 devnull extern int ttype; /* actual type of typesetter: */
50 5cedca1b 2004-05-15 devnull #define DEVCAT 1
51 5cedca1b 2004-05-15 devnull #define DEV202 2
52 5cedca1b 2004-05-15 devnull #define DEVAPS 3
53 5cedca1b 2004-05-15 devnull #define DEVPOST 4
55 5cedca1b 2004-05-15 devnull extern double eht[];
56 5cedca1b 2004-05-15 devnull extern double ebase[];
57 5cedca1b 2004-05-15 devnull extern int lfont[];
58 5cedca1b 2004-05-15 devnull extern int rfont[];
59 5cedca1b 2004-05-15 devnull extern int lclass[];
60 5cedca1b 2004-05-15 devnull extern int rclass[];
61 b237df90 2004-05-16 devnull extern YYSTYPE yyval; /* DEC cc wants long */
62 b237df90 2004-05-16 devnull extern YYSTYPE yylval; /* DEC cc wants long */
63 5cedca1b 2004-05-15 devnull extern int eqnreg;
64 5cedca1b 2004-05-15 devnull extern double eqnht;
65 5cedca1b 2004-05-15 devnull extern int lefteq, righteq;
66 5cedca1b 2004-05-15 devnull extern int markline; /* 1 if this EQ/EN contains mark or lineup */
68 5cedca1b 2004-05-15 devnull #define TBLSIZE 100
70 5cedca1b 2004-05-15 devnull typedef struct s_tbl {
71 5cedca1b 2004-05-15 devnull char *name; /* e.g., "max" or "sum" */
72 5cedca1b 2004-05-15 devnull char *cval; /* e.g., "\\f1max\\fP" */
73 5cedca1b 2004-05-15 devnull int ival; /* or SUM */
74 5cedca1b 2004-05-15 devnull struct s_tbl *next;
77 5cedca1b 2004-05-15 devnull extern char *spaceval; /* use in place of normal \x (for pic) */
79 5cedca1b 2004-05-15 devnull #define String 01
80 5cedca1b 2004-05-15 devnull #define Macro 02
81 5cedca1b 2004-05-15 devnull #define File 04
82 5cedca1b 2004-05-15 devnull #define Char 010
83 5cedca1b 2004-05-15 devnull #define Free 040
85 5cedca1b 2004-05-15 devnull typedef struct infile {
86 5cedca1b 2004-05-15 devnull FILE *fin;
87 5cedca1b 2004-05-15 devnull char *fname;
88 5cedca1b 2004-05-15 devnull int lineno;
89 5cedca1b 2004-05-15 devnull } Infile;
91 5cedca1b 2004-05-15 devnull typedef struct { /* input source */
92 5cedca1b 2004-05-15 devnull int type; /* Macro, String, File */
93 5cedca1b 2004-05-15 devnull char *sp; /* if String or Macro */
96 5cedca1b 2004-05-15 devnull extern Src src[], *srcp; /* input source stack */
98 5cedca1b 2004-05-15 devnull #define MAXARGS 20
99 5cedca1b 2004-05-15 devnull typedef struct { /* argument stack */
100 5cedca1b 2004-05-15 devnull char *argstk[MAXARGS]; /* pointers to args */
101 5cedca1b 2004-05-15 devnull char *argval; /* points to space containing args */
104 5cedca1b 2004-05-15 devnull typedef struct { /* font number and name */
106 5cedca1b 2004-05-15 devnull char name[10];
109 5cedca1b 2004-05-15 devnull extern Font ftstack[];
110 5cedca1b 2004-05-15 devnull extern Font *ftp;
112 5cedca1b 2004-05-15 devnull extern int szstack[];
113 5cedca1b 2004-05-15 devnull extern int nszstack;
115 5cedca1b 2004-05-15 devnull extern Infile infile[10];
116 5cedca1b 2004-05-15 devnull extern Infile *curfile;
118 5cedca1b 2004-05-15 devnull extern tbl *lookup(tbl **tblp, char *name);
119 5cedca1b 2004-05-15 devnull extern void install(tbl **tblp, char *name, char *cval, int ival);
120 5cedca1b 2004-05-15 devnull extern tbl *keytbl[], *deftbl[], *restbl[], *ftunetbl[];
122 5cedca1b 2004-05-15 devnull extern int salloc(void);
123 5cedca1b 2004-05-15 devnull extern void sfree(int);
124 5cedca1b 2004-05-15 devnull extern void nrwid(int, int, int);
125 5cedca1b 2004-05-15 devnull extern char *ABSPS(int);
126 5cedca1b 2004-05-15 devnull extern char *DPS(int, int);
127 5cedca1b 2004-05-15 devnull extern int EFFPS(int);
128 5cedca1b 2004-05-15 devnull extern double EM(double, int);
129 5cedca1b 2004-05-15 devnull extern double REL(double, int);
130 5cedca1b 2004-05-15 devnull extern char *pad(int);
131 5cedca1b 2004-05-15 devnull extern void getstr(char *, int);
132 5cedca1b 2004-05-15 devnull extern char *strsave(char *);
134 5cedca1b 2004-05-15 devnull extern int input(void);
135 5cedca1b 2004-05-15 devnull extern int unput(int);
136 5cedca1b 2004-05-15 devnull extern void pbstr(char *);
137 5cedca1b 2004-05-15 devnull extern void error(int, char *);
138 5cedca1b 2004-05-15 devnull extern void yyerror(char *);
140 5cedca1b 2004-05-15 devnull extern void diacrit(int, int);
141 5cedca1b 2004-05-15 devnull extern void eqnbox(int, int, int);
142 5cedca1b 2004-05-15 devnull extern void setfont(char *);
143 5cedca1b 2004-05-15 devnull extern void font(int, int);
144 5cedca1b 2004-05-15 devnull extern void globfont(void);
145 5cedca1b 2004-05-15 devnull extern void fatbox(int);
146 5cedca1b 2004-05-15 devnull extern void fromto(int, int, int);
147 5cedca1b 2004-05-15 devnull extern void funny(int);
148 5cedca1b 2004-05-15 devnull extern void integral(int, int, int);
149 5cedca1b 2004-05-15 devnull extern void setintegral(void);
150 5cedca1b 2004-05-15 devnull extern void pushsrc(int, char *);
151 5cedca1b 2004-05-15 devnull extern void popsrc(void);
152 5cedca1b 2004-05-15 devnull extern void putout(int);
153 5cedca1b 2004-05-15 devnull extern void text(int, char *);
154 5cedca1b 2004-05-15 devnull extern void subsup(int, int, int);
155 5cedca1b 2004-05-15 devnull extern void bshiftb(int, int, int);
156 5cedca1b 2004-05-15 devnull extern void shift2(int, int, int);
157 5cedca1b 2004-05-15 devnull extern void setsize(char *);
158 5cedca1b 2004-05-15 devnull extern void size(int, int);
159 5cedca1b 2004-05-15 devnull extern void globsize(void);
160 5cedca1b 2004-05-15 devnull extern void sqrt(int);
161 5cedca1b 2004-05-15 devnull extern void text(int, char *);
162 5cedca1b 2004-05-15 devnull extern void boverb(int, int);
163 5cedca1b 2004-05-15 devnull extern void lineup(int);
164 5cedca1b 2004-05-15 devnull extern void mark(int);
165 5cedca1b 2004-05-15 devnull extern void paren(int, int, int);
166 5cedca1b 2004-05-15 devnull extern void move(int, int, int);
167 5cedca1b 2004-05-15 devnull extern void pile(int);
168 5cedca1b 2004-05-15 devnull extern int startcol(int);
169 5cedca1b 2004-05-15 devnull extern void column(int, int);
170 5cedca1b 2004-05-15 devnull extern void matrix(int);
