getopt/trunk/getopt.c

/*
    getopt.c - Enhanced implementation of BSD getopt(1)
    Copyright (c) 1997, 1998, 1999, 2000  Frodo Looijaard <frodol@dds.nl>

    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., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

/* 
 * Version 1.0-b4: Tue Sep 23 1997. First public release.
 * Version 1.0: Wed Nov 19 1997. 
 *   Bumped up the version number to 1.0
 *   Fixed minor typo (CSH instead of TCSH)
 * Version 1.0.1: Tue Jun 3 1998
 *   Fixed sizeof instead of strlen bug
 *   Bumped up the version number to 1.0.1
 * Version 1.0.2: Thu Jun 11 1998 (not present)
 *   Fixed gcc-2.8.1 warnings
 *   Fixed --version/-V option (not present)
 * Version 1.0.5: Tue Jun 22 1999
 *   Make -u option work (not present)
 * Version 1.0.6: Tue Jun 27 2000
 *   No important changes
 * Version 1.1.0: Tue Jun 30 2000
 *   Added NLS support (partly written by Arkadiusz Mi<B6>kiewicz 
 *     <misiek@pld.org.pl>)
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <ctype.h>

#if LIBCGETOPT
#include <getopt.h>
#else
#include "getopt.h"
#endif

#include "nls.h"

/* NON_OPT is the code that is returned when a non-option is found in '+' 
   mode */
#define NON_OPT 1
/* LONG_OPT is the code that is returned when a long option is found. */
#define LONG_OPT 2

/* The shells recognized. */
typedef enum {BASH,TCSH} shell_t;


/* Some global variables that tells us how to parse. */
shell_t shell=BASH; /* The shell we generate output for. */
int quiet_errors=0; /* 0 is not quiet. */
int quiet_output=0; /* 0 is not quiet. */
int quote=1; /* 1 is do quote. */
int alternative=0; /* 0 is getopt_long, 1 is getopt_long_only */

/* Function prototypes */
void *our_malloc(size_t size);
void *our_realloc(void *ptr, size_t size);
const char *normalize(const char *arg);
int generate_output(char * argv[],int argc,const char *optstr,
                    const struct option *longopts);
int main(int argc, char *argv[]);
void parse_error(const char *message);
void add_long_options(char *options);
void add_longopt(const char *name,int has_arg);
void print_help(void);
void set_shell(const char *new_shell);
void set_initial_shell(void);

void *our_malloc(size_t size)
{
        void *ret=malloc(size);
        if (! ret) {
                fprintf(stderr,_("%s: Out of memory!\n"),"getopt");
                exit(3);
        }
        return(ret);
}

void *our_realloc(void *ptr, size_t size)
{
        void *ret=realloc(ptr,size);
        if (! ret && size) {
                fprintf(stderr,_("%s: Out of memory!\n"),"getopt");
                exit(3);
        }
        return(ret);
}

/*
 * This function 'normalizes' a single argument: it puts single quotes around
 * it and escapes other special characters. If quote is false, it just
 * returns its argument.
 * Bash only needs special treatment for single quotes; tcsh also recognizes
 * exclamation marks within single quotes, and nukes whitespace.
 * This function returns a pointer to a buffer that is overwritten by 
 * each call.
 */
const char *normalize(const char *arg)
{
        static char *BUFFER=NULL;
        const char *argptr=arg;
        char *bufptr;

        if (BUFFER != NULL)
                free(BUFFER);

        if (!quote) { /* Just copy arg */
                BUFFER=our_malloc(strlen(arg)+1);
                        
                strcpy(BUFFER,arg);
                return BUFFER;
        }

        /* Each character in arg may take upto four characters in the result:
           For a quote we need a closing quote, a backslash, a quote and an
           opening quote! We need also the global opening and closing quote,
           and one extra character for '\0'. */
        BUFFER=our_malloc(strlen(arg)*4+3);

        bufptr=BUFFER;
        *bufptr++='\'';

        while (*argptr) {
                if (*argptr == '\'') {
                        /* Quote: replace it with: '\'' */
                        *bufptr++='\'';
                        *bufptr++='\\';
                        *bufptr++='\'';
                        *bufptr++='\'';
                } else if (shell==TCSH && *argptr=='!') {
                        /* Exclamation mark: replace it with: \! */
                        *bufptr++='\'';
                        *bufptr++='\\';
                        *bufptr++='!';
                        *bufptr++='\'';
                } else if (shell==TCSH && *argptr=='\n') {
                        /* Newline: replace it with: \n */
                        *bufptr++='\\';
                        *bufptr++='n';
                } else if (shell==TCSH && isspace(*argptr)) {
                        /* Non-newline whitespace: replace it with \<ws> */
                        *bufptr++='\'';
                        *bufptr++='\\';
                        *bufptr++=*argptr;
                        *bufptr++='\'';
                } else
                        /* Just copy */
                        *bufptr++=*argptr;
                argptr++;
        }
        *bufptr++='\'';
        *bufptr++='\0';
        return BUFFER;
}

