*** empty log message ***
[emacs.git] / src / strftime.c
blobf46b40f232acdc3b879b67701a646b962534d0f4
1 /* Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
2 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 NOTE: The canonical source of this file is maintained with gnulib.
5 Bugs can be reported to bug-gnulib@gnu.org.
7 This file is part of the GNU Emacs.
9 This program is free software; you can redistribute it and/or
10 modify it under the terms of the GNU Library General Public License
11 as published by the Free Software Foundation; either version 2, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 Library General Public License for more details.
19 You should have received a copy of the GNU Library General Public
20 License along with the GNU C Library; see the file COPYING.LIB. If not,
21 write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
24 #ifdef HAVE_CONFIG_H
25 # include <config.h>
26 #endif
28 #ifdef _LIBC
29 # define HAVE_LIMITS_H 1
30 # define HAVE_MBLEN 1
31 # define HAVE_MBRLEN 1
32 # define HAVE_STRUCT_ERA_ENTRY 1
33 # define HAVE_TM_GMTOFF 1
34 # define HAVE_TM_ZONE 1
35 # define HAVE_TZNAME 1
36 # define HAVE_TZSET 1
37 # define MULTIBYTE_IS_FORMAT_SAFE 1
38 # define STDC_HEADERS 1
39 # include "../locale/localeinfo.h"
40 #endif
42 #include <ctype.h>
43 #include <sys/types.h> /* Some systems define `time_t' here. */
45 #ifdef TIME_WITH_SYS_TIME
46 # include <sys/time.h>
47 # include <time.h>
48 #else
49 # ifdef HAVE_SYS_TIME_H
50 # include <sys/time.h>
51 # else
52 # include <time.h>
53 # endif
54 #endif
55 #if HAVE_TZNAME
56 #ifndef USE_CRT_DLL
57 extern char *tzname[];
58 #endif
59 #endif
61 /* Do multibyte processing if multibytes are supported, unless
62 multibyte sequences are safe in formats. Multibyte sequences are
63 safe if they cannot contain byte sequences that look like format
64 conversion specifications. The GNU C Library uses UTF8 multibyte
65 encoding, which is safe for formats, but strftime.c can be used
66 with other C libraries that use unsafe encodings. */
67 #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)
69 #if DO_MULTIBYTE
70 # if HAVE_MBRLEN
71 # include <wchar.h>
72 # ifdef HAVE_SYS__MBSTATE_H /* previously tested __hpux */
73 # include <sys/_mbstate_t.h>
74 # endif
75 # if !defined (mbsinit) && !defined (HAVE_MBSINIT)
76 # define mbsinit(ps) 1
77 # endif /* !defined (mbsinit) && !defined (HAVE_MBSINIT) */
78 # else
79 /* Simulate mbrlen with mblen as best we can. */
80 # define mbstate_t int
81 # define mbrlen(s, n, ps) mblen (s, n)
82 # define mbsinit(ps) (*(ps) == 0)
83 # endif
84 static const mbstate_t mbstate_zero;
85 #endif
87 #ifdef HAVE_LIMITS_H
88 # include <limits.h>
89 #endif
91 #ifdef STDC_HEADERS
92 # include <stddef.h>
93 # include <stdlib.h>
94 # include <string.h>
95 #else
96 # ifndef HAVE_MEMCPY
97 # define memcpy(d, s, n) bcopy ((s), (d), (n))
98 # endif
99 #endif
101 #ifdef COMPILE_WIDE
102 # include <endian.h>
103 # define CHAR_T wchar_t
104 # define UCHAR_T unsigned int
105 # define L_(Str) L##Str
106 # define NLW(Sym) _NL_W##Sym
108 # define MEMCPY(d, s, n) __wmemcpy (d, s, n)
109 # define STRLEN(s) __wcslen (s)
111 #else
112 # define CHAR_T char
113 # define UCHAR_T unsigned char
114 # define L_(Str) Str
115 # define NLW(Sym) Sym
117 # if !defined STDC_HEADERS && !defined HAVE_MEMCPY
118 # define MEMCPY(d, s, n) bcopy ((s), (d), (n))
119 # else
120 # define MEMCPY(d, s, n) memcpy ((d), (s), (n))
121 # endif
122 # define STRLEN(s) strlen (s)
124 # ifdef _LIBC
125 # define MEMPCPY(d, s, n) __mempcpy (d, s, n)
126 # else
127 # ifndef HAVE_MEMPCPY
128 # define MEMPCPY(d, s, n) ((void *) ((char *) memcpy (d, s, n) + (n)))
129 # endif
130 # endif
131 #endif
133 #ifndef __P
134 # if defined __GNUC__ || (defined __STDC__ && __STDC__) || defined (PROTOTYPES)
135 # define __P(args) args
136 # else
137 # define __P(args) ()
138 # endif /* GCC. */
139 #endif /* Not __P. */
141 #ifndef PTR
142 # ifdef __STDC__
143 # define PTR void *
144 # else
145 # define PTR char *
146 # endif
147 #endif
149 #ifndef CHAR_BIT
150 # define CHAR_BIT 8
151 #endif
153 #ifndef NULL
154 # define NULL 0
155 #endif
157 #define TYPE_SIGNED(t) ((t) -1 < 0)
159 /* Bound on length of the string representing an integer value of type t.
160 Subtract one for the sign bit if t is signed;
161 302 / 1000 is log10 (2) rounded up;
162 add one for integer division truncation;
163 add one more for a minus sign if t is signed. */
164 #define INT_STRLEN_BOUND(t) \
165 ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 + 1 + TYPE_SIGNED (t))
167 #define TM_YEAR_BASE 1900
169 #ifndef __isleap
170 /* Nonzero if YEAR is a leap year (every 4 years,
171 except every 100th isn't, and every 400th is). */
172 # define __isleap(year) \
173 ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
174 #endif
177 #ifdef _LIBC
178 # define my_strftime_gmtime_r __gmtime_r
179 # define my_strftime_localtime_r __localtime_r
180 # define tzname __tzname
181 # define tzset __tzset
182 #else
184 /* If we're a strftime substitute in a GNU program, then prefer gmtime
185 to gmtime_r, since many gmtime_r implementations are buggy.
186 Similarly for localtime_r. */
188 # if ! HAVE_TM_GMTOFF
189 static struct tm *my_strftime_gmtime_r __P ((const time_t *, struct tm *));
190 static struct tm *
191 my_strftime_gmtime_r (t, tp)
192 const time_t *t;
193 struct tm *tp;
195 struct tm *l = gmtime (t);
196 if (! l)
197 return 0;
198 *tp = *l;
199 return tp;
202 static struct tm *my_strftime_localtime_r __P ((const time_t *, struct tm *));
203 static struct tm *
204 my_strftime_localtime_r (t, tp)
205 const time_t *t;
206 struct tm *tp;
208 struct tm *l = localtime (t);
209 if (! l)
210 return 0;
211 *tp = *l;
212 return tp;
214 # endif /* ! HAVE_TM_GMTOFF */
215 #endif /* ! defined _LIBC */
218 #if !defined memset && !defined HAVE_MEMSET && !defined _LIBC
219 /* Some systems lack the `memset' function and we don't want to
220 introduce additional dependencies. */
221 /* The SGI compiler reportedly barfs on the trailing null
222 if we use a string constant as the initializer. 28 June 1997, rms. */
223 static const CHAR_T spaces[16] = /* " " */
225 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),
226 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' ')
228 static const CHAR_T zeroes[16] = /* "0000000000000000" */
230 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),
231 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0')
234 # define memset_space(P, Len) \
235 do { \
236 int _len = (Len); \
238 do \
240 int _this = _len > 16 ? 16 : _len; \
241 (P) = MEMPCPY ((P), spaces, _this * sizeof (CHAR_T)); \
242 _len -= _this; \
244 while (_len > 0); \
245 } while (0)
247 # define memset_zero(P, Len) \
248 do { \
249 int _len = (Len); \
251 do \
253 int _this = _len > 16 ? 16 : _len; \
254 (P) = MEMPCPY ((P), zeroes, _this * sizeof (CHAR_T)); \
255 _len -= _this; \
257 while (_len > 0); \
258 } while (0)
259 #else
260 # ifdef COMPILE_WIDE
261 # define memset_space(P, Len) (wmemset ((P), L' ', (Len)), (P) += (Len))
262 # define memset_zero(P, Len) (wmemset ((P), L'0', (Len)), (P) += (Len))
263 # else
264 # define memset_space(P, Len) (memset ((P), ' ', (Len)), (P) += (Len))
265 # define memset_zero(P, Len) (memset ((P), '0', (Len)), (P) += (Len))
266 # endif
267 #endif
269 #define add(n, f) \
270 do \
272 int _n = (n); \
273 int _delta = width - _n; \
274 int _incr = _n + (_delta > 0 ? _delta : 0); \
275 if ((size_t) _incr >= maxsize - i) \
276 return 0; \
277 if (p) \
279 if (_delta > 0) \
281 if (pad == L_('0')) \
282 memset_zero (p, _delta); \
283 else \
284 memset_space (p, _delta); \
286 f; \
287 p += _n; \
289 i += _incr; \
290 } while (0)
292 #define cpy(n, s) \
293 add ((n), \
294 if (to_lowcase) \
295 memcpy_lowcase (p, (s), _n LOCALE_ARG); \
296 else if (to_uppcase) \
297 memcpy_uppcase (p, (s), _n LOCALE_ARG); \
298 else \
299 MEMCPY ((PTR) p, (const PTR) (s), _n))
301 #ifdef COMPILE_WIDE
302 # ifndef USE_IN_EXTENDED_LOCALE_MODEL
303 # undef __mbsrtowcs_l
304 # define __mbsrtowcs_l(d, s, l, st, loc) __mbsrtowcs (d, s, l, st)
305 # endif
306 # define widen(os, ws, l) \
308 mbstate_t __st; \
309 const char *__s = os; \
310 memset (&__st, '\0', sizeof (__st)); \
311 l = __mbsrtowcs_l (NULL, &__s, 0, &__st, loc); \
312 ws = (wchar_t *) alloca ((l + 1) * sizeof (wchar_t)); \
313 (void) __mbsrtowcs_l (ws, &__s, l, &__st, loc); \
315 #endif
318 #if defined _LIBC && defined USE_IN_EXTENDED_LOCALE_MODEL
319 /* We use this code also for the extended locale handling where the
320 function gets as an additional argument the locale which has to be
321 used. To access the values we have to redefine the _NL_CURRENT
322 macro. */
323 # define strftime __strftime_l
324 # define wcsftime __wcsftime_l
325 # undef _NL_CURRENT
326 # define _NL_CURRENT(category, item) \
327 (current->values[_NL_ITEM_INDEX (item)].string)
328 # define LOCALE_PARAM , loc
329 # define LOCALE_ARG , loc
330 # define LOCALE_PARAM_DECL __locale_t loc;
331 # define LOCALE_PARAM_PROTO , __locale_t loc
332 # define HELPER_LOCALE_ARG , current
333 #else
334 # define LOCALE_PARAM
335 # define LOCALE_PARAM_PROTO
336 # define LOCALE_ARG
337 # define LOCALE_PARAM_DECL
338 # ifdef _LIBC
339 # define HELPER_LOCALE_ARG , _NL_CURRENT_DATA (LC_TIME)
340 # else
341 # define HELPER_LOCALE_ARG
342 # endif
343 #endif
345 #ifdef COMPILE_WIDE
346 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
347 # define TOUPPER(Ch, L) __towupper_l (Ch, L)
348 # define TOLOWER(Ch, L) __towlower_l (Ch, L)
349 # else
350 # define TOUPPER(Ch, L) towupper (Ch)
351 # define TOLOWER(Ch, L) towlower (Ch)
352 # endif
353 #else
354 # ifdef _LIBC
355 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
356 # define TOUPPER(Ch, L) __toupper_l (Ch, L)
357 # define TOLOWER(Ch, L) __tolower_l (Ch, L)
358 # else
359 # define TOUPPER(Ch, L) toupper (Ch)
360 # define TOLOWER(Ch, L) tolower (Ch)
361 # endif
362 # else
363 # define TOUPPER(Ch, L) (islower (Ch) ? toupper (Ch) : (Ch))
364 # define TOLOWER(Ch, L) (isupper (Ch) ? tolower (Ch) : (Ch))
365 # endif
366 #endif
367 /* We don't use `isdigit' here since the locale dependent
368 interpretation is not what we want here. We only need to accept
369 the arabic digits in the ASCII range. One day there is perhaps a
370 more reliable way to accept other sets of digits. */
371 #define ISDIGIT(Ch) ((unsigned int) (Ch) - L_('0') <= 9)
373 static CHAR_T *memcpy_lowcase __P ((CHAR_T *dest, const CHAR_T *src,
374 size_t len LOCALE_PARAM_PROTO));
376 static CHAR_T *
377 memcpy_lowcase (dest, src, len LOCALE_PARAM)
378 CHAR_T *dest;
379 const CHAR_T *src;
380 size_t len;
381 LOCALE_PARAM_DECL
383 while (len-- > 0)
384 dest[len] = TOLOWER ((UCHAR_T) src[len], loc);
385 return dest;
388 static CHAR_T *memcpy_uppcase __P ((CHAR_T *dest, const CHAR_T *src,
389 size_t len LOCALE_PARAM_PROTO));
391 static CHAR_T *
392 memcpy_uppcase (dest, src, len LOCALE_PARAM)
393 CHAR_T *dest;
394 const CHAR_T *src;
395 size_t len;
396 LOCALE_PARAM_DECL
398 while (len-- > 0)
399 dest[len] = TOUPPER ((UCHAR_T) src[len], loc);
400 return dest;
404 #if ! HAVE_TM_GMTOFF
405 /* Yield the difference between *A and *B,
406 measured in seconds, ignoring leap seconds. */
407 # define tm_diff ftime_tm_diff
408 static int tm_diff __P ((const struct tm *, const struct tm *));
409 static int
410 tm_diff (a, b)
411 const struct tm *a;
412 const struct tm *b;
414 /* Compute intervening leap days correctly even if year is negative.
415 Take care to avoid int overflow in leap day calculations,
416 but it's OK to assume that A and B are close to each other. */
417 int a4 = (a->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (a->tm_year & 3);
418 int b4 = (b->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (b->tm_year & 3);
419 int a100 = a4 / 25 - (a4 % 25 < 0);
420 int b100 = b4 / 25 - (b4 % 25 < 0);
421 int a400 = a100 >> 2;
422 int b400 = b100 >> 2;
423 int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400);
424 int years = a->tm_year - b->tm_year;
425 int days = (365 * years + intervening_leap_days
426 + (a->tm_yday - b->tm_yday));
427 return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour))
428 + (a->tm_min - b->tm_min))
429 + (a->tm_sec - b->tm_sec));
431 #endif /* ! HAVE_TM_GMTOFF */
435 /* The number of days from the first day of the first ISO week of this
436 year to the year day YDAY with week day WDAY. ISO weeks start on
437 Monday; the first ISO week has the year's first Thursday. YDAY may
438 be as small as YDAY_MINIMUM. */
439 #define ISO_WEEK_START_WDAY 1 /* Monday */
440 #define ISO_WEEK1_WDAY 4 /* Thursday */
441 #define YDAY_MINIMUM (-366)
442 static int iso_week_days __P ((int, int));
443 #ifdef __GNUC__
444 __inline__
445 #endif
446 static int
447 iso_week_days (yday, wday)
448 int yday;
449 int wday;
451 /* Add enough to the first operand of % to make it nonnegative. */
452 int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7;
453 return (yday
454 - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7
455 + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY);
459 #if !(defined _NL_CURRENT || HAVE_STRFTIME)
460 static CHAR_T const weekday_name[][10] =
462 L_("Sunday"), L_("Monday"), L_("Tuesday"), L_("Wednesday"),
463 L_("Thursday"), L_("Friday"), L_("Saturday")
465 static CHAR_T const month_name[][10] =
467 L_("January"), L_("February"), L_("March"), L_("April"), L_("May"),
468 L_("June"), L_("July"), L_("August"), L_("September"), L_("October"),
469 L_("November"), L_("December")
471 #endif
474 /* When compiling this file, GNU applications can #define my_strftime
475 to a symbol (typically nstrftime) to get an extended strftime with
476 extra arguments UT and NS. */
478 #ifdef my_strftime
479 # define extra_args , ut, ns
480 # define extra_args_spec int ut; int ns;
481 # define extra_args_spec_iso , int ut, int ns
482 #else
483 # ifdef COMPILE_WIDE
484 # define my_strftime wcsftime
485 # define nl_get_alt_digit _nl_get_walt_digit
486 # else
487 # define my_strftime strftime
488 # define nl_get_alt_digit _nl_get_alt_digit
489 # endif
490 # define extra_args
491 # define extra_args_spec
492 # define extra_args_spec_iso
493 /* We don't have this information in general. */
494 # define ut 0
495 # define ns 0
496 #endif
498 #if !defined _LIBC && !defined(WINDOWSNT) && HAVE_TZNAME && HAVE_TZSET
499 /* Solaris 2.5 tzset sometimes modifies the storage returned by localtime.
500 Work around this bug by copying *tp before it might be munged. */
501 size_t _strftime_copytm __P ((char *, size_t, const char *,
502 const struct tm * extra_args_spec_iso));
503 size_t
504 my_strftime (s, maxsize, format, tp extra_args)
505 CHAR_T *s;
506 size_t maxsize;
507 const CHAR_T *format;
508 const struct tm *tp;
509 extra_args_spec
511 struct tm tmcopy;
512 tmcopy = *tp;
513 return _strftime_copytm (s, maxsize, format, &tmcopy extra_args);
515 # undef my_strftime
516 # define my_strftime _strftime_copytm
517 #endif
520 /* Write information from TP into S according to the format
521 string FORMAT, writing no more that MAXSIZE characters
522 (including the terminating '\0') and returning number of
523 characters written. If S is NULL, nothing will be written
524 anywhere, so to determine how many characters would be
525 written, use NULL for S and (size_t) UINT_MAX for MAXSIZE. */
526 size_t
527 my_strftime (s, maxsize, format, tp extra_args LOCALE_PARAM)
528 CHAR_T *s;
529 size_t maxsize;
530 const CHAR_T *format;
531 const struct tm *tp;
532 extra_args_spec
533 LOCALE_PARAM_DECL
535 #if defined _LIBC && defined USE_IN_EXTENDED_LOCALE_MODEL
536 struct locale_data *const current = loc->__locales[LC_TIME];
537 #endif
539 int hour12 = tp->tm_hour;
540 #ifdef _NL_CURRENT
541 /* We cannot make the following values variables since we must delay
542 the evaluation of these values until really needed since some
543 expressions might not be valid in every situation. The `struct tm'
544 might be generated by a strptime() call that initialized
545 only a few elements. Dereference the pointers only if the format
546 requires this. Then it is ok to fail if the pointers are invalid. */
547 # define a_wkday \
548 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABDAY_1) + tp->tm_wday))
549 # define f_wkday \
550 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(DAY_1) + tp->tm_wday))
551 # define a_month \
552 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABMON_1) + tp->tm_mon))
553 # define f_month \
554 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(MON_1) + tp->tm_mon))
555 # define ampm \
556 ((const CHAR_T *) _NL_CURRENT (LC_TIME, tp->tm_hour > 11 \
557 ? NLW(PM_STR) : NLW(AM_STR)))
559 # define aw_len STRLEN (a_wkday)
560 # define am_len STRLEN (a_month)
561 # define ap_len STRLEN (ampm)
562 #else
563 # if !HAVE_STRFTIME
564 # define f_wkday (weekday_name[tp->tm_wday])
565 # define f_month (month_name[tp->tm_mon])
566 # define a_wkday f_wkday
567 # define a_month f_month
568 # define ampm (L_("AMPM") + 2 * (tp->tm_hour > 11))
570 size_t aw_len = 3;
571 size_t am_len = 3;
572 size_t ap_len = 2;
573 # endif
574 #endif
575 const char *zone;
576 size_t i = 0;
577 CHAR_T *p = s;
578 const CHAR_T *f;
579 #if DO_MULTIBYTE && !defined COMPILE_WIDE
580 const char *format_end = NULL;
581 #endif
583 zone = NULL;
584 #if HAVE_TM_ZONE
585 /* The POSIX test suite assumes that setting
586 the environment variable TZ to a new value before calling strftime()
587 will influence the result (the %Z format) even if the information in
588 TP is computed with a totally different time zone.
589 This is bogus: though POSIX allows bad behavior like this,
590 POSIX does not require it. Do the right thing instead. */
591 zone = (const char *) tp->tm_zone;
592 #endif
593 #if HAVE_TZNAME
594 if (ut)
596 if (! (zone && *zone))
597 zone = "GMT";
599 else
601 /* POSIX.1 requires that local time zone information be used as
602 though strftime called tzset. */
603 # if HAVE_TZSET
604 tzset ();
605 # endif
607 #endif
609 if (hour12 > 12)
610 hour12 -= 12;
611 else
612 if (hour12 == 0)
613 hour12 = 12;
615 for (f = format; *f != '\0'; ++f)
617 int pad = 0; /* Padding for number ('-', '_', or 0). */
618 int modifier; /* Field modifier ('E', 'O', or 0). */
619 int digits; /* Max digits for numeric format. */
620 int number_value; /* Numeric value to be printed. */
621 int negative_number; /* 1 if the number is negative. */
622 const CHAR_T *subfmt;
623 CHAR_T *bufp;
624 CHAR_T buf[1 + (sizeof (int) < sizeof (time_t)
625 ? INT_STRLEN_BOUND (time_t)
626 : INT_STRLEN_BOUND (int))];
627 int width = -1;
628 int to_lowcase = 0;
629 int to_uppcase = 0;
630 int change_case = 0;
631 int format_char;
633 #if DO_MULTIBYTE && !defined COMPILE_WIDE
634 switch (*f)
636 case L_('%'):
637 break;
639 case L_('\b'): case L_('\t'): case L_('\n'):
640 case L_('\v'): case L_('\f'): case L_('\r'):
641 case L_(' '): case L_('!'): case L_('"'): case L_('#'): case L_('&'):
642 case L_('\''): case L_('('): case L_(')'): case L_('*'): case L_('+'):
643 case L_(','): case L_('-'): case L_('.'): case L_('/'): case L_('0'):
644 case L_('1'): case L_('2'): case L_('3'): case L_('4'): case L_('5'):
645 case L_('6'): case L_('7'): case L_('8'): case L_('9'): case L_(':'):
646 case L_(';'): case L_('<'): case L_('='): case L_('>'): case L_('?'):
647 case L_('A'): case L_('B'): case L_('C'): case L_('D'): case L_('E'):
648 case L_('F'): case L_('G'): case L_('H'): case L_('I'): case L_('J'):
649 case L_('K'): case L_('L'): case L_('M'): case L_('N'): case L_('O'):
650 case L_('P'): case L_('Q'): case L_('R'): case L_('S'): case L_('T'):
651 case L_('U'): case L_('V'): case L_('W'): case L_('X'): case L_('Y'):
652 case L_('Z'): case L_('['): case L_('\\'): case L_(']'): case L_('^'):
653 case L_('_'): case L_('a'): case L_('b'): case L_('c'): case L_('d'):
654 case L_('e'): case L_('f'): case L_('g'): case L_('h'): case L_('i'):
655 case L_('j'): case L_('k'): case L_('l'): case L_('m'): case L_('n'):
656 case L_('o'): case L_('p'): case L_('q'): case L_('r'): case L_('s'):
657 case L_('t'): case L_('u'): case L_('v'): case L_('w'): case L_('x'):
658 case L_('y'): case L_('z'): case L_('{'): case L_('|'): case L_('}'):
659 case L_('~'):
660 /* The C Standard requires these 98 characters (plus '%') to
661 be in the basic execution character set. None of these
662 characters can start a multibyte sequence, so they need
663 not be analyzed further. */
664 add (1, *p = *f);
665 continue;
667 default:
668 /* Copy this multibyte sequence until we reach its end, find
669 an error, or come back to the initial shift state. */
671 mbstate_t mbstate = mbstate_zero;
672 size_t len = 0;
673 size_t fsize;
675 if (! format_end)
676 format_end = f + strlen (f) + 1;
677 fsize = format_end - f;
681 size_t bytes = mbrlen (f + len, fsize - len, &mbstate);
683 if (bytes == 0)
684 break;
686 if (bytes == (size_t) -2)
688 len += strlen (f + len);
689 break;
692 if (bytes == (size_t) -1)
694 len++;
695 break;
698 len += bytes;
700 while (! mbsinit (&mbstate));
702 cpy (len, f);
703 f += len - 1;
704 continue;
708 #else /* ! DO_MULTIBYTE */
710 /* Either multibyte encodings are not supported, they are
711 safe for formats, so any non-'%' byte can be copied through,
712 or this is the wide character version. */
713 if (*f != L_('%'))
715 add (1, *p = *f);
716 continue;
719 #endif /* ! DO_MULTIBYTE */
721 /* Check for flags that can modify a format. */
722 while (1)
724 switch (*++f)
726 /* This influences the number formats. */
727 case L_('_'):
728 case L_('-'):
729 case L_('0'):
730 pad = *f;
731 continue;
733 /* This changes textual output. */
734 case L_('^'):
735 to_uppcase = 1;
736 continue;
737 case L_('#'):
738 change_case = 1;
739 continue;
741 default:
742 break;
744 break;
747 /* As a GNU extension we allow to specify the field width. */
748 if (ISDIGIT (*f))
750 width = 0;
753 if (width > INT_MAX / 10
754 || (width == INT_MAX / 10 && *f - L_('0') > INT_MAX % 10))
755 /* Avoid overflow. */
756 width = INT_MAX;
757 else
759 width *= 10;
760 width += *f - L_('0');
762 ++f;
764 while (ISDIGIT (*f));
767 /* Check for modifiers. */
768 switch (*f)
770 case L_('E'):
771 case L_('O'):
772 modifier = *f++;
773 break;
775 default:
776 modifier = 0;
777 break;
780 /* Now do the specified format. */
781 format_char = *f;
782 switch (format_char)
784 #define DO_NUMBER(d, v) \
785 digits = d > width ? d : width; \
786 number_value = v; goto do_number
787 #define DO_NUMBER_SPACEPAD(d, v) \
788 digits = d > width ? d : width; \
789 number_value = v; goto do_number_spacepad
791 case L_('%'):
792 if (modifier != 0)
793 goto bad_format;
794 add (1, *p = *f);
795 break;
797 case L_('a'):
798 if (modifier != 0)
799 goto bad_format;
800 if (change_case)
802 to_uppcase = 1;
803 to_lowcase = 0;
805 #if defined _NL_CURRENT || !HAVE_STRFTIME
806 cpy (aw_len, a_wkday);
807 break;
808 #else
809 goto underlying_strftime;
810 #endif
812 case 'A':
813 if (modifier != 0)
814 goto bad_format;
815 if (change_case)
817 to_uppcase = 1;
818 to_lowcase = 0;
820 #if defined _NL_CURRENT || !HAVE_STRFTIME
821 cpy (STRLEN (f_wkday), f_wkday);
822 break;
823 #else
824 goto underlying_strftime;
825 #endif
827 case L_('b'):
828 case L_('h'):
829 if (change_case)
831 to_uppcase = 1;
832 to_lowcase = 0;
834 if (modifier != 0)
835 goto bad_format;
836 #if defined _NL_CURRENT || !HAVE_STRFTIME
837 cpy (am_len, a_month);
838 break;
839 #else
840 goto underlying_strftime;
841 #endif
843 case L_('B'):
844 if (modifier != 0)
845 goto bad_format;
846 if (change_case)
848 to_uppcase = 1;
849 to_lowcase = 0;
851 #if defined _NL_CURRENT || !HAVE_STRFTIME
852 cpy (STRLEN (f_month), f_month);
853 break;
854 #else
855 goto underlying_strftime;
856 #endif
858 case L_('c'):
859 if (modifier == L_('O'))
860 goto bad_format;
861 #ifdef _NL_CURRENT
862 if (! (modifier == 'E'
863 && (*(subfmt =
864 (const CHAR_T *) _NL_CURRENT (LC_TIME,
865 NLW(ERA_D_T_FMT)))
866 != '\0')))
867 subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_T_FMT));
868 #else
869 # if HAVE_STRFTIME
870 goto underlying_strftime;
871 # else
872 subfmt = L_("%a %b %e %H:%M:%S %Y");
873 # endif
874 #endif
876 subformat:
878 CHAR_T *old_start = p;
879 size_t len = my_strftime (NULL, (size_t) -1, subfmt,
880 tp extra_args LOCALE_ARG);
881 add (len, my_strftime (p, maxsize - i, subfmt,
882 tp extra_args LOCALE_ARG));
884 if (to_uppcase)
885 while (old_start < p)
887 *old_start = TOUPPER ((UCHAR_T) *old_start, loc);
888 ++old_start;
891 break;
893 #if HAVE_STRFTIME && ! (defined _NL_CURRENT && HAVE_STRUCT_ERA_ENTRY)
894 underlying_strftime:
896 /* The relevant information is available only via the
897 underlying strftime implementation, so use that. */
898 char ufmt[4];
899 char *u = ufmt;
900 char ubuf[1024]; /* enough for any single format in practice */
901 size_t len;
902 /* Make sure we're calling the actual underlying strftime.
903 In some cases, config.h contains something like
904 "#define strftime rpl_strftime". */
905 # ifdef strftime
906 # undef strftime
907 size_t strftime ();
908 # endif
910 #ifdef STRFTIME_NO_POSIX2
911 /* Some system libraries do not support the POSIX.2 extensions.
912 In those cases, convert %h to %b, and strip modifiers. */
913 modifier = 0;
914 if (format_char == 'h')
915 format_char = 'b';
916 #endif
917 *u++ = '%';
918 if (modifier != 0)
919 *u++ = modifier;
920 *u++ = format_char;
921 *u = '\0';
922 len = strftime (ubuf, sizeof ubuf, ufmt, tp);
923 if (len == 0 && ubuf[0] != '\0')
924 return 0;
925 cpy (len, ubuf);
927 break;
928 #endif
930 case L_('C'):
931 if (modifier == L_('O'))
932 goto bad_format;
933 if (modifier == L_('E'))
935 #if HAVE_STRUCT_ERA_ENTRY
936 struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
937 if (era)
939 # ifdef COMPILE_WIDE
940 size_t len = __wcslen (era->era_wname);
941 cpy (len, era->era_wname);
942 # else
943 size_t len = strlen (era->era_name);
944 cpy (len, era->era_name);
945 # endif
946 break;
948 #else
949 # if HAVE_STRFTIME
950 goto underlying_strftime;
951 # endif
952 #endif
956 int year = tp->tm_year + TM_YEAR_BASE;
957 DO_NUMBER (1, year / 100 - (year % 100 < 0));
960 case L_('x'):
961 if (modifier == L_('O'))
962 goto bad_format;
963 #ifdef _NL_CURRENT
964 if (! (modifier == L_('E')
965 && (*(subfmt =
966 (const CHAR_T *)_NL_CURRENT (LC_TIME, NLW(ERA_D_FMT)))
967 != L_('\0'))))
968 subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_FMT));
969 goto subformat;
970 #else
971 # if HAVE_STRFTIME
972 goto underlying_strftime;
973 # else
974 /* Fall through. */
975 # endif
976 #endif
977 case L_('D'):
978 if (modifier != 0)
979 goto bad_format;
980 subfmt = L_("%m/%d/%y");
981 goto subformat;
983 case L_('d'):
984 if (modifier == L_('E'))
985 goto bad_format;
987 DO_NUMBER (2, tp->tm_mday);
989 case L_('e'):
990 if (modifier == L_('E'))
991 goto bad_format;
993 DO_NUMBER_SPACEPAD (2, tp->tm_mday);
995 /* All numeric formats set DIGITS and NUMBER_VALUE and then
996 jump to one of these two labels. */
998 do_number_spacepad:
999 /* Force `_' flag unless overridden by `0' or `-' flag. */
1000 if (pad != L_('0') && pad != L_('-'))
1001 pad = L_('_');
1003 do_number:
1004 /* Format the number according to the MODIFIER flag. */
1006 if (modifier == L_('O') && 0 <= number_value)
1008 #ifdef _NL_CURRENT
1009 /* Get the locale specific alternate representation of
1010 the number NUMBER_VALUE. If none exist NULL is returned. */
1011 const CHAR_T *cp = nl_get_alt_digit (number_value
1012 HELPER_LOCALE_ARG);
1014 if (cp != NULL)
1016 size_t digitlen = STRLEN (cp);
1017 if (digitlen != 0)
1019 cpy (digitlen, cp);
1020 break;
1023 #else
1024 # if HAVE_STRFTIME
1025 goto underlying_strftime;
1026 # endif
1027 #endif
1030 unsigned int u = number_value;
1032 bufp = buf + sizeof (buf) / sizeof (buf[0]);
1033 negative_number = number_value < 0;
1035 if (negative_number)
1036 u = -u;
1039 *--bufp = u % 10 + L_('0');
1040 while ((u /= 10) != 0);
1043 do_number_sign_and_padding:
1044 if (negative_number)
1045 *--bufp = L_('-');
1047 if (pad != L_('-'))
1049 int padding = digits - (buf + (sizeof (buf) / sizeof (buf[0]))
1050 - bufp);
1052 if (padding > 0)
1054 if (pad == L_('_'))
1056 if ((size_t) padding >= maxsize - i)
1057 return 0;
1059 if (p)
1060 memset_space (p, padding);
1061 i += padding;
1062 width = width > padding ? width - padding : 0;
1064 else
1066 if ((size_t) digits >= maxsize - i)
1067 return 0;
1069 if (negative_number)
1071 ++bufp;
1073 if (p)
1074 *p++ = L_('-');
1075 ++i;
1078 if (p)
1079 memset_zero (p, padding);
1080 i += padding;
1081 width = 0;
1086 cpy (buf + sizeof (buf) / sizeof (buf[0]) - bufp, bufp);
1087 break;
1089 case L_('F'):
1090 if (modifier != 0)
1091 goto bad_format;
1092 subfmt = L_("%Y-%m-%d");
1093 goto subformat;
1095 case L_('H'):
1096 if (modifier == L_('E'))
1097 goto bad_format;
1099 DO_NUMBER (2, tp->tm_hour);
1101 case L_('I'):
1102 if (modifier == L_('E'))
1103 goto bad_format;
1105 DO_NUMBER (2, hour12);
1107 case L_('k'): /* GNU extension. */
1108 if (modifier == L_('E'))
1109 goto bad_format;
1111 DO_NUMBER_SPACEPAD (2, tp->tm_hour);
1113 case L_('l'): /* GNU extension. */
1114 if (modifier == L_('E'))
1115 goto bad_format;
1117 DO_NUMBER_SPACEPAD (2, hour12);
1119 case L_('j'):
1120 if (modifier == L_('E'))
1121 goto bad_format;
1123 DO_NUMBER (3, 1 + tp->tm_yday);
1125 case L_('M'):
1126 if (modifier == L_('E'))
1127 goto bad_format;
1129 DO_NUMBER (2, tp->tm_min);
1131 case L_('m'):
1132 if (modifier == L_('E'))
1133 goto bad_format;
1135 DO_NUMBER (2, tp->tm_mon + 1);
1137 #ifndef _LIBC
1138 case L_('N'): /* GNU extension. */
1139 if (modifier == L_('E'))
1140 goto bad_format;
1142 number_value = ns;
1143 if (width != -1)
1145 /* Take an explicit width less than 9 as a precision. */
1146 int j;
1147 for (j = width; j < 9; j++)
1148 number_value /= 10;
1151 DO_NUMBER (9, number_value);
1152 #endif
1154 case L_('n'):
1155 add (1, *p = L_('\n'));
1156 break;
1158 case L_('P'):
1159 to_lowcase = 1;
1160 #if !defined _NL_CURRENT && HAVE_STRFTIME
1161 format_char = L_('p');
1162 #endif
1163 /* FALLTHROUGH */
1165 case L_('p'):
1166 if (change_case)
1168 to_uppcase = 0;
1169 to_lowcase = 1;
1171 #if defined _NL_CURRENT || !HAVE_STRFTIME
1172 cpy (ap_len, ampm);
1173 break;
1174 #else
1175 goto underlying_strftime;
1176 #endif
1178 case L_('R'):
1179 subfmt = L_("%H:%M");
1180 goto subformat;
1182 case L_('r'):
1183 #ifdef _NL_CURRENT
1184 if (*(subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME,
1185 NLW(T_FMT_AMPM)))
1186 == L_('\0'))
1187 #endif
1188 subfmt = L_("%I:%M:%S %p");
1189 goto subformat;
1191 case L_('S'):
1192 if (modifier == L_('E'))
1193 goto bad_format;
1195 DO_NUMBER (2, tp->tm_sec);
1197 case L_('s'): /* GNU extension. */
1199 struct tm ltm;
1200 time_t t;
1202 ltm = *tp;
1203 t = mktime (&ltm);
1205 /* Generate string value for T using time_t arithmetic;
1206 this works even if sizeof (long) < sizeof (time_t). */
1208 bufp = buf + sizeof (buf) / sizeof (buf[0]);
1209 negative_number = t < 0;
1213 int d = t % 10;
1214 t /= 10;
1216 if (negative_number)
1218 d = -d;
1220 /* Adjust if division truncates to minus infinity. */
1221 if (0 < -1 % 10 && d < 0)
1223 t++;
1224 d += 10;
1228 *--bufp = d + L_('0');
1230 while (t != 0);
1232 digits = 1;
1233 goto do_number_sign_and_padding;
1236 case L_('X'):
1237 if (modifier == L_('O'))
1238 goto bad_format;
1239 #ifdef _NL_CURRENT
1240 if (! (modifier == L_('E')
1241 && (*(subfmt =
1242 (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ERA_T_FMT)))
1243 != L_('\0'))))
1244 subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(T_FMT));
1245 goto subformat;
1246 #else
1247 # if HAVE_STRFTIME
1248 goto underlying_strftime;
1249 # else
1250 /* Fall through. */
1251 # endif
1252 #endif
1253 case L_('T'):
1254 subfmt = L_("%H:%M:%S");
1255 goto subformat;
1257 case L_('t'):
1258 add (1, *p = L_('\t'));
1259 break;
1261 case L_('u'):
1262 DO_NUMBER (1, (tp->tm_wday - 1 + 7) % 7 + 1);
1264 case L_('U'):
1265 if (modifier == L_('E'))
1266 goto bad_format;
1268 DO_NUMBER (2, (tp->tm_yday - tp->tm_wday + 7) / 7);
1270 case L_('V'):
1271 case L_('g'):
1272 case L_('G'):
1273 if (modifier == L_('E'))
1274 goto bad_format;
1276 int year = tp->tm_year + TM_YEAR_BASE;
1277 int days = iso_week_days (tp->tm_yday, tp->tm_wday);
1279 if (days < 0)
1281 /* This ISO week belongs to the previous year. */
1282 year--;
1283 days = iso_week_days (tp->tm_yday + (365 + __isleap (year)),
1284 tp->tm_wday);
1286 else
1288 int d = iso_week_days (tp->tm_yday - (365 + __isleap (year)),
1289 tp->tm_wday);
1290 if (0 <= d)
1292 /* This ISO week belongs to the next year. */
1293 year++;
1294 days = d;
1298 switch (*f)
1300 case L_('g'):
1301 DO_NUMBER (2, (year % 100 + 100) % 100);
1303 case L_('G'):
1304 DO_NUMBER (1, year);
1306 default:
1307 DO_NUMBER (2, days / 7 + 1);
1311 case L_('W'):
1312 if (modifier == L_('E'))
1313 goto bad_format;
1315 DO_NUMBER (2, (tp->tm_yday - (tp->tm_wday - 1 + 7) % 7 + 7) / 7);
1317 case L_('w'):
1318 if (modifier == L_('E'))
1319 goto bad_format;
1321 DO_NUMBER (1, tp->tm_wday);
1323 case L_('Y'):
1324 if (modifier == 'E')
1326 #if HAVE_STRUCT_ERA_ENTRY
1327 struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
1328 if (era)
1330 # ifdef COMPILE_WIDE
1331 subfmt = era->era_wformat;
1332 # else
1333 subfmt = era->era_format;
1334 # endif
1335 goto subformat;
1337 #else
1338 # if HAVE_STRFTIME
1339 goto underlying_strftime;
1340 # endif
1341 #endif
1343 if (modifier == L_('O'))
1344 goto bad_format;
1345 else
1346 DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE);
1348 case L_('y'):
1349 if (modifier == L_('E'))
1351 #if HAVE_STRUCT_ERA_ENTRY
1352 struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
1353 if (era)
1355 int delta = tp->tm_year - era->start_date[0];
1356 DO_NUMBER (1, (era->offset
1357 + delta * era->absolute_direction));
1359 #else
1360 # if HAVE_STRFTIME
1361 goto underlying_strftime;
1362 # endif
1363 #endif
1365 DO_NUMBER (2, (tp->tm_year % 100 + 100) % 100);
1367 case L_('Z'):
1368 if (change_case)
1370 to_uppcase = 0;
1371 to_lowcase = 1;
1374 #if HAVE_TZNAME
1375 /* The tzset() call might have changed the value. */
1376 if (!(zone && *zone) && tp->tm_isdst >= 0)
1377 zone = tzname[tp->tm_isdst];
1378 #endif
1379 if (! zone)
1380 zone = "";
1382 #ifdef COMPILE_WIDE
1384 /* The zone string is always given in multibyte form. We have
1385 to transform it first. */
1386 wchar_t *wczone;
1387 size_t len;
1388 widen (zone, wczone, len);
1389 cpy (len, wczone);
1391 #else
1392 cpy (strlen (zone), zone);
1393 #endif
1394 break;
1396 case L_('z'):
1397 if (tp->tm_isdst < 0)
1398 break;
1401 int diff;
1402 #if HAVE_TM_GMTOFF
1403 diff = tp->tm_gmtoff;
1404 #else
1405 if (ut)
1406 diff = 0;
1407 else
1409 struct tm gtm;
1410 struct tm ltm;
1411 time_t lt;
1413 ltm = *tp;
1414 lt = mktime (&ltm);
1416 if (lt == (time_t) -1)
1418 /* mktime returns -1 for errors, but -1 is also a
1419 valid time_t value. Check whether an error really
1420 occurred. */
1421 struct tm tm;
1423 if (! my_strftime_localtime_r (&lt, &tm)
1424 || ((ltm.tm_sec ^ tm.tm_sec)
1425 | (ltm.tm_min ^ tm.tm_min)
1426 | (ltm.tm_hour ^ tm.tm_hour)
1427 | (ltm.tm_mday ^ tm.tm_mday)
1428 | (ltm.tm_mon ^ tm.tm_mon)
1429 | (ltm.tm_year ^ tm.tm_year)))
1430 break;
1433 if (! my_strftime_gmtime_r (&lt, &gtm))
1434 break;
1436 diff = tm_diff (&ltm, &gtm);
1438 #endif
1440 if (diff < 0)
1442 add (1, *p = L_('-'));
1443 diff = -diff;
1445 else
1446 add (1, *p = L_('+'));
1448 diff /= 60;
1449 DO_NUMBER (4, (diff / 60) * 100 + diff % 60);
1452 case L_('\0'): /* GNU extension: % at end of format. */
1453 --f;
1454 /* Fall through. */
1455 default:
1456 /* Unknown format; output the format, including the '%',
1457 since this is most likely the right thing to do if a
1458 multibyte string has been misparsed. */
1459 bad_format:
1461 int flen;
1462 for (flen = 1; f[1 - flen] != L_('%'); flen++)
1463 continue;
1464 cpy (flen, &f[1 - flen]);
1466 break;
1470 if (p && maxsize != 0)
1471 *p = L_('\0');
1472 return i;
1474 #ifdef _LIBC
1475 libc_hidden_def (my_strftime)
1476 #endif
1479 #ifdef emacs
1480 #undef ut
1481 /* For Emacs we have a separate interface which corresponds to the normal
1482 strftime function plus the ut argument, but without the ns argument. */
1483 size_t
1484 emacs_strftimeu (s, maxsize, format, tp, ut)
1485 char *s;
1486 size_t maxsize;
1487 const char *format;
1488 const struct tm *tp;
1489 int ut;
1491 return my_strftime (s, maxsize, format, tp, ut, 0);
1493 #endif
1495 /* arch-tag: 662bc9c4-f8e2-41b6-bf96-b8346d0ce0d8
1496 (do not change this comment) */