Imported from ../bash-4.0-rc1.tar.gz.

[platform/upstream/bash.git] / builtins / bashgetopt.c

diff --git a/builtins/bashgetopt.c b/builtins/bashgetopt.c
index 65b8d08..b1b7070 100644 (file)
--- a/builtins/bashgetopt.c
+++ b/builtins/bashgetopt.c
@@ -1,22 +1,22 @@
 /* bashgetopt.c -- `getopt' for use by the builtins. */
 
-/* Copyright (C) 1992 Free Software Foundation, Inc.
+/* Copyright (C) 1992-2002 Free Software Foundation, Inc.
 
-This file is part of GNU Bash, the Bourne Again SHell.
+   This file is part of GNU Bash, the Bourne Again SHell.
 
-Bash is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 1, or (at your option) any later
-version.
+   Bash is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
 
-Bash is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY; without even the implied warranty of MERCHANTABILITY or
-FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-for more details.
+   Bash is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
 
-You should have received a copy of the GNU General Public License along
-with Bash; see the file COPYING.  If not, write to the Free Software
-Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+   You should have received a copy of the GNU General Public License
+   along with Bash.  If not, see <http://www.gnu.org/licenses/>.
+*/
 
 #include <config.h>
 
@@ -25,17 +25,20 @@ Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
 #endif
 
 #include "../bashansi.h"
+#include <chartypes.h>
 #include <errno.h>
 
 #include "../shell.h"
 #include "common.h"
 
-#define ERR(S, C)      builtin_error("%s%c", (S), (C))
-
+#define ISOPT(s)       (((*(s) == '-') || (plus && *(s) == '+')) && (s)[1])
+#define NOTOPT(s)      (((*(s) != '-') && (!plus || *(s) != '+')) || (s)[1] == '\0')
+                       
 static int     sp;
 
 char    *list_optarg;
 int    list_optopt;
+int    list_opttype;
 
 static WORD_LIST *lhead = (WORD_LIST *)NULL;
 WORD_LIST      *lcurrent = (WORD_LIST *)NULL;
@@ -49,12 +52,11 @@ char                *opts;
        register int c;
        register char *cp;
        int     plus;   /* nonzero means to handle +option */
+       static char errstr[3] = { '-', '\0', '\0' };
 
-       if (*opts == '+') {
-               plus = 1;
+       plus = *opts == '+';
+       if (plus)
                opts++;
-       } else
-               plus = 0;
 
        if (list == 0) {
                list_optarg = (char *)NULL;
@@ -70,8 +72,7 @@ char          *opts;
        }
 
        if (sp == 1) {
-               if (lcurrent == 0 ||
-                   (lcurrent->word->word[0] != '-' || lcurrent->word->word[1] == '\0')) {
+               if (lcurrent == 0 || NOTOPT(lcurrent->word->word)) {
                        lhead = (WORD_LIST *)NULL;
                        loptend = lcurrent;
                        return(-1);
@@ -82,12 +83,14 @@ char                *opts;
                        loptend = lcurrent->next;
                        return(-1);
                }
+               errstr[0] = list_opttype = lcurrent->word->word[0];
        }
 
        list_optopt = c = lcurrent->word->word[sp];
 
        if (c == ':' || (cp = strchr(opts, c)) == NULL) {
-               ERR("illegal option: -", c);
+               errstr[1] = c;
+               sh_invalidopt (errstr);         
                if (lcurrent->word->word[++sp] == '\0') {
                        lcurrent = lcurrent->next;
                        sp = 1;
@@ -107,7 +110,11 @@ char               *opts;
                        lcurrent = lcurrent->next;
                /* If the specifier is `;', don't set optarg if the next
                   argument looks like another option. */
+#if 0
                } else if (lcurrent->next && (*cp == ':' || lcurrent->next->word->word[0] != '-')) {
+#else
+               } else if (lcurrent->next && (*cp == ':' || NOTOPT(lcurrent->next->word->word))) {
+#endif
                        lcurrent = lcurrent->next;
                        list_optarg = lcurrent->word->word;
                        lcurrent = lcurrent->next;
@@ -115,27 +122,33 @@ char              *opts;
                        list_optarg = (char *)NULL;
                        lcurrent = lcurrent->next;
                } else {        /* lcurrent->next == NULL */
-                       ERR("option requires an argument: -", c);
+                       errstr[1] = c;
+                       sh_needarg (errstr);
                        sp = 1;
                        list_optarg = (char *)NULL;
                        return('?');
                }
                sp = 1;
        } else if (*cp == '#') {
-               /* optional numeric argument */
+               /* option requires a numeric argument */
                if (lcurrent->word->word[sp+1]) {
-                       if (digit(lcurrent->word->word[sp+1])) {
+                       if (DIGIT(lcurrent->word->word[sp+1])) {
                                list_optarg = lcurrent->word->word + sp + 1;
                                lcurrent = lcurrent->next;
                        } else
                                list_optarg = (char *)NULL;
                } else {
-                       if (lcurrent->next && legal_number(lcurrent->next->word->word, (long *)0)) {
+                       if (lcurrent->next && legal_number(lcurrent->next->word->word, (intmax_t *)0)) {
                                lcurrent = lcurrent->next;
                                list_optarg = lcurrent->word->word;
                                lcurrent = lcurrent->next;
-                       } else
+                       } else {
+                               errstr[1] = c;
+                               sh_neednumarg (errstr);
+                               sp = 1;
                                list_optarg = (char *)NULL;
+                               return ('?');
+                       }
                }
 
        } else {
@@ -160,16 +173,3 @@ reset_internal_getopt ()
        lhead = lcurrent = loptend = (WORD_LIST *)NULL;
        sp = 1;
 }
-
-#ifdef INCLUDE_UNUSED
-void
-report_bad_option ()
-{
-       char s[3];
-
-       s[0] = '-';
-       s[1] = list_optopt;
-       s[2] = '\0';
-       bad_option (s);
-}
-#endif