src/meta/xmeta.c

#ifndef lint
static const char       RCSid[] = "$Id: xmeta.c,v 1.2 2003/10/27 10:28:59 schorsch Exp $";
#endif
/*
 *  Program to output meta-files to X window system.
 *
 *  cc -o Xmeta Xmeta.c Xplot.o plot.o mfio.o syscalls.o misc.o
 *
 *     2/26/86
 */

#include  "rtprocess.h"
#include  "meta.h"
#include  "plot.h"


#define  overlap(p,xmn,ymn,xmx,ymx)  (ov((p)->xy[XMN],(p)->xy[XMX],xmn,xmx) \
                                     &&ov((p)->xy[YMN],(p)->xy[YMX],ymn,ymx))

#define  ov(mn1,mx1,mn2,mx2)  ((mn1)<(mx2)&&(mn2)<(mx1))

#define  XCOM  "pexpand +OCIsv -P %s"


char  *progname;

static short  newpage = TRUE; 

static PLIST  recording;

int maxalloc = 0;               /* no limit */


main(argc, argv)

int  argc;
char  **argv;

{
 FILE  *fp;
 char  *geometry = NULL;
 short  condonly, conditioned;
 char  comargs[500], command[600];

 progname = *argv++;
 argc--;

 condonly = FALSE;
 conditioned = FALSE;

 for ( ; argc; argv++, argc--)
    if (!strcmp(*argv, "-c"))
        condonly = TRUE;
    else if (!strcmp(*argv, "-r"))
        conditioned = TRUE;
    else if (**argv == '=')
        geometry = *argv;
    else
        break;

 if (conditioned) {
    init(progname, geometry);
    if (argc) 
       while (argc)  {
          fp = efopen(*argv, "r");
          plot(fp);
          fclose(fp);
          argv++;
          argc--;
          }
    else
       plot(stdin);
 } else  {
    comargs[0] = '\0';
    while (argc)  {
       strcat(comargs, " ");
       strcat(comargs, *argv);
       argv++;
       argc--;
       }
    sprintf(command, XCOM, comargs);
    if (condonly)
       return(system(command));
    else  {
       init(progname, geometry);
       if ((fp = popen(command, "r")) == NULL)
          error(SYSTEM, "cannot execute input filter");
       plot(fp);
       pclose(fp);
       }
    }

 if (!newpage)
     endpage();

 return(0);
 }


void
plot(infp)              /* plot meta-file */

FILE  *infp;

{
    PRIMITIVE  nextp;

    set(SALL, NULL);
    do {
        readp(&nextp, infp);
        while (isprim(nextp.com)) {
            doprim(&nextp, 1);
            readp(&nextp, infp);
        }
        doglobal(&nextp, 1);
    } while (nextp.com != PEOF);

}


replay(xmin, ymin, xmax, ymax)          /* play back region */
int  xmin, ymin, xmax, ymax;
{
    register PRIMITIVE  *p;

    unset(SALL);
    set(SALL, NULL);
    for (p = recording.ptop; p != NULL; p = p->pnext)
        if (isprim(p->com)) {
            if (overlap(p, xmin, ymin, xmax, ymax))
                doprim(p, 0);
        } else
            doglobal(p, 0);

}


save(p)                         /* record primitive */
PRIMITIVE  *p;
{
    register PRIMITIVE  *pnew;

    if ((pnew = palloc()) == NULL)
            error(SYSTEM, "out of memory in save");
    mcopy((char *)pnew, (char *)p, sizeof(PRIMITIVE));
    add(pnew, &recording);
}


doglobal(g, sf)                 /* execute a global command */

register PRIMITIVE  *g;
int  sf;

