| 24 |
|
int argc; |
| 25 |
|
char *argv[]; |
| 26 |
|
{ |
| 27 |
– |
#if UNIX || MAC |
| 27 |
|
char *getenv(); |
| 29 |
– |
#endif |
| 28 |
|
int i, file0; |
| 29 |
|
|
| 32 |
– |
#ifdef CPM |
| 33 |
– |
fixargs("gcomp", &argc, &argv); |
| 30 |
|
progname = argv[0]; |
| 35 |
– |
libpath[0] = ""; |
| 36 |
– |
libpath[1] = "0/"; |
| 37 |
– |
libpath[2] = NULL; |
| 38 |
– |
#endif |
| 39 |
– |
#ifdef MAC |
| 40 |
– |
progname = argv[0]; |
| 31 |
|
libpath[0] = "./"; |
| 32 |
|
if ((libpath[i=1] = getenv("MDIR")) != NULL) |
| 33 |
|
i++; |
| 44 |
– |
libpath[i++] = "/meta/"; |
| 45 |
– |
libpath[i] = NULL; |
| 46 |
– |
#endif |
| 47 |
– |
#ifdef UNIX |
| 48 |
– |
progname = argv[0]; |
| 49 |
– |
libpath[0] = "./"; |
| 50 |
– |
if ((libpath[i=1] = getenv("MDIR")) != NULL) |
| 51 |
– |
i++; |
| 34 |
|
libpath[i++] = MDIR; |
| 35 |
|
libpath[i] = NULL; |
| 54 |
– |
#endif |
| 36 |
|
|
| 37 |
|
for (file0 = 1; file0 < argc; ) |
| 38 |
|
if (istyp(argv[file0])) |