Mercurial > hg > octave-kai > gnulib-hg
annotate lib/getdate.y @ 10531:e83a90adf243
Override fopen more carefully.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Sun, 28 Sep 2008 16:12:20 +0200 |
| parents | c640552acc85 |
| children | 3adf94551b5e |
| rev | line source |
|---|---|
| 9 | 1 %{ |
| 1928 | 2 /* Parse a string into an internal time stamp. |
|
5662
42df9db003cc
* modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5548
diff
changeset
|
3 |
|
10256
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
4 Copyright (C) 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
5 Free Software Foundation, Inc. |
| 1928 | 6 |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8987
diff
changeset
|
7 This program is free software: you can redistribute it and/or modify |
| 1928 | 8 it under the terms of the GNU General Public License as published by |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8987
diff
changeset
|
9 the Free Software Foundation; either version 3 of the License, or |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8987
diff
changeset
|
10 (at your option) any later version. |
| 1928 | 11 |
| 12 This program is distributed in the hope that it will be useful, | |
| 13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 GNU General Public License for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8987
diff
changeset
|
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 1928 | 19 |
| 20 /* Originally written by Steven M. Bellovin <smb@research.att.com> while | |
| 21 at the University of North Carolina at Chapel Hill. Later tweaked by | |
| 22 a couple of people on Usenet. Completely overhauled by Rich $alz | |
| 23 <rsalz@bbn.com> and Jim Berets <jberets@bbn.com> in August, 1990. | |
| 24 | |
| 25 Modified by Paul Eggert <eggert@twinsun.com> in August 1999 to do | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
26 the right thing about local DST. Also modified by Paul Eggert |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
27 <eggert@cs.ucla.edu> in February 2004 to support |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
28 nanosecond-resolution time stamps, and in October 2004 to support |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
29 TZ strings in dates. */ |
| 9 | 30 |
| 4984 | 31 /* FIXME: Check for arithmetic overflow in all cases, not just |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
32 some of them. */ |
| 4984 | 33 |
|
7302
8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents:
6932
diff
changeset
|
34 #include <config.h> |
| 48 | 35 |
| 4984 | 36 #include "getdate.h" |
|
8987
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
37 |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
38 #include "intprops.h" |
|
8223
ca249819379f
* lib/getdate.h (includes): Include <time.h>, not "timespec.h".
Eric Blake <ebb9@byu.net>
parents:
7558
diff
changeset
|
39 #include "timespec.h" |
|
8987
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
40 #include "verify.h" |
| 4984 | 41 |
|
5548
b8dd75cdd3a8
(YYSTACK_USE_ALLOCA): Define to 0, since there's no need to extend the
Paul Eggert <eggert@cs.ucla.edu>
parents:
5546
diff
changeset
|
42 /* There's no need to extend the stack, so there's no need to involve |
|
b8dd75cdd3a8
(YYSTACK_USE_ALLOCA): Define to 0, since there's no need to extend the
Paul Eggert <eggert@cs.ucla.edu>
parents:
5546
diff
changeset
|
43 alloca. */ |
|
b8dd75cdd3a8
(YYSTACK_USE_ALLOCA): Define to 0, since there's no need to extend the
Paul Eggert <eggert@cs.ucla.edu>
parents:
5546
diff
changeset
|
44 #define YYSTACK_USE_ALLOCA 0 |
|
5538
87bc9c0d52d4
* alloca_.h: Conditionalize on _GNULIB_ALLOCA_H, not _ALLOCA_H.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5520
diff
changeset
|
45 |
|
5543
96b72280d322
Fix typo in comment in previous change.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5538
diff
changeset
|
46 /* Tell Bison how much stack space is needed. 20 should be plenty for |
|
5538
87bc9c0d52d4
* alloca_.h: Conditionalize on _GNULIB_ALLOCA_H, not _ALLOCA_H.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5520
diff
changeset
|
47 this grammar, which is not right recursive. Beware setting it too |
|
5548
b8dd75cdd3a8
(YYSTACK_USE_ALLOCA): Define to 0, since there's no need to extend the
Paul Eggert <eggert@cs.ucla.edu>
parents:
5546
diff
changeset
|
48 high, since that might cause problems on machines whose |
|
5538
87bc9c0d52d4
* alloca_.h: Conditionalize on _GNULIB_ALLOCA_H, not _ALLOCA_H.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5520
diff
changeset
|
49 implementations have lame stack-overflow checking. */ |
|
87bc9c0d52d4
* alloca_.h: Conditionalize on _GNULIB_ALLOCA_H, not _ALLOCA_H.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5520
diff
changeset
|
50 #define YYMAXDEPTH 20 |
|
5546
b45cd12ab00f
(YYINITDEPTH): New macro, so that the initial stack is small too.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5543
diff
changeset
|
51 #define YYINITDEPTH YYMAXDEPTH |
|
4156
99ea86c79f44
Make it possibly to simply write: #include <alloca.h>.
Bruno Haible <bruno@clisp.org>
parents:
4102
diff
changeset
|
52 |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
53 /* Since the code of getdate.y is not included in the Emacs executable |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
54 itself, there is no need to #define static in this file. Even if |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
55 the code were included in the Emacs executable, it probably |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
56 wouldn't do any harm to #undef it here; this will only cause |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
57 problems if we try to write to a static variable, which I don't |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
58 think this code needs to do. */ |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
59 #ifdef emacs |
|
855
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
60 # undef static |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
61 #endif |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
62 |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
63 #include <c-ctype.h> |
| 4984 | 64 #include <limits.h> |
|
5382
72833e3704a0
* getdate.y [!TEST]: Include <stdio.h>, since we use sprintf now.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5373
diff
changeset
|
65 #include <stdio.h> |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
66 #include <stdlib.h> |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
67 #include <string.h> |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
68 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
69 #include "xalloc.h" |
|
1785
197f4bdf9a3d
<stdlib.h>: Include if HAVE_STDLIB_H, since bison 1.27 invokes "free".
Jim Meyering <jim@meyering.net>
parents:
1777
diff
changeset
|
70 |
| 814 | 71 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
72 /* ISDIGIT differs from isdigit, as follows: |
|
6932
6aeb4d6c28d9
* lib/.cppi-disable: Add wcwidth.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6927
diff
changeset
|
73 - Its arg may be any int or unsigned int; it need not be an unsigned char |
|
6aeb4d6c28d9
* lib/.cppi-disable: Add wcwidth.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6927
diff
changeset
|
74 or EOF. |
|
811
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
75 - It's typically faster. |
| 3697 | 76 POSIX says that only '0' through '9' are digits. Prefer ISDIGIT to |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
77 isdigit unless it's important to use the locale's definition |
| 3697 | 78 of `digit' even when the host does not conform to POSIX. */ |
| 4984 | 79 #define ISDIGIT(c) ((unsigned int) (c) - '0' <= 9) |
|
688
cc4dbb9f5f58
Define and use upper case variants of ctype.h IS* macros.
Jim Meyering <jim@meyering.net>
parents:
562
diff
changeset
|
80 |
|
6819
3449832bdc37
* getdate.y (__attribute__): Don't define if already defined.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6755
diff
changeset
|
81 #ifndef __attribute__ |
|
3449832bdc37
* getdate.y (__attribute__): Don't define if already defined.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6755
diff
changeset
|
82 # if __GNUC__ < 2 || (__GNUC__ == 2 && __GNUC_MINOR__ < 8) || __STRICT_ANSI__ |
|
3449832bdc37
* getdate.y (__attribute__): Don't define if already defined.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6755
diff
changeset
|
83 # define __attribute__(x) |
|
3449832bdc37
* getdate.y (__attribute__): Don't define if already defined.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6755
diff
changeset
|
84 # endif |
|
1584
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
85 #endif |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
86 |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
87 #ifndef ATTRIBUTE_UNUSED |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
88 # define ATTRIBUTE_UNUSED __attribute__ ((__unused__)) |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
89 #endif |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
90 |
|
5414
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
91 /* Shift A right by B bits portably, by dividing A by 2**B and |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
92 truncating towards minus infinity. A and B should be free of side |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
93 effects, and B should be in the range 0 <= B <= INT_BITS - 2, where |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
94 INT_BITS is the number of useful bits in an int. GNU code can |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
95 assume that INT_BITS is at least 32. |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
96 |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
97 ISO C99 says that A >> B is implementation-defined if A < 0. Some |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
98 implementations (e.g., UNICOS 9.0 on a Cray Y-MP EL) don't shift |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
99 right in the usual way when A < 0, so SHR falls back on division if |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
100 ordinary A >> B doesn't seem to be the usual signed shift. */ |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
101 #define SHR(a, b) \ |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
102 (-1 >> 1 == -1 \ |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
103 ? (a) >> (b) \ |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
104 : (a) / (1 << (b)) - ((a) % (1 << (b)) < 0)) |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
105 |
| 1928 | 106 #define EPOCH_YEAR 1970 |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
107 #define TM_YEAR_BASE 1900 |
| 1928 | 108 |
| 109 #define HOUR(x) ((x) * 60) | |
|
2588
17f2ecbac01c
(get_date): Apply relative times after time zone indicator, not before.
Jim Meyering <jim@meyering.net>
parents:
2280
diff
changeset
|
110 |
|
8987
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
111 /* Lots of this code assumes time_t and time_t-like values fit into |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
112 long int. It also assumes that signed integer overflow silently |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
113 wraps around, but there's no portable way to check for that at |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
114 compile-time. */ |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
115 verify (TYPE_IS_INTEGER (time_t)); |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
116 verify (LONG_MIN <= TYPE_MINIMUM (time_t) && TYPE_MAXIMUM (time_t) <= LONG_MAX); |
|
9d7e51011293
Detect porting problems to FreeBSD/arm, which has time_t wider than
Paul Eggert <eggert@cs.ucla.edu>
parents:
8223
diff
changeset
|
117 |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
118 /* An integer value, and the number of digits in its textual |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
119 representation. */ |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
120 typedef struct |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
121 { |
| 5520 | 122 bool negative; |
| 4984 | 123 long int value; |
| 124 size_t digits; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
125 } textint; |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
126 |
| 1928 | 127 /* An entry in the lexical lookup table. */ |
| 128 typedef struct | |
| 129 { | |
| 130 char const *name; | |
| 131 int type; | |
| 132 int value; | |
| 133 } table; | |
| 134 | |
| 135 /* Meridian: am, pm, or 24-hour style. */ | |
| 136 enum { MERam, MERpm, MER24 }; | |
|
769
c906850e724f
Remap yacc globals to have gd_ prefix.
Jim Meyering <jim@meyering.net>
parents:
688
diff
changeset
|
137 |
| 4984 | 138 enum { BILLION = 1000000000, LOG10_BILLION = 9 }; |
| 139 | |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
140 /* Relative times. */ |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
141 typedef struct |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
142 { |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
143 /* Relative year, month, day, hour, minutes, seconds, and nanoseconds. */ |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
144 long int year; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
145 long int month; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
146 long int day; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
147 long int hour; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
148 long int minutes; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
149 long int seconds; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
150 long int ns; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
151 } relative_time; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
152 |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
153 #if HAVE_COMPOUND_LITERALS |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
154 # define RELATIVE_TIME_0 ((relative_time) { 0, 0, 0, 0, 0, 0, 0 }) |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
155 #else |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
156 static relative_time const RELATIVE_TIME_0; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
157 #endif |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
158 |
| 1928 | 159 /* Information passed to and from the parser. */ |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
160 typedef struct |
|
2047
626ebcce50a3
(get_date): Fix typo in time_t overflow test.
Jim Meyering <jim@meyering.net>
parents:
1986
diff
changeset
|
161 { |
| 1928 | 162 /* The input string remaining to be parsed. */ |
| 163 const char *input; | |
| 164 | |
| 165 /* N, if this is the Nth Tuesday. */ | |
| 4984 | 166 long int day_ordinal; |
| 1928 | 167 |
| 168 /* Day of week; Sunday is 0. */ | |
| 169 int day_number; | |
| 170 | |
| 171 /* tm_isdst flag for the local zone. */ | |
| 172 int local_isdst; | |
| 173 | |
| 174 /* Time zone, in minutes east of UTC. */ | |
| 4984 | 175 long int time_zone; |
| 9 | 176 |
| 1928 | 177 /* Style used for time. */ |
| 178 int meridian; | |
| 9 | 179 |
| 4984 | 180 /* Gregorian year, month, day, hour, minutes, seconds, and nanoseconds. */ |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
181 textint year; |
| 4984 | 182 long int month; |
| 183 long int day; | |
| 184 long int hour; | |
| 185 long int minutes; | |
| 186 struct timespec seconds; /* includes nanoseconds */ | |
| 9 | 187 |
| 4984 | 188 /* Relative year, month, day, hour, minutes, seconds, and nanoseconds. */ |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
189 relative_time rel; |
| 9 | 190 |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
191 /* Presence or counts of nonterminals of various flavors parsed so far. */ |
| 4984 | 192 bool timespec_seen; |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
193 bool rels_seen; |
| 4984 | 194 size_t dates_seen; |
| 195 size_t days_seen; | |
| 196 size_t local_zones_seen; | |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
197 size_t dsts_seen; |
| 4984 | 198 size_t times_seen; |
| 199 size_t zones_seen; | |
| 1928 | 200 |
| 201 /* Table of local time zone abbrevations, terminated by a null entry. */ | |
| 202 table local_time_zone_table[3]; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
203 } parser_control; |
| 1928 | 204 |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
205 union YYSTYPE; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
206 static int yylex (union YYSTYPE *, parser_control *); |
|
7558
c778aa6236a8
* lib/getdate.y (yyerror): Make the arguments pointer-to-const,
Paul Eggert <eggert@cs.ucla.edu>
parents:
7302
diff
changeset
|
207 static int yyerror (parser_control const *, char const *); |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
208 static long int time_zone_hhmm (parser_control *, textint, long int); |
| 9 | 209 |
|
9484
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
210 /* Extract into *PC any date and time info from a string of digits |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
211 of the form e.g., YYYYMMDD, YYMMDD, HHMM, HH (and sometimes YYY, |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
212 YYYY, ...). */ |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
213 static void |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
214 digits_to_date_time (parser_control *pc, textint text_int) |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
215 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
216 if (pc->dates_seen && ! pc->year.digits |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
217 && ! pc->rels_seen && (pc->times_seen || 2 < text_int.digits)) |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
218 pc->year = text_int; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
219 else |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
220 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
221 if (4 < text_int.digits) |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
222 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
223 pc->dates_seen++; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
224 pc->day = text_int.value % 100; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
225 pc->month = (text_int.value / 100) % 100; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
226 pc->year.value = text_int.value / 10000; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
227 pc->year.digits = text_int.digits - 4; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
228 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
229 else |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
230 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
231 pc->times_seen++; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
232 if (text_int.digits <= 2) |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
233 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
234 pc->hour = text_int.value; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
235 pc->minutes = 0; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
236 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
237 else |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
238 { |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
239 pc->hour = text_int.value / 100; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
240 pc->minutes = text_int.value % 100; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
241 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
242 pc->seconds.tv_sec = 0; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
243 pc->seconds.tv_nsec = 0; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
244 pc->meridian = MER24; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
245 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
246 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
247 } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
248 |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
249 /* Increment PC->rel by FACTOR * REL (FACTOR is 1 or -1). */ |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
250 static void |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
251 apply_relative_time (parser_control *pc, relative_time rel, int factor) |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
252 { |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
253 pc->rel.ns += factor * rel.ns; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
254 pc->rel.seconds += factor * rel.seconds; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
255 pc->rel.minutes += factor * rel.minutes; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
256 pc->rel.hour += factor * rel.hour; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
257 pc->rel.day += factor * rel.day; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
258 pc->rel.month += factor * rel.month; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
259 pc->rel.year += factor * rel.year; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
260 pc->rels_seen = true; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
261 } |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
262 |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
263 /* Set PC-> hour, minutes, seconds and nanoseconds members from arguments. */ |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
264 static void |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
265 set_hhmmss (parser_control *pc, long int hour, long int minutes, |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
266 time_t sec, long int nsec) |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
267 { |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
268 pc->hour = hour; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
269 pc->minutes = minutes; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
270 pc->seconds.tv_sec = sec; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
271 pc->seconds.tv_nsec = nsec; |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
272 } |
|
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
273 |
| 9 | 274 %} |
| 275 | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
276 /* We want a reentrant parser, even if the TZ manipulation and the calls to |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
277 localtime and gmtime are not reentrant. */ |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
278 %pure-parser |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
279 %parse-param { parser_control *pc } |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
280 %lex-param { parser_control *pc } |
| 1928 | 281 |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
282 /* This grammar has 20 shift/reduce conflicts. */ |
|
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
283 %expect 20 |
|
2588
17f2ecbac01c
(get_date): Apply relative times after time zone indicator, not before.
Jim Meyering <jim@meyering.net>
parents:
2280
diff
changeset
|
284 |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
285 %union |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
286 { |
| 4984 | 287 long int intval; |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
288 textint textintval; |
| 4984 | 289 struct timespec timespec; |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
290 relative_time rel; |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
291 } |
| 1203 | 292 |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
293 %token tAGO tDST |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
294 |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
295 %token tYEAR_UNIT tMONTH_UNIT tHOUR_UNIT tMINUTE_UNIT tSEC_UNIT |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
296 %token <intval> tDAY_UNIT |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
297 |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
298 %token <intval> tDAY tDAYZONE tLOCAL_ZONE tMERIDIAN |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
299 %token <intval> tMONTH tORDINAL tZONE |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
300 |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
301 %token <textintval> tSNUMBER tUNUMBER |
| 4984 | 302 %token <timespec> tSDECIMAL_NUMBER tUDECIMAL_NUMBER |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
303 |
| 5520 | 304 %type <intval> o_colon_minutes o_merid |
| 4984 | 305 %type <timespec> seconds signed_seconds unsigned_seconds |
| 9 | 306 |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
307 %type <rel> relunit relunit_snumber |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
308 |
| 9 | 309 %% |
| 310 | |
| 1928 | 311 spec: |
| 4984 | 312 timespec |
| 313 | items | |
| 314 ; | |
| 315 | |
| 316 timespec: | |
| 317 '@' seconds | |
| 318 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
319 pc->seconds = $2; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
320 pc->timespec_seen = true; |
| 4984 | 321 } |
| 322 ; | |
| 323 | |
| 324 items: | |
| 1928 | 325 /* empty */ |
| 4984 | 326 | items item |
| 1928 | 327 ; |
| 9 | 328 |
| 1928 | 329 item: |
| 330 time | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
331 { pc->times_seen++; } |
| 1928 | 332 | local_zone |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
333 { pc->local_zones_seen++; } |
| 1928 | 334 | zone |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
335 { pc->zones_seen++; } |
| 1928 | 336 | date |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
337 { pc->dates_seen++; } |
| 1928 | 338 | day |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
339 { pc->days_seen++; } |
| 1928 | 340 | rel |
| 341 | number | |
|
9484
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
342 | hybrid |
| 1928 | 343 ; |
| 9 | 344 |
| 1928 | 345 time: |
| 346 tUNUMBER tMERIDIAN | |
| 347 { | |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
348 set_hhmmss (pc, $1.value, 0, 0, 0); |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
349 pc->meridian = $2; |
| 1928 | 350 } |
| 351 | tUNUMBER ':' tUNUMBER o_merid | |
| 352 { | |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
353 set_hhmmss (pc, $1.value, $3.value, 0, 0); |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
354 pc->meridian = $4; |
| 1928 | 355 } |
| 5520 | 356 | tUNUMBER ':' tUNUMBER tSNUMBER o_colon_minutes |
| 1928 | 357 { |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
358 set_hhmmss (pc, $1.value, $3.value, 0, 0); |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
359 pc->meridian = MER24; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
360 pc->zones_seen++; |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
361 pc->time_zone = time_zone_hhmm (pc, $4, $5); |
| 1928 | 362 } |
| 4984 | 363 | tUNUMBER ':' tUNUMBER ':' unsigned_seconds o_merid |
| 1928 | 364 { |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
365 set_hhmmss (pc, $1.value, $3.value, $5.tv_sec, $5.tv_nsec); |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
366 pc->meridian = $6; |
| 1928 | 367 } |
| 5520 | 368 | tUNUMBER ':' tUNUMBER ':' unsigned_seconds tSNUMBER o_colon_minutes |
| 1928 | 369 { |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
370 set_hhmmss (pc, $1.value, $3.value, $5.tv_sec, $5.tv_nsec); |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
371 pc->meridian = MER24; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
372 pc->zones_seen++; |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
373 pc->time_zone = time_zone_hhmm (pc, $6, $7); |
| 1928 | 374 } |
| 375 ; | |
| 9 | 376 |
| 1928 | 377 local_zone: |
| 378 tLOCAL_ZONE | |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
379 { |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
380 pc->local_isdst = $1; |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
381 pc->dsts_seen += (0 < $1); |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
382 } |
| 1928 | 383 | tLOCAL_ZONE tDST |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
384 { |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
385 pc->local_isdst = 1; |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
386 pc->dsts_seen += (0 < $1) + 1; |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
387 } |
| 1928 | 388 ; |
| 389 | |
| 390 zone: | |
| 391 tZONE | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
392 { pc->time_zone = $1; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
393 | tZONE relunit_snumber |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
394 { pc->time_zone = $1; |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
395 apply_relative_time (pc, $2, 1); } |
| 5520 | 396 | tZONE tSNUMBER o_colon_minutes |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
397 { pc->time_zone = $1 + time_zone_hhmm (pc, $2, $3); } |
| 1928 | 398 | tDAYZONE |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
399 { pc->time_zone = $1 + 60; } |
| 1928 | 400 | tZONE tDST |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
401 { pc->time_zone = $1 + 60; } |
| 1928 | 402 ; |
| 9 | 403 |
| 1928 | 404 day: |
| 405 tDAY | |
| 406 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
407 pc->day_ordinal = 1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
408 pc->day_number = $1; |
| 1928 | 409 } |
| 410 | tDAY ',' | |
| 411 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
412 pc->day_ordinal = 1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
413 pc->day_number = $1; |
| 1928 | 414 } |
| 5449 | 415 | tORDINAL tDAY |
| 416 { | |
| 417 pc->day_ordinal = $1; | |
| 418 pc->day_number = $2; | |
| 419 } | |
| 1928 | 420 | tUNUMBER tDAY |
| 421 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
422 pc->day_ordinal = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
423 pc->day_number = $2; |
| 1928 | 424 } |
| 425 ; | |
| 9 | 426 |
| 1928 | 427 date: |
| 428 tUNUMBER '/' tUNUMBER | |
| 429 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
430 pc->month = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
431 pc->day = $3.value; |
| 1928 | 432 } |
| 433 | tUNUMBER '/' tUNUMBER '/' tUNUMBER | |
| 434 { | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
435 /* Interpret as YYYY/MM/DD if the first value has 4 or more digits, |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
436 otherwise as MM/DD/YY. |
| 1928 | 437 The goal in recognizing YYYY/MM/DD is solely to support legacy |
| 438 machine-generated dates like those in an RCS log listing. If | |
| 439 you want portability, use the ISO 8601 format. */ | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
440 if (4 <= $1.digits) |
| 1928 | 441 { |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
442 pc->year = $1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
443 pc->month = $3.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
444 pc->day = $5.value; |
| 1928 | 445 } |
| 446 else | |
| 447 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
448 pc->month = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
449 pc->day = $3.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
450 pc->year = $5; |
| 1928 | 451 } |
| 452 } | |
| 453 | tUNUMBER tSNUMBER tSNUMBER | |
| 454 { | |
| 455 /* ISO 8601 format. YYYY-MM-DD. */ | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
456 pc->year = $1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
457 pc->month = -$2.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
458 pc->day = -$3.value; |
| 1928 | 459 } |
| 460 | tUNUMBER tMONTH tSNUMBER | |
| 461 { | |
| 462 /* e.g. 17-JUN-1992. */ | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
463 pc->day = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
464 pc->month = $2; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
465 pc->year.value = -$3.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
466 pc->year.digits = $3.digits; |
| 1928 | 467 } |
|
4503
c4806038beda
(date): Also accept dates like May-23-2003; suggestion
Paul Eggert <eggert@cs.ucla.edu>
parents:
4156
diff
changeset
|
468 | tMONTH tSNUMBER tSNUMBER |
|
c4806038beda
(date): Also accept dates like May-23-2003; suggestion
Paul Eggert <eggert@cs.ucla.edu>
parents:
4156
diff
changeset
|
469 { |
|
c4806038beda
(date): Also accept dates like May-23-2003; suggestion
Paul Eggert <eggert@cs.ucla.edu>
parents:
4156
diff
changeset
|
470 /* e.g. JUN-17-1992. */ |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
471 pc->month = $1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
472 pc->day = -$2.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
473 pc->year.value = -$3.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
474 pc->year.digits = $3.digits; |
|
4503
c4806038beda
(date): Also accept dates like May-23-2003; suggestion
Paul Eggert <eggert@cs.ucla.edu>
parents:
4156
diff
changeset
|
475 } |
| 1928 | 476 | tMONTH tUNUMBER |
| 477 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
478 pc->month = $1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
479 pc->day = $2.value; |
| 1928 | 480 } |
| 481 | tMONTH tUNUMBER ',' tUNUMBER | |
| 482 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
483 pc->month = $1; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
484 pc->day = $2.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
485 pc->year = $4; |
| 1928 | 486 } |
| 487 | tUNUMBER tMONTH | |
| 488 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
489 pc->day = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
490 pc->month = $2; |
| 1928 | 491 } |
| 492 | tUNUMBER tMONTH tUNUMBER | |
| 493 { | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
494 pc->day = $1.value; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
495 pc->month = $2; |
|
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
496 pc->year = $3; |
| 1928 | 497 } |
| 498 ; | |
| 9 | 499 |
| 1928 | 500 rel: |
| 501 relunit tAGO | |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
502 { apply_relative_time (pc, $1, -1); } |
| 1928 | 503 | relunit |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
504 { apply_relative_time (pc, $1, 1); } |
| 1928 | 505 ; |
| 9 | 506 |
| 1928 | 507 relunit: |
| 5449 | 508 tORDINAL tYEAR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
509 { $$ = RELATIVE_TIME_0; $$.year = $1; } |
| 5449 | 510 | tUNUMBER tYEAR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
511 { $$ = RELATIVE_TIME_0; $$.year = $1.value; } |
| 1928 | 512 | tYEAR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
513 { $$ = RELATIVE_TIME_0; $$.year = 1; } |
| 5449 | 514 | tORDINAL tMONTH_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
515 { $$ = RELATIVE_TIME_0; $$.month = $1; } |
| 1928 | 516 | tUNUMBER tMONTH_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
517 { $$ = RELATIVE_TIME_0; $$.month = $1.value; } |
| 1928 | 518 | tMONTH_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
519 { $$ = RELATIVE_TIME_0; $$.month = 1; } |
| 5449 | 520 | tORDINAL tDAY_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
521 { $$ = RELATIVE_TIME_0; $$.day = $1 * $2; } |
| 1928 | 522 | tUNUMBER tDAY_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
523 { $$ = RELATIVE_TIME_0; $$.day = $1.value * $2; } |
| 1928 | 524 | tDAY_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
525 { $$ = RELATIVE_TIME_0; $$.day = $1; } |
| 5449 | 526 | tORDINAL tHOUR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
527 { $$ = RELATIVE_TIME_0; $$.hour = $1; } |
| 1928 | 528 | tUNUMBER tHOUR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
529 { $$ = RELATIVE_TIME_0; $$.hour = $1.value; } |
| 1928 | 530 | tHOUR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
531 { $$ = RELATIVE_TIME_0; $$.hour = 1; } |
| 5449 | 532 | tORDINAL tMINUTE_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
533 { $$ = RELATIVE_TIME_0; $$.minutes = $1; } |
| 1928 | 534 | tUNUMBER tMINUTE_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
535 { $$ = RELATIVE_TIME_0; $$.minutes = $1.value; } |
| 1928 | 536 | tMINUTE_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
537 { $$ = RELATIVE_TIME_0; $$.minutes = 1; } |
| 5449 | 538 | tORDINAL tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
539 { $$ = RELATIVE_TIME_0; $$.seconds = $1; } |
| 1928 | 540 | tUNUMBER tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
541 { $$ = RELATIVE_TIME_0; $$.seconds = $1.value; } |
| 4984 | 542 | tSDECIMAL_NUMBER tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
543 { $$ = RELATIVE_TIME_0; $$.seconds = $1.tv_sec; $$.ns = $1.tv_nsec; } |
| 4984 | 544 | tUDECIMAL_NUMBER tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
545 { $$ = RELATIVE_TIME_0; $$.seconds = $1.tv_sec; $$.ns = $1.tv_nsec; } |
| 1928 | 546 | tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
547 { $$ = RELATIVE_TIME_0; $$.seconds = 1; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
548 | relunit_snumber |
|
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
549 ; |
|
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
550 |
|
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
551 relunit_snumber: |
|
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
552 tSNUMBER tYEAR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
553 { $$ = RELATIVE_TIME_0; $$.year = $1.value; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
554 | tSNUMBER tMONTH_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
555 { $$ = RELATIVE_TIME_0; $$.month = $1.value; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
556 | tSNUMBER tDAY_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
557 { $$ = RELATIVE_TIME_0; $$.day = $1.value * $2; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
558 | tSNUMBER tHOUR_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
559 { $$ = RELATIVE_TIME_0; $$.hour = $1.value; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
560 | tSNUMBER tMINUTE_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
561 { $$ = RELATIVE_TIME_0; $$.minutes = $1.value; } |
|
5795
73e3d526838b
(zone): Allow relunit_snumber after tZONE, so
Paul Eggert <eggert@cs.ucla.edu>
parents:
5793
diff
changeset
|
562 | tSNUMBER tSEC_UNIT |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
563 { $$ = RELATIVE_TIME_0; $$.seconds = $1.value; } |
| 1928 | 564 ; |
| 9 | 565 |
| 4984 | 566 seconds: signed_seconds | unsigned_seconds; |
| 567 | |
| 568 signed_seconds: | |
| 569 tSDECIMAL_NUMBER | |
| 570 | tSNUMBER | |
| 571 { $$.tv_sec = $1.value; $$.tv_nsec = 0; } | |
| 572 ; | |
| 573 | |
| 574 unsigned_seconds: | |
| 575 tUDECIMAL_NUMBER | |
| 576 | tUNUMBER | |
| 577 { $$.tv_sec = $1.value; $$.tv_nsec = 0; } | |
| 578 ; | |
| 579 | |
| 1928 | 580 number: |
| 581 tUNUMBER | |
|
9484
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
582 { digits_to_date_time (pc, $1); } |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
583 ; |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
584 |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
585 hybrid: |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
586 tUNUMBER relunit_snumber |
| 1928 | 587 { |
|
9484
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
588 /* Hybrid all-digit and relative offset, so that we accept e.g., |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
589 "YYYYMMDD +N days" as well as "YYYYMMDD N days". */ |
|
f546f92d1513
Adjust getdate's grammar to accept a slightly more regular language.
Ondřej Vašík <ovasik@redhat.com>
parents:
9433
diff
changeset
|
590 digits_to_date_time (pc, $1); |
|
10254
309ad548f542
getdate.y: factor out common actions
Ondřej Vašík <ovasik@redhat.com>
parents:
9626
diff
changeset
|
591 apply_relative_time (pc, $2, 1); |
| 1928 | 592 } |
| 593 ; | |
| 9 | 594 |
| 5520 | 595 o_colon_minutes: |
| 596 /* empty */ | |
| 597 { $$ = -1; } | |
| 598 | ':' tUNUMBER | |
| 599 { $$ = $2.value; } | |
| 600 ; | |
| 601 | |
| 1928 | 602 o_merid: |
| 603 /* empty */ | |
| 604 { $$ = MER24; } | |
| 605 | tMERIDIAN | |
| 606 { $$ = $1; } | |
| 607 ; | |
| 9 | 608 |
| 609 %% | |
| 610 | |
| 1928 | 611 static table const meridian_table[] = |
| 612 { | |
| 613 { "AM", tMERIDIAN, MERam }, | |
| 614 { "A.M.", tMERIDIAN, MERam }, | |
| 615 { "PM", tMERIDIAN, MERpm }, | |
| 616 { "P.M.", tMERIDIAN, MERpm }, | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
617 { NULL, 0, 0 } |
| 1928 | 618 }; |
| 619 | |
| 620 static table const dst_table[] = | |
| 621 { | |
| 622 { "DST", tDST, 0 } | |
| 9 | 623 }; |
| 624 | |
| 1928 | 625 static table const month_and_day_table[] = |
| 626 { | |
| 627 { "JANUARY", tMONTH, 1 }, | |
| 628 { "FEBRUARY", tMONTH, 2 }, | |
| 629 { "MARCH", tMONTH, 3 }, | |
| 630 { "APRIL", tMONTH, 4 }, | |
| 631 { "MAY", tMONTH, 5 }, | |
| 632 { "JUNE", tMONTH, 6 }, | |
| 633 { "JULY", tMONTH, 7 }, | |
| 634 { "AUGUST", tMONTH, 8 }, | |
| 635 { "SEPTEMBER",tMONTH, 9 }, | |
| 636 { "SEPT", tMONTH, 9 }, | |
| 637 { "OCTOBER", tMONTH, 10 }, | |
| 638 { "NOVEMBER", tMONTH, 11 }, | |
| 639 { "DECEMBER", tMONTH, 12 }, | |
| 640 { "SUNDAY", tDAY, 0 }, | |
| 641 { "MONDAY", tDAY, 1 }, | |
| 642 { "TUESDAY", tDAY, 2 }, | |
| 643 { "TUES", tDAY, 2 }, | |
| 644 { "WEDNESDAY",tDAY, 3 }, | |
| 645 { "WEDNES", tDAY, 3 }, | |
| 646 { "THURSDAY", tDAY, 4 }, | |
| 647 { "THUR", tDAY, 4 }, | |
| 648 { "THURS", tDAY, 4 }, | |
| 649 { "FRIDAY", tDAY, 5 }, | |
| 650 { "SATURDAY", tDAY, 6 }, | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
651 { NULL, 0, 0 } |
| 1928 | 652 }; |
| 653 | |
| 654 static table const time_units_table[] = | |
| 655 { | |
| 656 { "YEAR", tYEAR_UNIT, 1 }, | |
| 657 { "MONTH", tMONTH_UNIT, 1 }, | |
| 658 { "FORTNIGHT",tDAY_UNIT, 14 }, | |
| 659 { "WEEK", tDAY_UNIT, 7 }, | |
| 660 { "DAY", tDAY_UNIT, 1 }, | |
| 661 { "HOUR", tHOUR_UNIT, 1 }, | |
| 662 { "MINUTE", tMINUTE_UNIT, 1 }, | |
| 663 { "MIN", tMINUTE_UNIT, 1 }, | |
| 664 { "SECOND", tSEC_UNIT, 1 }, | |
| 665 { "SEC", tSEC_UNIT, 1 }, | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
666 { NULL, 0, 0 } |
| 9 | 667 }; |
| 668 | |
| 669 /* Assorted relative-time words. */ | |
| 1928 | 670 static table const relative_time_table[] = |
| 671 { | |
|
4618
daa83913e57f
(relative_time_table): Use tDAY_UNIT for "tomorrow", "yesterday",
Paul Eggert <eggert@cs.ucla.edu>
parents:
4503
diff
changeset
|
672 { "TOMORROW", tDAY_UNIT, 1 }, |
|
daa83913e57f
(relative_time_table): Use tDAY_UNIT for "tomorrow", "yesterday",
Paul Eggert <eggert@cs.ucla.edu>
parents:
4503
diff
changeset
|
673 { "YESTERDAY",tDAY_UNIT, -1 }, |
|
daa83913e57f
(relative_time_table): Use tDAY_UNIT for "tomorrow", "yesterday",
Paul Eggert <eggert@cs.ucla.edu>
parents:
4503
diff
changeset
|
674 { "TODAY", tDAY_UNIT, 0 }, |
|
daa83913e57f
(relative_time_table): Use tDAY_UNIT for "tomorrow", "yesterday",
Paul Eggert <eggert@cs.ucla.edu>
parents:
4503
diff
changeset
|
675 { "NOW", tDAY_UNIT, 0 }, |
| 5449 | 676 { "LAST", tORDINAL, -1 }, |
| 677 { "THIS", tORDINAL, 0 }, | |
| 678 { "NEXT", tORDINAL, 1 }, | |
| 679 { "FIRST", tORDINAL, 1 }, | |
| 680 /*{ "SECOND", tORDINAL, 2 }, */ | |
| 681 { "THIRD", tORDINAL, 3 }, | |
| 682 { "FOURTH", tORDINAL, 4 }, | |
| 683 { "FIFTH", tORDINAL, 5 }, | |
| 684 { "SIXTH", tORDINAL, 6 }, | |
| 685 { "SEVENTH", tORDINAL, 7 }, | |
| 686 { "EIGHTH", tORDINAL, 8 }, | |
| 687 { "NINTH", tORDINAL, 9 }, | |
| 688 { "TENTH", tORDINAL, 10 }, | |
| 689 { "ELEVENTH", tORDINAL, 11 }, | |
| 690 { "TWELFTH", tORDINAL, 12 }, | |
| 1928 | 691 { "AGO", tAGO, 1 }, |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
692 { NULL, 0, 0 } |
| 9 | 693 }; |
| 694 | |
|
5793
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
695 /* The universal time zone table. These labels can be used even for |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
696 time stamps that would not otherwise be valid, e.g., GMT time |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
697 stamps in London during summer. */ |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
698 static table const universal_time_zone_table[] = |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
699 { |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
700 { "GMT", tZONE, HOUR ( 0) }, /* Greenwich Mean */ |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
701 { "UT", tZONE, HOUR ( 0) }, /* Universal (Coordinated) */ |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
702 { "UTC", tZONE, HOUR ( 0) }, |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
703 { NULL, 0, 0 } |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
704 }; |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
705 |
| 1928 | 706 /* The time zone table. This table is necessarily incomplete, as time |
| 707 zone abbreviations are ambiguous; e.g. Australians interpret "EST" | |
| 708 as Eastern time in Australia, not as US Eastern Standard Time. | |
| 709 You cannot rely on getdate to handle arbitrary time zone | |
| 710 abbreviations; use numeric abbreviations like `-0500' instead. */ | |
| 711 static table const time_zone_table[] = | |
| 712 { | |
| 713 { "WET", tZONE, HOUR ( 0) }, /* Western European */ | |
| 714 { "WEST", tDAYZONE, HOUR ( 0) }, /* Western European Summer */ | |
| 715 { "BST", tDAYZONE, HOUR ( 0) }, /* British Summer */ | |
| 716 { "ART", tZONE, -HOUR ( 3) }, /* Argentina */ | |
| 717 { "BRT", tZONE, -HOUR ( 3) }, /* Brazil */ | |
| 718 { "BRST", tDAYZONE, -HOUR ( 3) }, /* Brazil Summer */ | |
| 719 { "NST", tZONE, -(HOUR ( 3) + 30) }, /* Newfoundland Standard */ | |
| 720 { "NDT", tDAYZONE,-(HOUR ( 3) + 30) }, /* Newfoundland Daylight */ | |
| 721 { "AST", tZONE, -HOUR ( 4) }, /* Atlantic Standard */ | |
| 722 { "ADT", tDAYZONE, -HOUR ( 4) }, /* Atlantic Daylight */ | |
| 723 { "CLT", tZONE, -HOUR ( 4) }, /* Chile */ | |
| 724 { "CLST", tDAYZONE, -HOUR ( 4) }, /* Chile Summer */ | |
| 725 { "EST", tZONE, -HOUR ( 5) }, /* Eastern Standard */ | |
| 726 { "EDT", tDAYZONE, -HOUR ( 5) }, /* Eastern Daylight */ | |
| 727 { "CST", tZONE, -HOUR ( 6) }, /* Central Standard */ | |
| 728 { "CDT", tDAYZONE, -HOUR ( 6) }, /* Central Daylight */ | |
| 729 { "MST", tZONE, -HOUR ( 7) }, /* Mountain Standard */ | |
| 730 { "MDT", tDAYZONE, -HOUR ( 7) }, /* Mountain Daylight */ | |
| 731 { "PST", tZONE, -HOUR ( 8) }, /* Pacific Standard */ | |
| 732 { "PDT", tDAYZONE, -HOUR ( 8) }, /* Pacific Daylight */ | |
| 733 { "AKST", tZONE, -HOUR ( 9) }, /* Alaska Standard */ | |
| 734 { "AKDT", tDAYZONE, -HOUR ( 9) }, /* Alaska Daylight */ | |
| 735 { "HST", tZONE, -HOUR (10) }, /* Hawaii Standard */ | |
| 736 { "HAST", tZONE, -HOUR (10) }, /* Hawaii-Aleutian Standard */ | |
| 737 { "HADT", tDAYZONE, -HOUR (10) }, /* Hawaii-Aleutian Daylight */ | |
| 738 { "SST", tZONE, -HOUR (12) }, /* Samoa Standard */ | |
| 739 { "WAT", tZONE, HOUR ( 1) }, /* West Africa */ | |
| 740 { "CET", tZONE, HOUR ( 1) }, /* Central European */ | |
| 741 { "CEST", tDAYZONE, HOUR ( 1) }, /* Central European Summer */ | |
| 742 { "MET", tZONE, HOUR ( 1) }, /* Middle European */ | |
| 743 { "MEZ", tZONE, HOUR ( 1) }, /* Middle European */ | |
| 744 { "MEST", tDAYZONE, HOUR ( 1) }, /* Middle European Summer */ | |
| 745 { "MESZ", tDAYZONE, HOUR ( 1) }, /* Middle European Summer */ | |
| 746 { "EET", tZONE, HOUR ( 2) }, /* Eastern European */ | |
| 747 { "EEST", tDAYZONE, HOUR ( 2) }, /* Eastern European Summer */ | |
| 748 { "CAT", tZONE, HOUR ( 2) }, /* Central Africa */ | |
| 749 { "SAST", tZONE, HOUR ( 2) }, /* South Africa Standard */ | |
| 750 { "EAT", tZONE, HOUR ( 3) }, /* East Africa */ | |
| 751 { "MSK", tZONE, HOUR ( 3) }, /* Moscow */ | |
| 752 { "MSD", tDAYZONE, HOUR ( 3) }, /* Moscow Daylight */ | |
| 753 { "IST", tZONE, (HOUR ( 5) + 30) }, /* India Standard */ | |
| 754 { "SGT", tZONE, HOUR ( 8) }, /* Singapore */ | |
| 755 { "KST", tZONE, HOUR ( 9) }, /* Korea Standard */ | |
| 756 { "JST", tZONE, HOUR ( 9) }, /* Japan Standard */ | |
| 757 { "GST", tZONE, HOUR (10) }, /* Guam Standard */ | |
| 758 { "NZST", tZONE, HOUR (12) }, /* New Zealand Standard */ | |
| 759 { "NZDT", tDAYZONE, HOUR (12) }, /* New Zealand Daylight */ | |
|
5793
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
760 { NULL, 0, 0 } |
| 9 | 761 }; |
| 762 | |
| 1928 | 763 /* Military time zone table. */ |
| 764 static table const military_table[] = | |
| 765 { | |
| 766 { "A", tZONE, -HOUR ( 1) }, | |
| 767 { "B", tZONE, -HOUR ( 2) }, | |
| 768 { "C", tZONE, -HOUR ( 3) }, | |
| 769 { "D", tZONE, -HOUR ( 4) }, | |
| 770 { "E", tZONE, -HOUR ( 5) }, | |
| 771 { "F", tZONE, -HOUR ( 6) }, | |
| 772 { "G", tZONE, -HOUR ( 7) }, | |
| 773 { "H", tZONE, -HOUR ( 8) }, | |
| 774 { "I", tZONE, -HOUR ( 9) }, | |
| 775 { "K", tZONE, -HOUR (10) }, | |
| 776 { "L", tZONE, -HOUR (11) }, | |
| 777 { "M", tZONE, -HOUR (12) }, | |
| 778 { "N", tZONE, HOUR ( 1) }, | |
| 779 { "O", tZONE, HOUR ( 2) }, | |
| 780 { "P", tZONE, HOUR ( 3) }, | |
| 781 { "Q", tZONE, HOUR ( 4) }, | |
| 782 { "R", tZONE, HOUR ( 5) }, | |
| 783 { "S", tZONE, HOUR ( 6) }, | |
| 784 { "T", tZONE, HOUR ( 7) }, | |
| 785 { "U", tZONE, HOUR ( 8) }, | |
| 786 { "V", tZONE, HOUR ( 9) }, | |
| 787 { "W", tZONE, HOUR (10) }, | |
| 788 { "X", tZONE, HOUR (11) }, | |
| 789 { "Y", tZONE, HOUR (12) }, | |
| 790 { "Z", tZONE, HOUR ( 0) }, | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
791 { NULL, 0, 0 } |
| 9 | 792 }; |
| 793 | |
| 794 | |
| 795 | |
| 5520 | 796 /* Convert a time zone expressed as HH:MM into an integer count of |
| 797 minutes. If MM is negative, then S is of the form HHMM and needs | |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
798 to be picked apart; otherwise, S is of the form HH. As specified in |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
799 http://www.opengroup.org/susv3xbd/xbd_chap08.html#tag_08_03, allow |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
800 only valid TZ range, and consider first two digits as hours, if no |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
801 minutes specified. */ |
| 5520 | 802 |
| 803 static long int | |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
804 time_zone_hhmm (parser_control *pc, textint s, long int mm) |
| 5520 | 805 { |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
806 long int n_minutes; |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
807 |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
808 /* If the length of S is 1 or 2 and no minutes are specified, |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
809 interpret it as a number of hours. */ |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
810 if (s.digits <= 2 && mm < 0) |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
811 s.value *= 100; |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
812 |
| 5520 | 813 if (mm < 0) |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
814 n_minutes = (s.value / 100) * 60 + s.value % 100; |
| 5520 | 815 else |
|
10398
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
816 n_minutes = s.value * 60 + (s.negative ? -mm : mm); |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
817 |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
818 /* If the absolute number of minutes is larger than 24 hours, |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
819 arrange to reject it by incrementing pc->zones_seen. Thus, |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
820 we allow only values in the range UTC-24:00 to UTC+24:00. */ |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
821 if (24 * 60 < abs (n_minutes)) |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
822 pc->zones_seen++; |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
823 |
|
c640552acc85
getdate.y: reject an out-of-range timezone value
Ondřej Vašík <ovasik@redhat.com>
parents:
10302
diff
changeset
|
824 return n_minutes; |
| 5520 | 825 } |
| 826 | |
|
16
01c6d40adf9d
Make tables static and const when possible.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
827 static int |
| 4984 | 828 to_hour (long int hours, int meridian) |
| 9 | 829 { |
| 1928 | 830 switch (meridian) |
| 857 | 831 { |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
832 default: /* Pacify GCC. */ |
| 857 | 833 case MER24: |
| 1928 | 834 return 0 <= hours && hours < 24 ? hours : -1; |
| 857 | 835 case MERam: |
| 1928 | 836 return 0 < hours && hours < 12 ? hours : hours == 12 ? 0 : -1; |
| 857 | 837 case MERpm: |
| 1928 | 838 return 0 < hours && hours < 12 ? hours + 12 : hours == 12 ? 12 : -1; |
| 857 | 839 } |
| 9 | 840 } |
| 841 | |
| 4984 | 842 static long int |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
843 to_year (textint textyear) |
| 9 | 844 { |
| 4984 | 845 long int year = textyear.value; |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
846 |
| 1928 | 847 if (year < 0) |
| 848 year = -year; | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
849 |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
850 /* XPG4 suggests that years 00-68 map to 2000-2068, and |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
851 years 69-99 map to 1969-1999. */ |
| 4984 | 852 else if (textyear.digits == 2) |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
853 year += year < 69 ? 2000 : 1900; |
| 9 | 854 |
| 1928 | 855 return year; |
| 9 | 856 } |
| 857 | |
| 1928 | 858 static table const * |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
859 lookup_zone (parser_control const *pc, char const *name) |
| 9 | 860 { |
| 1928 | 861 table const *tp; |
| 857 | 862 |
|
5793
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
863 for (tp = universal_time_zone_table; tp->name; tp++) |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
864 if (strcmp (name, tp->name) == 0) |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
865 return tp; |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
866 |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
867 /* Try local zone abbreviations before those in time_zone_table, as |
|
e6643f99cbc0
(universal_time_zone_table): New constant.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5787
diff
changeset
|
868 the local ones are more likely to be right. */ |
| 1928 | 869 for (tp = pc->local_time_zone_table; tp->name; tp++) |
| 870 if (strcmp (name, tp->name) == 0) | |
| 871 return tp; | |
| 9 | 872 |
| 1928 | 873 for (tp = time_zone_table; tp->name; tp++) |
| 874 if (strcmp (name, tp->name) == 0) | |
| 875 return tp; | |
| 857 | 876 |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
877 return NULL; |
| 9 | 878 } |
| 879 | |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
880 #if ! HAVE_TM_GMTOFF |
|
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
881 /* Yield the difference between *A and *B, |
|
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
882 measured in seconds, ignoring leap seconds. |
|
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
883 The body of this function is taken directly from the GNU C Library; |
|
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
884 see src/strftime.c. */ |
| 4984 | 885 static long int |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
886 tm_diff (struct tm const *a, struct tm const *b) |
|
207
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
887 { |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
888 /* Compute intervening leap days correctly even if year is negative. |
| 4984 | 889 Take care to avoid int overflow in leap day calculations. */ |
|
5414
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
890 int a4 = SHR (a->tm_year, 2) + SHR (TM_YEAR_BASE, 2) - ! (a->tm_year & 3); |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
891 int b4 = SHR (b->tm_year, 2) + SHR (TM_YEAR_BASE, 2) - ! (b->tm_year & 3); |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
892 int a100 = a4 / 25 - (a4 % 25 < 0); |
|
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
893 int b100 = b4 / 25 - (b4 % 25 < 0); |
|
5414
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
894 int a400 = SHR (a100, 2); |
|
1b5e702ecdd1
(SHR): New macro, which is a portable
Paul Eggert <eggert@cs.ucla.edu>
parents:
5391
diff
changeset
|
895 int b400 = SHR (b100, 2); |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
896 int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400); |
| 4984 | 897 long int ayear = a->tm_year; |
| 898 long int years = ayear - b->tm_year; | |
| 899 long int days = (365 * years + intervening_leap_days | |
| 900 + (a->tm_yday - b->tm_yday)); | |
| 857 | 901 return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour)) |
| 902 + (a->tm_min - b->tm_min)) | |
|
207
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
903 + (a->tm_sec - b->tm_sec)); |
|
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
904 } |
|
2080
32451d20b978
Sync tm_diff with the GNU C Library.
Jim Meyering <jim@meyering.net>
parents:
2048
diff
changeset
|
905 #endif /* ! HAVE_TM_GMTOFF */ |
|
207
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
906 |
| 1928 | 907 static table const * |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
908 lookup_word (parser_control const *pc, char *word) |
| 1928 | 909 { |
| 910 char *p; | |
| 911 char *q; | |
| 912 size_t wordlen; | |
| 913 table const *tp; | |
| 4984 | 914 bool period_found; |
| 915 bool abbrev; | |
| 1928 | 916 |
| 917 /* Make it uppercase. */ | |
| 918 for (p = word; *p; p++) | |
| 5159 | 919 { |
| 920 unsigned char ch = *p; | |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
921 *p = c_toupper (ch); |
| 5159 | 922 } |
| 1928 | 923 |
| 924 for (tp = meridian_table; tp->name; tp++) | |
| 925 if (strcmp (word, tp->name) == 0) | |
| 926 return tp; | |
| 927 | |
| 928 /* See if we have an abbreviation for a month. */ | |
| 929 wordlen = strlen (word); | |
| 930 abbrev = wordlen == 3 || (wordlen == 4 && word[3] == '.'); | |
| 931 | |
| 932 for (tp = month_and_day_table; tp->name; tp++) | |
| 933 if ((abbrev ? strncmp (word, tp->name, 3) : strcmp (word, tp->name)) == 0) | |
| 934 return tp; | |
| 935 | |
| 936 if ((tp = lookup_zone (pc, word))) | |
| 937 return tp; | |
| 938 | |
| 939 if (strcmp (word, dst_table[0].name) == 0) | |
| 940 return dst_table; | |
| 941 | |
| 942 for (tp = time_units_table; tp->name; tp++) | |
| 943 if (strcmp (word, tp->name) == 0) | |
| 944 return tp; | |
| 945 | |
| 946 /* Strip off any plural and try the units table again. */ | |
| 947 if (word[wordlen - 1] == 'S') | |
| 948 { | |
| 949 word[wordlen - 1] = '\0'; | |
| 950 for (tp = time_units_table; tp->name; tp++) | |
| 951 if (strcmp (word, tp->name) == 0) | |
| 952 return tp; | |
| 953 word[wordlen - 1] = 'S'; /* For "this" in relative_time_table. */ | |
| 954 } | |
| 955 | |
| 956 for (tp = relative_time_table; tp->name; tp++) | |
| 957 if (strcmp (word, tp->name) == 0) | |
| 958 return tp; | |
| 959 | |
| 960 /* Military time zones. */ | |
| 961 if (wordlen == 1) | |
| 962 for (tp = military_table; tp->name; tp++) | |
| 963 if (word[0] == tp->name[0]) | |
| 964 return tp; | |
| 965 | |
| 966 /* Drop out any periods and try the time zone table again. */ | |
| 4984 | 967 for (period_found = false, p = q = word; (*p = *q); q++) |
| 1928 | 968 if (*q == '.') |
| 4984 | 969 period_found = true; |
| 1928 | 970 else |
| 971 p++; | |
| 4984 | 972 if (period_found && (tp = lookup_zone (pc, word))) |
| 1928 | 973 return tp; |
| 974 | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
975 return NULL; |
| 1928 | 976 } |
| 977 | |
| 978 static int | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
979 yylex (YYSTYPE *lvalp, parser_control *pc) |
| 1928 | 980 { |
| 981 unsigned char c; | |
| 4984 | 982 size_t count; |
| 1928 | 983 |
| 984 for (;;) | |
| 985 { | |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
986 while (c = *pc->input, c_isspace (c)) |
| 1928 | 987 pc->input++; |
| 988 | |
| 989 if (ISDIGIT (c) || c == '-' || c == '+') | |
| 990 { | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
991 char const *p; |
| 1928 | 992 int sign; |
| 4984 | 993 unsigned long int value; |
| 1928 | 994 if (c == '-' || c == '+') |
| 995 { | |
| 996 sign = c == '-' ? -1 : 1; | |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
997 while (c = *++pc->input, c_isspace (c)) |
|
5080
033d299cab29
* getdate.y (yylex): Allow space between sign and number.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4984
diff
changeset
|
998 continue; |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
999 if (! ISDIGIT (c)) |
| 1928 | 1000 /* skip the '-' sign */ |
| 1001 continue; | |
| 1002 } | |
| 1003 else | |
| 1004 sign = 0; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1005 p = pc->input; |
| 4984 | 1006 for (value = 0; ; value *= 10) |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1007 { |
| 4984 | 1008 unsigned long int value1 = value + (c - '0'); |
| 1009 if (value1 < value) | |
| 1010 return '?'; | |
| 1011 value = value1; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1012 c = *++p; |
| 4984 | 1013 if (! ISDIGIT (c)) |
| 1014 break; | |
| 1015 if (ULONG_MAX / 10 < value) | |
| 1016 return '?'; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1017 } |
| 4984 | 1018 if ((c == '.' || c == ',') && ISDIGIT (p[1])) |
| 1019 { | |
| 1020 time_t s; | |
| 1021 int ns; | |
| 1022 int digits; | |
| 1023 unsigned long int value1; | |
| 1024 | |
| 1025 /* Check for overflow when converting value to time_t. */ | |
| 1026 if (sign < 0) | |
| 1027 { | |
| 1028 s = - value; | |
| 1029 if (0 < s) | |
| 1030 return '?'; | |
| 1031 value1 = -s; | |
| 1032 } | |
| 1033 else | |
| 1034 { | |
| 1035 s = value; | |
| 1036 if (s < 0) | |
| 1037 return '?'; | |
| 1038 value1 = s; | |
| 1039 } | |
| 1040 if (value != value1) | |
| 1041 return '?'; | |
| 1042 | |
| 1043 /* Accumulate fraction, to ns precision. */ | |
| 1044 p++; | |
| 1045 ns = *p++ - '0'; | |
| 1046 for (digits = 2; digits <= LOG10_BILLION; digits++) | |
| 1047 { | |
| 1048 ns *= 10; | |
| 1049 if (ISDIGIT (*p)) | |
| 1050 ns += *p++ - '0'; | |
| 1051 } | |
| 1052 | |
| 1053 /* Skip excess digits, truncating toward -Infinity. */ | |
| 1054 if (sign < 0) | |
| 1055 for (; ISDIGIT (*p); p++) | |
| 1056 if (*p != '0') | |
| 1057 { | |
| 1058 ns++; | |
| 1059 break; | |
| 1060 } | |
| 1061 while (ISDIGIT (*p)) | |
| 1062 p++; | |
| 1063 | |
| 1064 /* Adjust to the timespec convention, which is that | |
| 1065 tv_nsec is always a positive offset even if tv_sec is | |
| 1066 negative. */ | |
| 1067 if (sign < 0 && ns) | |
| 1068 { | |
| 1069 s--; | |
| 1070 if (! (s < 0)) | |
| 1071 return '?'; | |
| 1072 ns = BILLION - ns; | |
| 1073 } | |
| 1074 | |
| 1075 lvalp->timespec.tv_sec = s; | |
| 1076 lvalp->timespec.tv_nsec = ns; | |
| 1077 pc->input = p; | |
| 1078 return sign ? tSDECIMAL_NUMBER : tUDECIMAL_NUMBER; | |
| 1079 } | |
| 1080 else | |
| 1081 { | |
| 5520 | 1082 lvalp->textintval.negative = sign < 0; |
| 4984 | 1083 if (sign < 0) |
| 1084 { | |
| 1085 lvalp->textintval.value = - value; | |
| 1086 if (0 < lvalp->textintval.value) | |
| 1087 return '?'; | |
| 1088 } | |
| 1089 else | |
| 1090 { | |
| 1091 lvalp->textintval.value = value; | |
| 1092 if (lvalp->textintval.value < 0) | |
| 1093 return '?'; | |
| 1094 } | |
| 1095 lvalp->textintval.digits = p - pc->input; | |
| 1096 pc->input = p; | |
| 1097 return sign ? tSNUMBER : tUNUMBER; | |
| 1098 } | |
| 1928 | 1099 } |
| 1100 | |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
1101 if (c_isalpha (c)) |
| 1928 | 1102 { |
| 1103 char buff[20]; | |
| 1104 char *p = buff; | |
| 1105 table const *tp; | |
| 1106 | |
| 1107 do | |
| 1108 { | |
| 1109 if (p < buff + sizeof buff - 1) | |
| 1110 *p++ = c; | |
| 1111 c = *++pc->input; | |
| 1112 } | |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
1113 while (c_isalpha (c) || c == '.'); |
| 1928 | 1114 |
| 1115 *p = '\0'; | |
| 1116 tp = lookup_word (pc, buff); | |
| 1117 if (! tp) | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1118 return '?'; |
|
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1119 lvalp->intval = tp->value; |
| 1928 | 1120 return tp->type; |
| 1121 } | |
| 1122 | |
| 1123 if (c != '(') | |
| 1124 return *pc->input++; | |
| 1125 count = 0; | |
| 1126 do | |
| 1127 { | |
| 1128 c = *pc->input++; | |
| 1129 if (c == '\0') | |
| 1130 return c; | |
| 1131 if (c == '(') | |
| 1132 count++; | |
| 1133 else if (c == ')') | |
| 1134 count--; | |
| 1135 } | |
| 4984 | 1136 while (count != 0); |
| 1928 | 1137 } |
| 1138 } | |
| 1139 | |
| 1140 /* Do nothing if the parser reports an error. */ | |
| 1141 static int | |
|
7558
c778aa6236a8
* lib/getdate.y (yyerror): Make the arguments pointer-to-const,
Paul Eggert <eggert@cs.ucla.edu>
parents:
7302
diff
changeset
|
1142 yyerror (parser_control const *pc ATTRIBUTE_UNUSED, |
|
c778aa6236a8
* lib/getdate.y (yyerror): Make the arguments pointer-to-const,
Paul Eggert <eggert@cs.ucla.edu>
parents:
7302
diff
changeset
|
1143 char const *s ATTRIBUTE_UNUSED) |
| 1928 | 1144 { |
| 1145 return 0; | |
| 1146 } | |
| 1147 | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1148 /* If *TM0 is the old and *TM1 is the new value of a struct tm after |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1149 passing it to mktime, return true if it's OK that mktime returned T. |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1150 It's not OK if *TM0 has out-of-range members. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1151 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1152 static bool |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1153 mktime_ok (struct tm const *tm0, struct tm const *tm1, time_t t) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1154 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1155 if (t == (time_t) -1) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1156 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1157 /* Guard against falsely reporting an error when parsing a time |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1158 stamp that happens to equal (time_t) -1, on a host that |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1159 supports such a time stamp. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1160 tm1 = localtime (&t); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1161 if (!tm1) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1162 return false; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1163 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1164 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1165 return ! ((tm0->tm_sec ^ tm1->tm_sec) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1166 | (tm0->tm_min ^ tm1->tm_min) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1167 | (tm0->tm_hour ^ tm1->tm_hour) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1168 | (tm0->tm_mday ^ tm1->tm_mday) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1169 | (tm0->tm_mon ^ tm1->tm_mon) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1170 | (tm0->tm_year ^ tm1->tm_year)); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1171 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1172 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1173 /* A reasonable upper bound for the size of ordinary TZ strings. |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1174 Use heap allocation if TZ's length exceeds this. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1175 enum { TZBUFSIZE = 100 }; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1176 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1177 /* Return a copy of TZ, stored in TZBUF if it fits, and heap-allocated |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1178 otherwise. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1179 static char * |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1180 get_tz (char tzbuf[TZBUFSIZE]) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1181 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1182 char *tz = getenv ("TZ"); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1183 if (tz) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1184 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1185 size_t tzsize = strlen (tz) + 1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1186 tz = (tzsize <= TZBUFSIZE |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1187 ? memcpy (tzbuf, tz, tzsize) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1188 : xmemdup (tz, tzsize)); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1189 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1190 return tz; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1191 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1192 |
| 4984 | 1193 /* Parse a date/time string, storing the resulting time value into *RESULT. |
| 1194 The string itself is pointed to by P. Return true if successful. | |
| 1195 P can be an incomplete or relative time specification; if so, use | |
| 1196 *NOW as the basis for the returned time. */ | |
| 1197 bool | |
| 1198 get_date (struct timespec *result, char const *p, struct timespec const *now) | |
| 9 | 1199 { |
| 4984 | 1200 time_t Start; |
| 1201 long int Start_ns; | |
| 1202 struct tm const *tmp; | |
| 1928 | 1203 struct tm tm; |
| 1204 struct tm tm0; | |
|
2280
adaf08e40364
Handle two-digit years with leading zeros correctly.
Jim Meyering <jim@meyering.net>
parents:
2110
diff
changeset
|
1205 parser_control pc; |
| 4984 | 1206 struct timespec gettime_buffer; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1207 unsigned char c; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1208 bool tz_was_altered = false; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1209 char *tz0 = NULL; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1210 char tz0buf[TZBUFSIZE]; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1211 bool ok = true; |
| 9 | 1212 |
| 4984 | 1213 if (! now) |
| 1214 { | |
|
5662
42df9db003cc
* modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5548
diff
changeset
|
1215 gettime (&gettime_buffer); |
| 4984 | 1216 now = &gettime_buffer; |
| 1217 } | |
| 1218 | |
| 1219 Start = now->tv_sec; | |
| 1220 Start_ns = now->tv_nsec; | |
| 1221 | |
| 1222 tmp = localtime (&now->tv_sec); | |
| 1928 | 1223 if (! tmp) |
| 4984 | 1224 return false; |
| 9 | 1225 |
|
10302
3884ac6e6550
getdate.y: avoid locale-dependent date parsing failure
Jim Meyering <meyering@redhat.com>
parents:
10256
diff
changeset
|
1226 while (c = *p, c_isspace (c)) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1227 p++; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1228 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1229 if (strncmp (p, "TZ=\"", 4) == 0) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1230 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1231 char const *tzbase = p + 4; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1232 size_t tzsize = 1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1233 char const *s; |
|
5391
4776df58a51d
Remove trailing white space.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5382
diff
changeset
|
1234 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1235 for (s = tzbase; *s; s++, tzsize++) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1236 if (*s == '\\') |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1237 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1238 s++; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1239 if (! (*s == '\\' || *s == '"')) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1240 break; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1241 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1242 else if (*s == '"') |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1243 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1244 char *z; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1245 char *tz1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1246 char tz1buf[TZBUFSIZE]; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1247 bool large_tz = TZBUFSIZE < tzsize; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1248 bool setenv_ok; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1249 tz0 = get_tz (tz0buf); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1250 z = tz1 = large_tz ? xmalloc (tzsize) : tz1buf; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1251 for (s = tzbase; *s != '"'; s++) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1252 *z++ = *(s += *s == '\\'); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1253 *z = '\0'; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1254 setenv_ok = setenv ("TZ", tz1, 1) == 0; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1255 if (large_tz) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1256 free (tz1); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1257 if (!setenv_ok) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1258 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1259 tz_was_altered = true; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1260 p = s + 1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1261 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1262 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1263 |
|
9433
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1264 /* As documented, be careful to treat the empty string just like |
|
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1265 a date string of "0". Without this, an empty string would be |
|
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1266 declared invalid when parsed during a DST transition. */ |
|
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1267 if (*p == '\0') |
|
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1268 p = "0"; |
|
bb252eb60189
Treat an empty date string exactly like "0".
Jim Meyering <meyering@redhat.com>
parents:
9309
diff
changeset
|
1269 |
| 1928 | 1270 pc.input = p; |
| 4984 | 1271 pc.year.value = tmp->tm_year; |
| 1272 pc.year.value += TM_YEAR_BASE; | |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
1273 pc.year.digits = 0; |
| 1928 | 1274 pc.month = tmp->tm_mon + 1; |
| 1275 pc.day = tmp->tm_mday; | |
| 1276 pc.hour = tmp->tm_hour; | |
| 1277 pc.minutes = tmp->tm_min; | |
| 4984 | 1278 pc.seconds.tv_sec = tmp->tm_sec; |
| 1279 pc.seconds.tv_nsec = Start_ns; | |
| 1928 | 1280 tm.tm_isdst = tmp->tm_isdst; |
| 1281 | |
| 1282 pc.meridian = MER24; | |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1283 pc.rel = RELATIVE_TIME_0; |
| 4984 | 1284 pc.timespec_seen = false; |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
1285 pc.rels_seen = false; |
| 1928 | 1286 pc.dates_seen = 0; |
| 1287 pc.days_seen = 0; | |
| 1288 pc.times_seen = 0; | |
| 1289 pc.local_zones_seen = 0; | |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
1290 pc.dsts_seen = 0; |
| 1928 | 1291 pc.zones_seen = 0; |
| 1292 | |
|
4102
1804d7137fc9
Test HAVE_STRUCT_TM_TM_ZONE, not HAVE_TM_ZONE.
Bruno Haible <bruno@clisp.org>
parents:
3701
diff
changeset
|
1293 #if HAVE_STRUCT_TM_TM_ZONE |
| 1928 | 1294 pc.local_time_zone_table[0].name = tmp->tm_zone; |
| 1295 pc.local_time_zone_table[0].type = tLOCAL_ZONE; | |
| 1296 pc.local_time_zone_table[0].value = tmp->tm_isdst; | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1297 pc.local_time_zone_table[1].name = NULL; |
| 1928 | 1298 |
| 1299 /* Probe the names used in the next three calendar quarters, looking | |
| 1300 for a tm_isdst different from the one we already have. */ | |
| 1301 { | |
|
1929
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
1302 int quarter; |
|
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
1303 for (quarter = 1; quarter <= 3; quarter++) |
| 1928 | 1304 { |
|
1929
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
1305 time_t probe = Start + quarter * (90 * 24 * 60 * 60); |
| 4984 | 1306 struct tm const *probe_tm = localtime (&probe); |
|
1930
92632825178b
(get_date): Rename latter local `tm' to probe_tm.
Jim Meyering <jim@meyering.net>
parents:
1929
diff
changeset
|
1307 if (probe_tm && probe_tm->tm_zone |
|
92632825178b
(get_date): Rename latter local `tm' to probe_tm.
Jim Meyering <jim@meyering.net>
parents:
1929
diff
changeset
|
1308 && probe_tm->tm_isdst != pc.local_time_zone_table[0].value) |
| 1928 | 1309 { |
| 1310 { | |
|
1930
92632825178b
(get_date): Rename latter local `tm' to probe_tm.
Jim Meyering <jim@meyering.net>
parents:
1929
diff
changeset
|
1311 pc.local_time_zone_table[1].name = probe_tm->tm_zone; |
| 1928 | 1312 pc.local_time_zone_table[1].type = tLOCAL_ZONE; |
|
1930
92632825178b
(get_date): Rename latter local `tm' to probe_tm.
Jim Meyering <jim@meyering.net>
parents:
1929
diff
changeset
|
1313 pc.local_time_zone_table[1].value = probe_tm->tm_isdst; |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1314 pc.local_time_zone_table[2].name = NULL; |
| 1928 | 1315 } |
| 1316 break; | |
| 1317 } | |
| 1318 } | |
| 1319 } | |
| 1320 #else | |
| 1321 #if HAVE_TZNAME | |
| 1322 { | |
|
9626
def4f669ceac
Fix problem with getdate on mingw32 reported by Simon Josefsson
Paul Eggert <eggert@cs.ucla.edu>
parents:
9545
diff
changeset
|
1323 # if !HAVE_DECL_TZNAME |
| 1928 | 1324 extern char *tzname[]; |
| 1325 # endif | |
| 1326 int i; | |
| 1327 for (i = 0; i < 2; i++) | |
| 1328 { | |
| 1329 pc.local_time_zone_table[i].name = tzname[i]; | |
| 1330 pc.local_time_zone_table[i].type = tLOCAL_ZONE; | |
| 1331 pc.local_time_zone_table[i].value = i; | |
| 1332 } | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1333 pc.local_time_zone_table[i].name = NULL; |
| 1928 | 1334 } |
| 1335 #else | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1336 pc.local_time_zone_table[0].name = NULL; |
| 1928 | 1337 #endif |
| 1338 #endif | |
| 1339 | |
| 1340 if (pc.local_time_zone_table[0].name && pc.local_time_zone_table[1].name | |
| 1341 && ! strcmp (pc.local_time_zone_table[0].name, | |
| 1342 pc.local_time_zone_table[1].name)) | |
| 857 | 1343 { |
| 1928 | 1344 /* This locale uses the same abbrevation for standard and |
| 1345 daylight times. So if we see that abbreviation, we don't | |
| 1346 know whether it's daylight time. */ | |
| 1347 pc.local_time_zone_table[0].value = -1; | |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1348 pc.local_time_zone_table[1].name = NULL; |
| 1928 | 1349 } |
| 1350 | |
| 4984 | 1351 if (yyparse (&pc) != 0) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1352 goto fail; |
| 4984 | 1353 |
| 1354 if (pc.timespec_seen) | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1355 *result = pc.seconds; |
| 857 | 1356 else |
| 1357 { | |
|
5787
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
1358 if (1 < (pc.times_seen | pc.dates_seen | pc.days_seen | pc.dsts_seen |
|
cbe22a271d32
(parser_control): rels_seen is now a boolean, not a
Paul Eggert <eggert@cs.ucla.edu>
parents:
5662
diff
changeset
|
1359 | (pc.local_zones_seen + pc.zones_seen))) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1360 goto fail; |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
1361 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1362 tm.tm_year = to_year (pc.year) - TM_YEAR_BASE; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1363 tm.tm_mon = pc.month - 1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1364 tm.tm_mday = pc.day; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1365 if (pc.times_seen || (pc.rels_seen && ! pc.dates_seen && ! pc.days_seen)) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1366 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1367 tm.tm_hour = to_hour (pc.hour, pc.meridian); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1368 if (tm.tm_hour < 0) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1369 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1370 tm.tm_min = pc.minutes; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1371 tm.tm_sec = pc.seconds.tv_sec; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1372 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1373 else |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1374 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1375 tm.tm_hour = tm.tm_min = tm.tm_sec = 0; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1376 pc.seconds.tv_nsec = 0; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1377 } |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
1378 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1379 /* Let mktime deduce tm_isdst if we have an absolute time stamp. */ |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1380 if (pc.dates_seen | pc.days_seen | pc.times_seen) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1381 tm.tm_isdst = -1; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1382 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1383 /* But if the input explicitly specifies local time with or without |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1384 DST, give mktime that information. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1385 if (pc.local_zones_seen) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1386 tm.tm_isdst = pc.local_isdst; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1387 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1388 tm0 = tm; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1389 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1390 Start = mktime (&tm); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1391 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1392 if (! mktime_ok (&tm0, &tm, Start)) |
| 857 | 1393 { |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1394 if (! pc.zones_seen) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1395 goto fail; |
| 857 | 1396 else |
| 1397 { | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1398 /* Guard against falsely reporting errors near the time_t |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1399 boundaries when parsing times in other time zones. For |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1400 example, suppose the input string "1969-12-31 23:00:00 -0100", |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1401 the current time zone is 8 hours ahead of UTC, and the min |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1402 time_t value is 1970-01-01 00:00:00 UTC. Then the min |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1403 localtime value is 1970-01-01 08:00:00, and mktime will |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1404 therefore fail on 1969-12-31 23:00:00. To work around the |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1405 problem, set the time zone to 1 hour behind UTC temporarily |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1406 by setting TZ="XXX1:00" and try mktime again. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1407 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1408 long int time_zone = pc.time_zone; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1409 long int abs_time_zone = time_zone < 0 ? - time_zone : time_zone; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1410 long int abs_time_zone_hour = abs_time_zone / 60; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1411 int abs_time_zone_min = abs_time_zone % 60; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1412 char tz1buf[sizeof "XXX+0:00" |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1413 + sizeof pc.time_zone * CHAR_BIT / 3]; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1414 if (!tz_was_altered) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1415 tz0 = get_tz (tz0buf); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1416 sprintf (tz1buf, "XXX%s%ld:%02d", "-" + (time_zone < 0), |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1417 abs_time_zone_hour, abs_time_zone_min); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1418 if (setenv ("TZ", tz1buf, 1) != 0) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1419 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1420 tz_was_altered = true; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1421 tm = tm0; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1422 Start = mktime (&tm); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1423 if (! mktime_ok (&tm0, &tm, Start)) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1424 goto fail; |
| 857 | 1425 } |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1426 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1427 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1428 if (pc.days_seen && ! pc.dates_seen) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1429 { |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1430 tm.tm_mday += ((pc.day_number - tm.tm_wday + 7) % 7 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1431 + 7 * (pc.day_ordinal - (0 < pc.day_ordinal))); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1432 tm.tm_isdst = -1; |
| 857 | 1433 Start = mktime (&tm); |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1434 if (Start == (time_t) -1) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1435 goto fail; |
| 857 | 1436 } |
| 1437 | |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1438 /* Add relative date. */ |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1439 if (pc.rel.year | pc.rel.month | pc.rel.day) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1440 { |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1441 int year = tm.tm_year + pc.rel.year; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1442 int month = tm.tm_mon + pc.rel.month; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1443 int day = tm.tm_mday + pc.rel.day; |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1444 if (((year < tm.tm_year) ^ (pc.rel.year < 0)) |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1445 | ((month < tm.tm_mon) ^ (pc.rel.month < 0)) |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1446 | ((day < tm.tm_mday) ^ (pc.rel.day < 0))) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1447 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1448 tm.tm_year = year; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1449 tm.tm_mon = month; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1450 tm.tm_mday = day; |
|
6755
ac1a29f7e8d8
* getdate.y (get_date): When adding relative date, start with the
Paul Eggert <eggert@cs.ucla.edu>
parents:
6269
diff
changeset
|
1451 tm.tm_hour = tm0.tm_hour; |
|
ac1a29f7e8d8
* getdate.y (get_date): When adding relative date, start with the
Paul Eggert <eggert@cs.ucla.edu>
parents:
6269
diff
changeset
|
1452 tm.tm_min = tm0.tm_min; |
|
ac1a29f7e8d8
* getdate.y (get_date): When adding relative date, start with the
Paul Eggert <eggert@cs.ucla.edu>
parents:
6269
diff
changeset
|
1453 tm.tm_sec = tm0.tm_sec; |
|
ac1a29f7e8d8
* getdate.y (get_date): When adding relative date, start with the
Paul Eggert <eggert@cs.ucla.edu>
parents:
6269
diff
changeset
|
1454 tm.tm_isdst = tm0.tm_isdst; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1455 Start = mktime (&tm); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1456 if (Start == (time_t) -1) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1457 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1458 } |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1459 |
|
10256
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1460 /* The only "output" of this if-block is an updated Start value, |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1461 so this block must follow others that clobber Start. */ |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1462 if (pc.zones_seen) |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1463 { |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1464 long int delta = pc.time_zone * 60; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1465 time_t t1; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1466 #ifdef HAVE_TM_GMTOFF |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1467 delta -= tm.tm_gmtoff; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1468 #else |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1469 time_t t = Start; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1470 struct tm const *gmt = gmtime (&t); |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1471 if (! gmt) |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1472 goto fail; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1473 delta -= tm_diff (&tm, gmt); |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1474 #endif |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1475 t1 = Start - delta; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1476 if ((Start < t1) != (delta < 0)) |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1477 goto fail; /* time_t overflow */ |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1478 Start = t1; |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1479 } |
|
af15fcca9925
getdate.y: do not ignore TZ with relative day, month or year offset
Ondřej Vašík <ovasik@redhat.com>
parents:
10254
diff
changeset
|
1480 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1481 /* Add relative hours, minutes, and seconds. On hosts that support |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1482 leap seconds, ignore the possibility of leap seconds; e.g., |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1483 "+ 10 minutes" adds 600 seconds, even if one of them is a |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1484 leap second. Typically this is not what the user wants, but it's |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1485 too hard to do it the other way, because the time zone indicator |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1486 must be applied before relative times, and if mktime is applied |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1487 again the time zone will be lost. */ |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1488 { |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1489 long int sum_ns = pc.seconds.tv_nsec + pc.rel.ns; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1490 long int normalized_ns = (sum_ns % BILLION + BILLION) % BILLION; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1491 time_t t0 = Start; |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1492 long int d1 = 60 * 60 * pc.rel.hour; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1493 time_t t1 = t0 + d1; |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1494 long int d2 = 60 * pc.rel.minutes; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1495 time_t t2 = t1 + d2; |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1496 long int d3 = pc.rel.seconds; |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1497 time_t t3 = t2 + d3; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1498 long int d4 = (sum_ns - normalized_ns) / BILLION; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1499 time_t t4 = t3 + d4; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1500 |
|
6269
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1501 if ((d1 / (60 * 60) ^ pc.rel.hour) |
|
e3cfa812528f
* m4/getdate.m4 (gl_C_COMPOUND_LITERALS): New macro.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
1502 | (d2 / 60 ^ pc.rel.minutes) |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1503 | ((t1 < t0) ^ (d1 < 0)) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1504 | ((t2 < t1) ^ (d2 < 0)) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1505 | ((t3 < t2) ^ (d3 < 0)) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1506 | ((t4 < t3) ^ (d4 < 0))) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1507 goto fail; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1508 |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1509 result->tv_sec = t4; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1510 result->tv_nsec = normalized_ns; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1511 } |
| 857 | 1512 } |
| 9 | 1513 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1514 goto done; |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
1515 |
|
5373
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1516 fail: |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1517 ok = false; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1518 done: |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1519 if (tz_was_altered) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1520 ok &= (tz0 ? setenv ("TZ", tz0, 1) : unsetenv ("TZ")) == 0; |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1521 if (tz0 != tz0buf) |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1522 free (tz0); |
|
2169bf8a12fc
Add support for TZ="foo" within a date string.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5368
diff
changeset
|
1523 return ok; |
| 9 | 1524 } |
| 1525 | |
| 1928 | 1526 #if TEST |
| 9 | 1527 |
| 202 | 1528 int |
| 1928 | 1529 main (int ac, char **av) |
| 9 | 1530 { |
| 1928 | 1531 char buff[BUFSIZ]; |
| 9 | 1532 |
| 1928 | 1533 printf ("Enter date, or blank line to exit.\n\t> "); |
| 1534 fflush (stdout); | |
| 321 | 1535 |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1536 buff[BUFSIZ - 1] = '\0'; |
| 1928 | 1537 while (fgets (buff, BUFSIZ - 1, stdin) && buff[0]) |
| 857 | 1538 { |
| 4984 | 1539 struct timespec d; |
| 1540 struct tm const *tm; | |
| 1541 if (! get_date (&d, buff, NULL)) | |
| 1928 | 1542 printf ("Bad format - couldn't convert.\n"); |
| 4984 | 1543 else if (! (tm = localtime (&d.tv_sec))) |
| 1544 { | |
| 1545 long int sec = d.tv_sec; | |
| 1546 printf ("localtime (%ld) failed\n", sec); | |
| 1547 } | |
| 857 | 1548 else |
| 4984 | 1549 { |
| 1550 int ns = d.tv_nsec; | |
| 1551 printf ("%04ld-%02d-%02d %02d:%02d:%02d.%09d\n", | |
| 1552 tm->tm_year + 1900L, tm->tm_mon + 1, tm->tm_mday, | |
| 1553 tm->tm_hour, tm->tm_min, tm->tm_sec, ns); | |
| 1554 } | |
| 1928 | 1555 printf ("\t> "); |
| 1556 fflush (stdout); | |
| 857 | 1557 } |
| 1928 | 1558 return 0; |
| 9 | 1559 } |
|
5368
d7bc1d77db6d
Use Bison 1.875 features, and some minor
Paul Eggert <eggert@cs.ucla.edu>
parents:
5318
diff
changeset
|
1560 #endif /* TEST */ |