summaryrefslogtreecommitdiff
path: root/getopt.c
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2010-07-02 15:52:23 +0300
committerArnold D. Robbins <arnold@skeeve.com>2010-07-02 15:52:23 +0300
commit0f1b7311fbc0e61e3e12194ce3e8484aaa4b7fe6 (patch)
tree3abd415a67ab1fafc637dc51966f0cf593b5e5d2 /getopt.c
parent483a58b779f2bd6c5fff64c9429a766d33e46a41 (diff)
downloadgawk-0f1b7311fbc0e61e3e12194ce3e8484aaa4b7fe6.tar.gz
On the way to 2.10.
Diffstat (limited to 'getopt.c')
-rw-r--r--getopt.c90
1 files changed, 0 insertions, 90 deletions
diff --git a/getopt.c b/getopt.c
deleted file mode 100644
index c5eeddae..00000000
--- a/getopt.c
+++ /dev/null
@@ -1,90 +0,0 @@
-/*
-** @(#)getopt.c 2.5 (smail) 9/15/87
-*/
-
-/*
- * Here's something you've all been waiting for: the AT&T public domain
- * source for getopt(3). It is the code which was given out at the 1985
- * UNIFORUM conference in Dallas. I obtained it by electronic mail
- * directly from AT&T. The people there assure me that it is indeed
- * in the public domain.
- *
- * There is no manual page. That is because the one they gave out at
- * UNIFORUM was slightly different from the current System V Release 2
- * manual page. The difference apparently involved a note about the
- * famous rules 5 and 6, recommending using white space between an option
- * and its first argument, and not grouping options that have arguments.
- * Getopt itself is currently lenient about both of these things White
- * space is allowed, but not mandatory, and the last option in a group can
- * have an argument. That particular version of the man page evidently
- * has no official existence, and my source at AT&T did not send a copy.
- * The current SVR2 man page reflects the actual behavor of this getopt.
- * However, I am not about to post a copy of anything licensed by AT&T.
- */
-
-/* This include is needed only to get "index" defined as "strchr" on Sys V. */
-#include "defs.h"
-
-/*LINTLIBRARY*/
-#define NULL 0
-#define EOF (-1)
-#define ERR(s, c) if(opterr){\
- extern int write();\
- char errbuf[2];\
- errbuf[0] = c; errbuf[1] = '\n';\
- (void) write(2, argv[0], (unsigned)strlen(argv[0]));\
- (void) write(2, s, (unsigned)strlen(s));\
- (void) write(2, errbuf, 2);}
-
-extern char *index();
-
-int opterr = 1;
-int optind = 1;
-int optopt;
-char *optarg;
-
-int
-getopt(argc, argv, opts)
-int argc;
-char **argv, *opts;
-{
- static int sp = 1;
- register int c;
- register char *cp;
-
- if(sp == 1)
- if(optind >= argc ||
- argv[optind][0] != '-' || argv[optind][1] == '\0')
- return(EOF);
- else if(strcmp(argv[optind], "--") == NULL) {
- optind++;
- return(EOF);
- }
- optopt = c = argv[optind][sp];
- if(c == ':' || (cp=index(opts, c)) == NULL) {
- ERR(": illegal option -- ", c);
- if(argv[optind][++sp] == '\0') {
- optind++;
- sp = 1;
- }
- return('?');
- }
- if(*++cp == ':') {
- if(argv[optind][sp+1] != '\0')
- optarg = &argv[optind++][sp+1];
- else if(++optind >= argc) {
- ERR(": option requires an argument -- ", c);
- sp = 1;
- return('?');
- } else
- optarg = argv[optind++];
- sp = 1;
- } else {
- if(argv[optind][++sp] == '\0') {
- sp = 1;
- optind++;
- }
- optarg = NULL;
- }
- return(c);
-}