Mercurial > hg > octave-kai > gnulib-hg
annotate lib/getdate.y @ 1929:f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sun, 29 Aug 1999 12:28:56 +0000 |
| parents | 3119c326ccc8 |
| children | 92632825178b |
| rev | line source |
|---|---|
| 9 | 1 %{ |
| 1928 | 2 /* Parse a string into an internal time stamp. |
| 3 Copyright 1999 Free Software Foundation, Inc. | |
| 4 | |
| 5 This program is free software; you can redistribute it and/or modify | |
| 6 it under the terms of the GNU General Public License as published by | |
| 7 the Free Software Foundation; either version 2, or (at your option) | |
| 8 any later version. | |
| 9 | |
| 10 This program is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 GNU General Public License for more details. | |
| 14 | |
| 15 You should have received a copy of the GNU General Public License | |
| 16 along with this program; if not, write to the Free Software Foundation, | |
| 17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
| 18 | |
| 19 /* Originally written by Steven M. Bellovin <smb@research.att.com> while | |
| 20 at the University of North Carolina at Chapel Hill. Later tweaked by | |
| 21 a couple of people on Usenet. Completely overhauled by Rich $alz | |
| 22 <rsalz@bbn.com> and Jim Berets <jberets@bbn.com> in August, 1990. | |
| 23 | |
| 24 Modified by Paul Eggert <eggert@twinsun.com> in August 1999 to do | |
| 25 the right thing about local DST. Unlike previous versions, this | |
| 26 version is reentrant. */ | |
| 9 | 27 |
| 48 | 28 #ifdef HAVE_CONFIG_H |
|
855
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
29 # include <config.h> |
|
1717
4b9de8310f84
<alloca.h>: Include if HAVE_ALLOCA_H, not FORCE_ALLOCA_H.
Jim Meyering <jim@meyering.net>
parents:
1584
diff
changeset
|
30 # ifdef HAVE_ALLOCA_H |
|
855
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
31 # include <alloca.h> |
|
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
32 # endif |
| 101 | 33 #endif |
| 48 | 34 |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
35 /* 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
|
36 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
|
37 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
|
38 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
|
39 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
|
40 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
|
41 #ifdef emacs |
|
855
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
42 # undef static |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
43 #endif |
|
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
44 |
| 9 | 45 #include <ctype.h> |
| 46 | |
|
1785
197f4bdf9a3d
<stdlib.h>: Include if HAVE_STDLIB_H, since bison 1.27 invokes "free".
Jim Meyering <jim@meyering.net>
parents:
1777
diff
changeset
|
47 #if HAVE_STDLIB_H |
|
197f4bdf9a3d
<stdlib.h>: Include if HAVE_STDLIB_H, since bison 1.27 invokes "free".
Jim Meyering <jim@meyering.net>
parents:
1777
diff
changeset
|
48 # include <stdlib.h> /* for `free'; used by Bison 1.27 */ |
|
197f4bdf9a3d
<stdlib.h>: Include if HAVE_STDLIB_H, since bison 1.27 invokes "free".
Jim Meyering <jim@meyering.net>
parents:
1777
diff
changeset
|
49 #endif |
|
197f4bdf9a3d
<stdlib.h>: Include if HAVE_STDLIB_H, since bison 1.27 invokes "free".
Jim Meyering <jim@meyering.net>
parents:
1777
diff
changeset
|
50 |
| 1928 | 51 #if STDC_HEADERS || (! defined isascii && ! HAVE_ISASCII) |
|
811
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
52 # define IN_CTYPE_DOMAIN(c) 1 |
|
688
cc4dbb9f5f58
Define and use upper case variants of ctype.h IS* macros.
Jim Meyering <jim@meyering.net>
parents:
562
diff
changeset
|
53 #else |
| 1928 | 54 # define IN_CTYPE_DOMAIN(c) isascii (c) |
|
688
cc4dbb9f5f58
Define and use upper case variants of ctype.h IS* macros.
Jim Meyering <jim@meyering.net>
parents:
562
diff
changeset
|
55 #endif |
|
cc4dbb9f5f58
Define and use upper case variants of ctype.h IS* macros.
Jim Meyering <jim@meyering.net>
parents:
562
diff
changeset
|
56 |
|
811
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
57 #define ISSPACE(c) (IN_CTYPE_DOMAIN (c) && isspace (c)) |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
58 #define ISALPHA(c) (IN_CTYPE_DOMAIN (c) && isalpha (c)) |
| 1928 | 59 #define ISLOWER(c) (IN_CTYPE_DOMAIN (c) && islower (c)) |
|
811
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
60 #define ISDIGIT_LOCALE(c) (IN_CTYPE_DOMAIN (c) && isdigit (c)) |
| 814 | 61 |
|
811
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
62 /* ISDIGIT differs from ISDIGIT_LOCALE, as follows: |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
63 - Its arg may be any int or unsigned int; it need not be an unsigned char. |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
64 - It's guaranteed to evaluate its argument exactly once. |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
65 - It's typically faster. |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
66 Posix 1003.2-1992 section 2.5.2.1 page 50 lines 1556-1558 says that |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
67 only '0' through '9' are digits. Prefer ISDIGIT to ISDIGIT_LOCALE unless |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
68 it's important to use the locale's definition of `digit' even when the |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
69 host does not conform to Posix. */ |
|
193f7d202848
(IN_CTYPE_DOMAIN): Rename from ISASCII.
Jim Meyering <jim@meyering.net>
parents:
805
diff
changeset
|
70 #define ISDIGIT(c) ((unsigned) (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
|
71 |
| 1928 | 72 #if STDC_HEADERS || HAVE_STRING_H |
|
856
3cea2ffcbce4
Indent 2 more cpp-directives to reflect nesting.
Jim Meyering <jim@meyering.net>
parents:
855
diff
changeset
|
73 # include <string.h> |
| 9 | 74 #endif |
| 75 | |
|
1584
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
76 #if __GNUC__ < 2 || (__GNUC__ == 2 && __GNUC_MINOR__ < 7) |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
77 # define __attribute__(x) |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
78 #endif |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
79 |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
80 #ifndef ATTRIBUTE_UNUSED |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
81 # define ATTRIBUTE_UNUSED __attribute__ ((__unused__)) |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
82 #endif |
|
0f1daf1810b4
Fix warnings from gcc -W -Wall
Jim Meyering <jim@meyering.net>
parents:
1265
diff
changeset
|
83 |
| 1928 | 84 #define EPOCH_YEAR 1970 |
| 85 #define TM_YEAR_ORIGIN 1900 | |
| 86 | |
| 87 #define HOUR(x) ((x) * 60) | |
|
100
4d645beabfa4
merge with 1.8.1 + partial --version and --help
Jim Meyering <jim@meyering.net>
parents:
49
diff
changeset
|
88 |
| 1928 | 89 /* An entry in the lexical lookup table. */ |
| 90 typedef struct | |
| 91 { | |
| 92 char const *name; | |
| 93 int type; | |
| 94 int value; | |
| 95 } table; | |
| 96 | |
| 97 /* Meridian: am, pm, or 24-hour style. */ | |
| 98 enum { MERam, MERpm, MER24 }; | |
|
769
c906850e724f
Remap yacc globals to have gd_ prefix.
Jim Meyering <jim@meyering.net>
parents:
688
diff
changeset
|
99 |
| 1928 | 100 /* Information passed to and from the parser. */ |
| 101 struct parser_control | |
| 102 { | |
| 103 /* The input string remaining to be parsed. */ | |
| 104 const char *input; | |
| 105 | |
| 106 /* N, if this is the Nth Tuesday. */ | |
| 107 int day_ordinal; | |
| 108 | |
| 109 /* Day of week; Sunday is 0. */ | |
| 110 int day_number; | |
| 111 | |
| 112 /* tm_isdst flag for the local zone. */ | |
| 113 int local_isdst; | |
| 114 | |
| 115 /* Time zone, in minutes east of UTC. */ | |
| 116 int time_zone; | |
| 9 | 117 |
| 1928 | 118 /* Style used for time. */ |
| 119 int meridian; | |
| 9 | 120 |
| 1928 | 121 /* Gregorian year, month, day, hour, minutes, and seconds. */ |
| 122 int year; | |
| 123 int month; | |
| 124 int day; | |
| 125 int hour; | |
| 126 int minutes; | |
| 127 int seconds; | |
| 9 | 128 |
| 1928 | 129 /* Relative year, month, day, hour, minutes, and seconds. */ |
| 130 int rel_year; | |
| 131 int rel_month; | |
| 132 int rel_day; | |
| 133 int rel_hour; | |
| 134 int rel_minutes; | |
| 135 int rel_seconds; | |
| 9 | 136 |
| 1928 | 137 /* Counts of nonterminals of various flavors parsed so far. */ |
| 138 int dates_seen; | |
| 139 int days_seen; | |
| 140 int local_zones_seen; | |
| 141 int rels_seen; | |
| 142 int times_seen; | |
| 143 int zones_seen; | |
| 144 | |
| 145 /* Table of local time zone abbrevations, terminated by a null entry. */ | |
| 146 table local_time_zone_table[3]; | |
| 147 }; | |
| 148 | |
| 149 #define PC (* (struct parser_control *) parm) | |
| 150 #define YYLEX_PARAM parm | |
| 151 #define YYPARSE_PARAM parm | |
| 152 #define YYSTYPE int | |
| 153 | |
| 154 static int yyerror (); | |
| 155 static int yylex (); | |
| 9 | 156 |
| 157 %} | |
| 158 | |
| 1928 | 159 /* We want a reentrant parser. */ |
| 160 %pure_parser | |
| 161 | |
| 1203 | 162 /* This grammar has 13 shift/reduce conflicts. */ |
| 163 %expect 13 | |
| 164 | |
| 1928 | 165 %token tAGO tDAY tDAY_UNIT tDAYZONE tDST tHOUR_UNIT tID |
| 166 %token tLOCAL_ZONE tMERIDIAN tMINUTE_UNIT tMONTH tMONTH_UNIT | |
| 167 %token tSEC_UNIT tSNUMBER tUNUMBER tYEAR_UNIT tZONE | |
| 9 | 168 |
| 169 %% | |
| 170 | |
| 1928 | 171 spec: |
| 172 /* empty */ | |
| 173 | spec item | |
| 174 ; | |
| 9 | 175 |
| 1928 | 176 item: |
| 177 time | |
| 178 { PC.times_seen++; } | |
| 179 | local_zone | |
| 180 { PC.local_zones_seen++; } | |
| 181 | zone | |
| 182 { PC.zones_seen++; } | |
| 183 | date | |
| 184 { PC.dates_seen++; } | |
| 185 | day | |
| 186 { PC.days_seen++; } | |
| 187 | rel | |
| 188 { PC.rels_seen++; } | |
| 189 | number | |
| 190 ; | |
| 9 | 191 |
| 1928 | 192 time: |
| 193 tUNUMBER tMERIDIAN | |
| 194 { | |
| 195 PC.hour = $1; | |
| 196 PC.minutes = 0; | |
| 197 PC.seconds = 0; | |
| 198 PC.meridian = $2; | |
| 199 } | |
| 200 | tUNUMBER ':' tUNUMBER o_merid | |
| 201 { | |
| 202 PC.hour = $1; | |
| 203 PC.minutes = $3; | |
| 204 PC.seconds = 0; | |
| 205 PC.meridian = $4; | |
| 206 } | |
| 207 | tUNUMBER ':' tUNUMBER tSNUMBER | |
| 208 { | |
| 209 PC.hour = $1; | |
| 210 PC.minutes = $3; | |
| 211 PC.meridian = MER24; | |
| 212 PC.zones_seen++; | |
| 213 PC.time_zone = $4 % 100 + ($4 / 100) * 60; | |
| 214 } | |
| 215 | tUNUMBER ':' tUNUMBER ':' tUNUMBER o_merid | |
| 216 { | |
| 217 PC.hour = $1; | |
| 218 PC.minutes = $3; | |
| 219 PC.seconds = $5; | |
| 220 PC.meridian = $6; | |
| 221 } | |
| 222 | tUNUMBER ':' tUNUMBER ':' tUNUMBER tSNUMBER | |
| 223 { | |
| 224 PC.hour = $1; | |
| 225 PC.minutes = $3; | |
| 226 PC.seconds = $5; | |
| 227 PC.meridian = MER24; | |
| 228 PC.zones_seen++; | |
| 229 PC.time_zone = $6 % 100 + ($6 / 100) * 60; | |
| 230 } | |
| 231 ; | |
| 9 | 232 |
| 1928 | 233 local_zone: |
| 234 tLOCAL_ZONE | |
| 235 { PC.local_isdst = $1; } | |
| 236 | tLOCAL_ZONE tDST | |
| 237 { PC.local_isdst = $1 < 0 ? 1 : $1 + 1; } | |
| 238 ; | |
| 239 | |
| 240 zone: | |
| 241 tZONE | |
| 242 { PC.time_zone = $1; } | |
| 243 | tDAYZONE | |
| 244 { PC.time_zone = $1 + 60; } | |
| 245 | tZONE tDST | |
| 246 { PC.time_zone = $1 + 60; } | |
| 247 ; | |
| 9 | 248 |
| 1928 | 249 day: |
| 250 tDAY | |
| 251 { | |
| 252 PC.day_ordinal = 1; | |
| 253 PC.day_number = $1; | |
| 254 } | |
| 255 | tDAY ',' | |
| 256 { | |
| 257 PC.day_ordinal = 1; | |
| 258 PC.day_number = $1; | |
| 259 } | |
| 260 | tUNUMBER tDAY | |
| 261 { | |
| 262 PC.day_ordinal = $1; | |
| 263 PC.day_number = $2; | |
| 264 } | |
| 265 ; | |
| 9 | 266 |
| 1928 | 267 date: |
| 268 tUNUMBER '/' tUNUMBER | |
| 269 { | |
| 270 PC.month = $1; | |
| 271 PC.day = $3; | |
| 272 } | |
| 273 | tUNUMBER '/' tUNUMBER '/' tUNUMBER | |
| 274 { | |
| 275 /* Interpret as YYYY/MM/DD if 1000 <= $1, otherwise as MM/DD/YY. | |
| 276 The goal in recognizing YYYY/MM/DD is solely to support legacy | |
| 277 machine-generated dates like those in an RCS log listing. If | |
| 278 you want portability, use the ISO 8601 format. */ | |
| 279 if (1000 <= $1) | |
| 280 { | |
| 281 PC.year = $1; | |
| 282 PC.month = $3; | |
| 283 PC.day = $5; | |
| 284 } | |
| 285 else | |
| 286 { | |
| 287 PC.month = $1; | |
| 288 PC.day = $3; | |
| 289 PC.year = $5; | |
| 290 } | |
| 291 } | |
| 292 | tUNUMBER tSNUMBER tSNUMBER | |
| 293 { | |
| 294 /* ISO 8601 format. YYYY-MM-DD. */ | |
| 295 PC.year = $1; | |
| 296 PC.month = -$2; | |
| 297 PC.day = -$3; | |
| 298 } | |
| 299 | tUNUMBER tMONTH tSNUMBER | |
| 300 { | |
| 301 /* e.g. 17-JUN-1992. */ | |
| 302 PC.day = $1; | |
| 303 PC.month = $2; | |
| 304 PC.year = -$3; | |
| 305 } | |
| 306 | tMONTH tUNUMBER | |
| 307 { | |
| 308 PC.month = $1; | |
| 309 PC.day = $2; | |
| 310 } | |
| 311 | tMONTH tUNUMBER ',' tUNUMBER | |
| 312 { | |
| 313 PC.month = $1; | |
| 314 PC.day = $2; | |
| 315 PC.year = $4; | |
| 316 } | |
| 317 | tUNUMBER tMONTH | |
| 318 { | |
| 319 PC.month = $2; | |
| 320 PC.day = $1; | |
| 321 } | |
| 322 | tUNUMBER tMONTH tUNUMBER | |
| 323 { | |
| 324 PC.month = $2; | |
| 325 PC.day = $1; | |
| 326 PC.year = $3; | |
| 327 } | |
| 328 ; | |
| 9 | 329 |
| 1928 | 330 rel: |
| 331 relunit tAGO | |
| 332 { | |
| 333 PC.rel_seconds = -PC.rel_seconds; | |
| 334 PC.rel_minutes = -PC.rel_minutes; | |
| 335 PC.rel_hour = -PC.rel_hour; | |
| 336 PC.rel_day = -PC.rel_day; | |
| 337 PC.rel_month = -PC.rel_month; | |
| 338 PC.rel_year = -PC.rel_year; | |
| 339 } | |
| 340 | relunit | |
| 341 ; | |
| 9 | 342 |
| 1928 | 343 relunit: |
| 344 tUNUMBER tYEAR_UNIT | |
| 345 { PC.rel_year += $1 * $2; } | |
| 346 | tSNUMBER tYEAR_UNIT | |
| 347 { PC.rel_year += $1 * $2; } | |
| 348 | tYEAR_UNIT | |
| 349 { PC.rel_year += $1; } | |
| 350 | tUNUMBER tMONTH_UNIT | |
| 351 { PC.rel_month += $1 * $2; } | |
| 352 | tSNUMBER tMONTH_UNIT | |
| 353 { PC.rel_month += $1 * $2; } | |
| 354 | tMONTH_UNIT | |
| 355 { PC.rel_month += $1; } | |
| 356 | tUNUMBER tDAY_UNIT | |
| 357 { PC.rel_day += $1 * $2; } | |
| 358 | tSNUMBER tDAY_UNIT | |
| 359 { PC.rel_day += $1 * $2; } | |
| 360 | tDAY_UNIT | |
| 361 { PC.rel_day += $1; } | |
| 362 | tUNUMBER tHOUR_UNIT | |
| 363 { PC.rel_hour += $1 * $2; } | |
| 364 | tSNUMBER tHOUR_UNIT | |
| 365 { PC.rel_hour += $1 * $2; } | |
| 366 | tHOUR_UNIT | |
| 367 { PC.rel_hour += $1; } | |
| 368 | tUNUMBER tMINUTE_UNIT | |
| 369 { PC.rel_minutes += $1 * $2; } | |
| 370 | tSNUMBER tMINUTE_UNIT | |
| 371 { PC.rel_minutes += $1 * $2; } | |
| 372 | tMINUTE_UNIT | |
| 373 { PC.rel_minutes += $1; } | |
| 374 | tUNUMBER tSEC_UNIT | |
| 375 { PC.rel_seconds += $1 * $2; } | |
| 376 | tSNUMBER tSEC_UNIT | |
| 377 { PC.rel_seconds += $1 * $2; } | |
| 378 | tSEC_UNIT | |
| 379 { PC.rel_seconds += $1; } | |
| 380 ; | |
| 9 | 381 |
| 1928 | 382 number: |
| 383 tUNUMBER | |
| 384 { | |
| 385 if (PC.dates_seen && ! PC.rels_seen && (PC.times_seen || 100 <= $1)) | |
| 386 PC.year = $1; | |
| 387 else | |
| 388 { | |
| 389 if (10000 < $1) | |
| 390 { | |
| 391 PC.dates_seen++; | |
| 392 PC.day = $1 % 100; | |
| 393 PC.month = ($1 / 100) % 100; | |
| 394 PC.year = $1 / 10000; | |
| 395 } | |
| 857 | 396 else |
| 397 { | |
| 1928 | 398 PC.times_seen++; |
| 399 if ($1 < 100) | |
| 857 | 400 { |
| 1928 | 401 PC.hour = $1; |
| 402 PC.minutes = 0; | |
| 857 | 403 } |
| 404 else | |
| 405 { | |
| 1928 | 406 PC.hour = $1 / 100; |
| 407 PC.minutes = $1 % 100; | |
| 857 | 408 } |
| 1928 | 409 PC.seconds = 0; |
| 410 PC.meridian = MER24; | |
| 857 | 411 } |
| 412 } | |
| 1928 | 413 } |
| 414 ; | |
| 9 | 415 |
| 1928 | 416 o_merid: |
| 417 /* empty */ | |
| 418 { $$ = MER24; } | |
| 419 | tMERIDIAN | |
| 420 { $$ = $1; } | |
| 421 ; | |
| 9 | 422 |
| 423 %% | |
| 424 | |
| 1203 | 425 /* Include this file down here because bison inserts code above which |
| 426 may define-away `const'. We want the prototype for get_date to have | |
| 1928 | 427 the same signature as the function definition. */ |
| 1265 | 428 #include "getdate.h" |
| 1203 | 429 |
| 1928 | 430 #ifndef gmtime |
| 431 struct tm *gmtime (); | |
| 432 #endif | |
| 433 #ifndef localtime | |
| 434 struct tm *localtime (); | |
| 435 #endif | |
| 436 #ifndef mktime | |
| 437 time_t mktime (); | |
| 438 #endif | |
| 1203 | 439 |
| 1928 | 440 static table const meridian_table[] = |
| 441 { | |
| 442 { "AM", tMERIDIAN, MERam }, | |
| 443 { "A.M.", tMERIDIAN, MERam }, | |
| 444 { "PM", tMERIDIAN, MERpm }, | |
| 445 { "P.M.", tMERIDIAN, MERpm }, | |
| 446 { 0, 0, 0 } | |
| 447 }; | |
| 448 | |
| 449 static table const dst_table[] = | |
| 450 { | |
| 451 { "DST", tDST, 0 } | |
| 9 | 452 }; |
| 453 | |
| 1928 | 454 static table const month_and_day_table[] = |
| 455 { | |
| 456 { "JANUARY", tMONTH, 1 }, | |
| 457 { "FEBRUARY", tMONTH, 2 }, | |
| 458 { "MARCH", tMONTH, 3 }, | |
| 459 { "APRIL", tMONTH, 4 }, | |
| 460 { "MAY", tMONTH, 5 }, | |
| 461 { "JUNE", tMONTH, 6 }, | |
| 462 { "JULY", tMONTH, 7 }, | |
| 463 { "AUGUST", tMONTH, 8 }, | |
| 464 { "SEPTEMBER",tMONTH, 9 }, | |
| 465 { "SEPT", tMONTH, 9 }, | |
| 466 { "OCTOBER", tMONTH, 10 }, | |
| 467 { "NOVEMBER", tMONTH, 11 }, | |
| 468 { "DECEMBER", tMONTH, 12 }, | |
| 469 { "SUNDAY", tDAY, 0 }, | |
| 470 { "MONDAY", tDAY, 1 }, | |
| 471 { "TUESDAY", tDAY, 2 }, | |
| 472 { "TUES", tDAY, 2 }, | |
| 473 { "WEDNESDAY",tDAY, 3 }, | |
| 474 { "WEDNES", tDAY, 3 }, | |
| 475 { "THURSDAY", tDAY, 4 }, | |
| 476 { "THUR", tDAY, 4 }, | |
| 477 { "THURS", tDAY, 4 }, | |
| 478 { "FRIDAY", tDAY, 5 }, | |
| 479 { "SATURDAY", tDAY, 6 }, | |
| 480 { 0, 0, 0 } | |
| 481 }; | |
| 482 | |
| 483 static table const time_units_table[] = | |
| 484 { | |
| 485 { "YEAR", tYEAR_UNIT, 1 }, | |
| 486 { "MONTH", tMONTH_UNIT, 1 }, | |
| 487 { "FORTNIGHT",tDAY_UNIT, 14 }, | |
| 488 { "WEEK", tDAY_UNIT, 7 }, | |
| 489 { "DAY", tDAY_UNIT, 1 }, | |
| 490 { "HOUR", tHOUR_UNIT, 1 }, | |
| 491 { "MINUTE", tMINUTE_UNIT, 1 }, | |
| 492 { "MIN", tMINUTE_UNIT, 1 }, | |
| 493 { "SECOND", tSEC_UNIT, 1 }, | |
| 494 { "SEC", tSEC_UNIT, 1 }, | |
| 495 { 0, 0, 0 } | |
| 9 | 496 }; |
| 497 | |
| 498 /* Assorted relative-time words. */ | |
| 1928 | 499 static table const relative_time_table[] = |
| 500 { | |
| 501 { "TOMORROW", tMINUTE_UNIT, 24 * 60 }, | |
| 502 { "YESTERDAY",tMINUTE_UNIT, - (24 * 60) }, | |
| 503 { "TODAY", tMINUTE_UNIT, 0 }, | |
| 504 { "NOW", tMINUTE_UNIT, 0 }, | |
| 505 { "LAST", tUNUMBER, -1 }, | |
| 506 { "THIS", tMINUTE_UNIT, 0 }, | |
| 507 { "NEXT", tUNUMBER, 1 }, | |
| 508 { "FIRST", tUNUMBER, 1 }, | |
| 509 /*{ "SECOND", tUNUMBER, 2 }, */ | |
| 510 { "THIRD", tUNUMBER, 3 }, | |
| 511 { "FOURTH", tUNUMBER, 4 }, | |
| 512 { "FIFTH", tUNUMBER, 5 }, | |
| 513 { "SIXTH", tUNUMBER, 6 }, | |
| 514 { "SEVENTH", tUNUMBER, 7 }, | |
| 515 { "EIGHTH", tUNUMBER, 8 }, | |
| 516 { "NINTH", tUNUMBER, 9 }, | |
| 517 { "TENTH", tUNUMBER, 10 }, | |
| 518 { "ELEVENTH", tUNUMBER, 11 }, | |
| 519 { "TWELFTH", tUNUMBER, 12 }, | |
| 520 { "AGO", tAGO, 1 }, | |
| 521 { 0, 0, 0 } | |
| 9 | 522 }; |
| 523 | |
| 1928 | 524 /* The time zone table. This table is necessarily incomplete, as time |
| 525 zone abbreviations are ambiguous; e.g. Australians interpret "EST" | |
| 526 as Eastern time in Australia, not as US Eastern Standard Time. | |
| 527 You cannot rely on getdate to handle arbitrary time zone | |
| 528 abbreviations; use numeric abbreviations like `-0500' instead. */ | |
| 529 static table const time_zone_table[] = | |
| 530 { | |
| 531 { "GMT", tZONE, HOUR ( 0) }, /* Greenwich Mean */ | |
| 532 { "UT", tZONE, HOUR ( 0) }, /* Universal (Coordinated) */ | |
| 533 { "UTC", tZONE, HOUR ( 0) }, | |
| 534 { "WET", tZONE, HOUR ( 0) }, /* Western European */ | |
| 535 { "WEST", tDAYZONE, HOUR ( 0) }, /* Western European Summer */ | |
| 536 { "BST", tDAYZONE, HOUR ( 0) }, /* British Summer */ | |
| 537 { "ART", tZONE, -HOUR ( 3) }, /* Argentina */ | |
| 538 { "BRT", tZONE, -HOUR ( 3) }, /* Brazil */ | |
| 539 { "BRST", tDAYZONE, -HOUR ( 3) }, /* Brazil Summer */ | |
| 540 { "NST", tZONE, -(HOUR ( 3) + 30) }, /* Newfoundland Standard */ | |
| 541 { "NDT", tDAYZONE,-(HOUR ( 3) + 30) }, /* Newfoundland Daylight */ | |
| 542 { "AST", tZONE, -HOUR ( 4) }, /* Atlantic Standard */ | |
| 543 { "ADT", tDAYZONE, -HOUR ( 4) }, /* Atlantic Daylight */ | |
| 544 { "CLT", tZONE, -HOUR ( 4) }, /* Chile */ | |
| 545 { "CLST", tDAYZONE, -HOUR ( 4) }, /* Chile Summer */ | |
| 546 { "EST", tZONE, -HOUR ( 5) }, /* Eastern Standard */ | |
| 547 { "EDT", tDAYZONE, -HOUR ( 5) }, /* Eastern Daylight */ | |
| 548 { "CST", tZONE, -HOUR ( 6) }, /* Central Standard */ | |
| 549 { "CDT", tDAYZONE, -HOUR ( 6) }, /* Central Daylight */ | |
| 550 { "MST", tZONE, -HOUR ( 7) }, /* Mountain Standard */ | |
| 551 { "MDT", tDAYZONE, -HOUR ( 7) }, /* Mountain Daylight */ | |
| 552 { "PST", tZONE, -HOUR ( 8) }, /* Pacific Standard */ | |
| 553 { "PDT", tDAYZONE, -HOUR ( 8) }, /* Pacific Daylight */ | |
| 554 { "AKST", tZONE, -HOUR ( 9) }, /* Alaska Standard */ | |
| 555 { "AKDT", tDAYZONE, -HOUR ( 9) }, /* Alaska Daylight */ | |
| 556 { "HST", tZONE, -HOUR (10) }, /* Hawaii Standard */ | |
| 557 { "HAST", tZONE, -HOUR (10) }, /* Hawaii-Aleutian Standard */ | |
| 558 { "HADT", tDAYZONE, -HOUR (10) }, /* Hawaii-Aleutian Daylight */ | |
| 559 { "SST", tZONE, -HOUR (12) }, /* Samoa Standard */ | |
| 560 { "WAT", tZONE, HOUR ( 1) }, /* West Africa */ | |
| 561 { "CET", tZONE, HOUR ( 1) }, /* Central European */ | |
| 562 { "CEST", tDAYZONE, HOUR ( 1) }, /* Central European Summer */ | |
| 563 { "MET", tZONE, HOUR ( 1) }, /* Middle European */ | |
| 564 { "MEZ", tZONE, HOUR ( 1) }, /* Middle European */ | |
| 565 { "MEST", tDAYZONE, HOUR ( 1) }, /* Middle European Summer */ | |
| 566 { "MESZ", tDAYZONE, HOUR ( 1) }, /* Middle European Summer */ | |
| 567 { "EET", tZONE, HOUR ( 2) }, /* Eastern European */ | |
| 568 { "EEST", tDAYZONE, HOUR ( 2) }, /* Eastern European Summer */ | |
| 569 { "CAT", tZONE, HOUR ( 2) }, /* Central Africa */ | |
| 570 { "SAST", tZONE, HOUR ( 2) }, /* South Africa Standard */ | |
| 571 { "EAT", tZONE, HOUR ( 3) }, /* East Africa */ | |
| 572 { "MSK", tZONE, HOUR ( 3) }, /* Moscow */ | |
| 573 { "MSD", tDAYZONE, HOUR ( 3) }, /* Moscow Daylight */ | |
| 574 { "IST", tZONE, (HOUR ( 5) + 30) }, /* India Standard */ | |
| 575 { "SGT", tZONE, HOUR ( 8) }, /* Singapore */ | |
| 576 { "KST", tZONE, HOUR ( 9) }, /* Korea Standard */ | |
| 577 { "JST", tZONE, HOUR ( 9) }, /* Japan Standard */ | |
| 578 { "GST", tZONE, HOUR (10) }, /* Guam Standard */ | |
| 579 { "NZST", tZONE, HOUR (12) }, /* New Zealand Standard */ | |
| 580 { "NZDT", tDAYZONE, HOUR (12) }, /* New Zealand Daylight */ | |
| 581 { 0, 0, 0 } | |
| 9 | 582 }; |
| 583 | |
| 1928 | 584 /* Military time zone table. */ |
| 585 static table const military_table[] = | |
| 586 { | |
| 587 { "A", tZONE, -HOUR ( 1) }, | |
| 588 { "B", tZONE, -HOUR ( 2) }, | |
| 589 { "C", tZONE, -HOUR ( 3) }, | |
| 590 { "D", tZONE, -HOUR ( 4) }, | |
| 591 { "E", tZONE, -HOUR ( 5) }, | |
| 592 { "F", tZONE, -HOUR ( 6) }, | |
| 593 { "G", tZONE, -HOUR ( 7) }, | |
| 594 { "H", tZONE, -HOUR ( 8) }, | |
| 595 { "I", tZONE, -HOUR ( 9) }, | |
| 596 { "K", tZONE, -HOUR (10) }, | |
| 597 { "L", tZONE, -HOUR (11) }, | |
| 598 { "M", tZONE, -HOUR (12) }, | |
| 599 { "N", tZONE, HOUR ( 1) }, | |
| 600 { "O", tZONE, HOUR ( 2) }, | |
| 601 { "P", tZONE, HOUR ( 3) }, | |
| 602 { "Q", tZONE, HOUR ( 4) }, | |
| 603 { "R", tZONE, HOUR ( 5) }, | |
| 604 { "S", tZONE, HOUR ( 6) }, | |
| 605 { "T", tZONE, HOUR ( 7) }, | |
| 606 { "U", tZONE, HOUR ( 8) }, | |
| 607 { "V", tZONE, HOUR ( 9) }, | |
| 608 { "W", tZONE, HOUR (10) }, | |
| 609 { "X", tZONE, HOUR (11) }, | |
| 610 { "Y", tZONE, HOUR (12) }, | |
| 611 { "Z", tZONE, HOUR ( 0) }, | |
| 612 { 0, 0, 0 } | |
| 9 | 613 }; |
| 614 | |
| 615 | |
| 616 | |
|
16
01c6d40adf9d
Make tables static and const when possible.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
617 static int |
| 1928 | 618 to_hour (int hours, int meridian) |
| 9 | 619 { |
| 1928 | 620 switch (meridian) |
| 857 | 621 { |
| 622 case MER24: | |
| 1928 | 623 return 0 <= hours && hours < 24 ? hours : -1; |
| 857 | 624 case MERam: |
| 1928 | 625 return 0 < hours && hours < 12 ? hours : hours == 12 ? 0 : -1; |
| 857 | 626 case MERpm: |
| 1928 | 627 return 0 < hours && hours < 12 ? hours + 12 : hours == 12 ? 12 : -1; |
| 857 | 628 default: |
| 629 abort (); | |
| 630 } | |
| 303 | 631 /* NOTREACHED */ |
| 9 | 632 } |
| 633 | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
634 static int |
| 1928 | 635 to_year (int year) |
| 9 | 636 { |
| 1928 | 637 if (year < 0) |
| 638 year = -year; | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
639 |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
640 /* 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
|
641 years 69-99 map to 1969-1999. */ |
| 1928 | 642 if (year < 69) |
| 643 year += 2000; | |
| 644 else if (year < 100) | |
| 645 year += 1900; | |
| 9 | 646 |
| 1928 | 647 return year; |
| 9 | 648 } |
| 649 | |
| 1928 | 650 static table const * |
| 651 lookup_zone (struct parser_control const *pc, char const *name) | |
| 9 | 652 { |
| 1928 | 653 table const *tp; |
| 857 | 654 |
| 1928 | 655 /* Try local zone abbreviations first; they're more likely to be right. */ |
| 656 for (tp = pc->local_time_zone_table; tp->name; tp++) | |
| 657 if (strcmp (name, tp->name) == 0) | |
| 658 return tp; | |
| 9 | 659 |
| 1928 | 660 for (tp = time_zone_table; tp->name; tp++) |
| 661 if (strcmp (name, tp->name) == 0) | |
| 662 return tp; | |
| 857 | 663 |
| 1928 | 664 return 0; |
| 9 | 665 } |
| 666 | |
| 1928 | 667 /* Yield A - B, measured in seconds. */ |
|
16
01c6d40adf9d
Make tables static and const when possible.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
668 static int |
| 1777 | 669 difftm (struct tm *a, struct tm *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
|
670 { |
|
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
671 int ay = a->tm_year + (TM_YEAR_ORIGIN - 1); |
|
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
672 int by = b->tm_year + (TM_YEAR_ORIGIN - 1); |
| 1928 | 673 int days = ( |
| 857 | 674 /* difference in day of year */ |
| 675 a->tm_yday - b->tm_yday | |
| 676 /* + intervening leap days */ | |
| 677 + ((ay >> 2) - (by >> 2)) | |
| 678 - (ay / 100 - by / 100) | |
| 679 + ((ay / 100 >> 2) - (by / 100 >> 2)) | |
| 680 /* + difference in years * 365 */ | |
| 1928 | 681 + (int) (ay - by) * 365 |
| 857 | 682 ); |
| 683 return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour)) | |
| 684 + (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
|
685 + (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
|
686 } |
|
25a5ae7fce09
Revert 1.14-1.16 changes that removed difftm and modified get_date.
Jim Meyering <jim@meyering.net>
parents:
202
diff
changeset
|
687 |
| 1928 | 688 static table const * |
| 689 lookup_word (struct parser_control const *pc, char *word) | |
| 690 { | |
| 691 char *p; | |
| 692 char *q; | |
| 693 size_t wordlen; | |
| 694 table const *tp; | |
| 695 int i; | |
| 696 int abbrev; | |
| 697 | |
| 698 /* Make it uppercase. */ | |
| 699 for (p = word; *p; p++) | |
| 700 if (ISLOWER ((unsigned char) *p)) | |
| 701 *p = toupper ((unsigned char) *p); | |
| 702 | |
| 703 for (tp = meridian_table; tp->name; tp++) | |
| 704 if (strcmp (word, tp->name) == 0) | |
| 705 return tp; | |
| 706 | |
| 707 /* See if we have an abbreviation for a month. */ | |
| 708 wordlen = strlen (word); | |
| 709 abbrev = wordlen == 3 || (wordlen == 4 && word[3] == '.'); | |
| 710 | |
| 711 for (tp = month_and_day_table; tp->name; tp++) | |
| 712 if ((abbrev ? strncmp (word, tp->name, 3) : strcmp (word, tp->name)) == 0) | |
| 713 return tp; | |
| 714 | |
| 715 if ((tp = lookup_zone (pc, word))) | |
| 716 return tp; | |
| 717 | |
| 718 if (strcmp (word, dst_table[0].name) == 0) | |
| 719 return dst_table; | |
| 720 | |
| 721 for (tp = time_units_table; tp->name; tp++) | |
| 722 if (strcmp (word, tp->name) == 0) | |
| 723 return tp; | |
| 724 | |
| 725 /* Strip off any plural and try the units table again. */ | |
| 726 if (word[wordlen - 1] == 'S') | |
| 727 { | |
| 728 word[wordlen - 1] = '\0'; | |
| 729 for (tp = time_units_table; tp->name; tp++) | |
| 730 if (strcmp (word, tp->name) == 0) | |
| 731 return tp; | |
| 732 word[wordlen - 1] = 'S'; /* For "this" in relative_time_table. */ | |
| 733 } | |
| 734 | |
| 735 for (tp = relative_time_table; tp->name; tp++) | |
| 736 if (strcmp (word, tp->name) == 0) | |
| 737 return tp; | |
| 738 | |
| 739 /* Military time zones. */ | |
| 740 if (wordlen == 1) | |
| 741 for (tp = military_table; tp->name; tp++) | |
| 742 if (word[0] == tp->name[0]) | |
| 743 return tp; | |
| 744 | |
| 745 /* Drop out any periods and try the time zone table again. */ | |
| 746 for (i = 0, p = q = word; (*p = *q); q++) | |
| 747 if (*q == '.') | |
| 748 i = 1; | |
| 749 else | |
| 750 p++; | |
| 751 if (i && (tp = lookup_zone (pc, word))) | |
| 752 return tp; | |
| 753 | |
| 754 return 0; | |
| 755 } | |
| 756 | |
| 757 static int | |
| 758 yylex (YYSTYPE *lvalp, struct parser_control *pc) | |
| 759 { | |
| 760 unsigned char c; | |
| 761 int count; | |
| 762 | |
| 763 for (;;) | |
| 764 { | |
| 765 while (c = *pc->input, ISSPACE (c)) | |
| 766 pc->input++; | |
| 767 | |
| 768 if (ISDIGIT (c) || c == '-' || c == '+') | |
| 769 { | |
| 770 int sign; | |
| 771 if (c == '-' || c == '+') | |
| 772 { | |
| 773 sign = c == '-' ? -1 : 1; | |
| 774 if (! ISDIGIT (*++pc->input)) | |
| 775 /* skip the '-' sign */ | |
| 776 continue; | |
| 777 } | |
| 778 else | |
| 779 sign = 0; | |
| 780 for (*lvalp = 0; ISDIGIT (c = *pc->input++);) | |
| 781 *lvalp = 10 * *lvalp + (c - '0'); | |
| 782 pc->input--; | |
| 783 if (sign < 0) | |
| 784 *lvalp = - *lvalp; | |
| 785 return sign ? tSNUMBER : tUNUMBER; | |
| 786 } | |
| 787 | |
| 788 if (ISALPHA (c)) | |
| 789 { | |
| 790 char buff[20]; | |
| 791 char *p = buff; | |
| 792 table const *tp; | |
| 793 | |
| 794 do | |
| 795 { | |
| 796 if (p < buff + sizeof buff - 1) | |
| 797 *p++ = c; | |
| 798 c = *++pc->input; | |
| 799 } | |
| 800 while (ISALPHA (c) || c == '.'); | |
| 801 | |
| 802 *p = '\0'; | |
| 803 tp = lookup_word (pc, buff); | |
| 804 if (! tp) | |
| 805 return tID; | |
| 806 *lvalp = tp->value; | |
| 807 return tp->type; | |
| 808 } | |
| 809 | |
| 810 if (c != '(') | |
| 811 return *pc->input++; | |
| 812 count = 0; | |
| 813 do | |
| 814 { | |
| 815 c = *pc->input++; | |
| 816 if (c == '\0') | |
| 817 return c; | |
| 818 if (c == '(') | |
| 819 count++; | |
| 820 else if (c == ')') | |
| 821 count--; | |
| 822 } | |
| 823 while (count > 0); | |
| 824 } | |
| 825 } | |
| 826 | |
| 827 /* Do nothing if the parser reports an error. */ | |
| 828 static int | |
| 829 yyerror (char *s ATTRIBUTE_UNUSED) | |
| 830 { | |
| 831 return 0; | |
| 832 } | |
| 833 | |
| 834 /* ?? */ | |
| 9 | 835 time_t |
| 1203 | 836 get_date (const char *p, const time_t *now) |
| 9 | 837 { |
| 1928 | 838 time_t Start = now ? *now : time (0); |
| 839 struct tm *tmp = localtime (&Start); | |
| 840 struct tm tm; | |
| 841 struct tm tm0; | |
| 842 struct parser_control pc; | |
| 9 | 843 |
| 1928 | 844 if (! tmp) |
| 303 | 845 return -1; |
| 9 | 846 |
| 1928 | 847 pc.input = p; |
| 848 pc.year = tmp->tm_year + TM_YEAR_ORIGIN; | |
| 849 pc.month = tmp->tm_mon + 1; | |
| 850 pc.day = tmp->tm_mday; | |
| 851 pc.hour = tmp->tm_hour; | |
| 852 pc.minutes = tmp->tm_min; | |
| 853 pc.seconds = tmp->tm_sec; | |
| 854 tm.tm_isdst = tmp->tm_isdst; | |
| 855 | |
| 856 pc.meridian = MER24; | |
| 857 pc.rel_seconds = 0; | |
| 858 pc.rel_minutes = 0; | |
| 859 pc.rel_hour = 0; | |
| 860 pc.rel_day = 0; | |
| 861 pc.rel_month = 0; | |
| 862 pc.rel_year = 0; | |
| 863 pc.dates_seen = 0; | |
| 864 pc.days_seen = 0; | |
| 865 pc.rels_seen = 0; | |
| 866 pc.times_seen = 0; | |
| 867 pc.local_zones_seen = 0; | |
| 868 pc.zones_seen = 0; | |
| 869 | |
| 870 #if HAVE_TM_ZONE | |
| 871 pc.local_time_zone_table[0].name = tmp->tm_zone; | |
| 872 pc.local_time_zone_table[0].type = tLOCAL_ZONE; | |
| 873 pc.local_time_zone_table[0].value = tmp->tm_isdst; | |
| 874 pc.local_time_zone_table[1].name = 0; | |
| 875 | |
| 876 /* Probe the names used in the next three calendar quarters, looking | |
| 877 for a tm_isdst different from the one we already have. */ | |
| 878 { | |
|
1929
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
879 int quarter; |
|
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
880 for (quarter = 1; quarter <= 3; quarter++) |
| 1928 | 881 { |
|
1929
f7d4ee7478d7
(get_date): Rename outermost local `probe' to `quarter'.
Jim Meyering <jim@meyering.net>
parents:
1928
diff
changeset
|
882 time_t probe = Start + quarter * (90 * 24 * 60 * 60); |
| 1928 | 883 struct tm *tm = localtime (&probe); |
| 884 if (tm && tm->tm_zone | |
| 885 && tm->tm_isdst != pc.local_time_zone_table[0].value) | |
| 886 { | |
| 887 { | |
| 888 pc.local_time_zone_table[1].name = tm->tm_zone; | |
| 889 pc.local_time_zone_table[1].type = tLOCAL_ZONE; | |
| 890 pc.local_time_zone_table[1].value = tm->tm_isdst; | |
| 891 pc.local_time_zone_table[2].name = 0; | |
| 892 } | |
| 893 break; | |
| 894 } | |
| 895 } | |
| 896 } | |
| 897 #else | |
| 898 #if HAVE_TZNAME | |
| 899 { | |
| 900 # ifndef tzname | |
| 901 extern char *tzname[]; | |
| 902 # endif | |
| 903 int i; | |
| 904 for (i = 0; i < 2; i++) | |
| 905 { | |
| 906 pc.local_time_zone_table[i].name = tzname[i]; | |
| 907 pc.local_time_zone_table[i].type = tLOCAL_ZONE; | |
| 908 pc.local_time_zone_table[i].value = i; | |
| 909 } | |
| 910 pc.local_time_zone_table[i].name = 0; | |
| 911 } | |
| 912 #else | |
| 913 pc.local_time_zone_table[0].name = 0; | |
| 914 #endif | |
| 915 #endif | |
| 916 | |
| 917 if (pc.local_time_zone_table[0].name && pc.local_time_zone_table[1].name | |
| 918 && ! strcmp (pc.local_time_zone_table[0].name, | |
| 919 pc.local_time_zone_table[1].name)) | |
| 857 | 920 { |
| 1928 | 921 /* This locale uses the same abbrevation for standard and |
| 922 daylight times. So if we see that abbreviation, we don't | |
| 923 know whether it's daylight time. */ | |
| 924 pc.local_time_zone_table[0].value = -1; | |
| 925 pc.local_time_zone_table[1].name = 0; | |
| 926 } | |
| 927 | |
| 928 if (yyparse (&pc) != 0 | |
| 929 || 1 < pc.times_seen || 1 < pc.dates_seen || 1 < pc.days_seen | |
| 930 || 1 < (pc.local_zones_seen + pc.zones_seen) | |
| 931 || (pc.local_zones_seen && 1 < pc.local_isdst)) | |
| 932 return -1; | |
| 933 | |
| 934 tm.tm_year = to_year (pc.year) - TM_YEAR_ORIGIN + pc.rel_year; | |
| 935 tm.tm_mon = pc.month - 1 + pc.rel_month; | |
| 936 tm.tm_mday = pc.day + pc.rel_day; | |
| 937 if (pc.times_seen || (pc.rels_seen && ! pc.dates_seen && ! pc.days_seen)) | |
| 938 { | |
| 939 tm.tm_hour = to_hour (pc.hour, pc.meridian); | |
| 857 | 940 if (tm.tm_hour < 0) |
| 941 return -1; | |
| 1928 | 942 tm.tm_min = pc.minutes; |
| 943 tm.tm_sec = pc.seconds; | |
| 857 | 944 } |
| 945 else | |
| 946 { | |
| 947 tm.tm_hour = tm.tm_min = tm.tm_sec = 0; | |
| 948 } | |
| 1928 | 949 tm.tm_hour += pc.rel_hour; |
| 950 tm.tm_min += pc.rel_minutes; | |
| 951 tm.tm_sec += pc.rel_seconds; | |
|
1850
b6b8118c96e5
add the comment to go with last change
Jim Meyering <jim@meyering.net>
parents:
1849
diff
changeset
|
952 |
| 1928 | 953 /* Let mktime deduce tm_isdst if we have an absolute time stamp, |
| 954 or if the relative time stamp mentions days, months, or years. */ | |
| 955 if (pc.dates_seen | pc.days_seen | pc.times_seen | pc.rel_day | pc.rel_month | pc.rel_year) | |
|
1849
d591bbc0e8aa
(get_date): Let mktime deduce tm_isdst if we
Jim Meyering <jim@meyering.net>
parents:
1785
diff
changeset
|
956 tm.tm_isdst = -1; |
|
1850
b6b8118c96e5
add the comment to go with last change
Jim Meyering <jim@meyering.net>
parents:
1849
diff
changeset
|
957 |
| 1928 | 958 /* But if the input explicitly specifies local time with or without |
| 959 DST, give mktime that information. */ | |
| 960 if (pc.local_zones_seen) | |
| 961 tm.tm_isdst = pc.local_isdst; | |
| 962 | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
963 tm0 = tm; |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
964 |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
965 Start = mktime (&tm); |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
966 |
| 857 | 967 if (Start == (time_t) -1) |
| 968 { | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
969 |
| 857 | 970 /* Guard against falsely reporting errors near the time_t boundaries |
| 971 when parsing times in other time zones. For example, if the min | |
| 972 time_t value is 1970-01-01 00:00:00 UTC and we are 8 hours ahead | |
| 973 of UTC, then the min localtime value is 1970-01-01 08:00:00; if | |
| 974 we apply mktime to 1970-01-01 00:00:00 we will get an error, so | |
| 975 we apply mktime to 1970-01-02 08:00:00 instead and adjust the time | |
| 976 zone by 24 hours to compensate. This algorithm assumes that | |
| 977 there is no DST transition within a day of the time_t boundaries. */ | |
| 1928 | 978 if (pc.zones_seen) |
| 857 | 979 { |
| 980 tm = tm0; | |
| 1928 | 981 if (tm.tm_year <= EPOCH_YEAR - TM_YEAR_ORIGIN) |
| 857 | 982 { |
| 983 tm.tm_mday++; | |
| 1928 | 984 pc.time_zone += 24 * 60; |
| 857 | 985 } |
| 986 else | |
| 987 { | |
| 988 tm.tm_mday--; | |
| 1928 | 989 pc.time_zone -= 24 * 60; |
| 857 | 990 } |
| 991 Start = mktime (&tm); | |
| 992 } | |
| 993 | |
| 994 if (Start == (time_t) -1) | |
| 995 return Start; | |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
996 } |
|
855
9c89b90524b8
(get_date): Change prototype to reflect const'ness of parameters.
Jim Meyering <jim@meyering.net>
parents:
852
diff
changeset
|
997 |
| 1928 | 998 if (pc.days_seen && ! pc.dates_seen) |
| 857 | 999 { |
| 1928 | 1000 tm.tm_mday += ((pc.day_number - tm.tm_wday + 7) % 7 |
| 1001 + 7 * (pc.day_ordinal - (0 < pc.day_ordinal))); | |
| 857 | 1002 Start = mktime (&tm); |
| 1003 if (Start == (time_t) -1) | |
| 1004 return Start; | |
| 1005 } | |
| 9 | 1006 |
| 1928 | 1007 if (pc.zones_seen) |
| 857 | 1008 { |
| 1928 | 1009 int delta; |
|
1761
14b8e8de40c8
(get_date): Reuse tm_isdst of first localtime
Jim Meyering <jim@meyering.net>
parents:
1717
diff
changeset
|
1010 struct tm *gmt = gmtime (&Start); |
| 1928 | 1011 if (! gmt) |
|
1761
14b8e8de40c8
(get_date): Reuse tm_isdst of first localtime
Jim Meyering <jim@meyering.net>
parents:
1717
diff
changeset
|
1012 return -1; |
| 1928 | 1013 delta = pc.time_zone * 60 + difftm (gmt, &tm); |
| 1014 if ((Start - delta < Start) != (delta < 0)) | |
| 1015 return -1; /* time_t overflow */ | |
| 1016 Start -= delta; | |
| 857 | 1017 } |
|
852
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
1018 |
|
2156a43352c1
1997-01-06 Paul Eggert <eggert@twinsun.com>
Jim Meyering <jim@meyering.net>
parents:
814
diff
changeset
|
1019 return Start; |
| 9 | 1020 } |
| 1021 | |
| 1928 | 1022 #if TEST |
| 9 | 1023 |
| 1928 | 1024 #include <stdio.h> |
| 1025 | |
| 202 | 1026 int |
| 1928 | 1027 main (int ac, char **av) |
| 9 | 1028 { |
| 1928 | 1029 char buff[BUFSIZ]; |
| 321 | 1030 time_t d; |
| 9 | 1031 |
| 1928 | 1032 printf ("Enter date, or blank line to exit.\n\t> "); |
| 1033 fflush (stdout); | |
| 321 | 1034 |
| 1928 | 1035 buff[BUFSIZ - 1] = 0; |
| 1036 while (fgets (buff, BUFSIZ - 1, stdin) && buff[0]) | |
| 857 | 1037 { |
| 1928 | 1038 d = get_date (buff, 0); |
| 1039 if (d == (time_t) -1) | |
| 1040 printf ("Bad format - couldn't convert.\n"); | |
| 857 | 1041 else |
| 1928 | 1042 printf ("%s", ctime (&d)); |
| 1043 printf ("\t> "); | |
| 1044 fflush (stdout); | |
| 857 | 1045 } |
| 1928 | 1046 return 0; |
| 9 | 1047 } |
| 1928 | 1048 #endif /* defined TEST */ |