diff options
Diffstat (limited to 'pic/main.c')
| -rw-r--r-- | pic/main.c | 313 |
1 files changed, 313 insertions, 0 deletions
diff --git a/pic/main.c b/pic/main.c new file mode 100644 index 000000000000..2dc452dec061 --- /dev/null +++ b/pic/main.c @@ -0,0 +1,313 @@ +/* + * Changes by Gunnar Ritter, Freiburg i. Br., Germany, October 2005. + * + * Derived from Plan 9 v4 /sys/src/cmd/pic/ + * + * Copyright (C) 2003, Lucent Technologies Inc. and others. + * All Rights Reserved. + * + * Distributed under the terms of the Lucent Public License Version 1.02. + */ + +/* Sccsid @(#)main.c 1.6 (gritter) 12/5/05 */ +#include <stdio.h> +#include <signal.h> +#include <stdlib.h> +#include <string.h> +#include "pic.h" +#include "y.tab.h" + +extern const char version[]; + +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; +int Sflag; + +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); + +int +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; + case 'S': + Sflag = 1; + break; + case 'U': + Sflag = 0; + break; + } + 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)); + + snprintf(buf, sizeof(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) +{ + FATAL("floating point exception %d", n); +} + +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) + FATAL("can't grow %s to %d", name, num * size); + 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 = NULL, *buf1 = NULL; + size_t size = 0; + int ln; + void reset(void), openpl(char *), closepl(char *), print(void); + int yyparse(void); + char *fgetline(char **, size_t *, size_t *, FILE *); + + curfile->lineno = 0; + printlf(1, curfile->fname); + while (fgetline(&buf, &size, NULL, curfile->fin) != NULL) { + curfile->lineno++; + if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') { + buf1 = realloc(buf1, size); + 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 if (*buf == '.') { + for (p = buf + 1; *p == ' ' || *p == '\t'; p++); + if (!*p || *p != 'P' || p[1] != 'S') { + fputs(buf, stdout); + continue; + } + for (p = &buf[3]; *p == ' '; p++) + ; + if (*p++ == '<') { + Infile svfile; + svfile = *curfile; + buf1 = realloc(buf1, size); + sscanf(p, "%s", buf1); + if ((curfile->fin=fopen(buf1, "r")) == NULL) + FATAL("can't open %s", buf1); + 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 + fputs(buf, stdout); + } + free(buf); + free(buf1); +} + +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; +} |