| 34 |  |  | 
| 35 |  | { | 
| 36 |  | FILE  *fp; | 
| 37 | – | #ifdef  UNIX | 
| 37 |  | FILE  *popen(); | 
| 39 | – | #endif | 
| 38 |  | short  condonly, conditioned; | 
| 39 |  | char  comargs[200], command[300]; | 
| 40 |  |  | 
| 43 | – | #ifdef  CPM | 
| 44 | – | fixargs("impress", &argc, &argv); | 
| 45 | – | #endif | 
| 46 | – |  | 
| 41 |  | progname = *argv++; | 
| 42 |  | argc--; | 
| 43 |  |  | 
| 44 |  | condonly = FALSE; | 
| 51 | – | #ifdef  UNIX | 
| 45 |  | conditioned = FALSE; | 
| 53 | – | #else | 
| 54 | – | conditioned = TRUE; | 
| 55 | – | #endif | 
| 46 |  |  | 
| 47 |  | while (argc && **argv == '-')  { | 
| 48 |  | switch (*(*argv+1))  { | 
| 59 | – | #ifdef  UNIX | 
| 49 |  | case 'c': | 
| 50 |  | condonly = TRUE; | 
| 51 |  | break; | 
| 52 |  | case 'r': | 
| 53 |  | conditioned = TRUE; | 
| 54 |  | break; | 
| 66 | – | #endif | 
| 55 |  | default: | 
| 56 |  | error(WARNING, "unknown option"); | 
| 57 |  | break; | 
| 82 |  | argc--; | 
| 83 |  | } | 
| 84 |  | sprintf(command, XCOM, comargs); | 
| 97 | – | #ifdef  UNIX | 
| 85 |  | if (condonly) | 
| 86 |  | return(system(command)); | 
| 87 |  | else  { | 
| 90 |  | plot(fp); | 
| 91 |  | pclose(fp); | 
| 92 |  | } | 
| 106 | – | #endif | 
| 93 |  | } | 
| 94 |  |  | 
| 95 |  | if (!newpage) |