/**

 * \file time.c

 *

 * @addtogroup autoopts

 * @{

 */

/*

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

 *  AutoOpts is free software.

 *  AutoOpts is Copyright (C) 1992-2018 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  optionTimeVal

 * private:

 *

 * what:  process an option with a time duration.

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

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

 *

 * doc:

 *  Decipher a time duration value.

=*/

void

optionTimeVal(tOptions * opts, tOptDesc * od)

{

    time_t val;

    if (INQUERY_CALL(opts, od))

        return;

    val = parse_duration(od->optArg.argString);

    if (val == BAD_TIME) {

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

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

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

    }

    if (od->fOptState & OPTST_ALLOC_ARG) {

        AGFREE(od->optArg.argString);

        od->fOptState &= ~OPTST_ALLOC_ARG;

    }

    od->optArg.argInt = (long)val;

}

/*=export_func  optionTimeDate

 * private:

 *

 * what:  process an option with a time and date.

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

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

 *

 * doc:

 *  Decipher a time and date value.

=*/

void

optionTimeDate(tOptions * opts, tOptDesc * od)

{

#if defined(HAVE_GETDATE_R) && defined(HAVE_PUTENV)

    if (INQUERY_CALL(opts, od))

        return;

    if ((! HAS_pzPkgDataDir(opts)) || (opts->pzPkgDataDir == NULL))

        goto default_action;

    /*

     *  Export the DATEMSK environment variable.  getdate_r() uses it to

     *  find the file with the strptime formats.  If we cannot find the file

     *  we need ($PKGDATADIR/datemsk), then fall back to just a time duration.

     */

    {

        static char * envptr = NULL;

        if (envptr == NULL) {

            static char const fmt[] = "DATEMSK=%s/datemsk";

            size_t sz = sizeof(fmt) + strlen(opts->pzPkgDataDir);

            envptr = AGALOC(sz, fmt);

            if (snprintf(envptr, sz, fmt, opts->pzPkgDataDir) >= (int)sz)

                option_exits(EXIT_FAILURE);

            putenv(envptr);

        }

        if (access(envptr+8, R_OK) != 0)

            goto default_action;

    }

    /*

     *  Convert the date to a time since the epoch and stash it in a long int.

     */

    {

        struct tm stm;

        time_t tm;

        if (getdate_r(od->optArg.argString, &stm) != 0) {

            fprintf(stderr, zNotDate, opts->pzProgName,

                    od->optArg.argString);

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

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

            return;

        }

        tm = mktime(&stm;;

        if (od->fOptState & OPTST_ALLOC_ARG) {

            AGFREE(od->optArg.argString);

            od->fOptState &= ~OPTST_ALLOC_ARG;

        }

        od->optArg.argInt = tm;

    }

    return;

 default_action:

#endif

    optionTimeVal(opts, od);

    if (od->optArg.argInt != BAD_TIME)

        od->optArg.argInt += (long)time(NULL);

}

/** @}

 *

 * Local Variables:

 * mode: C

 * c-file-style: "stroustrup"

 * indent-tabs-mode: nil

 * End:

 * end of autoopts/time.c */