|
|
@ -1,267 +1,230 @@ |
|
|
|
/*****************************************************************************
|
|
|
|
/* Copyright (c) 2012, Kim Gräsman
|
|
|
|
* getopt.c - competent and free getopt library. |
|
|
|
* All rights reserved. |
|
|
|
* $Header: /cvsroot/freegetopt/freegetopt/getopt.c,v 1.2 2003/10/26 03:10:20 vindaci Exp $ |
|
|
|
|
|
|
|
* |
|
|
|
|
|
|
|
* Copyright (c)2002-2003 Mark K. Kim |
|
|
|
|
|
|
|
* All rights reserved. |
|
|
|
|
|
|
|
*
|
|
|
|
|
|
|
|
* Redistribution and use in source and binary forms, with or without |
|
|
|
|
|
|
|
* modification, are permitted provided that the following conditions |
|
|
|
|
|
|
|
* are met: |
|
|
|
|
|
|
|
* |
|
|
|
|
|
|
|
* * Redistributions of source code must retain the above copyright |
|
|
|
|
|
|
|
* notice, this list of conditions and the following disclaimer. |
|
|
|
|
|
|
|
* |
|
|
|
|
|
|
|
* * Redistributions in binary form must reproduce the above copyright |
|
|
|
|
|
|
|
* notice, this list of conditions and the following disclaimer in |
|
|
|
|
|
|
|
* the documentation and/or other materials provided with the |
|
|
|
|
|
|
|
* distribution. |
|
|
|
|
|
|
|
* |
|
|
|
|
|
|
|
* * Neither the original author of this software nor the names of its |
|
|
|
|
|
|
|
* contributors may be used to endorse or promote products derived |
|
|
|
|
|
|
|
* from this software without specific prior written permission. |
|
|
|
|
|
|
|
* |
|
|
|
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
|
|
|
|
|
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
|
|
|
|
|
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
|
|
|
|
|
|
|
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
|
|
|
|
|
|
|
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
|
|
|
|
|
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
|
|
|
|
|
|
|
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS |
|
|
|
|
|
|
|
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
|
|
|
|
|
|
|
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, |
|
|
|
|
|
|
|
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF |
|
|
|
|
|
|
|
* THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH |
|
|
|
|
|
|
|
* DAMAGE. |
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
#ifndef _CRT_SECURE_NO_WARNINGS |
|
|
|
|
|
|
|
#define _CRT_SECURE_NO_WARNINGS |
|
|
|
|
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include <stdio.h> |
|
|
|
|
|
|
|
#include <stdlib.h> |
|
|
|
|
|
|
|
#include <string.h> |
|
|
|
|
|
|
|
#include "getopt.h" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* 2013-01-06 Camilla Berglund <elmindreda@elmindreda.org>
|
|
|
|
|
|
|
|
*
|
|
|
|
|
|
|
|
* Only define _CRT_SECURE_NO_WARNINGS if not already defined. |
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
/* 2012-08-12 Lambert Clara <lambert.clara@yahoo.fr>
|
|
|
|
|
|
|
|
* |
|
|
|
* |
|
|
|
* Constify third argument of getopt. |
|
|
|
* Redistribution and use in source and binary forms, with or without |
|
|
|
*/ |
|
|
|
* modification, are permitted provided that the following conditions are met: |
|
|
|
/* 2011-07-27 Camilla Berglund <elmindreda@elmindreda.org>
|
|
|
|
* * Redistributions of source code must retain the above copyright notice, |
|
|
|
*
|
|
|
|
* this list of conditions and the following disclaimer. |
|
|
|
* Added _CRT_SECURE_NO_WARNINGS macro. |
|
|
|
* * Redistributions in binary form must reproduce the above copyright notice, |
|
|
|
*/ |
|
|
|
* this list of conditions and the following disclaimer in the documentation |
|
|
|
/* 2009-10-12 Camilla Berglund <elmindreda@elmindreda.org>
|
|
|
|
* and/or other materials provided with the distribution. |
|
|
|
|
|
|
|
* * Neither the name of Kim Gräsman nor the names of contributors may be used |
|
|
|
|
|
|
|
* to endorse or promote products derived from this software without specific |
|
|
|
|
|
|
|
* prior written permission. |
|
|
|
* |
|
|
|
* |
|
|
|
* Removed unused global static variable 'ID'. |
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
|
|
|
|
|
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
|
|
|
|
|
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
|
|
|
|
|
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL KIM GRÄSMAN BE LIABLE FOR ANY DIRECT, |
|
|
|
|
|
|
|
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
|
|
|
|
|
|
|
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
|
|
|
|
|
|
|
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
|
|
|
|
|
|
|
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
|
|
|
|
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
|
|
|
|
|
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
|
|
*/ |
|
|
|
*/ |
|
|
|
|
|
|
|
|
|
|
|
char* optarg = NULL; |
|
|
|
#include "getopt.h" |
|
|
|
int optind = 0; |
|
|
|
|
|
|
|
int opterr = 1; |
|
|
|
|
|
|
|
int optopt = '?'; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static char** prev_argv = NULL; /* Keep a copy of argv and argc to */ |
|
|
|
|
|
|
|
static int prev_argc = 0; /* tell if getopt params change */ |
|
|
|
|
|
|
|
static int argv_index = 0; /* Option we're checking */ |
|
|
|
|
|
|
|
static int argv_index2 = 0; /* Option argument we're checking */ |
|
|
|
|
|
|
|
static int opt_offset = 0; /* Index into compounded "-option" */ |
|
|
|
|
|
|
|
static int dashdash = 0; /* True if "--" option reached */ |
|
|
|
|
|
|
|
static int nonopt = 0; /* How many nonopts we've found */ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void increment_index() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* Move onto the next option */ |
|
|
|
|
|
|
|
if(argv_index < argv_index2) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
while(prev_argv[++argv_index] && prev_argv[argv_index][0] != '-' |
|
|
|
|
|
|
|
&& argv_index < argv_index2+1); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
else argv_index++; |
|
|
|
|
|
|
|
opt_offset = 1; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include <stddef.h> |
|
|
|
|
|
|
|
#include <string.h> |
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
const int no_argument = 0; |
|
|
|
* Permutes argv[] so that the argument currently being processed is moved |
|
|
|
const int required_argument = 1; |
|
|
|
* to the end. |
|
|
|
const int optional_argument = 2; |
|
|
|
*/ |
|
|
|
|
|
|
|
static int permute_argv_once() |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* Movability check */ |
|
|
|
|
|
|
|
if(argv_index + nonopt >= prev_argc) return 1; |
|
|
|
|
|
|
|
/* Move the current option to the end, bring the others to front */ |
|
|
|
|
|
|
|
else |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
char* tmp = prev_argv[argv_index]; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Move the data */ |
|
|
|
|
|
|
|
memmove(&prev_argv[argv_index], &prev_argv[argv_index+1], |
|
|
|
|
|
|
|
sizeof(char**) * (prev_argc - argv_index - 1)); |
|
|
|
|
|
|
|
prev_argv[prev_argc - 1] = tmp; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
nonopt++; |
|
|
|
|
|
|
|
return 0; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
char* optarg; |
|
|
|
|
|
|
|
int optopt; |
|
|
|
|
|
|
|
/* The variable optind [...] shall be initialized to 1 by the system. */ |
|
|
|
|
|
|
|
int optind = 1; |
|
|
|
|
|
|
|
int opterr; |
|
|
|
|
|
|
|
|
|
|
|
int getopt(int argc, char** argv, const char* optstr) |
|
|
|
static char* optcursor = NULL; |
|
|
|
{ |
|
|
|
|
|
|
|
int c = 0; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If we have new argv, reinitialize */ |
|
|
|
|
|
|
|
if(prev_argv != argv || prev_argc != argc) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* Initialize variables */ |
|
|
|
|
|
|
|
prev_argv = argv; |
|
|
|
|
|
|
|
prev_argc = argc; |
|
|
|
|
|
|
|
argv_index = 1; |
|
|
|
|
|
|
|
argv_index2 = 1; |
|
|
|
|
|
|
|
opt_offset = 1; |
|
|
|
|
|
|
|
dashdash = 0; |
|
|
|
|
|
|
|
nonopt = 0; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Jump point in case we want to ignore the current argv_index */ |
|
|
|
/* Implemented based on [1] and [2] for optional arguments.
|
|
|
|
getopt_top: |
|
|
|
optopt is handled FreeBSD-style, per [3]. |
|
|
|
|
|
|
|
Other GNU and FreeBSD extensions are purely accidental. |
|
|
|
|
|
|
|
|
|
|
|
/* Misc. initializations */ |
|
|
|
[1] http://pubs.opengroup.org/onlinepubs/000095399/functions/getopt.html
|
|
|
|
optarg = NULL; |
|
|
|
[2] http://www.kernel.org/doc/man-pages/online/pages/man3/getopt.3.html
|
|
|
|
|
|
|
|
[3] http://www.freebsd.org/cgi/man.cgi?query=getopt&sektion=3&manpath=FreeBSD+9.0-RELEASE
|
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
int getopt(int argc, char* const argv[], const char* optstring) { |
|
|
|
|
|
|
|
int optchar = -1; |
|
|
|
|
|
|
|
const char* optdecl = NULL; |
|
|
|
|
|
|
|
|
|
|
|
/* Dash-dash check */ |
|
|
|
optarg = NULL; |
|
|
|
if(argv[argv_index] && !strcmp(argv[argv_index], "--")) |
|
|
|
opterr = 0; |
|
|
|
{ |
|
|
|
optopt = 0; |
|
|
|
dashdash = 1; |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
/* Unspecified, but we need it to avoid overrunning the argv bounds. */ |
|
|
|
|
|
|
|
if (optind >= argc) |
|
|
|
|
|
|
|
goto no_more_optchars; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If, when getopt() is called argv[optind] is a null pointer, getopt()
|
|
|
|
|
|
|
|
shall return -1 without changing optind. */ |
|
|
|
|
|
|
|
if (argv[optind] == NULL) |
|
|
|
|
|
|
|
goto no_more_optchars; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If, when getopt() is called *argv[optind] is not the character '-',
|
|
|
|
|
|
|
|
getopt() shall return -1 without changing optind. */ |
|
|
|
|
|
|
|
if (*argv[optind] != '-') |
|
|
|
|
|
|
|
goto no_more_optchars; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If, when getopt() is called argv[optind] points to the string "-",
|
|
|
|
|
|
|
|
getopt() shall return -1 without changing optind. */ |
|
|
|
|
|
|
|
if (strcmp(argv[optind], "-") == 0) |
|
|
|
|
|
|
|
goto no_more_optchars; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If, when getopt() is called argv[optind] points to the string "--",
|
|
|
|
|
|
|
|
getopt() shall return -1 after incrementing optind. */ |
|
|
|
|
|
|
|
if (strcmp(argv[optind], "--") == 0) { |
|
|
|
|
|
|
|
++optind; |
|
|
|
|
|
|
|
goto no_more_optchars; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (optcursor == NULL || *optcursor == '\0') |
|
|
|
|
|
|
|
optcursor = argv[optind] + 1; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
optchar = *optcursor; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* FreeBSD: The variable optopt saves the last known option character
|
|
|
|
|
|
|
|
returned by getopt(). */ |
|
|
|
|
|
|
|
optopt = optchar; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* The getopt() function shall return the next option character (if one is
|
|
|
|
|
|
|
|
found) from argv that matches a character in optstring, if there is |
|
|
|
|
|
|
|
one that matches. */ |
|
|
|
|
|
|
|
optdecl = strchr(optstring, optchar); |
|
|
|
|
|
|
|
if (optdecl) { |
|
|
|
|
|
|
|
/* [I]f a character is followed by a colon, the option takes an
|
|
|
|
|
|
|
|
argument. */ |
|
|
|
|
|
|
|
if (optdecl[1] == ':') { |
|
|
|
|
|
|
|
optarg = ++optcursor; |
|
|
|
|
|
|
|
if (*optarg == '\0') { |
|
|
|
|
|
|
|
/* GNU extension: Two colons mean an option takes an
|
|
|
|
|
|
|
|
optional arg; if there is text in the current argv-element |
|
|
|
|
|
|
|
(i.e., in the same word as the option name itself, for example, |
|
|
|
|
|
|
|
"-oarg"), then it is returned in optarg, otherwise optarg is set |
|
|
|
|
|
|
|
to zero. */ |
|
|
|
|
|
|
|
if (optdecl[2] != ':') { |
|
|
|
|
|
|
|
/* If the option was the last character in the string pointed to by
|
|
|
|
|
|
|
|
an element of argv, then optarg shall contain the next element |
|
|
|
|
|
|
|
of argv, and optind shall be incremented by 2. If the resulting |
|
|
|
|
|
|
|
value of optind is greater than argc, this indicates a missing |
|
|
|
|
|
|
|
option-argument, and getopt() shall return an error indication. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Otherwise, optarg shall point to the string following the |
|
|
|
|
|
|
|
option character in that element of argv, and optind shall be |
|
|
|
|
|
|
|
incremented by 1. |
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
if (++optind < argc) { |
|
|
|
|
|
|
|
optarg = argv[optind]; |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
/* If it detects a missing option-argument, it shall return the
|
|
|
|
|
|
|
|
colon character ( ':' ) if the first character of optstring |
|
|
|
|
|
|
|
was a colon, or a question-mark character ( '?' ) otherwise. |
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
optarg = NULL; |
|
|
|
|
|
|
|
optchar = (optstring[0] == ':') ? ':' : '?'; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
} else { |
|
|
|
/* If we're at the end of argv, that's it. */ |
|
|
|
optarg = NULL; |
|
|
|
if(argv[argv_index] == NULL) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
c = -1; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
/* Are we looking at a string? Single dash is also a string */ |
|
|
|
|
|
|
|
else if(dashdash || argv[argv_index][0] != '-' || !strcmp(argv[argv_index], "-")) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* If we want a string... */ |
|
|
|
|
|
|
|
if(optstr[0] == '-') |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
c = 1; |
|
|
|
|
|
|
|
optarg = argv[argv_index]; |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
/* If we really don't want it (we're in POSIX mode), we're done */ |
|
|
|
|
|
|
|
else if(optstr[0] == '+' || getenv("POSIXLY_CORRECT")) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
c = -1; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Everything else is a non-opt argument */ |
|
|
|
optcursor = NULL; |
|
|
|
nonopt = argc - argv_index; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
/* If we mildly don't want it, then move it back */ |
|
|
|
|
|
|
|
else |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
if(!permute_argv_once()) goto getopt_top; |
|
|
|
|
|
|
|
else c = -1; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} else { |
|
|
|
/* Otherwise we're looking at an option */ |
|
|
|
/* If getopt() encounters an option character that is not contained in
|
|
|
|
else |
|
|
|
optstring, it shall return the question-mark ( '?' ) character. */ |
|
|
|
{ |
|
|
|
optchar = '?'; |
|
|
|
char* opt_ptr = NULL; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Grab the option */ |
|
|
|
|
|
|
|
c = argv[argv_index][opt_offset++]; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Is the option in the optstr? */ |
|
|
|
|
|
|
|
if(optstr[0] == '-') opt_ptr = strchr(optstr+1, c); |
|
|
|
|
|
|
|
else opt_ptr = strchr(optstr, c); |
|
|
|
|
|
|
|
/* Invalid argument */ |
|
|
|
|
|
|
|
if(!opt_ptr) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
if(opterr) |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
fprintf(stderr, "%s: invalid option -- %c\n", argv[0], c); |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
optopt = c; |
|
|
|
if (optcursor == NULL || *++optcursor == '\0') |
|
|
|
c = '?'; |
|
|
|
++optind; |
|
|
|
|
|
|
|
|
|
|
|
/* Move onto the next option */ |
|
|
|
return optchar; |
|
|
|
increment_index(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
/* Option takes argument */ |
|
|
|
|
|
|
|
else if(opt_ptr[1] == ':') |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* ie, -oARGUMENT, -xxxoARGUMENT, etc. */ |
|
|
|
|
|
|
|
if(argv[argv_index][opt_offset] != '\0') |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
optarg = &argv[argv_index][opt_offset]; |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
/* ie, -o ARGUMENT (only if it's a required argument) */ |
|
|
|
|
|
|
|
else if(opt_ptr[2] != ':') |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* One of those "you're not expected to understand this" moment */ |
|
|
|
|
|
|
|
if(argv_index2 < argv_index) argv_index2 = argv_index; |
|
|
|
|
|
|
|
while(argv[++argv_index2] && argv[argv_index2][0] == '-'); |
|
|
|
|
|
|
|
optarg = argv[argv_index2]; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Don't cross into the non-option argument list */ |
|
|
|
|
|
|
|
if(argv_index2 + nonopt >= prev_argc) optarg = NULL; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Move onto the next option */ |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
else |
|
|
|
|
|
|
|
{ |
|
|
|
|
|
|
|
/* Move onto the next option */ |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* In case we got no argument for an option with required argument */ |
|
|
|
no_more_optchars: |
|
|
|
if(optarg == NULL && opt_ptr[2] != ':') |
|
|
|
optcursor = NULL; |
|
|
|
{ |
|
|
|
return -1; |
|
|
|
optopt = c; |
|
|
|
} |
|
|
|
c = '?'; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if(opterr) |
|
|
|
/* Implementation based on [1].
|
|
|
|
{ |
|
|
|
|
|
|
|
fprintf(stderr,"%s: option requires an argument -- %c\n", |
|
|
|
[1] http://www.kernel.org/doc/man-pages/online/pages/man3/getopt.3.html
|
|
|
|
argv[0], optopt); |
|
|
|
*/ |
|
|
|
} |
|
|
|
int getopt_long(int argc, char* const argv[], const char* optstring, |
|
|
|
} |
|
|
|
const struct option* longopts, int* longindex) { |
|
|
|
} |
|
|
|
const struct option* o = longopts; |
|
|
|
/* Option does not take argument */ |
|
|
|
const struct option* match = NULL; |
|
|
|
else |
|
|
|
int num_matches = 0; |
|
|
|
{ |
|
|
|
size_t argument_name_length = 0; |
|
|
|
/* Next argv_index */ |
|
|
|
const char* current_argument = NULL; |
|
|
|
if(argv[argv_index][opt_offset] == '\0') |
|
|
|
int retval = -1; |
|
|
|
{ |
|
|
|
|
|
|
|
increment_index(); |
|
|
|
optarg = NULL; |
|
|
|
|
|
|
|
optopt = 0; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (optind >= argc) |
|
|
|
|
|
|
|
return -1; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (strlen(argv[optind]) < 3 || strncmp(argv[optind], "--", 2) != 0) |
|
|
|
|
|
|
|
return getopt(argc, argv, optstring); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* It's an option; starts with -- and is longer than two chars. */ |
|
|
|
|
|
|
|
current_argument = argv[optind] + 2; |
|
|
|
|
|
|
|
argument_name_length = strcspn(current_argument, "="); |
|
|
|
|
|
|
|
for (; o->name; ++o) { |
|
|
|
|
|
|
|
if (strncmp(o->name, current_argument, argument_name_length) == 0) { |
|
|
|
|
|
|
|
match = o; |
|
|
|
|
|
|
|
++num_matches; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (num_matches == 1) { |
|
|
|
|
|
|
|
/* If longindex is not NULL, it points to a variable which is set to the
|
|
|
|
|
|
|
|
index of the long option relative to longopts. */ |
|
|
|
|
|
|
|
if (longindex) |
|
|
|
|
|
|
|
*longindex = (match - longopts); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If flag is NULL, then getopt_long() shall return val.
|
|
|
|
|
|
|
|
Otherwise, getopt_long() returns 0, and flag shall point to a variable |
|
|
|
|
|
|
|
which shall be set to val if the option is found, but left unchanged if |
|
|
|
|
|
|
|
the option is not found. */ |
|
|
|
|
|
|
|
if (match->flag) |
|
|
|
|
|
|
|
*(match->flag) = match->val; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
retval = match->flag ? 0 : match->val; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (match->has_arg != no_argument) { |
|
|
|
|
|
|
|
optarg = strchr(argv[optind], '='); |
|
|
|
|
|
|
|
if (optarg != NULL) |
|
|
|
|
|
|
|
++optarg; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (match->has_arg == required_argument) { |
|
|
|
|
|
|
|
/* Only scan the next argv for required arguments. Behavior is not
|
|
|
|
|
|
|
|
specified, but has been observed with Ubuntu and Mac OSX. */ |
|
|
|
|
|
|
|
if (optarg == NULL && ++optind < argc) { |
|
|
|
|
|
|
|
optarg = argv[optind]; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/* Calculate optind */ |
|
|
|
if (optarg == NULL) |
|
|
|
if(c == -1) |
|
|
|
retval = ':'; |
|
|
|
{ |
|
|
|
} |
|
|
|
optind = argc - nonopt; |
|
|
|
} else if (strchr(argv[optind], '=')) { |
|
|
|
|
|
|
|
/* An argument was provided to a non-argument option.
|
|
|
|
|
|
|
|
I haven't seen this specified explicitly, but both GNU and BSD-based |
|
|
|
|
|
|
|
implementations show this behavior. |
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
retval = '?'; |
|
|
|
} |
|
|
|
} |
|
|
|
else |
|
|
|
} else { |
|
|
|
{ |
|
|
|
/* Unknown option or ambiguous match. */ |
|
|
|
optind = argv_index; |
|
|
|
retval = '?'; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
return c; |
|
|
|
++optind; |
|
|
|
|
|
|
|
return retval; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* vim:ts=3
|
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|