summaryrefslogtreecommitdiff
path: root/app/wlib/mswlib/getopt.c
blob: 888f5f8f1d1a94a2d87737ee3a0983274f1b8cdc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
/*----------------------------------------------------------------------

    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"

#ifdef WINDOWS
#define OPTCHAR '/'
#else
#define OPTCHAR '-'
#endif

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] != OPTCHAR))
	    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;
    }
}