Subversion Repositories planix.SVN

#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);
        }
}