freecalypso-reveng: fluid-mnf/getopt.c annotate

annotate fluid-mnf/getopt.c @ 362:b4fb0c7dfdf4

fluid-mnf: added -oC option to use cmd39.m0 for Calypso C05

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 14 Mar 2020 19:44:44 +0000
parents	9cecc930d78f
children

rev	line source
311 9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /* Getopt for GNU.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 NOTE: getopt is now part of the C library, so if you don't know what
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 before changing it!
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 Free Software Foundation, Inc.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 This program is free software; you can redistribute it and/or modify it
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 under the terms of the GNU General Public License as published by the
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 Free Software Foundation; either version 2, or (at your option) any
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 later version.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 This program is distributed in the hope that it will be useful,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 but WITHOUT ANY WARRANTY; without even the implied warranty of
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 GNU General Public License for more details.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 You should have received a copy of the GNU General Public License
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 along with this program; if not, write to the Free Software
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 /* This tells Alpha OSF/1 not to define a getopt prototype in <stdio.h>.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 Ditto for AIX 3.2 and <stdlib.h>. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #ifndef _NO_PROTO
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #define _NO_PROTO
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #endif
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #ifdef HAVE_CONFIG_H
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include "config.h"
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #endif
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #ifndef __STDC__
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /* This is a separate conditional since some stdc systems
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 reject `defined (const)'. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #ifndef const
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #define const
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #endif
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #endif
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include <stdio.h>
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 /* Comment out all this code if we are using the GNU C Library, and are not
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 actually compiling the library itself. This code is part of the GNU C
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 Library, but also included in many other GNU distributions. Compiling
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 and linking in this code is a waste when using the GNU C library
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 (especially if it is a shared library). Rather than having every GNU
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 program understand `configure --with-gnu-libc' and omit the object files,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 it is simpler to just do this in the source for each such file. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 /* This needs to come after some library #include
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 to get __GNU_LIBRARY__ defined. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #ifdef __GNU_LIBRARY__
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 /* Don't include stdlib.h for non-GNU C libraries because some of them
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 contain conflicting prototypes for getopt. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include <stdlib.h>
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #endif /* GNU C library. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 /* This version of `getopt' appears to the caller like standard Unix `getopt'
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 but it behaves differently for the user, since it allows the user
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 to intersperse the options with the other arguments.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 As `getopt' works, it permutes the elements of ARGV so that,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 when it is done, all the options precede everything else. Thus
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 all application programs are extended to handle flexible argument order.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 Setting the environment variable POSIXLY_CORRECT disables permutation.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 Then the behavior is completely standard.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 GNU application programs can use a third alternative mode in which
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 they can distinguish the relative order of options and other arguments. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #include "getopt.h"
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 /* For communication from `getopt' to the caller.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 When `getopt' finds an option that takes an argument,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 the argument value is returned here.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 Also, when `ordering' is RETURN_IN_ORDER,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 each non-option ARGV-element is returned here. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 char *optarg = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 /* Index in ARGV of the next element to be scanned.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 This is used for communication to and from the caller
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 and for communication between successive calls to `getopt'.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 On entry to `getopt', zero means this is the first call; initialize.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 When `getopt' returns EOF, this is the index of the first of the
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 non-option elements that the caller should itself scan.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 Otherwise, `optind' communicates from one call to the next
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 how much of ARGV has been scanned so far. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 /* XXX 1003.2 says this must be 1 before any call. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 int optind = 0;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /* The next char to be scanned in the option-element
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 in which the last option character we returned was found.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 This allows us to pick up the scan where we left off.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 If this is zero, or a null string, it means resume the scan
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 by advancing to the next ARGV-element. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 static char *nextchar;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 /* Callers store zero here to inhibit the error message
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 for unrecognized options. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 int opterr = 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 /* Set to an option character which was unrecognized.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 This must be initialized on some systems to avoid linking in the
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 system's own getopt implementation. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 int optopt = '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 /* Describe how to deal with options that follow non-option ARGV-elements.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 If the caller did not specify anything,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 the default is REQUIRE_ORDER if the environment variable
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 POSIXLY_CORRECT is defined, PERMUTE otherwise.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 REQUIRE_ORDER means don't recognize them as options;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 stop option processing when the first non-option is seen.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 This is what Unix does.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 This mode of operation is selected by either setting the environment
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 variable POSIXLY_CORRECT, or using `+' as the first character
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 of the list of option characters.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 PERMUTE is the default. We permute the contents of ARGV as we scan,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 so that eventually all the non-options are at the end. This allows options
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 to be given in any order, even with programs that were not written to
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 expect this.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 RETURN_IN_ORDER is an option available to programs that were written
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 to expect options and other ARGV-elements in any order and that care about
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 the ordering of the two. We describe each non-option ARGV-element
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 as if it were the argument of an option with character code 1.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 Using `-' as the first character of the list of option characters
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 selects this mode of operation.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 The special argument `--' forces an end of option-scanning regardless
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 of the value of `ordering'. In the case of RETURN_IN_ORDER, only
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 `--' can cause `getopt' to return EOF with `optind' != ARGC. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 static enum
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 } ordering;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 /* Value of POSIXLY_CORRECT environment variable. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 static char *posixly_correct;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 #ifdef __GNU_LIBRARY__
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 /* We want to avoid inclusion of string.h with non-GNU libraries
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 because there are many ways it can cause trouble.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 On some systems, it contains special magic macros that don't work
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 in GCC. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 #include <string.h>
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 #define my_index strchr
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 #else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 /* Avoid depending on library functions or files
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 whose names are inconsistent. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 char *getenv ();
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 static char *
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 my_index (str, chr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 const char *str;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 int chr;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 while (*str)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 if (*str == chr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 return (char *) str;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 str++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 return 0;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 /* If using GCC, we can safely declare strlen this way.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 If not using GCC, it is ok not to declare it. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 #ifdef __GNUC__
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 /* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 That was relevant to code that was here before. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 #ifndef __STDC__
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 /* gcc with -traditional declares the built-in strlen to return int,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 and has done so at least since version 2.4.5. -- rms. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 extern int strlen (const char *);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 #endif /* not __STDC__ */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 #endif /* __GNUC__ */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 #endif /* not __GNU_LIBRARY__ */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 /* Handle permutation of arguments. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 /* Describe the part of ARGV that contains non-options that have
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 been skipped. `first_nonopt' is the index in ARGV of the first of them;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 `last_nonopt' is the index after the last of them. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 static int first_nonopt;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 static int last_nonopt;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 /* Exchange two adjacent subsequences of ARGV.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 One subsequence is elements [first_nonopt,last_nonopt)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 which contains all the non-options that have been skipped so far.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 The other is elements [last_nonopt,optind), which contains all
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 the options processed since those non-options were skipped.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 `first_nonopt' and `last_nonopt' are relocated so that they describe
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 the new indices of the non-options in ARGV after they are moved. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 static void
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 exchange (argv)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 char **argv;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 int bottom = first_nonopt;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 int middle = last_nonopt;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 int top = optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 char *tem;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 /* Exchange the shorter segment with the far end of the longer segment.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 That puts the shorter segment into the right place.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 It leaves the longer segment in the right place overall,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 but it consists of two parts that need to be swapped next. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 while (top > middle && middle > bottom)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 if (top - middle > middle - bottom)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 /* Bottom segment is the short one. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 int len = middle - bottom;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 register int i;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 /* Swap it with the top part of the top segment. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 for (i = 0; i < len; i++)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 tem = argv[bottom + i];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 argv[bottom + i] = argv[top - (middle - bottom) + i];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 argv[top - (middle - bottom) + i] = tem;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 /* Exclude the moved bottom segment from further swapping. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 top -= len;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 /* Top segment is the short one. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 int len = top - middle;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 register int i;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 /* Swap it with the bottom part of the bottom segment. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 for (i = 0; i < len; i++)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 tem = argv[bottom + i];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 argv[bottom + i] = argv[middle + i];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 argv[middle + i] = tem;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 /* Exclude the moved top segment from further swapping. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 bottom += len;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 /* Update records for the slots the non-options now occupy. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 first_nonopt += (optind - last_nonopt);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 last_nonopt = optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 /* Initialize the internal data when the first call is made. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 static const char *
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 _getopt_initialize (optstring)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 const char *optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 /* Start processing options with ARGV-element 1 (since ARGV-element 0
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 is the program name); the sequence of previously skipped
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 non-option ARGV-elements is empty. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 first_nonopt = last_nonopt = optind = 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 nextchar = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 posixly_correct = getenv ("POSIXLY_CORRECT");
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 /* Determine how to handle the ordering of options and nonoptions. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 if (optstring[0] == '-')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 ordering = RETURN_IN_ORDER;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 ++optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 else if (optstring[0] == '+')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 ordering = REQUIRE_ORDER;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 ++optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 else if (posixly_correct != NULL)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 ordering = REQUIRE_ORDER;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 ordering = PERMUTE;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 return optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 /* Scan elements of ARGV (whose length is ARGC) for option characters
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 given in OPTSTRING.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 If an element of ARGV starts with '-', and is not exactly "-" or "--",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 then it is an option element. The characters of this element
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 (aside from the initial '-') are option characters. If `getopt'
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 is called repeatedly, it returns successively each of the option characters
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 from each of the option elements.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 If `getopt' finds another option character, it returns that character,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 updating `optind' and `nextchar' so that the next call to `getopt' can
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 resume the scan with the following option character or ARGV-element.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 If there are no more option characters, `getopt' returns `EOF'.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 Then `optind' is the index in ARGV of the first ARGV-element
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 that is not an option. (The ARGV-elements have been permuted
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 so that those that are not options now come last.)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 OPTSTRING is a string containing the legitimate option characters.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 If an option character is seen that is not listed in OPTSTRING,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 return '?' after printing an error message. If you set `opterr' to
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 zero, the error message is suppressed but we still return '?'.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 If a char in OPTSTRING is followed by a colon, that means it wants an arg,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 so the following text in the same ARGV-element, or the text of the following
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 ARGV-element, is returned in `optarg'. Two colons mean an option that
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 wants an optional arg; if there is text in the current ARGV-element,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 it is returned in `optarg', otherwise `optarg' is set to zero.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 If OPTSTRING starts with `-' or `+', it requests different methods of
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 handling the non-option ARGV-elements.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 Long-named options begin with `--' instead of `-'.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 Their names may be abbreviated as long as the abbreviation is unique
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 or is an exact match for some defined option. If they have an
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 argument, it follows the option name in the same ARGV-element, separated
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 from the option name by a `=', or else the in next ARGV-element.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 When `getopt' finds a long-named option, it returns 0 if that option's
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 `flag' field is nonzero, the value of the option's `val' field
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 if the `flag' field is zero.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 The elements of ARGV aren't really const, because we permute them.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 But we pretend they're const in the prototype to be compatible
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 with other systems.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 LONGOPTS is a vector of `struct option' terminated by an
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 element containing a name which is zero.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 LONGIND returns the index in LONGOPT of the long-named option found.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 It is only valid when a long-named option has been found by the most
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 recent call.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 If LONG_ONLY is nonzero, '-' as well as '--' can introduce
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 long-named options. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 int
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 int argc;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 char const argv;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 const char *optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 const struct option *longopts;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 int *longind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 int long_only;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 optarg = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 if (optind == 0)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 optstring = _getopt_initialize (optstring);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 if (nextchar == NULL \|\| *nextchar == '\0')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 /* Advance to the next ARGV-element. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 if (ordering == PERMUTE)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 /* If we have just processed some options following some non-options,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 exchange them so that the options come first. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 if (first_nonopt != last_nonopt && last_nonopt != optind)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 exchange ((char **) argv);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 else if (last_nonopt != optind)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 first_nonopt = optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 /* Skip any additional non-options
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 and extend the range of non-options previously skipped. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 while (optind < argc
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 && (argv[optind][0] != '-' \|\| argv[optind][1] == '\0'))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 last_nonopt = optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 /* The special ARGV-element `--' means premature end of options.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 Skip it like a null option,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 then exchange with previous non-options as if it were an option,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 then skip everything else like a non-option. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 if (optind != argc && !strcmp (argv[optind], "--"))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 #ifndef NOPRCS
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 return EOF;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 #endif
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 if (first_nonopt != last_nonopt && last_nonopt != optind)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 exchange ((char **) argv);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 else if (first_nonopt == last_nonopt)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 first_nonopt = optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 last_nonopt = argc;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 optind = argc;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 /* If we have done all the ARGV-elements, stop the scan
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 and back over any non-options that we skipped and permuted. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 if (optind == argc)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 /* Set the next-arg-index to point at the non-options
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 that we previously skipped, so the caller will digest them. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 if (first_nonopt != last_nonopt)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 optind = first_nonopt;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 return EOF;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 /* If we have come to a non-option and did not permute it,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 either stop the scan or describe it to the caller and pass it by. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 if ((argv[optind][0] != '-' \|\| argv[optind][1] == '\0'))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 if (ordering == REQUIRE_ORDER)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 return EOF;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 optarg = argv[optind++];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 return 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 /* We have found another option-ARGV-element.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 Skip the initial punctuation. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 nextchar = (argv[optind] + 1
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 + (longopts != NULL && argv[optind][1] == '-'));
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 /* Decode the current option-ARGV-element. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 /* Check whether the ARGV-element is a long option.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 If long_only and the ARGV-element has the form "-f", where f is
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 a valid short option, don't consider it an abbreviated form of
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 a long option that starts with f. Otherwise there would be no
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 way to give the -f short option.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 On the other hand, if there's a long option "fubar" and
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 the ARGV-element is "-fu", do consider that an abbreviation of
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 the long option, just like "--fu", and not "-f" with arg "u".
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 This distinction seems to be the most useful approach. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 if (longopts != NULL
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 && (argv[optind][1] == '-'
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 \|\| (long_only && (argv[optind][2] \|\| !my_index (optstring, argv[optind][1])))))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 char *nameend;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 const struct option *p;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 const struct option *pfound = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 int exact = 0;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 int ambig = 0;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 int indfound;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 int option_index;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 for (nameend = nextchar; nameend && nameend != '='; nameend++)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 /* Do nothing. */ ;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 /* Test all long options for either exact match
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 or abbreviated matches. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 for (p = longopts, option_index = 0; p->name; p++, option_index++)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 if (!strncmp (p->name, nextchar, nameend - nextchar))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 if (nameend - nextchar == strlen (p->name))
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 /* Exact match found. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 pfound = p;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 indfound = option_index;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 exact = 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 break;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 else if (pfound == NULL)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 /* First nonexact match found. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 pfound = p;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 indfound = option_index;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 /* Second or later nonexact match found. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 ambig = 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 if (ambig && !exact)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 fprintf (stderr, "%s: option `%s' is ambiguous\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 argv[0], argv[optind]);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 nextchar += strlen (nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 return '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 if (pfound != NULL)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 option_index = indfound;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 if (*nameend)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 /* Don't test has_arg with >, because some C compilers don't
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 allow it to be used on enums. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 if (pfound->has_arg)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 optarg = nameend + 1;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 if (argv[optind - 1][1] == '-')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 /* --option */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 fprintf (stderr,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 "%s: option `--%s' doesn't allow an argument\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 argv[0], pfound->name);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 /* +option or -option */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 fprintf (stderr,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 "%s: option `%c%s' doesn't allow an argument\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 argv[0], argv[optind - 1][0], pfound->name);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 nextchar += strlen (nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 return '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 else if (pfound->has_arg == 1)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 if (optind < argc)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 optarg = argv[optind++];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 fprintf (stderr, "%s: option `%s' requires an argument\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 argv[0], argv[optind - 1]);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 nextchar += strlen (nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 return optstring[0] == ':' ? ':' : '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 nextchar += strlen (nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 if (longind != NULL)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 *longind = option_index;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 if (pfound->flag)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 *(pfound->flag) = pfound->val;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 return 0;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 return pfound->val;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 /* Can't find it as a long option. If this is not getopt_long_only,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 or the option starts with '--' or is not a valid short
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 option, then it's an error.
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 Otherwise interpret it as a short option. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 if (!long_only \|\| argv[optind][1] == '-'
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 \|\| my_index (optstring, *nextchar) == NULL)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 if (argv[optind][1] == '-')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 /* --option */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 fprintf (stderr, "%s: unrecognized option `--%s'\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 argv[0], nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 /* +option or -option */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 fprintf (stderr, "%s: unrecognized option `%c%s'\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 argv[0], argv[optind][0], nextchar);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 nextchar = (char *) "";
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 return '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 /* Look at and handle the next short option-character. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 char c = *nextchar++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 char *temp = my_index (optstring, c);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 /* Increment `optind' when we start to process its last character. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 if (*nextchar == '\0')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 ++optind;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 if (temp == NULL \|\| c == ':')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 if (posixly_correct)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 /* 1003.2 specifies the format of this message. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 fprintf (stderr, "%s: illegal option -- %c\n", argv[0], c);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 fprintf (stderr, "%s: invalid option -- %c\n", argv[0], c);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 optopt = c;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 return '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 if (temp[1] == ':')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 if (temp[2] == ':')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 /* This is an option that accepts an argument optionally. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 if (*nextchar != '\0')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 optarg = nextchar;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 optarg = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 nextchar = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 /* This is an option that requires an argument. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 if (*nextchar != '\0')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 optarg = nextchar;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 /* If we end this ARGV-element by taking the rest as an arg,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 we must advance to the next element now. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 optind++;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 else if (optind == argc)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 if (opterr)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 /* 1003.2 specifies the format of this message. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 fprintf (stderr, "%s: option requires an argument -- %c\n",
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 argv[0], c);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 optopt = c;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 if (optstring[0] == ':')
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 c = ':';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 c = '?';
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 else
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 /* We already incremented `optind' once;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 increment it again when taking next ARGV-elt as argument. */
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 optarg = argv[optind++];
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 nextchar = NULL;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 return c;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 }
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 int
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 getopt (argc, argv, optstring)
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 int argc;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 char const argv;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 const char *optstring;
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 {
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 return _getopt_internal (argc, argv, optstring,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 (const struct option *) 0,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 (int *) 0,
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 0);
9cecc930d78f fluid-mnf: original source from TI, Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 }

FreeCalypso > hg > freecalypso-reveng

annotate fluid-mnf/getopt.c @ 362:b4fb0c7dfdf4