#ifdef __ORCAC__
#pragma optimize 79
#pragma noroot
#endif

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include "SetFile-flags.h"

void FlagsHelp(void)
{
  fputs("SetFile [options] file...\n", stdout);
  fputs("-c creator   set the creator\n", stdout);
  fputs("-t type      set the file type\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();
        exit(0);
      case 'c':
        // -xarg or -x arg
        ++j;
        if (cp[j]) {
          optarg = cp + j;
        }
        else {
          if (++i >= argc) {
            fputs("###  - \"-c\" requires an argument.\n", stderr);
            exit(1);
          }
          optarg = argv[i];
        }
        flags._c = optarg;

        break;
      case 't':
        // -xarg or -x arg
        ++j;
        if (cp[j]) {
          optarg = cp + j;
        }
        else {
          if (++i >= argc) {
            fputs("###  - \"-t\" requires an argument.\n", stderr);
            exit(1);
          }
          optarg = argv[i];
        }
        flags._t = optarg;

        break;
      case 'm':
        // -xarg or -x arg
        ++j;
        if (cp[j]) {
          optarg = cp + j;
        }
        else {
          if (++i >= argc) {
            fputs("###  - \"-m\" requires an argument.\n", stderr);
            exit(1);
          }
          optarg = argv[i];
        }
        flags._m = optarg;

        break;
      case 'a':
        // -xarg or -x arg
        ++j;
        if (cp[j]) {
          optarg = cp + j;
        }
        else {
          if (++i >= argc) {
            fputs("###  - \"-a\" requires an argument.\n", stderr);
            exit(1);
          }
          optarg = argv[i];
        }
        flags._a = optarg;

        break;

      default:
        fprintf(stderr, "###  - \"-%c\" is not an option.\n", c);
        exit(1);
      }

      if (optarg) break;
    }
  }

  return mindex;
}