1 #define _BSD_SOURCE 1 /* strdup, mkstemp */
14 #define GRAPDEFINES "#9/lib/grap.defines"
18 int lib = 1; /* 1 to include lib_defines */
23 int codegen = 0; /* 1=>output for this picture; 0=>no output */
26 Obj *objlist = NULL; /* all names stored here */
29 Point ptmin = { NULL, -BIG, -BIG };
30 Point ptmax = { NULL, BIG, BIG };
32 char *version = "version Dec 30, 1995";
34 extern int yyparse(void);
35 extern void setdefaults(void);
36 extern void getdata(void);
38 /* extern int unlink(char *); */ /* in unistd.h */
41 main(int argc, char *argv[])
43 extern void onintr(int), fpecatch(int);
45 lib_defines = unsharp(GRAPDEFINES);
47 if (signal(SIGINT, SIG_IGN) != SIG_IGN)
48 signal(SIGINT, onintr);
49 signal(SIGFPE, fpecatch);
51 tempfile = strdup("grap.XXXXXX");
53 while (argc > 1 && *argv[1] == '-') {
58 strcpy(tempfile, "grap.temp");
60 fprintf(stderr, "%s\n", version);
62 case 'l': /* turn off /usr/lib inclusion */
73 curfile->fname = tostring("-");
74 pushsrc(File, curfile->fname);
78 if ((curfile->fin = fopen(*++argv, "r")) == NULL) {
79 fprintf(stderr, "grap: can't open %s\n", *argv);
82 curfile->fname = tostring(*argv);
83 pushsrc(File, curfile->fname);
103 ERROR "floating point exception" WARNING;
107 char *grow(char *ptr, char *name, int num, int size) /* make array bigger */
112 p = malloc(num * size);
114 p = realloc(ptr, num * size);
116 ERROR "can't grow %s to %d", name, num * size FATAL;
124 { "frameht", FRAMEHT },
125 { "framewid", FRAMEWID },
126 { "ticklen", TICKLEN },
131 void setdefaults(void) /* set default sizes for variables */
136 for (i = 0; defaults[i].name != NULL; i++) {
137 p = lookup(defaults[i].name, 1);
138 setvar(p, defaults[i].val);
142 void getdata(void) /* read input */
145 char buf[1000], buf1[100];
150 printf(".lf 1 %s\n", curfile->fname);
151 while (fgets(buf, sizeof buf, fin) != NULL) {
153 if (*buf == '.' && *(buf+1) == 'G' && *(buf+2) == '1') {
155 fprintf(stdout, ".PS%s", &buf[3]); /* maps .G1 [w] to .PS w */
156 printf("scale = 1\n"); /* defends against cip users */
157 printf(".lf %d\n", curfile->lineno+1);
159 fprintf(stdout, ".PE\n");
160 printf(".lf %d\n", curfile->lineno+1);
162 } else if (buf[0] == '.' && buf[1] == 'l' && buf[2] == 'f') {
163 if (sscanf(buf+3, "%d %s", &ln, buf1) == 2) {
164 free(curfile->fname);
165 printf(".lf %d %s\n", curfile->lineno = ln, curfile->fname = tostring(buf1));
167 printf(".lf %d\n", curfile->lineno = ln);