36 |
|
|
37 |
|
|
38 |
|
|
39 |
< |
|
40 |
< |
|
39 |
> |
#include "rtprocess.h" |
40 |
|
#include "meta.h" |
42 |
– |
|
41 |
|
#include "plot.h" |
44 |
– |
|
42 |
|
#include "span.h" |
43 |
|
|
44 |
|
|
48 |
– |
|
49 |
– |
|
45 |
|
char *progname; |
46 |
|
|
47 |
|
struct span outspan; |
69 |
|
|
70 |
|
{ |
71 |
|
FILE *fp; |
77 |
– |
#ifdef UNIX |
78 |
– |
FILE *popen(); |
79 |
– |
#endif |
72 |
|
char comargs[200], command[300]; |
73 |
|
|
82 |
– |
#ifdef CPM |
83 |
– |
fixargs("mx80", &argc, &argv); |
84 |
– |
#endif |
85 |
– |
|
74 |
|
progname = *argv++; |
75 |
|
argc--; |
76 |
|
|
77 |
|
condonly = FALSE; |
90 |
– |
#ifdef CPM |
91 |
– |
conditioned = TRUE; |
92 |
– |
#else |
78 |
|
conditioned = FALSE; |
94 |
– |
#endif |
79 |
|
|
80 |
|
while (argc && **argv == '-') { |
81 |
|
switch (*(*argv+1)) { |
98 |
– |
#ifdef UNIX |
82 |
|
case 'c': |
83 |
|
condonly = TRUE; |
84 |
|
break; |
85 |
|
case 'r': |
86 |
|
conditioned = TRUE; |
87 |
|
break; |
105 |
– |
#endif |
88 |
|
default: |
89 |
|
error(WARNING, "unknown option"); |
90 |
|
break; |
115 |
|
argc--; |
116 |
|
} |
117 |
|
sprintf(command, XCOM, comargs); |
136 |
– |
#ifdef UNIX |
118 |
|
if (condonly) |
119 |
|
return(system(command)); |
120 |
|
else { |
125 |
|
pclose(fp); |
126 |
|
fputs(PUNINIT, stdout); |
127 |
|
} |
147 |
– |
#endif |
128 |
|
} |
129 |
|
|
130 |
|
return(0); |