/*----------------------------------------------------------------------

    Replacement for Unix "getopt()", for DOS/Windows/etc.

    getopt.c 1.3 2003/09/17 16:17:59

    Copyright (C) 1998, 2003 by David A. Hinds -- All Rights Reserved

    This file is part of ASPEX.

    ASPEX is free software; you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    ASPEX is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with ASPEX; if not, write to the Free Software Foundation,
    Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

----------------------------------------------------------------------*/

#include "string.h"
#include "stdio.h"
#include "getopt.h"

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

int getopt(int argc, char *argv[], const char *optstring)
{
    static int pos = 0;
    char *str;
    
    if (pos == 0) {
	if ((optind >= argc) || (*argv[optind] != '-'))
	    return EOF;
	pos = 1;
	if (argv[optind][pos] == '\0')
	    return EOF;
    }
    
    str = strchr(optstring, argv[optind][pos]);
    if (str == NULL) {
	optopt = argv[optind][pos];
	if (opterr)
	    fprintf(stderr, "%s: illegal option -- %c\n", argv[0],
		    optopt);
	return '?';
    }
    
    if (str[1] == ':') {
	if (argv[optind][pos+1] != '\0') {
	    optarg = &argv[optind][pos+1];
	    return *str;
	}
	optind++;
	if (optind >= argc) {
	    optopt = *str;
	    if (opterr)
		fprintf(stderr, "%s: option requires an argument -- %c\n",
			argv[0], optopt);
	    return '?';
	}
	optarg = argv[optind];
	optind++; pos = 0;
	return *str;
    }
    else {
	pos++;
	if (argv[optind][pos] == '\0') {
	    optind++;
	    pos = 0;
	}
	return *str;
    }
}