/* 
 * Generate the output. argv[0] is the program name (used for reporting errors).
 * argv[1..] contains the options to be parsed. argc must be the number of
 * elements in argv (ie. 1 if there are no options, only the program name),
 * optstr must contain the short options, and longopts the long options.
 * Other settings are found in global variables.
 */
int generate_output(char * argv[],int argc,const char *optstr,
                    const struct option *longopts)
{
        int exit_code = 0; /* We assume everything will be OK */
        int opt;
        int longindex;
        const char *charptr;

        if (quiet_errors) /* No error reporting from getopt(3) */
                opterr=0;
        optind=0; /* Reset getopt(3) */

        while ((opt = (alternative?
                      getopt_long_only(argc,argv,optstr,longopts,&longindex):
                      getopt_long(argc,argv,optstr,longopts,&longindex))) 
               != EOF) 
                if (opt == '?' || opt == ':' )
                        exit_code = 1;
                else if (!quiet_output) 
                {
                        if (opt == LONG_OPT) {
                                printf(" --%s",longopts[longindex].name);
                                if (longopts[longindex].has_arg) 
                                        printf(" %s",
                                               normalize(optarg?optarg:""));
                        } else if (opt == NON_OPT) 
                                printf(" %s",normalize(optarg)); 
                        else {
                                printf(" -%c",opt);
                                charptr = strchr(optstr,opt);
                                if (charptr != NULL && *++charptr == ':')
                                        printf(" %s",
                                               normalize(optarg?optarg:""));
                        }
                }
        
        if (! quiet_output) {
                printf(" --");
                while (optind < argc) 
                        printf(" %s",normalize(argv[optind++]));
                printf("\n");
        }
        return exit_code;
}

/*
 * Report an error when parsing getopt's own arguments.
 * If message is NULL, we already sent a message, we just exit with a helpful
 * hint.
 */
void parse_error(const char *message)
{
        if (message)
                fprintf(stderr,"getopt: %s\n",message);
        fputs(_("Try `getopt --help' for more information.\n"),stderr);
        exit(2);
}

static struct option *long_options=NULL;
static int long_options_length=0; /* Length of array */
static int long_options_nr=0; /* Nr of used elements in array */
#define LONG_OPTIONS_INCR 10
#define init_longopt() add_longopt(NULL,0)

/* Register a long option. The contents of name is copied. */
void add_longopt(const char *name,int has_arg)
{
        char *tmp;
        if (!name) { /* init */
                free(long_options);
                long_options=NULL;
                long_options_length=0;
                long_options_nr=0;
        }

        if (long_options_nr == long_options_length) {
                long_options_length += LONG_OPTIONS_INCR;
                long_options=our_realloc(long_options,
                                         sizeof(struct option) * 
                                           long_options_length);
        }

        long_options[long_options_nr].name=NULL;
        long_options[long_options_nr].has_arg=0;
        long_options[long_options_nr].flag=NULL;
        long_options[long_options_nr].val=0;

        if (long_options_nr) { /* Not for init! */
                long_options[long_options_nr-1].has_arg=has_arg;
                long_options[long_options_nr-1].flag=NULL;
                long_options[long_options_nr-1].val=LONG_OPT;
                tmp = our_malloc(strlen(name)+1);
                strcpy(tmp,name);
                long_options[long_options_nr-1].name=tmp;
        }
        long_options_nr++;
}
        

/* 
 * Register several long options. options is a string of long options, 
 * separated by commas or whitespace. 
 * This nukes options! 
 */
