1 3ebbd193 2017-06-19 rsc #include	<stdio.h>
  2 3ebbd193 2017-06-19 rsc #include	<signal.h>
  3 3ebbd193 2017-06-19 rsc #include	<stdlib.h>
  4 3ebbd193 2017-06-19 rsc #include	<string.h>
  5 3ebbd193 2017-06-19 rsc #include	"pic.h"
  6 3ebbd193 2017-06-19 rsc #include	"y.tab.h"
  7 3ebbd193 2017-06-19 rsc 
  8 3ebbd193 2017-06-19 rsc char	*version = "version July 5, 1993";
  9 3ebbd193 2017-06-19 rsc 
 10 3ebbd193 2017-06-19 rsc obj	**objlist = 0;		/* store the elements here */
 11 3ebbd193 2017-06-19 rsc int	nobjlist = 0;		/* size of objlist array */
 12 3ebbd193 2017-06-19 rsc int	nobj	= 0;
 13 3ebbd193 2017-06-19 rsc 
 14 3ebbd193 2017-06-19 rsc Attr	*attr;	/* attributes stored here as collected */
 15 3ebbd193 2017-06-19 rsc int	nattrlist = 0;
 16 3ebbd193 2017-06-19 rsc int	nattr	= 0;	/* number of entries in attr_list */
 17 3ebbd193 2017-06-19 rsc 
 18 3ebbd193 2017-06-19 rsc Text	*text	= 0;	/* text strings stored here as collected */
 19 3ebbd193 2017-06-19 rsc int	ntextlist = 0;		/* size of text[] array */
 20 3ebbd193 2017-06-19 rsc int	ntext	= 0;
 21 3ebbd193 2017-06-19 rsc int	ntext1	= 0;	/* record ntext here on entry to each figure */
 22 3ebbd193 2017-06-19 rsc 
 23 3ebbd193 2017-06-19 rsc double	curx	= 0;
 24 3ebbd193 2017-06-19 rsc double	cury	= 0;
 25 3ebbd193 2017-06-19 rsc 
 26 3ebbd193 2017-06-19 rsc int	hvmode	= R_DIR;	/* R => join left to right, D => top to bottom, etc. */
 27 3ebbd193 2017-06-19 rsc 
 28 3ebbd193 2017-06-19 rsc int	codegen	= 0;	/* 1=>output for this picture; 0=>no output */
 29 3ebbd193 2017-06-19 rsc char	*PEstring;	/* "PS" or "PE" picked up by lexer */
 30 3ebbd193 2017-06-19 rsc 
 31 3ebbd193 2017-06-19 rsc double	deltx	= 6;	/* max x value in output, for scaling */
 32 3ebbd193 2017-06-19 rsc double	delty	= 6;	/* max y value in output, for scaling */
 33 3ebbd193 2017-06-19 rsc int	dbg	= 0;
 34 3ebbd193 2017-06-19 rsc int	lineno	= 0;
 35 3ebbd193 2017-06-19 rsc char	*filename	= "-";
 36 3ebbd193 2017-06-19 rsc int	synerr	= 0;
 37 3ebbd193 2017-06-19 rsc int	anyerr	= 0;	/* becomes 1 if synerr ever 1 */
 38 3ebbd193 2017-06-19 rsc char	*cmdname;
 39 3ebbd193 2017-06-19 rsc 
 40 3ebbd193 2017-06-19 rsc double	xmin	= 30000;	/* min values found in actual data */
 41 3ebbd193 2017-06-19 rsc double	ymin	= 30000;
 42 3ebbd193 2017-06-19 rsc double	xmax	= -30000;	/* max */
 43 3ebbd193 2017-06-19 rsc double	ymax	= -30000;
 44 3ebbd193 2017-06-19 rsc 
 45 3ebbd193 2017-06-19 rsc void	fpecatch(int);
 46 3ebbd193 2017-06-19 rsc void	getdata(void), setdefaults(void);
 47 3ebbd193 2017-06-19 rsc void	setfval(char *, double);
 48 3ebbd193 2017-06-19 rsc int	getpid(void);
 49 3ebbd193 2017-06-19 rsc 
 50 3ebbd193 2017-06-19 rsc int
 51 3ebbd193 2017-06-19 rsc main(int argc, char *argv[])
 52 3ebbd193 2017-06-19 rsc {
 53 3ebbd193 2017-06-19 rsc 	char buf[20];
 54 3ebbd193 2017-06-19 rsc 
 55 3ebbd193 2017-06-19 rsc 	signal(SIGFPE, fpecatch);
 56 3ebbd193 2017-06-19 rsc 	cmdname = argv[0];
 57 3ebbd193 2017-06-19 rsc 	while (argc > 1 && *argv[1] == '-') {
 58 3ebbd193 2017-06-19 rsc 		switch (argv[1][1]) {
 59 3ebbd193 2017-06-19 rsc 		case 'd':
 60 3ebbd193 2017-06-19 rsc 			dbg = atoi(&argv[1][2]);
 61 3ebbd193 2017-06-19 rsc 			if (dbg == 0)
 62 3ebbd193 2017-06-19 rsc 				dbg = 1;
 63 3ebbd193 2017-06-19 rsc 			fprintf(stderr, "%s\n", version);
 64 3ebbd193 2017-06-19 rsc 			break;
 65 3ebbd193 2017-06-19 rsc 		case 'V':
 66 3ebbd193 2017-06-19 rsc 			fprintf(stderr, "%s\n", version);
 67 3ebbd193 2017-06-19 rsc 			return 0;
 68 3ebbd193 2017-06-19 rsc 		}
 69 3ebbd193 2017-06-19 rsc 		argc--;
 70 3ebbd193 2017-06-19 rsc 		argv++;
 71 3ebbd193 2017-06-19 rsc 	}
 72 3ebbd193 2017-06-19 rsc 	setdefaults();
 73 3ebbd193 2017-06-19 rsc 	objlist = (obj **) grow((char *)objlist, "objlist", nobjlist += 1000, sizeof(obj *));
 74 3ebbd193 2017-06-19 rsc 	text = (Text *) grow((char *)text, "text", ntextlist += 1000, sizeof(Text));
 75 3ebbd193 2017-06-19 rsc 	attr = (Attr *) grow((char *)attr, "attr", nattrlist += 100, sizeof(Attr));
 76 3ebbd193 2017-06-19 rsc 
 77 3ebbd193 2017-06-19 rsc 	sprintf(buf, "/%d/", getpid());
 78 3ebbd193 2017-06-19 rsc 	pushsrc(String, buf);
 79 3ebbd193 2017-06-19 rsc 	definition("pid");
 80 3ebbd193 2017-06-19 rsc 
 81 3ebbd193 2017-06-19 rsc 	curfile = infile;
 82 3ebbd193 2017-06-19 rsc 	pushsrc(File, curfile->fname);
 83 3ebbd193 2017-06-19 rsc 	if (argc <= 1) {
 84 3ebbd193 2017-06-19 rsc 		curfile->fin = stdin;
 85 3ebbd193 2017-06-19 rsc 		curfile->fname = tostring("-");
 86 3ebbd193 2017-06-19 rsc 		getdata();
 87 3ebbd193 2017-06-19 rsc 	} else
 88 3ebbd193 2017-06-19 rsc 		while (argc-- > 1) {
 89 3ebbd193 2017-06-19 rsc 			if ((curfile->fin = fopen(*++argv, "r")) == NULL) {
 90 3ebbd193 2017-06-19 rsc 				fprintf(stderr, "%s: can't open %s\n", cmdname, *argv);
 91 3ebbd193 2017-06-19 rsc 				exit(1);
 92 3ebbd193 2017-06-19 rsc 			}
 93 3ebbd193 2017-06-19 rsc 			curfile->fname = tostring(*argv);
 94 3ebbd193 2017-06-19 rsc 			getdata();
 95 3ebbd193 2017-06-19 rsc 			fclose(curfile->fin);
 96 3ebbd193 2017-06-19 rsc 			free(curfile->fname);
 97 3ebbd193 2017-06-19 rsc 		}
 98 3ebbd193 2017-06-19 rsc 	return anyerr;
 99 3ebbd193 2017-06-19 rsc }
