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

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

#include "Delete-flags.h"

void FlagsHelp(void)
{
  fputs("Delete [options] name...\n", stdout);
  fputs("-y    delete directory contents (avoids dialog)\n", stdout);
  fputs("-n    don't delete directory contents (avoids dialog)\n", stdout);
  fputs("-c    cancel if a directory is to be deleted (avoids dialog)\n", stdout);
  fputs("-i    ignore errors (no diagnostics)\n", stdout);
  fputs("-p    write progress information to diagnostics\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 'y':
      case 'Y':
        flags._y = 1;
        break;
      case 'n':
      case 'N':
        flags._n = 1;
        break;
      case 'c':
      case 'C':
        flags._c = 1;
        break;
      case 'i':
      case 'I':
        flags._i = 1;
        break;
      case 'p':
      case 'P':
        flags._p = 1;
        break;

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

  return mindex;
}