void add_long_options(char *options)
{
        int arg_opt;
        char *tokptr=strtok(options,", \t\n");
        while (tokptr) {
                arg_opt=no_argument;
                if (strlen(tokptr) > 0) {
                        if (tokptr[strlen(tokptr)-1] == ':') {
                                if (tokptr[strlen(tokptr)-2] == ':') {
                                        tokptr[strlen(tokptr)-2]='\0';
                                        arg_opt=optional_argument;
                                } else {
                                        tokptr[strlen(tokptr)-1]='\0';
                                        arg_opt=required_argument;
                                }
                                if (strlen(tokptr) == 0)
                                        parse_error(_("empty long option after "
                                                      "-l or --long argument"));
                        }
                        add_longopt(tokptr,arg_opt);
                }
                tokptr=strtok(NULL,", \t\n");
        }
}

void set_shell(const char *new_shell)
{
        if (!strcmp(new_shell,"bash"))
                shell=BASH;
        else if (!strcmp(new_shell,"tcsh"))
                shell=TCSH;
        else if (!strcmp(new_shell,"sh"))
                shell=BASH;
        else if (!strcmp(new_shell,"csh"))
                shell=TCSH;
        else
                parse_error(_("unknown shell after -s or --shell argument"));
}

void print_help(void)
{
        fputs(_("Usage: getopt optstring parameters\n"),stderr);
        fputs(_("       getopt [options] [--] optstring parameters\n"),stderr);
        fputs(_("       getopt [options] -o|--options optstring [options] [--]\n"),stderr);
        fputs(_("              parameters\n"),stderr);
        fputs(_("  -a, --alternative            Allow long options starting with single -\n"),stderr);
        fputs(_("  -h, --help                   This small usage guide\n"),stderr);
        fputs(_("  -l, --longoptions=longopts   Long options to be recognized\n"),stderr);
        fputs(_("  -n, --name=progname          The name under which errors are reported\n"),stderr);
        fputs(_("  -o, --options=optstring      Short options to be recognized\n"),stderr);
        fputs(_("  -q, --quiet                  Disable error reporting by getopt(3)\n"),stderr);
        fputs(_("  -Q, --quiet-output           No normal output\n"),stderr);
        fputs(_("  -s, --shell=shell            Set shell quoting conventions\n"),stderr);      
        fputs(_("  -T, --test                   Test for getopt(1) version\n"),stderr);
        fputs(_("  -u, --unqote                 Do not quote the output\n"),stderr);
        fputs(_("  -V, --version                Output version information\n"),stderr);
        exit(2);
}
        
/* Exit codes:
 *   0) No errors, succesful operation.
 *   1) getopt(3) returned an error.
 *   2) A problem with parameter parsing for getopt(1).
 *   3) Internal error, out of memory
 *   4) Returned for -T
 */

static struct option longopts[]={ {"options",required_argument,NULL,'o'},
                                  {"longoptions",required_argument,NULL,'l'},
                                  {"quiet",no_argument,NULL,'q'},
                                  {"quiet-output",no_argument,NULL,'Q'},
                                  {"shell",required_argument,NULL,'s'},
                                  {"test",no_argument,NULL,'T'},
                                  {"unquoted",no_argument,NULL,'u'},
                                  {"help",no_argument,NULL,'h'},
                                  {"alternative",no_argument,NULL,'a'},
                                  {"name",required_argument,NULL,'n'},
                                  {"version",no_argument,NULL,'V'},
                                  {NULL,0,NULL,0}
                                };

/* Stop scanning as soon as a non-option argument is found! */
static const char *shortopts="+ao:l:n:qQs:TuhV";

