-/* dtimep.lex exceeds the default table capacities for some old versions
- * of lex (and the minimum defaults as specified by POSIX). The following
- * choices meet or exceed the lex defaults for older SunOS4.x, Solaris,
- * HPUX, and AIX.
- */
+/*
+** dtimep.lex exceeds the default table capacities for some old versions
+** of lex (and the minimum defaults as specified by POSIX). The following
+** choices meet or exceed the lex defaults for older SunOS4.x, Solaris,
+** HPUX, and AIX.
+*/
%e4000
%p7000
%n2500
%a5000
%{
-#include <h/nmh.h>
+#include <time.h>
+#include <ctype.h>
#include <h/tws.h>
- /* Since we're looking at a string at a time, don't worry about
- * wrapping to the next buffer.
- */
+/*
+** Since we're looking at a string at a time, don't worry about
+** wrapping to the next buffer.
+*/
#define yywrap() 1
#define YY_SKIP_YYWRAP
#define YY_NO_INPUT
- /* This is the tricky thing that makes this function cool. We
- * replace the traditional int yylex(void) declaration with our
- * dparsetime() declaration, essentially piggy-backing off the
- * utility of the yylex() function and adding what we need to make
- * the parsing function useful to us.
- */
+/*
+** This is the tricky thing that makes this function cool. We
+** replace the traditional int yylex(void) declaration with our
+** dparsetime() declaration, essentially piggy-backing off the
+** utility of the yylex() function and adding what we need to make
+** the parsing function useful to us.
+*/
#define YY_DECL struct tws *dparsetime(char *lexstr)
- /* yyerminate() is called after the input string is matched to
- * completion (actually, when the lexer reaches an EOF). The only
- * thing that really needs to be in this macro function is the
- * return call, which must be substituted inline into dparsetime.
- */
+/*
+** yyerminate() is called after the input string is matched to
+** completion (actually, when the lexer reaches an EOF). The only
+** thing that really needs to be in this macro function is the
+** return call, which must be substituted inline into dparsetime.
+*/
#define yyterminate() (void)yy_delete_buffer(lexhandle); \
if(!(tw.tw_flags & TW_SUCC)) { \
return(&tw)
/*
- * Patchable flag that says how to interpret NN/NN/NN dates. When
- * true, we do it European style: DD/MM/YY. When false, we do it
- * American style: MM/DD/YY. Of course, these are all non-RFC822
- * compliant.
- */
+** Patchable flag that says how to interpret NN/NN/NN dates. When
+** true, we do it European style: DD/MM/YY. When false, we do it
+** American style: MM/DD/YY. Of course, these are all non-RFC822
+** compliant.
+*/
int europeandate = 0;
-/*
- * Table to convert month names to numeric month. We use the
- * fact that the low order 5 bits of the sum of the 2nd & 3rd
- * characters of the name is a hash with no collisions for the 12
- * valid month names. (The mask to 5 bits maps any combination of
- * upper and lower case into the same hash value).
- */
-static int month_map[] = {
- 0,
- 6, /* 1 - Jul */
- 3, /* 2 - Apr */
- 5, /* 3 - Jun */
- 0,
- 10, /* 5 - Nov */
- 0,
- 1, /* 7 - Feb */
- 11, /* 8 - Dec */
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0, /*15 - Jan */
- 0,
- 0,
- 0,
- 2, /*19 - Mar */
- 0,
- 8, /*21 - Sep */
- 0,
- 9, /*23 - Oct */
- 0,
- 0,
- 4, /*26 - May */
- 0,
- 7 /*28 - Aug */
+static char *monthnames[] = {
+ "Jan", "Feb", "Mar", "Apr", "May", "Jun",
+ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec",
+ NULL
};
-/*
- * Lookup table for day-of-week using the same hash trick as for above name-of-
- * month table, but using the first and second character, not second and third.
- *
- * Compute index into table using: (day_name[0] & 7) + (day_name[1] & 4)
- */
-static int day_map[] = {
- 0,
- 0,
- 0,
- 6, /* 3 - Sat */
- 4, /* 4 - Thu */
- 0,
- 5, /* 6 - Fri */
- 0, /* 7 - Sun */
- 2, /* 8 - Tue */
- 1 /* 9 - Mon */,
- 0,
- 3 /*11 - Wed */
+static char *daynames[] = {
+ "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", NULL
};
-/* The SET* macros will parse for the appropriate field, and leave the
- * cp pointer at the first character after the desired field. Be
- * careful with variable-length fields or alpha-num mixes.
+static int
+name2num(char *name, char *names[])
+{
+ int i;
+
+ for (i=0; names[i]; i++) {
+ if (strncasecmp(name, names[i], strlen(names[i]))==0) {
+ return i;
+ }
+ }
+ return 0;
+}
- * The SKIP* macros skip over characters of a particular class and
- * leave cp at the position of the first character that doesn't match
- * that class. Correspondingly, SKIPTO* skips until it reaches a
- * character of a particular class.
- */
+/*
+** The SET* macros will parse for the appropriate field, and leave the
+** cp pointer at the first character after the desired field. Be
+** careful with variable-length fields or alpha-num mixes.
+**
+** The SKIP* macros skip over characters of a particular class and
+** leave cp at the position of the first character that doesn't match
+** that class. Correspondingly, SKIPTO* skips until it reaches a
+** character of a particular class.
+*/
#define INIT() { cp = yytext;}
-#define SETWDAY() { tw.tw_wday= day_map[(cp[0] & 7) + (cp[1] & 4)]; \
+#define SETWDAY() { tw.tw_wday = name2num(cp, daynames); \
tw.tw_flags &= ~TW_SDAY; tw.tw_flags |= TW_SEXP; SKIPA(); }
-#define SETMON() { cp++; tw.tw_mon = month_map[(cp[0] + cp[1]) & 0x1f]; \
- SKIPA(); }
+#define SETMON() { tw.tw_mon = name2num(cp, monthnames); SKIPA(); }
#define SETMON_NUM() { tw.tw_mon = atoi(cp)-1; SKIPD(); }
#define SETYEAR() { tw.tw_year = atoi(cp); SKIPD(); }
#define SETDAY() { tw.tw_mday = atoi(cp); tw.tw_flags |= TW_YES; SKIPD(); }
static void
zonehack (struct tws *tw)
{
- register struct tm *tm;
+ struct tm *tm;
if (dmktime (tw) == (time_t) -1)
return;
TIME ({D}:{d}{d}(:{d}{d})?)
/*
- * The year can either be 2 digits, or 4. However, after
- * Y2K, we found that some MUA were reporting the year 100, hence
- * the middle term here. yyterminate() resolves the actual
- * issues with 2-digit years.
- */
+** The year can either be 2 digits, or 4. However, after
+** Y2K, we found that some MUA were reporting the year 100, hence
+** the middle term here. yyterminate() resolves the actual
+** issues with 2-digit years.
+*/
YEAR (({d}{d})|(1{d}{d})|({d}{4}))
%%
%{
- /* This section begins the definition of dparsetime().
- * Put here any local variable definitions and initializations */
-
+ /*
+ ** This section begins the definition of dparsetime().
+ ** Put here any local variable definitions and initializations
+ */
YY_BUFFER_STATE lexhandle;
- register unsigned char *cp;
+ unsigned char *cp;
static struct tws tw;
memset(&tw,0,sizeof(struct tws));
{D}("-"|"/"){D}("-"|"/"){YEAR}{W}{TIME} {
INIT();
if(europeandate) {
- /* DD/MM/YY */
- SETDAY();
- SKIPTOD();
- SETMON_NUM();
+ /* DD/MM/YY */
+ SETDAY();
+ SKIPTOD();
+ SETMON_NUM();
} else {
- /* MM/DD/YY */
- SETMON_NUM();
- SKIPTOD();
- SETDAY();
+ /* MM/DD/YY */
+ SETMON_NUM();
+ SKIPTOD();
+ SETDAY();
}
SKIPTOD();
SETYEAR();
.|\n
%%
-/* This is a portable way to squash a warning about the yyunput()
- * function being static but never used. It costs us a tiny amount
- * of extra code in the binary but the other options are:
- * "%option nounput" which is flex-specific
- * makefile hackery just to compile dtimep.c with different flags
- */
+/*
+** This is a portable way to squash a warning about the yyunput()
+** function being static but never used. It costs us a tiny amount
+** of extra code in the binary but the other options are:
+** "%option nounput" which is flex-specific
+** makefile hackery just to compile dtimep.c with different flags
+*/
void dtimep_yyunput(int c)
{
unput(c);