9 |
|
*/ |
10 |
|
|
11 |
|
|
12 |
+ |
#include "rtprocess.h" |
13 |
|
#include "meta.h" |
13 |
– |
|
14 |
|
#include "imPcodes.h" |
15 |
– |
|
15 |
|
#include "imPfuncs.h" |
16 |
+ |
#include "plot.h" |
17 |
|
|
18 |
|
|
19 |
|
#define XCOM "pexpand +OCIsv -P %s" |
25 |
|
|
26 |
|
static short newpage = TRUE; |
27 |
|
|
28 |
+ |
static void doprim(register PRIMITIVE *p); |
29 |
+ |
static void doglobal(register PRIMITIVE *g); |
30 |
|
|
31 |
|
|
30 |
– |
main(argc, argv) |
32 |
|
|
33 |
< |
int argc; |
34 |
< |
char **argv; |
33 |
> |
int |
34 |
> |
main( |
35 |
> |
int argc, |
36 |
> |
char **argv |
37 |
> |
) |
38 |
|
|
39 |
|
{ |
40 |
|
FILE *fp; |
37 |
– |
FILE *popen(); |
41 |
|
short condonly, conditioned; |
42 |
|
char comargs[200], command[300]; |
43 |
|
|
103 |
|
} |
104 |
|
|
105 |
|
|
106 |
+ |
void |
107 |
+ |
plot( /* plot meta-file */ |
108 |
+ |
register FILE *infp |
109 |
+ |
) |
110 |
|
|
104 |
– |
plot(infp) /* plot meta-file */ |
105 |
– |
|
106 |
– |
register FILE *infp; |
107 |
– |
|
111 |
|
{ |
112 |
|
PRIMITIVE nextp; |
113 |
|
|
126 |
|
|
127 |
|
|
128 |
|
|
129 |
+ |
void |
130 |
+ |
doglobal( /* execute a global command */ |
131 |
+ |
register PRIMITIVE *g |
132 |
+ |
) |
133 |
|
|
127 |
– |
|
128 |
– |
|
129 |
– |
doglobal(g) /* execute a global command */ |
130 |
– |
|
131 |
– |
register PRIMITIVE *g; |
132 |
– |
|
134 |
|
{ |
134 |
– |
char c; |
135 |
– |
|
135 |
|
switch (g->com) { |
136 |
|
|
137 |
|
case PEOF: |
169 |
|
|
170 |
|
|
171 |
|
|
172 |
< |
|
173 |
< |
doprim(p) /* plot primitive */ |
174 |
< |
|
175 |
< |
register PRIMITIVE *p; |
172 |
> |
void |
173 |
> |
doprim( /* plot primitive */ |
174 |
> |
register PRIMITIVE *p |
175 |
> |
) |
176 |
|
|
177 |
|
{ |
178 |
|
|