cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/getopts.c

   1 /*
   2  * CDE - Common Desktop Environment
   3  *
   4  * Copyright (c) 1993-2012, The Open Group. All rights reserved.
   5  *
   6  * These libraries and programs are free software; you can
   7  * redistribute them and/or modify them under the terms of the GNU
   8  * Lesser General Public License as published by the Free Software
   9  * Foundation; either version 2 of the License, or (at your option)
  10  * any later version.
  11  *
  12  * These libraries and programs are distributed in the hope that
  13  * they will be useful, but WITHOUT ANY WARRANTY; without even the
  14  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  15  * PURPOSE. See the GNU Lesser General Public License for more
  16  * details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with these libraries and programs; if not, write
  20  * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
  21  * Floor, Boston, MA 02110-1301 USA
  22  */
  23 /* $XConsortium: getopts.c /main/3 1995/11/01 16:28:23 rswiston $ */
  24 /***************************************************************
  25 *                                                              *
  26 *                      AT&T - PROPRIETARY                      *
  27 *                                                              *
  28 *        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF        *
  29 *                    AT&T BELL LABORATORIES                    *
  30 *         AND IS NOT TO BE DISCLOSED OR USED EXCEPT IN         *
  31 *            ACCORDANCE WITH APPLICABLE AGREEMENTS             *
  32 *                                                              *
  33 *                Copyright (c) 1995 AT&T Corp.                 *
  34 *              Unpublished & Not for Publication               *
  35 *                     All Rights Reserved                      *
  36 *                                                              *
  37 *       The copyright notice above does not evidence any       *
  38 *      actual or intended publication of such source code      *
  39 *                                                              *
  40 *               This software was created by the               *
  41 *           Advanced Software Technology Department            *
  42 *                    AT&T Bell Laboratories                    *
  43 *                                                              *
  44 *               For further information contact                *
  45 *                    {research,attmail}!dgk                    *
  46 *                                                              *
  47 ***************************************************************/
  48
  49 /* : : generated by proto : : */
  50
  51 #if !defined(__PROTO__)
  52 #if defined(__STDC__) || defined(__cplusplus) || defined(_proto) || defined(c_plusplus)
  53 #if defined(__cplusplus)
  54 #define __MANGLE__      "C"
  55 #else
  56 #define __MANGLE__
  57 #endif
  58 #define __STDARG__
  59 #define __PROTO__(x)    x
  60 #define __OTORP__(x)
  61 #define __PARAM__(n,o)  n
  62 #if !defined(__STDC__) && !defined(__cplusplus)
  63 #if !defined(c_plusplus)
  64 #define const
  65 #endif
  66 #define signed
  67 #define void            int
  68 #define volatile
  69 #define __V_            char
  70 #else
  71 #define __V_            void
  72 #endif
  73 #else
  74 #define __PROTO__(x)    ()
  75 #define __OTORP__(x)    x
  76 #define __PARAM__(n,o)  o
  77 #define __MANGLE__
  78 #define __V_            char
  79 #define const
  80 #define signed
  81 #define void            int
  82 #define volatile
  83 #endif
  84 #if defined(__cplusplus) || defined(c_plusplus)
  85 #define __VARARG__      ...
  86 #else
  87 #define __VARARG__
  88 #endif
  89 #if defined(__STDARG__)
  90 #define __VA_START__(p,a)       va_start(p,a)
  91 #else
  92 #define __VA_START__(p,a)       va_start(p)
  93 #endif
  94 #endif
  95 #ifdef __osf__
  96 #include        <machine/machlimits.h>
  97 #endif
  98 #include        "defs.h"
  99 #include        "variables.h"
 100 #include        <error.h>
 101 #include        <nval.h>
 102 #include        "builtins.h"
 103
 104 int     b_getopts __PARAM__((int argc,char *argv[],__V_ *extra), (argc, argv, extra)) __OTORP__(int argc;char *argv[];__V_ *extra;){
 105         register char *options=error_info.context->id;
 106         register Namval_t *np;
 107         register int flag, mode, r=0;
 108         static char value[2], key[2];
 109         NOT_USED(extra);
 110         while((flag = optget(argv,sh_optgetopts))) switch(flag)
 111         {
 112             case 'a':
 113                 options = opt_arg;
 114                 break;
 115             case ':':
 116                 error(2, opt_arg);
 117                 break;
 118             case '?':
 119                 error(ERROR_usage(2), opt_arg);
 120                 break;
 121         }
 122         argv += opt_index;
 123         argc -= opt_index;
 124         if(error_info.errors || argc<2)
 125                 error(ERROR_usage(2),optusage((char*)0));
 126         error_info.context->flags |= ERROR_SILENT;
 127         error_info.id = options;
 128         options = argv[0];
 129         np = nv_open(argv[1],sh.var_tree,NV_NOASSIGN|NV_VARNAME);
 130         if(argc>2)
 131         {
 132                 argv +=1;
 133                 argc -=1;
 134         }
 135         else
 136         {
 137                 argv = sh.st.dolv;
 138                 argc = sh.st.dolc;
 139         }
 140         opt_index = sh.st.optindex;
 141         opt_char = sh.st.optchar;
 142         if(mode= (*options==':'))
 143                 options++;
 144         switch(opt_index<=argc?(opt_num= LONG_MIN,flag=optget(argv,options)):0)
 145         {
 146             case '?':
 147                 error(ERROR_usage(0),opt_arg);
 148                 r = 2;
 149                 *(options = value) = flag;
 150                 break;
 151             case ':':
 152                 key[0] = opt_option[1];
 153                 if(strmatch(opt_arg,"*unknown*"))
 154                         flag = '?';
 155                 if(mode)
 156                         opt_arg = key;
 157                 else
 158                 {
 159                         error(2, opt_arg);
 160                         opt_arg = 0;
 161                         flag = '?';
 162                 }
 163                 *(options = value) = flag;
 164                 sh.st.opterror = 1;
 165                 break;
 166             case 0:
 167                 if(sh.st.opterror)
 168                 {
 169                         char *com[2];
 170                         com[0] = "-?";
 171                         com[1] = 0;
 172                         flag = opt_index;
 173                         opt_index = 0;
 174                         optget(com,options);
 175                         opt_index = flag;
 176                         if(!mode && strchr(options,' '))
 177                                 error(ERROR_usage(0),optusage((char*)0));
 178                 }
 179                 opt_arg = 0;
 180                 options = value;
 181                 *options = '?';
 182                 r=1;
 183                 opt_char = 0;
 184                 break;
 185             default:
 186                 options = opt_option + (*opt_option!='+');
 187         }
 188         error_info.context->flags &= ~ERROR_SILENT;
 189         sh.st.optindex = opt_index;
 190         sh.st.optchar = opt_char;
 191         nv_putval(np, options, 0);
 192         nv_close(np);
 193         np = nv_search((char*)OPTARGNOD,sh.var_tree,NV_ADD|HASH_BUCKET|HASH_NOSCOPE);
 194         if(opt_num != LONG_MIN)
 195         {
 196                 double d = opt_num;
 197                 nv_putval(np, (char*)&d, NV_INTEGER|NV_RDONLY);
 198         }
 199         else
 200                 nv_putval(np, opt_arg, NV_RDONLY);
 201         return(r);
 202 }
 203