/*
* Copyright (c) 2002 Todd C. Miller <Todd.Miller@courtesan.com>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
* Sponsored in part by the Defense Advanced Research Projects
* Agency (DARPA) and Air Force Research Laboratory, Air Force
* Materiel Command, USAF, under agreement number F39502-99-1-0512.
*/

#include <stdio.h>
#include <stdlib.h>
#include <getopt.h>

/*
* Simple getopt_long() and getopt_long_only() excerciser.
* ENVIRONMENT:
*   LONG_ONLY   : use getopt_long_only() (default is getopt_long())
*   POSIXLY_CORRECT   : don't permute args
*/

int
main(int argc, char **argv)
{
   int ch, idx, goggles;
   int (*gl)(int, char * const *, const char *, const struct option *, int *);
   struct option longopts[] = {
      { "force", no_argument, 0, 0 },
      { "fast", no_argument, 0, '1' },
      { "best", no_argument, 0, '9' },
      { "input", required_argument, 0, 'i' },
      { "illiterate", no_argument, 0, 0 },
      { "drinking", required_argument, &goggles, 42 },
      { "help", no_argument, 0, 'h' },
      { 0, 0, 0, 0 },
   };

   if (getenv("LONG_ONLY")) {
      gl = getopt_long_only;
      printf("getopt_long_only");
   } else {
      gl = getopt_long;
      printf("getopt_long");
   }
   if (getenv("POSIXLY_CORRECT"))
      printf(" (POSIXLY_CORRECT)");
   printf(": ");
   for (idx = 1; idx < argc; idx++)
      printf("%s ", argv[idx]);
   printf("\n");

   goggles = 0;
   for (;;) {
      idx = -1;
      ch = gl(argc, argv, "19bf:i:hW;-", longopts, &idx);
      if (ch == -1)
         break;
      switch (ch) {
      case 0:
      case '1':
      case '9':
      case 'h':
      case 'b':
      case '-':
         if (idx != -1) {
            if (goggles == 42)
               printf("option %s, arg %s\n",
                   longopts[idx].name, optarg);
            else
               printf("option %s\n",
                   longopts[idx].name);
         } else
            printf("option %c\n", ch);
         break;
      case 'f':
      case 'i':
         if (idx != -1)
            printf("option %s, arg %s\n",
                longopts[idx].name, optarg);
         else
            printf("option %c, arg %s\n", ch, optarg);
         break;

      case '?':
         break;

      default:
         printf("unexpected return value: %c\n", ch);
         break;
      }
   }
   argc -= optind;
   argv += optind;

   if (argc > 0) {
      printf("remaining ARGV: ");
      while (argc--)
         printf("%s ", *argv++);
      printf("\n");
   }
   printf("\n");

   exit (0);
}