/*
**  GETOPT PROGRAM AND LIBRARY ROUTINE
**
**  I wrote main() and AT&T wrote getopt() and we both put our efforts into
**  the public domain via mod.sources.
**      Rich $alz
**      Mirror Systems
**      (mirror!rs, [email protected])
**      August 10, 1986
**
**  This is the public-domain AT&T getopt(3) code.  Hacked by Rich and by Jim.
*/

#include "String.h"

/*LINTLIBRARY*/
#include <stdio.h>

#define ERR(s, c)       if(opterr){\
       extern int write();\
       char errbuf[2];\
       errbuf[0] = c; errbuf[1] = '\n';\
       (void) write(2, argv[0], (unsigned)strlen(argv[0]));\
       (void) write(2, s, (unsigned)strlen(s));\
       (void) write(2, errbuf, 2);}

extern char *strchr();

int     opterr = 1;
int     optind = 1;
int     optopt;
char    *optarg;

int
getopt(argc, argv, opts)
int     argc;
char    **argv, *opts;
{
       static int sp = 1;
       register int c;
       register char *cp;

       if(sp == 1)
               if(optind >= argc ||
                  argv[optind][0] != '-' || argv[optind][1] == '\0')
                       return(EOF);
               else if(strcmp(argv[optind], "--") == 0) {
                       optind++;
                       return(EOF);
               }
       optopt = c = argv[optind][sp];
       if(c == ':' || (cp=strchr(opts, c)) == NULL) {
               ERR(": illegal option -- ", c);
               if(argv[optind][++sp] == '\0') {
                       optind++;
                       sp = 1;
               }
               return('?');
       }
       if(*++cp == ':') {
               if(argv[optind][sp+1] != '\0')
                       optarg = &argv[optind++][sp+1];
               else if(++optind >= argc) {
                       ERR(": option requires an argument -- ", c);
                       sp = 1;
                       return('?');
               } else
                       optarg = argv[optind++];
               sp = 1;
       } else {
               if(argv[optind][++sp] == '\0') {
                       sp = 1;
                       optind++;
               }
               optarg = NULL;
       }
       return(c);
}