mpw-tools/OverlayIIgs-flags.c
Kelvin Sherlock f05c774f3e OverlayIIgs
2013-07-29 02:02:50 -04:00

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;
}