Home | History | Annotate | Line # | Download | only in dist 
      1 /*
      2  * Copyright (c) 1984 through 2008, William LeFebvre
      3  * 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 are met:
      7  *
      8  *     * Redistributions of source code must retain the above copyright
      9  * notice, this list of conditions and the following disclaimer.
     10  *
     11  *     * Redistributions in binary form must reproduce the above
     12  * copyright notice, this list of conditions and the following disclaimer
     13  * in the documentation and/or other materials provided with the
     14  * distribution.
     15  *
     16  *     * Neither the name of William LeFebvre nor the names of other
     17  * contributors may be used to endorse or promote products derived from
     18  * this software without specific prior written permission.
     19  *
     20  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
     21  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
     22  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
     23  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
     24  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
     25  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
     26  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
     30  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31  */
     32 
     33 /*
     34  * "getopt" routine customized for top.
     35  */
     36 
     37 /*
     38  * Many modern-day Unix implementations already have this function
     39  * in libc.  The standard "getopt" is perfectly sufficient for top's
     40  * needs.  If such a function exists in libc then you certainly don't
     41  * need to compile this one in.  To prevent this function from being
     42  * compiled, define "HAVE_GETOPT".  This is usually done in the "CFLAGS"
     43  * line of the corresponding machine module.
     44  */
     45 
     46 /*
     47  * This empty declaration exists solely to placate overexhuberant C
     48  * compilers that like to warn you about content-free files.
     49  */
     50 static void __empty();
     51 
     52 #ifndef HAVE_GETOPT
     53 
     54 /*LINTLIBRARY*/
     55 
     56 #include "os.h"
     57 #ifndef NULL
     58 #define NULL	0
     59 #endif
     60 #ifndef EOF
     61 #define EOF	(-1)
     62 #endif
     63 #define ERR(s, c)	if(opterr){\
     64 	extern int write();\
     65 	char errbuf[2];\
     66 	errbuf[0] = c; errbuf[1] = '\n';\
     67 	(void) write(2, argv[0], strlen(argv[0]));\
     68 	(void) write(2, s, strlen(s));\
     69 	(void) write(2, errbuf, 2);}
     70 
     71 
     72 int	opterr = 1;
     73 int	optind = 1;
     74 int	optopt;
     75 char	*optarg;
     76 
     77 int
     78 getopt(int argc, char **argv, char *opts)
     79 
     80 {
     81 	static int sp = 1;
     82 	register int c;
     83 	register char *cp;
     84 
     85 	if(sp == 1)
     86 		if(optind >= argc ||
     87 		   argv[optind][0] != '-' || argv[optind][1] == '\0')
     88 			return(EOF);
     89 		else if(strcmp(argv[optind], "--") == 0) {
     90 			optind++;
     91 			return(EOF);
     92 		}
     93 	optopt = c = argv[optind][sp];
     94 	if(c == ':' || (cp=strchr(opts, c)) == NULL) {
     95 		ERR(": unknown option, -", c);
     96 		if(argv[optind][++sp] == '\0') {
     97 			optind++;
     98 			sp = 1;
     99 		}
    100 		return('?');
    101 	}
    102 	if(*++cp == ':') {
    103 		if(argv[optind][sp+1] != '\0')
    104 			optarg = &argv[optind++][sp+1];
    105 		else if(++optind >= argc) {
    106 			ERR(": argument missing for -", c);
    107 			sp = 1;
    108 			return('?');
    109 		} else
    110 			optarg = argv[optind++];
    111 		sp = 1;
    112 	} else {
    113 		if(argv[optind][++sp] == '\0') {
    114 			sp = 1;
    115 			optind++;
    116 		}
    117 		optarg = NULL;
    118 	}
    119 	return(c);
    120 }
    121 #endif /* HAVE_GETOPT */
    122