src/meta/psmeta.c

#ifndef lint
static const char       RCSid[] = "$Id: psmeta.c,v 1.3 2003/07/21 22:30:18 schorsch Exp $";
#endif
/*
*  Program to convert meta-files to PostScript.
*
*     9/23/88
*/


#include  "meta.h"
#include  "plot.h"
#include  "psplot.h"


char  *progname;

static short  newpage = TRUE;

static void doprim(PRIMITIVE  *p);
static int doglobal(PRIMITIVE  *g);

int
main(
        int  argc,
        char  **argv
)
{
        FILE  *fp;

        progname = *argv++;
        argc--;

        init(progname);
        if (argc)
                while (argc)  {
                        fp = efopen(*argv, "r");
                        plot(fp);
                        fclose(fp);
                        argv++;
                        argc--;
                }
        else
                plot(stdin);

        if (!newpage)
                endpage();

        done();
        return(0);
}


void
plot(           /* plot meta-file */
        FILE  *infp
)
{
        PRIMITIVE  nextp;

        do {
                readp(&nextp, infp);
                while (isprim(nextp.com)) {
                        doprim(&nextp);
                        readp(&nextp, infp);
                }
        } while (doglobal(&nextp));

}


int
doglobal(                       /* execute a global command */
        PRIMITIVE  *g
)
{
        FILE  *fp = NULL;

        switch (g->com) {

        case PEOF:
                return(0);

        case PPAUS:
                break;

        case PINCL:
                if (g->args == NULL)
                    error(USER, "missing include file name in include");
                if (g->arg0 == 2 || (fp = fopen(g->args, "r")) == NULL) {
                    if (g->arg0 != 0)
                        fp = mfopen(g->args, "r");
                    else {
                        sprintf(errmsg, "cannot open user include file \"%s\"",
                                        g->args);
                        error(USER, errmsg);
                    }
                }
                plot(fp);
                fclose(fp);
                break;

        case PDRAW:
                fflush(stdout);
                break;

        case PEOP:
                endpage();
                newpage = TRUE;
                break;

        case PSET:
                set(g->arg0, g->args);
                break;

        case PUNSET:
                unset(g->arg0);
                break;

        case PRESET:
                reset(g->arg0);
                break;

        case POPEN:
                segopen(g->args);
                break;

        case PCLOSE:
                segclose();
                break;

        default:
                sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
                error(WARNING, errmsg);
                break;
        }

        return(1);
}


void
doprim(         /* plot primitive */
        PRIMITIVE  *p
)
{

        switch (p->com) {

        case PMSTR:
                printstr(p);
                break;

        case PVSTR:
                plotvstr(p);
                break;

        case PLSEG:
                plotlseg(p);
                break;

        case PRFILL:
                fillrect(p);
                break;

        case PTFILL:
                filltri(p);
                break;

        case PPFILL:
                fillpoly(p);
                break;

        case PSEG:
                doseg(p);
                break;

        default:
                sprintf(errmsg, "unknown command '%c' in doprim", p->com);
                error(WARNING, errmsg);
                return;
        }
        newpage = FALSE;
}

Revision:	1.4
Committed:	Sat Nov 15 02:13:37 2003 UTC (21 years, 11 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R4, rad5R2, rad5R3, rad5R0, rad5R1, rad4R2, rad3R7P2, rad3R7P1, rad6R0, rad4R1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1, rad4R2P2, HEAD
Changes since 1.3:	+23 -25 lines
Log Message:	Continued ANSIfication, and reduced other compile warnings.
#	Content
1	#ifndef lint
2	static const char RCSid[] = "$Id: psmeta.c,v 1.3 2003/07/21 22:30:18 schorsch Exp $";
3	#endif
4	/*
5	* Program to convert meta-files to PostScript.
6	*
7	* 9/23/88
8	*/
9
10
11	#include "meta.h"
12	#include "plot.h"
13	#include "psplot.h"
14
15
16	char *progname;
17
18	static short newpage = TRUE;
19
20	static void doprim(PRIMITIVE *p);
21	static int doglobal(PRIMITIVE *g);
22
23	int
24	main(
25	int argc,
26	char **argv
27	)
28	{
29	FILE *fp;
30
31	progname = *argv++;
32	argc--;
33
34	init(progname);
35	if (argc)
36	while (argc) {
37	fp = efopen(*argv, "r");
38	plot(fp);
39	fclose(fp);
40	argv++;
41	argc--;
42	}
43	else
44	plot(stdin);
45
46	if (!newpage)
47	endpage();
48
49	done();
50	return(0);
51	}
52
53
54
55	void
56	plot( /* plot meta-file */
57	FILE *infp
58	)
59	{
60	PRIMITIVE nextp;
61
62	do {
63	readp(&nextp, infp);
64	while (isprim(nextp.com)) {
65	doprim(&nextp);
66	readp(&nextp, infp);
67	}
68	} while (doglobal(&nextp));
69
70	}
71
72
73	int
74	doglobal( /* execute a global command */
75	PRIMITIVE *g
76	)
77	{
78	FILE *fp = NULL;
79
80	switch (g->com) {
81
82	case PEOF:
83	return(0);
84
85	case PPAUS:
86	break;
87
88	case PINCL:
89	if (g->args == NULL)
90	error(USER, "missing include file name in include");
91	if (g->arg0 == 2 \|\| (fp = fopen(g->args, "r")) == NULL) {
92	if (g->arg0 != 0)
93	fp = mfopen(g->args, "r");
94	else {
95	sprintf(errmsg, "cannot open user include file \"%s\"",
96	g->args);
97	error(USER, errmsg);
98	}
99	}
100	plot(fp);
101	fclose(fp);
102	break;
103
104	case PDRAW:
105	fflush(stdout);
106	break;
107
108	case PEOP:
109	endpage();
110	newpage = TRUE;
111	break;
112
113	case PSET:
114	set(g->arg0, g->args);
115	break;
116
117	case PUNSET:
118	unset(g->arg0);
119	break;
120
121	case PRESET:
122	reset(g->arg0);
123	break;
124
125	case POPEN:
126	segopen(g->args);
127	break;
128
129	case PCLOSE:
130	segclose();
131	break;
132
133	default:
134	sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
135	error(WARNING, errmsg);
136	break;
137	}
138
139	return(1);
140	}
141
142
143
144	void
145	doprim( /* plot primitive */
146	PRIMITIVE *p
147	)
148	{
149
150	switch (p->com) {
151
152	case PMSTR:
153	printstr(p);
154	break;
155
156	case PVSTR:
157	plotvstr(p);
158	break;
159
160	case PLSEG:
161	plotlseg(p);
162	break;
163
164	case PRFILL:
165	fillrect(p);
166	break;
167
168	case PTFILL:
169	filltri(p);
170	break;
171
172	case PPFILL:
173	fillpoly(p);
174	break;
175
176	case PSEG:
177	doseg(p);
178	break;
179
180	default:
181	sprintf(errmsg, "unknown command '%c' in doprim", p->com);
182	error(WARNING, errmsg);
183	return;
184	}
185	newpage = FALSE;
186	}
187