74 |
|
|
75 |
|
{ |
76 |
|
FILE *fp; |
77 |
– |
#ifdef UNIX |
77 |
|
FILE *popen(); |
79 |
– |
#endif |
78 |
|
char comargs[200], command[300]; |
79 |
|
|
82 |
– |
#ifdef CPM |
83 |
– |
fixargs("mx80", &argc, &argv); |
84 |
– |
#endif |
85 |
– |
|
80 |
|
progname = *argv++; |
81 |
|
argc--; |
82 |
|
|
83 |
|
condonly = FALSE; |
90 |
– |
#ifdef CPM |
91 |
– |
conditioned = TRUE; |
92 |
– |
#else |
84 |
|
conditioned = FALSE; |
94 |
– |
#endif |
85 |
|
|
86 |
|
while (argc && **argv == '-') { |
87 |
|
switch (*(*argv+1)) { |
98 |
– |
#ifdef UNIX |
88 |
|
case 'c': |
89 |
|
condonly = TRUE; |
90 |
|
break; |
91 |
|
case 'r': |
92 |
|
conditioned = TRUE; |
93 |
|
break; |
105 |
– |
#endif |
94 |
|
default: |
95 |
|
error(WARNING, "unknown option"); |
96 |
|
break; |
121 |
|
argc--; |
122 |
|
} |
123 |
|
sprintf(command, XCOM, comargs); |
136 |
– |
#ifdef UNIX |
124 |
|
if (condonly) |
125 |
|
return(system(command)); |
126 |
|
else { |
131 |
|
pclose(fp); |
132 |
|
fputs(PUNINIT, stdout); |
133 |
|
} |
147 |
– |
#endif |
134 |
|
} |
135 |
|
|
136 |
|
return(0); |