1 b6d98463 2006-04-14 devnull #include <stdio.h>
2 b6d98463 2006-04-14 devnull #include <signal.h>
3 b6d98463 2006-04-14 devnull #include "pic.h"
4 b6d98463 2006-04-14 devnull #include "y.tab.h"
6 b6d98463 2006-04-14 devnull obj **objlist = 0; /* store the elements here */
7 b6d98463 2006-04-14 devnull int nobjlist = 0; /* size of objlist array */
8 b6d98463 2006-04-14 devnull int nobj = 0;
10 b6d98463 2006-04-14 devnull Attr *attr; /* attributes stored here as collected */
11 b6d98463 2006-04-14 devnull int nattrlist = 0;
12 b6d98463 2006-04-14 devnull int nattr = 0; /* number of entries in attr_list */
14 b6d98463 2006-04-14 devnull Text *text = 0; /* text strings stored here as collected */
15 b6d98463 2006-04-14 devnull int ntextlist = 0; /* size of text[] array */
16 b6d98463 2006-04-14 devnull int ntext = 0;
17 b6d98463 2006-04-14 devnull int ntext1 = 0; /* record ntext here on entry to each figure */
19 b6d98463 2006-04-14 devnull double curx = 0;
20 b6d98463 2006-04-14 devnull double cury = 0;
22 b6d98463 2006-04-14 devnull int hvmode = R_DIR; /* R => join left to right, D => top to bottom, etc. */
24 b6d98463 2006-04-14 devnull int codegen = 0; /* 1=>output for this picture; 0=>no output */
25 b6d98463 2006-04-14 devnull int PEseen = 0; /* 1=> PE seen during parsing */
27 b6d98463 2006-04-14 devnull double deltx = 6; /* max x value in output, for scaling */
28 b6d98463 2006-04-14 devnull double delty = 6; /* max y value in output, for scaling */
29 b6d98463 2006-04-14 devnull int dbg = 0;
30 b6d98463 2006-04-14 devnull int lineno = 0;
31 b6d98463 2006-04-14 devnull char *filename = "-";
32 b6d98463 2006-04-14 devnull int synerr = 0;
33 b6d98463 2006-04-14 devnull int anyerr = 0; /* becomes 1 if synerr ever 1 */
34 b6d98463 2006-04-14 devnull char *cmdname;
36 b6d98463 2006-04-14 devnull double xmin = 30000; /* min values found in actual data */
37 b6d98463 2006-04-14 devnull double ymin = 30000;
38 b6d98463 2006-04-14 devnull double xmax = -30000; /* max */
39 b6d98463 2006-04-14 devnull double ymax = -30000;
42 b6d98463 2006-04-14 devnull main(int argc, char **argv)
44 b6d98463 2006-04-14 devnull char buf[20];
45 b6d98463 2006-04-14 devnull extern void fpecatch(int);
47 b6d98463 2006-04-14 devnull signal(SIGFPE, fpecatch);
48 b6d98463 2006-04-14 devnull cmdname = argv[0];
49 b6d98463 2006-04-14 devnull while (argc > 1 && *argv[1] == '-') {
50 b6d98463 2006-04-14 devnull switch (argv[1][1]) {
51 b6d98463 2006-04-14 devnull case 'd':
52 b6d98463 2006-04-14 devnull dbg = atoi(&argv[1][2]);
53 b6d98463 2006-04-14 devnull if (dbg == 0)
60 b6d98463 2006-04-14 devnull setdefaults();
61 b6d98463 2006-04-14 devnull objlist = (obj **) grow((char *)objlist, "objlist", nobjlist += 1000, sizeof(obj *));
62 b6d98463 2006-04-14 devnull text = (Text *) grow((char *)text, "text", ntextlist += 1000, sizeof(Text));
63 b6d98463 2006-04-14 devnull attr = (Attr *) grow((char *)attr, "attr", nattrlist += 100, sizeof(Attr));
65 b6d98463 2006-04-14 devnull sprintf(buf, "/%d/", getpid());
66 b6d98463 2006-04-14 devnull pushsrc(String, buf);
67 b6d98463 2006-04-14 devnull definition("pid");
69 b6d98463 2006-04-14 devnull curfile = infile;
70 b6d98463 2006-04-14 devnull pushsrc(File, curfile->fname);
71 b6d98463 2006-04-14 devnull if (argc <= 1) {
72 b6d98463 2006-04-14 devnull curfile->fin = stdin;
73 b6d98463 2006-04-14 devnull curfile->fname = tostring("-");
74 b6d98463 2006-04-14 devnull getdata();
76 b6d98463 2006-04-14 devnull while (argc-- > 1) {
77 b6d98463 2006-04-14 devnull if ((curfile->fin = fopen(*++argv, "r")) == NULL) {
78 b6d98463 2006-04-14 devnull fprintf(stderr, "%s: can't open %s\n", cmdname, *argv);
81 b6d98463 2006-04-14 devnull curfile->fname = tostring(*argv);
82 b6d98463 2006-04-14 devnull getdata();
83 b6d98463 2006-04-14 devnull fclose(curfile->fin);
84 b6d98463 2006-04-14 devnull free(curfile->fname);
86 b6d98463 2006-04-14 devnull exit(anyerr);
87 b6d98463 2006-04-14 devnull return 0;
91 b6d98463 2006-04-14 devnull fpecatch(int arg)
93 b6d98463 2006-04-14 devnull ERROR "floating point exception" FATAL;
97 b6d98463 2006-04-14 devnull grow(char *ptr, char *name, int num, int size) /* make array bigger */
101 b6d98463 2006-04-14 devnull if (ptr == NULL)
102 b6d98463 2006-04-14 devnull p = malloc(num * size);
104 b6d98463 2006-04-14 devnull p = realloc(ptr, num * size);
105 b6d98463 2006-04-14 devnull if (p == NULL)
106 b6d98463 2006-04-14 devnull ERROR "can't grow %s to %d", name, num * size FATAL;
107 b6d98463 2006-04-14 devnull return p;
110 b6d98463 2006-04-14 devnull static struct {
111 b6d98463 2006-04-14 devnull char *name;
112 b6d98463 2006-04-14 devnull double val;
113 b6d98463 2006-04-14 devnull short scalable; /* 1 => adjust when "scale" changes */
114 b6d98463 2006-04-14 devnull } defaults[] ={
115 b6d98463 2006-04-14 devnull "scale", SCALE, 1,
116 b6d98463 2006-04-14 devnull "lineht", HT, 1,
117 b6d98463 2006-04-14 devnull "linewid", HT, 1,
118 b6d98463 2006-04-14 devnull "moveht", HT, 1,
119 b6d98463 2006-04-14 devnull "movewid", HT, 1,
120 b6d98463 2006-04-14 devnull "dashwid", HT10, 1,
121 b6d98463 2006-04-14 devnull "boxht", HT, 1,
122 b6d98463 2006-04-14 devnull "boxwid", WID, 1,
123 b6d98463 2006-04-14 devnull "circlerad", HT2, 1,
124 b6d98463 2006-04-14 devnull "arcrad", HT2, 1,
125 b6d98463 2006-04-14 devnull "ellipseht", HT, 1,
126 b6d98463 2006-04-14 devnull "ellipsewid", WID, 1,
127 b6d98463 2006-04-14 devnull "arrowht", HT5, 1,
128 b6d98463 2006-04-14 devnull "arrowwid", HT10, 1,
129 b6d98463 2006-04-14 devnull "arrowhead", 2, 0, /* arrowhead style */
130 b6d98463 2006-04-14 devnull "textht", 0.0, 1, /* 6 lines/inch is also a useful value */
131 b6d98463 2006-04-14 devnull "textwid", 0.0, 1,
132 b6d98463 2006-04-14 devnull "maxpsht", MAXHT, 0,
133 b6d98463 2006-04-14 devnull "maxpswid", MAXWID, 0,
134 b6d98463 2006-04-14 devnull "fillval", 0.3, 0, /* gray value for filling boxes */
135 b6d98463 2006-04-14 devnull NULL, 0, 0
139 b6d98463 2006-04-14 devnull setdefaults(void) /* set default sizes for variables like boxht */
142 b6d98463 2006-04-14 devnull YYSTYPE v;
144 b6d98463 2006-04-14 devnull for (i = 0; defaults[i].name != NULL; i++) {
145 b6d98463 2006-04-14 devnull v.f = defaults[i].val;
146 b6d98463 2006-04-14 devnull makevar(tostring(defaults[i].name), VARNAME, v);
151 b6d98463 2006-04-14 devnull resetvar(void) /* reset variables listed */
153 b6d98463 2006-04-14 devnull int i, j;
155 b6d98463 2006-04-14 devnull if (nattr == 0) { /* none listed, so do all */
156 b6d98463 2006-04-14 devnull setdefaults();
159 b6d98463 2006-04-14 devnull for (i = 0; i < nattr; i++) {
160 b6d98463 2006-04-14 devnull for (j = 0; defaults[j].name != NULL; j++)
161 b6d98463 2006-04-14 devnull if (strcmp(defaults[j].name, attr[i].a_val.p) == 0) {
162 b6d98463 2006-04-14 devnull setfval(defaults[j].name, defaults[j].val);
163 b6d98463 2006-04-14 devnull free(attr[i].a_val.p);
170 b6d98463 2006-04-14 devnull checkscale(char *s) /* if s is "scale", adjust default variables */
173 b6d98463 2006-04-14 devnull double scale;
175 b6d98463 2006-04-14 devnull if (strcmp(s, "scale") == 0) {
176 b6d98463 2006-04-14 devnull scale = getfval("scale");
177 b6d98463 2006-04-14 devnull for (i = 1; defaults[i].name != NULL; i++)
178 b6d98463 2006-04-14 devnull if (defaults[i].scalable)
179 b6d98463 2006-04-14 devnull setfval(defaults[i].name, defaults[i].val * scale);
184 b6d98463 2006-04-14 devnull getdata(void)
186 b6d98463 2006-04-14 devnull char *p, buf[1000], buf1[100];
189 b6d98463 2006-04-14 devnull curfile->lineno = 0;
190 b6d98463 2006-04-14 devnull printlf(1, curfile->fname);
191 b6d98463 2006-04-14 devnull while (fgets(buf, sizeof buf, curfile->fin) != NULL) {
192 b6d98463 2006-04-14 devnull curfile->lineno++;
193 b6d98463 2006-04-14 devnull if (*buf == '.' && *(buf+1) == 'P' && *(buf+2) == 'S') {
194 b6d98463 2006-04-14 devnull for (p = &buf[3]; *p == ' '; p++)
196 b6d98463 2006-04-14 devnull if (*p++ == '<') {
197 b6d98463 2006-04-14 devnull Infile svfile;
198 b6d98463 2006-04-14 devnull svfile = *curfile;
199 b6d98463 2006-04-14 devnull sscanf(p, "%s", buf1);
200 b6d98463 2006-04-14 devnull if ((curfile->fin=fopen(buf1, "r")) == NULL)
201 b6d98463 2006-04-14 devnull ERROR "can't open %s", buf1 FATAL;
202 b6d98463 2006-04-14 devnull curfile->fname = tostring(buf1);
203 b6d98463 2006-04-14 devnull getdata();
204 b6d98463 2006-04-14 devnull fclose(curfile->fin);
205 b6d98463 2006-04-14 devnull free(curfile->fname);
206 b6d98463 2006-04-14 devnull *curfile = svfile;
207 b6d98463 2006-04-14 devnull printlf(curfile->lineno, curfile->fname);
208 b6d98463 2006-04-14 devnull continue;
210 b6d98463 2006-04-14 devnull reset();
211 b6d98463 2006-04-14 devnull yyparse();
212 b6d98463 2006-04-14 devnull anyerr += synerr;
213 b6d98463 2006-04-14 devnull /* yylval.i now contains 'E' or 'F' from .PE or .PF */
215 b6d98463 2006-04-14 devnull deltx = (xmax - xmin) / getfval("scale");
216 b6d98463 2006-04-14 devnull delty = (ymax - ymin) / getfval("scale");
217 b6d98463 2006-04-14 devnull if (buf[3] == ' ') { /* next things are wid & ht */
218 b6d98463 2006-04-14 devnull if (sscanf(&buf[4],"%lf %lf", &deltx, &delty) < 2)
219 b6d98463 2006-04-14 devnull delty = deltx * (ymax-ymin) / (xmax-xmin);
220 b6d98463 2006-04-14 devnull /* else {
221 b6d98463 2006-04-14 devnull /* double xfac, yfac; */
222 b6d98463 2006-04-14 devnull /* xfac = deltx / (xmax-xmin);
223 b6d98463 2006-04-14 devnull /* yfac = delty / (ymax-ymin);
224 b6d98463 2006-04-14 devnull /* if (xfac <= yfac)
225 b6d98463 2006-04-14 devnull /* delty = xfac * (ymax-ymin);
227 b6d98463 2006-04-14 devnull /* deltx = yfac * (xmax-xmin);
231 b6d98463 2006-04-14 devnull dprintf("deltx = %g, delty = %g\n", deltx, delty);
232 b6d98463 2006-04-14 devnull if (codegen && !synerr) {
233 b6d98463 2006-04-14 devnull openpl(); /* puts out .PS, with ht & wid stuck in */
234 b6d98463 2006-04-14 devnull printlf(curfile->lineno+1, NULL);
235 b6d98463 2006-04-14 devnull print(); /* assumes \n at end */
236 b6d98463 2006-04-14 devnull closepl(); /* does the .PE/F */
238 b6d98463 2006-04-14 devnull printlf(curfile->lineno+1, NULL);
239 b6d98463 2006-04-14 devnull fflush(stdout);
240 b6d98463 2006-04-14 devnull } else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') {
241 b6d98463 2006-04-14 devnull if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) {
242 b6d98463 2006-04-14 devnull free(curfile->fname);
243 b6d98463 2006-04-14 devnull printlf(curfile->lineno = ln, curfile->fname = tostring(buf1));
245 b6d98463 2006-04-14 devnull printlf(curfile->lineno = ln, NULL);
247 b6d98463 2006-04-14 devnull fputs(buf, stdout);
252 b6d98463 2006-04-14 devnull reset(void)
254 b6d98463 2006-04-14 devnull obj *op;
256 b6d98463 2006-04-14 devnull extern int nstack;
258 b6d98463 2006-04-14 devnull for (i = 0; i < nobj; i++) {
259 b6d98463 2006-04-14 devnull op = objlist[i];
260 b6d98463 2006-04-14 devnull if (op->o_type == BLOCK)
261 b6d98463 2006-04-14 devnull freesymtab(op->o_symtab);
262 b6d98463 2006-04-14 devnull free((char *)objlist[i]);
264 b6d98463 2006-04-14 devnull nobj = 0;
265 b6d98463 2006-04-14 devnull nattr = 0;
266 b6d98463 2006-04-14 devnull for (i = 0; i < ntext; i++)
267 b6d98463 2006-04-14 devnull if (text[i].t_val)
268 b6d98463 2006-04-14 devnull free(text[i].t_val);
269 b6d98463 2006-04-14 devnull ntext = ntext1 = 0;
270 b6d98463 2006-04-14 devnull codegen = synerr = 0;
271 b6d98463 2006-04-14 devnull nstack = 0;
272 b6d98463 2006-04-14 devnull curx = cury = 0;
273 b6d98463 2006-04-14 devnull PEseen = 0;
274 b6d98463 2006-04-14 devnull hvmode = R_DIR;
275 b6d98463 2006-04-14 devnull xmin = ymin = 30000;
276 b6d98463 2006-04-14 devnull xmax = ymax = -30000;
