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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
/*
I found this code on simtel, I think. There was no copyright and no
author's name on the source file. So I am assuming it was placed
under the public domain. To protect this code, I am placing it
under the GNU GPL. -jhall
*/
/*
This program 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.
This program 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 this program; if not, write to:
The Free Software Foundation, Inc.,
59 Temple Place - Suite 330,
Boston, MA 02111-1307,
USA. */
/*
The getopt() function parses the command line arguments. Its
arguments argc and argv are the argument count and array as passed
to the main() function on program invocation. An element of argv
that starts with `/'is an option element. If getopt() is called
repeatedly, it returns successively each of the option characters
from each of the option elements.
If there are no more option characters, getopt() returns -1. Then
optind is the index in argv of the first argv element that is not an
option.
optstring is a string containing the legitimate option characters.
If such a character is followed by a colon, the option requires an
argument, so getopt places a pointer to the following text in the
same argv-element, or the text of the following argv-element, in
optarg.
If getopt() does not recognize an option character, it prints an
error message to stderr, stores the character in optopt, and returns
`?'. The calling program MUST TURN ON THIS BEHAVIOR by setting
opterr to 1.
*/
/*
* getopt - get option letter from argv
*/
#include <stdio.h>
#include <string.h> /* for strcmp(), strchr() */
char *optarg; /* Global argument pointer. */
int optind = 0; /* Global argv index. */
int opterr = 0; /* Global error message flag. */
static char *scan = NULL; /* Private scan pointer. */
#if 0 /* disabled code */
extern char *index();
#endif /* disabled code */
int
getopt(argc, argv, optstring)
int argc;
char *argv[];
char *optstring;
{
register char c;
register char *place;
optarg = NULL;
if (scan == NULL || *scan == '\0') {
if (optind == 0)
optind++;
if (optind >= argc || argv[optind][0] != '/' || argv[optind][1] == '\0')
return(EOF);
if (strcmp(argv[optind], "--")==0) {
optind++;
return(EOF);
}
scan = argv[optind]+1;
optind++;
}
c = *scan++;
place = strchr(optstring, c);
if (place == NULL || c == ':') {
if (opterr) {
fprintf(stderr, "%s: unknown option /%c\n", argv[0], c);
return('?');
}
}
place++;
if (*place == ':') {
if (*scan != '\0') {
optarg = scan;
scan = NULL;
} else if (optind < argc) {
optarg = argv[optind];
optind++;
} else if (opterr) {
fprintf(stderr, "%s: /%c argument missing\n", argv[0], c);
return('?');
}
}
return(c);
}
|
