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