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