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