{

    switch (g->com) {

        case PEOF:
            return;

        case PDRAW:
            XFlush();
            break;

        case PEOP:
            endpage();
            plfree(&recording);
            set(SALL, NULL);
            newpage = TRUE;
            return;

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

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

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

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

}


doprim(p, sf)           /* plot primitive */

register PRIMITIVE  *p;
int  sf;

{

    switch (p->com) {

        case PMSTR:
            printstr(p);
            break;

        case PLSEG:
            plotlseg(p);
            break;

        case PRFILL:
            fillrect(p);
            break;

        case PTFILL:
            filltri(p);
            break;

        case PPFILL:
            fillpoly(p);
            break;

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

}
Revision:	1.3
Committed:	Mon Nov 17 02:21:53 2003 UTC (20 years, 5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R7P2, rad3R7P1, rad3R6, rad3R6P1, rad3R8
Changes since 1.2:	+3 -2 lines
Log Message:	Unix compile fixes for previous change
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.3	static const char RCSid[] = "$Id: xmeta.c,v 1.2 2003/10/27 10:28:59 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* Program to output meta-files to X window system.
6			*
7			* cc -o Xmeta Xmeta.c Xplot.o plot.o mfio.o syscalls.o misc.o
8			*
9			* 2/26/86
10			*/
11
12	schorsch	1.2	#include "rtprocess.h"
13	greg	1.1	#include "meta.h"
14			#include "plot.h"
15
16
17			#define overlap(p,xmn,ymn,xmx,ymx) (ov((p)->xy[XMN],(p)->xy[XMX],xmn,xmx) \
18			&&ov((p)->xy[YMN],(p)->xy[YMX],ymn,ymx))
19
20			#define ov(mn1,mx1,mn2,mx2) ((mn1)<(mx2)&&(mn2)<(mx1))
21
22			#define XCOM "pexpand +OCIsv -P %s"
23
24
25			char *progname;
26
27			static short newpage = TRUE;
28
29			static PLIST recording;
30
31			int maxalloc = 0; /* no limit */
32
33
34
35			main(argc, argv)
36
37			int argc;
38			char **argv;
39
40			{
41			FILE *fp;
42			char *geometry = NULL;
43			short condonly, conditioned;
44			char comargs[500], command[600];
45
46			progname = *argv++;
47			argc--;
48
49			condonly = FALSE;
50			conditioned = FALSE;
51
52			for ( ; argc; argv++, argc--)
53			if (!strcmp(*argv, "-c"))
54			condonly = TRUE;
55			else if (!strcmp(*argv, "-r"))
56			conditioned = TRUE;
57			else if (**argv == '=')
58			geometry = *argv;
59			else
60			break;
61
62			if (conditioned) {
63			init(progname, geometry);
64			if (argc)
65			while (argc) {
66			fp = efopen(*argv, "r");
67			plot(fp);
68			fclose(fp);
69			argv++;
70			argc--;
71			}
72			else
73			plot(stdin);
74			} else {
75			comargs[0] = '\0';
76			while (argc) {
77			strcat(comargs, " ");
78			strcat(comargs, *argv);
79			argv++;
80			argc--;
81			}
82			sprintf(command, XCOM, comargs);
83			if (condonly)
84			return(system(command));
85			else {
86			init(progname, geometry);
87			if ((fp = popen(command, "r")) == NULL)
88			error(SYSTEM, "cannot execute input filter");
89			plot(fp);
90			pclose(fp);
91			}
92			}
93
94			if (!newpage)
95			endpage();
96
97			return(0);
98			}
99
100
101
102
103	greg	1.3	void
104	greg	1.1	plot(infp) /* plot meta-file */
105
106			FILE *infp;
107
108			{
109			PRIMITIVE nextp;
110
111			set(SALL, NULL);
112			do {
113			readp(&nextp, infp);
114			while (isprim(nextp.com)) {
115			doprim(&nextp, 1);
116			readp(&nextp, infp);
117			}
118			doglobal(&nextp, 1);
119			} while (nextp.com != PEOF);
120
121			}
122
123
124
125			replay(xmin, ymin, xmax, ymax) /* play back region */
126			int xmin, ymin, xmax, ymax;
127			{
128			register PRIMITIVE *p;
129
130			unset(SALL);
131			set(SALL, NULL);
132			for (p = recording.ptop; p != NULL; p = p->pnext)
133			if (isprim(p->com)) {
134			if (overlap(p, xmin, ymin, xmax, ymax))
135			doprim(p, 0);
136			} else
137			doglobal(p, 0);
138
139			}
140
141
142
143
144			save(p) /* record primitive */
145			PRIMITIVE *p;
146			{
147			register PRIMITIVE *pnew;
148
149			if ((pnew = palloc()) == NULL)
150			error(SYSTEM, "out of memory in save");
151	greg	1.3	mcopy((char )pnew, (char )p, sizeof(PRIMITIVE));
152	greg	1.1	add(pnew, &recording);
153			}
154
155
156
157
158			doglobal(g, sf) /* execute a global command */
159
160			register PRIMITIVE *g;
161			int sf;
162
163			{
164
165			switch (g->com) {
166
167			case PEOF:
168			return;
169
170			case PDRAW:
171			XFlush();
172			break;
173
174			case PEOP:
175			endpage();
176			plfree(&recording);
177			set(SALL, NULL);
178			newpage = TRUE;
179			return;
180
181			case PSET:
182			set(g->arg0, g->args);
183			break;
184
185			case PUNSET:
186			unset(g->arg0);
187			break;
188
189			case PRESET:
190			reset(g->arg0);
191			break;
192
193			default:
194			sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
195			error(WARNING, errmsg);
196			return;
197			}
198			if (sf)
199			save(g);
200
201			}
202
203
204
205
206			doprim(p, sf) /* plot primitive */
207
208			register PRIMITIVE *p;
209			int sf;
210
211			{
212
213			switch (p->com) {
214
215			case PMSTR:
216			printstr(p);
217			break;
218
219			case PLSEG:
220			plotlseg(p);
221			break;
222
223			case PRFILL:
224			fillrect(p);
225			break;
226
227			case PTFILL:
228			filltri(p);
229			break;
230
231			case PPFILL:
232			fillpoly(p);
233			break;
234
235			default:
236			sprintf(errmsg, "unknown command '%c' in doprim", p->com);
237			error(WARNING, errmsg);
238			return;
239			}
240			if (sf) {
241			save(p);
242			newpage = FALSE;
243			}
244
245			}