File: getopt.c

package info (click to toggle)
ratfor 1.0-8
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 120 kB
  • ctags: 305
  • sloc: ansic: 1,797; makefile: 78; sh: 12
file content (61 lines) | stat: -rw-r--r-- 992 bytes parent folder | download | duplicates (7)
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
/*
 * getopt - get option letter from argv
 */

#include <stdio.h>

char	*optarg;	/* Global argument pointer. */
int	optind77 = 0;	/* Global argv index. */

static char	*scan = NULL;	/* Private scan pointer. */

extern char	*index();

int
our_getopt(argc, argv, optstring)
int argc;
char *argv[];
char *optstring;
{
	register char c;
	register char *place;

	optarg = NULL;

	if (scan == NULL || *scan == '\0') {
		if (optind77 == 0)
			optind77++;

		if (optind77 >= argc || argv[optind77][0] != '-' || argv[optind77][1] == '\0')
			return(EOF);
		if (strcmp(argv[optind77], "--")==0) {
			optind77++;
			return(EOF);
		}

		scan = argv[optind77]+1;
		optind77++;
	}

	c = *scan++;
	place = index(optstring, c);

	if (place == NULL || c == ':') {
		fprintf(stderr, "%s: unknown option -%c\n", argv[0], c);
		return('?');
	}

	place++;
	if (*place == ':') {
		if (*scan != '\0') {
			optarg = scan;
			scan = NULL;
		} else {
			optarg = argv[optind77];
			optind77++;
		}
	}

	return(c);
}