1 /* 2 ** Based on the UCB version with the copyright notice and sccsid 3 ** appearing below. 4 ** 5 ** This is ANSIish only when "multibyte character == plain character". 6 */ 7 8 #include "private.h" 9 10 /* 11 ** Copyright (c) 1989 The Regents of the University of California. 12 ** All rights reserved. 13 ** 14 ** Redistribution and use in source and binary forms are permitted 15 ** provided that the above copyright notice and this paragraph are 16 ** duplicated in all such forms and that any documentation, 17 ** advertising materials, and other materials related to such 18 ** distribution and use acknowledge that the software was developed 19 ** by the University of California, Berkeley. The name of the 20 ** University may not be used to endorse or promote products derived 21 ** from this software without specific prior written permission. 22 ** THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR 23 ** IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 24 ** WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. 25 */ 26 27 #include "tzfile.h" 28 #include "fcntl.h" 29 #include "locale.h" 30 31 #if __ANDROID__ 32 33 /* LP32 had a 32-bit time_t, so we need to work around that here. */ 34 #if defined(__LP64__) 35 #define time64_t time_t 36 #define mktime64 mktime 37 #else 38 #include <time64.h> 39 #endif 40 41 #include <ctype.h> 42 43 #endif 44 45 struct lc_time_T { 46 const char * mon[MONSPERYEAR]; 47 const char * month[MONSPERYEAR]; 48 const char * wday[DAYSPERWEEK]; 49 const char * weekday[DAYSPERWEEK]; 50 const char * X_fmt; 51 const char * x_fmt; 52 const char * c_fmt; 53 const char * am; 54 const char * pm; 55 const char * date_fmt; 56 }; 57 58 #define Locale (&C_time_locale) 59 60 static const struct lc_time_T C_time_locale = { 61 { 62 "Jan", "Feb", "Mar", "Apr", "May", "Jun", 63 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" 64 }, { 65 "January", "February", "March", "April", "May", "June", 66 "July", "August", "September", "October", "November", "December" 67 }, { 68 "Sun", "Mon", "Tue", "Wed", 69 "Thu", "Fri", "Sat" 70 }, { 71 "Sunday", "Monday", "Tuesday", "Wednesday", 72 "Thursday", "Friday", "Saturday" 73 }, 74 75 /* X_fmt */ 76 "%H:%M:%S", 77 78 /* 79 ** x_fmt 80 ** C99 requires this format. 81 ** Using just numbers (as here) makes Quakers happier; 82 ** it's also compatible with SVR4. 83 */ 84 "%m/%d/%y", 85 86 /* 87 ** c_fmt 88 ** C99 requires this format. 89 ** Previously this code used "%D %X", but we now conform to C99. 90 ** Note that 91 ** "%a %b %d %H:%M:%S %Y" 92 ** is used by Solaris 2.3. 93 */ 94 "%a %b %e %T %Y", 95 96 /* am */ 97 "AM", 98 99 /* pm */ 100 "PM", 101 102 /* date_fmt */ 103 "%a %b %e %H:%M:%S %Z %Y" 104 }; 105 106 static char * _add(const char *, char *, const char *, int); 107 static char * _conv(int, const char *, char *, const char *); 108 static char * _fmt(const char *, const struct tm *, char *, const char *, 109 int *); 110 static char * _yconv(int, int, bool, bool, char *, const char *, int); 111 static char * getformat(int, char *, char *, char *, char *); 112 113 extern char * tzname[]; 114 115 #ifndef YEAR_2000_NAME 116 #define YEAR_2000_NAME "CHECK_STRFTIME_FORMATS_FOR_TWO_DIGIT_YEARS" 117 #endif /* !defined YEAR_2000_NAME */ 118 119 #define IN_NONE 0 120 #define IN_SOME 1 121 #define IN_THIS 2 122 #define IN_ALL 3 123 124 #define FORCE_LOWER_CASE 0x100 125 126 size_t strftime(char * s,size_t maxsize,const char * format,const struct tm * t)127 strftime(char *s, size_t maxsize, const char *format, const struct tm *t) 128 { 129 char * p; 130 int warn; 131 132 tzset(); 133 warn = IN_NONE; 134 p = _fmt(((format == NULL) ? "%c" : format), t, s, s + maxsize, &warn); 135 #ifndef NO_RUN_TIME_WARNINGS_ABOUT_YEAR_2000_PROBLEMS_THANK_YOU 136 if (warn != IN_NONE && getenv(YEAR_2000_NAME) != NULL) { 137 fprintf(stderr, "\n"); 138 if (format == NULL) 139 fprintf(stderr, "NULL strftime format "); 140 else fprintf(stderr, "strftime format \"%s\" ", 141 format); 142 fprintf(stderr, "yields only two digits of years in "); 143 if (warn == IN_SOME) 144 fprintf(stderr, "some locales"); 145 else if (warn == IN_THIS) 146 fprintf(stderr, "the current locale"); 147 else fprintf(stderr, "all locales"); 148 fprintf(stderr, "\n"); 149 } 150 #endif /* !defined NO_RUN_TIME_WARNINGS_ABOUT_YEAR_2000_PROBLEMS_THANK_YOU */ 151 if (p == s + maxsize) 152 return 0; 153 *p = '\0'; 154 return p - s; 155 } 156 getformat(int modifier,char * normal,char * underscore,char * dash,char * zero)157 static char *getformat(int modifier, char *normal, char *underscore, 158 char *dash, char *zero) { 159 switch (modifier) { 160 case '_': 161 return underscore; 162 case '-': 163 return dash; 164 case '0': 165 return zero; 166 } 167 return normal; 168 } 169 170 static char * _fmt(const char * format,const struct tm * t,char * pt,const char * ptlim,int * warnp)171 _fmt(const char *format, const struct tm *t, char *pt, 172 const char *ptlim, int *warnp) 173 { 174 for ( ; *format; ++format) { 175 if (*format == '%') { 176 int modifier = 0; 177 label: 178 switch (*++format) { 179 case '\0': 180 --format; 181 break; 182 case 'A': 183 pt = _add((t->tm_wday < 0 || 184 t->tm_wday >= DAYSPERWEEK) ? 185 "?" : Locale->weekday[t->tm_wday], 186 pt, ptlim, modifier); 187 continue; 188 case 'a': 189 pt = _add((t->tm_wday < 0 || 190 t->tm_wday >= DAYSPERWEEK) ? 191 "?" : Locale->wday[t->tm_wday], 192 pt, ptlim, modifier); 193 continue; 194 case 'B': 195 pt = _add((t->tm_mon < 0 || 196 t->tm_mon >= MONSPERYEAR) ? 197 "?" : Locale->month[t->tm_mon], 198 pt, ptlim, modifier); 199 continue; 200 case 'b': 201 case 'h': 202 pt = _add((t->tm_mon < 0 || 203 t->tm_mon >= MONSPERYEAR) ? 204 "?" : Locale->mon[t->tm_mon], 205 pt, ptlim, modifier); 206 continue; 207 case 'C': 208 /* 209 ** %C used to do a... 210 ** _fmt("%a %b %e %X %Y", t); 211 ** ...whereas now POSIX 1003.2 calls for 212 ** something completely different. 213 ** (ado, 1993-05-24) 214 */ 215 pt = _yconv(t->tm_year, TM_YEAR_BASE, 216 true, false, pt, ptlim, modifier); 217 continue; 218 case 'c': 219 { 220 int warn2 = IN_SOME; 221 222 pt = _fmt(Locale->c_fmt, t, pt, ptlim, &warn2); 223 if (warn2 == IN_ALL) 224 warn2 = IN_THIS; 225 if (warn2 > *warnp) 226 *warnp = warn2; 227 } 228 continue; 229 case 'D': 230 pt = _fmt("%m/%d/%y", t, pt, ptlim, warnp); 231 continue; 232 case 'd': 233 pt = _conv(t->tm_mday, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 234 continue; 235 case 'E': 236 case 'O': 237 /* 238 ** C99 locale modifiers. 239 ** The sequences 240 ** %Ec %EC %Ex %EX %Ey %EY 241 ** %Od %oe %OH %OI %Om %OM 242 ** %OS %Ou %OU %OV %Ow %OW %Oy 243 ** are supposed to provide alternate 244 ** representations. 245 */ 246 goto label; 247 case '_': 248 case '-': 249 case '0': 250 case '^': 251 case '#': 252 modifier = *format; 253 goto label; 254 case 'e': 255 pt = _conv(t->tm_mday, getformat(modifier, "%2d", "%2d", "%d", "%02d"), pt, ptlim); 256 continue; 257 case 'F': 258 pt = _fmt("%Y-%m-%d", t, pt, ptlim, warnp); 259 continue; 260 case 'H': 261 pt = _conv(t->tm_hour, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 262 continue; 263 case 'I': 264 pt = _conv((t->tm_hour % 12) ? 265 (t->tm_hour % 12) : 12, 266 getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 267 continue; 268 case 'j': 269 pt = _conv(t->tm_yday + 1, getformat(modifier, "%03d", "%3d", "%d", "%03d"), pt, ptlim); 270 continue; 271 case 'k': 272 /* 273 ** This used to be... 274 ** _conv(t->tm_hour % 12 ? 275 ** t->tm_hour % 12 : 12, 2, ' '); 276 ** ...and has been changed to the below to 277 ** match SunOS 4.1.1 and Arnold Robbins' 278 ** strftime version 3.0. That is, "%k" and 279 ** "%l" have been swapped. 280 ** (ado, 1993-05-24) 281 */ 282 pt = _conv(t->tm_hour, getformat(modifier, "%2d", "%2d", "%d", "%02d"), pt, ptlim); 283 continue; 284 #ifdef KITCHEN_SINK 285 case 'K': 286 /* 287 ** After all this time, still unclaimed! 288 */ 289 pt = _add("kitchen sink", pt, ptlim); 290 continue; 291 #endif /* defined KITCHEN_SINK */ 292 case 'l': 293 /* 294 ** This used to be... 295 ** _conv(t->tm_hour, 2, ' '); 296 ** ...and has been changed to the below to 297 ** match SunOS 4.1.1 and Arnold Robbin's 298 ** strftime version 3.0. That is, "%k" and 299 ** "%l" have been swapped. 300 ** (ado, 1993-05-24) 301 */ 302 pt = _conv((t->tm_hour % 12) ? 303 (t->tm_hour % 12) : 12, 304 getformat(modifier, "%2d", "%2d", "%d", "%02d"), pt, ptlim); 305 continue; 306 case 'M': 307 pt = _conv(t->tm_min, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 308 continue; 309 case 'm': 310 pt = _conv(t->tm_mon + 1, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 311 continue; 312 case 'n': 313 pt = _add("\n", pt, ptlim, modifier); 314 continue; 315 case 'P': 316 case 'p': 317 pt = _add((t->tm_hour >= (HOURSPERDAY / 2)) ? 318 Locale->pm : 319 Locale->am, 320 pt, ptlim, (*format == 'P') ? FORCE_LOWER_CASE : modifier); 321 continue; 322 case 'R': 323 pt = _fmt("%H:%M", t, pt, ptlim, warnp); 324 continue; 325 case 'r': 326 pt = _fmt("%I:%M:%S %p", t, pt, ptlim, warnp); 327 continue; 328 case 'S': 329 pt = _conv(t->tm_sec, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 330 continue; 331 case 's': 332 { 333 struct tm tm; 334 char buf[INT_STRLEN_MAXIMUM( 335 time64_t) + 1]; 336 time64_t mkt; 337 338 tm = *t; 339 mkt = mktime64(&tm); 340 if (TYPE_SIGNED(time64_t)) 341 snprintf(buf, sizeof(buf), "%"PRIdMAX, 342 (intmax_t) mkt); 343 else snprintf(buf, sizeof(buf), "%"PRIuMAX, 344 (uintmax_t) mkt); 345 pt = _add(buf, pt, ptlim, modifier); 346 } 347 continue; 348 case 'T': 349 pt = _fmt("%H:%M:%S", t, pt, ptlim, warnp); 350 continue; 351 case 't': 352 pt = _add("\t", pt, ptlim, modifier); 353 continue; 354 case 'U': 355 pt = _conv((t->tm_yday + DAYSPERWEEK - 356 t->tm_wday) / DAYSPERWEEK, 357 getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 358 continue; 359 case 'u': 360 /* 361 ** From Arnold Robbins' strftime version 3.0: 362 ** "ISO 8601: Weekday as a decimal number 363 ** [1 (Monday) - 7]" 364 ** (ado, 1993-05-24) 365 */ 366 pt = _conv((t->tm_wday == 0) ? 367 DAYSPERWEEK : t->tm_wday, 368 "%d", pt, ptlim); 369 continue; 370 case 'V': /* ISO 8601 week number */ 371 case 'G': /* ISO 8601 year (four digits) */ 372 case 'g': /* ISO 8601 year (two digits) */ 373 /* 374 ** From Arnold Robbins' strftime version 3.0: "the week number of the 375 ** year (the first Monday as the first day of week 1) as a decimal number 376 ** (01-53)." 377 ** (ado, 1993-05-24) 378 ** 379 ** From <http://www.ft.uni-erlangen.de/~mskuhn/iso-time.html> by Markus Kuhn: 380 ** "Week 01 of a year is per definition the first week which has the 381 ** Thursday in this year, which is equivalent to the week which contains 382 ** the fourth day of January. In other words, the first week of a new year 383 ** is the week which has the majority of its days in the new year. Week 01 384 ** might also contain days from the previous year and the week before week 385 ** 01 of a year is the last week (52 or 53) of the previous year even if 386 ** it contains days from the new year. A week starts with Monday (day 1) 387 ** and ends with Sunday (day 7). For example, the first week of the year 388 ** 1997 lasts from 1996-12-30 to 1997-01-05..." 389 ** (ado, 1996-01-02) 390 */ 391 { 392 int year; 393 int base; 394 int yday; 395 int wday; 396 int w; 397 398 year = t->tm_year; 399 base = TM_YEAR_BASE; 400 yday = t->tm_yday; 401 wday = t->tm_wday; 402 for ( ; ; ) { 403 int len; 404 int bot; 405 int top; 406 407 len = isleap_sum(year, base) ? 408 DAYSPERLYEAR : 409 DAYSPERNYEAR; 410 /* 411 ** What yday (-3 ... 3) does 412 ** the ISO year begin on? 413 */ 414 bot = ((yday + 11 - wday) % 415 DAYSPERWEEK) - 3; 416 /* 417 ** What yday does the NEXT 418 ** ISO year begin on? 419 */ 420 top = bot - 421 (len % DAYSPERWEEK); 422 if (top < -3) 423 top += DAYSPERWEEK; 424 top += len; 425 if (yday >= top) { 426 ++base; 427 w = 1; 428 break; 429 } 430 if (yday >= bot) { 431 w = 1 + ((yday - bot) / 432 DAYSPERWEEK); 433 break; 434 } 435 --base; 436 yday += isleap_sum(year, base) ? 437 DAYSPERLYEAR : 438 DAYSPERNYEAR; 439 } 440 #ifdef XPG4_1994_04_09 441 if ((w == 52 && 442 t->tm_mon == TM_JANUARY) || 443 (w == 1 && 444 t->tm_mon == TM_DECEMBER)) 445 w = 53; 446 #endif /* defined XPG4_1994_04_09 */ 447 if (*format == 'V') 448 pt = _conv(w, getformat(modifier, "%02d", "%2d", "%d", "%02d"), 449 pt, ptlim); 450 else if (*format == 'g') { 451 *warnp = IN_ALL; 452 pt = _yconv(year, base, 453 false, true, 454 pt, ptlim, modifier); 455 } else pt = _yconv(year, base, 456 true, true, 457 pt, ptlim, modifier); 458 } 459 continue; 460 case 'v': 461 /* 462 ** From Arnold Robbins' strftime version 3.0: 463 ** "date as dd-bbb-YYYY" 464 ** (ado, 1993-05-24) 465 */ 466 pt = _fmt("%e-%b-%Y", t, pt, ptlim, warnp); 467 continue; 468 case 'W': 469 pt = _conv((t->tm_yday + DAYSPERWEEK - 470 (t->tm_wday ? 471 (t->tm_wday - 1) : 472 (DAYSPERWEEK - 1))) / DAYSPERWEEK, 473 getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 474 continue; 475 case 'w': 476 pt = _conv(t->tm_wday, "%d", pt, ptlim); 477 continue; 478 case 'X': 479 pt = _fmt(Locale->X_fmt, t, pt, ptlim, warnp); 480 continue; 481 case 'x': 482 { 483 int warn2 = IN_SOME; 484 485 pt = _fmt(Locale->x_fmt, t, pt, ptlim, &warn2); 486 if (warn2 == IN_ALL) 487 warn2 = IN_THIS; 488 if (warn2 > *warnp) 489 *warnp = warn2; 490 } 491 continue; 492 case 'y': 493 *warnp = IN_ALL; 494 pt = _yconv(t->tm_year, TM_YEAR_BASE, 495 false, true, 496 pt, ptlim, modifier); 497 continue; 498 case 'Y': 499 pt = _yconv(t->tm_year, TM_YEAR_BASE, 500 true, true, 501 pt, ptlim, modifier); 502 continue; 503 case 'Z': 504 #ifdef TM_ZONE 505 // BEGIN: Android-changed. 506 { 507 const char* zone = t->TM_ZONE; 508 if (!zone || !*zone) { 509 // "The value of tm_isdst shall be positive if Daylight Savings Time is 510 // in effect, 0 if Daylight Savings Time is not in effect, and negative 511 // if the information is not available." 512 if (t->tm_isdst == 0) zone = tzname[0]; 513 else if (t->tm_isdst > 0) zone = tzname[1]; 514 515 // "Replaced by the timezone name or abbreviation, or by no bytes if no 516 // timezone information exists." 517 if (!zone || !*zone) zone = ""; 518 } 519 pt = _add(zone, pt, ptlim, modifier); 520 } 521 // END: Android-changed. 522 #else 523 if (t->tm_isdst >= 0) 524 pt = _add(tzname[t->tm_isdst != 0], 525 pt, ptlim); 526 #endif 527 /* 528 ** C99 says that %Z must be replaced by the 529 ** empty string if the time zone is not 530 ** determinable. 531 */ 532 continue; 533 case 'z': 534 { 535 long diff; 536 char const * sign; 537 538 if (t->tm_isdst < 0) 539 continue; 540 #ifdef TM_GMTOFF 541 diff = t->TM_GMTOFF; 542 #else /* !defined TM_GMTOFF */ 543 /* 544 ** C99 says that the UT offset must 545 ** be computed by looking only at 546 ** tm_isdst. This requirement is 547 ** incorrect, since it means the code 548 ** must rely on magic (in this case 549 ** altzone and timezone), and the 550 ** magic might not have the correct 551 ** offset. Doing things correctly is 552 ** tricky and requires disobeying C99; 553 ** see GNU C strftime for details. 554 ** For now, punt and conform to the 555 ** standard, even though it's incorrect. 556 ** 557 ** C99 says that %z must be replaced by the 558 ** empty string if the time zone is not 559 ** determinable, so output nothing if the 560 ** appropriate variables are not available. 561 */ 562 if (t->tm_isdst == 0) 563 #ifdef USG_COMPAT 564 diff = -timezone; 565 #else /* !defined USG_COMPAT */ 566 continue; 567 #endif /* !defined USG_COMPAT */ 568 else 569 #ifdef ALTZONE 570 diff = -altzone; 571 #else /* !defined ALTZONE */ 572 continue; 573 #endif /* !defined ALTZONE */ 574 #endif /* !defined TM_GMTOFF */ 575 if (diff < 0) { 576 sign = "-"; 577 diff = -diff; 578 } else sign = "+"; 579 pt = _add(sign, pt, ptlim, modifier); 580 diff /= SECSPERMIN; 581 diff = (diff / MINSPERHOUR) * 100 + 582 (diff % MINSPERHOUR); 583 pt = _conv(diff, getformat(modifier, "%04d", "%4d", "%d", "%04d"), pt, ptlim); 584 } 585 continue; 586 case '+': 587 pt = _fmt(Locale->date_fmt, t, pt, ptlim, 588 warnp); 589 continue; 590 case '%': 591 /* 592 ** X311J/88-090 (4.12.3.5): if conversion char is 593 ** undefined, behavior is undefined. Print out the 594 ** character itself as printf(3) also does. 595 */ 596 default: 597 break; 598 } 599 } 600 if (pt == ptlim) 601 break; 602 *pt++ = *format; 603 } 604 return pt; 605 } 606 607 static char * _conv(int n,const char * format,char * pt,const char * ptlim)608 _conv(int n, const char *format, char *pt, const char *ptlim) 609 { 610 char buf[INT_STRLEN_MAXIMUM(int) + 1]; 611 612 snprintf(buf, sizeof(buf), format, n); 613 return _add(buf, pt, ptlim, 0); 614 } 615 616 static char * _add(const char * str,char * pt,const char * const ptlim,int modifier)617 _add(const char *str, char *pt, const char *const ptlim, int modifier) 618 { 619 int c; 620 621 switch (modifier) { 622 case FORCE_LOWER_CASE: 623 while (pt < ptlim && (*pt = tolower(*str++)) != '\0') { 624 ++pt; 625 } 626 break; 627 628 case '^': 629 while (pt < ptlim && (*pt = toupper(*str++)) != '\0') { 630 ++pt; 631 } 632 break; 633 634 case '#': 635 while (pt < ptlim && (c = *str++) != '\0') { 636 if (isupper(c)) { 637 c = tolower(c); 638 } else if (islower(c)) { 639 c = toupper(c); 640 } 641 *pt = c; 642 ++pt; 643 } 644 645 break; 646 647 default: 648 while (pt < ptlim && (*pt = *str++) != '\0') { 649 ++pt; 650 } 651 } 652 653 return pt; 654 } 655 656 /* 657 ** POSIX and the C Standard are unclear or inconsistent about 658 ** what %C and %y do if the year is negative or exceeds 9999. 659 ** Use the convention that %C concatenated with %y yields the 660 ** same output as %Y, and that %Y contains at least 4 bytes, 661 ** with more only if necessary. 662 */ 663 664 static char * _yconv(int a,int b,bool convert_top,bool convert_yy,char * pt,const char * ptlim,int modifier)665 _yconv(int a, int b, bool convert_top, bool convert_yy, 666 char *pt, const char *ptlim, int modifier) 667 { 668 register int lead; 669 register int trail; 670 671 #define DIVISOR 100 672 trail = a % DIVISOR + b % DIVISOR; 673 lead = a / DIVISOR + b / DIVISOR + trail / DIVISOR; 674 trail %= DIVISOR; 675 if (trail < 0 && lead > 0) { 676 trail += DIVISOR; 677 --lead; 678 } else if (lead < 0 && trail > 0) { 679 trail -= DIVISOR; 680 ++lead; 681 } 682 if (convert_top) { 683 if (lead == 0 && trail < 0) 684 pt = _add("-0", pt, ptlim, modifier); 685 else pt = _conv(lead, getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 686 } 687 if (convert_yy) 688 pt = _conv(((trail < 0) ? -trail : trail), getformat(modifier, "%02d", "%2d", "%d", "%02d"), pt, ptlim); 689 return pt; 690 } 691