Annotation of 43BSD/lib/libc/compat-sys5/getopt.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1985 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: #if defined(LIBC_SCCS) && !defined(lint)
                      8: static char sccsid[] = "@(#)getopt.c   4.3 (Berkeley) 3/9/86";
                      9: #endif LIBC_SCCS and not lint
                     10: 
                     11: #include <stdio.h>
                     12: 
                     13: /*
                     14:  * get option letter from argument vector
                     15:  */
                     16: int    opterr = 1,             /* if error message should be printed */
                     17:        optind = 1,             /* index into parent argv vector */
                     18:        optopt;                 /* character checked for validity */
                     19: char   *optarg;                /* argument associated with option */
                     20: 
                     21: #define BADCH  (int)'?'
                     22: #define EMSG   ""
                     23: #define tell(s)        if (opterr) {fputs(*nargv,stderr);fputs(s,stderr); \
                     24:                fputc(optopt,stderr);fputc('\n',stderr);return(BADCH);}
                     25: 
                     26: getopt(nargc,nargv,ostr)
                     27: int    nargc;
                     28: char   **nargv,
                     29:        *ostr;
                     30: {
                     31:        static char     *place = EMSG;  /* option letter processing */
                     32:        register char   *oli;           /* option letter list index */
                     33:        char    *index();
                     34: 
                     35:        if(!*place) {                   /* update scanning pointer */
                     36:                if(optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) return(EOF);
                     37:                if (*place == '-') {    /* found "--" */
                     38:                        ++optind;
                     39:                        return(EOF);
                     40:                }
                     41:        }                               /* option letter okay? */
                     42:        if ((optopt = (int)*place++) == (int)':' || !(oli = index(ostr,optopt))) {
                     43:                if(!*place) ++optind;
                     44:                tell(": illegal option -- ");
                     45:        }
                     46:        if (*++oli != ':') {            /* don't need argument */
                     47:                optarg = NULL;
                     48:                if (!*place) ++optind;
                     49:        }
                     50:        else {                          /* need an argument */
                     51:                if (*place) optarg = place;     /* no white space */
                     52:                else if (nargc <= ++optind) {   /* no arg */
                     53:                        place = EMSG;
                     54:                        tell(": option requires an argument -- ");
                     55:                }
                     56:                else optarg = nargv[optind];    /* white space */
                     57:                place = EMSG;
                     58:                ++optind;
                     59:        }
                     60:        return(optopt);                 /* dump back option letter */
                     61: }

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.