1 /* Copyright (C) 1991,92,93,94,95,96,97,98,99 Free Software Foundation, Inc.
3 NOTE: The canonical source of this file is maintained with the GNU C Library.
4 Bugs can be reported to bug-glibc@prep.ai.mit.edu.
6 This program is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Library General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
26 # define HAVE_LIMITS_H 1
28 # define HAVE_MBRLEN 1
29 # define HAVE_STRUCT_ERA_ENTRY 1
30 # define HAVE_TM_GMTOFF 1
31 # define HAVE_TM_ZONE 1
32 # define HAVE_TZNAME 1
34 # define MULTIBYTE_IS_FORMAT_SAFE 1
35 # define STDC_HEADERS 1
36 # include "../locale/localeinfo.h"
39 #if defined emacs && !defined HAVE_BCOPY
40 # define HAVE_MEMCPY 1
44 #include <sys/types.h> /* Some systems define `time_t' here. */
46 #ifdef TIME_WITH_SYS_TIME
47 # include <sys/time.h>
50 # ifdef HAVE_SYS_TIME_H
51 # include <sys/time.h>
57 extern char *tzname
[];
60 /* Do multibyte processing if multibytes are supported, unless
61 multibyte sequences are safe in formats. Multibyte sequences are
62 safe if they cannot contain byte sequences that look like format
63 conversion specifications. The GNU C Library uses UTF8 multibyte
64 encoding, which is safe for formats, but strftime.c can be used
65 with other C libraries that use unsafe encodings. */
66 #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)
72 /* Simulate mbrlen with mblen as best we can. */
73 # define mbstate_t int
74 # define mbrlen(s, n, ps) mblen (s, n)
75 # define mbsinit(ps) (*(ps) == 0)
77 static const mbstate_t mbstate_zero
;
90 # define memcpy(d, s, n) bcopy ((s), (d), (n))
96 # define CHAR_T wchar_t
97 # define UCHAR_T unsigned int
98 # define L_(Str) L##Str
99 # define NLW(Sym) _NL_W##Sym
101 # define MEMCPY(d, s, n) wmemcpy (d, s, n)
102 # define STRLEN(s) wcslen (s)
106 # define UCHAR_T unsigned char
108 # define NLW(Sym) Sym
110 # if !defined STDC_HEADERS && !defined HAVE_MEMCPY
111 # define MEMCPY(d, s, n) bcopy ((s), (d), (n))
113 # define MEMCPY(d, s, n) memcpy ((d), (s), (n))
115 # define STRLEN(s) strlen (s)
118 # define MEMPCPY(d, s, n) __mempcpy (d, s, n)
120 # ifndef HAVE_MEMPCPY
121 # define MEMPCPY(d, s, n) ((void *) ((char *) memcpy (d, s, n) + (n)))
127 # if defined __GNUC__ || (defined __STDC__ && __STDC__)
128 # define __P(args) args
130 # define __P(args) ()
132 #endif /* Not __P. */
150 #define TYPE_SIGNED(t) ((t) -1 < 0)
152 /* Bound on length of the string representing an integer value of type t.
153 Subtract one for the sign bit if t is signed;
154 302 / 1000 is log10 (2) rounded up;
155 add one for integer division truncation;
156 add one more for a minus sign if t is signed. */
157 #define INT_STRLEN_BOUND(t) \
158 ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 + 1 + TYPE_SIGNED (t))
160 #define TM_YEAR_BASE 1900
163 /* Nonzero if YEAR is a leap year (every 4 years,
164 except every 100th isn't, and every 400th is). */
165 # define __isleap(year) \
166 ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
171 # define my_strftime_gmtime_r __gmtime_r
172 # define my_strftime_localtime_r __localtime_r
173 # define tzname __tzname
174 # define tzset __tzset
177 /* If we're a strftime substitute in a GNU program, then prefer gmtime
178 to gmtime_r, since many gmtime_r implementations are buggy.
179 Similarly for localtime_r. */
181 # if ! HAVE_TM_GMTOFF
182 static struct tm
*my_strftime_gmtime_r
__P ((const time_t *, struct tm
*));
184 my_strftime_gmtime_r (t
, tp
)
188 struct tm
*l
= gmtime (t
);
194 # endif /* ! HAVE_TM_GMTOFF */
196 static struct tm
*my_strftime_localtime_r
__P ((const time_t *, struct tm
*));
198 my_strftime_localtime_r (t
, tp
)
202 struct tm
*l
= localtime (t
);
208 #endif /* ! defined _LIBC */
211 #if !defined memset && !defined HAVE_MEMSET && !defined _LIBC
212 /* Some systems lack the `memset' function and we don't want to
213 introduce additional dependencies. */
214 /* The SGI compiler reportedly barfs on the trailing null
215 if we use a string constant as the initializer. 28 June 1997, rms. */
216 static const CHAR_T spaces
[16] = /* " " */
218 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),
219 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' ')
221 static const CHAR_T zeroes
[16] = /* "0000000000000000" */
223 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),
224 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0')
227 # define memset_space(P, Len) \
233 int _this = _len > 16 ? 16 : _len; \
234 (P) = MEMPCPY ((P), spaces, _this * sizeof (CHAR_T)); \
240 # define memset_zero(P, Len) \
246 int _this = _len > 16 ? 16 : _len; \
247 (P) = MEMPCPY ((P), zeroes, _this * sizeof (CHAR_T)); \
254 # define memset_space(P, Len) (wmemset ((P), L' ', (Len)), (P) += (Len))
255 # define memset_zero(P, Len) (wmemset ((P), L'0', (Len)), (P) += (Len))
257 # define memset_space(P, Len) (memset ((P), ' ', (Len)), (P) += (Len))
258 # define memset_zero(P, Len) (memset ((P), '0', (Len)), (P) += (Len))
266 int _delta = width - _n; \
267 int _incr = _n + (_delta > 0 ? _delta : 0); \
268 if (i + _incr >= maxsize) \
274 if (pad == L_('0')) \
275 memset_zero (p, _delta); \
277 memset_space (p, _delta); \
288 memcpy_lowcase (p, (s), _n); \
289 else if (to_uppcase) \
290 memcpy_uppcase (p, (s), _n); \
292 MEMCPY ((PTR) p, (PTR) (s), _n))
295 # define widen(os, ws, l) \
298 const char *__s = os; \
299 memset (&__st, '\0', sizeof (__st)); \
300 l = __mbsrtowcs (NULL, &__s, 0, &__st); \
301 ws = alloca ((l + 1) * sizeof (wchar_t)); \
302 (void) __mbsrtowcs (ws, &__s, l, &__st); \
308 # define TOUPPER(Ch) towupper (Ch)
309 # define TOLOWER(Ch) towlower (Ch)
312 # define TOUPPER(Ch) toupper (Ch)
313 # define TOLOWER(Ch) tolower (Ch)
315 # define TOUPPER(Ch) (islower (Ch) ? toupper (Ch) : (Ch))
316 # define TOLOWER(Ch) (isupper (Ch) ? tolower (Ch) : (Ch))
319 /* We don't use `isdigit' here since the locale dependent
320 interpretation is not what we want here. We only need to accept
321 the arabic digits in the ASCII range. One day there is perhaps a
322 more reliable way to accept other sets of digits. */
323 #define ISDIGIT(Ch) ((unsigned int) (Ch) - L_('0') <= 9)
325 static CHAR_T
*memcpy_lowcase
__P ((CHAR_T
*dest
, const CHAR_T
*src
,
329 memcpy_lowcase (dest
, src
, len
)
335 dest
[len
] = TOLOWER ((UCHAR_T
) src
[len
]);
339 static CHAR_T
*memcpy_uppcase
__P ((CHAR_T
*dest
, const CHAR_T
*src
,
343 memcpy_uppcase (dest
, src
, len
)
349 dest
[len
] = TOUPPER ((UCHAR_T
) src
[len
]);
355 /* Yield the difference between *A and *B,
356 measured in seconds, ignoring leap seconds. */
357 # define tm_diff ftime_tm_diff
358 static int tm_diff
__P ((const struct tm
*, const struct tm
*));
364 /* Compute intervening leap days correctly even if year is negative.
365 Take care to avoid int overflow in leap day calculations,
366 but it's OK to assume that A and B are close to each other. */
367 int a4
= (a
->tm_year
>> 2) + (TM_YEAR_BASE
>> 2) - ! (a
->tm_year
& 3);
368 int b4
= (b
->tm_year
>> 2) + (TM_YEAR_BASE
>> 2) - ! (b
->tm_year
& 3);
369 int a100
= a4
/ 25 - (a4
% 25 < 0);
370 int b100
= b4
/ 25 - (b4
% 25 < 0);
371 int a400
= a100
>> 2;
372 int b400
= b100
>> 2;
373 int intervening_leap_days
= (a4
- b4
) - (a100
- b100
) + (a400
- b400
);
374 int years
= a
->tm_year
- b
->tm_year
;
375 int days
= (365 * years
+ intervening_leap_days
376 + (a
->tm_yday
- b
->tm_yday
));
377 return (60 * (60 * (24 * days
+ (a
->tm_hour
- b
->tm_hour
))
378 + (a
->tm_min
- b
->tm_min
))
379 + (a
->tm_sec
- b
->tm_sec
));
381 #endif /* ! HAVE_TM_GMTOFF */
385 /* The number of days from the first day of the first ISO week of this
386 year to the year day YDAY with week day WDAY. ISO weeks start on
387 Monday; the first ISO week has the year's first Thursday. YDAY may
388 be as small as YDAY_MINIMUM. */
389 #define ISO_WEEK_START_WDAY 1 /* Monday */
390 #define ISO_WEEK1_WDAY 4 /* Thursday */
391 #define YDAY_MINIMUM (-366)
392 static int iso_week_days
__P ((int, int));
397 iso_week_days (yday
, wday
)
401 /* Add enough to the first operand of % to make it nonnegative. */
402 int big_enough_multiple_of_7
= (-YDAY_MINIMUM
/ 7 + 2) * 7;
404 - (yday
- wday
+ ISO_WEEK1_WDAY
+ big_enough_multiple_of_7
) % 7
405 + ISO_WEEK1_WDAY
- ISO_WEEK_START_WDAY
);
409 #if !(defined _NL_CURRENT || HAVE_STRFTIME)
410 static CHAR_T
const weekday_name
[][10] =
412 L_("Sunday"), L_("Monday"), L_("Tuesday"), L_("Wednesday"),
413 L_("Thursday"), L_("Friday"), L_("Saturday")
415 static CHAR_T
const month_name
[][10] =
417 L_("January"), L_("February"), L_("March"), L_("April"), L_("May"),
418 L_("June"), L_("July"), L_("August"), L_("September"), L_("October"),
419 L_("November"), L_("December")
425 # define my_strftime emacs_strftimeu
426 # define ut_argument , ut
427 # define ut_argument_spec int ut;
428 # define ut_argument_spec_iso , int ut
431 # define my_strftime wcsftime
433 # define my_strftime strftime
436 # define ut_argument_spec
437 # define ut_argument_spec_iso
438 /* We don't have this information in general. */
442 #if !defined _LIBC && HAVE_TZNAME && HAVE_TZSET
443 /* Solaris 2.5 tzset sometimes modifies the storage returned by localtime.
444 Work around this bug by copying *tp before it might be munged. */
445 size_t _strftime_copytm
__P ((char *, size_t, const char *,
446 const struct tm
* ut_argument_spec_iso
));
448 my_strftime (s
, maxsize
, format
, tp ut_argument
)
451 const CHAR_T
*format
;
457 return _strftime_copytm (s
, maxsize
, format
, &tmcopy ut_argument
);
460 # define my_strftime(S, Maxsize, Format, Tp) \
461 _strftime_copytm (S, Maxsize, Format, Tp)
465 /* Write information from TP into S according to the format
466 string FORMAT, writing no more that MAXSIZE characters
467 (including the terminating '\0') and returning number of
468 characters written. If S is NULL, nothing will be written
469 anywhere, so to determine how many characters would be
470 written, use NULL for S and (size_t) UINT_MAX for MAXSIZE. */
472 my_strftime (s
, maxsize
, format
, tp ut_argument
)
475 const CHAR_T
*format
;
479 int hour12
= tp
->tm_hour
;
481 /* We cannot make the following values variables since we must delay
482 the evaluation of these values until really needed since some
483 expressions might not be valid in every situation. The `struct tm'
484 might be generated by a strptime() call that initialized
485 only a few elements. Dereference the pointers only if the format
486 requires this. Then it is ok to fail if the pointers are invalid. */
488 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABDAY_1) + tp->tm_wday))
490 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(DAY_1) + tp->tm_wday))
492 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABMON_1) + tp->tm_mon))
494 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(MON_1) + tp->tm_mon))
496 ((const CHAR_T *) _NL_CURRENT (LC_TIME, tp->tm_hour > 11 \
497 ? NLW(PM_STR) : NLW(AM_STR)))
499 # define aw_len STRLEN (a_wkday)
500 # define am_len STRLEN (a_month)
501 # define ap_len STRLEN (ampm)
504 # define f_wkday (weekday_name[tp->tm_wday])
505 # define f_month (month_name[tp->tm_mon])
506 # define a_wkday f_wkday
507 # define a_month f_month
508 # define ampm (L_("AMPM") + 2 * (tp->tm_hour > 11))
522 /* The POSIX test suite assumes that setting
523 the environment variable TZ to a new value before calling strftime()
524 will influence the result (the %Z format) even if the information in
525 TP is computed with a totally different time zone.
526 This is bogus: though POSIX allows bad behavior like this,
527 POSIX does not require it. Do the right thing instead. */
528 zone
= (const char *) tp
->tm_zone
;
533 if (! (zone
&& *zone
))
538 /* POSIX.1 8.1.1 requires that whenever strftime() is called, the
539 time zone names contained in the external variable `tzname' shall
540 be set as if the tzset() function had been called. */
553 for (f
= format
; *f
!= '\0'; ++f
)
555 int pad
= 0; /* Padding for number ('-', '_', or 0). */
556 int modifier
; /* Field modifier ('E', 'O', or 0). */
557 int digits
; /* Max digits for numeric format. */
558 int number_value
; /* Numeric value to be printed. */
559 int negative_number
; /* 1 if the number is negative. */
560 const CHAR_T
*subfmt
;
562 CHAR_T buf
[1 + (sizeof (int) < sizeof (time_t)
563 ? INT_STRLEN_BOUND (time_t)
564 : INT_STRLEN_BOUND (int))];
571 #if DO_MULTIBYTE && !defined COMPILE_WIDE
577 case L_('\b'): case L_('\t'): case L_('\n'):
578 case L_('\v'): case L_('\f'): case L_('\r'):
579 case L_(' '): case L_('!'): case L_('"'): case L_('#'): case L_('&'):
580 case L_('\''): case L_('('): case L_(')'): case L_('*'): case L_('+'):
581 case L_(','): case L_('-'): case L_('.'): case L_('/'): case L_('0'):
582 case L_('1'): case L_('2'): case L_('3'): case L_('4'): case L_('5'):
583 case L_('6'): case L_('7'): case L_('8'): case L_('9'): case L_(':'):
584 case L_(';'): case L_('<'): case L_('='): case L_('>'): case L_('?'):
585 case L_('A'): case L_('B'): case L_('C'): case L_('D'): case L_('E'):
586 case L_('F'): case L_('G'): case L_('H'): case L_('I'): case L_('J'):
587 case L_('K'): case L_('L'): case L_('M'): case L_('N'): case L_('O'):
588 case L_('P'): case L_('Q'): case L_('R'): case L_('S'): case L_('T'):
589 case L_('U'): case L_('V'): case L_('W'): case L_('X'): case L_('Y'):
590 case L_('Z'): case L_('['): case L_('\\'): case L_(']'): case L_('^'):
591 case L_('_'): case L_('a'): case L_('b'): case L_('c'): case L_('d'):
592 case L_('e'): case L_('f'): case L_('g'): case L_('h'): case L_('i'):
593 case L_('j'): case L_('k'): case L_('l'): case L_('m'): case L_('n'):
594 case L_('o'): case L_('p'): case L_('q'): case L_('r'): case L_('s'):
595 case L_('t'): case L_('u'): case L_('v'): case L_('w'): case L_('x'):
596 case L_('y'): case L_('z'): case L_('{'): case L_('|'): case L_('}'):
598 /* The C Standard requires these 98 characters (plus '%') to
599 be in the basic execution character set. None of these
600 characters can start a multibyte sequence, so they need
601 not be analyzed further. */
606 /* Copy this multibyte sequence until we reach its end, find
607 an error, or come back to the initial shift state. */
609 mbstate_t mbstate
= mbstate_zero
;
614 size_t bytes
= mbrlen (f
+ len
, (size_t) -1, &mbstate
);
619 if (bytes
== (size_t) -2)
621 len
+= strlen (f
+ len
);
625 if (bytes
== (size_t) -1)
633 while (! mbsinit (&mbstate
));
641 #else /* ! DO_MULTIBYTE */
643 /* Either multibyte encodings are not supported, they are
644 safe for formats, so any non-'%' byte can be copied through,
645 or this is the wide character version. */
652 #endif /* ! DO_MULTIBYTE */
654 /* Check for flags that can modify a format. */
659 /* This influences the number formats. */
666 /* This changes textual output. */
680 /* As a GNU extension we allow to specify the field width. */
687 width
+= *f
- L_('0');
690 while (ISDIGIT (*f
));
693 /* Check for modifiers. */
706 /* Now do the specified format. */
710 #define DO_NUMBER(d, v) \
711 digits = width == -1 ? d : width; \
712 number_value = v; goto do_number
713 #define DO_NUMBER_SPACEPAD(d, v) \
714 digits = width == -1 ? d : width; \
715 number_value = v; goto do_number_spacepad
731 #if defined _NL_CURRENT || !HAVE_STRFTIME
732 cpy (aw_len
, a_wkday
);
735 goto underlying_strftime
;
746 #if defined _NL_CURRENT || !HAVE_STRFTIME
747 cpy (STRLEN (f_wkday
), f_wkday
);
750 goto underlying_strftime
;
754 case L_('h'): /* POSIX.2 extension. */
757 #if defined _NL_CURRENT || !HAVE_STRFTIME
758 cpy (am_len
, a_month
);
761 goto underlying_strftime
;
772 #if defined _NL_CURRENT || !HAVE_STRFTIME
773 cpy (STRLEN (f_month
), f_month
);
776 goto underlying_strftime
;
780 if (modifier
== L_('O'))
783 if (! (modifier
== 'E'
784 && (*(subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
,
787 subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
, NLW(D_T_FMT
));
790 goto underlying_strftime
;
792 subfmt
= L_("%a %b %e %H:%M:%S %Y");
798 CHAR_T
*old_start
= p
;
799 size_t len
= my_strftime (NULL
, (size_t) -1, subfmt
, tp
);
800 add (len
, my_strftime (p
, maxsize
- i
, subfmt
, tp
));
803 while (old_start
< p
)
805 *old_start
= TOUPPER ((UCHAR_T
) *old_start
);
811 #if HAVE_STRFTIME && ! (defined _NL_CURRENT && HAVE_STRUCT_ERA_ENTRY)
814 /* The relevant information is available only via the
815 underlying strftime implementation, so use that. */
818 char ubuf
[1024]; /* enough for any single format in practice */
820 /* Make sure we're calling the actual underlying strftime.
821 In some cases, config.h contains something like
822 "#define strftime rpl_strftime". */
832 len
= strftime (ubuf
, sizeof ubuf
, ufmt
, tp
);
833 if (len
== 0 && ubuf
[0] != '\0')
840 case L_('C'): /* POSIX.2 extension. */
841 if (modifier
== L_('O'))
843 if (modifier
== L_('E'))
845 #if HAVE_STRUCT_ERA_ENTRY
846 struct era_entry
*era
= _nl_get_era_entry (tp
);
850 size_t len
= wcslen (era
->era_wname
);
851 cpy (len
, era
->era_wname
);
853 size_t len
= strlen (era
->era_name
);
854 cpy (len
, era
->era_name
);
860 goto underlying_strftime
;
866 int year
= tp
->tm_year
+ TM_YEAR_BASE
;
867 DO_NUMBER (1, year
/ 100 - (year
% 100 < 0));
871 if (modifier
== L_('O'))
874 if (! (modifier
== L_('E')
875 && (*(subfmt
= (CHAR_T
*)_NL_CURRENT (LC_TIME
,
878 subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
, NLW(D_FMT
));
882 goto underlying_strftime
;
887 case L_('D'): /* POSIX.2 extension. */
890 subfmt
= L_("%m/%d/%y");
894 if (modifier
== L_('E'))
897 DO_NUMBER (2, tp
->tm_mday
);
899 case L_('e'): /* POSIX.2 extension. */
900 if (modifier
== L_('E'))
903 DO_NUMBER_SPACEPAD (2, tp
->tm_mday
);
905 /* All numeric formats set DIGITS and NUMBER_VALUE and then
906 jump to one of these two labels. */
909 /* Force `_' flag unless overwritten by `0' flag. */
914 /* Format the number according to the MODIFIER flag. */
916 if (modifier
== L_('O') && 0 <= number_value
)
919 /* Get the locale specific alternate representation of
920 the number NUMBER_VALUE. If none exist NULL is returned. */
922 const wchar_t *cp
= _nl_get_walt_digit (number_value
);
924 const char *cp
= _nl_get_alt_digit (number_value
);
929 size_t digitlen
= STRLEN (cp
);
938 goto underlying_strftime
;
943 unsigned int u
= number_value
;
945 bufp
= buf
+ sizeof (buf
) / sizeof (buf
[0]);
946 negative_number
= number_value
< 0;
952 *--bufp
= u
% 10 + L_('0');
953 while ((u
/= 10) != 0);
956 do_number_sign_and_padding
:
962 int padding
= digits
- (buf
+ (sizeof (buf
) / sizeof (buf
[0]))
967 while (0 < padding
--)
972 bufp
+= negative_number
;
973 while (0 < padding
--)
980 cpy (buf
+ sizeof (buf
) / sizeof (buf
[0]) - bufp
, bufp
);
986 subfmt
= L_("%Y-%m-%d");
990 if (modifier
== L_('E'))
993 DO_NUMBER (2, tp
->tm_hour
);
996 if (modifier
== L_('E'))
999 DO_NUMBER (2, hour12
);
1001 case L_('k'): /* GNU extension. */
1002 if (modifier
== L_('E'))
1005 DO_NUMBER_SPACEPAD (2, tp
->tm_hour
);
1007 case L_('l'): /* GNU extension. */
1008 if (modifier
== L_('E'))
1011 DO_NUMBER_SPACEPAD (2, hour12
);
1014 if (modifier
== L_('E'))
1017 DO_NUMBER (3, 1 + tp
->tm_yday
);
1020 if (modifier
== L_('E'))
1023 DO_NUMBER (2, tp
->tm_min
);
1026 if (modifier
== L_('E'))
1029 DO_NUMBER (2, tp
->tm_mon
+ 1);
1031 case L_('n'): /* POSIX.2 extension. */
1032 add (1, *p
= L_('\n'));
1037 #if !defined _NL_CURRENT && HAVE_STRFTIME
1038 format_char
= L_('p');
1048 #if defined _NL_CURRENT || !HAVE_STRFTIME
1052 goto underlying_strftime
;
1055 case L_('R'): /* GNU extension. */
1056 subfmt
= L_("%H:%M");
1059 case L_('r'): /* POSIX.2 extension. */
1061 if (*(subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
,
1062 NLW(T_FMT_AMPM
))) == L_('\0'))
1064 subfmt
= L_("%I:%M:%S %p");
1068 if (modifier
== L_('E'))
1071 DO_NUMBER (2, tp
->tm_sec
);
1073 case L_('s'): /* GNU extension. */
1081 /* Generate string value for T using time_t arithmetic;
1082 this works even if sizeof (long) < sizeof (time_t). */
1084 bufp
= buf
+ sizeof (buf
) / sizeof (buf
[0]);
1085 negative_number
= t
< 0;
1092 if (negative_number
)
1096 /* Adjust if division truncates to minus infinity. */
1097 if (0 < -1 % 10 && d
< 0)
1104 *--bufp
= d
+ L_('0');
1109 goto do_number_sign_and_padding
;
1113 if (modifier
== L_('O'))
1116 if (! (modifier
== L_('E')
1117 && (*(subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
,
1120 subfmt
= (CHAR_T
*) _NL_CURRENT (LC_TIME
, NLW(T_FMT
));
1124 goto underlying_strftime
;
1129 case L_('T'): /* POSIX.2 extension. */
1130 subfmt
= L_("%H:%M:%S");
1133 case L_('t'): /* POSIX.2 extension. */
1134 add (1, *p
= L_('\t'));
1137 case L_('u'): /* POSIX.2 extension. */
1138 DO_NUMBER (1, (tp
->tm_wday
- 1 + 7) % 7 + 1);
1141 if (modifier
== L_('E'))
1144 DO_NUMBER (2, (tp
->tm_yday
- tp
->tm_wday
+ 7) / 7);
1147 case L_('g'): /* GNU extension. */
1148 case L_('G'): /* GNU extension. */
1149 if (modifier
== L_('E'))
1152 int year
= tp
->tm_year
+ TM_YEAR_BASE
;
1153 int days
= iso_week_days (tp
->tm_yday
, tp
->tm_wday
);
1157 /* This ISO week belongs to the previous year. */
1159 days
= iso_week_days (tp
->tm_yday
+ (365 + __isleap (year
)),
1164 int d
= iso_week_days (tp
->tm_yday
- (365 + __isleap (year
)),
1168 /* This ISO week belongs to the next year. */
1177 DO_NUMBER (2, (year
% 100 + 100) % 100);
1180 DO_NUMBER (1, year
);
1183 DO_NUMBER (2, days
/ 7 + 1);
1188 if (modifier
== L_('E'))
1191 DO_NUMBER (2, (tp
->tm_yday
- (tp
->tm_wday
- 1 + 7) % 7 + 7) / 7);
1194 if (modifier
== L_('E'))
1197 DO_NUMBER (1, tp
->tm_wday
);
1200 if (modifier
== 'E')
1202 #if HAVE_STRUCT_ERA_ENTRY
1203 struct era_entry
*era
= _nl_get_era_entry (tp
);
1206 # ifdef COMPILE_WIDE
1207 subfmt
= era
->era_wformat
;
1209 subfmt
= era
->era_format
;
1215 goto underlying_strftime
;
1219 if (modifier
== L_('O'))
1222 DO_NUMBER (1, tp
->tm_year
+ TM_YEAR_BASE
);
1225 if (modifier
== L_('E'))
1227 #if HAVE_STRUCT_ERA_ENTRY
1228 struct era_entry
*era
= _nl_get_era_entry (tp
);
1231 int delta
= tp
->tm_year
- era
->start_date
[0];
1232 DO_NUMBER (1, (era
->offset
1233 + delta
* era
->absolute_direction
));
1237 goto underlying_strftime
;
1241 DO_NUMBER (2, (tp
->tm_year
% 100 + 100) % 100);
1251 /* The tzset() call might have changed the value. */
1252 if (!(zone
&& *zone
) && tp
->tm_isdst
>= 0)
1253 zone
= tzname
[tp
->tm_isdst
];
1256 zone
= ""; /* POSIX.2 requires the empty string here. */
1260 /* The zone string is always given in multibyte form. We have
1261 to transform it first. */
1264 widen (zone
, wczone
, len
);
1268 cpy (strlen (zone
), zone
);
1272 case L_('z'): /* GNU extension. */
1273 if (tp
->tm_isdst
< 0)
1279 diff
= tp
->tm_gmtoff
;
1292 if (lt
== (time_t) -1)
1294 /* mktime returns -1 for errors, but -1 is also a
1295 valid time_t value. Check whether an error really
1299 if (! my_strftime_localtime_r (<
, &tm
)
1300 || ((ltm
.tm_sec
^ tm
.tm_sec
)
1301 | (ltm
.tm_min
^ tm
.tm_min
)
1302 | (ltm
.tm_hour
^ tm
.tm_hour
)
1303 | (ltm
.tm_mday
^ tm
.tm_mday
)
1304 | (ltm
.tm_mon
^ tm
.tm_mon
)
1305 | (ltm
.tm_year
^ tm
.tm_year
)))
1309 if (! my_strftime_gmtime_r (<
, >m
))
1312 diff
= tm_diff (<m
, >m
);
1318 add (1, *p
= L_('-'));
1322 add (1, *p
= L_('+'));
1325 DO_NUMBER (4, (diff
/ 60) * 100 + diff
% 60);
1328 case L_('\0'): /* GNU extension: % at end of format. */
1332 /* Unknown format; output the format, including the '%',
1333 since this is most likely the right thing to do if a
1334 multibyte string has been misparsed. */
1338 for (flen
= 1; f
[1 - flen
] != L_('%'); flen
++)
1340 cpy (flen
, &f
[1 - flen
]);
1346 if (p
&& maxsize
!= 0)
1353 /* For Emacs we have a separate interface which corresponds to the normal
1354 strftime function and does not have the extra information whether the
1355 TP arguments comes from a `gmtime' call or not. */
1357 emacs_strftime (s
, maxsize
, format
, tp
)
1361 const struct tm
*tp
;
1363 return my_strftime (s
, maxsize
, format
, tp
, 0);