/gtk-gnutella-0.97.1/src/lib/getdate.y
Happy | 1041 lines | 956 code | 85 blank | 0 comment | 0 complexity | 54f19915c9b3031a18e5ff577ed718c6 MD5 | raw file
Possible License(s): AGPL-1.0
- %{
- /*
- * $Id$
- *
- * Date parsing.
- *
- *----------------------------------------------------------------------
- * This file is part of gtk-gnutella.
- *
- * gtk-gnutella is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * gtk-gnutella is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with gtk-gnutella; if not, write to the Free Software
- * Foundation, Inc.:
- * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *----------------------------------------------------------------------
- */
- /*
- ** Originally written by Steven M. Bellovin <smb@research.att.com> while
- ** at the University of North Carolina at Chapel Hill. Later tweaked by
- ** a couple of people on Usenet. Completely overhauled by Rich $alz
- ** <rsalz@bbn.com> and Jim Berets <jberets@bbn.com> in August, 1990;
- **
- ** Modified by Raphael Manfredi <Rapahel_Manfredi@pobox.com> to add
- ** support for Gnutella's ISO date format (see NOTE-datetime.txt in
- ** the gtk-gnutella's doc/other directory) in May, 2002.
- **
- ** This grammar has 14 shift/reduce conflicts.
- **
- ** This code is in the public domain and has no copyright.
- */
- #include "common.h"
- #ifdef FORCE_ALLOCA_H
- #include <alloca.h>
- #endif
- /* Since the code of getdate.y is not included in the Emacs executable
- * itself, there is no need to #define static in this file. Even if
- * the code were included in the Emacs executable, it probably
- * wouldn't do any harm to #undef it here; this will only cause
- * problems if we try to write to a static variable, which I don't
- * think this code needs to do.
- */
- #ifdef emacs
- # undef static
- #endif
- #if defined (STDC_HEADERS) || (!defined (isascii) && !defined (HAS_ISASCII))
- # define IN_CTYPE_DOMAIN(c) 1
- #else
- # define IN_CTYPE_DOMAIN(c) isascii(c)
- #endif
- #define ISSPACE(c) (IN_CTYPE_DOMAIN (c) && isspace (c))
- #define ISALPHA(c) (IN_CTYPE_DOMAIN (c) && isalpha (c))
- #define ISUPPER(c) (IN_CTYPE_DOMAIN (c) && isupper (c))
- #define ISDIGIT_LOCALE(c) (IN_CTYPE_DOMAIN (c) && isdigit (c))
- /* ISDIGIT differs from ISDIGIT_LOCALE, as follows:
- - Its arg may be any int or unsigned int; it need not be an unsigned char.
- - It's guaranteed to evaluate its argument exactly once.
- - It's typically faster.
- Posix 1003.2-1992 section 2.5.2.1 page 50 lines 1556-1558 says that
- only '0' through '9' are digits. Prefer ISDIGIT to ISDIGIT_LOCALE unless
- it's important to use the locale's definition of `digit' even when the
- host does not conform to Posix. */
- #define ISDIGIT(c) ((unsigned) (c) - '0' <= 9)
- #include "getdate.h"
- #include "offtime.h" /* For TM_YEAR_ORIGIN */
- #include "timestamp.h" /* For diff_tm */
- /* Some old versions of bison generate parsers that use bcopy.
- That loses on systems that don't provide the function, so we have
- to redefine it here. */
- #if !defined (HAS_BCOPY) && defined (HAS_MEMCPY) && !defined (bcopy)
- # define bcopy(from, to, len) memcpy ((to), (from), (len))
- #endif
- /*
- * Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
- * as well as gratuitiously global symbol names, so we can have multiple
- * yacc generated parsers in the same program. Note that these are only
- * the variables produced by yacc. If other parser generators (bison,
- * byacc, etc) produce additional global names that conflict at link time,
- * then those parser generators need to be fixed instead of adding those
- * names to this list.
- */
- #define yymaxdepth gd_maxdepth
- #define yyparse gd_parse
- #define yylex gd_lex
- #define yyerror gd_error
- #define yylval gd_lval
- #define yychar gd_char
- #define yydebug gd_debug
- #define yypact gd_pact
- #define yyr1 gd_r1
- #define yyr2 gd_r2
- #define yydef gd_def
- #define yychk gd_chk
- #define yypgo gd_pgo
- #define yyact gd_act
- #define yyexca gd_exca
- #define yyerrflag gd_errflag
- #define yynerrs gd_nerrs
- #define yyps gd_ps
- #define yypv gd_pv
- #define yys gd_s
- #define yy_yys gd_yys
- #define yystate gd_state
- #define yytmp gd_tmp
- #define yyv gd_v
- #define yy_yyv gd_yyv
- #define yyval gd_val
- #define yylloc gd_lloc
- #define yyreds gd_reds /* With YYDEBUG defined */
- #define yytoks gd_toks /* With YYDEBUG defined */
- #define yylhs gd_yylhs
- #define yylen gd_yylen
- #define yydefred gd_yydefred
- #define yydgoto gd_yydgoto
- #define yysindex gd_yysindex
- #define yyrindex gd_yyrindex
- #define yygindex gd_yygindex
- #define yytable gd_yytable
- #define yycheck gd_yycheck
- static int yylex (void);
- static int yyerror (const char *s);
- extern int yyparse (void);
- #define EPOCH 1970
- #define HOUR(x) ((x) * 60)
- #define MAX_BUFF_LEN 128 /* size of buffer to read the date into */
- /*
- ** An entry in the lexical lookup table.
- */
- typedef struct _TABLE {
- const char *name;
- int type;
- int value;
- } TABLE;
- /*
- ** Meridian: am, pm, or 24-hour style.
- */
- typedef enum _MERIDIAN {
- MERam, MERpm, MER24
- } MERIDIAN;
- /*
- ** Global variables. We could get rid of most of these by using a good
- ** union as the yacc stack. (This routine was originally written before
- ** yacc had the %union construct.) Maybe someday; right now we only use
- ** the %union very rarely.
- */
- static const unsigned char *yyInput;
- static int yyDayOrdinal;
- static int yyDayNumber;
- static int yyHaveDate;
- static int yyHaveDay;
- static int yyHaveRel;
- static int yyHaveTime;
- static int yyHaveZone;
- static int yyTimezone;
- static int yyDay;
- static int yyHour;
- static int yyMinutes;
- static int yyMonth;
- static int yySeconds;
- static int yyYear;
- static MERIDIAN yyMeridian;
- static int yyRelDay;
- static int yyRelHour;
- static int yyRelMinutes;
- static int yyRelMonth;
- static int yyRelSeconds;
- static int yyRelYear;
- %}
- %union {
- int Number;
- enum _MERIDIAN Meridian;
- }
- %token tAGO tDAY tDAY_UNIT tDAYZONE tDST tHOUR_UNIT tID
- %token tMERIDIAN tMINUTE_UNIT tMONTH tMONTH_UNIT
- %token tSEC_UNIT tSNUMBER tUNUMBER tYEAR_UNIT tZONE
- %token tNUMBER_T tNUMBER_DOT
- %type <Number> tDAY tDAY_UNIT tDAYZONE tHOUR_UNIT tMINUTE_UNIT
- %type <Number> tMONTH tMONTH_UNIT
- %type <Number> tSEC_UNIT tSNUMBER tUNUMBER tYEAR_UNIT tZONE
- %type <Meridian> tMERIDIAN o_merid
- %type <Number> tNUMBER_T tNUMBER_DOT
- %%
- spec : /* NULL */
- | spec item
- ;
- item : time {
- yyHaveTime++;
- }
- | zone {
- yyHaveZone++;
- }
- | date {
- yyHaveDate++;
- }
- | day {
- yyHaveDay++;
- }
- | rel {
- yyHaveRel++;
- }
- | number
- ;
- time : tUNUMBER tMERIDIAN {
- yyHour = $1;
- yyMinutes = 0;
- yySeconds = 0;
- yyMeridian = $2;
- }
- | tUNUMBER ':' tUNUMBER o_merid {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = 0;
- yyMeridian = $4;
- }
- | tUNUMBER ':' tUNUMBER tSNUMBER {
- yyHour = $1;
- yyMinutes = $3;
- yyMeridian = MER24;
- yyHaveZone++;
- yyTimezone = ($4 < 0
- ? -$4 % 100 + (-$4 / 100) * 60
- : - ($4 % 100 + ($4 / 100) * 60));
- }
- | tUNUMBER ':' tUNUMBER ':' tUNUMBER o_merid {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = $5;
- yyMeridian = $6;
- }
- | tUNUMBER ':' tUNUMBER ':' tUNUMBER isozone {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = $5;
- yyHaveZone++;
- }
- | tUNUMBER ':' tUNUMBER ':' tNUMBER_DOT tUNUMBER {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = $5;
- /* We ignore the fractional seconds -- RAM */
- }
- | tUNUMBER ':' tUNUMBER ':' tNUMBER_DOT tUNUMBER isozone {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = $5;
- /* We ignore the fractional seconds -- RAM */
- yyHaveZone++;
- }
- | tUNUMBER ':' tUNUMBER ':' tUNUMBER tSNUMBER {
- yyHour = $1;
- yyMinutes = $3;
- yySeconds = $5;
- yyMeridian = MER24;
- yyHaveZone++;
- yyTimezone = ($6 < 0
- ? -$6 % 100 + (-$6 / 100) * 60
- : - ($6 % 100 + ($6 / 100) * 60));
- }
- ;
- zone : tZONE {
- yyTimezone = $1;
- }
- | tDAYZONE {
- yyTimezone = $1 - 60;
- }
- |
- tZONE tDST {
- yyTimezone = $1 - 60;
- }
- ;
- isozone : tSNUMBER ':' tUNUMBER {
- /* ISO 8601 format. +02:00 -- RAM */
- yyTimezone = $1 < 0
- ? -$1 * 60 + $3
- : -($1 * 60 + $3);
- }
- ;
- day : tDAY {
- yyDayOrdinal = 1;
- yyDayNumber = $1;
- }
- | tDAY ',' {
- yyDayOrdinal = 1;
- yyDayNumber = $1;
- }
- | tUNUMBER tDAY {
- yyDayOrdinal = $1;
- yyDayNumber = $2;
- }
- ;
- date : tUNUMBER '/' tUNUMBER {
- yyMonth = $1;
- yyDay = $3;
- }
- | tUNUMBER '/' tUNUMBER '/' tUNUMBER {
- /* Interpret as YYYY/MM/DD if $1 >= 1000, otherwise as DD/MM/YYYY.
- The goal in recognizing YYYY/MM/DD is solely to support legacy
- machine-generated dates like those in an RCS log listing. If
- you want portability, use the ISO 8601 format. */
- if ($1 >= 1000)
- {
- yyYear = $1;
- yyMonth = $3;
- yyDay = $5;
- }
- else
- {
- yyDay = $1;
- yyMonth = $3;
- yyYear = $5;
- }
- }
- | tUNUMBER tSNUMBER tSNUMBER {
- /* ISO 8601 format. yyyy-mm-dd. */
- yyYear = $1;
- yyMonth = -$2;
- yyDay = -$3;
- }
- | tUNUMBER tSNUMBER tNUMBER_T {
- /* ISO 8601 format. yyyy-mm-ddT -- RAM */
- yyYear = $1;
- yyMonth = -$2;
- yyDay = $3;
- }
- | tUNUMBER tMONTH tSNUMBER {
- /* e.g. 17-JUN-1992. */
- yyDay = $1;
- yyMonth = $2;
- yyYear = -$3;
- }
- | tMONTH tUNUMBER {
- yyMonth = $1;
- yyDay = $2;
- }
- | tMONTH tUNUMBER ',' tUNUMBER {
- yyMonth = $1;
- yyDay = $2;
- yyYear = $4;
- }
- | tUNUMBER tMONTH {
- yyMonth = $2;
- yyDay = $1;
- }
- | tUNUMBER tMONTH tUNUMBER {
- yyMonth = $2;
- yyDay = $1;
- yyYear = $3;
- }
- ;
- rel : relunit tAGO {
- yyRelSeconds = -yyRelSeconds;
- yyRelMinutes = -yyRelMinutes;
- yyRelHour = -yyRelHour;
- yyRelDay = -yyRelDay;
- yyRelMonth = -yyRelMonth;
- yyRelYear = -yyRelYear;
- }
- | relunit
- ;
- relunit : tUNUMBER tYEAR_UNIT {
- yyRelYear += $1 * $2;
- }
- | tSNUMBER tYEAR_UNIT {
- yyRelYear += $1 * $2;
- }
- | tYEAR_UNIT {
- yyRelYear++;
- }
- | tUNUMBER tMONTH_UNIT {
- yyRelMonth += $1 * $2;
- }
- | tSNUMBER tMONTH_UNIT {
- yyRelMonth += $1 * $2;
- }
- | tMONTH_UNIT {
- yyRelMonth++;
- }
- | tUNUMBER tDAY_UNIT {
- yyRelDay += $1 * $2;
- }
- | tSNUMBER tDAY_UNIT {
- yyRelDay += $1 * $2;
- }
- | tDAY_UNIT {
- yyRelDay++;
- }
- | tUNUMBER tHOUR_UNIT {
- yyRelHour += $1 * $2;
- }
- | tSNUMBER tHOUR_UNIT {
- yyRelHour += $1 * $2;
- }
- | tHOUR_UNIT {
- yyRelHour++;
- }
- | tUNUMBER tMINUTE_UNIT {
- yyRelMinutes += $1 * $2;
- }
- | tSNUMBER tMINUTE_UNIT {
- yyRelMinutes += $1 * $2;
- }
- | tMINUTE_UNIT {
- yyRelMinutes++;
- }
- | tUNUMBER tSEC_UNIT {
- yyRelSeconds += $1 * $2;
- }
- | tSNUMBER tSEC_UNIT {
- yyRelSeconds += $1 * $2;
- }
- | tSEC_UNIT {
- yyRelSeconds++;
- }
- ;
- number : tUNUMBER
- {
- if (yyHaveTime && yyHaveDate && !yyHaveRel)
- yyYear = $1;
- else
- {
- if ($1>10000)
- {
- yyHaveDate++;
- yyDay= ($1)%100;
- yyMonth= ($1/100)%100;
- yyYear = $1/10000;
- }
- else
- {
- yyHaveTime++;
- if ($1 < 100)
- {
- yyHour = $1;
- yyMinutes = 0;
- }
- else
- {
- yyHour = $1 / 100;
- yyMinutes = $1 % 100;
- }
- yySeconds = 0;
- yyMeridian = MER24;
- }
- }
- }
- ;
- o_merid : /* NULL */
- {
- $$ = MER24;
- }
- | tMERIDIAN
- {
- $$ = $1;
- }
- ;
- %%
- /* Month and day table. */
- static TABLE const MonthDayTable[] = {
- { "january", tMONTH, 1 },
- { "february", tMONTH, 2 },
- { "march", tMONTH, 3 },
- { "april", tMONTH, 4 },
- { "may", tMONTH, 5 },
- { "june", tMONTH, 6 },
- { "july", tMONTH, 7 },
- { "august", tMONTH, 8 },
- { "september", tMONTH, 9 },
- { "sept", tMONTH, 9 },
- { "october", tMONTH, 10 },
- { "november", tMONTH, 11 },
- { "december", tMONTH, 12 },
- { "sunday", tDAY, 0 },
- { "monday", tDAY, 1 },
- { "tuesday", tDAY, 2 },
- { "tues", tDAY, 2 },
- { "wednesday", tDAY, 3 },
- { "wednes", tDAY, 3 },
- { "thursday", tDAY, 4 },
- { "thur", tDAY, 4 },
- { "thurs", tDAY, 4 },
- { "friday", tDAY, 5 },
- { "saturday", tDAY, 6 },
- { NULL, 0, 0 }
- };
- /* Time units table. */
- static TABLE const UnitsTable[] = {
- { "year", tYEAR_UNIT, 1 },
- { "month", tMONTH_UNIT, 1 },
- { "fortnight", tDAY_UNIT, 14 },
- { "week", tDAY_UNIT, 7 },
- { "day", tDAY_UNIT, 1 },
- { "hour", tHOUR_UNIT, 1 },
- { "minute", tMINUTE_UNIT, 1 },
- { "min", tMINUTE_UNIT, 1 },
- { "second", tSEC_UNIT, 1 },
- { "sec", tSEC_UNIT, 1 },
- { NULL, 0, 0 }
- };
- /* Assorted relative-time words. */
- static TABLE const OtherTable[] = {
- { "tomorrow", tMINUTE_UNIT, 1 * 24 * 60 },
- { "yesterday", tMINUTE_UNIT, -1 * 24 * 60 },
- { "today", tMINUTE_UNIT, 0 },
- { "now", tMINUTE_UNIT, 0 },
- { "last", tUNUMBER, -1 },
- { "this", tMINUTE_UNIT, 0 },
- { "next", tUNUMBER, 2 },
- { "first", tUNUMBER, 1 },
- /* { "second", tUNUMBER, 2 }, */
- { "third", tUNUMBER, 3 },
- { "fourth", tUNUMBER, 4 },
- { "fifth", tUNUMBER, 5 },
- { "sixth", tUNUMBER, 6 },
- { "seventh", tUNUMBER, 7 },
- { "eighth", tUNUMBER, 8 },
- { "ninth", tUNUMBER, 9 },
- { "tenth", tUNUMBER, 10 },
- { "eleventh", tUNUMBER, 11 },
- { "twelfth", tUNUMBER, 12 },
- { "ago", tAGO, 1 },
- { NULL, 0, 0 }
- };
- /* The timezone table. */
- static TABLE const TimezoneTable[] = {
- { "gmt", tZONE, HOUR ( 0) }, /* Greenwich Mean */
- { "ut", tZONE, HOUR ( 0) }, /* Universal (Coordinated) */
- { "utc", tZONE, HOUR ( 0) },
- { "wet", tZONE, HOUR ( 0) }, /* Western European */
- { "bst", tDAYZONE, HOUR ( 0) }, /* British Summer */
- { "wat", tZONE, HOUR ( 1) }, /* West Africa */
- { "at", tZONE, HOUR ( 2) }, /* Azores */
- #if 0
- /* For completeness. BST is also British Summer, and GST is
- * also Guam Standard. */
- { "bst", tZONE, HOUR ( 3) }, /* Brazil Standard */
- { "gst", tZONE, HOUR ( 3) }, /* Greenland Standard */
- #endif
- #if 0
- { "nft", tZONE, HOUR (3.5) }, /* Newfoundland */
- { "nst", tZONE, HOUR (3.5) }, /* Newfoundland Standard */
- { "ndt", tDAYZONE, HOUR (3.5) }, /* Newfoundland Daylight */
- #endif
- { "ast", tZONE, HOUR ( 4) }, /* Atlantic Standard */
- { "adt", tDAYZONE, HOUR ( 4) }, /* Atlantic Daylight */
- { "est", tZONE, HOUR ( 5) }, /* Eastern Standard */
- { "edt", tDAYZONE, HOUR ( 5) }, /* Eastern Daylight */
- { "cst", tZONE, HOUR ( 6) }, /* Central Standard */
- { "cdt", tDAYZONE, HOUR ( 6) }, /* Central Daylight */
- { "mst", tZONE, HOUR ( 7) }, /* Mountain Standard */
- { "mdt", tDAYZONE, HOUR ( 7) }, /* Mountain Daylight */
- { "pst", tZONE, HOUR ( 8) }, /* Pacific Standard */
- { "pdt", tDAYZONE, HOUR ( 8) }, /* Pacific Daylight */
- { "yst", tZONE, HOUR ( 9) }, /* Yukon Standard */
- { "ydt", tDAYZONE, HOUR ( 9) }, /* Yukon Daylight */
- { "hst", tZONE, HOUR (10) }, /* Hawaii Standard */
- { "hdt", tDAYZONE, HOUR (10) }, /* Hawaii Daylight */
- { "cat", tZONE, HOUR (10) }, /* Central Alaska */
- { "ahst", tZONE, HOUR (10) }, /* Alaska-Hawaii Standard */
- { "nt", tZONE, HOUR (11) }, /* Nome */
- { "idlw", tZONE, HOUR (12) }, /* International Date Line West */
- { "cet", tZONE, -HOUR (1) }, /* Central European */
- { "met", tZONE, -HOUR (1) }, /* Middle European */
- { "mewt", tZONE, -HOUR (1) }, /* Middle European Winter */
- { "mest", tDAYZONE, -HOUR (1) }, /* Middle European Summer */
- { "mesz", tDAYZONE, -HOUR (1) }, /* Middle European Summer */
- { "swt", tZONE, -HOUR (1) }, /* Swedish Winter */
- { "sst", tDAYZONE, -HOUR (1) }, /* Swedish Summer */
- { "fwt", tZONE, -HOUR (1) }, /* French Winter */
- { "fst", tDAYZONE, -HOUR (1) }, /* French Summer */
- { "eet", tZONE, -HOUR (2) }, /* Eastern Europe, USSR Zone 1 */
- { "bt", tZONE, -HOUR (3) }, /* Baghdad, USSR Zone 2 */
- #if 0
- { "it", tZONE, -HOUR (3.5) },/* Iran */
- #endif
- { "zp4", tZONE, -HOUR (4) }, /* USSR Zone 3 */
- { "zp5", tZONE, -HOUR (5) }, /* USSR Zone 4 */
- #if 0
- { "ist", tZONE, -HOUR (5.5) },/* Indian Standard */
- #endif
- { "zp6", tZONE, -HOUR (6) }, /* USSR Zone 5 */
- #if 0
- /* For completeness. NST is also Newfoundland Standard, and SST is
- * also Swedish Summer. */
- { "nst", tZONE, -HOUR (6.5) },/* North Sumatra */
- { "sst", tZONE, -HOUR (7) }, /* South Sumatra, USSR Zone 6 */
- #endif /* 0 */
- { "wast", tZONE, -HOUR (7) }, /* West Australian Standard */
- { "wadt", tDAYZONE, -HOUR (7) }, /* West Australian Daylight */
- #if 0
- { "jt", tZONE, -HOUR (7.5) },/* Java (3pm in Cronusland!) */
- #endif
- { "cct", tZONE, -HOUR (8) }, /* China Coast, USSR Zone 7 */
- { "jst", tZONE, -HOUR (9) }, /* Japan Standard, USSR Zone 8 */
- #if 0
- { "cast", tZONE, -HOUR (9.5) },/* Central Australian Standard */
- { "cadt", tDAYZONE, -HOUR (9.5) },/* Central Australian Daylight */
- #endif
- { "east", tZONE, -HOUR (10) }, /* Eastern Australian Standard */
- { "eadt", tDAYZONE, -HOUR (10) }, /* Eastern Australian Daylight */
- { "gst", tZONE, -HOUR (10) }, /* Guam Standard, USSR Zone 9 */
- { "nzt", tZONE, -HOUR (12) }, /* New Zealand */
- { "nzst", tZONE, -HOUR (12) }, /* New Zealand Standard */
- { "nzdt", tDAYZONE, -HOUR (12) }, /* New Zealand Daylight */
- { "idle", tZONE, -HOUR (12) }, /* International Date Line East */
- { NULL, 0, 0 }
- };
- /* Military timezone table. */
- static TABLE const MilitaryTable[] = {
- { "a", tZONE, HOUR ( 1) },
- { "b", tZONE, HOUR ( 2) },
- { "c", tZONE, HOUR ( 3) },
- { "d", tZONE, HOUR ( 4) },
- { "e", tZONE, HOUR ( 5) },
- { "f", tZONE, HOUR ( 6) },
- { "g", tZONE, HOUR ( 7) },
- { "h", tZONE, HOUR ( 8) },
- { "i", tZONE, HOUR ( 9) },
- { "k", tZONE, HOUR ( 10) },
- { "l", tZONE, HOUR ( 11) },
- { "m", tZONE, HOUR ( 12) },
- { "n", tZONE, HOUR (- 1) },
- { "o", tZONE, HOUR (- 2) },
- { "p", tZONE, HOUR (- 3) },
- { "q", tZONE, HOUR (- 4) },
- { "r", tZONE, HOUR (- 5) },
- { "s", tZONE, HOUR (- 6) },
- { "t", tZONE, HOUR (- 7) },
- { "u", tZONE, HOUR (- 8) },
- { "v", tZONE, HOUR (- 9) },
- { "w", tZONE, HOUR (-10) },
- { "x", tZONE, HOUR (-11) },
- { "y", tZONE, HOUR (-12) },
- { "z", tZONE, HOUR ( 0) },
- { NULL, 0, 0 }
- };
- /* ARGSUSED */
- static int yyerror(const char *unused_s)
- {
- (void) unused_s;
- return 0;
- }
- static int ToHour(int Hours, MERIDIAN Meridian)
- {
- switch (Meridian) {
- case MER24:
- if (Hours < 0 || Hours > 23)
- return -1;
- return Hours;
- case MERam:
- if (Hours < 1 || Hours > 12)
- return -1;
- if (Hours == 12)
- Hours = 0;
- return Hours;
- case MERpm:
- if (Hours < 1 || Hours > 12)
- return -1;
- if (Hours == 12)
- Hours = 0;
- return Hours + 12;
- default:
- abort();
- }
- /* NOTREACHED */
- }
- static int ToYear(int Year)
- {
- if (Year < 0)
- Year = -Year;
- /* XPG4 suggests that years 00-68 map to 2000-2068, and
- years 69-99 map to 1969-1999. */
- if (Year < 69)
- Year += 2000;
- else if (Year < 100)
- Year += TM_YEAR_ORIGIN;
- return Year;
- }
- static int LookupWord(char *buff)
- {
- register unsigned char *p;
- register unsigned char *q;
- register const TABLE *tp;
- int i;
- int abbrev;
- /* Make it lowercase. */
- for (p = (unsigned char *) buff; *p; p++)
- if (ISUPPER(*p))
- *p += 32;
- if (strcmp(buff, "am") == 0 || strcmp(buff, "a.m.") == 0) {
- yylval.Meridian = MERam;
- return tMERIDIAN;
- }
- if (strcmp(buff, "pm") == 0 || strcmp(buff, "p.m.") == 0) {
- yylval.Meridian = MERpm;
- return tMERIDIAN;
- }
- /* See if we have an abbreviation for a month. */
- if (strlen(buff) == 3)
- abbrev = 1;
- else if (strlen(buff) == 4 && buff[3] == '.') {
- abbrev = 1;
- buff[3] = '\0';
- } else
- abbrev = 0;
- for (tp = MonthDayTable; tp->name; tp++) {
- if (abbrev) {
- if (strncmp(buff, tp->name, 3) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- } else if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- }
- for (tp = TimezoneTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- if (strcmp(buff, "dst") == 0)
- return tDST;
- for (tp = UnitsTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- /* Strip off any plural and try the units table again. */
- i = strlen(buff) - 1;
- if (buff[i] == 's') {
- buff[i] = '\0';
- for (tp = UnitsTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- buff[i] = 's'; /* Put back for "this" in OtherTable. */
- }
- for (tp = OtherTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- /* Military timezones. */
- if (buff[1] == '\0' && ISALPHA((unsigned char) *buff)) {
- for (tp = MilitaryTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- }
- /* Drop out any periods and try the timezone table again. */
- for (i = 0, p = q = (unsigned char *) buff; *q; q++)
- if (*q != '.')
- *p++ = *q;
- else
- i++;
- *p = '\0';
- if (i)
- for (tp = TimezoneTable; tp->name; tp++)
- if (strcmp(buff, tp->name) == 0) {
- yylval.Number = tp->value;
- return tp->type;
- }
- return tID;
- }
- static int yylex(void)
- {
- register unsigned char c;
- register unsigned char *p;
- unsigned char buff[20];
- int Count;
- int sign;
- for (;;) {
- while (ISSPACE(*yyInput))
- yyInput++;
- if (ISDIGIT(c = *yyInput) || c == '-' || c == '+') {
- if (c == '-' || c == '+') {
- sign = c == '-' ? -1 : 1;
- if (!ISDIGIT(*++yyInput))
- /* skip the '-' sign */
- continue;
- } else
- sign = 0;
- for (yylval.Number = 0; ISDIGIT(c = *yyInput++);)
- yylval.Number = 10 * yylval.Number + c - '0';
- yyInput--;
- /*
- * If we detect digit 'T', then it's a new ISO time.
- * Return tNUMBER_T to indicate a number followed by 'T'.
- *
- * If we detect digit '.', then it's a fractional second
- * in the ISO specs, and we return tNUMBER_DOT
- *
- * --RAM, 20/05/2002
- */
- c = *yyInput++;
- if (c == 'T')
- return tNUMBER_T;
- else if (c == '.')
- return tNUMBER_DOT;
- else
- yyInput--;
- if (sign < 0)
- yylval.Number = -yylval.Number;
- return sign ? tSNUMBER : tUNUMBER;
- }
- if (ISALPHA(c)) {
- for (p = buff; (c = *yyInput++, ISALPHA(c)) || c == '.';)
- if (p < &buff[sizeof buff - 1])
- *p++ = c;
- *p = '\0';
- yyInput--;
- return LookupWord((char *) buff);
- }
- if (c != '(')
- return *yyInput++;
- Count = 0;
- do {
- c = *yyInput++;
- if (c == '\0')
- return c;
- if (c == '(')
- Count++;
- else if (c == ')')
- Count--;
- }
- while (Count > 0);
- }
- }
- /*
- * date2time
- *
- * Convert date string into time_t.
- *
- * NB: was originally called getdate(), but it conflicted with a library
- * routine on Solaris.
- */
- time_t date2time(const char *p, time_t now)
- {
- struct tm tm, tm0, *tmp;
- time_t Start;
- yyInput = (const unsigned char *) p;
- tmp = localtime(&now);
- yyYear = tmp->tm_year + TM_YEAR_ORIGIN;
- yyMonth = tmp->tm_mon + 1;
- yyDay = tmp->tm_mday;
- yyHour = tmp->tm_hour;
- yyMinutes = tmp->tm_min;
- yySeconds = tmp->tm_sec;
- yyMeridian = MER24;
- yyRelSeconds = 0;
- yyRelMinutes = 0;
- yyRelHour = 0;
- yyRelDay = 0;
- yyRelMonth = 0;
- yyRelYear = 0;
- yyHaveDate = 0;
- yyHaveDay = 0;
- yyHaveRel = 0;
- yyHaveTime = 0;
- yyHaveZone = 0;
- if (yyparse()
- || yyHaveTime > 1 || yyHaveZone > 1 || yyHaveDate > 1
- || yyHaveDay > 1)
- return -1;
- tm.tm_year = ToYear(yyYear) - TM_YEAR_ORIGIN + yyRelYear;
- tm.tm_mon = yyMonth - 1 + yyRelMonth;
- tm.tm_mday = yyDay + yyRelDay;
- if (yyHaveTime || (yyHaveRel && !yyHaveDate && !yyHaveDay)) {
- tm.tm_hour = ToHour(yyHour, yyMeridian);
- if (tm.tm_hour < 0)
- return -1;
- tm.tm_min = yyMinutes;
- tm.tm_sec = yySeconds;
- } else {
- tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
- }
- tm.tm_hour += yyRelHour;
- tm.tm_min += yyRelMinutes;
- tm.tm_sec += yyRelSeconds;
- tm.tm_isdst = -1;
- tm0 = tm;
- Start = mktime(&tm);
- if (Start == (time_t) - 1) {
- /*
- * Guard against falsely reporting errors near the time_t boundaries
- * when parsing times in other time zones. For example, if the min
- * time_t value is 1970-01-01 00:00:00 UTC and we are 8 hours ahead
- * of UTC, then the min localtime value is 1970-01-01 08:00:00; if
- * we apply mktime to 1970-01-01 00:00:00 we will get an error, so
- * we apply mktime to 1970-01-02 08:00:00 instead and adjust the time
- * zone by 24 hours to compensate. This algorithm assumes that
- * there is no DST transition within a day of the time_t boundaries.
- */
- if (yyHaveZone) {
- tm = tm0;
- if (tm.tm_year <= EPOCH - TM_YEAR_ORIGIN) {
- tm.tm_mday++;
- yyTimezone -= 24 * 60;
- } else {
- tm.tm_mday--;
- yyTimezone += 24 * 60;
- }
- Start = mktime(&tm);
- }
- if (Start == (time_t) - 1)
- return Start;
- }
- if (yyHaveDay && !yyHaveDate) {
- tm.tm_mday += ((yyDayNumber - tm.tm_wday + 7) % 7
- + 7 * (yyDayOrdinal - (0 < yyDayOrdinal)));
- Start = mktime(&tm);
- if (Start == (time_t) - 1)
- return Start;
- }
- if (yyHaveZone) {
- long delta = yyTimezone * 60L + diff_tm(&tm, gmtime(&Start));
- if ((Start + delta < Start) != (delta < 0))
- return -1; /* time_t overflow */
- Start += delta;
- }
- return Start;
- }
- #if defined (TEST)
- /* ARGSUSED */
- int main(int ac, char *av[])
- {
- char buff[MAX_BUFF_LEN + 1];
- time_t d;
- (void) printf("Enter date, or blank line to exit.\n\t> ");
- (void) fflush(stdout);
- buff[MAX_BUFF_LEN] = 0;
- while (fgets(buff, MAX_BUFF_LEN, stdin) && buff[0]) {
- time_t now;
- d = date2time(buff, time(NULL));
- if (d == -1)
- (void) printf("Bad format - couldn't convert.\n");
- else
- (void) printf("%d - %s", (int) d, ctime(&d));
- (void) printf("\t> ");
- (void) fflush(stdout);
- }
- exit(0);
- /* NOTREACHED */
- }
- #endif /* defined (TEST) */