1*86d7f5d3SJohn Marino /* $OpenBSD: getoldopt.c,v 1.4 2000/01/22 20:24:51 deraadt Exp $ */
2*86d7f5d3SJohn Marino /* $NetBSD: getoldopt.c,v 1.3 1995/03/21 09:07:28 cgd Exp $ */
3*86d7f5d3SJohn Marino
4*86d7f5d3SJohn Marino /*
5*86d7f5d3SJohn Marino * Plug-compatible replacement for getopt() for parsing tar-like
6*86d7f5d3SJohn Marino * arguments. If the first argument begins with "-", it uses getopt;
7*86d7f5d3SJohn Marino * otherwise, it uses the old rules used by tar, dump, and ps.
8*86d7f5d3SJohn Marino *
9*86d7f5d3SJohn Marino * Written 25 August 1985 by John Gilmore (ihnp4!hoptoad!gnu) and placed
10*86d7f5d3SJohn Marino * in the Pubic Domain for your edification and enjoyment.
11*86d7f5d3SJohn Marino *
12*86d7f5d3SJohn Marino * $FreeBSD: src/bin/pax/getoldopt.c,v 1.1.2.1 2001/08/01 05:03:11 obrien Exp $
13*86d7f5d3SJohn Marino * $DragonFly: src/bin/pax/getoldopt.c,v 1.3 2003/09/28 14:39:14 hmp Exp $
14*86d7f5d3SJohn Marino */
15*86d7f5d3SJohn Marino
16*86d7f5d3SJohn Marino #include <stdio.h>
17*86d7f5d3SJohn Marino #include <string.h>
18*86d7f5d3SJohn Marino #include <unistd.h>
19*86d7f5d3SJohn Marino
20*86d7f5d3SJohn Marino int
getoldopt(int argc,char ** argv,char * optstring)21*86d7f5d3SJohn Marino getoldopt(int argc, char **argv, char *optstring)
22*86d7f5d3SJohn Marino {
23*86d7f5d3SJohn Marino static char *key; /* Points to next keyletter */
24*86d7f5d3SJohn Marino static char use_getopt; /* !=0 if argv[1][0] was '-' */
25*86d7f5d3SJohn Marino char c;
26*86d7f5d3SJohn Marino char *place;
27*86d7f5d3SJohn Marino
28*86d7f5d3SJohn Marino optarg = NULL;
29*86d7f5d3SJohn Marino
30*86d7f5d3SJohn Marino if (key == NULL) { /* First time */
31*86d7f5d3SJohn Marino if (argc < 2) return EOF;
32*86d7f5d3SJohn Marino key = argv[1];
33*86d7f5d3SJohn Marino if (*key == '-')
34*86d7f5d3SJohn Marino use_getopt++;
35*86d7f5d3SJohn Marino else
36*86d7f5d3SJohn Marino optind = 2;
37*86d7f5d3SJohn Marino }
38*86d7f5d3SJohn Marino
39*86d7f5d3SJohn Marino if (use_getopt)
40*86d7f5d3SJohn Marino return getopt(argc, argv, optstring);
41*86d7f5d3SJohn Marino
42*86d7f5d3SJohn Marino c = *key++;
43*86d7f5d3SJohn Marino if (c == '\0') {
44*86d7f5d3SJohn Marino key--;
45*86d7f5d3SJohn Marino return EOF;
46*86d7f5d3SJohn Marino }
47*86d7f5d3SJohn Marino place = strchr(optstring, c);
48*86d7f5d3SJohn Marino
49*86d7f5d3SJohn Marino if (place == NULL || c == ':') {
50*86d7f5d3SJohn Marino fprintf(stderr, "%s: unknown option %c\n", argv[0], c);
51*86d7f5d3SJohn Marino return('?');
52*86d7f5d3SJohn Marino }
53*86d7f5d3SJohn Marino
54*86d7f5d3SJohn Marino place++;
55*86d7f5d3SJohn Marino if (*place == ':') {
56*86d7f5d3SJohn Marino if (optind < argc) {
57*86d7f5d3SJohn Marino optarg = argv[optind];
58*86d7f5d3SJohn Marino optind++;
59*86d7f5d3SJohn Marino } else {
60*86d7f5d3SJohn Marino fprintf(stderr, "%s: %c argument missing\n",
61*86d7f5d3SJohn Marino argv[0], c);
62*86d7f5d3SJohn Marino return('?');
63*86d7f5d3SJohn Marino }
64*86d7f5d3SJohn Marino }
65*86d7f5d3SJohn Marino
66*86d7f5d3SJohn Marino return(c);
67*86d7f5d3SJohn Marino }
68