100 lines
1.7 KiB
C
100 lines
1.7 KiB
C
|
|
#ifdef __ORCAC__
|
|
#pragma optimize 79
|
|
#pragma noroot
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "OverlayIIgs-flags.h"
|
|
|
|
void FlagsHelp(void)
|
|
{
|
|
fputs("OverlayIIgs [options] infile outfile\n", stdout);
|
|
fputs("-a address set the address\n", stdout);
|
|
fputs("\n", stdout);
|
|
exit(0);
|
|
}
|
|
|
|
struct Flags flags;
|
|
int FlagsParse(int argc, char **argv)
|
|
{
|
|
char *cp;
|
|
char *optarg;
|
|
|
|
char c;
|
|
int i;
|
|
int j;
|
|
int eof; // end-of-flags
|
|
int mindex; // mutation index.
|
|
|
|
memset(&flags, 0, sizeof(flags));
|
|
|
|
for (i = 1, mindex = 1, eof = 0; i < argc; ++i)
|
|
{
|
|
cp = argv[i];
|
|
c = cp[0];
|
|
|
|
if (c != '-' || eof)
|
|
{
|
|
if (i != mindex) argv[mindex] = argv[i];
|
|
mindex++;
|
|
continue;
|
|
}
|
|
|
|
// -- = end of options.
|
|
if (cp[1] == '-' && cp[2] == 0)
|
|
{
|
|
eof = 1;
|
|
continue;
|
|
}
|
|
|
|
// now scan all the flags in the string...
|
|
optarg = NULL;
|
|
for (j = 1; ; ++j)
|
|
{
|
|
c = cp[j];
|
|
if (c == 0) break;
|
|
|
|
switch (c)
|
|
{
|
|
case 'h':
|
|
FlagsHelp();
|
|
break;
|
|
case 'a':
|
|
// -xarg or -x arg
|
|
++j;
|
|
if (cp[j])
|
|
{
|
|
optarg = cp + j;
|
|
}
|
|
else
|
|
{
|
|
if (++i >= argc)
|
|
{
|
|
fputs("option requires an argument -- a\n", stderr);
|
|
exit(1);
|
|
}
|
|
optarg = argv[i];
|
|
}
|
|
flags._a = optarg;
|
|
|
|
break;
|
|
case 'p':
|
|
flags._p = 1;
|
|
break;
|
|
|
|
default:
|
|
fprintf(stderr, "illegal option -- %c\n", c);
|
|
exit(1);
|
|
}
|
|
|
|
if (optarg) break;
|
|
}
|
|
}
|
|
|
|
return mindex;
|
|
}
|