1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129
|
/*
I got this off net.sources from Henry Spencer.
It is a public domain getopt(3) like in System V.
I have made the following modifications:
index(s,c) was added because too many people could
not compile getopt without it.
A test main program was added, ifdeffed by GETOPT.
This main program is a public domain implementation
of the getopt(1) program like in System V. The getopt
program can be used to standardize shell option handling.
e.g. cc -DGETOPT getopt.c -o getopt
*/
#include <stdio.h>
#ifndef lint
static char sccsfid[] = "@(#) getopt.c 5.0 (UTZoo) 1985";
#endif
#define ARGCH (int)':'
#define BADCH (int)'?'
#define EMSG ""
#define ENDARGS "--"
/* this is included because index is not on some UNIX systems */
static
char *
index (s, c)
register char *s;
register int c;
{
while (*s)
if (c == *s) return (s);
else s++;
return (NULL);
}
/*
* get option letter from argument vector
*/
int opterr = 1, /* useless, never set or used */
optind = 1, /* index into parent argv vector */
optopt; /* character checked for validity */
char *optarg; /* argument associated with option */
#define tell(s) fputs(*nargv,stderr);fputs(s,stderr); \
fputc(optopt,stderr);fputc('\n',stderr);return(BADCH);
getopt(nargc,nargv,ostr)
int nargc;
char **nargv,
*ostr;
{
static char *place = EMSG; /* option letter processing */
register char *oli; /* option letter list index */
char *index();
if(!*place) { /* update scanning pointer */
if(optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) return(EOF);
if (*place == '-') { /* found "--" */
++optind;
return(EOF);
}
} /* option letter okay? */
if ((optopt = (int)*place++) == ARGCH || !(oli = index(ostr,optopt))) {
if(!*place) ++optind;
tell(": illegal option -- ");
}
if (*++oli != ARGCH) { /* don't need argument */
optarg = NULL;
if (!*place) ++optind;
}
else { /* need an argument */
if (*place) optarg = place; /* no white space */
else if (nargc <= ++optind) { /* no arg */
place = EMSG;
tell(": option requires an argument -- ");
}
else optarg = nargv[optind]; /* white space */
place = EMSG;
++optind;
}
return(optopt); /* dump back option letter */
}
#ifdef GETOPT
#ifndef lint
static char sccspid[] = "@(#) getopt.c 5.1 (WangInst) 6/15/85";
#endif
main (argc, argv) char **argv;
{
char *optstring = argv[1];
char *argv0 = argv[0];
extern int optind;
extern char *optarg;
int opterr = 0;
int C;
char *opi;
if (argc == 1)
{
fprintf (stderr, "Usage: %s optstring args\n", argv0);
exit (1);
}
argv++;
argc--;
argv[0] = argv0;
while ((C = getopt (argc, argv, optstring)) != EOF)
{
if (C == BADCH) opterr++;
printf ("-%c ", C);
opi = index (optstring, C);
if (opi && opi[1] == ARGCH)
if (optarg)
printf ("\"%s\" ", optarg);
else opterr++;
}
printf ("%s", ENDARGS);
while (optind < argc)
printf (" \"%s\"", argv[optind++]);
putchar ('\n');
exit (opterr);
}
#endif
|