1 5cedca1b 2004-05-15 devnull #ifndef PI
  2 5cedca1b 2004-05-15 devnull #define PI 3.1415926535897932384626433832795028841971693993751
  3 5cedca1b 2004-05-15 devnull #endif
  4 5cedca1b 2004-05-15 devnull 
  5 5cedca1b 2004-05-15 devnull #define	MAXWID	8.5	/* default limits max picture to 8.5 x 11; */
  6 5cedca1b 2004-05-15 devnull #define	MAXHT	11	/* change to taste without peril */
  7 5cedca1b 2004-05-15 devnull 
  8 5cedca1b 2004-05-15 devnull #define	dprintf	if(dbg)printf
  9 5cedca1b 2004-05-15 devnull 
 10 5cedca1b 2004-05-15 devnull extern	void	yyerror(char *);
 11 5cedca1b 2004-05-15 devnull 
 12 5cedca1b 2004-05-15 devnull extern	char	errbuf[200];
 13 fa662c95 2009-09-11 russcox 
 14 fa662c95 2009-09-11 russcox #undef	sprintf	/* Snow Leopard */
 15 fa662c95 2009-09-11 russcox 
 16 5cedca1b 2004-05-15 devnull #define	ERROR	sprintf(errbuf,
 17 5cedca1b 2004-05-15 devnull #define	FATAL	), yyerror(errbuf), exit(1)
 18 5cedca1b 2004-05-15 devnull #define	WARNING	), yyerror(errbuf)
 19 5cedca1b 2004-05-15 devnull 
 20 5cedca1b 2004-05-15 devnull #define	DEFAULT	0
 21 5cedca1b 2004-05-15 devnull 
 22 5cedca1b 2004-05-15 devnull #define	HEAD1	1
 23 5cedca1b 2004-05-15 devnull #define	HEAD2	2
 24 5cedca1b 2004-05-15 devnull #define	HEAD12	(HEAD1+HEAD2)
 25 5cedca1b 2004-05-15 devnull #define	INVIS	4
 26 5cedca1b 2004-05-15 devnull #define	CW_ARC	8	/* clockwise arc */
 27 5cedca1b 2004-05-15 devnull #define	DOTBIT	16	/* line styles */
 28 5cedca1b 2004-05-15 devnull #define	DASHBIT	32
 29 5cedca1b 2004-05-15 devnull #define	FILLBIT	64	/* gray-fill on boxes, etc. */
 30 5cedca1b 2004-05-15 devnull #define NOEDGEBIT 128	/* no edge on filled object */
 31 5cedca1b 2004-05-15 devnull 
 32 5cedca1b 2004-05-15 devnull #define	CENTER	01	/* text attributes */
 33 5cedca1b 2004-05-15 devnull #define	LJUST	02
 34 5cedca1b 2004-05-15 devnull #define	RJUST	04
 35 5cedca1b 2004-05-15 devnull #define	ABOVE	010
 36 5cedca1b 2004-05-15 devnull #define	BELOW	020
 37 5cedca1b 2004-05-15 devnull #define	SPREAD	040
 38 5cedca1b 2004-05-15 devnull 
 39 5cedca1b 2004-05-15 devnull #define	SCALE	1.0	/* default scale: units/inch */
 40 5cedca1b 2004-05-15 devnull #define	WID	0.75	/* default width for boxes and ellipses */
 41 5cedca1b 2004-05-15 devnull #define	WID2	0.375
 42 5cedca1b 2004-05-15 devnull #define	HT	0.5	/* default height and line length */
 43 5cedca1b 2004-05-15 devnull #define	HT2	(HT/2)
 44 5cedca1b 2004-05-15 devnull #define	HT5	(HT/5)
 45 5cedca1b 2004-05-15 devnull #define	HT10	(HT/10)
 46 5cedca1b 2004-05-15 devnull 
 47 5cedca1b 2004-05-15 devnull /* these have to be like so, so that we can write */
 48 5cedca1b 2004-05-15 devnull /* things like R & V, etc. */
 49 5cedca1b 2004-05-15 devnull #define	H	0
 50 5cedca1b 2004-05-15 devnull #define	V	1
 51 5cedca1b 2004-05-15 devnull #define	R_DIR	0
 52 5cedca1b 2004-05-15 devnull #define	U_DIR	1
 53 5cedca1b 2004-05-15 devnull #define	L_DIR	2
 54 5cedca1b 2004-05-15 devnull #define	D_DIR	3
 55 5cedca1b 2004-05-15 devnull #define	ishor(n)	(((n) & V) == 0)
 56 5cedca1b 2004-05-15 devnull #define	isvert(n)	(((n) & V) != 0)
 57 5cedca1b 2004-05-15 devnull #define	isright(n)	((n) == R_DIR)
 58 5cedca1b 2004-05-15 devnull #define	isleft(n)	((n) == L_DIR)
 59 5cedca1b 2004-05-15 devnull #define	isdown(n)	((n) == D_DIR)
 60 5cedca1b 2004-05-15 devnull #define	isup(n)		((n) == U_DIR)
 61 5cedca1b 2004-05-15 devnull 
 62 5cedca1b 2004-05-15 devnull typedef	float	ofloat;	/* for o_val[] in obj;  could be double */
 63 5cedca1b 2004-05-15 devnull 
 64 5cedca1b 2004-05-15 devnull typedef struct obj {	/* stores various things in variable length */
 65 5cedca1b 2004-05-15 devnull 	int	o_type;
 66 5cedca1b 2004-05-15 devnull 	int	o_count;	/* number of things */
 67 5cedca1b 2004-05-15 devnull 	int	o_nobj;		/* index in objlist */
 68 5cedca1b 2004-05-15 devnull 	int	o_mode;		/* hor or vert */
 69 5cedca1b 2004-05-15 devnull 	float	o_x;		/* coord of "center" */
 70 5cedca1b 2004-05-15 devnull 	float	o_y;
 71 5cedca1b 2004-05-15 devnull 	int	o_nt1;		/* 1st index in text[] for this object */
 72 5cedca1b 2004-05-15 devnull 	int	o_nt2;		/* 2nd; difference is #text strings */
 73 5cedca1b 2004-05-15 devnull 	int	o_attr;		/* HEAD, CW, INVIS, etc., go here */
 74 5cedca1b 2004-05-15 devnull 	int	o_size;		/* linesize */
 75 5cedca1b 2004-05-15 devnull 	int	o_nhead;	/* arrowhead style */
 76 5cedca1b 2004-05-15 devnull 	struct symtab *o_symtab; /* symtab for [...] */
 77 5cedca1b 2004-05-15 devnull 	float	o_ddval;	/* value of dot/dash expression */
 78 5cedca1b 2004-05-15 devnull 	float	o_fillval;	/* gray scale value */
 79 5cedca1b 2004-05-15 devnull 	ofloat	o_val[1];	/* actually this will be > 1 in general */
 80 5cedca1b 2004-05-15 devnull 				/* type is not always FLOAT!!!! */
 81 5cedca1b 2004-05-15 devnull } obj;
 82 5cedca1b 2004-05-15 devnull 
 83 5cedca1b 2004-05-15 devnull typedef union {		/* the yacc stack type */
 84 5cedca1b 2004-05-15 devnull 	int	i;
 85 5cedca1b 2004-05-15 devnull 	char	*p;
 86 5cedca1b 2004-05-15 devnull 	obj	*o;
 87 5cedca1b 2004-05-15 devnull 	double	f;
 88 5cedca1b 2004-05-15 devnull 	struct symtab *st;
 89 5cedca1b 2004-05-15 devnull } YYSTYPE;
 90 5cedca1b 2004-05-15 devnull 
 91 5cedca1b 2004-05-15 devnull extern	YYSTYPE	yylval, yyval;
 92 5cedca1b 2004-05-15 devnull 
 93 5cedca1b 2004-05-15 devnull struct symtab {
 94 5cedca1b 2004-05-15 devnull 	char	*s_name;
 95 5cedca1b 2004-05-15 devnull 	int	s_type;
 96 5cedca1b 2004-05-15 devnull 	YYSTYPE	s_val;
 97 5cedca1b 2004-05-15 devnull 	struct symtab *s_next;
 98 5cedca1b 2004-05-15 devnull };
 99 5cedca1b 2004-05-15 devnull 
