/* * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include <stdio.h>#include <signal.h>#include <stdlib.h>#include <string.h>#include "pic.h"#include "y.tab.h" char *version = "version July 5, 1993"; obj **objlist = 0; /* store the elements here */int nobjlist = 0; /* size of objlist array */int nobj = 0; Attr *attr; /* attributes stored here as collected */int nattrlist = 0;int nattr = 0; /* number of entries in attr_list */ Text *text = 0; /* text strings stored here as collected */int ntextlist = 0; /* size of text[] array */int ntext = 0;int ntext1 = 0; /* record ntext here on entry to each figure */ double curx = 0;double cury = 0; int hvmode = R_DIR; /* R => join left to right, D => top to bottom, etc. */ int codegen = 0; /* 1=>output for this picture; 0=>no output */char *PEstring; /* "PS" or "PE" picked up by lexer */ double deltx = 6; /* max x value in output, for scaling */double delty = 6; /* max y value in output, for scaling */int dbg = 0;int lineno = 0;char *filename = "-";int synerr = 0;int anyerr = 0; /* becomes 1 if synerr ever 1 */char *cmdname; double xmin = 30000; /* min values found in actual data */double ymin = 30000;double xmax = -30000; /* max */double ymax = -30000; void fpecatch(int);void getdata(void), setdefaults(void);void setfval(char *, double);int getpid(void); main(int argc, char *argv[]){ char buf[20]; signal(SIGFPE, fpecatch); cmdname = argv[0]; while (argc > 1 && *argv[1] == '-') { switch (argv[1][1]) { case 'd': dbg = atoi(&argv[1][2]); if (dbg == 0) dbg = 1; fprintf(stderr, "%s\n", version); break; case 'V': fprintf(stderr, "%s\n", version); return 0; } argc--; argv++; } setdefaults(); objlist = (obj **) grow((char *)objlist, "objlist", nobjlist += 1000, sizeof(obj *)); text = (Text *) grow((char *)text, "text", ntextlist += 1000, sizeof(Text)); attr = (Attr *) grow((char *)attr, "attr", nattrlist += 100, sizeof(Attr)); sprintf(buf, "/%d/", getpid()); pushsrc(String, buf); definition("pid"); curfile = infile; pushsrc(File, curfile->fname); if (argc <= 1) { curfile->fin = stdin; curfile->fname = tostring("-"); getdata(); } else while (argc-- > 1) { if ((curfile->fin = fopen(*++argv, "r")) == NULL) { fprintf(stderr, "%s: can't open %s\n", cmdname, *argv); exit(1); } curfile->fname = tostring(*argv); getdata(); fclose(curfile->fin); free(curfile->fname); } return anyerr;} void fpecatch(int n){ ERROR "floating point exception %d", n FATAL;} char *grow(char *ptr, char *name, int num, int size) /* make array bigger */{ char *p; if (ptr == NULL) p = malloc(num * size); else p = realloc(ptr, num * size); if (p == NULL) ERROR "can't grow %s to %d", name, num * size FATAL; return p;} static struct { char *name; double val; short scalable; /* 1 => adjust when "scale" changes */} defaults[] ={ "scale", SCALE, 1, "lineht", HT, 1, "linewid", HT, 1, "moveht", HT, 1, "movewid", HT, 1, "dashwid", HT10, 1, "boxht", HT, 1, "boxwid", WID, 1, "circlerad", HT2, 1, "arcrad", HT2, 1, "ellipseht", HT, 1, "ellipsewid", WID, 1, "arrowht", HT5, 1, "arrowwid", HT10, 1, "arrowhead", 2, 0, /* arrowhead style */ "textht", 0.0, 1, /* 6 lines/inch is also a useful value */ "textwid", 0.0, 1, "maxpsht", MAXHT, 0, "maxpswid", MAXWID, 0, "fillval", 0.7, 0, /* gray value for filling boxes */ NULL, 0, 0}; void setdefaults(void) /* set default sizes for variables like boxht */{ int i; YYSTYPE v; for (i = 0; defaults[i].name != NULL; i++) { v.f = defaults[i].val; makevar(tostring(defaults[i].name), VARNAME, v); }} void resetvar(void) /* reset variables listed */{ int i, j; if (nattr == 0) { /* none listed, so do all */ setdefaults(); return; } for (i = 0; i < nattr; i++) { for (j = 0; defaults[j].name != NULL; j++) if (strcmp(defaults[j].name, attr[i].a_val.p) == 0) { setfval(defaults[j].name, defaults[j].val); free(attr[i].a_val.p); break; } }} void checkscale(char *s) /* if s is "scale", adjust default variables */{ int i; double scale; if (strcmp(s, "scale") == 0) { scale = getfval("scale"); for (i = 1; defaults[i].name != NULL; i++) if (defaults[i].scalable) setfval(defaults[i].name, defaults[i].val * scale); }} void getdata(void){ char *p, buf[1000], buf1[100]; int ln; void reset(void), openpl(char *), closepl(char *), print(void); int yyparse(void); curfile->lineno = 0; printlf(1, curfile->fname); while (fgets(buf, sizeof buf, curfile->fin) != NULL) { curfile->lineno++; if (*buf == '.' && *(buf+1) == 'P' && *(buf+2) == 'S') { for (p = &buf[3]; *p == ' '; p++) ; if (*p++ == '<') { Infile svfile; svfile = *curfile; sscanf(p, "%s", buf1); if ((curfile->fin=fopen(buf1, "r")) == NULL) ERROR "can't open %s", buf1 FATAL; curfile->fname = tostring(buf1); getdata(); fclose(curfile->fin); free(curfile->fname); *curfile = svfile; printlf(curfile->lineno, curfile->fname); continue; } reset(); yyparse(); anyerr += synerr; deltx = (xmax - xmin) / getfval("scale"); delty = (ymax - ymin) / getfval("scale"); if (buf[3] == ' ') { /* next things are wid & ht */ if (sscanf(&buf[4],"%lf %lf", &deltx, &delty) < 2) delty = deltx * (ymax-ymin) / (xmax-xmin); /* else { /* double xfac, yfac; */ /* xfac = deltx / (xmax-xmin); /* yfac = delty / (ymax-ymin); /* if (xfac <= yfac) /* delty = xfac * (ymax-ymin); /* else /* deltx = yfac * (xmax-xmin); /*} */ } dprintf("deltx = %g, delty = %g\n", deltx, delty); if (codegen && !synerr) { openpl(&buf[3]); /* puts out .PS, with ht & wid stuck in */ printlf(curfile->lineno+1, NULL); print(); /* assumes \n at end */ closepl(PEstring); /* does the .PE/F */ free(PEstring); } printlf(curfile->lineno+1, NULL); fflush(stdout); } else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') { if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) { free(curfile->fname); printlf(curfile->lineno = ln, curfile->fname = tostring(buf1)); } else printlf(curfile->lineno = ln, NULL); } else fputs(buf, stdout); }} void reset(void){ obj *op; int i; extern int nstack; extern void freesymtab(struct symtab *); for (i = 0; i < nobj; i++) { op = objlist[i]; if (op->o_type == BLOCK) freesymtab(op->o_symtab); free((char *)objlist[i]); } nobj = 0; nattr = 0; for (i = 0; i < ntext; i++) if (text[i].t_val) free(text[i].t_val); ntext = ntext1 = 0; codegen = synerr = 0; nstack = 0; curx = cury = 0; PEstring = 0; hvmode = R_DIR; xmin = ymin = 30000; xmax = ymax = -30000;}
/*
* This file is part of the UCB release of Plan 9. It is subject to the license
* terms in the LICENSE file found in the top-level directory of this
* distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
* part of the UCB release of Plan 9, including this file, may be copied,
* modified, propagated, or distributed except according to the terms contained
* in the LICENSE file.
*/
#include <stdio.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>
#include "pic.h"
#include "y.tab.h"
char *version = "version July 5, 1993";
obj **objlist = 0; /* store the elements here */
int nobjlist = 0; /* size of objlist array */
int nobj = 0;
Attr *attr; /* attributes stored here as collected */
int nattrlist = 0;
int nattr = 0; /* number of entries in attr_list */
Text *text = 0; /* text strings stored here as collected */
int ntextlist = 0; /* size of text[] array */
int ntext = 0;
int ntext1 = 0; /* record ntext here on entry to each figure */
double curx = 0;
double cury = 0;
int hvmode = R_DIR; /* R => join left to right, D => top to bottom, etc. */
int codegen = 0; /* 1=>output for this picture; 0=>no output */
char *PEstring; /* "PS" or "PE" picked up by lexer */
double deltx = 6; /* max x value in output, for scaling */
double delty = 6; /* max y value in output, for scaling */
int dbg = 0;
int lineno = 0;
char *filename = "-";
int synerr = 0;
int anyerr = 0; /* becomes 1 if synerr ever 1 */
char *cmdname;
double xmin = 30000; /* min values found in actual data */
double ymin = 30000;
double xmax = -30000; /* max */
double ymax = -30000;
void fpecatch(int);
void getdata(void), setdefaults(void);
void setfval(char *, double);
int getpid(void);
main(int argc, char *argv[])
{
char buf[20];
signal(SIGFPE, fpecatch);
cmdname = argv[0];
while (argc > 1 && *argv[1] == '-') {
switch (argv[1][1]) {
case 'd':
dbg = atoi(&argv[1][2]);
if (dbg == 0)
dbg = 1;
fprintf(stderr, "%s\n", version);
break;
case 'V':
fprintf(stderr, "%s\n", version);
return 0;
}
argc--;
argv++;
}
setdefaults();
objlist = (obj **) grow((char *)objlist, "objlist", nobjlist += 1000, sizeof(obj *));
text = (Text *) grow((char *)text, "text", ntextlist += 1000, sizeof(Text));
attr = (Attr *) grow((char *)attr, "attr", nattrlist += 100, sizeof(Attr));
sprintf(buf, "/%d/", getpid());
pushsrc(String, buf);
definition("pid");
curfile = infile;
pushsrc(File, curfile->fname);
if (argc <= 1) {
curfile->fin = stdin;
curfile->fname = tostring("-");
getdata();
} else
while (argc-- > 1) {
if ((curfile->fin = fopen(*++argv, "r")) == NULL) {
fprintf(stderr, "%s: can't open %s\n", cmdname, *argv);
exit(1);
}
curfile->fname = tostring(*argv);
getdata();
fclose(curfile->fin);
free(curfile->fname);
}
return anyerr;
}
void fpecatch(int n)
{
ERROR "floating point exception %d", n FATAL;
}
char *grow(char *ptr, char *name, int num, int size) /* make array bigger */
{
char *p;
if (ptr == NULL)
p = malloc(num * size);
else
p = realloc(ptr, num * size);
if (p == NULL)
ERROR "can't grow %s to %d", name, num * size FATAL;
return p;
}
static struct {
char *name;
double val;
short scalable; /* 1 => adjust when "scale" changes */
} defaults[] ={
"scale", SCALE, 1,
"lineht", HT, 1,
"linewid", HT, 1,
"moveht", HT, 1,
"movewid", HT, 1,
"dashwid", HT10, 1,
"boxht", HT, 1,
"boxwid", WID, 1,
"circlerad", HT2, 1,
"arcrad", HT2, 1,
"ellipseht", HT, 1,
"ellipsewid", WID, 1,
"arrowht", HT5, 1,
"arrowwid", HT10, 1,
"arrowhead", 2, 0, /* arrowhead style */
"textht", 0.0, 1, /* 6 lines/inch is also a useful value */
"textwid", 0.0, 1,
"maxpsht", MAXHT, 0,
"maxpswid", MAXWID, 0,
"fillval", 0.7, 0, /* gray value for filling boxes */
NULL, 0, 0
};
void setdefaults(void) /* set default sizes for variables like boxht */
{
int i;
YYSTYPE v;
for (i = 0; defaults[i].name != NULL; i++) {
v.f = defaults[i].val;
makevar(tostring(defaults[i].name), VARNAME, v);
}
}
void resetvar(void) /* reset variables listed */
{
int i, j;
if (nattr == 0) { /* none listed, so do all */
setdefaults();
return;
}
for (i = 0; i < nattr; i++) {
for (j = 0; defaults[j].name != NULL; j++)
if (strcmp(defaults[j].name, attr[i].a_val.p) == 0) {
setfval(defaults[j].name, defaults[j].val);
free(attr[i].a_val.p);
break;
}
}
}
void checkscale(char *s) /* if s is "scale", adjust default variables */
{
int i;
double scale;
if (strcmp(s, "scale") == 0) {
scale = getfval("scale");
for (i = 1; defaults[i].name != NULL; i++)
if (defaults[i].scalable)
setfval(defaults[i].name, defaults[i].val * scale);
}
}
void getdata(void)
{
char *p, buf[1000], buf1[100];
int ln;
void reset(void), openpl(char *), closepl(char *), print(void);
int yyparse(void);
curfile->lineno = 0;
printlf(1, curfile->fname);
while (fgets(buf, sizeof buf, curfile->fin) != NULL) {
curfile->lineno++;
if (*buf == '.' && *(buf+1) == 'P' && *(buf+2) == 'S') {
for (p = &buf[3]; *p == ' '; p++)
;
if (*p++ == '<') {
Infile svfile;
svfile = *curfile;
sscanf(p, "%s", buf1);
if ((curfile->fin=fopen(buf1, "r")) == NULL)
ERROR "can't open %s", buf1 FATAL;
curfile->fname = tostring(buf1);
getdata();
fclose(curfile->fin);
free(curfile->fname);
*curfile = svfile;
printlf(curfile->lineno, curfile->fname);
continue;
}
reset();
yyparse();
anyerr += synerr;
deltx = (xmax - xmin) / getfval("scale");
delty = (ymax - ymin) / getfval("scale");
if (buf[3] == ' ') { /* next things are wid & ht */
if (sscanf(&buf[4],"%lf %lf", &deltx, &delty) < 2)
delty = deltx * (ymax-ymin) / (xmax-xmin);
/* else {
/* double xfac, yfac; */
/* xfac = deltx / (xmax-xmin);
/* yfac = delty / (ymax-ymin);
/* if (xfac <= yfac)
/* delty = xfac * (ymax-ymin);
/* else
/* deltx = yfac * (xmax-xmin);
/*}
*/
}
dprintf("deltx = %g, delty = %g\n", deltx, delty);
if (codegen && !synerr) {
openpl(&buf[3]); /* puts out .PS, with ht & wid stuck in */
printlf(curfile->lineno+1, NULL);
print(); /* assumes \n at end */
closepl(PEstring); /* does the .PE/F */
free(PEstring);
}
printlf(curfile->lineno+1, NULL);
fflush(stdout);
} else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') {
if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) {
free(curfile->fname);
printlf(curfile->lineno = ln, curfile->fname = tostring(buf1));
} else
printlf(curfile->lineno = ln, NULL);
} else
fputs(buf, stdout);
}
}
void reset(void)
{
obj *op;
int i;
extern int nstack;
extern void freesymtab(struct symtab *);
for (i = 0; i < nobj; i++) {
op = objlist[i];
if (op->o_type == BLOCK)
freesymtab(op->o_symtab);
free((char *)objlist[i]);
}
nobj = 0;
nattr = 0;
for (i = 0; i < ntext; i++)
if (text[i].t_val)
free(text[i].t_val);
ntext = ntext1 = 0;
codegen = synerr = 0;
nstack = 0;
curx = cury = 0;
PEstring = 0;
hvmode = R_DIR;
xmin = ymin = 30000;
xmax = ymax = -30000;
}