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 int 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;