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])) |