Add getopt_long implementation borrowed from PostgreSQL

diff --git a/getopt_long.c b/getopt_long.c
new file mode 100644 (file)
index 0000000..9433b56
--- /dev/null
+++ b/getopt_long.c
@@ -0,0 +1,200 @@
+/*
+ * getopt_long() -- long options parser
+ *
+ * Portions Copyright (c) 1987, 1993, 1994
+ * The Regents of the University of California.  All rights reserved.
+ *
+ * Portions Copyright (c) 2003
+ * PostgreSQL Global Development Group
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *       notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *       notice, this list of conditions and the following disclaimer in the
+ *       documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *       may be used to endorse or promote products derived from this software
+ *       without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.     IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * $PostgreSQL: pgsql/src/port/getopt_long.c,v 1.8 2009/06/11 14:49:15 momjian Exp $
+ */
+
+#include "c.h"
+
+#include "getopt_long.h"
+
+#ifndef HAVE_INT_OPTRESET
+int                    optreset;
+
+/* else the "extern" was provided by getopt_long.h */
+#endif
+
+#define BADCH  '?'
+#define BADARG ':'
+#define EMSG   ""
+
+
+int
+getopt_long(int argc, char *const argv[],
+                       const char *optstring,
+                       const struct option * longopts, int *longindex)
+{
+       static char *place = EMSG;      /* option letter processing */
+       char       *oli;                        /* option letter list index */
+
+       if (optreset || !*place)
+       {                                                       /* update scanning pointer */
+               optreset = 0;
+
+               if (optind >= argc)
+               {
+                       place = EMSG;
+                       return -1;
+               }
+
+               place = argv[optind];
+
+               if (place[0] != '-')
+               {
+                       place = EMSG;
+                       return -1;
+               }
+
+               place++;
+
+               if (place[0] && place[0] == '-' && place[1] == '\0')
+               {                                               /* found "--" */
+                       ++optind;
+                       place = EMSG;
+                       return -1;
+               }
+
+               if (place[0] && place[0] == '-' && place[1])
+               {
+                       /* long option */
+                       size_t          namelen;
+                       int                     i;
+
+                       place++;
+
+                       namelen = strcspn(place, "=");
+                       for (i = 0; longopts[i].name != NULL; i++)
+                       {
+                               if (strlen(longopts[i].name) == namelen
+                                       && strncmp(place, longopts[i].name, namelen) == 0)
+                               {
+                                       if (longopts[i].has_arg)
+                                       {
+                                               if (place[namelen] == '=')
+                                                       optarg = place + namelen + 1;
+                                               else if (optind < argc - 1)
+                                               {
+                                                       optind++;
+                                                       optarg = argv[optind];
+                                               }
+                                               else
+                                               {
+                                                       if (optstring[0] == ':')
+                                                               return BADARG;
+                                                       if (opterr)
+                                                               fprintf(stderr,
+                                                                  "%s: option requires an argument -- %s\n",
+                                                                               argv[0], place);
+                                                       place = EMSG;
+                                                       optind++;
+                                                       return BADCH;
+                                               }
+                                       }
+                                       else
+                                       {
+                                               optarg = NULL;
+                                               if (place[namelen] != 0)
+                                               {
+                                                       /* XXX error? */
+                                               }
+                                       }
+
+                                       optind++;
+
+                                       if (longindex)
+                                               *longindex = i;
+
+                                       place = EMSG;
+
+                                       if (longopts[i].flag == NULL)
+                                               return longopts[i].val;
+                                       else
+                                       {
+                                               *longopts[i].flag = longopts[i].val;
+                                               return 0;
+                                       }
+                               }
+                       }
+
+                       if (opterr && optstring[0] != ':')
+                               fprintf(stderr,
+                                               "%s: illegal option -- %s\n", argv[0], place);
+                       place = EMSG;
+                       optind++;
+                       return BADCH;
+               }
+       }
+
+       /* short option */
+       optopt = (int) *place++;
+
+       oli = strchr(optstring, optopt);
+       if (!oli)
+       {
+               if (!*place)
+                       ++optind;
+               if (opterr && *optstring != ':')
+                       fprintf(stderr,
+                                       "%s: illegal option -- %c\n", argv[0], optopt);
+               return BADCH;
+       }
+
+       if (oli[1] != ':')
+       {                                                       /* don't need argument */
+               optarg = NULL;
+               if (!*place)
+                       ++optind;
+       }
+       else
+       {                                                       /* need an argument */
+               if (*place)                             /* no white space */
+                       optarg = place;
+               else if (argc <= ++optind)
+               {                                               /* no arg */
+                       place = EMSG;
+                       if (*optstring == ':')
+                               return BADARG;
+                       if (opterr)
+                               fprintf(stderr,
+                                               "%s: option requires an argument -- %c\n",
+                                               argv[0], optopt);
+                       return BADCH;
+               }
+               else
+                       /* white space */
+                       optarg = argv[optind];
+               place = EMSG;
+               ++optind;
+       }
+       return optopt;
+}

diff --git a/getopt_long.h b/getopt_long.h
new file mode 100644 (file)
index 0000000..5c3bdd3
--- /dev/null
+++ b/getopt_long.h
@@ -0,0 +1,44 @@
+/*
+ * Portions Copyright (c) 1987, 1993, 1994
+ * The Regents of the University of California.  All rights reserved.
+ *
+ * Portions Copyright (c) 2003-2010, PostgreSQL Global Development Group
+ *
+ * $PostgreSQL: pgsql/src/include/getopt_long.h,v 1.12 2010/01/02 16:58:00 momjian Exp $
+ */
+#ifndef GETOPT_LONG_H
+#define GETOPT_LONG_H
+
+#ifdef HAVE_GETOPT_H
+#include <getopt.h>
+#endif
+
+/* These are picked up from the system's getopt() facility. */
+extern int     opterr;
+extern int     optind;
+extern int     optopt;
+extern char *optarg;
+extern int     optreset;
+
+#ifndef HAVE_STRUCT_OPTION
+
+struct option
+{
+       const char *name;
+       int                     has_arg;
+       int                *flag;
+       int                     val;
+};
+
+#define no_argument 0
+#define required_argument 1
+#endif
+
+#ifndef HAVE_GETOPT_LONG
+
+extern int getopt_long(int argc, char *const argv[],
+                       const char *optstring,
+                       const struct option * longopts, int *longindex);
+#endif
+
+#endif   /* GETOPT_LONG_H */