100 5cedca1b 2004-05-15 devnull typedef struct {	/* attribute of an object */
101 5cedca1b 2004-05-15 devnull 	int	a_type;
102 5cedca1b 2004-05-15 devnull 	int	a_sub;
103 5cedca1b 2004-05-15 devnull 	YYSTYPE	a_val;
104 5cedca1b 2004-05-15 devnull } Attr;
105 5cedca1b 2004-05-15 devnull 
106 5cedca1b 2004-05-15 devnull typedef struct {
107 5cedca1b 2004-05-15 devnull 	int	t_type;		/* CENTER, LJUST, etc. */
108 5cedca1b 2004-05-15 devnull 	char	t_op;		/* optional sign for size changes */
109 5cedca1b 2004-05-15 devnull 	char	t_size;		/* size, abs or rel */
110 5cedca1b 2004-05-15 devnull 	char	*t_val;
111 5cedca1b 2004-05-15 devnull } Text;
112 5cedca1b 2004-05-15 devnull 
113 5cedca1b 2004-05-15 devnull #define	String	01
114 5cedca1b 2004-05-15 devnull #define	Macro	02
115 5cedca1b 2004-05-15 devnull #define	File	04
116 5cedca1b 2004-05-15 devnull #define	Char	010
117 5cedca1b 2004-05-15 devnull #define	Thru	020
118 5cedca1b 2004-05-15 devnull #define	Free	040
119 5cedca1b 2004-05-15 devnull 
120 5cedca1b 2004-05-15 devnull typedef struct {	/* input source */
121 5cedca1b 2004-05-15 devnull 	int	type;	/* Macro, String, File */
122 5cedca1b 2004-05-15 devnull 	char	*sp;	/* if String or Macro */
123 5cedca1b 2004-05-15 devnull } Src;
124 5cedca1b 2004-05-15 devnull 
125 5cedca1b 2004-05-15 devnull extern	Src	src[], *srcp;	/* input source stack */
126 5cedca1b 2004-05-15 devnull 
127 5cedca1b 2004-05-15 devnull typedef struct {
128 5cedca1b 2004-05-15 devnull 	FILE	*fin;
129 5cedca1b 2004-05-15 devnull 	char	*fname;
130 5cedca1b 2004-05-15 devnull 	int	lineno;
131 5cedca1b 2004-05-15 devnull } Infile;
132 5cedca1b 2004-05-15 devnull 
133 5cedca1b 2004-05-15 devnull extern	Infile	infile[], *curfile;
134 5cedca1b 2004-05-15 devnull 
135 5cedca1b 2004-05-15 devnull #define	MAXARGS	20
136 5cedca1b 2004-05-15 devnull typedef struct {	/* argument stack */
137 5cedca1b 2004-05-15 devnull 	char	*argstk[MAXARGS];	/* pointers to args */
138 5cedca1b 2004-05-15 devnull 	char	*argval;	/* points to space containing args */
139 5cedca1b 2004-05-15 devnull } Arg;
140 5cedca1b 2004-05-15 devnull 
141 5cedca1b 2004-05-15 devnull extern	int	dbg;
142 5cedca1b 2004-05-15 devnull extern	obj	**objlist;
143 5cedca1b 2004-05-15 devnull extern	int	nobj, nobjlist;
144 5cedca1b 2004-05-15 devnull extern	Attr	*attr;
145 5cedca1b 2004-05-15 devnull extern	int	nattr, nattrlist;
146 5cedca1b 2004-05-15 devnull extern	Text	*text;
147 5cedca1b 2004-05-15 devnull extern	int	ntextlist;
148 5cedca1b 2004-05-15 devnull extern	int	ntext;
149 5cedca1b 2004-05-15 devnull extern	int	ntext1;
150 5cedca1b 2004-05-15 devnull extern	double	curx, cury;
151 5cedca1b 2004-05-15 devnull extern	int	hvmode;
152 5cedca1b 2004-05-15 devnull extern	int	codegen;
153 5cedca1b 2004-05-15 devnull extern	char	*PEstring;
154 5cedca1b 2004-05-15 devnull 
155 5cedca1b 2004-05-15 devnull char	*tostring(char *);
156 5cedca1b 2004-05-15 devnull char	*grow(char *, char *, int, int);
157 5cedca1b 2004-05-15 devnull double	getfval(char *), getcomp(obj *, int), getblkvar(obj *, char *);
158 5cedca1b 2004-05-15 devnull YYSTYPE	getvar(char *);
159 5cedca1b 2004-05-15 devnull struct	symtab *lookup(char *), *makevar(char *, int, YYSTYPE);
160 5cedca1b 2004-05-15 devnull char	*ifstat(double, char *, char *), *delimstr(char *), *sprintgen(char *);
161 5cedca1b 2004-05-15 devnull void	forloop(char *var, double from, double to, int op, double by, char *_str);
162 5cedca1b 2004-05-15 devnull int	setdir(int), curdir(void);
163 5cedca1b 2004-05-15 devnull void	resetvar(void);
164 5cedca1b 2004-05-15 devnull void	checkscale(char *);
165 5cedca1b 2004-05-15 devnull void	pushsrc(int, char *);
166 5cedca1b 2004-05-15 devnull void	copy(void);
167 5cedca1b 2004-05-15 devnull void	copyuntil(char *);
168 5cedca1b 2004-05-15 devnull void	copyfile(char *);
169 5cedca1b 2004-05-15 devnull void	copydef(struct symtab *);
170 5cedca1b 2004-05-15 devnull void	definition(char *);
171 5cedca1b 2004-05-15 devnull struct symtab *copythru(char *);
172 5cedca1b 2004-05-15 devnull int	input(void);
173 5cedca1b 2004-05-15 devnull int	unput(int);
174 5cedca1b 2004-05-15 devnull void	extreme(double, double);
175 5cedca1b 2004-05-15 devnull 
176 5cedca1b 2004-05-15 devnull extern	double	deltx, delty;
177 5cedca1b 2004-05-15 devnull extern	int	lineno;
178 5cedca1b 2004-05-15 devnull extern	int	synerr;
179 5cedca1b 2004-05-15 devnull 
180 5cedca1b 2004-05-15 devnull extern	double	xmin, ymin, xmax, ymax;
181 5cedca1b 2004-05-15 devnull 
182 5cedca1b 2004-05-15 devnull obj	*leftthing(int), *boxgen(void), *circgen(int), *arcgen(int);
183 5cedca1b 2004-05-15 devnull obj	*linegen(int), *splinegen(void), *movegen(void);
184 5cedca1b 2004-05-15 devnull obj	*textgen(void), *plotgen(void);
185 5cedca1b 2004-05-15 devnull obj	*troffgen(char *), *rightthing(obj *, int), *blockgen(obj *, obj *);
186 5cedca1b 2004-05-15 devnull obj	*makenode(int, int), *makepos(double, double);
187 5cedca1b 2004-05-15 devnull obj	*fixpos(obj *, double, double);
188 5cedca1b 2004-05-15 devnull obj	*addpos(obj *, obj *), *subpos(obj *, obj *);
189 5cedca1b 2004-05-15 devnull obj	*makebetween(double, obj *, obj *);
190 5cedca1b 2004-05-15 devnull obj	*getpos(obj *, int), *gethere(void), *getfirst(int, int);
191 5cedca1b 2004-05-15 devnull obj	*getlast(int, int), *getblock(obj *, char *);
192 5cedca1b 2004-05-15 devnull void	savetext(int, char *);
193 5cedca1b 2004-05-15 devnull void	makeiattr(int, int);
194 5cedca1b 2004-05-15 devnull void	makevattr(char *);
195 5cedca1b 2004-05-15 devnull void	makefattr(int type, int sub, double f);
196 5cedca1b 2004-05-15 devnull void	maketattr(int, char *);
197 5cedca1b 2004-05-15 devnull void	makeoattr(int, obj *);
198 5cedca1b 2004-05-15 devnull void	makeattr(int type, int sub, YYSTYPE val);
199 5cedca1b 2004-05-15 devnull void	printexpr(double);
200 5cedca1b 2004-05-15 devnull void	printpos(obj *);
201 5cedca1b 2004-05-15 devnull void	exprsave(double);
202 5cedca1b 2004-05-15 devnull void	addtattr(int);
203 5cedca1b 2004-05-15 devnull void	printlf(int, char *);
204 5cedca1b 2004-05-15 devnull 
205 5cedca1b 2004-05-15 devnull struct pushstack {
206 5cedca1b 2004-05-15 devnull 	double	p_x;
207 5cedca1b 2004-05-15 devnull 	double	p_y;
208 5cedca1b 2004-05-15 devnull 	int	p_hvmode;
209 5cedca1b 2004-05-15 devnull 	double	p_xmin;
210 5cedca1b 2004-05-15 devnull 	double	p_ymin;
211 5cedca1b 2004-05-15 devnull 	double	p_xmax;
212 5cedca1b 2004-05-15 devnull 	double	p_ymax;
213 5cedca1b 2004-05-15 devnull 	struct symtab *p_symtab;
214 5cedca1b 2004-05-15 devnull };
215 5cedca1b 2004-05-15 devnull extern	struct pushstack stack[];
216 5cedca1b 2004-05-15 devnull extern	int	nstack;
217 5cedca1b 2004-05-15 devnull extern	int	cw;
218 5cedca1b 2004-05-15 devnull 
219 5cedca1b 2004-05-15 devnull extern	double	errcheck(double, char *);
220 5cedca1b 2004-05-15 devnull #define	Log10(x) errcheck(log10(x), "log")
221 5cedca1b 2004-05-15 devnull #define	Exp(x)	errcheck(exp(x), "exp")
222 5cedca1b 2004-05-15 devnull #define	Sqrt(x)	errcheck(sqrt(x), "sqrt")