"Fossies" - the Fresh Open Source Software Archive

Member "mp3info-0.8.5a/win32/getopt.c" (5 Jul 2003, 3931 Bytes) of package /linux/misc/old/mp3info-0.8.5a.tgz:

    1 /*
    2  * Copyright (c) 1987, 1993, 1994
    3  *  The Regents of the University of California.  All rights reserved.
    4  *
    5  * Redistribution and use in source and binary forms, with or without
    6  * modification, are permitted provided that the following conditions
    7  * are met:
    8  * 1. Redistributions of source code must retain the above copyright
    9  *    notice, this list of conditions and the following disclaimer.
   10  * 2. Redistributions in binary form must reproduce the above copyright
   11  *    notice, this list of conditions and the following disclaimer in the
   12  *    documentation and/or other materials provided with the distribution.
   13  * 3. All advertising materials mentioning features or use of this software
   14  *    must display the following acknowledgement:
   15  *  This product includes software developed by the University of
   16  *  California, Berkeley and its contributors.
   17  * 4. Neither the name of the University nor the names of its contributors
   18  *    may be used to endorse or promote products derived from this software
   19  *    without specific prior written permission.
   20  *
   21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
   22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
   23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
   24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
   25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
   26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
   27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
   28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
   29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
   30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
   31  * SUCH DAMAGE.
   32  */
   33 
   34 #if defined(LIBC_SCCS) && !defined(lint)
   35 static char sccsid[] = "@(#)getopt.c    8.3 (Berkeley) 4/27/95";
   36 #endif /* LIBC_SCCS and not lint */
   37 
   38 #include <stdio.h>
   39 #include <stdlib.h>
   40 #include <string.h>
   41 
   42 int opterr = 1,     /* if error message should be printed */
   43     optind = 1,     /* index into parent argv vector */
   44     optopt,         /* character checked for validity */
   45     optreset;       /* reset getopt */
   46 char    *optarg;        /* argument associated with option */
   47 
   48 #define BADCH   (int)'?'
   49 #define BADARG  (int)':'
   50 #define EMSG    ""
   51 
   52 /*
   53  * getopt --
   54  *  Parse argc/argv argument vector.
   55  */
   56 int
   57 getopt(nargc, nargv, ostr)
   58     int nargc;
   59     char * const *nargv;
   60     const char *ostr;
   61 {
   62 #ifdef WIN32
   63     char *__progname="mp3info";
   64 #else
   65     extern char *__progname;
   66 #endif
   67     static char *place = EMSG;      /* option letter processing */
   68     char *oli;              /* option letter list index */
   69 
   70     if (optreset || !*place) {      /* update scanning pointer */
   71         optreset = 0;
   72         if (optind >= nargc || *(place = nargv[optind]) != '-') {
   73             place = EMSG;
   74             return (-1);
   75         }
   76         if (place[1] && *++place == '-') {  /* found "--" */
   77             ++optind;
   78             place = EMSG;
   79             return (-1);
   80         }
   81     }                   /* option letter okay? */
   82     if ((optopt = (int)*place++) == (int)':' ||
   83         !(oli = strchr(ostr, optopt))) {
   84         /*
   85          * if the user didn't specify '-' as an option,
   86          * assume it means -1.
   87          */
   88         if (optopt == (int)'-')
   89             return (-1);
   90         if (!*place)
   91             ++optind;
   92         if (opterr && *ostr != ':')
   93             (void)fprintf(stderr,
   94                 "%s: illegal option -- %c\n", __progname, optopt);
   95         return (BADCH);
   96     }
   97     if (*++oli != ':') {            /* don't need argument */
   98         optarg = NULL;
   99         if (!*place)
  100             ++optind;
  101     }
  102     else {                  /* need an argument */
  103         if (*place)         /* no white space */
  104             optarg = place;
  105         else if (nargc <= ++optind) {   /* no arg */
  106             place = EMSG;
  107             if (*ostr == ':')
  108                 return (BADARG);
  109             if (opterr)
  110                 (void)fprintf(stderr,
  111                     "%s: option requires an argument -- %c\n",
  112                     __progname, optopt);
  113             return (BADCH);
  114         }
  115         else                /* white space */
  116             optarg = nargv[optind];
  117         place = EMSG;
  118         ++optind;
  119     }
  120     return (optopt);            /* dump back option letter */
  121 }