ref: 2d221e61e3820a007ff2204adb73ad3ab27010c6
dir: /sys/src/cmd/grap/main.c/
#include <stdio.h> #include <signal.h> #include <math.h> #include <stdlib.h> #include <string.h> #include "grap.h" #include "y.tab.h" int dbg = 0; #ifndef GRAPDEFINES #define GRAPDEFINES "/sys/lib/grap.defines" #endif char *lib_defines = GRAPDEFINES; int lib = 1; /* 1 to include lib_defines */ FILE *tfd = NULL; char tempfile[L_tmpnam]; int synerr = 0; int codegen = 0; /* 1=>output for this picture; 0=>no output */ char *cmdname; Obj *objlist = NULL; /* all names stored here */ #define BIG 1e30 Point ptmin = { NULL, -BIG, -BIG }; Point ptmax = { NULL, BIG, BIG }; char *version = "version Dec 30, 1995"; extern int yyparse(void); extern void setdefaults(void); extern void getdata(void); extern int unlink(char *); void main(int argc, char *argv[]) { extern void onintr(int), fpecatch(int); if (signal(SIGINT, SIG_IGN) != SIG_IGN) signal(SIGINT, onintr); signal(SIGFPE, fpecatch); cmdname = argv[0]; tmpnam(tempfile); while (argc > 1 && *argv[1] == '-') { switch (argv[1][1]) { case 'd': dbg = 1; tfd = stdout; strcpy(tempfile, "grap.temp"); unlink(tempfile); fprintf(stderr, "%s\n", version); break; case 'l': /* turn off /usr/lib inclusion */ lib = 0; break; } argc--; argv++; } setdefaults(); curfile = infile; if (argc <= 1) { curfile->fin = stdin; curfile->fname = tostring("-"); pushsrc(File, curfile->fname); getdata(); } else while (argc-- > 1) { if ((curfile->fin = fopen(*++argv, "r")) == NULL) { fprintf(stderr, "grap: can't open %s\n", *argv); onintr(0); } curfile->fname = tostring(*argv); pushsrc(File, curfile->fname); getdata(); fclose(curfile->fin); free(curfile->fname); } if (!dbg) unlink(tempfile); exit(0); } void onintr(int n) { n; if (!dbg) unlink(tempfile); exit(1); } void fpecatch(int n) { ERROR "floating point exception" WARNING; onintr(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) ERROR "can't grow %s to %d", name, num * size FATAL; return p; } static struct { char *name; double val; } defaults[] ={ "frameht", FRAMEHT, "framewid", FRAMEWID, "ticklen", TICKLEN, "slop", SLOP, NULL, 0 }; void setdefaults(void) /* set default sizes for variables */ { int i; Obj *p; for (i = 0; defaults[i].name != NULL; i++) { p = lookup(defaults[i].name, 1); setvar(p, defaults[i].val); } } void getdata(void) /* read input */ { register FILE *fin; char buf[1000], buf1[100]; int ln; fin = curfile->fin; curfile->lineno = 0; printf(".lf 1 %s\n", curfile->fname); while (fgets(buf, sizeof buf, fin) != NULL) { curfile->lineno++; if (*buf == '.' && *(buf+1) == 'G' && *(buf+2) == '1') { setup(); fprintf(stdout, ".PS%s", &buf[3]); /* maps .G1 [w] to .PS w */ printf("scale = 1\n"); /* defends against cip users */ printf(".lf %d\n", curfile->lineno+1); yyparse(); fprintf(stdout, ".PE\n"); printf(".lf %d\n", curfile->lineno+1); fflush(stdout); } else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') { if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) { free(curfile->fname); printf(".lf %d %s\n", curfile->lineno = ln, curfile->fname = tostring(buf1)); } else printf(".lf %d\n", curfile->lineno = ln); } else fputs(buf, stdout); } }