/* * WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING * * Openvision retains the copyright to derivative works of * this source code. Do *NOT* create a derivative of this * source code before consulting with your legal department. * Do *NOT* integrate *ANY* of this source code into another * product before consulting with your legal department. * * For further information, read the top-level Openvision * copyright which is contained in the top-level MIT Kerberos * copyright. * * WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING * */ %{ /* * Copyright 2004 Sun Microsystems, Inc. All rights reserved. * Use is subject to license terms. */ #pragma ident "%Z%%M% %I% %E% SMI" /* * Originally written by Steven M. Bellovin while * at the University of North Carolina at Chapel Hill. Later tweaked by * a couple of people on Usenet. Completely overhauled by Rich $alz * and Jim Berets in August, 1990; * send any email to Rich. * * This grammar has nine shift/reduce conflicts. * * This code is in the public domain and has no copyright. */ /* SUPPRESS 287 on yaccpar_sccsid */ /* Unusd static variable */ /* SUPPRESS 288 on yyerrlab */ /* Label unused */ #ifdef HAVE_CONFIG_H #if defined(emacs) || defined(CONFIG_BROKETS) #include #else #include "config.h" #endif #endif #include /* * 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 /* * The following block of alloca-related preprocessor directives is here * solely to allow compilation by non GNU-C compilers of the C parser * produced from this file by old versions of bison. Newer versions of * bison include a block similar to this one in bison.simple. */ #ifdef __GNUC__ #undef alloca #define alloca __builtin_alloca #else #ifdef HAVE_ALLOCA_H #include #else #ifdef _AIX /* for Bison */ #pragma alloca #else void *alloca(); #endif #endif #endif #include #include /* * The code at the top of get_date which figures out the offset of the * current time zone checks various CPP symbols to see if special * tricks are need, but defaults to using the gettimeofday system call. * Include if that will be used. */ #if defined(vms) #include #include #else #include #ifdef TIME_WITH_SYS_TIME #include #include #else #ifdef HAVE_SYS_TIME_H #include #else #include #endif #endif #ifdef timezone #undef timezone /* needed for sgi */ #endif /* * We use the obsolete `struct my_timeb' as part of our interface! * Since the system doesn't have it, we define it here; * our callers must do likewise. */ struct my_timeb { time_t time; /* Seconds since the epoch */ unsigned short millitm; /* Field not used */ short timezone; /* Minutes west of GMT */ short dstflag; /* Field not used */ }; #endif /* defined(vms) */ #if defined(STDC_HEADERS) || defined(USG) #include #endif /* * 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(HAVE_BCOPY) && defined(HAVE_MEMCPY) && !defined(bcopy) #define bcopy(from, to, len) memcpy((to), (from), (len)) #endif /* * The following is a hack so that it is easy to internationalize * statically declared strings. We define a wrapper function here that * will be a replacement for gettext. We the make gettext a macro that * just returns its argument, which now can be used with statically defined * strings. The conquence of this is that GETTEXT must be used to translate * a string at runtime and gettext must be used around string literals so * that xgettext command can extract them to a portable object database file. * * Thus to translate a string literal that is an argument to a function foo * the following will have to be performed: * * foo(GETTEXT(gettext("This is a test"))); * * The inner gettext call is for xgettext command to extract the string. * The C preprossesor will reduce the above to: * * foo(GETTEXT(("This ia a test")); */ #include static char * GETTEXT(const char *msgid) { return (gettext(msgid)); } #define gettext(s) (s) extern struct tm *gmtime(); extern struct tm *localtime(); #define yyparse getdate_yyparse #define yylex getdate_yylex #define yyerror getdate_yyerror static int yylex(); static int yyerror(); #if !defined(lint) && !defined(SABER) static char RCS[] = "$Header: /afs/athena.mit.edu/astaff/project/krbdev/.cvsroot/src/kadmin/cli/getdate.y,v 1.9 1996/10/18 17:48:04 bjaspan Exp $"; #endif /* !defined(lint) && !defined(SABER) */ #define EPOCH 1970 #define EPOCH_END 2099 /* Solaris 64 bit can support this at this point */ #define HOUR(x) ((time_t)(x) * 60) #define SECSPERDAY (24L * 60L * 60L) /* * An entry in the lexical lookup table. */ typedef struct _TABLE { char *name; int type; time_t value; } TABLE; /* * Daylight-savings mode: on, off, or not yet known. */ typedef enum _DSTMODE { DSTon, DSToff, DSTmaybe } DSTMODE; /* * 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 char *yyInput; static DSTMODE yyDSTmode; static time_t yyDayOrdinal; static time_t yyDayNumber; static int yyHaveDate; static int yyHaveDay; static int yyHaveRel; static int yyHaveTime; static int yyHaveZone; static time_t yyTimezone; static time_t yyDay; static time_t yyHour; static time_t yyMinutes; static time_t yyMonth; static time_t yySeconds; static time_t yyYear; static MERIDIAN yyMeridian; static time_t yyRelMonth; static time_t yyRelSeconds; %} %union { time_t Number; enum _MERIDIAN Meridian; } %token tAGO tDAY tDAYZONE tID tMERIDIAN tMINUTE_UNIT tMONTH tMONTH_UNIT %token tSEC_UNIT tSNUMBER tUNUMBER tZONE tDST tNEVER %type tDAY tDAYZONE tMINUTE_UNIT tMONTH tMONTH_UNIT %type tSEC_UNIT tSNUMBER tUNUMBER tZONE %type tMERIDIAN o_merid %% spec : /* NULL */ | spec item | tNEVER { yyYear = 1970; yyMonth = 1; yyDay = 1; yyHour = yyMinutes = yySeconds = 0; yyDSTmode = DSToff; yyTimezone = 0; /* gmt */ yyHaveDate++; } ; item : time { yyHaveTime++; } | zone { yyHaveZone++; } | date { yyHaveDate++; } | day { yyHaveDay++; } | rel { yyHaveRel++; } ; 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; yyDSTmode = DSToff; yyTimezone = - ($4 % 100 + ($4 / 100) * 60); } | tUNUMBER ':' tUNUMBER ':' tUNUMBER o_merid { yyHour = $1; yyMinutes = $3; yySeconds = $5; yyMeridian = $6; } | tUNUMBER ':' tUNUMBER ':' tUNUMBER tSNUMBER { yyHour = $1; yyMinutes = $3; yySeconds = $5; yyMeridian = MER24; yyDSTmode = DSToff; yyTimezone = - ($6 % 100 + ($6 / 100) * 60); } ; zone : tZONE { yyTimezone = $1; yyDSTmode = DSToff; } | tDAYZONE { yyTimezone = $1; yyDSTmode = DSTon; } | tZONE tDST { yyTimezone = $1; yyDSTmode = DSTon; } ; 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 { yyMonth = $1; yyDay = $3; yyYear = $5; } | tUNUMBER tSNUMBER tSNUMBER { /* ISO 8601 format. yyyy-mm-dd. */ 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; yyRelMonth = -yyRelMonth; } | relunit ; relunit : tUNUMBER tMINUTE_UNIT { yyRelSeconds += $1 * $2 * 60L; } | tSNUMBER tMINUTE_UNIT { yyRelSeconds += $1 * $2 * 60L; } | tMINUTE_UNIT { yyRelSeconds += $1 * 60L; } | tSNUMBER tSEC_UNIT { yyRelSeconds += $1; } | tUNUMBER tSEC_UNIT { yyRelSeconds += $1; } | tSEC_UNIT { yyRelSeconds++; } | tSNUMBER tMONTH_UNIT { yyRelMonth += $1 * $2; } | tUNUMBER tMONTH_UNIT { yyRelMonth += $1 * $2; } | tMONTH_UNIT { yyRelMonth += $1; } ; o_merid : /* NULL */ { $$ = MER24; } | tMERIDIAN { $$ = $1; } ; %% /* Month and day table. */ static TABLE const MonthDayTable[] = { { gettext("january"), tMONTH, 1 }, { gettext("february"), tMONTH, 2 }, { gettext("march"), tMONTH, 3 }, { gettext("april"), tMONTH, 4 }, { gettext("may"), tMONTH, 5 }, { gettext("june"), tMONTH, 6 }, { gettext("july"), tMONTH, 7 }, { gettext("august"), tMONTH, 8 }, { gettext("september"), tMONTH, 9 }, { gettext("sept"), tMONTH, 9 }, { gettext("october"), tMONTH, 10 }, { gettext("november"), tMONTH, 11 }, { gettext("december"), tMONTH, 12 }, { gettext("sunday"), tDAY, 0 }, { gettext("monday"), tDAY, 1 }, { gettext("tuesday"), tDAY, 2 }, { gettext("tues"), tDAY, 2 }, { gettext("wednesday"), tDAY, 3 }, { gettext("wednes"), tDAY, 3 }, { gettext("thursday"), tDAY, 4 }, { gettext("thur"), tDAY, 4 }, { gettext("thurs"), tDAY, 4 }, { gettext("friday"), tDAY, 5 }, { gettext("saturday"), tDAY, 6 }, { NULL } }; /* Time units table. */ static TABLE const UnitsTable[] = { { gettext("year"), tMONTH_UNIT, 12 }, { gettext("month"), tMONTH_UNIT, 1 }, { gettext("fortnight"), tMINUTE_UNIT, 14 * 24 * 60 }, { gettext("week"), tMINUTE_UNIT, 7 * 24 * 60 }, { gettext("day"), tMINUTE_UNIT, 1 * 24 * 60 }, { gettext("hour"), tMINUTE_UNIT, 60 }, { gettext("minute"), tMINUTE_UNIT, 1 }, { gettext("min"), tMINUTE_UNIT, 1 }, { gettext("second"), tSEC_UNIT, 1 }, { gettext("sec"), tSEC_UNIT, 1 }, { NULL } }; /* Assorted relative-time words. */ static TABLE const OtherTable[] = { { gettext("tomorrow"), tMINUTE_UNIT, 1 * 24 * 60 }, { gettext("yesterday"), tMINUTE_UNIT, -1 * 24 * 60 }, { gettext("today"), tMINUTE_UNIT, 0 }, { gettext("now"), tMINUTE_UNIT, 0 }, { gettext("last"), tUNUMBER, -1 }, { gettext("this"), tMINUTE_UNIT, 0 }, { gettext("next"), tUNUMBER, 2 }, { gettext("first"), tUNUMBER, 1 }, /* { gettext("second"), tUNUMBER, 2 }, */ { gettext("third"), tUNUMBER, 3 }, { gettext("fourth"), tUNUMBER, 4 }, { gettext("fifth"), tUNUMBER, 5 }, { gettext("sixth"), tUNUMBER, 6 }, { gettext("seventh"), tUNUMBER, 7 }, { gettext("eighth"), tUNUMBER, 8 }, { gettext("ninth"), tUNUMBER, 9 }, { gettext("tenth"), tUNUMBER, 10 }, { gettext("eleventh"), tUNUMBER, 11 }, { gettext("twelfth"), tUNUMBER, 12 }, { gettext("ago"), tAGO, 1 }, { gettext("never"), tNEVER, 0 }, { NULL } }; /* The timezone table. */ /* Some of these are commented out because a time_t can't store a float. */ static TABLE const TimezoneTable[] = { { gettext("gmt"), tZONE, HOUR(0) }, /* Greenwich Mean */ { gettext("ut"), tZONE, HOUR(0) }, /* Universal (Coordinated) */ { gettext("utc"), tZONE, HOUR(0) }, { gettext("wet"), tZONE, HOUR(0) }, /* Western European */ { gettext("bst"), tDAYZONE, HOUR(0) }, /* British Summer */ { gettext("wat"), tZONE, HOUR(1) }, /* West Africa */ { gettext("at"), tZONE, HOUR(2) }, /* Azores */ #if 0 /* * For completeness. BST is also British Summer, and GST is * also Guam Standard. */ { gettext("bst"), tZONE, HOUR( 3) }, /* Brazil Standard */ { gettext("gst"), tZONE, HOUR( 3) }, /* Greenland Standard */ #endif #if 0 { gettext("nft"), tZONE, HOUR(3.5) }, /* Newfoundland */ { gettext("nst"), tZONE, HOUR(3.5) }, /* Newfoundland Standard */ { gettext("ndt"), tDAYZONE, HOUR(3.5) }, /* Newfoundland Daylight */ #endif { gettext("ast"), tZONE, HOUR( 4) }, /* Atlantic Standard */ { gettext("adt"), tDAYZONE, HOUR( 4) }, /* Atlantic Daylight */ { gettext("est"), tZONE, HOUR( 5) }, /* Eastern Standard */ { gettext("edt"), tDAYZONE, HOUR( 5) }, /* Eastern Daylight */ { gettext("cst"), tZONE, HOUR( 6) }, /* Central Standard */ { gettext("cdt"), tDAYZONE, HOUR( 6) }, /* Central Daylight */ { gettext("mst"), tZONE, HOUR( 7) }, /* Mountain Standard */ { gettext("mdt"), tDAYZONE, HOUR( 7) }, /* Mountain Daylight */ { gettext("pst"), tZONE, HOUR( 8) }, /* Pacific Standard */ { gettext("pdt"), tDAYZONE, HOUR( 8) }, /* Pacific Daylight */ { gettext("yst"), tZONE, HOUR( 9) }, /* Yukon Standard */ { gettext("ydt"), tDAYZONE, HOUR( 9) }, /* Yukon Daylight */ { gettext("hst"), tZONE, HOUR(10) }, /* Hawaii Standard */ { gettext("hdt"), tDAYZONE, HOUR(10) }, /* Hawaii Daylight */ { gettext("cat"), tZONE, HOUR(10) }, /* Central Alaska */ { gettext("ahst"), tZONE, HOUR(10) }, /* Alaska-Hawaii Standard */ { gettext("nt"), tZONE, HOUR(11) }, /* Nome */ { gettext("idlw"), tZONE, HOUR(12) }, /* International Date Line West */ { gettext("cet"), tZONE, -HOUR(1) }, /* Central European */ { gettext("met"), tZONE, -HOUR(1) }, /* Middle European */ { gettext("mewt"), tZONE, -HOUR(1) }, /* Middle European Winter */ { gettext("mest"), tDAYZONE, -HOUR(1) }, /* Middle European Summer */ { gettext("swt"), tZONE, -HOUR(1) }, /* Swedish Winter */ { gettext("sst"), tDAYZONE, -HOUR(1) }, /* Swedish Summer */ { gettext("fwt"), tZONE, -HOUR(1) }, /* French Winter */ { gettext("fst"), tDAYZONE, -HOUR(1) }, /* French Summer */ { gettext("eet"), tZONE, -HOUR(2) }, /* Eastern Europe, USSR Zone 1 */ { gettext("bt"), tZONE, -HOUR(3) }, /* Baghdad, USSR Zone 2 */ #if 0 { gettext("it"), tZONE, -HOUR(3.5) },/* Iran */ #endif { gettext("zp4"), tZONE, -HOUR(4) }, /* USSR Zone 3 */ { gettext("zp5"), tZONE, -HOUR(5) }, /* USSR Zone 4 */ #if 0 { gettext("ist"), tZONE, -HOUR(5.5) },/* Indian Standard */ #endif { gettext("zp6"), tZONE, -HOUR(6) }, /* USSR Zone 5 */ #if 0 /* * For completeness. NST is also Newfoundland Stanard, and SST is * also Swedish Summer. */ { gettext("nst"), tZONE, -HOUR(6.5) },/* North Sumatra */ { gettext("sst"), tZONE, -HOUR(7) }, /* South Sumatra, USSR Zone 6 */ #endif /* 0 */ { gettext("wast"), tZONE, -HOUR(7) }, /* West Australian Standard */ { gettext("wadt"), tDAYZONE, -HOUR(7) }, /* West Australian Daylight */ #if 0 { gettext("jt"), tZONE, -HOUR(7.5) },/* Java (3pm in Cronusland!) */ #endif { gettext("cct"), tZONE, -HOUR(8) }, /* China Coast, USSR Zone 7 */ { gettext("jst"), tZONE, -HOUR(9) }, /* Japan Standard, USSR Zone 8 */ { gettext("kst"), tZONE, -HOUR(9) }, /* Korean Standard */ #if 0 { gettext("cast"), tZONE, -HOUR(9.5) },/* Central Australian Standard */ { gettext("cadt"), tDAYZONE, -HOUR(9.5) },/* Central Australian Daylight */ #endif { gettext("east"), tZONE, -HOUR(10) }, /* Eastern Australian Standard */ { gettext("eadt"), tDAYZONE, -HOUR(10) }, /* Eastern Australian Daylight */ { gettext("gst"), tZONE, -HOUR(10) }, /* Guam Standard, USSR Zone 9 */ { gettext("kdt"), tZONE, -HOUR(10) }, /* Korean Daylight */ { gettext("nzt"), tZONE, -HOUR(12) }, /* New Zealand */ { gettext("nzst"), tZONE, -HOUR(12) }, /* New Zealand Standard */ { gettext("nzdt"), tDAYZONE, -HOUR(12) }, /* New Zealand Daylight */ { gettext("idle"), tZONE, -HOUR(12) }, /* International Date Line East */ { NULL } }; /* ARGSUSED */ static int yyerror(s) char *s; { return (0); } static time_t ToSeconds(time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian) { if (Minutes < 0 || Minutes > 59 || Seconds < 0 || Seconds > 59) return (-1); switch (Meridian) { case MER24: if (Hours < 0 || Hours > 23) return (-1); return (Hours * 60L + Minutes) * 60L + Seconds; case MERam: if (Hours < 1 || Hours > 12) return (-1); return (Hours * 60L + Minutes) * 60L + Seconds; case MERpm: if (Hours < 1 || Hours > 12) return (-1); return ((Hours + 12) * 60L + Minutes) * 60L + Seconds; default: abort (); } /* NO TREACHED */ } /* * From hh:mm:ss [am|pm] mm/dd/yy [tz], compute and return the number * of seconds since 00:00:00 1/1/70 GMT. */ static time_t Convert(time_t Month, time_t Day, time_t Year, time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian, DSTMODE DSTmode) { static int DaysInMonth[12] = { 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; time_t tod; time_t Julian; int i; if (Year < 0) Year = -Year; if (Year < 1900) Year += 1900; DaysInMonth[1] = Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0) ? 29 : 28; if (Year < EPOCH || Year > EPOCH_END || Month < 1 || Month > 12 /* Lint fluff: " conversion from long may lose accuracy" */ || Day < 1 || Day > DaysInMonth[(int)--Month]) return (-1); for (Julian = Day - 1, i = 0; i < Month; i++) Julian += DaysInMonth[i]; for (i = EPOCH; i < Year; i++) Julian += 365 + ((i % 4 == 0) && ((Year % 100 != 0) || (Year % 400 == 0))); Julian *= SECSPERDAY; Julian += yyTimezone * 60L; if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) return (-1); Julian += tod; if (DSTmode == DSTon || (DSTmode == DSTmaybe && localtime(&Julian)->tm_isdst)) Julian -= 60 * 60; return (Julian); } static time_t DSTcorrect(Start, Future) time_t Start; time_t Future; { time_t StartDay; time_t FutureDay; StartDay = (localtime(&Start)->tm_hour + 1) % 24; FutureDay = (localtime(&Future)->tm_hour + 1) % 24; return (Future - Start) + (StartDay - FutureDay) * 60L * 60L; } static time_t RelativeDate(Start, DayOrdinal, DayNumber) time_t Start; time_t DayOrdinal; time_t DayNumber; { struct tm *tm; time_t now; now = Start; tm = localtime(&now); now += SECSPERDAY * ((DayNumber - tm->tm_wday + 7) % 7); now += 7 * SECSPERDAY * (DayOrdinal <= 0 ? DayOrdinal : DayOrdinal - 1); return (DSTcorrect(Start, now)); } static time_t RelativeMonth(time_t Start, time_t RelMonth) { struct tm *tm; time_t Month; time_t Year; time_t ret; if (RelMonth == 0) return (0); tm = localtime(&Start); Month = 12 * tm->tm_year + tm->tm_mon + RelMonth; Year = Month / 12; Month = Month % 12 + 1; ret = Convert(Month, (time_t)tm->tm_mday, Year, (time_t)tm->tm_hour, (time_t)tm->tm_min, (time_t)tm->tm_sec, MER24, DSTmaybe); if (ret == -1) return ret; return DSTcorrect(Start, ret); } static int LookupWord(char *buff) { register char *p; register char *q; register const TABLE *tp; int i; int abbrev; /* Make it lowercase. */ for (p = buff; *p; p++) if (isupper(*p)) *p = tolower(*p); if (strcmp(buff, gettext("am")) == 0 || strcmp(buff, gettext("a.m.")) == 0) { yylval.Meridian = MERam; return (tMERIDIAN); } if (strcmp(buff, gettext("pm")) == 0 || strcmp(buff, gettext("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, GETTEXT(tp->name), 3) == 0) { yylval.Number = tp->value; return (tp->type); } } else if (strcmp(buff, GETTEXT(tp->name)) == 0) { yylval.Number = tp->value; return (tp->type); } } for (tp = TimezoneTable; tp->name; tp++) if (strcmp(buff, GETTEXT(tp->name)) == 0) { yylval.Number = tp->value; return (tp->type); } if (strcmp(buff, gettext("dst")) == 0) return (tDST); for (tp = UnitsTable; tp->name; tp++) if (strcmp(buff, GETTEXT(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, GETTEXT(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, GETTEXT(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 = buff; *q; q++) if (*q != '.') *p++ = *q; else i++; *p = '\0'; if (i) for (tp = TimezoneTable; tp->name; tp++) if (strcmp(buff, GETTEXT(tp->name)) == 0) { yylval.Number = tp->value; return (tp->type); } return (tID); } static int yylex() { register char c; register char *p; 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 (sign < 0) yylval.Number = -yylval.Number; return (sign ? tSNUMBER : tUNUMBER); } if (isalpha(c)) { for (p = buff; isalpha(c = *yyInput++) || c == '.'; ) if (p < &buff[sizeof buff - 1]) *p++ = c; *p = '\0'; yyInput--; return (LookupWord(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); } } #define TM_YEAR_ORIGIN 1900 /* Yield A - B, measured in seconds. */ static time_t difftm(struct tm *a, struct tm *b) { int ay = a->tm_year + (TM_YEAR_ORIGIN - 1); int by = b->tm_year + (TM_YEAR_ORIGIN - 1); return (((( /* difference in day of year */ a->tm_yday - b->tm_yday /* + intervening leap days */ + ((ay >> 2) - (by >> 2)) - (ay/100 - by/100) + ((ay/100 >> 2) - (by/100 >> 2)) /* + difference in years * 365 */ + (time_t)(ay-by) * 365 )*24 + (a->tm_hour - b->tm_hour) )*60 + (a->tm_min - b->tm_min) )*60 + (a->tm_sec - b->tm_sec)); } time_t get_date(char *p, struct my_timeb *now) { struct tm *tm, gmt; struct my_timeb ftz; time_t Start; time_t tod; time_t delta; yyInput = p; if (now == NULL) { now = &ftz; ftz.time = time((time_t *) 0); if (! (tm = gmtime (&ftz.time))) return (-1); gmt = *tm; /* Make a copy, in case localtime modifies *tm. */ ftz.timezone = difftm (&gmt, localtime (&ftz.time)) / 60; } tm = localtime(&now->time); yyYear = tm->tm_year; yyMonth = tm->tm_mon + 1; yyDay = tm->tm_mday; yyTimezone = now->timezone; /* * Since the logic later depends on the yyTimezone being the difference * between gmt and local time, non daylight savings time, we need to * correct the difference if local time is daylight savings time. */ if ((tm->tm_isdst > 0) && (yyTimezone > 0)) yyTimezone += 60; else if ((tm->tm_isdst > 0) && (yyTimezone < 0)) yyTimezone -= 60; yyDSTmode = DSTmaybe; yyHour = 0; yyMinutes = 0; yySeconds = 0; yyMeridian = MER24; yyRelSeconds = 0; yyRelMonth = 0; yyHaveDate = 0; yyHaveDay = 0; yyHaveRel = 0; yyHaveTime = 0; yyHaveZone = 0; /* * When yyparse returns, zero or more of yyHave{Time,Zone,Date,Day,Rel} * will have been incremented. The value is number of items of * that type that were found; for all but Rel, more than one is * illegal. * * For each yyHave indicator, the following values are set: * * yyHaveTime: * yyHour, yyMinutes, yySeconds: hh:mm:ss specified, initialized * to zeros above * yyMeridian: MERam, MERpm, or MER24 * yyTimeZone: time zone specified in minutes * yyDSTmode: DSToff if yyTimeZone is set, otherwise unchanged * (initialized above to DSTmaybe) * * yyHaveZone: * yyTimezone: as above * yyDSTmode: DSToff if a non-DST zone is specified, otherwise DSTon * XXX don't understand interaction with yyHaveTime zone info * * yyHaveDay: * yyDayNumber: 0-6 for Sunday-Saturday * yyDayOrdinal: val specified with day ("second monday", * Ordinal=2), otherwise 1 * * yyHaveDate: * yyMonth, yyDay, yyYear: mm/dd/yy specified, initialized to * today above * * yyHaveRel: * yyRelSeconds: seconds specified with MINUTE_UNITs ("3 hours") or * SEC_UNITs ("30 seconds") * yyRelMonth: months specified with MONTH_UNITs ("3 months", "1 * year") * * The code following yyparse turns these values into a single * date stamp. */ if (yyparse() || yyHaveTime > 1 || yyHaveZone > 1 || yyHaveDate > 1 || yyHaveDay > 1) return (-1); /* * If an absolute time specified, set Start to the equivalent Unix * timestamp. Otherwise, set Start to now, and if we do not have * a relatime time (ie: only yyHaveZone), decrement Start to the * beginning of today. * * By having yyHaveDay in the "absolute" list, "next Monday" means * midnight next Monday. Otherwise, "next Monday" would mean the * time right now, next Monday. It's not clear to me why the * current behavior is preferred. */ if (yyHaveDate || yyHaveTime || yyHaveDay) { Start = Convert(yyMonth, yyDay, yyYear, yyHour, yyMinutes, yySeconds, yyMeridian, yyDSTmode); if (Start < 0) return (-1); } else { Start = now->time; if (!yyHaveRel) Start -= ((tm->tm_hour * 60L + tm->tm_min) * 60L) + tm->tm_sec; } /* * Add in the relative time specified. RelativeMonth adds in the * months, accounting for the fact that the actual length of "3 * months" depends on where you start counting. * * XXX By having this separate from the previous block, we are * allowing dates like "10:00am 3 months", which means 3 months * from 10:00am today, or even "1/1/99 two days" which means two * days after 1/1/99. * * XXX Shouldn't this only be done if yyHaveRel, just for * thoroughness? */ Start += yyRelSeconds; delta = RelativeMonth(Start, yyRelMonth); if (delta == (time_t) -1) return -1; Start += delta; /* * Now, if you specified a day of week and counter, add it in. By * disallowing Date but allowing Time, you can say "5pm next * monday". * * XXX The yyHaveDay && !yyHaveDate restriction should be enforced * above and be able to cause failure. */ if (yyHaveDay && !yyHaveDate) { tod = RelativeDate(Start, yyDayOrdinal, yyDayNumber); Start += tod; } /* Have to do *something* with a legitimate -1 so it's distinguishable * from the error return value. (Alternately could set errno on error.) */ return (Start == -1 ? 0 : Start); } #if defined(TEST) /* ARGSUSED */ main(int ac, char *av[]) { char buff[128]; time_t d; (void)printf(gettext("Enter date, or blank line to exit.\n\t> ")); (void)fflush(stdout); while (gets(buff) && buff[0]) { d = get_date(buff, (struct my_timeb *)NULL); if (d == -1) (void)printf( gettext("Bad format - couldn't convert.\n")); else (void)printf("%s", ctime(&d)); (void)printf("\t> "); (void)fflush(stdout); } exit(0); /* NOTREA CHED */ } #endif /* defined(TEST) */