8 char *version = "version July 5, 1993";
10 obj **objlist = 0; /* store the elements here */
11 int nobjlist = 0; /* size of objlist array */
14 Attr *attr; /* attributes stored here as collected */
16 int nattr = 0; /* number of entries in attr_list */
18 Text *text = 0; /* text strings stored here as collected */
19 int ntextlist = 0; /* size of text[] array */
21 int ntext1 = 0; /* record ntext here on entry to each figure */
26 int hvmode = R_DIR; /* R => join left to right, D => top to bottom, etc. */
28 int codegen = 0; /* 1=>output for this picture; 0=>no output */
29 char *PEstring; /* "PS" or "PE" picked up by lexer */
31 double deltx = 6; /* max x value in output, for scaling */
32 double delty = 6; /* max y value in output, for scaling */
37 int anyerr = 0; /* becomes 1 if synerr ever 1 */
40 double xmin = 30000; /* min values found in actual data */
42 double xmax = -30000; /* max */
46 void getdata(void), setdefaults(void);
47 void setfval(char *, double);
50 main(int argc, char *argv[])
54 signal(SIGFPE, fpecatch);
56 while (argc > 1 && *argv[1] == '-') {
59 dbg = atoi(&argv[1][2]);
62 fprintf(stderr, "%s\n", version);
65 fprintf(stderr, "%s\n", version);
72 objlist = (obj **) grow((char *)objlist, "objlist", nobjlist += 1000, sizeof(obj *));
73 text = (Text *) grow((char *)text, "text", ntextlist += 1000, sizeof(Text));
74 attr = (Attr *) grow((char *)attr, "attr", nattrlist += 100, sizeof(Attr));
76 sprintf(buf, "/%d/", getpid());
81 pushsrc(File, curfile->fname);
84 curfile->fname = tostring("-");
88 if ((curfile->fin = fopen(*++argv, "r")) == NULL) {
89 fprintf(stderr, "%s: can't open %s\n", cmdname, *argv);
92 curfile->fname = tostring(*argv);
102 ERROR "floating point exception %d", n FATAL;
105 char *grow(char *ptr, char *name, int num, int size) /* make array bigger */
110 p = malloc(num * size);
112 p = realloc(ptr, num * size);
114 ERROR "can't grow %s to %d", name, num * size FATAL;
121 short scalable; /* 1 => adjust when "scale" changes */
134 "ellipsewid", WID, 1,
137 "arrowhead", 2, 0, /* arrowhead style */
138 "textht", 0.0, 1, /* 6 lines/inch is also a useful value */
141 "maxpswid", MAXWID, 0,
142 "fillval", 0.7, 0, /* gray value for filling boxes */
146 void setdefaults(void) /* set default sizes for variables like boxht */
151 for (i = 0; defaults[i].name != NULL; i++) {
152 v.f = defaults[i].val;
153 makevar(tostring(defaults[i].name), VARNAME, v);
157 void resetvar(void) /* reset variables listed */
161 if (nattr == 0) { /* none listed, so do all */
165 for (i = 0; i < nattr; i++) {
166 for (j = 0; defaults[j].name != NULL; j++)
167 if (strcmp(defaults[j].name, attr[i].a_val.p) == 0) {
168 setfval(defaults[j].name, defaults[j].val);
169 free(attr[i].a_val.p);
175 void checkscale(char *s) /* if s is "scale", adjust default variables */
180 if (strcmp(s, "scale") == 0) {
181 scale = getfval("scale");
182 for (i = 1; defaults[i].name != NULL; i++)
183 if (defaults[i].scalable)
184 setfval(defaults[i].name, defaults[i].val * scale);
190 char *p, buf[1000], buf1[100];
192 void reset(void), openpl(char *), closepl(char *), print(void);
196 printlf(1, curfile->fname);
197 while (fgets(buf, sizeof buf, curfile->fin) != NULL) {
199 if (*buf == '.' && *(buf+1) == 'P' && *(buf+2) == 'S') {
200 for (p = &buf[3]; *p == ' '; p++)
205 sscanf(p, "%s", buf1);
206 if ((curfile->fin=fopen(buf1, "r")) == NULL)
207 ERROR "can't open %s", buf1 FATAL;
208 curfile->fname = tostring(buf1);
210 fclose(curfile->fin);
211 free(curfile->fname);
213 printlf(curfile->lineno, curfile->fname);
219 deltx = (xmax - xmin) / getfval("scale");
220 delty = (ymax - ymin) / getfval("scale");
221 if (buf[3] == ' ') { /* next things are wid & ht */
222 if (sscanf(&buf[4],"%lf %lf", &deltx, &delty) < 2)
223 delty = deltx * (ymax-ymin) / (xmax-xmin);
225 /* double xfac, yfac; */
226 /* xfac = deltx / (xmax-xmin);
227 /* yfac = delty / (ymax-ymin);
229 /* delty = xfac * (ymax-ymin);
231 /* deltx = yfac * (xmax-xmin);
235 dprintf("deltx = %g, delty = %g\n", deltx, delty);
236 if (codegen && !synerr) {
237 openpl(&buf[3]); /* puts out .PS, with ht & wid stuck in */
238 printlf(curfile->lineno+1, NULL);
239 print(); /* assumes \n at end */
240 closepl(PEstring); /* does the .PE/F */
243 printlf(curfile->lineno+1, NULL);
245 } else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') {
246 if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) {
247 free(curfile->fname);
248 printlf(curfile->lineno = ln, curfile->fname = tostring(buf1));
250 printlf(curfile->lineno = ln, NULL);
261 extern void freesymtab(struct symtab *);
263 for (i = 0; i < nobj; i++) {
265 if (op->o_type == BLOCK)
266 freesymtab(op->o_symtab);
267 free((char *)objlist[i]);
271 for (i = 0; i < ntext; i++)
275 codegen = synerr = 0;
281 xmax = ymax = -30000;