/*      $NetBSD: time.c,v 1.6 2024/08/18 20:47:25 christos Exp $        */


/**
* \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 */