| Line 503... |
Line 503... |
int zpp_status;
|
int zpp_status;
|
std::string inclist;
|
std::string inclist;
|
if (NULL != getenv("ZIPINC"))
|
if (NULL != getenv("ZIPINC"))
|
inclist = getenv("ZIPINC");
|
inclist = getenv("ZIPINC");
|
|
|
printf("Original INCLIST = %s\n", inclist.c_str());
|
|
|
|
master_input_filename = NULL;
|
master_input_filename = NULL;
|
|
|
// Find what directory zasm is in, so that we can find zpp when
|
// Find what directory zasm is in, so that we can find zpp when
|
// necessary.
|
// necessary.
|
path_to_zasm = NULL;
|
path_to_zasm = NULL;
|
| Line 536... |
Line 534... |
} else
|
} else
|
inclist = &argv[argn+skp][2];
|
inclist = &argv[argn+skp][2];
|
} else if (argn+skp+1
|
} else if (argn+skp+1
|
if (inclist.size() != 0) {
|
if (inclist.size() != 0) {
|
inclist += std::string(":");
|
inclist += std::string(":");
|
inclist += &argv[argn+skp+1][2];
|
inclist += argv[argn+skp+1];
|
} else
|
} else
|
inclist = &argv[argn+skp+1][2];
|
inclist = argv[argn+skp+1];
|
argn++;
|
skp++;
|
}
|
}
|
} else if (argv[argn+skp][1] == 'd')
|
} else if (argv[argn+skp][1] == 'd')
|
yydebug = 1;
|
yydebug = 1;
|
else if (argv[argn+skp][1] == 'h') {
|
else if (argv[argn+skp][1] == 'h') {
|
usage();
|
usage();
|
exit(0);
|
exit(0);
|
}
|
}
|
|
|
skp++;
|
skp++;
|
} argv[argn] = argv[argn+skp];
|
argn--;
|
|
} else {
|
|
argv[argn] = argv[argn+skp];
|
|
}
|
} argc -= skp;
|
} argc -= skp;
|
|
|
if (zout_fname) {
|
if (zout_fname) {
|
for(int argn=0; argn
|
for(int argn=0; argn
|
if (strcmp(zout_fname, argv[argn])==0) {
|
if (strcmp(zout_fname, argv[argn])==0) {
|
fprintf(stderr, "ERR: Cowardly refusing to overwrite \'%s\'\n", zout_fname);
|
fprintf(stderr, "ERR: Cowardly refusing to overwrite \'%s\'\n", zout_fname);
|
exit(-2);
|
exit(-2);
|
}
|
}
|
}
|
}
|
}
|
}
|
printf("New INCLIST = %s\n", inclist.c_str());
|
|
|
|
if (preprocess_only) {
|
if (preprocess_only) {
|
objcode.open("/dev/null");
|
objcode.open("/dev/null");
|
if (zout_fname)
|
if (zout_fname)
|
ppout = fopen(zout_fname, "w");
|
ppout = fopen(zout_fname, "w");
|