100 3ebbd193 2017-06-19 rsc 
101 3ebbd193 2017-06-19 rsc void fpecatch(int n)
102 3ebbd193 2017-06-19 rsc {
103 3ebbd193 2017-06-19 rsc 	ERROR "floating point exception %d", n FATAL;
104 3ebbd193 2017-06-19 rsc }
105 3ebbd193 2017-06-19 rsc 
106 3ebbd193 2017-06-19 rsc char *grow(char *ptr, char *name, int num, int size)	/* make array bigger */
107 3ebbd193 2017-06-19 rsc {
108 3ebbd193 2017-06-19 rsc 	char *p;
109 3ebbd193 2017-06-19 rsc 
110 3ebbd193 2017-06-19 rsc 	if (ptr == NULL)
111 3ebbd193 2017-06-19 rsc 		p = malloc(num * size);
112 3ebbd193 2017-06-19 rsc 	else
113 3ebbd193 2017-06-19 rsc 		p = realloc(ptr, num * size);
114 3ebbd193 2017-06-19 rsc 	if (p == NULL)
115 3ebbd193 2017-06-19 rsc 		ERROR "can't grow %s to %d", name, num * size FATAL;
116 3ebbd193 2017-06-19 rsc 	return p;
117 3ebbd193 2017-06-19 rsc }
118 3ebbd193 2017-06-19 rsc 
119 3ebbd193 2017-06-19 rsc static struct {
120 3ebbd193 2017-06-19 rsc 	char *name;
121 3ebbd193 2017-06-19 rsc 	double val;
122 3ebbd193 2017-06-19 rsc 	short scalable;		/* 1 => adjust when "scale" changes */
123 3ebbd193 2017-06-19 rsc } defaults[] ={
124 3ebbd193 2017-06-19 rsc 	{ "scale", SCALE, 1, },
125 3ebbd193 2017-06-19 rsc 	{ "lineht", HT, 1, },
126 3ebbd193 2017-06-19 rsc 	{ "linewid", HT, 1, },
127 3ebbd193 2017-06-19 rsc 	{ "moveht", HT, 1, },
128 3ebbd193 2017-06-19 rsc 	{ "movewid", HT, 1, },
129 3ebbd193 2017-06-19 rsc 	{ "dashwid", HT10, 1, },
130 3ebbd193 2017-06-19 rsc 	{ "boxht", HT, 1, },
131 3ebbd193 2017-06-19 rsc 	{ "boxwid", WID, 1, },
132 3ebbd193 2017-06-19 rsc 	{ "circlerad", HT2, 1, },
133 3ebbd193 2017-06-19 rsc 	{ "arcrad", HT2, 1, },
134 3ebbd193 2017-06-19 rsc 	{ "ellipseht", HT, 1, },
135 3ebbd193 2017-06-19 rsc 	{ "ellipsewid", WID, 1, },
136 3ebbd193 2017-06-19 rsc 	{ "arrowht", HT5, 1, },
137 3ebbd193 2017-06-19 rsc 	{ "arrowwid", HT10, 1, },
138 3ebbd193 2017-06-19 rsc 	{ "arrowhead", 2, 0, },		/* arrowhead style */
139 3ebbd193 2017-06-19 rsc 	{ "textht", 0.0, 1, },		/* 6 lines/inch is also a useful value */
140 3ebbd193 2017-06-19 rsc 	{ "textwid", 0.0, 1, },
141 3ebbd193 2017-06-19 rsc 	{ "maxpsht", MAXHT, 0, },
142 3ebbd193 2017-06-19 rsc 	{ "maxpswid", MAXWID, 0, },
143 3ebbd193 2017-06-19 rsc 	{ "fillval", 0.7, 0, },		/* gray value for filling boxes */
144 3ebbd193 2017-06-19 rsc 	{ NULL, 0, 0 }
145 3ebbd193 2017-06-19 rsc };
146 3ebbd193 2017-06-19 rsc 
147 3ebbd193 2017-06-19 rsc void setdefaults(void)	/* set default sizes for variables like boxht */
148 3ebbd193 2017-06-19 rsc {
149 3ebbd193 2017-06-19 rsc 	int i;
150 3ebbd193 2017-06-19 rsc 	YYSTYPE v;
151 3ebbd193 2017-06-19 rsc 
152 3ebbd193 2017-06-19 rsc 	for (i = 0; defaults[i].name != NULL; i++) {
153 3ebbd193 2017-06-19 rsc 		v.f = defaults[i].val;
154 3ebbd193 2017-06-19 rsc 		makevar(tostring(defaults[i].name), VARNAME, v);
155 3ebbd193 2017-06-19 rsc 	}
156 3ebbd193 2017-06-19 rsc }
157 3ebbd193 2017-06-19 rsc 
158 3ebbd193 2017-06-19 rsc void resetvar(void)	/* reset variables listed */
159 3ebbd193 2017-06-19 rsc {
160 3ebbd193 2017-06-19 rsc 	int i, j;
161 3ebbd193 2017-06-19 rsc 
162 3ebbd193 2017-06-19 rsc 	if (nattr == 0) {	/* none listed, so do all */
163 3ebbd193 2017-06-19 rsc 		setdefaults();
164 3ebbd193 2017-06-19 rsc 		return;
165 3ebbd193 2017-06-19 rsc 	}
166 3ebbd193 2017-06-19 rsc 	for (i = 0; i < nattr; i++) {
167 3ebbd193 2017-06-19 rsc 		for (j = 0; defaults[j].name != NULL; j++)
168 3ebbd193 2017-06-19 rsc 			if (strcmp(defaults[j].name, attr[i].a_val.p) == 0) {
169 3ebbd193 2017-06-19 rsc 				setfval(defaults[j].name, defaults[j].val);
170 3ebbd193 2017-06-19 rsc 				free(attr[i].a_val.p);
171 3ebbd193 2017-06-19 rsc 				break;
172 3ebbd193 2017-06-19 rsc 			}
173 3ebbd193 2017-06-19 rsc 	}
174 3ebbd193 2017-06-19 rsc }
175 3ebbd193 2017-06-19 rsc 
176 3ebbd193 2017-06-19 rsc void checkscale(char *s)	/* if s is "scale", adjust default variables */
177 3ebbd193 2017-06-19 rsc {
178 3ebbd193 2017-06-19 rsc 	int i;
179 3ebbd193 2017-06-19 rsc 	double scale;
180 3ebbd193 2017-06-19 rsc 
181 3ebbd193 2017-06-19 rsc 	if (strcmp(s, "scale") == 0) {
182 3ebbd193 2017-06-19 rsc 		scale = getfval("scale");
183 3ebbd193 2017-06-19 rsc 		for (i = 1; defaults[i].name != NULL; i++)
184 3ebbd193 2017-06-19 rsc 			if (defaults[i].scalable)
185 3ebbd193 2017-06-19 rsc 				setfval(defaults[i].name, defaults[i].val * scale);
186 3ebbd193 2017-06-19 rsc 	}
187 3ebbd193 2017-06-19 rsc }
188 3ebbd193 2017-06-19 rsc 
189 3ebbd193 2017-06-19 rsc void getdata(void)
190 3ebbd193 2017-06-19 rsc {
191 3ebbd193 2017-06-19 rsc 	char *p, buf[1000], buf1[100];
192 3ebbd193 2017-06-19 rsc 	int ln;
193 3ebbd193 2017-06-19 rsc 	void reset(void), openpl(char *), closepl(char *), print(void);
194 3ebbd193 2017-06-19 rsc 	int yyparse(void);
195 3ebbd193 2017-06-19 rsc 
196 3ebbd193 2017-06-19 rsc 	curfile->lineno = 0;
197 3ebbd193 2017-06-19 rsc 	printlf(1, curfile->fname);
198 3ebbd193 2017-06-19 rsc 	while (fgets(buf, sizeof buf, curfile->fin) != NULL) {
199 3ebbd193 2017-06-19 rsc 		curfile->lineno++;
200 3ebbd193 2017-06-19 rsc 		if (*buf == '.' && *(buf+1) == 'P' && *(buf+2) == 'S') {
201 3ebbd193 2017-06-19 rsc 			for (p = &buf[3]; *p == ' '; p++)
202 3ebbd193 2017-06-19 rsc 				;
203 3ebbd193 2017-06-19 rsc 			if (*p++ == '<') {
204 3ebbd193 2017-06-19 rsc 				Infile svfile;
205 3ebbd193 2017-06-19 rsc 				svfile = *curfile;
206 3ebbd193 2017-06-19 rsc 				sscanf(p, "%s", buf1);
207 3ebbd193 2017-06-19 rsc 				if ((curfile->fin=fopen(buf1, "r")) == NULL)
208 3ebbd193 2017-06-19 rsc 					ERROR "can't open %s", buf1 FATAL;
209 3ebbd193 2017-06-19 rsc 				curfile->fname = tostring(buf1);
210 3ebbd193 2017-06-19 rsc 				getdata();
211 3ebbd193 2017-06-19 rsc 				fclose(curfile->fin);
212 3ebbd193 2017-06-19 rsc 				free(curfile->fname);
213 3ebbd193 2017-06-19 rsc 				*curfile = svfile;
214 3ebbd193 2017-06-19 rsc 				printlf(curfile->lineno, curfile->fname);
215 3ebbd193 2017-06-19 rsc 				continue;
216 3ebbd193 2017-06-19 rsc 			}
217 3ebbd193 2017-06-19 rsc 			reset();
218 3ebbd193 2017-06-19 rsc 			yyparse();
219 3ebbd193 2017-06-19 rsc 			anyerr += synerr;
220 3ebbd193 2017-06-19 rsc 			deltx = (xmax - xmin) / getfval("scale");
221 3ebbd193 2017-06-19 rsc 			delty = (ymax - ymin) / getfval("scale");
222 3ebbd193 2017-06-19 rsc 			if (buf[3] == ' ') {	/* next things are wid & ht */
223 3ebbd193 2017-06-19 rsc 				if (sscanf(&buf[4],"%lf %lf", &deltx, &delty) < 2)
224 3ebbd193 2017-06-19 rsc 					delty = deltx * (ymax-ymin) / (xmax-xmin);
225 3ebbd193 2017-06-19 rsc 				/* else {
226 3ebbd193 2017-06-19 rsc 				/*	double xfac, yfac; */
227 3ebbd193 2017-06-19 rsc 				/*	xfac = deltx / (xmax-xmin);
228 3ebbd193 2017-06-19 rsc 				/*	yfac = delty / (ymax-ymin);
229 3ebbd193 2017-06-19 rsc 				/*	if (xfac <= yfac)
230 3ebbd193 2017-06-19 rsc 				/*		delty = xfac * (ymax-ymin);
231 3ebbd193 2017-06-19 rsc 				/*	else
232 3ebbd193 2017-06-19 rsc 				/*		deltx = yfac * (xmax-xmin);
233 3ebbd193 2017-06-19 rsc 				/*}
234 3ebbd193 2017-06-19 rsc 				*/
235 3ebbd193 2017-06-19 rsc 			}
236 3ebbd193 2017-06-19 rsc 			dprintf("deltx = %g, delty = %g\n", deltx, delty);
237 3ebbd193 2017-06-19 rsc 			if (codegen && !synerr) {
238 3ebbd193 2017-06-19 rsc 				openpl(&buf[3]);	/* puts out .PS, with ht & wid stuck in */
239 3ebbd193 2017-06-19 rsc 				printlf(curfile->lineno+1, NULL);
240 3ebbd193 2017-06-19 rsc 				print();	/* assumes \n at end */
241 3ebbd193 2017-06-19 rsc 				closepl(PEstring);	/* does the .PE/F */
242 3ebbd193 2017-06-19 rsc 				free(PEstring);
243 3ebbd193 2017-06-19 rsc 			}
244 3ebbd193 2017-06-19 rsc 			printlf(curfile->lineno+1, NULL);
245 3ebbd193 2017-06-19 rsc 			fflush(stdout);
246 3ebbd193 2017-06-19 rsc 		} else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') {
247 3ebbd193 2017-06-19 rsc 			if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) {
248 3ebbd193 2017-06-19 rsc 				free(curfile->fname);
249 3ebbd193 2017-06-19 rsc 				printlf(curfile->lineno = ln, curfile->fname = tostring(buf1));
250 3ebbd193 2017-06-19 rsc 			} else
251 3ebbd193 2017-06-19 rsc 				printlf(curfile->lineno = ln, NULL);
252 3ebbd193 2017-06-19 rsc 		} else
253 3ebbd193 2017-06-19 rsc 			fputs(buf, stdout);
254 3ebbd193 2017-06-19 rsc 	}
255 3ebbd193 2017-06-19 rsc }
256 3ebbd193 2017-06-19 rsc 
257 3ebbd193 2017-06-19 rsc void reset(void)
258 3ebbd193 2017-06-19 rsc {
259 3ebbd193 2017-06-19 rsc 	obj *op;
260 3ebbd193 2017-06-19 rsc 	int i;
261 3ebbd193 2017-06-19 rsc 	extern int nstack;
262 3ebbd193 2017-06-19 rsc 	extern	void freesymtab(struct symtab *);
263 3ebbd193 2017-06-19 rsc 
264 3ebbd193 2017-06-19 rsc 	for (i = 0; i < nobj; i++) {
265 3ebbd193 2017-06-19 rsc 		op = objlist[i];
266 3ebbd193 2017-06-19 rsc 		if (op->o_type == BLOCK)
267 3ebbd193 2017-06-19 rsc 			freesymtab(op->o_symtab);
268 3ebbd193 2017-06-19 rsc 		free((char *)objlist[i]);
269 3ebbd193 2017-06-19 rsc 	}
270 3ebbd193 2017-06-19 rsc 	nobj = 0;
271 3ebbd193 2017-06-19 rsc 	nattr = 0;
272 3ebbd193 2017-06-19 rsc 	for (i = 0; i < ntext; i++)
273 3ebbd193 2017-06-19 rsc 		if (text[i].t_val)
274 3ebbd193 2017-06-19 rsc 			free(text[i].t_val);
275 3ebbd193 2017-06-19 rsc 	ntext = ntext1 = 0;
276 3ebbd193 2017-06-19 rsc 	codegen = synerr = 0;
277 3ebbd193 2017-06-19 rsc 	nstack = 0;
278 3ebbd193 2017-06-19 rsc 	curx = cury = 0;
279 3ebbd193 2017-06-19 rsc 	PEstring = 0;
280 3ebbd193 2017-06-19 rsc 	hvmode = R_DIR;
281 3ebbd193 2017-06-19 rsc 	xmin = ymin = 30000;
282 3ebbd193 2017-06-19 rsc 	xmax = ymax = -30000;
283 3ebbd193 2017-06-19 rsc }