1 %{ 2 /* 3 ** Originally written by Steven M. Bellovin <smb@research.att.com> while 4 ** at the University of North Carolina at Chapel Hill. Later tweaked by 5 ** a couple of people on Usenet. Completely overhauled by Rich $alz 6 ** <rsalz@bbn.com> and Jim Berets <jberets@bbn.com> in August, 1990; 7 ** 8 ** This grammar has 10 shift/reduce conflicts. 9 ** 10 ** This code is in the public domain and has no copyright. 11 */ 12 /* SUPPRESS 287 on yaccpar_sccsid *//* Unused static variable */ 13 /* SUPPRESS 288 on yyerrlab *//* Label unused */ 14 15 /* $FreeBSD: src/usr.bin/find/getdate.y,v 1.8 2012/05/22 16:33:10 bapt Exp $ */ 16 17 #include <stdio.h> 18 #include <ctype.h> 19 20 /* The code at the top of get_date which figures out the offset of the 21 current time zone checks various CPP symbols to see if special 22 tricks are need, but defaults to using the gettimeofday system call. 23 Include <sys/time.h> if that will be used. */ 24 25 #if defined(vms) 26 # include <types.h> 27 #else /* defined(vms) */ 28 # include <sys/types.h> 29 # include <sys/time.h> 30 #endif /* !defined(vms) */ 31 32 #if defined (__STDC__) || defined (USG) 33 #include <string.h> 34 #endif 35 36 /* Some old versions of bison generate parsers that use bcopy. 37 That loses on systems that don't provide the function, so we have 38 to redefine it here. */ 39 #if !defined (HAVE_BCOPY) && defined (HAVE_MEMCPY) && !defined (bcopy) 40 #define bcopy(from, to, len) memcpy ((to), (from), (len)) 41 #endif 42 43 #if defined (__STDC__) 44 #include <stdlib.h> 45 #endif 46 47 /* NOTES on rebuilding getdate.c (particularly for inclusion in CVS 48 releases): 49 50 We don't want to mess with all the portability hassles of alloca. 51 In particular, most (all?) versions of bison will use alloca in 52 their parser. If bison works on your system (e.g. it should work 53 with gcc), then go ahead and use it, but the more general solution 54 is to use byacc instead of bison, which should generate a portable 55 parser. I played with adding "#define alloca dont_use_alloca", to 56 give an error if the parser generator uses alloca (and thus detect 57 unportable getdate.c's), but that seems to cause as many problems 58 as it solves. */ 59 60 #include <time.h> 61 62 #define yyparse getdate_yyparse 63 #define yylex getdate_yylex 64 #define yyerror getdate_yyerror 65 66 static int yylex(void); 67 static int yyerror(const char *); 68 69 time_t get_date(char *); 70 71 #define EPOCH 1970 72 #define HOUR(x) ((time_t)(x) * 60) 73 #define SECSPERDAY (24L * 60L * 60L) 74 75 76 /* 77 ** An entry in the lexical lookup table. 78 */ 79 typedef struct _TABLE { 80 const char *name; 81 int type; 82 time_t value; 83 } TABLE; 84 85 86 /* 87 ** Daylight-savings mode: on, off, or not yet known. 88 */ 89 typedef enum _DSTMODE { 90 DSTon, DSToff, DSTmaybe 91 } DSTMODE; 92 93 /* 94 ** Meridian: am, pm, or 24-hour style. 95 */ 96 typedef enum _MERIDIAN { 97 MERam, MERpm, MER24 98 } MERIDIAN; 99 100 101 /* 102 ** Global variables. We could get rid of most of these by using a good 103 ** union as the yacc stack. (This routine was originally written before 104 ** yacc had the %union construct.) Maybe someday; right now we only use 105 ** the %union very rarely. 106 */ 107 static char *yyInput; 108 static DSTMODE yyDSTmode; 109 static time_t yyDayOrdinal; 110 static time_t yyDayNumber; 111 static int yyHaveDate; 112 static int yyHaveDay; 113 static int yyHaveRel; 114 static int yyHaveTime; 115 static int yyHaveZone; 116 static time_t yyTimezone; 117 static time_t yyDay; 118 static time_t yyHour; 119 static time_t yyMinutes; 120 static time_t yyMonth; 121 static time_t yySeconds; 122 static time_t yyYear; 123 static MERIDIAN yyMeridian; 124 static time_t yyRelMonth; 125 static time_t yyRelSeconds; 126 127 %} 128 129 %union { 130 time_t Number; 131 enum _MERIDIAN Meridian; 132 } 133 134 %token tAGO tDAY tDAYZONE tID tMERIDIAN tMINUTE_UNIT tMONTH tMONTH_UNIT 135 %token tSEC_UNIT tSNUMBER tUNUMBER tZONE tDST 136 137 %type <Number> tDAY tDAYZONE tMINUTE_UNIT tMONTH tMONTH_UNIT 138 %type <Number> tSEC_UNIT tSNUMBER tUNUMBER tZONE 139 %type <Meridian> tMERIDIAN o_merid 140 141 %% 142 143 spec : /* NULL */ 144 | spec item 145 ; 146 147 item : time { 148 yyHaveTime++; 149 } 150 | zone { 151 yyHaveZone++; 152 } 153 | date { 154 yyHaveDate++; 155 } 156 | day { 157 yyHaveDay++; 158 } 159 | rel { 160 yyHaveRel++; 161 } 162 | number 163 ; 164 165 time : tUNUMBER tMERIDIAN { 166 yyHour = $1; 167 yyMinutes = 0; 168 yySeconds = 0; 169 yyMeridian = $2; 170 } 171 | tUNUMBER ':' tUNUMBER o_merid { 172 yyHour = $1; 173 yyMinutes = $3; 174 yySeconds = 0; 175 yyMeridian = $4; 176 } 177 | tUNUMBER ':' tUNUMBER tSNUMBER { 178 yyHour = $1; 179 yyMinutes = $3; 180 yyMeridian = MER24; 181 yyDSTmode = DSToff; 182 yyTimezone = - ($4 % 100 + ($4 / 100) * 60); 183 } 184 | tUNUMBER ':' tUNUMBER ':' tUNUMBER o_merid { 185 yyHour = $1; 186 yyMinutes = $3; 187 yySeconds = $5; 188 yyMeridian = $6; 189 } 190 | tUNUMBER ':' tUNUMBER ':' tUNUMBER tSNUMBER { 191 yyHour = $1; 192 yyMinutes = $3; 193 yySeconds = $5; 194 yyMeridian = MER24; 195 yyDSTmode = DSToff; 196 yyTimezone = - ($6 % 100 + ($6 / 100) * 60); 197 } 198 ; 199 200 zone : tZONE { 201 yyTimezone = $1; 202 yyDSTmode = DSToff; 203 } 204 | tDAYZONE { 205 yyTimezone = $1; 206 yyDSTmode = DSTon; 207 } 208 | 209 tZONE tDST { 210 yyTimezone = $1; 211 yyDSTmode = DSTon; 212 } 213 ; 214 215 day : tDAY { 216 yyDayOrdinal = 1; 217 yyDayNumber = $1; 218 } 219 | tDAY ',' { 220 yyDayOrdinal = 1; 221 yyDayNumber = $1; 222 } 223 | tUNUMBER tDAY { 224 yyDayOrdinal = $1; 225 yyDayNumber = $2; 226 } 227 ; 228 229 date : tUNUMBER '/' tUNUMBER { 230 yyMonth = $1; 231 yyDay = $3; 232 } 233 | tUNUMBER '/' tUNUMBER '/' tUNUMBER { 234 if ($1 >= 100) { 235 yyYear = $1; 236 yyMonth = $3; 237 yyDay = $5; 238 } else { 239 yyMonth = $1; 240 yyDay = $3; 241 yyYear = $5; 242 } 243 } 244 | tUNUMBER tSNUMBER tSNUMBER { 245 /* ISO 8601 format. yyyy-mm-dd. */ 246 yyYear = $1; 247 yyMonth = -$2; 248 yyDay = -$3; 249 } 250 | tUNUMBER tMONTH tSNUMBER { 251 /* e.g. 17-JUN-1992. */ 252 yyDay = $1; 253 yyMonth = $2; 254 yyYear = -$3; 255 } 256 | tMONTH tUNUMBER { 257 yyMonth = $1; 258 yyDay = $2; 259 } 260 | tMONTH tUNUMBER ',' tUNUMBER { 261 yyMonth = $1; 262 yyDay = $2; 263 yyYear = $4; 264 } 265 | tUNUMBER tMONTH { 266 yyMonth = $2; 267 yyDay = $1; 268 } 269 | tUNUMBER tMONTH tUNUMBER { 270 yyMonth = $2; 271 yyDay = $1; 272 yyYear = $3; 273 } 274 ; 275 276 rel : relunit tAGO { 277 yyRelSeconds = -yyRelSeconds; 278 yyRelMonth = -yyRelMonth; 279 } 280 | relunit 281 ; 282 283 relunit : tUNUMBER tMINUTE_UNIT { 284 yyRelSeconds += $1 * $2 * 60L; 285 } 286 | tSNUMBER tMINUTE_UNIT { 287 yyRelSeconds += $1 * $2 * 60L; 288 } 289 | tMINUTE_UNIT { 290 yyRelSeconds += $1 * 60L; 291 } 292 | tSNUMBER tSEC_UNIT { 293 yyRelSeconds += $1; 294 } 295 | tUNUMBER tSEC_UNIT { 296 yyRelSeconds += $1; 297 } 298 | tSEC_UNIT { 299 yyRelSeconds++; 300 } 301 | tSNUMBER tMONTH_UNIT { 302 yyRelMonth += $1 * $2; 303 } 304 | tUNUMBER tMONTH_UNIT { 305 yyRelMonth += $1 * $2; 306 } 307 | tMONTH_UNIT { 308 yyRelMonth += $1; 309 } 310 ; 311 312 number : tUNUMBER { 313 if (yyHaveTime && yyHaveDate && !yyHaveRel) 314 yyYear = $1; 315 else { 316 if($1>10000) { 317 yyHaveDate++; 318 yyDay= ($1)%100; 319 yyMonth= ($1/100)%100; 320 yyYear = $1/10000; 321 } 322 else { 323 yyHaveTime++; 324 if ($1 < 100) { 325 yyHour = $1; 326 yyMinutes = 0; 327 } 328 else { 329 yyHour = $1 / 100; 330 yyMinutes = $1 % 100; 331 } 332 yySeconds = 0; 333 yyMeridian = MER24; 334 } 335 } 336 } 337 ; 338 339 o_merid : /* NULL */ { 340 $$ = MER24; 341 } 342 | tMERIDIAN { 343 $$ = $1; 344 } 345 ; 346 347 %% 348 349 /* Month and day table. */ 350 static TABLE const MonthDayTable[] = { 351 { "january", tMONTH, 1 }, 352 { "february", tMONTH, 2 }, 353 { "march", tMONTH, 3 }, 354 { "april", tMONTH, 4 }, 355 { "may", tMONTH, 5 }, 356 { "june", tMONTH, 6 }, 357 { "july", tMONTH, 7 }, 358 { "august", tMONTH, 8 }, 359 { "september", tMONTH, 9 }, 360 { "sept", tMONTH, 9 }, 361 { "october", tMONTH, 10 }, 362 { "november", tMONTH, 11 }, 363 { "december", tMONTH, 12 }, 364 { "sunday", tDAY, 0 }, 365 { "monday", tDAY, 1 }, 366 { "tuesday", tDAY, 2 }, 367 { "tues", tDAY, 2 }, 368 { "wednesday", tDAY, 3 }, 369 { "wednes", tDAY, 3 }, 370 { "thursday", tDAY, 4 }, 371 { "thur", tDAY, 4 }, 372 { "thurs", tDAY, 4 }, 373 { "friday", tDAY, 5 }, 374 { "saturday", tDAY, 6 }, 375 { NULL, 0, 0 } 376 }; 377 378 /* Time units table. */ 379 static TABLE const UnitsTable[] = { 380 { "year", tMONTH_UNIT, 12 }, 381 { "month", tMONTH_UNIT, 1 }, 382 { "fortnight", tMINUTE_UNIT, 14 * 24 * 60 }, 383 { "week", tMINUTE_UNIT, 7 * 24 * 60 }, 384 { "day", tMINUTE_UNIT, 1 * 24 * 60 }, 385 { "hour", tMINUTE_UNIT, 60 }, 386 { "minute", tMINUTE_UNIT, 1 }, 387 { "min", tMINUTE_UNIT, 1 }, 388 { "second", tSEC_UNIT, 1 }, 389 { "sec", tSEC_UNIT, 1 }, 390 { NULL, 0, 0 } 391 }; 392 393 /* Assorted relative-time words. */ 394 static TABLE const OtherTable[] = { 395 { "tomorrow", tMINUTE_UNIT, 1 * 24 * 60 }, 396 { "yesterday", tMINUTE_UNIT, -1 * 24 * 60 }, 397 { "today", tMINUTE_UNIT, 0 }, 398 { "now", tMINUTE_UNIT, 0 }, 399 { "last", tUNUMBER, -1 }, 400 { "this", tMINUTE_UNIT, 0 }, 401 { "next", tUNUMBER, 2 }, 402 { "first", tUNUMBER, 1 }, 403 /* { "second", tUNUMBER, 2 }, */ 404 { "third", tUNUMBER, 3 }, 405 { "fourth", tUNUMBER, 4 }, 406 { "fifth", tUNUMBER, 5 }, 407 { "sixth", tUNUMBER, 6 }, 408 { "seventh", tUNUMBER, 7 }, 409 { "eighth", tUNUMBER, 8 }, 410 { "ninth", tUNUMBER, 9 }, 411 { "tenth", tUNUMBER, 10 }, 412 { "eleventh", tUNUMBER, 11 }, 413 { "twelfth", tUNUMBER, 12 }, 414 { "ago", tAGO, 1 }, 415 { NULL, 0, 0 } 416 }; 417 418 /* The timezone table. */ 419 /* Some of these are commented out because a time_t can't store a float. */ 420 static TABLE const TimezoneTable[] = { 421 { "gmt", tZONE, HOUR( 0) }, /* Greenwich Mean */ 422 { "ut", tZONE, HOUR( 0) }, /* Universal (Coordinated) */ 423 { "utc", tZONE, HOUR( 0) }, 424 { "wet", tZONE, HOUR( 0) }, /* Western European */ 425 { "bst", tDAYZONE, HOUR( 0) }, /* British Summer */ 426 { "wat", tZONE, HOUR( 1) }, /* West Africa */ 427 { "at", tZONE, HOUR( 2) }, /* Azores */ 428 #if 0 429 /* For completeness. BST is also British Summer, and GST is 430 * also Guam Standard. */ 431 { "bst", tZONE, HOUR( 3) }, /* Brazil Standard */ 432 { "gst", tZONE, HOUR( 3) }, /* Greenland Standard */ 433 #endif 434 #if 0 435 { "nft", tZONE, HOUR(3.5) }, /* Newfoundland */ 436 { "nst", tZONE, HOUR(3.5) }, /* Newfoundland Standard */ 437 { "ndt", tDAYZONE, HOUR(3.5) }, /* Newfoundland Daylight */ 438 #endif 439 { "ast", tZONE, HOUR( 4) }, /* Atlantic Standard */ 440 { "adt", tDAYZONE, HOUR( 4) }, /* Atlantic Daylight */ 441 { "est", tZONE, HOUR( 5) }, /* Eastern Standard */ 442 { "edt", tDAYZONE, HOUR( 5) }, /* Eastern Daylight */ 443 { "cst", tZONE, HOUR( 6) }, /* Central Standard */ 444 { "cdt", tDAYZONE, HOUR( 6) }, /* Central Daylight */ 445 { "mst", tZONE, HOUR( 7) }, /* Mountain Standard */ 446 { "mdt", tDAYZONE, HOUR( 7) }, /* Mountain Daylight */ 447 { "pst", tZONE, HOUR( 8) }, /* Pacific Standard */ 448 { "pdt", tDAYZONE, HOUR( 8) }, /* Pacific Daylight */ 449 { "yst", tZONE, HOUR( 9) }, /* Yukon Standard */ 450 { "ydt", tDAYZONE, HOUR( 9) }, /* Yukon Daylight */ 451 { "hst", tZONE, HOUR(10) }, /* Hawaii Standard */ 452 { "hdt", tDAYZONE, HOUR(10) }, /* Hawaii Daylight */ 453 { "cat", tZONE, HOUR(10) }, /* Central Alaska */ 454 { "ahst", tZONE, HOUR(10) }, /* Alaska-Hawaii Standard */ 455 { "nt", tZONE, HOUR(11) }, /* Nome */ 456 { "idlw", tZONE, HOUR(12) }, /* International Date Line West */ 457 { "cet", tZONE, -HOUR(1) }, /* Central European */ 458 { "met", tZONE, -HOUR(1) }, /* Middle European */ 459 { "mewt", tZONE, -HOUR(1) }, /* Middle European Winter */ 460 { "mest", tDAYZONE, -HOUR(1) }, /* Middle European Summer */ 461 { "swt", tZONE, -HOUR(1) }, /* Swedish Winter */ 462 { "sst", tDAYZONE, -HOUR(1) }, /* Swedish Summer */ 463 { "fwt", tZONE, -HOUR(1) }, /* French Winter */ 464 { "fst", tDAYZONE, -HOUR(1) }, /* French Summer */ 465 { "eet", tZONE, -HOUR(2) }, /* Eastern Europe, USSR Zone 1 */ 466 { "bt", tZONE, -HOUR(3) }, /* Baghdad, USSR Zone 2 */ 467 #if 0 468 { "it", tZONE, -HOUR(3.5) },/* Iran */ 469 #endif 470 { "zp4", tZONE, -HOUR(4) }, /* USSR Zone 3 */ 471 { "zp5", tZONE, -HOUR(5) }, /* USSR Zone 4 */ 472 #if 0 473 { "ist", tZONE, -HOUR(5.5) },/* Indian Standard */ 474 #endif 475 { "zp6", tZONE, -HOUR(6) }, /* USSR Zone 5 */ 476 #if 0 477 /* For completeness. NST is also Newfoundland Stanard, and SST is 478 * also Swedish Summer. */ 479 { "nst", tZONE, -HOUR(6.5) },/* North Sumatra */ 480 { "sst", tZONE, -HOUR(7) }, /* South Sumatra, USSR Zone 6 */ 481 #endif /* 0 */ 482 { "wast", tZONE, -HOUR(7) }, /* West Australian Standard */ 483 { "wadt", tDAYZONE, -HOUR(7) }, /* West Australian Daylight */ 484 #if 0 485 { "jt", tZONE, -HOUR(7.5) },/* Java (3pm in Cronusland!) */ 486 #endif 487 { "cct", tZONE, -HOUR(8) }, /* China Coast, USSR Zone 7 */ 488 { "jst", tZONE, -HOUR(9) }, /* Japan Standard, USSR Zone 8 */ 489 #if 0 490 { "cast", tZONE, -HOUR(9.5) },/* Central Australian Standard */ 491 { "cadt", tDAYZONE, -HOUR(9.5) },/* Central Australian Daylight */ 492 #endif 493 { "east", tZONE, -HOUR(10) }, /* Eastern Australian Standard */ 494 { "eadt", tDAYZONE, -HOUR(10) }, /* Eastern Australian Daylight */ 495 { "gst", tZONE, -HOUR(10) }, /* Guam Standard, USSR Zone 9 */ 496 { "nzt", tZONE, -HOUR(12) }, /* New Zealand */ 497 { "nzst", tZONE, -HOUR(12) }, /* New Zealand Standard */ 498 { "nzdt", tDAYZONE, -HOUR(12) }, /* New Zealand Daylight */ 499 { "idle", tZONE, -HOUR(12) }, /* International Date Line East */ 500 { NULL, 0, 0 } 501 }; 502 503 /* Military timezone table. */ 504 static TABLE const MilitaryTable[] = { 505 { "a", tZONE, HOUR( 1) }, 506 { "b", tZONE, HOUR( 2) }, 507 { "c", tZONE, HOUR( 3) }, 508 { "d", tZONE, HOUR( 4) }, 509 { "e", tZONE, HOUR( 5) }, 510 { "f", tZONE, HOUR( 6) }, 511 { "g", tZONE, HOUR( 7) }, 512 { "h", tZONE, HOUR( 8) }, 513 { "i", tZONE, HOUR( 9) }, 514 { "k", tZONE, HOUR( 10) }, 515 { "l", tZONE, HOUR( 11) }, 516 { "m", tZONE, HOUR( 12) }, 517 { "n", tZONE, HOUR(- 1) }, 518 { "o", tZONE, HOUR(- 2) }, 519 { "p", tZONE, HOUR(- 3) }, 520 { "q", tZONE, HOUR(- 4) }, 521 { "r", tZONE, HOUR(- 5) }, 522 { "s", tZONE, HOUR(- 6) }, 523 { "t", tZONE, HOUR(- 7) }, 524 { "u", tZONE, HOUR(- 8) }, 525 { "v", tZONE, HOUR(- 9) }, 526 { "w", tZONE, HOUR(-10) }, 527 { "x", tZONE, HOUR(-11) }, 528 { "y", tZONE, HOUR(-12) }, 529 { "z", tZONE, HOUR( 0) }, 530 { NULL, 0, 0 } 531 }; 532 533 534 535 536 /* ARGSUSED */ 537 static int 538 yyerror(const char *s __unused) 539 { 540 return 0; 541 } 542 543 544 static time_t 545 ToSeconds(time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian) 546 { 547 if (Minutes < 0 || Minutes > 59 || Seconds < 0 || Seconds > 59) 548 return -1; 549 switch (Meridian) { 550 case MER24: 551 if (Hours < 0 || Hours > 23) 552 return -1; 553 return (Hours * 60L + Minutes) * 60L + Seconds; 554 case MERam: 555 if (Hours < 1 || Hours > 12) 556 return -1; 557 if (Hours == 12) 558 Hours = 0; 559 return (Hours * 60L + Minutes) * 60L + Seconds; 560 case MERpm: 561 if (Hours < 1 || Hours > 12) 562 return -1; 563 if (Hours == 12) 564 Hours = 0; 565 return ((Hours + 12) * 60L + Minutes) * 60L + Seconds; 566 default: 567 abort (); 568 } 569 /* NOTREACHED */ 570 } 571 572 573 /* Year is either 574 * A negative number, which means to use its absolute value (why?) 575 * A number from 0 to 99, which means a year from 1900 to 1999, or 576 * The actual year (>=100). */ 577 static time_t 578 Convert(time_t Month, time_t Day, time_t Year, 579 time_t Hours, time_t Minutes, time_t Seconds, 580 MERIDIAN Meridian, DSTMODE DSTmode) 581 { 582 static int DaysInMonth[12] = { 583 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 584 }; 585 time_t tod; 586 time_t Julian; 587 int i; 588 589 if (Year < 0) 590 Year = -Year; 591 if (Year < 69) 592 Year += 2000; 593 else if (Year < 100) 594 Year += 1900; 595 DaysInMonth[1] = Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0) 596 ? 29 : 28; 597 /* Checking for 2038 bogusly assumes that time_t is 32 bits. But 598 I'm too lazy to try to check for time_t overflow in another way. */ 599 if (Year < EPOCH || Year > 2038 600 || Month < 1 || Month > 12 601 /* Lint fluff: "conversion from long may lose accuracy" */ 602 || Day < 1 || Day > DaysInMonth[(int)--Month]) 603 return -1; 604 605 for (Julian = Day - 1, i = 0; i < Month; i++) 606 Julian += DaysInMonth[i]; 607 for (i = EPOCH; i < Year; i++) 608 Julian += 365 + (i % 4 == 0); 609 Julian *= SECSPERDAY; 610 Julian += yyTimezone * 60L; 611 if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) 612 return -1; 613 Julian += tod; 614 if (DSTmode == DSTon 615 || (DSTmode == DSTmaybe && localtime(&Julian)->tm_isdst)) 616 Julian -= 60 * 60; 617 return Julian; 618 } 619 620 621 static time_t 622 DSTcorrect(time_t Start, time_t Future) 623 { 624 time_t StartDay; 625 time_t FutureDay; 626 627 StartDay = (localtime(&Start)->tm_hour + 1) % 24; 628 FutureDay = (localtime(&Future)->tm_hour + 1) % 24; 629 return (Future - Start) + (StartDay - FutureDay) * 60L * 60L; 630 } 631 632 633 static time_t 634 RelativeDate(time_t Start, time_t DayOrdinal, time_t DayNumber) 635 { 636 struct tm *tm; 637 time_t now; 638 639 now = Start; 640 tm = localtime(&now); 641 now += SECSPERDAY * ((DayNumber - tm->tm_wday + 7) % 7); 642 now += 7 * SECSPERDAY * (DayOrdinal <= 0 ? DayOrdinal : DayOrdinal - 1); 643 return DSTcorrect(Start, now); 644 } 645 646 647 static time_t 648 RelativeMonth(time_t Start, time_t RelMonth) 649 { 650 struct tm *tm; 651 time_t Month; 652 time_t Year; 653 654 if (RelMonth == 0) 655 return 0; 656 tm = localtime(&Start); 657 Month = 12 * (tm->tm_year + 1900) + tm->tm_mon + RelMonth; 658 Year = Month / 12; 659 Month = Month % 12 + 1; 660 return DSTcorrect(Start, 661 Convert(Month, (time_t)tm->tm_mday, Year, 662 (time_t)tm->tm_hour, (time_t)tm->tm_min, (time_t)tm->tm_sec, 663 MER24, DSTmaybe)); 664 } 665 666 667 static int 668 LookupWord(char *buff) 669 { 670 char *p; 671 char *q; 672 const TABLE *tp; 673 int i; 674 int abbrev; 675 676 /* Make it lowercase. */ 677 for (p = buff; *p; p++) 678 if (isupper(*p)) 679 *p = tolower(*p); 680 681 if (strcmp(buff, "am") == 0 || strcmp(buff, "a.m.") == 0) { 682 yylval.Meridian = MERam; 683 return tMERIDIAN; 684 } 685 if (strcmp(buff, "pm") == 0 || strcmp(buff, "p.m.") == 0) { 686 yylval.Meridian = MERpm; 687 return tMERIDIAN; 688 } 689 690 /* See if we have an abbreviation for a month. */ 691 if (strlen(buff) == 3) 692 abbrev = 1; 693 else if (strlen(buff) == 4 && buff[3] == '.') { 694 abbrev = 1; 695 buff[3] = '\0'; 696 } 697 else 698 abbrev = 0; 699 700 for (tp = MonthDayTable; tp->name; tp++) { 701 if (abbrev) { 702 if (strncmp(buff, tp->name, 3) == 0) { 703 yylval.Number = tp->value; 704 return tp->type; 705 } 706 } 707 else if (strcmp(buff, tp->name) == 0) { 708 yylval.Number = tp->value; 709 return tp->type; 710 } 711 } 712 713 for (tp = TimezoneTable; tp->name; tp++) 714 if (strcmp(buff, tp->name) == 0) { 715 yylval.Number = tp->value; 716 return tp->type; 717 } 718 719 if (strcmp(buff, "dst") == 0) 720 return tDST; 721 722 for (tp = UnitsTable; tp->name; tp++) 723 if (strcmp(buff, tp->name) == 0) { 724 yylval.Number = tp->value; 725 return tp->type; 726 } 727 728 /* Strip off any plural and try the units table again. */ 729 i = strlen(buff) - 1; 730 if (buff[i] == 's') { 731 buff[i] = '\0'; 732 for (tp = UnitsTable; tp->name; tp++) 733 if (strcmp(buff, tp->name) == 0) { 734 yylval.Number = tp->value; 735 return tp->type; 736 } 737 buff[i] = 's'; /* Put back for "this" in OtherTable. */ 738 } 739 740 for (tp = OtherTable; tp->name; tp++) 741 if (strcmp(buff, tp->name) == 0) { 742 yylval.Number = tp->value; 743 return tp->type; 744 } 745 746 /* Military timezones. */ 747 if (buff[1] == '\0' && isalpha(*buff)) { 748 for (tp = MilitaryTable; tp->name; tp++) 749 if (strcmp(buff, tp->name) == 0) { 750 yylval.Number = tp->value; 751 return tp->type; 752 } 753 } 754 755 /* Drop out any periods and try the timezone table again. */ 756 for (i = 0, p = q = buff; *q; q++) 757 if (*q != '.') 758 *p++ = *q; 759 else 760 i++; 761 *p = '\0'; 762 if (i) 763 for (tp = TimezoneTable; tp->name; tp++) 764 if (strcmp(buff, tp->name) == 0) { 765 yylval.Number = tp->value; 766 return tp->type; 767 } 768 769 return tID; 770 } 771 772 773 static int 774 yylex(void) 775 { 776 char c; 777 char *p; 778 char buff[20]; 779 int Count; 780 int sign; 781 782 for ( ; ; ) { 783 while (isspace(*yyInput)) 784 yyInput++; 785 786 if (isdigit(c = *yyInput) || c == '-' || c == '+') { 787 if (c == '-' || c == '+') { 788 sign = c == '-' ? -1 : 1; 789 if (!isdigit(*++yyInput)) 790 /* skip the '-' sign */ 791 continue; 792 } 793 else 794 sign = 0; 795 for (yylval.Number = 0; isdigit(c = *yyInput++); ) 796 yylval.Number = 10 * yylval.Number + c - '0'; 797 yyInput--; 798 if (sign < 0) 799 yylval.Number = -yylval.Number; 800 return sign ? tSNUMBER : tUNUMBER; 801 } 802 if (isalpha(c)) { 803 for (p = buff; isalpha(c = *yyInput++) || c == '.'; ) 804 if (p < &buff[sizeof buff - 1]) 805 *p++ = c; 806 *p = '\0'; 807 yyInput--; 808 return LookupWord(buff); 809 } 810 if (c != '(') 811 return *yyInput++; 812 Count = 0; 813 do { 814 c = *yyInput++; 815 if (c == '\0') 816 return c; 817 if (c == '(') 818 Count++; 819 else if (c == ')') 820 Count--; 821 } while (Count > 0); 822 } 823 } 824 825 #define TM_YEAR_ORIGIN 1900 826 827 /* Yield A - B, measured in seconds. */ 828 static long 829 difftm (struct tm *a, struct tm *b) 830 { 831 int ay = a->tm_year + (TM_YEAR_ORIGIN - 1); 832 int by = b->tm_year + (TM_YEAR_ORIGIN - 1); 833 int days = ( 834 /* difference in day of year */ 835 a->tm_yday - b->tm_yday 836 /* + intervening leap days */ 837 + ((ay >> 2) - (by >> 2)) 838 - (ay/100 - by/100) 839 + ((ay/100 >> 2) - (by/100 >> 2)) 840 /* + difference in years * 365 */ 841 + (long)(ay-by) * 365 842 ); 843 return (60*(60*(24*days + (a->tm_hour - b->tm_hour)) 844 + (a->tm_min - b->tm_min)) 845 + (a->tm_sec - b->tm_sec)); 846 } 847 848 time_t 849 get_date(char *p) 850 { 851 struct tm *tm, *gmt_ptr, gmt; 852 int tzoff; 853 time_t Start; 854 time_t tod; 855 time_t nowtime; 856 857 bzero (&gmt, sizeof(struct tm)); 858 yyInput = p; 859 860 (void)time (&nowtime); 861 862 gmt_ptr = gmtime (&nowtime); 863 if (gmt_ptr != NULL) 864 { 865 /* Make a copy, in case localtime modifies *tm (I think 866 that comment now applies to *gmt_ptr, but I am too 867 lazy to dig into how gmtime and locatime allocate the 868 structures they return pointers to). */ 869 gmt = *gmt_ptr; 870 } 871 872 if (! (tm = localtime (&nowtime))) 873 return -1; 874 875 if (gmt_ptr != NULL) 876 tzoff = difftm (&gmt, tm) / 60; 877 else 878 /* We are on a system like VMS, where the system clock is 879 in local time and the system has no concept of timezones. 880 Hopefully we can fake this out (for the case in which the 881 user specifies no timezone) by just saying the timezone 882 is zero. */ 883 tzoff = 0; 884 885 if(tm->tm_isdst) 886 tzoff += 60; 887 888 tm = localtime(&nowtime); 889 yyYear = tm->tm_year + 1900; 890 yyMonth = tm->tm_mon + 1; 891 yyDay = tm->tm_mday; 892 yyTimezone = tzoff; 893 yyDSTmode = DSTmaybe; 894 yyHour = 0; 895 yyMinutes = 0; 896 yySeconds = 0; 897 yyMeridian = MER24; 898 yyRelSeconds = 0; 899 yyRelMonth = 0; 900 yyHaveDate = 0; 901 yyHaveDay = 0; 902 yyHaveRel = 0; 903 yyHaveTime = 0; 904 yyHaveZone = 0; 905 906 if (yyparse() 907 || yyHaveTime > 1 || yyHaveZone > 1 || yyHaveDate > 1 || yyHaveDay > 1) 908 return -1; 909 910 if (yyHaveDate || yyHaveTime || yyHaveDay) { 911 Start = Convert(yyMonth, yyDay, yyYear, yyHour, yyMinutes, yySeconds, 912 yyMeridian, yyDSTmode); 913 if (Start < 0) 914 return -1; 915 } 916 else { 917 Start = nowtime; 918 if (!yyHaveRel) 919 Start -= ((tm->tm_hour * 60L + tm->tm_min) * 60L) + tm->tm_sec; 920 } 921 922 Start += yyRelSeconds; 923 Start += RelativeMonth(Start, yyRelMonth); 924 925 if (yyHaveDay && !yyHaveDate) { 926 tod = RelativeDate(Start, yyDayOrdinal, yyDayNumber); 927 Start += tod; 928 } 929 930 /* Have to do *something* with a legitimate -1 so it's distinguishable 931 * from the error return value. (Alternately could set errno on error.) */ 932 return Start == -1 ? 0 : Start; 933 } 934 935 936 #if defined(TEST) 937 938 /* ARGSUSED */ 939 int 940 main(int ac, char *av[]) 941 { 942 char buff[128]; 943 time_t d; 944 945 (void)printf("Enter date, or blank line to exit.\n\t> "); 946 (void)fflush(stdout); 947 while (gets(buff) && buff[0]) { 948 d = get_date(buff); 949 if (d == -1) 950 (void)printf("Bad format - couldn't convert.\n"); 951 else 952 (void)printf("%s", ctime(&d)); 953 (void)printf("\t> "); 954 (void)fflush(stdout); 955 } 956 exit(0); 957 /* NOTREACHED */ 958 } 959 #endif /* defined(TEST) */ 960