1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman #include <ast.h>
25*b30d1939SAndy Fiddaman #include <ast_getopt.h>
26*b30d1939SAndy Fiddaman
27*b30d1939SAndy Fiddaman #undef _BLD_ast /* enable ast imports since we're user static */
28*b30d1939SAndy Fiddaman
29*b30d1939SAndy Fiddaman #include <error.h>
30*b30d1939SAndy Fiddaman #include <option.h>
31*b30d1939SAndy Fiddaman #include <getopt.h>
32*b30d1939SAndy Fiddaman #include <ctype.h>
33*b30d1939SAndy Fiddaman
34*b30d1939SAndy Fiddaman static const char* lastoptstring;
35*b30d1939SAndy Fiddaman static const struct option* lastlongopts;
36*b30d1939SAndy Fiddaman static char* usage;
37*b30d1939SAndy Fiddaman static Sfio_t* up;
38*b30d1939SAndy Fiddaman
39*b30d1939SAndy Fiddaman static int lastoptind;
40*b30d1939SAndy Fiddaman
41*b30d1939SAndy Fiddaman static int
golly(int argc,char * const * argv,const char * optstring,const struct option * longopts,int * longindex,int flags)42*b30d1939SAndy Fiddaman golly(int argc, char* const* argv, const char* optstring, const struct option* longopts, int* longindex, int flags)
43*b30d1939SAndy Fiddaman {
44*b30d1939SAndy Fiddaman register char* s;
45*b30d1939SAndy Fiddaman register const struct option* o;
46*b30d1939SAndy Fiddaman register int c;
47*b30d1939SAndy Fiddaman char* t;
48*b30d1939SAndy Fiddaman
49*b30d1939SAndy Fiddaman if (!up || optstring != lastoptstring || longopts != lastlongopts)
50*b30d1939SAndy Fiddaman {
51*b30d1939SAndy Fiddaman if (!up && !(up = sfstropen()) || !(t = strdup(optstring)))
52*b30d1939SAndy Fiddaman return -1;
53*b30d1939SAndy Fiddaman sfprintf(up, "[-1p%d]", flags);
54*b30d1939SAndy Fiddaman for (o = longopts; o->name; o++)
55*b30d1939SAndy Fiddaman {
56*b30d1939SAndy Fiddaman if (o->flag || o->val <= 0 || o->val > UCHAR_MAX || !isalnum(o->val))
57*b30d1939SAndy Fiddaman sfprintf(up, "\n[%d:%s]", UCHAR_MAX + 1 + (o - longopts), o->name);
58*b30d1939SAndy Fiddaman else
59*b30d1939SAndy Fiddaman {
60*b30d1939SAndy Fiddaman sfprintf(up, "\n[%c:%s]", o->val, o->name);
61*b30d1939SAndy Fiddaman if (s = strchr(t, o->val))
62*b30d1939SAndy Fiddaman {
63*b30d1939SAndy Fiddaman *s++ = ' ';
64*b30d1939SAndy Fiddaman if (*s == ':')
65*b30d1939SAndy Fiddaman {
66*b30d1939SAndy Fiddaman *s++ = ' ';
67*b30d1939SAndy Fiddaman if (*s == ':')
68*b30d1939SAndy Fiddaman *s = ' ';
69*b30d1939SAndy Fiddaman }
70*b30d1939SAndy Fiddaman }
71*b30d1939SAndy Fiddaman }
72*b30d1939SAndy Fiddaman if (o->has_arg)
73*b30d1939SAndy Fiddaman {
74*b30d1939SAndy Fiddaman sfputc(up, ':');
75*b30d1939SAndy Fiddaman if (o->has_arg == optional_argument)
76*b30d1939SAndy Fiddaman sfputc(up, '?');
77*b30d1939SAndy Fiddaman sfprintf(up, "[string]");
78*b30d1939SAndy Fiddaman }
79*b30d1939SAndy Fiddaman }
80*b30d1939SAndy Fiddaman s = t;
81*b30d1939SAndy Fiddaman while (c = *s++)
82*b30d1939SAndy Fiddaman if (c != ' ')
83*b30d1939SAndy Fiddaman {
84*b30d1939SAndy Fiddaman sfprintf(up, "\n[%c]", c);
85*b30d1939SAndy Fiddaman if (*s == ':')
86*b30d1939SAndy Fiddaman {
87*b30d1939SAndy Fiddaman sfputc(up, *s);
88*b30d1939SAndy Fiddaman if (*++s == ':')
89*b30d1939SAndy Fiddaman {
90*b30d1939SAndy Fiddaman sfputc(up, '?');
91*b30d1939SAndy Fiddaman s++;
92*b30d1939SAndy Fiddaman }
93*b30d1939SAndy Fiddaman sfputc(up, '[');
94*b30d1939SAndy Fiddaman sfputc(up, ']');
95*b30d1939SAndy Fiddaman }
96*b30d1939SAndy Fiddaman }
97*b30d1939SAndy Fiddaman sfputc(up, '\n');
98*b30d1939SAndy Fiddaman free(t);
99*b30d1939SAndy Fiddaman if (!(usage = sfstruse(up)))
100*b30d1939SAndy Fiddaman return -1;
101*b30d1939SAndy Fiddaman lastoptstring = optstring;
102*b30d1939SAndy Fiddaman lastlongopts = longopts;
103*b30d1939SAndy Fiddaman }
104*b30d1939SAndy Fiddaman opt_info.index = (optind > 1 || optind == lastoptind) ? optind : 0;
105*b30d1939SAndy Fiddaman if (opt_info.index >= argc || !(c = optget((char**)argv, usage)))
106*b30d1939SAndy Fiddaman {
107*b30d1939SAndy Fiddaman sfstrclose(up);
108*b30d1939SAndy Fiddaman up = 0;
109*b30d1939SAndy Fiddaman c = -1;
110*b30d1939SAndy Fiddaman }
111*b30d1939SAndy Fiddaman else
112*b30d1939SAndy Fiddaman {
113*b30d1939SAndy Fiddaman if (c == ':' || c == '?')
114*b30d1939SAndy Fiddaman {
115*b30d1939SAndy Fiddaman if (opterr && (!optstring || *optstring != ':'))
116*b30d1939SAndy Fiddaman {
117*b30d1939SAndy Fiddaman if (!error_info.id)
118*b30d1939SAndy Fiddaman error_info.id = argv[0];
119*b30d1939SAndy Fiddaman errormsg(NiL, c == '?' ? (ERROR_USAGE|4) : 2, "%s", opt_info.arg);
120*b30d1939SAndy Fiddaman }
121*b30d1939SAndy Fiddaman optopt = opt_info.option[1];
122*b30d1939SAndy Fiddaman c = '?';
123*b30d1939SAndy Fiddaman }
124*b30d1939SAndy Fiddaman optarg = opt_info.arg;
125*b30d1939SAndy Fiddaman if (c < 0)
126*b30d1939SAndy Fiddaman {
127*b30d1939SAndy Fiddaman o = longopts - c - UCHAR_MAX - 1;
128*b30d1939SAndy Fiddaman if (o->flag)
129*b30d1939SAndy Fiddaman {
130*b30d1939SAndy Fiddaman *o->flag = o->val;
131*b30d1939SAndy Fiddaman c = 0;
132*b30d1939SAndy Fiddaman }
133*b30d1939SAndy Fiddaman else
134*b30d1939SAndy Fiddaman c = o->val;
135*b30d1939SAndy Fiddaman }
136*b30d1939SAndy Fiddaman }
137*b30d1939SAndy Fiddaman lastoptind = optind = opt_info.index;
138*b30d1939SAndy Fiddaman return c;
139*b30d1939SAndy Fiddaman }
140*b30d1939SAndy Fiddaman
141*b30d1939SAndy Fiddaman extern int
getopt_long(int argc,char * const * argv,const char * optstring,const struct option * longopts,int * longindex)142*b30d1939SAndy Fiddaman getopt_long(int argc, char* const* argv, const char* optstring, const struct option* longopts, int* longindex)
143*b30d1939SAndy Fiddaman {
144*b30d1939SAndy Fiddaman return golly(argc, argv, optstring, longopts, longindex, 2);
145*b30d1939SAndy Fiddaman }
146*b30d1939SAndy Fiddaman
147*b30d1939SAndy Fiddaman extern int
getopt_long_only(int argc,char * const * argv,const char * optstring,const struct option * longopts,int * longindex)148*b30d1939SAndy Fiddaman getopt_long_only(int argc, char* const* argv, const char* optstring, const struct option* longopts, int* longindex)
149*b30d1939SAndy Fiddaman {
150*b30d1939SAndy Fiddaman return golly(argc, argv, optstring, longopts, longindex, 1);
151*b30d1939SAndy Fiddaman }
152