1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman #include <tmx.h>
25*b30d1939SAndy Fiddaman #include <ctype.h>
26*b30d1939SAndy Fiddaman
27*b30d1939SAndy Fiddaman /*
28*b30d1939SAndy Fiddaman * parse duration expression in s and return Time_t value
29*b30d1939SAndy Fiddaman * if non-null, e points to the first unused char in s
30*b30d1939SAndy Fiddaman * returns 0 with *e==s on error
31*b30d1939SAndy Fiddaman */
32*b30d1939SAndy Fiddaman
33*b30d1939SAndy Fiddaman Time_t
tmxduration(const char * s,char ** e)34*b30d1939SAndy Fiddaman tmxduration(const char* s, char** e)
35*b30d1939SAndy Fiddaman {
36*b30d1939SAndy Fiddaman Time_t ns;
37*b30d1939SAndy Fiddaman Time_t ts;
38*b30d1939SAndy Fiddaman Time_t now;
39*b30d1939SAndy Fiddaman char* last;
40*b30d1939SAndy Fiddaman char* t;
41*b30d1939SAndy Fiddaman char* x;
42*b30d1939SAndy Fiddaman Sfio_t* f;
43*b30d1939SAndy Fiddaman int i;
44*b30d1939SAndy Fiddaman
45*b30d1939SAndy Fiddaman now = TMX_NOW;
46*b30d1939SAndy Fiddaman while (isspace(*s))
47*b30d1939SAndy Fiddaman s++;
48*b30d1939SAndy Fiddaman if (*s == 'P' || *s == 'p')
49*b30d1939SAndy Fiddaman ns = tmxdate(s, &last, now) - now;
50*b30d1939SAndy Fiddaman else
51*b30d1939SAndy Fiddaman {
52*b30d1939SAndy Fiddaman ns = strtod(s, &last) * TMX_RESOLUTION;
53*b30d1939SAndy Fiddaman if (*last && (f = sfstropen()))
54*b30d1939SAndy Fiddaman {
55*b30d1939SAndy Fiddaman sfprintf(f, "exact %s", s);
56*b30d1939SAndy Fiddaman t = sfstruse(f);
57*b30d1939SAndy Fiddaman ts = tmxdate(t, &x, now);
58*b30d1939SAndy Fiddaman if ((i = x - t - 6) > (last - s))
59*b30d1939SAndy Fiddaman {
60*b30d1939SAndy Fiddaman last = (char*)s + i;
61*b30d1939SAndy Fiddaman ns = ts - now;
62*b30d1939SAndy Fiddaman }
63*b30d1939SAndy Fiddaman else
64*b30d1939SAndy Fiddaman {
65*b30d1939SAndy Fiddaman sfprintf(f, "p%s", s);
66*b30d1939SAndy Fiddaman t = sfstruse(f);
67*b30d1939SAndy Fiddaman ts = tmxdate(t, &x, now);
68*b30d1939SAndy Fiddaman if ((i = x - t - 1) > (last - s))
69*b30d1939SAndy Fiddaman {
70*b30d1939SAndy Fiddaman last = (char*)s + i;
71*b30d1939SAndy Fiddaman ns = ts - now;
72*b30d1939SAndy Fiddaman }
73*b30d1939SAndy Fiddaman }
74*b30d1939SAndy Fiddaman sfstrclose(f);
75*b30d1939SAndy Fiddaman }
76*b30d1939SAndy Fiddaman }
77*b30d1939SAndy Fiddaman if (e)
78*b30d1939SAndy Fiddaman *e = last;
79*b30d1939SAndy Fiddaman return ns;
80*b30d1939SAndy Fiddaman }
81