/**

 * \file numeric.c

 *

 * Handle options with numeric (integer) arguments.

 *

 * @addtogroup autoopts

 * @{

 */

/*

 *  This file is part of AutoOpts, a companion to AutoGen.

 *  AutoOpts is free software.

 *  AutoOpts is Copyright (C) 1992-2015 by Bruce Korb - all rights reserved

 *

 *  AutoOpts is available under any one of two licenses.  The license

 *  in use must be one of these two and the choice is under the control

 *  of the user of the license.

 *

 *   The GNU Lesser General Public License, version 3 or later

 *      See the files "COPYING.lgplv3" and "COPYING.gplv3"

 *

 *   The Modified Berkeley Software Distribution License

 *      See the file "COPYING.mbsd"

 *

 *  These files have the following sha256 sums:

 *

 *  8584710e9b04216a394078dc156b781d0b47e1729104d666658aecef8ee32e95  COPYING.gplv3

 *  4379e7444a0e2ce2b12dd6f5a52a27a4d02d39d247901d3285c88cf0d37f477b  COPYING.lgplv3

 *  13aa749a5b0a454917a944ed8fffc530b784f5ead522b1aacaf4ec8aa55a6239  COPYING.mbsd

 */

/*=export_func  optionShowRange

 * private:

 *

 * what:  Show info about range constraints

 * arg:   + tOptions * + pOpts     + program options descriptor  +

 * arg:   + tOptDesc * + pOptDesc  + the descriptor for this arg +

 * arg:   + void *     + rng_table + the value range tables      +

 * arg:   + int        + rng_count + the number of entries       +

 *

 * doc:

 *   Show information about a numeric option with range constraints.

=*/

void

optionShowRange(tOptions * pOpts, tOptDesc * pOD, void * rng_table, int rng_ct)

{

    const struct {long const rmin, rmax;} * rng = rng_table;

    char const * pz_indent = zTabHyp + tab_skip_ct;

    /*

     * The range is shown only for full usage requests and an error

     * in this particular option.

     */

    if (pOpts != OPTPROC_EMIT_USAGE) {

        if (pOpts <= OPTPROC_EMIT_LIMIT)

            return;

        pz_indent = ONE_TAB_STR;

        fprintf(option_usage_fp, zRangeErr, pOpts->pzProgName,

                pOD->pz_Name, pOD->optArg.argInt);

        pz_indent = "";

    }

    if (pOD->fOptState & OPTST_SCALED_NUM)

        fprintf(option_usage_fp, zRangeScaled, pz_indent);

    fprintf(option_usage_fp, (rng_ct > 1) ? zRangeLie : zRangeOnly, pz_indent);

    pz_indent = (pOpts != OPTPROC_EMIT_USAGE)

        ? ONE_TAB_STR

        : (zTabSpace + tab_skip_ct);

    for (;;) {

        if (rng->rmax == LONG_MIN)

            fprintf(option_usage_fp, zRangeExact, pz_indent, rng->rmin);

        else if (rng->rmin == LONG_MIN)

            fprintf(option_usage_fp, zRangeUpto, pz_indent, rng->rmax);

        else if (rng->rmax == LONG_MAX)

            fprintf(option_usage_fp, zRangeAbove, pz_indent, rng->rmin);

        else

            fprintf(option_usage_fp, zRange, pz_indent, rng->rmin,

                    rng->rmax);

        if  (--rng_ct <= 0) {

            fputc(NL, option_usage_fp);

            break;

        }

        fputs(zRangeOr, option_usage_fp);

        rng++;

    }

    if (pOpts > OPTPROC_EMIT_LIMIT)

        pOpts->pUsageProc(pOpts, EXIT_FAILURE);

}

/*=export_func  optionNumericVal

 * private:

 *

 * what:  process an option with a numeric value.

 * arg:   + tOptions * + opts + program options descriptor +

 * arg:   + tOptDesc * + od   + the descriptor for this arg +

 *

 * doc:

 *  Decipher a numeric value.

=*/

void

optionNumericVal(tOptions * opts, tOptDesc * od)

{

    char * pz;

    long   val;

    /*

     *  Guard against all the different ways this procedure might get invoked

     *  when there is no string argument provided.

     */

    if (INQUERY_CALL(opts, od) || (od->optArg.argString == NULL))

        return;

    /*

     *  Numeric options may have a range associated with it.

     *  If it does, the usage procedure requests that it be

     *  emitted by passing a NULL od pointer.  Also bail out

     *  if there is no option argument or if we are being reset.

     */

    if (  (od == NULL)

       || (od->optArg.argString == NULL)

       || ((od->fOptState & OPTST_RESET) != 0)

       || (opts <= OPTPROC_EMIT_LIMIT))

        return;

    errno = 0;

    val = strtol(od->optArg.argString, &pz, 0);

    if ((pz == od->optArg.argString) || (errno != 0))

        goto bad_number;

    if ((od->fOptState & OPTST_SCALED_NUM) != 0)

        switch (*(pz++)) {

        case NUL:  pz--; break;

        case 't':  val *= 1000;

        case 'g':  val *= 1000;

        case 'm':  val *= 1000;

        case 'k':  val *= 1000; break;

        case 'T':  val *= 1024;

        case 'G':  val *= 1024;

        case 'M':  val *= 1024;

        case 'K':  val *= 1024; break;

        default:   goto bad_number;

        }

    if (*pz != NUL)

        goto bad_number;

    if (od->fOptState & OPTST_ALLOC_ARG) {

        AGFREE(od->optArg.argString);

        od->fOptState &= ~OPTST_ALLOC_ARG;

    }

    od->optArg.argInt = val;

    return;

    bad_number:

    fprintf( stderr, zNotNumber, opts->pzProgName, od->optArg.argString );

    if ((opts->fOptSet & OPTPROC_ERRSTOP) != 0)

        (*(opts->pUsageProc))(opts, EXIT_FAILURE);

    errno = EINVAL;

    od->optArg.argInt = ~0;

}

/** @}

 *

 * Local Variables:

 * mode: C

 * c-file-style: "stroustrup"

 * indent-tabs-mode: nil

 * End:

 * end of autoopts/numeric.c */