src/meta/macprt.c

#ifndef lint
static const char       RCSid[] = "$Id: macprt.c,v 1.2 2003/07/01 21:21:40 greg Exp $";
#endif
/*
 *  Program to send meta-files to MacIntosh printer
 *
 *  cc -o macprt macprt.c macplot.o mfio.o syscalls.o misc.o -lplot
 */


#include  <fcntl.h>

#include  "meta.h"

#include  "macplot.h"

#include  <print.h>


char  *progname;

int  dxsize, dysize;            /* plot dimensions */

static short  newpage = TRUE; 

static PRIMITIVE  nextp;

static GrafPort  ourPort;


main(argc, argv)

int  argc;
char  **argv;

{
 FILE  *fp;

 progname = *argv++;
 argc--;

 while (argc && **argv == '-')  {
    switch (*(*argv+1))  {
       default:
          error(WARNING, "unknown option");
          break;
       }
    argv++;
    argc--;
    }

 InitGraf(&thePort);

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

 return(0);
}


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

register FILE  *infp;

{

    OpenPort(&ourPort);
    TextFont(4);                /* 9-point Monaco */
    TextSize(9);

    dxsize = dysize = min(ourPort.portRect.right - ourPort.portRect.left,
                        ourPort.portRect.bottom - ourPort.portRect.top);

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

    ClosePort(&ourPort);

}


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

register PRIMITIVE  *g;

{
    int  tty;
    char  c;

    switch (g->com) {

        case PEOF:
            break;

        case PDRAW:
            fflush(stdout);
            break;

        case PEOP:
            newpage = TRUE;
                /* fall through */

        case PPAUS:
            fflush(stdout);
            tty = open(TTY, O_RDWR);
            if (g->args != NULL) {
                write(tty, g->args, strlen(g->args));
                write(tty, " - (hit return to continue)", 27);
            } else
                write(tty, "\007", 1);
            do {
                c = '\n';
                read(tty, &c, 1);
            } while (c != '\n' && c != '\r');
            close(tty);
            break;

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

}


doprim(p)               /* plot primitive */

register PRIMITIVE  *p;

{

    if (newpage) {
        EraseRgn(ourPort.visRgn);
        newpage = FALSE;
    }
    
    switch (p->com) {

        case PLSEG:
            plotlseg(p);
            break;

        case PMSTR:
            printstr(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;
    }

}
Revision:	1.3
Committed:	Fri Nov 5 03:31:37 2004 UTC (20 years, 6 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	Removed unused programs and files from distribution (sources to CVS attic)
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.3	static const char RCSid[] = "$Id: macprt.c,v 1.2 2003/07/01 21:21:40 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Program to send meta-files to MacIntosh printer
6			*
7			* cc -o macprt macprt.c macplot.o mfio.o syscalls.o misc.o -lplot
8			*/
9
10
11			#include <fcntl.h>
12
13			#include "meta.h"
14
15			#include "macplot.h"
16
17			#include <print.h>
18
19
20
21			char *progname;
22
23			int dxsize, dysize; /* plot dimensions */
24
25			static short newpage = TRUE;
26
27			static PRIMITIVE nextp;
28
29			static GrafPort ourPort;
30
31
32
33			main(argc, argv)
34
35			int argc;
36			char **argv;
37
38			{
39			FILE *fp;
40
41			progname = *argv++;
42			argc--;
43
44			while (argc && **argv == '-') {
45			switch ((argv+1)) {
46			default:
47			error(WARNING, "unknown option");
48			break;
49			}
50			argv++;
51			argc--;
52			}
53
54			InitGraf(&thePort);
55
56			if (argc)
57			while (argc) {
58			fp = efopen(*argv, "r");
59			plot(fp);
60			fclose(fp);
61			argv++;
62			argc--;
63			}
64			else
65			plot(stdin);
66
67			return(0);
68			}
69
70
71
72
73			plot(infp) /* plot meta-file */
74
75			register FILE *infp;
76
77			{
78
79			OpenPort(&ourPort);
80			TextFont(4); /* 9-point Monaco */
81			TextSize(9);
82
83			dxsize = dysize = min(ourPort.portRect.right - ourPort.portRect.left,
84			ourPort.portRect.bottom - ourPort.portRect.top);
85
86			do {
87			readp(&nextp, infp);
88			while (isprim(nextp.com)) {
89			doprim(&nextp);
90			fargs(&nextp);
91			readp(&nextp, infp);
92			}
93			doglobal(&nextp);
94			fargs(&nextp);
95			} while (nextp.com != PEOF);
96
97			ClosePort(&ourPort);
98
99			}
100
101
102
103
104
105			doglobal(g) /* execute a global command */
106
107			register PRIMITIVE *g;
108
109			{
110			int tty;
111			char c;
112
113			switch (g->com) {
114
115			case PEOF:
116			break;
117
118			case PDRAW:
119			fflush(stdout);
120			break;
121
122			case PEOP:
123			newpage = TRUE;
124			/* fall through */
125
126	greg	1.2	case PPAUS:
127	greg	1.1	fflush(stdout);
128			tty = open(TTY, O_RDWR);
129			if (g->args != NULL) {
130			write(tty, g->args, strlen(g->args));
131			write(tty, " - (hit return to continue)", 27);
132			} else
133			write(tty, "\007", 1);
134			do {
135			c = '\n';
136			read(tty, &c, 1);
137			} while (c != '\n' && c != '\r');
138			close(tty);
139			break;
140
141			case PSET:
142			set(g->arg0, g->args);
143			break;
144
145			case PUNSET:
146			unset(g->arg0);
147			break;
148
149			case PRESET:
150			reset(g->arg0);
151			break;
152
153			default:
154			sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
155			error(WARNING, errmsg);
156			break;
157			}
158
159			}
160
161
162
163
164			doprim(p) /* plot primitive */
165
166			register PRIMITIVE *p;
167
168			{
169
170			if (newpage) {
171			EraseRgn(ourPort.visRgn);
172			newpage = FALSE;
173			}
174
175			switch (p->com) {
176
177			case PLSEG:
178			plotlseg(p);
179			break;
180
181			case PMSTR:
182			printstr(p);
183			break;
184
185			case PRFILL:
186			fillrect(p);
187			break;
188
189			case PTFILL:
190			filltri(p);
191			break;
192
193			case PPFILL:
194			fillpoly(p);
195			break;
196
197			default:
198			sprintf(errmsg, "unknown command '%c' in doprim", p->com);
199			error(WARNING, errmsg);
200			return;
201			}
202
203			}