Logo Search packages:      
Sourcecode: ksh version File versions  Download package

tmxduration.c

/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*          Copyright (c) 1985-2010 AT&T Intellectual Property          *
*                      and is licensed under the                       *
*                  Common Public License, Version 1.0                  *
*                    by AT&T Intellectual Property                     *
*                                                                      *
*                A copy of the License is available at                 *
*            http://www.opensource.org/licenses/cpl1.0.txt             *
*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
*                                                                      *
*              Information and Software Systems Research               *
*                            AT&T Research                             *
*                           Florham Park NJ                            *
*                                                                      *
*                 Glenn Fowler <gsf@research.att.com>                  *
*                  David Korn <dgk@research.att.com>                   *
*                   Phong Vo <kpv@research.att.com>                    *
*                                                                      *
***********************************************************************/
#pragma prototyped

#include <tmx.h>
#include <ctype.h>

/*
 * parse duration expression in s and return Time_t value
 * if non-null, e points to the first unused char in s
 * returns 0 with *e==s on error
 */

Time_t
tmxduration(const char* s, char** e)
{
      Time_t            ns;
      Time_t            ts;
      Time_t            now;
      char*       last;
      char*       t;
      char*       x;
      Sfio_t*           f;
      int         i;

      now = TMX_NOW;
      while (isspace(*s))
            s++;
      if (*s == 'P' || *s == 'p')
            ns = tmxdate(s, &last, now) - now;
      else
      {
            ns = strtod(s, &last) * TMX_RESOLUTION;
            if (*last && (f = sfstropen()))
            {
                  sfprintf(f, "exact %s", s);
                  t = sfstruse(f);
                  ts = tmxdate(t, &x, now);
                  if ((i = x - t - 6) > (last - s))
                  {
                        last = (char*)s + i;
                        ns = ts - now;
                  }
                  else
                  {
                        sfprintf(f, "p%s", s);
                        t = sfstruse(f);
                        ts = tmxdate(t, &x, now);
                        if ((i = x - t - 1) > (last - s))
                        {
                              last = (char*)s + i;
                              ns = ts - now;
                        }
                  }
                  sfstrclose(f);
            }
      }
      if (e)
            *e = last;
      return ns;
}

Generated by  Doxygen 1.6.0   Back to index