getoldopt.c revision 1.11 
1/*	$NetBSD: getoldopt.c,v 1.11 2001/10/25 05:33:33 lukem Exp $	*/
2
3/*
4 * Plug-compatible replacement for getopt() for parsing tar-like
5 * arguments.  If the first argument begins with "-", it uses getopt;
6 * otherwise, it uses the old rules used by tar, dump, and ps.
7 *
8 * Written 25 August 1985 by John Gilmore (ihnp4!hoptoad!gnu) and placed
9 * in the Public Domain for your edification and enjoyment.
10 */
11
12#include <sys/cdefs.h>
13#ifndef lint
14__RCSID("$NetBSD: getoldopt.c,v 1.11 2001/10/25 05:33:33 lukem Exp $");
15#endif /* not lint */
16
17#include <stdio.h>
18#include <string.h>
19#include <unistd.h>
20#include <getopt.h>
21#include <sys/stat.h>
22#include "pax.h"
23#include "extern.h"
24
25int
26getoldopt(int argc, char **argv, const char *optstring,
27	struct option *longopts, int *index)
28{
29	static char	*key;		/* Points to next keyletter */
30	static char	use_getopt;	/* !=0 if argv[1][0] was '-' */
31	char		c;
32	char		*place;
33
34	optarg = NULL;
35
36	if (key == NULL) {		/* First time */
37		if (argc < 2) return -1;
38		key = argv[1];
39		if (*key == '-')
40			use_getopt++;
41		else
42			optind = 2;
43	}
44
45	if (use_getopt)
46		return ((longopts != NULL) ?
47			getopt_long(argc, argv, optstring, longopts, index) :
48			getopt(argc, argv, optstring));
49
50	c = *key++;
51	if (c == '\0') {
52		key--;
53		return -1;
54	}
55	place = strchr(optstring, c);
56
57	if (place == NULL || c == ':') {
58		fprintf(stderr, "%s: unknown option %c\n", argv[0], c);
59		return('?');
60	}
61
62	place++;
63	if (*place == ':') {
64		if (optind < argc) {
65			optarg = argv[optind];
66			optind++;
67		} else {
68			fprintf(stderr, "%s: %c argument missing\n",
69				argv[0], c);
70			return('?');
71		}
72	}
73
74	return(c);
75}
76