int main(int argc, char *argv[])
{
        char *optstr=NULL;
        char *name=NULL;
        int opt;
        int compatible=0;

#if WITHOUT_GETTEXT
#else
        setlocale(LC_ALL,"");
        bindtextdomain(PACKAGE, LOCALEDIR);
        textdomain(PACKAGE);
#endif

        init_longopt();

        if (getenv("GETOPT_COMPATIBLE")) 
                compatible=1;

        if (argc == 1) 
        {
                if (compatible) {
                        /* For some reason, the original getopt gave no error
                           when there were no arguments. */
                        printf(" --\n");
                        exit(0);
                }
                else
                        parse_error(_("missing optstring argument"));
        }
        
        if (argv[1][0] != '-' || compatible) {
                quote=0;
                optstr=our_malloc(strlen(argv[1])+1);
                strcpy(optstr,argv[1]+strspn(argv[1],"-+"));
                argv[1]=argv[0];
                exit(generate_output(argv+1,argc-1,optstr,long_options));
        }
        
        while ((opt=getopt_long(argc,argv,shortopts,longopts,NULL)) != EOF) 
                switch (opt) {
                case 'a':
                        alternative=1;
                        break;
                case 'h':
                        print_help();
                        exit(0);
                case 'o':
                        if (optstr)
                                free(optstr);
                        optstr=our_malloc(strlen(optarg)+1);
                        strcpy(optstr,optarg);
                        break;
                case 'l':
                        add_long_options(optarg);
                        break;
                case 'n':
                        if (name)
                                free(name);
                        name=our_malloc(strlen(optarg)+1);
                        strcpy(name,optarg);
                        break;
                case 'q':
                        quiet_errors=1;
                        break;
                case 'Q':
                        quiet_output=1;
                        break;
                case 's':
                        set_shell(optarg);
                        break;
                case 'T':
                        exit(4);
                case 'u':
                        quote=0;
                        break;
                case 'V':
                        printf(_("getopt (enhanced) 1.1.3\n"));
                        exit(0);
                case '?':
                case ':':
                        parse_error(NULL);
                default:
                        parse_error(_("internal error, contact the author."));
                }
        
        if (!optstr) 
        {
                if (optind >= argc)
                        parse_error(_("missing optstring argument"));
                else {
                        optstr=our_malloc(strlen(argv[optind])+1);
                        strcpy(optstr,argv[optind]);
                        optind++;
                }
        }
        if (name)
                argv[optind-1]=name;
        else
                argv[optind-1]=argv[0];
        exit(generate_output(argv+optind-1,argc-optind+1,optstr,long_options));
}
1	frodo	259	/*
2			getopt.c - Enhanced implementation of BSD getopt(1)
3			Copyright (c) 1997, 1998, 1999, 2000 Frodo Looijaard <frodol@dds.nl>
4
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
15			You should have received a copy of the GNU General Public License
16			along with this program; if not, write to the Free Software
17			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18			*/
19
20			/*
21			* Version 1.0-b4: Tue Sep 23 1997. First public release.
22			* Version 1.0: Wed Nov 19 1997.
23			* Bumped up the version number to 1.0
24			* Fixed minor typo (CSH instead of TCSH)
25			* Version 1.0.1: Tue Jun 3 1998
26			* Fixed sizeof instead of strlen bug
27			* Bumped up the version number to 1.0.1
28			* Version 1.0.2: Thu Jun 11 1998 (not present)
29			* Fixed gcc-2.8.1 warnings
30			* Fixed --version/-V option (not present)
31			* Version 1.0.5: Tue Jun 22 1999
32			* Make -u option work (not present)
33			* Version 1.0.6: Tue Jun 27 2000
34			* No important changes
35			* Version 1.1.0: Tue Jun 30 2000
36			* Added NLS support (partly written by Arkadiusz Mi<B6>kiewicz
37			* <misiek@pld.org.pl>)
38			*/
39
40			#include <stdio.h>
41			#include <stdlib.h>
42			#include <string.h>
43			#include <unistd.h>
44			#include <ctype.h>
45
46			#if LIBCGETOPT
47			#include <getopt.h>
48			#else
49			#include "getopt.h"
50			#endif
51
52			#include "nls.h"
53
54			/* NON_OPT is the code that is returned when a non-option is found in '+'
55			mode */
56			#define NON_OPT 1
57			/* LONG_OPT is the code that is returned when a long option is found. */
58			#define LONG_OPT 2
59
60			/* The shells recognized. */
61			typedef enum {BASH,TCSH} shell_t;
62
63
64			/* Some global variables that tells us how to parse. */
65			shell_t shell=BASH; /* The shell we generate output for. */
66			int quiet_errors=0; /* 0 is not quiet. */
67			int quiet_output=0; /* 0 is not quiet. */
68			int quote=1; /* 1 is do quote. */
69			int alternative=0; /* 0 is getopt_long, 1 is getopt_long_only */
70
71			/* Function prototypes */
72			void *our_malloc(size_t size);
73			void our_realloc(void ptr, size_t size);
74			const char normalize(const char arg);
75			int generate_output(char * argv[],int argc,const char *optstr,
76			const struct option *longopts);
77			int main(int argc, char *argv[]);
78			void parse_error(const char *message);
79			void add_long_options(char *options);
80			void add_longopt(const char *name,int has_arg);
81			void print_help(void);
82			void set_shell(const char *new_shell);
83			void set_initial_shell(void);
84
85			void *our_malloc(size_t size)
86			{
87			void *ret=malloc(size);
88			if (! ret) {
89			fprintf(stderr,_("%s: Out of memory!\n"),"getopt");
90			exit(3);
91			}
92			return(ret);
93			}
94
95			void our_realloc(void ptr, size_t size)
96			{
97			void *ret=realloc(ptr,size);
98			if (! ret && size) {
99			fprintf(stderr,_("%s: Out of memory!\n"),"getopt");
100			exit(3);
101			}
102			return(ret);
103			}
104
105			/*
106			* This function 'normalizes' a single argument: it puts single quotes around
107			* it and escapes other special characters. If quote is false, it just
108			* returns its argument.
109			* Bash only needs special treatment for single quotes; tcsh also recognizes
110			* exclamation marks within single quotes, and nukes whitespace.
111			* This function returns a pointer to a buffer that is overwritten by
112			* each call.
113			*/
114			const char normalize(const char arg)
115			{
116			static char *BUFFER=NULL;
117			const char *argptr=arg;
118			char *bufptr;
119
120			if (BUFFER != NULL)
121			free(BUFFER);
122
123			if (!quote) { /* Just copy arg */
124			BUFFER=our_malloc(strlen(arg)+1);
125
126			strcpy(BUFFER,arg);
127			return BUFFER;
128			}
129
130			/* Each character in arg may take upto four characters in the result:
131			For a quote we need a closing quote, a backslash, a quote and an
132			opening quote! We need also the global opening and closing quote,
133			and one extra character for '\0'. */
134			BUFFER=our_malloc(strlen(arg)*4+3);
135
136			bufptr=BUFFER;
137			*bufptr++='\'';
138
139			while (*argptr) {
140			if (*argptr == '\'') {
141			/* Quote: replace it with: '\'' */
142			*bufptr++='\'';
143			*bufptr++='\\';
144			*bufptr++='\'';
145			*bufptr++='\'';
146			} else if (shell==TCSH && *argptr=='!') {
147			/* Exclamation mark: replace it with: \! */
148			*bufptr++='\'';
149			*bufptr++='\\';
150			*bufptr++='!';
151			*bufptr++='\'';
152			} else if (shell==TCSH && *argptr=='\n') {
153			/* Newline: replace it with: \n */
154			*bufptr++='\\';
155			*bufptr++='n';
156			} else if (shell==TCSH && isspace(*argptr)) {
157			/* Non-newline whitespace: replace it with \<ws> */
158			*bufptr++='\'';
159			*bufptr++='\\';
160			bufptr++=argptr;
161			*bufptr++='\'';
162			} else
163			/* Just copy */
164			bufptr++=argptr;
165			argptr++;
166			}
167			*bufptr++='\'';
168			*bufptr++='\0';
169			return BUFFER;
170			}
171
172			/*
173			* Generate the output. argv[0] is the program name (used for reporting errors).
174			* argv[1..] contains the options to be parsed. argc must be the number of
175			* elements in argv (ie. 1 if there are no options, only the program name),
176			* optstr must contain the short options, and longopts the long options.
177			* Other settings are found in global variables.
178			*/
179			int generate_output(char * argv[],int argc,const char *optstr,
180			const struct option *longopts)
181			{
182			int exit_code = 0; /* We assume everything will be OK */
183			int opt;
184			int longindex;
185			const char *charptr;
186
187			if (quiet_errors) /* No error reporting from getopt(3) */
188			opterr=0;
189			optind=0; /* Reset getopt(3) */
190
191			while ((opt = (alternative?
192			getopt_long_only(argc,argv,optstr,longopts,&longindex):
193			getopt_long(argc,argv,optstr,longopts,&longindex)))
194			!= EOF)
195			if (opt == '?' \|\| opt == ':' )
196			exit_code = 1;
197			else if (!quiet_output)
198			{
199			if (opt == LONG_OPT) {
200			printf(" --%s",longopts[longindex].name);
201			if (longopts[longindex].has_arg)
202			printf(" %s",
203			normalize(optarg?optarg:""));
204			} else if (opt == NON_OPT)
205			printf(" %s",normalize(optarg));
206			else {
207			printf(" -%c",opt);
208			charptr = strchr(optstr,opt);
209			if (charptr != NULL && *++charptr == ':')
210			printf(" %s",
211			normalize(optarg?optarg:""));
212			}
213			}
214
215			if (! quiet_output) {
216			printf(" --");
217			while (optind < argc)
218			printf(" %s",normalize(argv[optind++]));
219			printf("\n");
220			}
221			return exit_code;
222			}
223
224			/*
225			* Report an error when parsing getopt's own arguments.
226			* If message is NULL, we already sent a message, we just exit with a helpful
227			* hint.
228			*/
229			void parse_error(const char *message)
230			{
231			if (message)
232			fprintf(stderr,"getopt: %s\n",message);
233			fputs(_("Try `getopt --help' for more information.\n"),stderr);
234			exit(2);
235			}
236
237			static struct option *long_options=NULL;
238			static int long_options_length=0; /* Length of array */
239			static int long_options_nr=0; /* Nr of used elements in array */
240			#define LONG_OPTIONS_INCR 10
241			#define init_longopt() add_longopt(NULL,0)
242
243			/* Register a long option. The contents of name is copied. */
244			void add_longopt(const char *name,int has_arg)
245			{
246			char *tmp;
247			if (!name) { /* init */
248			free(long_options);
249			long_options=NULL;
250			long_options_length=0;
251			long_options_nr=0;
252			}
253
254			if (long_options_nr == long_options_length) {
255			long_options_length += LONG_OPTIONS_INCR;
256			long_options=our_realloc(long_options,
257			sizeof(struct option) *
258			long_options_length);
259			}
260
261			long_options[long_options_nr].name=NULL;
262			long_options[long_options_nr].has_arg=0;
263			long_options[long_options_nr].flag=NULL;
264			long_options[long_options_nr].val=0;
265
266			if (long_options_nr) { /* Not for init! */
267			long_options[long_options_nr-1].has_arg=has_arg;
268			long_options[long_options_nr-1].flag=NULL;
269			long_options[long_options_nr-1].val=LONG_OPT;
270			tmp = our_malloc(strlen(name)+1);
271			strcpy(tmp,name);
272			long_options[long_options_nr-1].name=tmp;
273			}
274			long_options_nr++;
275			}
276
277
278			/*
279			* Register several long options. options is a string of long options,
280			* separated by commas or whitespace.
281			* This nukes options!
282			*/
283			void add_long_options(char *options)
284			{
285			int arg_opt;
286			char *tokptr=strtok(options,", \t\n");
287			while (tokptr) {
288			arg_opt=no_argument;
289			if (strlen(tokptr) > 0) {
290			if (tokptr[strlen(tokptr)-1] == ':') {
291			if (tokptr[strlen(tokptr)-2] == ':') {
292			tokptr[strlen(tokptr)-2]='\0';
293			arg_opt=optional_argument;
294			} else {
295			tokptr[strlen(tokptr)-1]='\0';
296			arg_opt=required_argument;
297			}
298			if (strlen(tokptr) == 0)
299			parse_error(_("empty long option after "
300			"-l or --long argument"));
301			}
302			add_longopt(tokptr,arg_opt);
303			}
304			tokptr=strtok(NULL,", \t\n");
305			}
306			}
307
308			void set_shell(const char *new_shell)
309			{
310			if (!strcmp(new_shell,"bash"))
311			shell=BASH;
312			else if (!strcmp(new_shell,"tcsh"))
313			shell=TCSH;
314			else if (!strcmp(new_shell,"sh"))
315			shell=BASH;
316			else if (!strcmp(new_shell,"csh"))
317			shell=TCSH;
318			else
319			parse_error(_("unknown shell after -s or --shell argument"));
320			}
321
322			void print_help(void)
323			{
324			fputs(_("Usage: getopt optstring parameters\n"),stderr);
325			fputs(_(" getopt [options] [--] optstring parameters\n"),stderr);
326			fputs(_(" getopt [options] -o\|--options optstring [options] [--]\n"),stderr);
327			fputs(_(" parameters\n"),stderr);
328			fputs(_(" -a, --alternative Allow long options starting with single -\n"),stderr);
329			fputs(_(" -h, --help This small usage guide\n"),stderr);
330			fputs(_(" -l, --longoptions=longopts Long options to be recognized\n"),stderr);
331			fputs(_(" -n, --name=progname The name under which errors are reported\n"),stderr);
332			fputs(_(" -o, --options=optstring Short options to be recognized\n"),stderr);
333			fputs(_(" -q, --quiet Disable error reporting by getopt(3)\n"),stderr);
334			fputs(_(" -Q, --quiet-output No normal output\n"),stderr);
335			fputs(_(" -s, --shell=shell Set shell quoting conventions\n"),stderr);
336			fputs(_(" -T, --test Test for getopt(1) version\n"),stderr);
337			fputs(_(" -u, --unqote Do not quote the output\n"),stderr);
338			fputs(_(" -V, --version Output version information\n"),stderr);
339			exit(2);
340			}
341
342			/* Exit codes:
343			* 0) No errors, succesful operation.
344			* 1) getopt(3) returned an error.
345			* 2) A problem with parameter parsing for getopt(1).
346			* 3) Internal error, out of memory
347			* 4) Returned for -T
348			*/
349
350			static struct option longopts[]={ {"options",required_argument,NULL,'o'},
351			{"longoptions",required_argument,NULL,'l'},
352			{"quiet",no_argument,NULL,'q'},
353			{"quiet-output",no_argument,NULL,'Q'},
354			{"shell",required_argument,NULL,'s'},
355			{"test",no_argument,NULL,'T'},
356			{"unquoted",no_argument,NULL,'u'},
357			{"help",no_argument,NULL,'h'},
358			{"alternative",no_argument,NULL,'a'},
359			{"name",required_argument,NULL,'n'},
360			{"version",no_argument,NULL,'V'},
361			{NULL,0,NULL,0}
362			};
363
364			/* Stop scanning as soon as a non-option argument is found! */
365			static const char *shortopts="+ao:l:n:qQs:TuhV";
366
367			int main(int argc, char *argv[])
368			{
369			char *optstr=NULL;
370			char *name=NULL;
371			int opt;
372			int compatible=0;
373
374			#if WITHOUT_GETTEXT
375			#else
376			setlocale(LC_ALL,"");
377			bindtextdomain(PACKAGE, LOCALEDIR);
378			textdomain(PACKAGE);
379			#endif
380
381			init_longopt();
382
383			if (getenv("GETOPT_COMPATIBLE"))
384			compatible=1;
385
386			if (argc == 1)
387			{
388			if (compatible) {
389			/* For some reason, the original getopt gave no error
390			when there were no arguments. */
391			printf(" --\n");
392			exit(0);
393			}
394			else
395			parse_error(_("missing optstring argument"));
396			}
397
398			if (argv[1][0] != '-' \|\| compatible) {
399			quote=0;
400			optstr=our_malloc(strlen(argv[1])+1);
401			strcpy(optstr,argv[1]+strspn(argv[1],"-+"));
402			argv[1]=argv[0];
403			exit(generate_output(argv+1,argc-1,optstr,long_options));
404			}
405
406			while ((opt=getopt_long(argc,argv,shortopts,longopts,NULL)) != EOF)
407			switch (opt) {
408			case 'a':
409			alternative=1;
410			break;
411			case 'h':
412			print_help();
413			exit(0);
414			case 'o':
415			if (optstr)
416			free(optstr);
417			optstr=our_malloc(strlen(optarg)+1);
418			strcpy(optstr,optarg);
419			break;
420			case 'l':
421			add_long_options(optarg);
422			break;
423			case 'n':
424			if (name)
425			free(name);
426			name=our_malloc(strlen(optarg)+1);
427			strcpy(name,optarg);
428			break;
429			case 'q':
430			quiet_errors=1;
431			break;
432			case 'Q':
433			quiet_output=1;
434			break;
435			case 's':
436			set_shell(optarg);
437			break;
438			case 'T':
439			exit(4);
440			case 'u':
441			quote=0;
442			break;
443			case 'V':
444			printf(_("getopt (enhanced) 1.1.3\n"));
445			exit(0);
446			case '?':
447			case ':':
448			parse_error(NULL);
449			default:
450			parse_error(_("internal error, contact the author."));
451			}
452
453			if (!optstr)
454			{
455			if (optind >= argc)
456			parse_error(_("missing optstring argument"));
457			else {
458			optstr=our_malloc(strlen(argv[optind])+1);
459			strcpy(optstr,argv[optind]);
460			optind++;
461			}
462			}
463			if (name)
464			argv[optind-1]=name;
465			else
466			argv[optind-1]=argv[0];
467			exit(generate_output(argv+optind-1,argc-optind+1,optstr,long_options));
468			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26