firstHEADmaster

1 files changed, 117 insertions, 0 deletions

diff --git a/midicsv-1.1/getopt.c b/midicsv-1.1/getopt.c
new file mode 100644
index 0000000..1564e53
--- /dev/null
+++ b/midicsv-1.1/getopt.c
@@ -0,0 +1,117 @@
+/*
+Date: Tue, 25 Dec 84 19:20:50 EST
+From: Keith Bostic <harvard!seismo!keith>
+To: genrad!sources
+Subject: public domain getopt(3)
+
+There have recently been several requests for a public
+domain version of getopt(3), recently.  Thought this
+might be worth reposting.
+
+                Keith Bostic
+                        ARPA: keith@seismo 
+                        UUCP: seismo!keith
+
+======================================================================
+In April of this year, Henry Spencer (utzoo!henry) released a public
+domain version of getopt (USG, getopt(3)).  Well, I've been trying to
+port some USG dependent software and it didn't seem to work.  The problem
+ended up being that the USG version of getopt has some external variables
+that aren't mentioned in the documentation.  Anyway, to fix these problems,
+I rewrote the public version of getopt.  It has the following advantages:
+
+        -- it includes those "unknown" variables
+        -- it's smaller/faster 'cause it doesn't use the formatted
+                output conversion routines in section 3 of the UNIX manual.
+        -- the error messages are the same as S5's.
+        -- it has the same side-effects that S5's has.
+        -- the posted bug on how the error messages are flushed has been
+                implemented.  (posting by Tony Hansen; pegasus!hansen)
+
+I won't post the man pages since Henry already did; a special note,
+it's not documented in the S5 manual that the options ':' and '?' are
+illegal.  It should be obvious, but I thought I'd mention it...
+This software was derived from binaries of S5 and the S5 man page, and is
+(I think?) totally (I'm pretty sure?) compatible with S5 and backward
+compatible to Henry's version.
+
+                Keith Bostic
+                        ARPA: keith@seismo 
+                        UUCP: seismo!keith
+
+*UNIX is a trademark of Bell Laboratories
+
+Further modified by John Walker on 2001-02-19 to accept
+GNU-style "--xxx" options.  The original code considered
+any option beginning with "--" as the end of the options
+list.  I changed the logic so that only "--" without a
+suffix is treated as an end of option marker.
+
+.. cut along the dotted line .........................................
+*/
+
+#include <stdio.h>
+
+#include <string.h>
+
+#include "getopt.h"
+
+/*
+ * get option letter from argument vector
+ */
+int     optind = 1,             /* index into parent argv vector */
+        optopt;                 /* character checked for validity */
+char    *optarg;                /* argument associated with option */
+
+#define BADCH   (int)'?'
+#define EMSG    ""
+#define tell(s) fputs(*nargv,stderr);fputs(s,stderr); \
+                fputc(optopt,stderr);fputc('\n',stderr);return(BADCH);
+
+int Getopt(int nargc, char *nargv[], char *ostr)
+{
+        static char     *place = EMSG;  /* option letter processing */
+        static char     *lastostr = (char *) 0;
+        register char   *oli;           /* option letter list index */
+        char    *index();
+
+        /* LANCE PATCH: dynamic reinitialization */
+        if (ostr != lastostr) {
+                lastostr = ostr;
+                place = EMSG;
+        }
+        if(!*place) {                   /* update scanning pointer */
+                if((optind >= nargc) || (*(place = nargv[optind]) != '-')
+                                || ! *++place) {
+                        place = EMSG;
+                        return(EOF);
+                }
+                /* Test for "--" as terminator of options.  Note that
+                   options which begin with "--" remain acceptable
+                   (for example, "--help"); only "--" by itself
+                   terminates the option list. */
+                if (*place == '-' && place[1] == 0) {
+                        ++optind;
+                        return(EOF);
+                }
+        }                               /* option letter okay? */
+        if ((optopt = (int)*place++) == (int)':' || !(oli = strchr(ostr, optopt))) {
+                if(!*place) ++optind;
+                tell(": illegal option -- ");
+        }
+        if (*++oli != ':') {            /* 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 */
+}