/* * PARTIME parse date/time string into a TM structure * * Usage: * #include "time.h" -- expanded tm structure * char *str; struct tm *tp; * partime(str,tp); * Returns: * 0 if parsing failed * else time values in specified TM structure (unspecified values * set to TMNULL) * Notes: * This code is quasi-public; it may be used freely in like software. * It is not to be sold, nor used in licensed software without * permission of the author. * For everyone's benefit, please report bugs and improvements! * Copyright 1980 by Ken Harrenstien, SRI International. * (ARPANET: KLH @ SRI) */ /* Hacknotes: * If parsing changed so that no backup needed, could perhaps modify * to use a FILE input stream. Need terminator, though. * Perhaps should return 0 on success, else a non-zero error val? * Flush AMPM from TM structure and handle locally within PARTIME, * like midnight/noon? */ #ifndef lint static char rcsid[]= "$Header: /cvsroot/src/usr.bin/rcs/src/Attic/partime.c,v 1.1.1.1 1993/03/21 09:45:37 cgd Exp $"; #endif /* $Log: partime.c,v $ /* Revision 1.1.1.1 1993/03/21 09:45:37 cgd /* initial import of 386bsd-0.1 sources /* * Revision 1.4 89/05/01 14:48:46 narten * fixed #ifdef DEBUG construct * * Revision 1.3 88/11/08 12:02:15 narten * changes from eggert@sm.unisys.com (Paul Eggert) * * Revision 1.3 88/08/28 14:53:40 eggert * Remove unportable "#endif XXX"s. * * Revision 1.2 87/03/27 14:21:53 jenkins * Port to suns * * Revision 1.1 84/01/23 14:50:07 kcs * Initial revision * * Revision 1.1 82/05/06 11:38:26 wft * Initial revision * */ #include #include #include "time.h" #ifndef lint static char timeid[] = TIMEID; #endif struct tmwent { char *went; long wval; /* must be big enough to hold pointer or integer */ char wflgs; char wtype; }; /* wflgs */ #define TWSPEC 01 /* Word wants special processing */ #define TWTIME 02 /* Word is a time value (absence implies date) */ #define TWDST 04 /* Word is a DST-type timezone */ #define TW1200 010 /* Word is NOON or MIDNIGHT (sigh) */ int pt12hack(); int ptnoise(); struct tmwent tmwords [] = { {"january", 0, 0, TM_MON}, {"february", 1, 0, TM_MON}, {"march", 2, 0, TM_MON}, {"april", 3, 0, TM_MON}, {"may", 4, 0, TM_MON}, {"june", 5, 0, TM_MON}, {"july", 6, 0, TM_MON}, {"august", 7, 0, TM_MON}, {"september", 8, 0, TM_MON}, {"october", 9, 0, TM_MON}, {"november", 10, 0, TM_MON}, {"december", 11, 0, TM_MON}, {"sunday", 0, 0, TM_WDAY}, {"monday", 1, 0, TM_WDAY}, {"tuesday", 2, 0, TM_WDAY}, {"wednesday", 3, 0, TM_WDAY}, {"thursday", 4, 0, TM_WDAY}, {"friday", 5, 0, TM_WDAY}, {"saturday", 6, 0, TM_WDAY}, {"gmt", 0*60, TWTIME, TM_ZON}, /* Greenwich */ {"gst", 0*60, TWTIME, TM_ZON}, {"gdt", 0*60, TWTIME+TWDST, TM_ZON}, /* ?? */ {"ast", 4*60, TWTIME, TM_ZON}, /* Atlantic */ {"est", 5*60, TWTIME, TM_ZON}, /* Eastern */ {"cst", 6*60, TWTIME, TM_ZON}, /* Central */ {"mst", 7*60, TWTIME, TM_ZON}, /* Mountain */ {"pst", 8*60, TWTIME, TM_ZON}, /* Pacific */ {"yst", 9*60, TWTIME, TM_ZON}, /* Yukon */ {"hst", 10*60, TWTIME, TM_ZON}, /* Hawaii */ {"bst", 11*60, TWTIME, TM_ZON}, /* Bering */ {"adt", 4*60, TWTIME+TWDST, TM_ZON}, /* Atlantic */ {"edt", 5*60, TWTIME+TWDST, TM_ZON}, /* Eastern */ {"cdt", 6*60, TWTIME+TWDST, TM_ZON}, /* Central */ {"mdt", 7*60, TWTIME+TWDST, TM_ZON}, /* Mountain */ {"pdt", 8*60, TWTIME+TWDST, TM_ZON}, /* Pacific */ {"ydt", 9*60, TWTIME+TWDST, TM_ZON}, /* Yukon */ {"hdt", 10*60, TWTIME+TWDST, TM_ZON}, /* Hawaii */ {"bdt", 11*60, TWTIME+TWDST, TM_ZON}, /* Bering */ {"daylight", 1, TWTIME+TWDST, TM_ZON}, /* Local Daylight */ {"standard", 1, TWTIME, TM_ZON}, /* Local Standard */ {"std", 1, TWTIME, TM_ZON}, /* " " */ {"am", 1, TWTIME, TM_AMPM}, {"pm", 2, TWTIME, TM_AMPM}, {"noon", 12,TWTIME+TW1200, 0}, /* Special frobs */ {"midnight", 0, TWTIME+TW1200, 0}, {"at", (long)ptnoise, TWSPEC, 0}, /* Noise word */ {0, 0, 0, 0}, /* Zero entry to terminate searches */ }; #define TMWILD (-2) /* Value meaning item specified as wild-card */ /* (May use someday...) */ struct token { char *tcp; /* pointer to string */ int tcnt; /* # chars */ char tbrk; /* "break" char */ char tbrkl; /* last break char */ char tflg; /* 0 = alpha, 1 = numeric */ union { /* Resulting value; */ int tnum;/* either a #, or */ struct tmwent *ttmw;/* ptr to a tmwent. */ } tval; }; partime(astr, atm) char *astr; struct tm *atm; { register int *tp; register struct tmwent *twp; register int i; struct token btoken, atoken; char *cp, ch; int ord, midnoon; int (*aproc)(); tp = (int *)atm; zaptime(tp); /* Initialize the TM structure */ midnoon = TMNULL; /* and our own temp stuff */ btoken.tcnt = btoken.tbrkl = 0; btoken.tcp = astr; domore: if(!ptitoken(btoken.tcp+btoken.tcnt,&btoken)) /* Get a token */ { if(btoken.tval.tnum) return(0); /* Read error? */ if(midnoon != TMNULL) /* EOF, wrap up */ return(pt12hack(tp, midnoon)); return(1); /* Win return! */ } if(btoken.tflg == 0) /* Alpha? */ { twp = btoken.tval.ttmw; /* Yes, get ptr to entry */ if(twp->wflgs&TWSPEC) /* Special alpha crock */ { aproc = (int (*) ()) (twp->wval); if(!(*aproc)(tp, twp, &btoken)) return(0); /* ERR: special word err */ goto domore; } if(twp->wflgs&TW1200) if(ptstash(&midnoon,(int)twp->wval)) return(0); /* ERR: noon/midnite clash */ else goto domore; if(ptstash(&tp[twp->wtype],(int)twp->wval)) return(0); /* ERR: val already set */ if(twp->wtype == TM_ZON) /* If was zone, hack DST */ if(ptstash(&tp[TM_ISDST],(twp->wflgs&TWDST))) return(0); /* ERR: DST conflict */ goto domore; } /* Token is number. Lots of hairy heuristics. */ if(btoken.tcnt >= 7) /* More than 6 digits in string? */ return(0); /* ERR: number too big */ if(btoken.tcnt == 6) /* 6 digits = HHMMSS. Needs special crock */ { /* since 6 digits are too big for integer! */ i = (btoken.tcp[0]-'0')*10 /* Gobble 1st 2 digits */ + btoken.tcp[1]-'0'; btoken.tcnt = 2; /* re-read last 4 chars */ goto coltime; } i = btoken.tval.tnum; /* Value now known to be valid; get it. */ if( btoken.tcnt == 5 /* 5 digits = HMMSS */ || btoken.tcnt == 3) /* 3 digits = HMM */ { if(btoken.tcnt != 3) if(ptstash(&tp[TM_SEC], i%100)) return(0); /* ERR: sec conflict */ else i /= 100; hhmm4: if(ptstash(&tp[TM_MIN], i%100)) return(0); /* ERR: min conflict */ i /= 100; hh2: if(ptstash(&tp[TM_HOUR], i)) return(0); /* ERR: hour conflict */ goto domore; } if(btoken.tcnt == 4) /* 4 digits = YEAR or HHMM */ { if(tp[TM_YEAR] != TMNULL) goto hhmm4; /* Already got yr? */ if(tp[TM_HOUR] != TMNULL) goto year4; /* Already got hr? */ if((i%100) > 59) goto year4; /* MM >= 60? */ if(btoken.tbrk == ':') /* HHMM:SS ? */ if( ptstash(&tp[TM_HOUR],i/100) || ptstash(&tp[TM_MIN], i%100)) return(0); /* ERR: hr/min clash */ else goto coltm2; /* Go handle SS */ if(btoken.tbrk != ',' && btoken.tbrk != '/' && ptitoken(btoken.tcp+btoken.tcnt,&atoken) /* Peek */ && atoken.tflg == 0 /* alpha */ && (atoken.tval.ttmw->wflgs&TWTIME)) /* HHMM-ZON */ goto hhmm4; if(btoken.tbrkl == '-' /* DD-Mon-YYYY */ || btoken.tbrkl == ',' /* Mon DD, YYYY */ || btoken.tbrkl == '/' /* MM/DD/YYYY */ || btoken.tbrkl == '.' /* DD.MM.YYYY */ || btoken.tbrk == '-' /* YYYY-MM-DD */ ) goto year4; goto hhmm4; /* Give up, assume HHMM. */ } /* From this point on, assume tcnt == 1 or 2 */ /* 2 digits = YY, MM, DD, or HH (MM and SS caught at coltime) */ if(btoken.tbrk == ':') /* HH:MM[:SS] */ goto coltime; /* must be part of time. */ if(i > 31) goto yy2; /* If >= 32, only YY poss. */ /* Check for numerical-format date */ for (cp = "/-."; ch = *cp++;) { ord = (ch == '.' ? 0 : 1); /* n/m = D/M or M/D */ if(btoken.tbrk == ch) /* "NN-" */ { if(btoken.tbrkl != ch) { if(ptitoken(btoken.tcp+btoken.tcnt,&atoken) && atoken.tflg == 0 && atoken.tval.ttmw->wtype == TM_MON) goto dd2; if(ord)goto mm2; else goto dd2; /* "NN-" */ } /* "-NN-" */ if(tp[TM_DAY] == TMNULL && tp[TM_YEAR] != TMNULL) /* If "YY-NN-" */ goto mm2; /* then always MM */ if(ord)goto dd2; else goto mm2; } if(btoken.tbrkl == ch /* "-NN" */ && tp[ord ? TM_MON : TM_DAY] != TMNULL) if(tp[ord ? TM_DAY : TM_MON] == TMNULL) /* MM/DD */ if(ord)goto dd2; else goto mm2; else goto yy2; /* "-YY" */ } /* At this point only YY, DD, and HH are left. * YY is very unlikely since value is <= 32 and there was * no numerical format date. Make one last try at YY * before dropping through to DD vs HH code. */ if(btoken.tcnt == 2 /* If 2 digits */ && tp[TM_HOUR] != TMNULL /* and already have hour */ && tp[TM_DAY] != TMNULL /* and day, but */ && tp[TM_YEAR] == TMNULL) /* no year, then assume */ goto yy2; /* that's what we have. */ /* Now reduced to choice between HH and DD */ if(tp[TM_HOUR] != TMNULL) goto dd2; /* Have hour? Assume day. */ if(tp[TM_DAY] != TMNULL) goto hh2; /* Have day? Assume hour. */ if(i > 24) goto dd2; /* Impossible HH means DD */ if(!ptitoken(btoken.tcp+btoken.tcnt, &atoken)) /* Read ahead! */ if(atoken.tval.tnum) return(0); /* ERR: bad token */ else goto dd2; /* EOF, assume day. */ if( atoken.tflg == 0 /* If next token is an alpha */ && atoken.tval.ttmw->wflgs&TWTIME) /* time-spec, assume hour */ goto hh2; /* e.g. "3 PM", "11-EDT" */ dd2: if(ptstash(&tp[TM_DAY],i)) /* Store day (1 based) */ return(0); goto domore; mm2: if(ptstash(&tp[TM_MON], i-1)) /* Store month (make zero based) */ return(0); goto domore; yy2: i += 1900; year4: if(ptstash(&tp[TM_YEAR],i)) /* Store year (full number) */ return(0); /* ERR: year conflict */ goto domore; /* Hack HH:MM[[:]SS] */ coltime: if(ptstash(&tp[TM_HOUR],i)) return(0); if(!ptitoken(btoken.tcp+btoken.tcnt,&btoken)) return(!btoken.tval.tnum); if(!btoken.tflg) return(0); /* ERR: HH: */ if(btoken.tcnt == 4) /* MMSS */ if(ptstash(&tp[TM_MIN],btoken.tval.tnum/100) || ptstash(&tp[TM_SEC],btoken.tval.tnum%100)) return(0); else goto domore; if(btoken.tcnt != 2 || ptstash(&tp[TM_MIN],btoken.tval.tnum)) return(0); /* ERR: MM bad */ if(btoken.tbrk != ':') goto domore; /* Seconds follow? */ coltm2: if(!ptitoken(btoken.tcp+btoken.tcnt,&btoken)) return(!btoken.tval.tnum); if(!btoken.tflg || btoken.tcnt != 2 /* Verify SS */ || ptstash(&tp[TM_SEC], btoken.tval.tnum)) return(0); /* ERR: SS bad */ goto domore; } /* Store date/time value, return 0 if successful. * Fails if entry already set to a different value. */ ptstash(adr,val) int *adr; { register int *a; if( *(a=adr) != TMNULL) return(*a != val); *a = val; return(0); } /* This subroutine is invoked for NOON or MIDNIGHT when wrapping up * just prior to returning from partime. */ pt12hack(atp, aval) int *atp, aval; { register int *tp, i, h; tp = atp; if (((i=tp[TM_MIN]) && i != TMNULL) /* Ensure mins, secs */ || ((i=tp[TM_SEC]) && i != TMNULL)) /* are 0 or unspec'd */ return(0); /* ERR: MM:SS not 00:00 */ i = aval; /* Get 0 or 12 (midnite or noon) */ if ((h = tp[TM_HOUR]) == TMNULL /* If hour unspec'd, win */ || h == 12) /* or if 12:00 (matches either) */ tp[TM_HOUR] = i; /* Then set time */ else if(!(i == 0 /* Nope, but if midnight and */ &&(h == 0 || h == 24))) /* time matches, can pass. */ return(0); /* ERR: HH conflicts */ tp[TM_AMPM] = TMNULL; /* Always reset this value if won */ return(1); } /* Null routine for no-op tokens */ ptnoise() { return(1); } /* Get a token and identify it to some degree. * Returns 0 on failure; token.tval will be 0 for normal EOF, otherwise * hit error of some sort */ ptitoken(astr, tkp) register struct token *tkp; char *astr; { register char *cp; register int i; tkp->tval.tnum = 0; if(pttoken(astr,tkp) == 0) #ifdef DEBUG { VOID printf("EOF\n"); return(0); } #else return(0); #endif cp = tkp->tcp; #ifdef DEBUG i = cp[tkp->tcnt]; cp[tkp->tcnt] = 0; VOID printf("Token: \"%s\" ",cp); cp[tkp->tcnt] = i; #endif if(tkp->tflg) for(i = tkp->tcnt; i > 0; i--) tkp->tval.tnum = (int)tkp->tval.tnum*10 + ((*cp++)-'0'); else { i = ptmatchstr(cp, tkp->tcnt, tmwords); tkp->tval.tnum = i ? i : -1; /* Set -1 for error */ #ifdef DEBUG if(!i) VOID printf("Not found!\n"); #endif if(!i) return(0); } #ifdef DEBUG if(tkp->tflg) VOID printf("Val: %d.\n",tkp->tval.tnum); else VOID printf("Found: \"%s\", val: %d., type %d\n", tkp->tval.ttmw->went,tkp->tval.ttmw->wval,tkp->tval.ttmw->wtype); #endif return(1); } /* Read token from input string into token structure */ pttoken(astr,tkp) register struct token *tkp; char *astr; { register char *cp; register int c; tkp->tcp = cp = astr; tkp->tbrkl = tkp->tbrk; /* Set "last break" */ tkp->tcnt = tkp->tbrk = tkp->tflg = 0; while(c = *cp++) { switch(c) { case ' ': case '\t': /* Flush all whitespace */ while((c = *cp++) && isspace(c)); cp--; /* Drop thru to handle brk */ case '(': case ')': /* Perhaps any non-alphanum */ case '-': case ',': /* shd qualify as break? */ case '/': case ':': case '.': /* Break chars */ if(tkp->tcnt == 0) /* If no token yet */ { tkp->tcp = cp; /* ignore the brk */ tkp->tbrkl = c; continue; /* and go on. */ } tkp->tbrk = c; return(tkp->tcnt); } if(tkp->tcnt == 0) /* If first char of token, */ tkp->tflg = isdigit(c); /* determine type */ if(( isdigit(c) && tkp->tflg) /* If not first, make sure */ ||(!isdigit(c) && !tkp->tflg)) /* char matches type */ tkp->tcnt++; /* Win, add to token. */ else { cp--; /* Wrong type, back up */ tkp->tbrk = c; return(tkp->tcnt); } } return(tkp->tcnt); /* When hit EOF */ } ptmatchstr(astr,cnt,astruc) char *astr; int cnt; struct tmwent *astruc; { register char *cp, *mp; register int c; struct tmwent *lastptr; struct integ { int word; }; /* For getting at array ptr */ int i; lastptr = 0; for(;mp = (char *)((struct integ *)astruc)->word; astruc += 1) { cp = astr; for(i = cnt; i > 0; i--) { switch((c = *cp++) ^ *mp++) /* XOR the chars */ { case 0: continue; /* Exact match */ case 040: if(isalpha(c)) continue; } break; } if(i==0) if(*mp == 0) return((unsigned int)astruc); /* Exact match */ else if(lastptr) return(0); /* Ambiguous */ else lastptr = astruc; /* 1st ambig */ } return((unsigned int)lastptr); } zaptime(tp) register int *tp; /* clears tm structure pointed to by tp */ { register int i; i = (sizeof (struct tm))/(sizeof (int)); do *tp++ = TMNULL; /* Set entry to "unspecified" */ while(--i); /* Faster than FOR */ }