/* -*- mode: c; tabs: 4; -*- ************************************************
* Module name   : longopt.c
* Module type   : CMDFILE source file
* Environment(s): n/a
*
* Version   Who     Date        Description
            APY     12/99       Created
                    05/10/04    -e/E exclusive check/error
*
* $Source: /cvsroot/device/DEVL/UTILS/CMDFILE/longopt.c,v $
* $Revision: 1.7 $ $Date: 2004/11/05 07:51:39 $ $State: Exp $
* $Author: ayoung $ $Locker:  $
*.........................................................................*/

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include "getopt.h"
#include "longopt.h"
#include "cmdfile.h"

#define VALID_OPTIONS           "nNokreEvtwWmd"
#define HAS_ARGUMENT            "krmdW"
#define OPTIONAL_ARGUMENT       "k"

static struct option const long_options[] =
{
    { "help",       no_argument, 0,     'h' },
    { "version",    no_argument, 0,     'v' },
    { 0, 0, 0, 0 }
};


/* Process long options --help and --version, but only if argc == 2.
   Be careful not to gobble up `--'.  */

void
parse_long_options( argc, argv, command_name, version_string, usage )
    int argc;
    char **argv;
    const char *command_name;
    const char *version_string;
    void (*usage)();
{
    int c;
    int saved_opterr;
    int saved_optind;

    saved_opterr = opterr;
    saved_optind = optind;

/* Don't print an error message for unrecognized options.  */
    opterr = 0;

    if (argc == 2 &&
            (c = getoptl(argc, argv, "+", long_options, 0)) != EOF)
    {
        switch (c)
        {
        case 'h':
            (*usage)(0);

        case 'v':
            printf("%s - %s\n", command_name, version_string);
            exit(0);

        default:
            /* Don't process any other long-named options.  */
            break;
        }
    }

/* Restore previous value */
    opterr = saved_opterr;

/* Restore optind in case it has advanced past a leading `--'.  */
    optind = saved_optind;
}


int
parse_short_argument( const register char *arg )
{
    int argument = FALSE;
    register int i;

    /* If it appears that we are handling options, then make sure that
    all of the options specified are actually valid.  Otherwise, the
    string should just be echoed. */

    for (i = 0; arg[i]; i++)
    {
        if (arg[i] == 'o')
            break;                              /* must be last */

        if (argument)
            argument = FALSE;                   /* argument to previous */

        else
        {
            if (strrchr (VALID_OPTIONS, arg[i]) == 0)
            {                                   /* not within valid list */
                if (vflg > 1)
                    printf( "invalid character '%c' in option list  -- ignored\n", arg[i] );
                return (-1);
            }

            if (strrchr (HAS_ARGUMENT, arg[i]))
            {                                   /* argument expected */
                if (arg[i+1] == '\0')
                {
                    if (!strrchr (OPTIONAL_ARGUMENT, arg[i]))
                    {
                        if (vflg > 1)
                            printf( "option '%c' missing argument  -- ignored\n", arg[i] );
                        return (-1);
                    }
                }
                argument = TRUE;
            }
        }
    }

    /* All of the options are valid options ... handle them. */
    while (*arg)
    {
        if (*arg == 'o')
        {
            arg++;                              /* skip 'o */

            if (strlen(arg) == 0)
                fatalerr("Missing -o");

            if (output != stdout)               /* shouldn't happen */
                fatalerr("Second -o encountered \"%s\"", arg);

            oflg = arg;
            if (*oflg == '\0')
                fatalerr("Missing output file name");
            break;
        }
        else if (*arg == 'n')                   /* no newline */
            nflg = 0;
        else if (*arg == 'N')                         
            nlflg = 1;                          /* newline was seperator */

        else if (*arg == 'k')
        {
            if (arg[1] == '1')
                arg++, kflg++;                  /* lf/cr kludge */
            else if (arg[1] == '2')
                arg++, k2flg++;                 /* MRI kludge */
            else
            {
                kflg = 1;
            }
        }
        else if (*arg == 'r')                   /* inline realpath */
        {
            if (rflg == -1)                     /* remove default (if any) */
                rtags[ rflg = 0 ] = '\0';
            if (arg[1])
                rtags[ rflg++ ] = arg[1], arg++;
        }
        else if (*arg == 'e') {
            if (eflg != 1)
                fatalerr("-E and -e are exclusive");
            eflg = 2;
        }
        else if (*arg == 'E') {
            if (eflg != 1)
                fatalerr("-E and -e are exclusive");
            eflg = 0;
        }
        else if (*arg == 'v')
            vflg++;
        else if (*arg == 'c')
            cflg++;
        else if (*arg == 'M')
            Mflg++;
        else if (*arg == 't')
            tflg++;

        else if (*arg == 'w')
            wflg++;

        else if (*arg == 'W')                   /* whitespace handling */
        {
            switch(arg[1]) {
            case '0':                           /* method 0: nothing */
            case '-':
                whitespace = WS_IGNORE;
                break;
            case '1':                           /* method 1: escape */
            case 'e':
                whitespace = WS_ESCAPE;
                break;
            case '2':                           /* method 2: quote path */
            case 'q':
                whitespace = WS_QUOTE;
                break;
        /*  case '3':                   */      /* method 3: junk */
        /*  case 'j':                   */
        /*      whitespace = WS_JUNK;   */
        /*      break;                  */
        /*  case '4':                   */      /* method 4: URL */
        /*  case 'u':                   */
        /*      whitespace = WS_URL;    */
        /*      break;                  */
            default:
                fatalerr( "Unknown -W specification '%c'", arg[1] );
                break;
            }
            arg++;
        }

        else if (*arg == 'm' && arg[1])
            mflg = arg[1], arg++;
        else if (*arg == 'd' && arg[1])
        {
            dflg[0] = arg[1];                   /* known pairs */
            if      (dflg[0] == '(') dflg[1] = ')';
            else if (dflg[0] == '{') dflg[1] = '}';
            else if (dflg[0] == '[') dflg[1] = ']';
            else if (dflg[0] == '<') dflg[1] = '>';
            else dflg[1] = arg[1];              /* single */
            arg++;
        }
        else
        {
            return (-1);                        /* unknown, exit arg loop */
        }
        arg++;
    }

    return (1);
}