1 b6d98463 2006-04-14 devnull #include <string.h>
2 b6d98463 2006-04-14 devnull #include <stdlib.h>
3 b6d98463 2006-04-14 devnull #include <unistd.h>
5 b6d98463 2006-04-14 devnull #ifndef PI
6 b6d98463 2006-04-14 devnull #define PI 3.1415926535897932384626433832795028841971693993751
9 b6d98463 2006-04-14 devnull #define MAXWID 8.5 /* default limits max picture to 8.5 x 11; */
10 b6d98463 2006-04-14 devnull #define MAXHT 11 /* change to taste without peril */
12 b6d98463 2006-04-14 devnull #define dprintf if(dbg)printf
14 b6d98463 2006-04-14 devnull extern char errbuf[200];
16 fa662c95 2009-09-11 russcox #undef sprintf /* Snow Leopard */
18 b6d98463 2006-04-14 devnull #define ERROR sprintf(errbuf,
19 b6d98463 2006-04-14 devnull #define FATAL ), yyerror(errbuf), exit(1)
20 b6d98463 2006-04-14 devnull #define WARNING ), yyerror(errbuf)
22 b6d98463 2006-04-14 devnull #define DEFAULT 0
24 b6d98463 2006-04-14 devnull #define HEAD1 1
25 b6d98463 2006-04-14 devnull #define HEAD2 2
26 b6d98463 2006-04-14 devnull #define HEAD12 (HEAD1+HEAD2)
27 b6d98463 2006-04-14 devnull #define INVIS 4
28 b6d98463 2006-04-14 devnull #define CW_ARC 8 /* clockwise arc */
29 b6d98463 2006-04-14 devnull #define DOTBIT 16 /* line styles */
30 b6d98463 2006-04-14 devnull #define DASHBIT 32
31 b6d98463 2006-04-14 devnull #define FILLBIT 64 /* gray-fill on boxes, etc. */
33 b6d98463 2006-04-14 devnull #define CENTER 01 /* text attributes */
34 b6d98463 2006-04-14 devnull #define LJUST 02
35 b6d98463 2006-04-14 devnull #define RJUST 04
36 b6d98463 2006-04-14 devnull #define ABOVE 010
37 b6d98463 2006-04-14 devnull #define BELOW 020
38 b6d98463 2006-04-14 devnull #define SPREAD 040
40 b6d98463 2006-04-14 devnull #define SCALE 1.0 /* default scale: units/inch */
41 b6d98463 2006-04-14 devnull #define WID 0.75 /* default width for boxes and ellipses */
42 b6d98463 2006-04-14 devnull #define WID2 0.375
43 b6d98463 2006-04-14 devnull #define HT 0.5 /* default height and line length */
44 b6d98463 2006-04-14 devnull #define HT2 (HT/2)
45 b6d98463 2006-04-14 devnull #define HT5 (HT/5)
46 b6d98463 2006-04-14 devnull #define HT10 (HT/10)
48 b6d98463 2006-04-14 devnull /* these have to be like so, so that we can write */
49 b6d98463 2006-04-14 devnull /* things like R & V, etc. */
50 b6d98463 2006-04-14 devnull #define H 0
51 b6d98463 2006-04-14 devnull #define V 1
52 b6d98463 2006-04-14 devnull #define R_DIR 0
53 b6d98463 2006-04-14 devnull #define U_DIR 1
54 b6d98463 2006-04-14 devnull #define L_DIR 2
55 b6d98463 2006-04-14 devnull #define D_DIR 3
56 b6d98463 2006-04-14 devnull #define ishor(n) (((n) & V) == 0)
57 b6d98463 2006-04-14 devnull #define isvert(n) (((n) & V) != 0)
58 b6d98463 2006-04-14 devnull #define isright(n) ((n) == R_DIR)
59 b6d98463 2006-04-14 devnull #define isleft(n) ((n) == L_DIR)
60 b6d98463 2006-04-14 devnull #define isdown(n) ((n) == D_DIR)
61 b6d98463 2006-04-14 devnull #define isup(n) ((n) == U_DIR)
63 b6d98463 2006-04-14 devnull typedef float ofloat; /* for o_val[] in obj; could be double */
65 b6d98463 2006-04-14 devnull typedef struct obj { /* stores various things in variable length */
66 b6d98463 2006-04-14 devnull int o_type;
67 b6d98463 2006-04-14 devnull int o_count; /* number of things */
68 b6d98463 2006-04-14 devnull int o_nobj; /* index in objlist */
69 b6d98463 2006-04-14 devnull int o_mode; /* hor or vert */
70 b6d98463 2006-04-14 devnull float o_x; /* coord of "center" */
71 b6d98463 2006-04-14 devnull float o_y;
72 b6d98463 2006-04-14 devnull int o_nt1; /* 1st index in text[] for this object */
73 b6d98463 2006-04-14 devnull int o_nt2; /* 2nd; difference is #text strings */
74 b6d98463 2006-04-14 devnull int o_attr; /* HEAD, CW, INVIS, etc., go here */
75 b6d98463 2006-04-14 devnull int o_size; /* linesize */
76 b6d98463 2006-04-14 devnull int o_nhead; /* arrowhead style */
77 b6d98463 2006-04-14 devnull struct symtab *o_symtab; /* symtab for [...] */
78 b6d98463 2006-04-14 devnull float o_ddval; /* value of dot/dash expression */
79 b6d98463 2006-04-14 devnull float o_fillval; /* gray scale value */
80 b6d98463 2006-04-14 devnull ofloat o_val[1]; /* actually this will be > 1 in general */
81 b6d98463 2006-04-14 devnull /* type is not always FLOAT!!!! */
84 b6d98463 2006-04-14 devnull typedef union { /* the yacc stack type */
88 b6d98463 2006-04-14 devnull double f;
89 b6d98463 2006-04-14 devnull struct symtab *st;
90 b6d98463 2006-04-14 devnull } YYSTYPE;
92 b6d98463 2006-04-14 devnull extern YYSTYPE yylval, yyval;
94 b6d98463 2006-04-14 devnull struct symtab {
95 b6d98463 2006-04-14 devnull char *s_name;
96 b6d98463 2006-04-14 devnull int s_type;
97 b6d98463 2006-04-14 devnull YYSTYPE s_val;
98 b6d98463 2006-04-14 devnull struct symtab *s_next;
101 b6d98463 2006-04-14 devnull typedef struct { /* attribute of an object */
102 b6d98463 2006-04-14 devnull int a_type;
103 b6d98463 2006-04-14 devnull int a_sub;
104 b6d98463 2006-04-14 devnull YYSTYPE a_val;
107 b6d98463 2006-04-14 devnull typedef struct {
108 b6d98463 2006-04-14 devnull int t_type; /* CENTER, LJUST, etc. */
109 b6d98463 2006-04-14 devnull char t_op; /* optional sign for size changes */
110 b6d98463 2006-04-14 devnull char t_size; /* size, abs or rel */
111 b6d98463 2006-04-14 devnull char *t_val;
114 b6d98463 2006-04-14 devnull #define String 01
115 b6d98463 2006-04-14 devnull #define Macro 02
116 b6d98463 2006-04-14 devnull #define File 04
117 b6d98463 2006-04-14 devnull #define Char 010
118 b6d98463 2006-04-14 devnull #define Thru 020
119 b6d98463 2006-04-14 devnull #define Free 040
121 b6d98463 2006-04-14 devnull typedef struct { /* input source */
122 b6d98463 2006-04-14 devnull int type; /* Macro, String, File */
123 b6d98463 2006-04-14 devnull char *sp; /* if String or Macro */
126 b6d98463 2006-04-14 devnull extern Src src[], *srcp; /* input source stack */
128 b6d98463 2006-04-14 devnull typedef struct {
129 b6d98463 2006-04-14 devnull FILE *fin;
130 b6d98463 2006-04-14 devnull char *fname;
131 b6d98463 2006-04-14 devnull int lineno;
132 b6d98463 2006-04-14 devnull } Infile;
134 b6d98463 2006-04-14 devnull extern Infile infile[], *curfile;
136 b6d98463 2006-04-14 devnull #define MAXARGS 20
137 b6d98463 2006-04-14 devnull typedef struct { /* argument stack */
138 b6d98463 2006-04-14 devnull char *argstk[MAXARGS]; /* pointers to args */
139 b6d98463 2006-04-14 devnull char *argval; /* points to space containing args */
142 b6d98463 2006-04-14 devnull extern int dbg;
143 b6d98463 2006-04-14 devnull extern obj **objlist;
144 b6d98463 2006-04-14 devnull extern int nobj, nobjlist;
145 b6d98463 2006-04-14 devnull extern Attr *attr;
146 b6d98463 2006-04-14 devnull extern int nattr, nattrlist;
147 b6d98463 2006-04-14 devnull extern Text *text;
148 b6d98463 2006-04-14 devnull extern int ntextlist;
149 b6d98463 2006-04-14 devnull extern int ntext;
150 b6d98463 2006-04-14 devnull extern int ntext1;
151 b6d98463 2006-04-14 devnull extern double curx, cury;
152 b6d98463 2006-04-14 devnull extern int hvmode;
153 b6d98463 2006-04-14 devnull extern int codegen;
154 b6d98463 2006-04-14 devnull extern int PEseen;
155 b6d98463 2006-04-14 devnull extern double deltx, delty;
156 b6d98463 2006-04-14 devnull extern int lineno;
157 b6d98463 2006-04-14 devnull extern int synerr;
159 b6d98463 2006-04-14 devnull extern double xmin, ymin, xmax, ymax;
161 b6d98463 2006-04-14 devnull struct pushstack {
162 b6d98463 2006-04-14 devnull double p_x;
163 b6d98463 2006-04-14 devnull double p_y;
164 b6d98463 2006-04-14 devnull int p_hvmode;
165 b6d98463 2006-04-14 devnull double p_xmin;
166 b6d98463 2006-04-14 devnull double p_ymin;
167 b6d98463 2006-04-14 devnull double p_xmax;
168 b6d98463 2006-04-14 devnull double p_ymax;
169 b6d98463 2006-04-14 devnull struct symtab *p_symtab;
171 b6d98463 2006-04-14 devnull extern struct pushstack stack[];
172 b6d98463 2006-04-14 devnull extern int nstack;
173 b6d98463 2006-04-14 devnull extern int cw;
176 b6d98463 2006-04-14 devnull #define Log10(x) errcheck(log10(x), "log")
177 b6d98463 2006-04-14 devnull #define Exp(x) errcheck(exp(x), "exp")
178 b6d98463 2006-04-14 devnull #define Sqrt(x) errcheck(sqrt(x), "sqrt")
181 b6d98463 2006-04-14 devnull char* addnewline(char *p) /* add newline to end of p */;
182 b6d98463 2006-04-14 devnull obj* addpos(obj *p, obj *q);
183 b6d98463 2006-04-14 devnull void addtattr(int sub) /* add text attrib to existing item */;
184 b6d98463 2006-04-14 devnull void arc(double xc, double yc, double x0, double y0, double x1, double y1) /* draw arc with center xc,yc */;
185 b6d98463 2006-04-14 devnull void arc_extreme(double x0, double y0, double x1, double y1, double xc, double yc);
186 b6d98463 2006-04-14 devnull obj* arcgen(int type) /* handles circular and (eventually) elliptical arcs */;
187 b6d98463 2006-04-14 devnull void arrow(double x0, double y0, double x1, double y1, double w, double h, double ang, int nhead) /* draw arrow (without shaft) */ /* head wid w, len h, rotated ang */ /* and drawn with nhead lines */;
188 b6d98463 2006-04-14 devnull int baldelim(int c, char *s) /* replace c by balancing entry in s */;
189 b6d98463 2006-04-14 devnull void blockadj(obj *p) /* adjust coords in block starting at p */;
190 b6d98463 2006-04-14 devnull obj* blockgen(obj *p, obj *q) /* handles [...] */;
191 b6d98463 2006-04-14 devnull obj* boxgen(void);
192 b6d98463 2006-04-14 devnull void checkscale(char *s) /* if s is "scale", adjust default variables */;
193 b6d98463 2006-04-14 devnull obj* circgen(int type);
194 b6d98463 2006-04-14 devnull void copy(void) /* begin input from file, etc. */;
195 b6d98463 2006-04-14 devnull void copydef(struct symtab *p) /* remember macro symtab ptr */;
196 b6d98463 2006-04-14 devnull void copyfile(char *s) /* remember file to start reading from */;
197 b6d98463 2006-04-14 devnull struct symtab* copythru(char *s) /* collect the macro name or body for thru */;
198 b6d98463 2006-04-14 devnull void copyuntil(char *s) /* string that terminates a thru */;
199 b6d98463 2006-04-14 devnull int curdir(void) /* convert current dir (hvmode) to RIGHT, LEFT, etc. */;
200 b6d98463 2006-04-14 devnull void definition(char *s) /* collect definition for s and install */ /* definitions picked up lexically */;
201 b6d98463 2006-04-14 devnull char* delimstr(char *s) /* get body of X ... X */ /* message if too big */;
202 b6d98463 2006-04-14 devnull void do_thru(void) /* read one line, make into a macro expansion */;
203 b6d98463 2006-04-14 devnull void dodef(struct symtab *stp) /* collect args and switch input to defn */;
204 b6d98463 2006-04-14 devnull void dot(void);
205 b6d98463 2006-04-14 devnull void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */;
206 b6d98463 2006-04-14 devnull void dotext(obj *p) /* print text strings of p in proper vertical spacing */;
207 b6d98463 2006-04-14 devnull void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval);
208 b6d98463 2006-04-14 devnull void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */;
209 b6d98463 2006-04-14 devnull void ellipse(double x, double y, double r1, double r2);
210 b6d98463 2006-04-14 devnull void endfor(void) /* end one iteration of for loop */;
211 b6d98463 2006-04-14 devnull void eprint(void) /* try to print context around error */;
212 b6d98463 2006-04-14 devnull double errcheck(double x, char *s);
213 b6d98463 2006-04-14 devnull void exprsave(double f);
214 b6d98463 2006-04-14 devnull void extreme(double x, double y) /* record max and min x and y values */;
215 b6d98463 2006-04-14 devnull void fillend(void);
216 b6d98463 2006-04-14 devnull void fillstart(double v) /* only choose black, light grey (.75), or white, for now */;
217 b6d98463 2006-04-14 devnull obj* fixpos(obj *p, double x, double y);
218 b6d98463 2006-04-14 devnull void forloop(char *, double, double, int, double, char *) /* set up a for loop */;
219 b6d98463 2006-04-14 devnull void fpecatch(int arg);
220 b6d98463 2006-04-14 devnull void freedef(char *s) /* free definition for string s */;
221 b6d98463 2006-04-14 devnull void freesymtab(struct symtab *p) /* free space used by symtab at p */;
222 b6d98463 2006-04-14 devnull int getarg(char *p) /* pick up single argument, store in p, return length */;
223 b6d98463 2006-04-14 devnull YYSTYPE getblk(obj *p, char *s) /* find union type for s in p */;
224 b6d98463 2006-04-14 devnull double getblkvar(obj *p, char *s) /* find variable s2 in block p */;
225 b6d98463 2006-04-14 devnull obj* getblock(obj *p, char *s) /* find variable s in block p */;
226 b6d98463 2006-04-14 devnull double getcomp(obj *p, int t) /* return component of a position */;
227 b6d98463 2006-04-14 devnull void getdata(void);
228 b6d98463 2006-04-14 devnull obj* getfirst(int n, int t) /* find n-th occurrence of type t */;
229 b6d98463 2006-04-14 devnull double getfval(char *s) /* return float value of variable s */;
230 b6d98463 2006-04-14 devnull obj* gethere(void) /* make a place for curx,cury */;
231 b6d98463 2006-04-14 devnull obj* getlast(int n, int t) /* find n-th previous occurrence of type t */;
232 b6d98463 2006-04-14 devnull obj* getpos(obj *p, int corner) /* find position of point */;
233 b6d98463 2006-04-14 devnull YYSTYPE getvar(char *s) /* return value of variable s (usually pointer) */;
234 b6d98463 2006-04-14 devnull char * grow(char *ptr, char *name, int num, int size) /* make array bigger */;
235 b6d98463 2006-04-14 devnull char* ifstat(double expr, char *thenpart, char *elsepart);
236 b6d98463 2006-04-14 devnull int input(void);
237 b6d98463 2006-04-14 devnull void label(char *s, int t, int nh) /* text s of type t nh half-lines up */;
238 b6d98463 2006-04-14 devnull obj* leftthing(int c) /* called for {... or [... */ /* really ought to be separate functions */;
239 b6d98463 2006-04-14 devnull obj* linegen(int type);
240 b6d98463 2006-04-14 devnull struct symtab* lookup(char *s) /* find s in symtab */;
241 b6d98463 2006-04-14 devnull int main(int argc, char **argv);
242 b6d98463 2006-04-14 devnull void makeattr(int type, int sub, YYSTYPE val) /* add attribute type and val */;
243 b6d98463 2006-04-14 devnull obj* makebetween(double f, obj *p1, obj* p2) /* make position between p1 and p2 */;
244 b6d98463 2006-04-14 devnull void makefattr(int type, int sub, double f) /* double attr */;
245 b6d98463 2006-04-14 devnull void makeiattr(int type, int i) /* int attr */;
246 b6d98463 2006-04-14 devnull obj* makenode(int type, int n);
247 b6d98463 2006-04-14 devnull void makeoattr(int type, obj *o) /* obj* attr */;
248 b6d98463 2006-04-14 devnull obj* makepos(double x, double y) /* make a position cell */;
249 b6d98463 2006-04-14 devnull void maketattr(int sub, char *p) /* text attribute: takes two */;
250 b6d98463 2006-04-14 devnull struct symtab* makevar(char *s, int t, YYSTYPE v) /* make variable named s in table */ /* assumes s is static or from tostring */;
251 b6d98463 2006-04-14 devnull void makevattr(char *p) /* varname attribute */;
252 b6d98463 2006-04-14 devnull obj* movegen(void);
253 b6d98463 2006-04-14 devnull int nextchar(void);
254 b6d98463 2006-04-14 devnull void nextfor(void) /* do one iteration of a for loop */;
255 b6d98463 2006-04-14 devnull void pbstr(char *s);
256 b6d98463 2006-04-14 devnull void popsrc(void) /* restore an old one */;
257 b6d98463 2006-04-14 devnull void print(void);
258 b6d98463 2006-04-14 devnull void printexpr(double f) /* print expression for debugging */;
259 b6d98463 2006-04-14 devnull void printlf(int line, char *name);
260 b6d98463 2006-04-14 devnull void printpos(obj *p) /* print position for debugging */;
261 b6d98463 2006-04-14 devnull void pushsrc(int type, char *ptr) /* new input source */;
262 b6d98463 2006-04-14 devnull int quadrant(double x, double y);
263 b6d98463 2006-04-14 devnull void reset(void);
264 b6d98463 2006-04-14 devnull void resetvar(void) /* reset variables listed */;
265 b6d98463 2006-04-14 devnull obj* rightthing(obj *p, int c) /* called for ... ] or ... } */;
266 b6d98463 2006-04-14 devnull void savetext(int t, char *s) /* record text elements for current object */;
267 b6d98463 2006-04-14 devnull void setdefaults(void) /* set default sizes for variables like boxht */;
268 b6d98463 2006-04-14 devnull int setdir(int n) /* set direction (hvmode) from LEFT, RIGHT, etc. */;
269 b6d98463 2006-04-14 devnull void setfval(char *s, double f) /* set variable s to f */;
270 b6d98463 2006-04-14 devnull void shell_exec(void) /* do it */;
271 b6d98463 2006-04-14 devnull void shell_init(void) /* set up to interpret a shell command */;
272 b6d98463 2006-04-14 devnull void shell_text(char *s) /* add string to command being collected */;
273 b6d98463 2006-04-14 devnull void space(double x0, double y0, double x1, double y1) /* set limits of page */;
274 b6d98463 2006-04-14 devnull void spline(double x, double y, double/*sic*/ n, float *p, int dashed, double ddval);
275 b6d98463 2006-04-14 devnull char* sprintgen(char *fmt);
276 b6d98463 2006-04-14 devnull obj* subpos(obj *p, obj *q);
277 b6d98463 2006-04-14 devnull obj* textgen(void);
278 b6d98463 2006-04-14 devnull char* tostring(char *s);
279 b6d98463 2006-04-14 devnull void troff(char *s);
280 b6d98463 2006-04-14 devnull obj* troffgen(char *s) /* save away a string of troff commands */;
281 b6d98463 2006-04-14 devnull void undefine(char *s) /* undefine macro */;
282 b6d98463 2006-04-14 devnull int unput(int c);
283 b6d98463 2006-04-14 devnull int whatpos(obj *p, int corner, double *px, double *py) /* what is the position (no side effect) */;
284 b6d98463 2006-04-14 devnull void yyerror(char *s);
285 b6d98463 2006-04-14 devnull int yyparse(void);
287 b6d98463 2006-04-14 devnull #include "tex.h"
