* Copyright (c) 1987 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid
[] = "@(#)getopt.c 4.7 (Berkeley) %G%";
#endif /* LIBC_SCCS and not lint */
* get option letter from argument vector
int opterr
= 1, /* if error message should be printed */
optind
= 1, /* index into parent argv vector */
optopt
; /* character checked for validity */
char *optarg
; /* argument associated with option */
fputc((int)'\n', stderr); \
getopt(nargc
, nargv
, ostr
)
static char *place
= EMSG
; /* option letter processing */
register char *oli
; /* option letter list index */
if (!*place
) { /* update scanning pointer */
if (optind
>= nargc
|| *(place
= nargv
[optind
]) != '-')
if (place
[1] && *++place
== '-') { /* found "--" */
} /* option letter okay? */
if ((optopt
= (int)*place
++) == (int)':' ||
!(oli
= index(ostr
, optopt
))) {
tell(": illegal option -- ");
if (*++oli
!= ':') { /* don't need argument */
else { /* need an argument */
if (*place
) /* no white space */
else if (nargc
<= ++optind
) { /* no arg */
tell(": option requires an argument -- ");
return(optopt
); /* dump back option letter */