1*6ea1f93eSDaniel Fojt /* Copyright (C) 1991-2018 Free Software Foundation, Inc.
2*6ea1f93eSDaniel Fojt This file is part of the GNU C Library.
3*6ea1f93eSDaniel Fojt
4*6ea1f93eSDaniel Fojt The GNU C Library is free software; you can redistribute it and/or
5*6ea1f93eSDaniel Fojt modify it under the terms of the GNU General Public
6*6ea1f93eSDaniel Fojt License as published by the Free Software Foundation; either
7*6ea1f93eSDaniel Fojt version 3 of the License, or (at your option) any later version.
8*6ea1f93eSDaniel Fojt
9*6ea1f93eSDaniel Fojt The GNU C Library is distributed in the hope that it will be useful,
10*6ea1f93eSDaniel Fojt but WITHOUT ANY WARRANTY; without even the implied warranty of
11*6ea1f93eSDaniel Fojt MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12*6ea1f93eSDaniel Fojt General Public License for more details.
13*6ea1f93eSDaniel Fojt
14*6ea1f93eSDaniel Fojt You should have received a copy of the GNU General Public
15*6ea1f93eSDaniel Fojt License along with the GNU C Library; if not, see
16*6ea1f93eSDaniel Fojt <https://www.gnu.org/licenses/>. */
17*6ea1f93eSDaniel Fojt
18*6ea1f93eSDaniel Fojt #ifdef _LIBC
19*6ea1f93eSDaniel Fojt # define USE_IN_EXTENDED_LOCALE_MODEL 1
20*6ea1f93eSDaniel Fojt # define HAVE_STRUCT_ERA_ENTRY 1
21*6ea1f93eSDaniel Fojt # define HAVE_TM_GMTOFF 1
22*6ea1f93eSDaniel Fojt # define HAVE_TM_ZONE 1
23*6ea1f93eSDaniel Fojt # define HAVE_TZNAME 1
24*6ea1f93eSDaniel Fojt # define HAVE_TZSET 1
25*6ea1f93eSDaniel Fojt # include "../locale/localeinfo.h"
26*6ea1f93eSDaniel Fojt #else
27*6ea1f93eSDaniel Fojt # include <config.h>
28*6ea1f93eSDaniel Fojt # if FPRINTFTIME
29*6ea1f93eSDaniel Fojt # include "fprintftime.h"
30*6ea1f93eSDaniel Fojt # else
31*6ea1f93eSDaniel Fojt # include "strftime.h"
32*6ea1f93eSDaniel Fojt # endif
33*6ea1f93eSDaniel Fojt # include "time-internal.h"
34*6ea1f93eSDaniel Fojt #endif
35*6ea1f93eSDaniel Fojt
36*6ea1f93eSDaniel Fojt #include <ctype.h>
37*6ea1f93eSDaniel Fojt #include <time.h>
38*6ea1f93eSDaniel Fojt
39*6ea1f93eSDaniel Fojt #if HAVE_TZNAME && !HAVE_DECL_TZNAME
40*6ea1f93eSDaniel Fojt extern char *tzname[];
41*6ea1f93eSDaniel Fojt #endif
42*6ea1f93eSDaniel Fojt
43*6ea1f93eSDaniel Fojt /* Do multibyte processing if multibyte encodings are supported, unless
44*6ea1f93eSDaniel Fojt multibyte sequences are safe in formats. Multibyte sequences are
45*6ea1f93eSDaniel Fojt safe if they cannot contain byte sequences that look like format
46*6ea1f93eSDaniel Fojt conversion specifications. The multibyte encodings used by the
47*6ea1f93eSDaniel Fojt C library on the various platforms (UTF-8, GB2312, GBK, CP936,
48*6ea1f93eSDaniel Fojt GB18030, EUC-TW, BIG5, BIG5-HKSCS, CP950, EUC-JP, EUC-KR, CP949,
49*6ea1f93eSDaniel Fojt SHIFT_JIS, CP932, JOHAB) are safe for formats, because the byte '%'
50*6ea1f93eSDaniel Fojt cannot occur in a multibyte character except in the first byte.
51*6ea1f93eSDaniel Fojt
52*6ea1f93eSDaniel Fojt The DEC-HANYU encoding used on OSF/1 is not safe for formats, but
53*6ea1f93eSDaniel Fojt this encoding has never been seen in real-life use, so we ignore
54*6ea1f93eSDaniel Fojt it. */
55*6ea1f93eSDaniel Fojt #if !(defined __osf__ && 0)
56*6ea1f93eSDaniel Fojt # define MULTIBYTE_IS_FORMAT_SAFE 1
57*6ea1f93eSDaniel Fojt #endif
58*6ea1f93eSDaniel Fojt #define DO_MULTIBYTE (! MULTIBYTE_IS_FORMAT_SAFE)
59*6ea1f93eSDaniel Fojt
60*6ea1f93eSDaniel Fojt #if DO_MULTIBYTE
61*6ea1f93eSDaniel Fojt # include <wchar.h>
62*6ea1f93eSDaniel Fojt static const mbstate_t mbstate_zero;
63*6ea1f93eSDaniel Fojt #endif
64*6ea1f93eSDaniel Fojt
65*6ea1f93eSDaniel Fojt #include <limits.h>
66*6ea1f93eSDaniel Fojt #include <stddef.h>
67*6ea1f93eSDaniel Fojt #include <stdlib.h>
68*6ea1f93eSDaniel Fojt #include <string.h>
69*6ea1f93eSDaniel Fojt #include <stdbool.h>
70*6ea1f93eSDaniel Fojt
71*6ea1f93eSDaniel Fojt #ifndef FALLTHROUGH
72*6ea1f93eSDaniel Fojt # if __GNUC__ < 7
73*6ea1f93eSDaniel Fojt # define FALLTHROUGH ((void) 0)
74*6ea1f93eSDaniel Fojt # else
75*6ea1f93eSDaniel Fojt # define FALLTHROUGH __attribute__ ((__fallthrough__))
76*6ea1f93eSDaniel Fojt # endif
77*6ea1f93eSDaniel Fojt #endif
78*6ea1f93eSDaniel Fojt
79*6ea1f93eSDaniel Fojt #ifdef COMPILE_WIDE
80*6ea1f93eSDaniel Fojt # include <endian.h>
81*6ea1f93eSDaniel Fojt # define CHAR_T wchar_t
82*6ea1f93eSDaniel Fojt # define UCHAR_T unsigned int
83*6ea1f93eSDaniel Fojt # define L_(Str) L##Str
84*6ea1f93eSDaniel Fojt # define NLW(Sym) _NL_W##Sym
85*6ea1f93eSDaniel Fojt
86*6ea1f93eSDaniel Fojt # define MEMCPY(d, s, n) __wmemcpy (d, s, n)
87*6ea1f93eSDaniel Fojt # define STRLEN(s) __wcslen (s)
88*6ea1f93eSDaniel Fojt
89*6ea1f93eSDaniel Fojt #else
90*6ea1f93eSDaniel Fojt # define CHAR_T char
91*6ea1f93eSDaniel Fojt # define UCHAR_T unsigned char
92*6ea1f93eSDaniel Fojt # define L_(Str) Str
93*6ea1f93eSDaniel Fojt # define NLW(Sym) Sym
94*6ea1f93eSDaniel Fojt # define ABALTMON_1 _NL_ABALTMON_1
95*6ea1f93eSDaniel Fojt
96*6ea1f93eSDaniel Fojt # define MEMCPY(d, s, n) memcpy (d, s, n)
97*6ea1f93eSDaniel Fojt # define STRLEN(s) strlen (s)
98*6ea1f93eSDaniel Fojt
99*6ea1f93eSDaniel Fojt #endif
100*6ea1f93eSDaniel Fojt
101*6ea1f93eSDaniel Fojt /* Shift A right by B bits portably, by dividing A by 2**B and
102*6ea1f93eSDaniel Fojt truncating towards minus infinity. A and B should be free of side
103*6ea1f93eSDaniel Fojt effects, and B should be in the range 0 <= B <= INT_BITS - 2, where
104*6ea1f93eSDaniel Fojt INT_BITS is the number of useful bits in an int. GNU code can
105*6ea1f93eSDaniel Fojt assume that INT_BITS is at least 32.
106*6ea1f93eSDaniel Fojt
107*6ea1f93eSDaniel Fojt ISO C99 says that A >> B is implementation-defined if A < 0. Some
108*6ea1f93eSDaniel Fojt implementations (e.g., UNICOS 9.0 on a Cray Y-MP EL) don't shift
109*6ea1f93eSDaniel Fojt right in the usual way when A < 0, so SHR falls back on division if
110*6ea1f93eSDaniel Fojt ordinary A >> B doesn't seem to be the usual signed shift. */
111*6ea1f93eSDaniel Fojt #define SHR(a, b) \
112*6ea1f93eSDaniel Fojt (-1 >> 1 == -1 \
113*6ea1f93eSDaniel Fojt ? (a) >> (b) \
114*6ea1f93eSDaniel Fojt : (a) / (1 << (b)) - ((a) % (1 << (b)) < 0))
115*6ea1f93eSDaniel Fojt
116*6ea1f93eSDaniel Fojt /* Bound on length of the string representing an integer type or expression T.
117*6ea1f93eSDaniel Fojt Subtract 1 for the sign bit if t is signed; log10 (2.0) < 146/485;
118*6ea1f93eSDaniel Fojt add 1 for integer division truncation; add 1 more for a minus sign
119*6ea1f93eSDaniel Fojt if needed. */
120*6ea1f93eSDaniel Fojt #define INT_STRLEN_BOUND(t) \
121*6ea1f93eSDaniel Fojt ((sizeof (t) * CHAR_BIT - 1) * 146 / 485 + 2)
122*6ea1f93eSDaniel Fojt
123*6ea1f93eSDaniel Fojt #define TM_YEAR_BASE 1900
124*6ea1f93eSDaniel Fojt
125*6ea1f93eSDaniel Fojt #ifndef __isleap
126*6ea1f93eSDaniel Fojt /* Nonzero if YEAR is a leap year (every 4 years,
127*6ea1f93eSDaniel Fojt except every 100th isn't, and every 400th is). */
128*6ea1f93eSDaniel Fojt # define __isleap(year) \
129*6ea1f93eSDaniel Fojt ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
130*6ea1f93eSDaniel Fojt #endif
131*6ea1f93eSDaniel Fojt
132*6ea1f93eSDaniel Fojt
133*6ea1f93eSDaniel Fojt #ifdef _LIBC
134*6ea1f93eSDaniel Fojt # define mktime_z(tz, tm) mktime (tm)
135*6ea1f93eSDaniel Fojt # define tzname __tzname
136*6ea1f93eSDaniel Fojt # define tzset __tzset
137*6ea1f93eSDaniel Fojt #endif
138*6ea1f93eSDaniel Fojt
139*6ea1f93eSDaniel Fojt #ifndef FPRINTFTIME
140*6ea1f93eSDaniel Fojt # define FPRINTFTIME 0
141*6ea1f93eSDaniel Fojt #endif
142*6ea1f93eSDaniel Fojt
143*6ea1f93eSDaniel Fojt #if FPRINTFTIME
144*6ea1f93eSDaniel Fojt # define STREAM_OR_CHAR_T FILE
145*6ea1f93eSDaniel Fojt # define STRFTIME_ARG(x) /* empty */
146*6ea1f93eSDaniel Fojt #else
147*6ea1f93eSDaniel Fojt # define STREAM_OR_CHAR_T CHAR_T
148*6ea1f93eSDaniel Fojt # define STRFTIME_ARG(x) x,
149*6ea1f93eSDaniel Fojt #endif
150*6ea1f93eSDaniel Fojt
151*6ea1f93eSDaniel Fojt #if FPRINTFTIME
152*6ea1f93eSDaniel Fojt # define memset_byte(P, Len, Byte) \
153*6ea1f93eSDaniel Fojt do { size_t _i; for (_i = 0; _i < Len; _i++) fputc (Byte, P); } while (0)
154*6ea1f93eSDaniel Fojt # define memset_space(P, Len) memset_byte (P, Len, ' ')
155*6ea1f93eSDaniel Fojt # define memset_zero(P, Len) memset_byte (P, Len, '0')
156*6ea1f93eSDaniel Fojt #elif defined COMPILE_WIDE
157*6ea1f93eSDaniel Fojt # define memset_space(P, Len) (wmemset (P, L' ', Len), (P) += (Len))
158*6ea1f93eSDaniel Fojt # define memset_zero(P, Len) (wmemset (P, L'0', Len), (P) += (Len))
159*6ea1f93eSDaniel Fojt #else
160*6ea1f93eSDaniel Fojt # define memset_space(P, Len) (memset (P, ' ', Len), (P) += (Len))
161*6ea1f93eSDaniel Fojt # define memset_zero(P, Len) (memset (P, '0', Len), (P) += (Len))
162*6ea1f93eSDaniel Fojt #endif
163*6ea1f93eSDaniel Fojt
164*6ea1f93eSDaniel Fojt #if FPRINTFTIME
165*6ea1f93eSDaniel Fojt # define advance(P, N)
166*6ea1f93eSDaniel Fojt #else
167*6ea1f93eSDaniel Fojt # define advance(P, N) ((P) += (N))
168*6ea1f93eSDaniel Fojt #endif
169*6ea1f93eSDaniel Fojt
170*6ea1f93eSDaniel Fojt #define add(n, f) \
171*6ea1f93eSDaniel Fojt do \
172*6ea1f93eSDaniel Fojt { \
173*6ea1f93eSDaniel Fojt size_t _n = (n); \
174*6ea1f93eSDaniel Fojt size_t _w = (width < 0 ? 0 : width); \
175*6ea1f93eSDaniel Fojt size_t _incr = _n < _w ? _w : _n; \
176*6ea1f93eSDaniel Fojt if (_incr >= maxsize - i) \
177*6ea1f93eSDaniel Fojt return 0; \
178*6ea1f93eSDaniel Fojt if (p) \
179*6ea1f93eSDaniel Fojt { \
180*6ea1f93eSDaniel Fojt if (digits == 0 && _n < _w) \
181*6ea1f93eSDaniel Fojt { \
182*6ea1f93eSDaniel Fojt size_t _delta = width - _n; \
183*6ea1f93eSDaniel Fojt if (pad == L_('0')) \
184*6ea1f93eSDaniel Fojt memset_zero (p, _delta); \
185*6ea1f93eSDaniel Fojt else \
186*6ea1f93eSDaniel Fojt memset_space (p, _delta); \
187*6ea1f93eSDaniel Fojt } \
188*6ea1f93eSDaniel Fojt f; \
189*6ea1f93eSDaniel Fojt advance (p, _n); \
190*6ea1f93eSDaniel Fojt } \
191*6ea1f93eSDaniel Fojt i += _incr; \
192*6ea1f93eSDaniel Fojt } while (0)
193*6ea1f93eSDaniel Fojt
194*6ea1f93eSDaniel Fojt #if FPRINTFTIME
195*6ea1f93eSDaniel Fojt # define add1(C) add (1, fputc (C, p))
196*6ea1f93eSDaniel Fojt #else
197*6ea1f93eSDaniel Fojt # define add1(C) add (1, *p = C)
198*6ea1f93eSDaniel Fojt #endif
199*6ea1f93eSDaniel Fojt
200*6ea1f93eSDaniel Fojt #if FPRINTFTIME
201*6ea1f93eSDaniel Fojt # define cpy(n, s) \
202*6ea1f93eSDaniel Fojt add ((n), \
203*6ea1f93eSDaniel Fojt do \
204*6ea1f93eSDaniel Fojt { \
205*6ea1f93eSDaniel Fojt if (to_lowcase) \
206*6ea1f93eSDaniel Fojt fwrite_lowcase (p, (s), _n); \
207*6ea1f93eSDaniel Fojt else if (to_uppcase) \
208*6ea1f93eSDaniel Fojt fwrite_uppcase (p, (s), _n); \
209*6ea1f93eSDaniel Fojt else \
210*6ea1f93eSDaniel Fojt { \
211*6ea1f93eSDaniel Fojt /* Ignore the value of fwrite. The caller can determine whether \
212*6ea1f93eSDaniel Fojt an error occurred by inspecting ferror (P). All known fwrite \
213*6ea1f93eSDaniel Fojt implementations set the stream's error indicator when they \
214*6ea1f93eSDaniel Fojt fail due to ENOMEM etc., even though C11 and POSIX.1-2008 do \
215*6ea1f93eSDaniel Fojt not require this. */ \
216*6ea1f93eSDaniel Fojt fwrite (s, _n, 1, p); \
217*6ea1f93eSDaniel Fojt } \
218*6ea1f93eSDaniel Fojt } \
219*6ea1f93eSDaniel Fojt while (0) \
220*6ea1f93eSDaniel Fojt )
221*6ea1f93eSDaniel Fojt #else
222*6ea1f93eSDaniel Fojt # define cpy(n, s) \
223*6ea1f93eSDaniel Fojt add ((n), \
224*6ea1f93eSDaniel Fojt if (to_lowcase) \
225*6ea1f93eSDaniel Fojt memcpy_lowcase (p, (s), _n LOCALE_ARG); \
226*6ea1f93eSDaniel Fojt else if (to_uppcase) \
227*6ea1f93eSDaniel Fojt memcpy_uppcase (p, (s), _n LOCALE_ARG); \
228*6ea1f93eSDaniel Fojt else \
229*6ea1f93eSDaniel Fojt MEMCPY ((void *) p, (void const *) (s), _n))
230*6ea1f93eSDaniel Fojt #endif
231*6ea1f93eSDaniel Fojt
232*6ea1f93eSDaniel Fojt #ifdef COMPILE_WIDE
233*6ea1f93eSDaniel Fojt # ifndef USE_IN_EXTENDED_LOCALE_MODEL
234*6ea1f93eSDaniel Fojt # undef __mbsrtowcs_l
235*6ea1f93eSDaniel Fojt # define __mbsrtowcs_l(d, s, l, st, loc) __mbsrtowcs (d, s, l, st)
236*6ea1f93eSDaniel Fojt # endif
237*6ea1f93eSDaniel Fojt # define widen(os, ws, l) \
238*6ea1f93eSDaniel Fojt { \
239*6ea1f93eSDaniel Fojt mbstate_t __st; \
240*6ea1f93eSDaniel Fojt const char *__s = os; \
241*6ea1f93eSDaniel Fojt memset (&__st, '\0', sizeof (__st)); \
242*6ea1f93eSDaniel Fojt l = __mbsrtowcs_l (NULL, &__s, 0, &__st, loc); \
243*6ea1f93eSDaniel Fojt ws = (wchar_t *) alloca ((l + 1) * sizeof (wchar_t)); \
244*6ea1f93eSDaniel Fojt (void) __mbsrtowcs_l (ws, &__s, l, &__st, loc); \
245*6ea1f93eSDaniel Fojt }
246*6ea1f93eSDaniel Fojt #endif
247*6ea1f93eSDaniel Fojt
248*6ea1f93eSDaniel Fojt
249*6ea1f93eSDaniel Fojt #if defined _LIBC && defined USE_IN_EXTENDED_LOCALE_MODEL
250*6ea1f93eSDaniel Fojt /* We use this code also for the extended locale handling where the
251*6ea1f93eSDaniel Fojt function gets as an additional argument the locale which has to be
252*6ea1f93eSDaniel Fojt used. To access the values we have to redefine the _NL_CURRENT
253*6ea1f93eSDaniel Fojt macro. */
254*6ea1f93eSDaniel Fojt # define strftime __strftime_l
255*6ea1f93eSDaniel Fojt # define wcsftime __wcsftime_l
256*6ea1f93eSDaniel Fojt # undef _NL_CURRENT
257*6ea1f93eSDaniel Fojt # define _NL_CURRENT(category, item) \
258*6ea1f93eSDaniel Fojt (current->values[_NL_ITEM_INDEX (item)].string)
259*6ea1f93eSDaniel Fojt # define LOCALE_PARAM , locale_t loc
260*6ea1f93eSDaniel Fojt # define LOCALE_ARG , loc
261*6ea1f93eSDaniel Fojt # define HELPER_LOCALE_ARG , current
262*6ea1f93eSDaniel Fojt #else
263*6ea1f93eSDaniel Fojt # define LOCALE_PARAM
264*6ea1f93eSDaniel Fojt # define LOCALE_ARG
265*6ea1f93eSDaniel Fojt # ifdef _LIBC
266*6ea1f93eSDaniel Fojt # define HELPER_LOCALE_ARG , _NL_CURRENT_DATA (LC_TIME)
267*6ea1f93eSDaniel Fojt # else
268*6ea1f93eSDaniel Fojt # define HELPER_LOCALE_ARG
269*6ea1f93eSDaniel Fojt # endif
270*6ea1f93eSDaniel Fojt #endif
271*6ea1f93eSDaniel Fojt
272*6ea1f93eSDaniel Fojt #ifdef COMPILE_WIDE
273*6ea1f93eSDaniel Fojt # ifdef USE_IN_EXTENDED_LOCALE_MODEL
274*6ea1f93eSDaniel Fojt # define TOUPPER(Ch, L) __towupper_l (Ch, L)
275*6ea1f93eSDaniel Fojt # define TOLOWER(Ch, L) __towlower_l (Ch, L)
276*6ea1f93eSDaniel Fojt # else
277*6ea1f93eSDaniel Fojt # define TOUPPER(Ch, L) towupper (Ch)
278*6ea1f93eSDaniel Fojt # define TOLOWER(Ch, L) towlower (Ch)
279*6ea1f93eSDaniel Fojt # endif
280*6ea1f93eSDaniel Fojt #else
281*6ea1f93eSDaniel Fojt # ifdef USE_IN_EXTENDED_LOCALE_MODEL
282*6ea1f93eSDaniel Fojt # define TOUPPER(Ch, L) __toupper_l (Ch, L)
283*6ea1f93eSDaniel Fojt # define TOLOWER(Ch, L) __tolower_l (Ch, L)
284*6ea1f93eSDaniel Fojt # else
285*6ea1f93eSDaniel Fojt # define TOUPPER(Ch, L) toupper (Ch)
286*6ea1f93eSDaniel Fojt # define TOLOWER(Ch, L) tolower (Ch)
287*6ea1f93eSDaniel Fojt # endif
288*6ea1f93eSDaniel Fojt #endif
289*6ea1f93eSDaniel Fojt /* We don't use 'isdigit' here since the locale dependent
290*6ea1f93eSDaniel Fojt interpretation is not what we want here. We only need to accept
291*6ea1f93eSDaniel Fojt the arabic digits in the ASCII range. One day there is perhaps a
292*6ea1f93eSDaniel Fojt more reliable way to accept other sets of digits. */
293*6ea1f93eSDaniel Fojt #define ISDIGIT(Ch) ((unsigned int) (Ch) - L_('0') <= 9)
294*6ea1f93eSDaniel Fojt
295*6ea1f93eSDaniel Fojt #if FPRINTFTIME
296*6ea1f93eSDaniel Fojt static void
fwrite_lowcase(FILE * fp,const CHAR_T * src,size_t len)297*6ea1f93eSDaniel Fojt fwrite_lowcase (FILE *fp, const CHAR_T *src, size_t len)
298*6ea1f93eSDaniel Fojt {
299*6ea1f93eSDaniel Fojt while (len-- > 0)
300*6ea1f93eSDaniel Fojt {
301*6ea1f93eSDaniel Fojt fputc (TOLOWER ((UCHAR_T) *src, loc), fp);
302*6ea1f93eSDaniel Fojt ++src;
303*6ea1f93eSDaniel Fojt }
304*6ea1f93eSDaniel Fojt }
305*6ea1f93eSDaniel Fojt
306*6ea1f93eSDaniel Fojt static void
fwrite_uppcase(FILE * fp,const CHAR_T * src,size_t len)307*6ea1f93eSDaniel Fojt fwrite_uppcase (FILE *fp, const CHAR_T *src, size_t len)
308*6ea1f93eSDaniel Fojt {
309*6ea1f93eSDaniel Fojt while (len-- > 0)
310*6ea1f93eSDaniel Fojt {
311*6ea1f93eSDaniel Fojt fputc (TOUPPER ((UCHAR_T) *src, loc), fp);
312*6ea1f93eSDaniel Fojt ++src;
313*6ea1f93eSDaniel Fojt }
314*6ea1f93eSDaniel Fojt }
315*6ea1f93eSDaniel Fojt #else
316*6ea1f93eSDaniel Fojt static CHAR_T *memcpy_lowcase (CHAR_T *dest, const CHAR_T *src,
317*6ea1f93eSDaniel Fojt size_t len LOCALE_PARAM);
318*6ea1f93eSDaniel Fojt
319*6ea1f93eSDaniel Fojt static CHAR_T *
memcpy_lowcase(CHAR_T * dest,const CHAR_T * src,size_t len LOCALE_PARAM)320*6ea1f93eSDaniel Fojt memcpy_lowcase (CHAR_T *dest, const CHAR_T *src, size_t len LOCALE_PARAM)
321*6ea1f93eSDaniel Fojt {
322*6ea1f93eSDaniel Fojt while (len-- > 0)
323*6ea1f93eSDaniel Fojt dest[len] = TOLOWER ((UCHAR_T) src[len], loc);
324*6ea1f93eSDaniel Fojt return dest;
325*6ea1f93eSDaniel Fojt }
326*6ea1f93eSDaniel Fojt
327*6ea1f93eSDaniel Fojt static CHAR_T *memcpy_uppcase (CHAR_T *dest, const CHAR_T *src,
328*6ea1f93eSDaniel Fojt size_t len LOCALE_PARAM);
329*6ea1f93eSDaniel Fojt
330*6ea1f93eSDaniel Fojt static CHAR_T *
memcpy_uppcase(CHAR_T * dest,const CHAR_T * src,size_t len LOCALE_PARAM)331*6ea1f93eSDaniel Fojt memcpy_uppcase (CHAR_T *dest, const CHAR_T *src, size_t len LOCALE_PARAM)
332*6ea1f93eSDaniel Fojt {
333*6ea1f93eSDaniel Fojt while (len-- > 0)
334*6ea1f93eSDaniel Fojt dest[len] = TOUPPER ((UCHAR_T) src[len], loc);
335*6ea1f93eSDaniel Fojt return dest;
336*6ea1f93eSDaniel Fojt }
337*6ea1f93eSDaniel Fojt #endif
338*6ea1f93eSDaniel Fojt
339*6ea1f93eSDaniel Fojt
340*6ea1f93eSDaniel Fojt #if ! HAVE_TM_GMTOFF
341*6ea1f93eSDaniel Fojt /* Yield the difference between *A and *B,
342*6ea1f93eSDaniel Fojt measured in seconds, ignoring leap seconds. */
343*6ea1f93eSDaniel Fojt # define tm_diff ftime_tm_diff
344*6ea1f93eSDaniel Fojt static int tm_diff (const struct tm *, const struct tm *);
345*6ea1f93eSDaniel Fojt static int
tm_diff(const struct tm * a,const struct tm * b)346*6ea1f93eSDaniel Fojt tm_diff (const struct tm *a, const struct tm *b)
347*6ea1f93eSDaniel Fojt {
348*6ea1f93eSDaniel Fojt /* Compute intervening leap days correctly even if year is negative.
349*6ea1f93eSDaniel Fojt Take care to avoid int overflow in leap day calculations,
350*6ea1f93eSDaniel Fojt but it's OK to assume that A and B are close to each other. */
351*6ea1f93eSDaniel Fojt int a4 = SHR (a->tm_year, 2) + SHR (TM_YEAR_BASE, 2) - ! (a->tm_year & 3);
352*6ea1f93eSDaniel Fojt int b4 = SHR (b->tm_year, 2) + SHR (TM_YEAR_BASE, 2) - ! (b->tm_year & 3);
353*6ea1f93eSDaniel Fojt int a100 = a4 / 25 - (a4 % 25 < 0);
354*6ea1f93eSDaniel Fojt int b100 = b4 / 25 - (b4 % 25 < 0);
355*6ea1f93eSDaniel Fojt int a400 = SHR (a100, 2);
356*6ea1f93eSDaniel Fojt int b400 = SHR (b100, 2);
357*6ea1f93eSDaniel Fojt int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400);
358*6ea1f93eSDaniel Fojt int years = a->tm_year - b->tm_year;
359*6ea1f93eSDaniel Fojt int days = (365 * years + intervening_leap_days
360*6ea1f93eSDaniel Fojt + (a->tm_yday - b->tm_yday));
361*6ea1f93eSDaniel Fojt return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour))
362*6ea1f93eSDaniel Fojt + (a->tm_min - b->tm_min))
363*6ea1f93eSDaniel Fojt + (a->tm_sec - b->tm_sec));
364*6ea1f93eSDaniel Fojt }
365*6ea1f93eSDaniel Fojt #endif /* ! HAVE_TM_GMTOFF */
366*6ea1f93eSDaniel Fojt
367*6ea1f93eSDaniel Fojt
368*6ea1f93eSDaniel Fojt
369*6ea1f93eSDaniel Fojt /* The number of days from the first day of the first ISO week of this
370*6ea1f93eSDaniel Fojt year to the year day YDAY with week day WDAY. ISO weeks start on
371*6ea1f93eSDaniel Fojt Monday; the first ISO week has the year's first Thursday. YDAY may
372*6ea1f93eSDaniel Fojt be as small as YDAY_MINIMUM. */
373*6ea1f93eSDaniel Fojt #define ISO_WEEK_START_WDAY 1 /* Monday */
374*6ea1f93eSDaniel Fojt #define ISO_WEEK1_WDAY 4 /* Thursday */
375*6ea1f93eSDaniel Fojt #define YDAY_MINIMUM (-366)
376*6ea1f93eSDaniel Fojt static int iso_week_days (int, int);
377*6ea1f93eSDaniel Fojt #ifdef __GNUC__
378*6ea1f93eSDaniel Fojt __inline__
379*6ea1f93eSDaniel Fojt #endif
380*6ea1f93eSDaniel Fojt static int
iso_week_days(int yday,int wday)381*6ea1f93eSDaniel Fojt iso_week_days (int yday, int wday)
382*6ea1f93eSDaniel Fojt {
383*6ea1f93eSDaniel Fojt /* Add enough to the first operand of % to make it nonnegative. */
384*6ea1f93eSDaniel Fojt int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7;
385*6ea1f93eSDaniel Fojt return (yday
386*6ea1f93eSDaniel Fojt - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7
387*6ea1f93eSDaniel Fojt + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY);
388*6ea1f93eSDaniel Fojt }
389*6ea1f93eSDaniel Fojt
390*6ea1f93eSDaniel Fojt
391*6ea1f93eSDaniel Fojt /* When compiling this file, GNU applications can #define my_strftime
392*6ea1f93eSDaniel Fojt to a symbol (typically nstrftime) to get an extended strftime with
393*6ea1f93eSDaniel Fojt extra arguments TZ and NS. */
394*6ea1f93eSDaniel Fojt
395*6ea1f93eSDaniel Fojt #if FPRINTFTIME
396*6ea1f93eSDaniel Fojt # undef my_strftime
397*6ea1f93eSDaniel Fojt # define my_strftime fprintftime
398*6ea1f93eSDaniel Fojt #endif
399*6ea1f93eSDaniel Fojt
400*6ea1f93eSDaniel Fojt #ifdef my_strftime
401*6ea1f93eSDaniel Fojt # undef HAVE_TZSET
402*6ea1f93eSDaniel Fojt # define extra_args , tz, ns
403*6ea1f93eSDaniel Fojt # define extra_args_spec , timezone_t tz, int ns
404*6ea1f93eSDaniel Fojt #else
405*6ea1f93eSDaniel Fojt # if defined COMPILE_WIDE
406*6ea1f93eSDaniel Fojt # define my_strftime wcsftime
407*6ea1f93eSDaniel Fojt # define nl_get_alt_digit _nl_get_walt_digit
408*6ea1f93eSDaniel Fojt # else
409*6ea1f93eSDaniel Fojt # define my_strftime strftime
410*6ea1f93eSDaniel Fojt # define nl_get_alt_digit _nl_get_alt_digit
411*6ea1f93eSDaniel Fojt # endif
412*6ea1f93eSDaniel Fojt # define extra_args
413*6ea1f93eSDaniel Fojt # define extra_args_spec
414*6ea1f93eSDaniel Fojt /* We don't have this information in general. */
415*6ea1f93eSDaniel Fojt # define tz 1
416*6ea1f93eSDaniel Fojt # define ns 0
417*6ea1f93eSDaniel Fojt #endif
418*6ea1f93eSDaniel Fojt
419*6ea1f93eSDaniel Fojt static size_t __strftime_internal (STREAM_OR_CHAR_T *, STRFTIME_ARG (size_t)
420*6ea1f93eSDaniel Fojt const CHAR_T *, const struct tm *,
421*6ea1f93eSDaniel Fojt bool, bool *
422*6ea1f93eSDaniel Fojt extra_args_spec LOCALE_PARAM);
423*6ea1f93eSDaniel Fojt
424*6ea1f93eSDaniel Fojt /* Write information from TP into S according to the format
425*6ea1f93eSDaniel Fojt string FORMAT, writing no more that MAXSIZE characters
426*6ea1f93eSDaniel Fojt (including the terminating '\0') and returning number of
427*6ea1f93eSDaniel Fojt characters written. If S is NULL, nothing will be written
428*6ea1f93eSDaniel Fojt anywhere, so to determine how many characters would be
429*6ea1f93eSDaniel Fojt written, use NULL for S and (size_t) -1 for MAXSIZE. */
430*6ea1f93eSDaniel Fojt size_t
my_strftime(STREAM_OR_CHAR_T * s,STRFTIME_ARG (size_t maxsize)const CHAR_T * format,const struct tm * tp extra_args_spec LOCALE_PARAM)431*6ea1f93eSDaniel Fojt my_strftime (STREAM_OR_CHAR_T *s, STRFTIME_ARG (size_t maxsize)
432*6ea1f93eSDaniel Fojt const CHAR_T *format,
433*6ea1f93eSDaniel Fojt const struct tm *tp extra_args_spec LOCALE_PARAM)
434*6ea1f93eSDaniel Fojt {
435*6ea1f93eSDaniel Fojt bool tzset_called = false;
436*6ea1f93eSDaniel Fojt return __strftime_internal (s, STRFTIME_ARG (maxsize) format, tp,
437*6ea1f93eSDaniel Fojt false, &tzset_called extra_args LOCALE_ARG);
438*6ea1f93eSDaniel Fojt }
439*6ea1f93eSDaniel Fojt #if defined _LIBC && ! FPRINTFTIME
libc_hidden_def(my_strftime)440*6ea1f93eSDaniel Fojt libc_hidden_def (my_strftime)
441*6ea1f93eSDaniel Fojt #endif
442*6ea1f93eSDaniel Fojt
443*6ea1f93eSDaniel Fojt /* Just like my_strftime, above, but with two more parameters.
444*6ea1f93eSDaniel Fojt UPCASE indicate that the result should be converted to upper case,
445*6ea1f93eSDaniel Fojt and *TZSET_CALLED indicates whether tzset has been called here. */
446*6ea1f93eSDaniel Fojt static size_t
447*6ea1f93eSDaniel Fojt __strftime_internal (STREAM_OR_CHAR_T *s, STRFTIME_ARG (size_t maxsize)
448*6ea1f93eSDaniel Fojt const CHAR_T *format,
449*6ea1f93eSDaniel Fojt const struct tm *tp, bool upcase, bool *tzset_called
450*6ea1f93eSDaniel Fojt extra_args_spec LOCALE_PARAM)
451*6ea1f93eSDaniel Fojt {
452*6ea1f93eSDaniel Fojt #if defined _LIBC && defined USE_IN_EXTENDED_LOCALE_MODEL
453*6ea1f93eSDaniel Fojt struct __locale_data *const current = loc->__locales[LC_TIME];
454*6ea1f93eSDaniel Fojt #endif
455*6ea1f93eSDaniel Fojt #if FPRINTFTIME
456*6ea1f93eSDaniel Fojt size_t maxsize = (size_t) -1;
457*6ea1f93eSDaniel Fojt #endif
458*6ea1f93eSDaniel Fojt
459*6ea1f93eSDaniel Fojt int hour12 = tp->tm_hour;
460*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
461*6ea1f93eSDaniel Fojt /* We cannot make the following values variables since we must delay
462*6ea1f93eSDaniel Fojt the evaluation of these values until really needed since some
463*6ea1f93eSDaniel Fojt expressions might not be valid in every situation. The 'struct tm'
464*6ea1f93eSDaniel Fojt might be generated by a strptime() call that initialized
465*6ea1f93eSDaniel Fojt only a few elements. Dereference the pointers only if the format
466*6ea1f93eSDaniel Fojt requires this. Then it is ok to fail if the pointers are invalid. */
467*6ea1f93eSDaniel Fojt # define a_wkday \
468*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_wday < 0 || tp->tm_wday > 6 \
469*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(ABDAY_1) + tp->tm_wday)))
470*6ea1f93eSDaniel Fojt # define f_wkday \
471*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_wday < 0 || tp->tm_wday > 6 \
472*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(DAY_1) + tp->tm_wday)))
473*6ea1f93eSDaniel Fojt # define a_month \
474*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_mon < 0 || tp->tm_mon > 11 \
475*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(ABMON_1) + tp->tm_mon)))
476*6ea1f93eSDaniel Fojt # define f_month \
477*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_mon < 0 || tp->tm_mon > 11 \
478*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(MON_1) + tp->tm_mon)))
479*6ea1f93eSDaniel Fojt # define a_altmonth \
480*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_mon < 0 || tp->tm_mon > 11 \
481*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(ABALTMON_1) + tp->tm_mon)))
482*6ea1f93eSDaniel Fojt # define f_altmonth \
483*6ea1f93eSDaniel Fojt ((const CHAR_T *) (tp->tm_mon < 0 || tp->tm_mon > 11 \
484*6ea1f93eSDaniel Fojt ? "?" : _NL_CURRENT (LC_TIME, NLW(ALTMON_1) + tp->tm_mon)))
485*6ea1f93eSDaniel Fojt # define ampm \
486*6ea1f93eSDaniel Fojt ((const CHAR_T *) _NL_CURRENT (LC_TIME, tp->tm_hour > 11 \
487*6ea1f93eSDaniel Fojt ? NLW(PM_STR) : NLW(AM_STR)))
488*6ea1f93eSDaniel Fojt
489*6ea1f93eSDaniel Fojt # define aw_len STRLEN (a_wkday)
490*6ea1f93eSDaniel Fojt # define am_len STRLEN (a_month)
491*6ea1f93eSDaniel Fojt # define aam_len STRLEN (a_altmonth)
492*6ea1f93eSDaniel Fojt # define ap_len STRLEN (ampm)
493*6ea1f93eSDaniel Fojt #endif
494*6ea1f93eSDaniel Fojt #if HAVE_TZNAME
495*6ea1f93eSDaniel Fojt char **tzname_vec = tzname;
496*6ea1f93eSDaniel Fojt #endif
497*6ea1f93eSDaniel Fojt const char *zone;
498*6ea1f93eSDaniel Fojt size_t i = 0;
499*6ea1f93eSDaniel Fojt STREAM_OR_CHAR_T *p = s;
500*6ea1f93eSDaniel Fojt const CHAR_T *f;
501*6ea1f93eSDaniel Fojt #if DO_MULTIBYTE && !defined COMPILE_WIDE
502*6ea1f93eSDaniel Fojt const char *format_end = NULL;
503*6ea1f93eSDaniel Fojt #endif
504*6ea1f93eSDaniel Fojt
505*6ea1f93eSDaniel Fojt #if ! defined _LIBC && ! HAVE_RUN_TZSET_TEST
506*6ea1f93eSDaniel Fojt /* Solaris 2.5.x and 2.6 tzset sometimes modify the storage returned
507*6ea1f93eSDaniel Fojt by localtime. On such systems, we must either use the tzset and
508*6ea1f93eSDaniel Fojt localtime wrappers to work around the bug (which sets
509*6ea1f93eSDaniel Fojt HAVE_RUN_TZSET_TEST) or make a copy of the structure. */
510*6ea1f93eSDaniel Fojt struct tm copy = *tp;
511*6ea1f93eSDaniel Fojt tp = ©
512*6ea1f93eSDaniel Fojt #endif
513*6ea1f93eSDaniel Fojt
514*6ea1f93eSDaniel Fojt zone = NULL;
515*6ea1f93eSDaniel Fojt #if HAVE_TM_ZONE
516*6ea1f93eSDaniel Fojt /* The POSIX test suite assumes that setting
517*6ea1f93eSDaniel Fojt the environment variable TZ to a new value before calling strftime()
518*6ea1f93eSDaniel Fojt will influence the result (the %Z format) even if the information in
519*6ea1f93eSDaniel Fojt TP is computed with a totally different time zone.
520*6ea1f93eSDaniel Fojt This is bogus: though POSIX allows bad behavior like this,
521*6ea1f93eSDaniel Fojt POSIX does not require it. Do the right thing instead. */
522*6ea1f93eSDaniel Fojt zone = (const char *) tp->tm_zone;
523*6ea1f93eSDaniel Fojt #endif
524*6ea1f93eSDaniel Fojt #if HAVE_TZNAME
525*6ea1f93eSDaniel Fojt if (!tz)
526*6ea1f93eSDaniel Fojt {
527*6ea1f93eSDaniel Fojt if (! (zone && *zone))
528*6ea1f93eSDaniel Fojt zone = "GMT";
529*6ea1f93eSDaniel Fojt }
530*6ea1f93eSDaniel Fojt else
531*6ea1f93eSDaniel Fojt {
532*6ea1f93eSDaniel Fojt # if !HAVE_TM_ZONE
533*6ea1f93eSDaniel Fojt /* Infer the zone name from *TZ instead of from TZNAME. */
534*6ea1f93eSDaniel Fojt tzname_vec = tz->tzname_copy;
535*6ea1f93eSDaniel Fojt # endif
536*6ea1f93eSDaniel Fojt }
537*6ea1f93eSDaniel Fojt /* The tzset() call might have changed the value. */
538*6ea1f93eSDaniel Fojt if (!(zone && *zone) && tp->tm_isdst >= 0)
539*6ea1f93eSDaniel Fojt {
540*6ea1f93eSDaniel Fojt /* POSIX.1 requires that local time zone information be used as
541*6ea1f93eSDaniel Fojt though strftime called tzset. */
542*6ea1f93eSDaniel Fojt # if HAVE_TZSET
543*6ea1f93eSDaniel Fojt if (!*tzset_called)
544*6ea1f93eSDaniel Fojt {
545*6ea1f93eSDaniel Fojt tzset ();
546*6ea1f93eSDaniel Fojt *tzset_called = true;
547*6ea1f93eSDaniel Fojt }
548*6ea1f93eSDaniel Fojt # endif
549*6ea1f93eSDaniel Fojt zone = tzname_vec[tp->tm_isdst != 0];
550*6ea1f93eSDaniel Fojt }
551*6ea1f93eSDaniel Fojt #endif
552*6ea1f93eSDaniel Fojt if (! zone)
553*6ea1f93eSDaniel Fojt zone = "";
554*6ea1f93eSDaniel Fojt
555*6ea1f93eSDaniel Fojt if (hour12 > 12)
556*6ea1f93eSDaniel Fojt hour12 -= 12;
557*6ea1f93eSDaniel Fojt else
558*6ea1f93eSDaniel Fojt if (hour12 == 0)
559*6ea1f93eSDaniel Fojt hour12 = 12;
560*6ea1f93eSDaniel Fojt
561*6ea1f93eSDaniel Fojt for (f = format; *f != '\0'; ++f)
562*6ea1f93eSDaniel Fojt {
563*6ea1f93eSDaniel Fojt int pad = 0; /* Padding for number ('-', '_', or 0). */
564*6ea1f93eSDaniel Fojt int modifier; /* Field modifier ('E', 'O', or 0). */
565*6ea1f93eSDaniel Fojt int digits = 0; /* Max digits for numeric format. */
566*6ea1f93eSDaniel Fojt int number_value; /* Numeric value to be printed. */
567*6ea1f93eSDaniel Fojt unsigned int u_number_value; /* (unsigned int) number_value. */
568*6ea1f93eSDaniel Fojt bool negative_number; /* The number is negative. */
569*6ea1f93eSDaniel Fojt bool always_output_a_sign; /* +/- should always be output. */
570*6ea1f93eSDaniel Fojt int tz_colon_mask; /* Bitmask of where ':' should appear. */
571*6ea1f93eSDaniel Fojt const CHAR_T *subfmt;
572*6ea1f93eSDaniel Fojt CHAR_T sign_char;
573*6ea1f93eSDaniel Fojt CHAR_T *bufp;
574*6ea1f93eSDaniel Fojt CHAR_T buf[1
575*6ea1f93eSDaniel Fojt + 2 /* for the two colons in a %::z or %:::z time zone */
576*6ea1f93eSDaniel Fojt + (sizeof (int) < sizeof (time_t)
577*6ea1f93eSDaniel Fojt ? INT_STRLEN_BOUND (time_t)
578*6ea1f93eSDaniel Fojt : INT_STRLEN_BOUND (int))];
579*6ea1f93eSDaniel Fojt int width = -1;
580*6ea1f93eSDaniel Fojt bool to_lowcase = false;
581*6ea1f93eSDaniel Fojt bool to_uppcase = upcase;
582*6ea1f93eSDaniel Fojt size_t colons;
583*6ea1f93eSDaniel Fojt bool change_case = false;
584*6ea1f93eSDaniel Fojt int format_char;
585*6ea1f93eSDaniel Fojt
586*6ea1f93eSDaniel Fojt #if DO_MULTIBYTE && !defined COMPILE_WIDE
587*6ea1f93eSDaniel Fojt switch (*f)
588*6ea1f93eSDaniel Fojt {
589*6ea1f93eSDaniel Fojt case L_('%'):
590*6ea1f93eSDaniel Fojt break;
591*6ea1f93eSDaniel Fojt
592*6ea1f93eSDaniel Fojt case L_('\b'): case L_('\t'): case L_('\n'):
593*6ea1f93eSDaniel Fojt case L_('\v'): case L_('\f'): case L_('\r'):
594*6ea1f93eSDaniel Fojt case L_(' '): case L_('!'): case L_('"'): case L_('#'): case L_('&'):
595*6ea1f93eSDaniel Fojt case L_('\''): case L_('('): case L_(')'): case L_('*'): case L_('+'):
596*6ea1f93eSDaniel Fojt case L_(','): case L_('-'): case L_('.'): case L_('/'): case L_('0'):
597*6ea1f93eSDaniel Fojt case L_('1'): case L_('2'): case L_('3'): case L_('4'): case L_('5'):
598*6ea1f93eSDaniel Fojt case L_('6'): case L_('7'): case L_('8'): case L_('9'): case L_(':'):
599*6ea1f93eSDaniel Fojt case L_(';'): case L_('<'): case L_('='): case L_('>'): case L_('?'):
600*6ea1f93eSDaniel Fojt case L_('A'): case L_('B'): case L_('C'): case L_('D'): case L_('E'):
601*6ea1f93eSDaniel Fojt case L_('F'): case L_('G'): case L_('H'): case L_('I'): case L_('J'):
602*6ea1f93eSDaniel Fojt case L_('K'): case L_('L'): case L_('M'): case L_('N'): case L_('O'):
603*6ea1f93eSDaniel Fojt case L_('P'): case L_('Q'): case L_('R'): case L_('S'): case L_('T'):
604*6ea1f93eSDaniel Fojt case L_('U'): case L_('V'): case L_('W'): case L_('X'): case L_('Y'):
605*6ea1f93eSDaniel Fojt case L_('Z'): case L_('['): case L_('\\'): case L_(']'): case L_('^'):
606*6ea1f93eSDaniel Fojt case L_('_'): case L_('a'): case L_('b'): case L_('c'): case L_('d'):
607*6ea1f93eSDaniel Fojt case L_('e'): case L_('f'): case L_('g'): case L_('h'): case L_('i'):
608*6ea1f93eSDaniel Fojt case L_('j'): case L_('k'): case L_('l'): case L_('m'): case L_('n'):
609*6ea1f93eSDaniel Fojt case L_('o'): case L_('p'): case L_('q'): case L_('r'): case L_('s'):
610*6ea1f93eSDaniel Fojt case L_('t'): case L_('u'): case L_('v'): case L_('w'): case L_('x'):
611*6ea1f93eSDaniel Fojt case L_('y'): case L_('z'): case L_('{'): case L_('|'): case L_('}'):
612*6ea1f93eSDaniel Fojt case L_('~'):
613*6ea1f93eSDaniel Fojt /* The C Standard requires these 98 characters (plus '%') to
614*6ea1f93eSDaniel Fojt be in the basic execution character set. None of these
615*6ea1f93eSDaniel Fojt characters can start a multibyte sequence, so they need
616*6ea1f93eSDaniel Fojt not be analyzed further. */
617*6ea1f93eSDaniel Fojt add1 (*f);
618*6ea1f93eSDaniel Fojt continue;
619*6ea1f93eSDaniel Fojt
620*6ea1f93eSDaniel Fojt default:
621*6ea1f93eSDaniel Fojt /* Copy this multibyte sequence until we reach its end, find
622*6ea1f93eSDaniel Fojt an error, or come back to the initial shift state. */
623*6ea1f93eSDaniel Fojt {
624*6ea1f93eSDaniel Fojt mbstate_t mbstate = mbstate_zero;
625*6ea1f93eSDaniel Fojt size_t len = 0;
626*6ea1f93eSDaniel Fojt size_t fsize;
627*6ea1f93eSDaniel Fojt
628*6ea1f93eSDaniel Fojt if (! format_end)
629*6ea1f93eSDaniel Fojt format_end = f + strlen (f) + 1;
630*6ea1f93eSDaniel Fojt fsize = format_end - f;
631*6ea1f93eSDaniel Fojt
632*6ea1f93eSDaniel Fojt do
633*6ea1f93eSDaniel Fojt {
634*6ea1f93eSDaniel Fojt size_t bytes = mbrlen (f + len, fsize - len, &mbstate);
635*6ea1f93eSDaniel Fojt
636*6ea1f93eSDaniel Fojt if (bytes == 0)
637*6ea1f93eSDaniel Fojt break;
638*6ea1f93eSDaniel Fojt
639*6ea1f93eSDaniel Fojt if (bytes == (size_t) -2)
640*6ea1f93eSDaniel Fojt {
641*6ea1f93eSDaniel Fojt len += strlen (f + len);
642*6ea1f93eSDaniel Fojt break;
643*6ea1f93eSDaniel Fojt }
644*6ea1f93eSDaniel Fojt
645*6ea1f93eSDaniel Fojt if (bytes == (size_t) -1)
646*6ea1f93eSDaniel Fojt {
647*6ea1f93eSDaniel Fojt len++;
648*6ea1f93eSDaniel Fojt break;
649*6ea1f93eSDaniel Fojt }
650*6ea1f93eSDaniel Fojt
651*6ea1f93eSDaniel Fojt len += bytes;
652*6ea1f93eSDaniel Fojt }
653*6ea1f93eSDaniel Fojt while (! mbsinit (&mbstate));
654*6ea1f93eSDaniel Fojt
655*6ea1f93eSDaniel Fojt cpy (len, f);
656*6ea1f93eSDaniel Fojt f += len - 1;
657*6ea1f93eSDaniel Fojt continue;
658*6ea1f93eSDaniel Fojt }
659*6ea1f93eSDaniel Fojt }
660*6ea1f93eSDaniel Fojt
661*6ea1f93eSDaniel Fojt #else /* ! DO_MULTIBYTE */
662*6ea1f93eSDaniel Fojt
663*6ea1f93eSDaniel Fojt /* Either multibyte encodings are not supported, they are
664*6ea1f93eSDaniel Fojt safe for formats, so any non-'%' byte can be copied through,
665*6ea1f93eSDaniel Fojt or this is the wide character version. */
666*6ea1f93eSDaniel Fojt if (*f != L_('%'))
667*6ea1f93eSDaniel Fojt {
668*6ea1f93eSDaniel Fojt add1 (*f);
669*6ea1f93eSDaniel Fojt continue;
670*6ea1f93eSDaniel Fojt }
671*6ea1f93eSDaniel Fojt
672*6ea1f93eSDaniel Fojt #endif /* ! DO_MULTIBYTE */
673*6ea1f93eSDaniel Fojt
674*6ea1f93eSDaniel Fojt /* Check for flags that can modify a format. */
675*6ea1f93eSDaniel Fojt while (1)
676*6ea1f93eSDaniel Fojt {
677*6ea1f93eSDaniel Fojt switch (*++f)
678*6ea1f93eSDaniel Fojt {
679*6ea1f93eSDaniel Fojt /* This influences the number formats. */
680*6ea1f93eSDaniel Fojt case L_('_'):
681*6ea1f93eSDaniel Fojt case L_('-'):
682*6ea1f93eSDaniel Fojt case L_('0'):
683*6ea1f93eSDaniel Fojt pad = *f;
684*6ea1f93eSDaniel Fojt continue;
685*6ea1f93eSDaniel Fojt
686*6ea1f93eSDaniel Fojt /* This changes textual output. */
687*6ea1f93eSDaniel Fojt case L_('^'):
688*6ea1f93eSDaniel Fojt to_uppcase = true;
689*6ea1f93eSDaniel Fojt continue;
690*6ea1f93eSDaniel Fojt case L_('#'):
691*6ea1f93eSDaniel Fojt change_case = true;
692*6ea1f93eSDaniel Fojt continue;
693*6ea1f93eSDaniel Fojt
694*6ea1f93eSDaniel Fojt default:
695*6ea1f93eSDaniel Fojt break;
696*6ea1f93eSDaniel Fojt }
697*6ea1f93eSDaniel Fojt break;
698*6ea1f93eSDaniel Fojt }
699*6ea1f93eSDaniel Fojt
700*6ea1f93eSDaniel Fojt /* As a GNU extension we allow the field width to be specified. */
701*6ea1f93eSDaniel Fojt if (ISDIGIT (*f))
702*6ea1f93eSDaniel Fojt {
703*6ea1f93eSDaniel Fojt width = 0;
704*6ea1f93eSDaniel Fojt do
705*6ea1f93eSDaniel Fojt {
706*6ea1f93eSDaniel Fojt if (width > INT_MAX / 10
707*6ea1f93eSDaniel Fojt || (width == INT_MAX / 10 && *f - L_('0') > INT_MAX % 10))
708*6ea1f93eSDaniel Fojt /* Avoid overflow. */
709*6ea1f93eSDaniel Fojt width = INT_MAX;
710*6ea1f93eSDaniel Fojt else
711*6ea1f93eSDaniel Fojt {
712*6ea1f93eSDaniel Fojt width *= 10;
713*6ea1f93eSDaniel Fojt width += *f - L_('0');
714*6ea1f93eSDaniel Fojt }
715*6ea1f93eSDaniel Fojt ++f;
716*6ea1f93eSDaniel Fojt }
717*6ea1f93eSDaniel Fojt while (ISDIGIT (*f));
718*6ea1f93eSDaniel Fojt }
719*6ea1f93eSDaniel Fojt
720*6ea1f93eSDaniel Fojt /* Check for modifiers. */
721*6ea1f93eSDaniel Fojt switch (*f)
722*6ea1f93eSDaniel Fojt {
723*6ea1f93eSDaniel Fojt case L_('E'):
724*6ea1f93eSDaniel Fojt case L_('O'):
725*6ea1f93eSDaniel Fojt modifier = *f++;
726*6ea1f93eSDaniel Fojt break;
727*6ea1f93eSDaniel Fojt
728*6ea1f93eSDaniel Fojt default:
729*6ea1f93eSDaniel Fojt modifier = 0;
730*6ea1f93eSDaniel Fojt break;
731*6ea1f93eSDaniel Fojt }
732*6ea1f93eSDaniel Fojt
733*6ea1f93eSDaniel Fojt /* Now do the specified format. */
734*6ea1f93eSDaniel Fojt format_char = *f;
735*6ea1f93eSDaniel Fojt switch (format_char)
736*6ea1f93eSDaniel Fojt {
737*6ea1f93eSDaniel Fojt #define DO_NUMBER(d, v) \
738*6ea1f93eSDaniel Fojt do \
739*6ea1f93eSDaniel Fojt { \
740*6ea1f93eSDaniel Fojt digits = d; \
741*6ea1f93eSDaniel Fojt number_value = v; \
742*6ea1f93eSDaniel Fojt goto do_number; \
743*6ea1f93eSDaniel Fojt } \
744*6ea1f93eSDaniel Fojt while (0)
745*6ea1f93eSDaniel Fojt #define DO_SIGNED_NUMBER(d, negative, v) \
746*6ea1f93eSDaniel Fojt do \
747*6ea1f93eSDaniel Fojt { \
748*6ea1f93eSDaniel Fojt digits = d; \
749*6ea1f93eSDaniel Fojt negative_number = negative; \
750*6ea1f93eSDaniel Fojt u_number_value = v; \
751*6ea1f93eSDaniel Fojt goto do_signed_number; \
752*6ea1f93eSDaniel Fojt } \
753*6ea1f93eSDaniel Fojt while (0)
754*6ea1f93eSDaniel Fojt
755*6ea1f93eSDaniel Fojt /* The mask is not what you might think.
756*6ea1f93eSDaniel Fojt When the ordinal i'th bit is set, insert a colon
757*6ea1f93eSDaniel Fojt before the i'th digit of the time zone representation. */
758*6ea1f93eSDaniel Fojt #define DO_TZ_OFFSET(d, mask, v) \
759*6ea1f93eSDaniel Fojt do \
760*6ea1f93eSDaniel Fojt { \
761*6ea1f93eSDaniel Fojt digits = d; \
762*6ea1f93eSDaniel Fojt tz_colon_mask = mask; \
763*6ea1f93eSDaniel Fojt u_number_value = v; \
764*6ea1f93eSDaniel Fojt goto do_tz_offset; \
765*6ea1f93eSDaniel Fojt } \
766*6ea1f93eSDaniel Fojt while (0)
767*6ea1f93eSDaniel Fojt #define DO_NUMBER_SPACEPAD(d, v) \
768*6ea1f93eSDaniel Fojt do \
769*6ea1f93eSDaniel Fojt { \
770*6ea1f93eSDaniel Fojt digits = d; \
771*6ea1f93eSDaniel Fojt number_value = v; \
772*6ea1f93eSDaniel Fojt goto do_number_spacepad; \
773*6ea1f93eSDaniel Fojt } \
774*6ea1f93eSDaniel Fojt while (0)
775*6ea1f93eSDaniel Fojt
776*6ea1f93eSDaniel Fojt case L_('%'):
777*6ea1f93eSDaniel Fojt if (modifier != 0)
778*6ea1f93eSDaniel Fojt goto bad_format;
779*6ea1f93eSDaniel Fojt add1 (*f);
780*6ea1f93eSDaniel Fojt break;
781*6ea1f93eSDaniel Fojt
782*6ea1f93eSDaniel Fojt case L_('a'):
783*6ea1f93eSDaniel Fojt if (modifier != 0)
784*6ea1f93eSDaniel Fojt goto bad_format;
785*6ea1f93eSDaniel Fojt if (change_case)
786*6ea1f93eSDaniel Fojt {
787*6ea1f93eSDaniel Fojt to_uppcase = true;
788*6ea1f93eSDaniel Fojt to_lowcase = false;
789*6ea1f93eSDaniel Fojt }
790*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
791*6ea1f93eSDaniel Fojt cpy (aw_len, a_wkday);
792*6ea1f93eSDaniel Fojt break;
793*6ea1f93eSDaniel Fojt #else
794*6ea1f93eSDaniel Fojt goto underlying_strftime;
795*6ea1f93eSDaniel Fojt #endif
796*6ea1f93eSDaniel Fojt
797*6ea1f93eSDaniel Fojt case 'A':
798*6ea1f93eSDaniel Fojt if (modifier != 0)
799*6ea1f93eSDaniel Fojt goto bad_format;
800*6ea1f93eSDaniel Fojt if (change_case)
801*6ea1f93eSDaniel Fojt {
802*6ea1f93eSDaniel Fojt to_uppcase = true;
803*6ea1f93eSDaniel Fojt to_lowcase = false;
804*6ea1f93eSDaniel Fojt }
805*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
806*6ea1f93eSDaniel Fojt cpy (STRLEN (f_wkday), f_wkday);
807*6ea1f93eSDaniel Fojt break;
808*6ea1f93eSDaniel Fojt #else
809*6ea1f93eSDaniel Fojt goto underlying_strftime;
810*6ea1f93eSDaniel Fojt #endif
811*6ea1f93eSDaniel Fojt
812*6ea1f93eSDaniel Fojt case L_('b'):
813*6ea1f93eSDaniel Fojt case L_('h'):
814*6ea1f93eSDaniel Fojt if (change_case)
815*6ea1f93eSDaniel Fojt {
816*6ea1f93eSDaniel Fojt to_uppcase = true;
817*6ea1f93eSDaniel Fojt to_lowcase = false;
818*6ea1f93eSDaniel Fojt }
819*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
820*6ea1f93eSDaniel Fojt goto bad_format;
821*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
822*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
823*6ea1f93eSDaniel Fojt cpy (aam_len, a_altmonth);
824*6ea1f93eSDaniel Fojt else
825*6ea1f93eSDaniel Fojt cpy (am_len, a_month);
826*6ea1f93eSDaniel Fojt break;
827*6ea1f93eSDaniel Fojt #else
828*6ea1f93eSDaniel Fojt goto underlying_strftime;
829*6ea1f93eSDaniel Fojt #endif
830*6ea1f93eSDaniel Fojt
831*6ea1f93eSDaniel Fojt case L_('B'):
832*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
833*6ea1f93eSDaniel Fojt goto bad_format;
834*6ea1f93eSDaniel Fojt if (change_case)
835*6ea1f93eSDaniel Fojt {
836*6ea1f93eSDaniel Fojt to_uppcase = true;
837*6ea1f93eSDaniel Fojt to_lowcase = false;
838*6ea1f93eSDaniel Fojt }
839*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
840*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
841*6ea1f93eSDaniel Fojt cpy (STRLEN (f_altmonth), f_altmonth);
842*6ea1f93eSDaniel Fojt else
843*6ea1f93eSDaniel Fojt cpy (STRLEN (f_month), f_month);
844*6ea1f93eSDaniel Fojt break;
845*6ea1f93eSDaniel Fojt #else
846*6ea1f93eSDaniel Fojt goto underlying_strftime;
847*6ea1f93eSDaniel Fojt #endif
848*6ea1f93eSDaniel Fojt
849*6ea1f93eSDaniel Fojt case L_('c'):
850*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
851*6ea1f93eSDaniel Fojt goto bad_format;
852*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
853*6ea1f93eSDaniel Fojt if (! (modifier == 'E'
854*6ea1f93eSDaniel Fojt && (*(subfmt =
855*6ea1f93eSDaniel Fojt (const CHAR_T *) _NL_CURRENT (LC_TIME,
856*6ea1f93eSDaniel Fojt NLW(ERA_D_T_FMT)))
857*6ea1f93eSDaniel Fojt != '\0')))
858*6ea1f93eSDaniel Fojt subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_T_FMT));
859*6ea1f93eSDaniel Fojt #else
860*6ea1f93eSDaniel Fojt goto underlying_strftime;
861*6ea1f93eSDaniel Fojt #endif
862*6ea1f93eSDaniel Fojt
863*6ea1f93eSDaniel Fojt subformat:
864*6ea1f93eSDaniel Fojt {
865*6ea1f93eSDaniel Fojt size_t len = __strftime_internal (NULL, STRFTIME_ARG ((size_t) -1)
866*6ea1f93eSDaniel Fojt subfmt,
867*6ea1f93eSDaniel Fojt tp, to_uppcase, tzset_called
868*6ea1f93eSDaniel Fojt extra_args LOCALE_ARG);
869*6ea1f93eSDaniel Fojt add (len, __strftime_internal (p,
870*6ea1f93eSDaniel Fojt STRFTIME_ARG (maxsize - i)
871*6ea1f93eSDaniel Fojt subfmt,
872*6ea1f93eSDaniel Fojt tp, to_uppcase, tzset_called
873*6ea1f93eSDaniel Fojt extra_args LOCALE_ARG));
874*6ea1f93eSDaniel Fojt }
875*6ea1f93eSDaniel Fojt break;
876*6ea1f93eSDaniel Fojt
877*6ea1f93eSDaniel Fojt #if !(defined _NL_CURRENT && HAVE_STRUCT_ERA_ENTRY)
878*6ea1f93eSDaniel Fojt underlying_strftime:
879*6ea1f93eSDaniel Fojt {
880*6ea1f93eSDaniel Fojt /* The relevant information is available only via the
881*6ea1f93eSDaniel Fojt underlying strftime implementation, so use that. */
882*6ea1f93eSDaniel Fojt char ufmt[5];
883*6ea1f93eSDaniel Fojt char *u = ufmt;
884*6ea1f93eSDaniel Fojt char ubuf[1024]; /* enough for any single format in practice */
885*6ea1f93eSDaniel Fojt size_t len;
886*6ea1f93eSDaniel Fojt /* Make sure we're calling the actual underlying strftime.
887*6ea1f93eSDaniel Fojt In some cases, config.h contains something like
888*6ea1f93eSDaniel Fojt "#define strftime rpl_strftime". */
889*6ea1f93eSDaniel Fojt # ifdef strftime
890*6ea1f93eSDaniel Fojt # undef strftime
891*6ea1f93eSDaniel Fojt size_t strftime ();
892*6ea1f93eSDaniel Fojt # endif
893*6ea1f93eSDaniel Fojt
894*6ea1f93eSDaniel Fojt /* The space helps distinguish strftime failure from empty
895*6ea1f93eSDaniel Fojt output. */
896*6ea1f93eSDaniel Fojt *u++ = ' ';
897*6ea1f93eSDaniel Fojt *u++ = '%';
898*6ea1f93eSDaniel Fojt if (modifier != 0)
899*6ea1f93eSDaniel Fojt *u++ = modifier;
900*6ea1f93eSDaniel Fojt *u++ = format_char;
901*6ea1f93eSDaniel Fojt *u = '\0';
902*6ea1f93eSDaniel Fojt len = strftime (ubuf, sizeof ubuf, ufmt, tp);
903*6ea1f93eSDaniel Fojt if (len != 0)
904*6ea1f93eSDaniel Fojt cpy (len - 1, ubuf + 1);
905*6ea1f93eSDaniel Fojt }
906*6ea1f93eSDaniel Fojt break;
907*6ea1f93eSDaniel Fojt #endif
908*6ea1f93eSDaniel Fojt
909*6ea1f93eSDaniel Fojt case L_('C'):
910*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
911*6ea1f93eSDaniel Fojt {
912*6ea1f93eSDaniel Fojt #if HAVE_STRUCT_ERA_ENTRY
913*6ea1f93eSDaniel Fojt struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
914*6ea1f93eSDaniel Fojt if (era)
915*6ea1f93eSDaniel Fojt {
916*6ea1f93eSDaniel Fojt # ifdef COMPILE_WIDE
917*6ea1f93eSDaniel Fojt size_t len = __wcslen (era->era_wname);
918*6ea1f93eSDaniel Fojt cpy (len, era->era_wname);
919*6ea1f93eSDaniel Fojt # else
920*6ea1f93eSDaniel Fojt size_t len = strlen (era->era_name);
921*6ea1f93eSDaniel Fojt cpy (len, era->era_name);
922*6ea1f93eSDaniel Fojt # endif
923*6ea1f93eSDaniel Fojt break;
924*6ea1f93eSDaniel Fojt }
925*6ea1f93eSDaniel Fojt #else
926*6ea1f93eSDaniel Fojt goto underlying_strftime;
927*6ea1f93eSDaniel Fojt #endif
928*6ea1f93eSDaniel Fojt }
929*6ea1f93eSDaniel Fojt
930*6ea1f93eSDaniel Fojt {
931*6ea1f93eSDaniel Fojt int century = tp->tm_year / 100 + TM_YEAR_BASE / 100;
932*6ea1f93eSDaniel Fojt century -= tp->tm_year % 100 < 0 && 0 < century;
933*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (2, tp->tm_year < - TM_YEAR_BASE, century);
934*6ea1f93eSDaniel Fojt }
935*6ea1f93eSDaniel Fojt
936*6ea1f93eSDaniel Fojt case L_('x'):
937*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
938*6ea1f93eSDaniel Fojt goto bad_format;
939*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
940*6ea1f93eSDaniel Fojt if (! (modifier == L_('E')
941*6ea1f93eSDaniel Fojt && (*(subfmt =
942*6ea1f93eSDaniel Fojt (const CHAR_T *)_NL_CURRENT (LC_TIME, NLW(ERA_D_FMT)))
943*6ea1f93eSDaniel Fojt != L_('\0'))))
944*6ea1f93eSDaniel Fojt subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_FMT));
945*6ea1f93eSDaniel Fojt goto subformat;
946*6ea1f93eSDaniel Fojt #else
947*6ea1f93eSDaniel Fojt goto underlying_strftime;
948*6ea1f93eSDaniel Fojt #endif
949*6ea1f93eSDaniel Fojt case L_('D'):
950*6ea1f93eSDaniel Fojt if (modifier != 0)
951*6ea1f93eSDaniel Fojt goto bad_format;
952*6ea1f93eSDaniel Fojt subfmt = L_("%m/%d/%y");
953*6ea1f93eSDaniel Fojt goto subformat;
954*6ea1f93eSDaniel Fojt
955*6ea1f93eSDaniel Fojt case L_('d'):
956*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
957*6ea1f93eSDaniel Fojt goto bad_format;
958*6ea1f93eSDaniel Fojt
959*6ea1f93eSDaniel Fojt DO_NUMBER (2, tp->tm_mday);
960*6ea1f93eSDaniel Fojt
961*6ea1f93eSDaniel Fojt case L_('e'):
962*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
963*6ea1f93eSDaniel Fojt goto bad_format;
964*6ea1f93eSDaniel Fojt
965*6ea1f93eSDaniel Fojt DO_NUMBER_SPACEPAD (2, tp->tm_mday);
966*6ea1f93eSDaniel Fojt
967*6ea1f93eSDaniel Fojt /* All numeric formats set DIGITS and NUMBER_VALUE (or U_NUMBER_VALUE)
968*6ea1f93eSDaniel Fojt and then jump to one of these labels. */
969*6ea1f93eSDaniel Fojt
970*6ea1f93eSDaniel Fojt do_tz_offset:
971*6ea1f93eSDaniel Fojt always_output_a_sign = true;
972*6ea1f93eSDaniel Fojt goto do_number_body;
973*6ea1f93eSDaniel Fojt
974*6ea1f93eSDaniel Fojt do_number_spacepad:
975*6ea1f93eSDaniel Fojt /* Force '_' flag unless overridden by '0' or '-' flag. */
976*6ea1f93eSDaniel Fojt if (pad != L_('0') && pad != L_('-'))
977*6ea1f93eSDaniel Fojt pad = L_('_');
978*6ea1f93eSDaniel Fojt
979*6ea1f93eSDaniel Fojt do_number:
980*6ea1f93eSDaniel Fojt /* Format NUMBER_VALUE according to the MODIFIER flag. */
981*6ea1f93eSDaniel Fojt negative_number = number_value < 0;
982*6ea1f93eSDaniel Fojt u_number_value = number_value;
983*6ea1f93eSDaniel Fojt
984*6ea1f93eSDaniel Fojt do_signed_number:
985*6ea1f93eSDaniel Fojt always_output_a_sign = false;
986*6ea1f93eSDaniel Fojt tz_colon_mask = 0;
987*6ea1f93eSDaniel Fojt
988*6ea1f93eSDaniel Fojt do_number_body:
989*6ea1f93eSDaniel Fojt /* Format U_NUMBER_VALUE according to the MODIFIER flag.
990*6ea1f93eSDaniel Fojt NEGATIVE_NUMBER is nonzero if the original number was
991*6ea1f93eSDaniel Fojt negative; in this case it was converted directly to
992*6ea1f93eSDaniel Fojt unsigned int (i.e., modulo (UINT_MAX + 1)) without
993*6ea1f93eSDaniel Fojt negating it. */
994*6ea1f93eSDaniel Fojt if (modifier == L_('O') && !negative_number)
995*6ea1f93eSDaniel Fojt {
996*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
997*6ea1f93eSDaniel Fojt /* Get the locale specific alternate representation of
998*6ea1f93eSDaniel Fojt the number. If none exist NULL is returned. */
999*6ea1f93eSDaniel Fojt const CHAR_T *cp = nl_get_alt_digit (u_number_value
1000*6ea1f93eSDaniel Fojt HELPER_LOCALE_ARG);
1001*6ea1f93eSDaniel Fojt
1002*6ea1f93eSDaniel Fojt if (cp != NULL)
1003*6ea1f93eSDaniel Fojt {
1004*6ea1f93eSDaniel Fojt size_t digitlen = STRLEN (cp);
1005*6ea1f93eSDaniel Fojt if (digitlen != 0)
1006*6ea1f93eSDaniel Fojt {
1007*6ea1f93eSDaniel Fojt cpy (digitlen, cp);
1008*6ea1f93eSDaniel Fojt break;
1009*6ea1f93eSDaniel Fojt }
1010*6ea1f93eSDaniel Fojt }
1011*6ea1f93eSDaniel Fojt #else
1012*6ea1f93eSDaniel Fojt goto underlying_strftime;
1013*6ea1f93eSDaniel Fojt #endif
1014*6ea1f93eSDaniel Fojt }
1015*6ea1f93eSDaniel Fojt
1016*6ea1f93eSDaniel Fojt bufp = buf + sizeof (buf) / sizeof (buf[0]);
1017*6ea1f93eSDaniel Fojt
1018*6ea1f93eSDaniel Fojt if (negative_number)
1019*6ea1f93eSDaniel Fojt u_number_value = - u_number_value;
1020*6ea1f93eSDaniel Fojt
1021*6ea1f93eSDaniel Fojt do
1022*6ea1f93eSDaniel Fojt {
1023*6ea1f93eSDaniel Fojt if (tz_colon_mask & 1)
1024*6ea1f93eSDaniel Fojt *--bufp = ':';
1025*6ea1f93eSDaniel Fojt tz_colon_mask >>= 1;
1026*6ea1f93eSDaniel Fojt *--bufp = u_number_value % 10 + L_('0');
1027*6ea1f93eSDaniel Fojt u_number_value /= 10;
1028*6ea1f93eSDaniel Fojt }
1029*6ea1f93eSDaniel Fojt while (u_number_value != 0 || tz_colon_mask != 0);
1030*6ea1f93eSDaniel Fojt
1031*6ea1f93eSDaniel Fojt do_number_sign_and_padding:
1032*6ea1f93eSDaniel Fojt if (digits < width)
1033*6ea1f93eSDaniel Fojt digits = width;
1034*6ea1f93eSDaniel Fojt
1035*6ea1f93eSDaniel Fojt sign_char = (negative_number ? L_('-')
1036*6ea1f93eSDaniel Fojt : always_output_a_sign ? L_('+')
1037*6ea1f93eSDaniel Fojt : 0);
1038*6ea1f93eSDaniel Fojt
1039*6ea1f93eSDaniel Fojt if (pad == L_('-'))
1040*6ea1f93eSDaniel Fojt {
1041*6ea1f93eSDaniel Fojt if (sign_char)
1042*6ea1f93eSDaniel Fojt add1 (sign_char);
1043*6ea1f93eSDaniel Fojt }
1044*6ea1f93eSDaniel Fojt else
1045*6ea1f93eSDaniel Fojt {
1046*6ea1f93eSDaniel Fojt int padding = digits - (buf + (sizeof (buf) / sizeof (buf[0]))
1047*6ea1f93eSDaniel Fojt - bufp) - !!sign_char;
1048*6ea1f93eSDaniel Fojt
1049*6ea1f93eSDaniel Fojt if (padding > 0)
1050*6ea1f93eSDaniel Fojt {
1051*6ea1f93eSDaniel Fojt if (pad == L_('_'))
1052*6ea1f93eSDaniel Fojt {
1053*6ea1f93eSDaniel Fojt if ((size_t) padding >= maxsize - i)
1054*6ea1f93eSDaniel Fojt return 0;
1055*6ea1f93eSDaniel Fojt
1056*6ea1f93eSDaniel Fojt if (p)
1057*6ea1f93eSDaniel Fojt memset_space (p, padding);
1058*6ea1f93eSDaniel Fojt i += padding;
1059*6ea1f93eSDaniel Fojt width = width > padding ? width - padding : 0;
1060*6ea1f93eSDaniel Fojt if (sign_char)
1061*6ea1f93eSDaniel Fojt add1 (sign_char);
1062*6ea1f93eSDaniel Fojt }
1063*6ea1f93eSDaniel Fojt else
1064*6ea1f93eSDaniel Fojt {
1065*6ea1f93eSDaniel Fojt if ((size_t) digits >= maxsize - i)
1066*6ea1f93eSDaniel Fojt return 0;
1067*6ea1f93eSDaniel Fojt
1068*6ea1f93eSDaniel Fojt if (sign_char)
1069*6ea1f93eSDaniel Fojt add1 (sign_char);
1070*6ea1f93eSDaniel Fojt
1071*6ea1f93eSDaniel Fojt if (p)
1072*6ea1f93eSDaniel Fojt memset_zero (p, padding);
1073*6ea1f93eSDaniel Fojt i += padding;
1074*6ea1f93eSDaniel Fojt width = 0;
1075*6ea1f93eSDaniel Fojt }
1076*6ea1f93eSDaniel Fojt }
1077*6ea1f93eSDaniel Fojt else
1078*6ea1f93eSDaniel Fojt {
1079*6ea1f93eSDaniel Fojt if (sign_char)
1080*6ea1f93eSDaniel Fojt add1 (sign_char);
1081*6ea1f93eSDaniel Fojt }
1082*6ea1f93eSDaniel Fojt }
1083*6ea1f93eSDaniel Fojt
1084*6ea1f93eSDaniel Fojt cpy (buf + sizeof (buf) / sizeof (buf[0]) - bufp, bufp);
1085*6ea1f93eSDaniel Fojt break;
1086*6ea1f93eSDaniel Fojt
1087*6ea1f93eSDaniel Fojt case L_('F'):
1088*6ea1f93eSDaniel Fojt if (modifier != 0)
1089*6ea1f93eSDaniel Fojt goto bad_format;
1090*6ea1f93eSDaniel Fojt subfmt = L_("%Y-%m-%d");
1091*6ea1f93eSDaniel Fojt goto subformat;
1092*6ea1f93eSDaniel Fojt
1093*6ea1f93eSDaniel Fojt case L_('H'):
1094*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1095*6ea1f93eSDaniel Fojt goto bad_format;
1096*6ea1f93eSDaniel Fojt
1097*6ea1f93eSDaniel Fojt DO_NUMBER (2, tp->tm_hour);
1098*6ea1f93eSDaniel Fojt
1099*6ea1f93eSDaniel Fojt case L_('I'):
1100*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1101*6ea1f93eSDaniel Fojt goto bad_format;
1102*6ea1f93eSDaniel Fojt
1103*6ea1f93eSDaniel Fojt DO_NUMBER (2, hour12);
1104*6ea1f93eSDaniel Fojt
1105*6ea1f93eSDaniel Fojt case L_('k'): /* GNU extension. */
1106*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1107*6ea1f93eSDaniel Fojt goto bad_format;
1108*6ea1f93eSDaniel Fojt
1109*6ea1f93eSDaniel Fojt DO_NUMBER_SPACEPAD (2, tp->tm_hour);
1110*6ea1f93eSDaniel Fojt
1111*6ea1f93eSDaniel Fojt case L_('l'): /* GNU extension. */
1112*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1113*6ea1f93eSDaniel Fojt goto bad_format;
1114*6ea1f93eSDaniel Fojt
1115*6ea1f93eSDaniel Fojt DO_NUMBER_SPACEPAD (2, hour12);
1116*6ea1f93eSDaniel Fojt
1117*6ea1f93eSDaniel Fojt case L_('j'):
1118*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1119*6ea1f93eSDaniel Fojt goto bad_format;
1120*6ea1f93eSDaniel Fojt
1121*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (3, tp->tm_yday < -1, tp->tm_yday + 1U);
1122*6ea1f93eSDaniel Fojt
1123*6ea1f93eSDaniel Fojt case L_('M'):
1124*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1125*6ea1f93eSDaniel Fojt goto bad_format;
1126*6ea1f93eSDaniel Fojt
1127*6ea1f93eSDaniel Fojt DO_NUMBER (2, tp->tm_min);
1128*6ea1f93eSDaniel Fojt
1129*6ea1f93eSDaniel Fojt case L_('m'):
1130*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1131*6ea1f93eSDaniel Fojt goto bad_format;
1132*6ea1f93eSDaniel Fojt
1133*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (2, tp->tm_mon < -1, tp->tm_mon + 1U);
1134*6ea1f93eSDaniel Fojt
1135*6ea1f93eSDaniel Fojt #ifndef _LIBC
1136*6ea1f93eSDaniel Fojt case L_('N'): /* GNU extension. */
1137*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1138*6ea1f93eSDaniel Fojt goto bad_format;
1139*6ea1f93eSDaniel Fojt
1140*6ea1f93eSDaniel Fojt number_value = ns;
1141*6ea1f93eSDaniel Fojt if (width == -1)
1142*6ea1f93eSDaniel Fojt width = 9;
1143*6ea1f93eSDaniel Fojt else
1144*6ea1f93eSDaniel Fojt {
1145*6ea1f93eSDaniel Fojt /* Take an explicit width less than 9 as a precision. */
1146*6ea1f93eSDaniel Fojt int j;
1147*6ea1f93eSDaniel Fojt for (j = width; j < 9; j++)
1148*6ea1f93eSDaniel Fojt number_value /= 10;
1149*6ea1f93eSDaniel Fojt }
1150*6ea1f93eSDaniel Fojt
1151*6ea1f93eSDaniel Fojt DO_NUMBER (width, number_value);
1152*6ea1f93eSDaniel Fojt #endif
1153*6ea1f93eSDaniel Fojt
1154*6ea1f93eSDaniel Fojt case L_('n'):
1155*6ea1f93eSDaniel Fojt add1 (L_('\n'));
1156*6ea1f93eSDaniel Fojt break;
1157*6ea1f93eSDaniel Fojt
1158*6ea1f93eSDaniel Fojt case L_('P'):
1159*6ea1f93eSDaniel Fojt to_lowcase = true;
1160*6ea1f93eSDaniel Fojt #ifndef _NL_CURRENT
1161*6ea1f93eSDaniel Fojt format_char = L_('p');
1162*6ea1f93eSDaniel Fojt #endif
1163*6ea1f93eSDaniel Fojt FALLTHROUGH;
1164*6ea1f93eSDaniel Fojt case L_('p'):
1165*6ea1f93eSDaniel Fojt if (change_case)
1166*6ea1f93eSDaniel Fojt {
1167*6ea1f93eSDaniel Fojt to_uppcase = false;
1168*6ea1f93eSDaniel Fojt to_lowcase = true;
1169*6ea1f93eSDaniel Fojt }
1170*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
1171*6ea1f93eSDaniel Fojt cpy (ap_len, ampm);
1172*6ea1f93eSDaniel Fojt break;
1173*6ea1f93eSDaniel Fojt #else
1174*6ea1f93eSDaniel Fojt goto underlying_strftime;
1175*6ea1f93eSDaniel Fojt #endif
1176*6ea1f93eSDaniel Fojt
1177*6ea1f93eSDaniel Fojt case L_('q'): /* GNU extension. */
1178*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (1, false, ((tp->tm_mon * 11) >> 5) + 1);
1179*6ea1f93eSDaniel Fojt break;
1180*6ea1f93eSDaniel Fojt
1181*6ea1f93eSDaniel Fojt case L_('R'):
1182*6ea1f93eSDaniel Fojt subfmt = L_("%H:%M");
1183*6ea1f93eSDaniel Fojt goto subformat;
1184*6ea1f93eSDaniel Fojt
1185*6ea1f93eSDaniel Fojt case L_('r'):
1186*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
1187*6ea1f93eSDaniel Fojt if (*(subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME,
1188*6ea1f93eSDaniel Fojt NLW(T_FMT_AMPM)))
1189*6ea1f93eSDaniel Fojt == L_('\0'))
1190*6ea1f93eSDaniel Fojt subfmt = L_("%I:%M:%S %p");
1191*6ea1f93eSDaniel Fojt goto subformat;
1192*6ea1f93eSDaniel Fojt #else
1193*6ea1f93eSDaniel Fojt goto underlying_strftime;
1194*6ea1f93eSDaniel Fojt #endif
1195*6ea1f93eSDaniel Fojt
1196*6ea1f93eSDaniel Fojt case L_('S'):
1197*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1198*6ea1f93eSDaniel Fojt goto bad_format;
1199*6ea1f93eSDaniel Fojt
1200*6ea1f93eSDaniel Fojt DO_NUMBER (2, tp->tm_sec);
1201*6ea1f93eSDaniel Fojt
1202*6ea1f93eSDaniel Fojt case L_('s'): /* GNU extension. */
1203*6ea1f93eSDaniel Fojt {
1204*6ea1f93eSDaniel Fojt struct tm ltm;
1205*6ea1f93eSDaniel Fojt time_t t;
1206*6ea1f93eSDaniel Fojt
1207*6ea1f93eSDaniel Fojt ltm = *tp;
1208*6ea1f93eSDaniel Fojt t = mktime_z (tz, <m);
1209*6ea1f93eSDaniel Fojt
1210*6ea1f93eSDaniel Fojt /* Generate string value for T using time_t arithmetic;
1211*6ea1f93eSDaniel Fojt this works even if sizeof (long) < sizeof (time_t). */
1212*6ea1f93eSDaniel Fojt
1213*6ea1f93eSDaniel Fojt bufp = buf + sizeof (buf) / sizeof (buf[0]);
1214*6ea1f93eSDaniel Fojt negative_number = t < 0;
1215*6ea1f93eSDaniel Fojt
1216*6ea1f93eSDaniel Fojt do
1217*6ea1f93eSDaniel Fojt {
1218*6ea1f93eSDaniel Fojt int d = t % 10;
1219*6ea1f93eSDaniel Fojt t /= 10;
1220*6ea1f93eSDaniel Fojt *--bufp = (negative_number ? -d : d) + L_('0');
1221*6ea1f93eSDaniel Fojt }
1222*6ea1f93eSDaniel Fojt while (t != 0);
1223*6ea1f93eSDaniel Fojt
1224*6ea1f93eSDaniel Fojt digits = 1;
1225*6ea1f93eSDaniel Fojt always_output_a_sign = false;
1226*6ea1f93eSDaniel Fojt goto do_number_sign_and_padding;
1227*6ea1f93eSDaniel Fojt }
1228*6ea1f93eSDaniel Fojt
1229*6ea1f93eSDaniel Fojt case L_('X'):
1230*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
1231*6ea1f93eSDaniel Fojt goto bad_format;
1232*6ea1f93eSDaniel Fojt #ifdef _NL_CURRENT
1233*6ea1f93eSDaniel Fojt if (! (modifier == L_('E')
1234*6ea1f93eSDaniel Fojt && (*(subfmt =
1235*6ea1f93eSDaniel Fojt (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ERA_T_FMT)))
1236*6ea1f93eSDaniel Fojt != L_('\0'))))
1237*6ea1f93eSDaniel Fojt subfmt = (const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(T_FMT));
1238*6ea1f93eSDaniel Fojt goto subformat;
1239*6ea1f93eSDaniel Fojt #else
1240*6ea1f93eSDaniel Fojt goto underlying_strftime;
1241*6ea1f93eSDaniel Fojt #endif
1242*6ea1f93eSDaniel Fojt case L_('T'):
1243*6ea1f93eSDaniel Fojt subfmt = L_("%H:%M:%S");
1244*6ea1f93eSDaniel Fojt goto subformat;
1245*6ea1f93eSDaniel Fojt
1246*6ea1f93eSDaniel Fojt case L_('t'):
1247*6ea1f93eSDaniel Fojt add1 (L_('\t'));
1248*6ea1f93eSDaniel Fojt break;
1249*6ea1f93eSDaniel Fojt
1250*6ea1f93eSDaniel Fojt case L_('u'):
1251*6ea1f93eSDaniel Fojt DO_NUMBER (1, (tp->tm_wday - 1 + 7) % 7 + 1);
1252*6ea1f93eSDaniel Fojt
1253*6ea1f93eSDaniel Fojt case L_('U'):
1254*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1255*6ea1f93eSDaniel Fojt goto bad_format;
1256*6ea1f93eSDaniel Fojt
1257*6ea1f93eSDaniel Fojt DO_NUMBER (2, (tp->tm_yday - tp->tm_wday + 7) / 7);
1258*6ea1f93eSDaniel Fojt
1259*6ea1f93eSDaniel Fojt case L_('V'):
1260*6ea1f93eSDaniel Fojt case L_('g'):
1261*6ea1f93eSDaniel Fojt case L_('G'):
1262*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1263*6ea1f93eSDaniel Fojt goto bad_format;
1264*6ea1f93eSDaniel Fojt {
1265*6ea1f93eSDaniel Fojt /* YEAR is a leap year if and only if (tp->tm_year + TM_YEAR_BASE)
1266*6ea1f93eSDaniel Fojt is a leap year, except that YEAR and YEAR - 1 both work
1267*6ea1f93eSDaniel Fojt correctly even when (tp->tm_year + TM_YEAR_BASE) would
1268*6ea1f93eSDaniel Fojt overflow. */
1269*6ea1f93eSDaniel Fojt int year = (tp->tm_year
1270*6ea1f93eSDaniel Fojt + (tp->tm_year < 0
1271*6ea1f93eSDaniel Fojt ? TM_YEAR_BASE % 400
1272*6ea1f93eSDaniel Fojt : TM_YEAR_BASE % 400 - 400));
1273*6ea1f93eSDaniel Fojt int year_adjust = 0;
1274*6ea1f93eSDaniel Fojt int days = iso_week_days (tp->tm_yday, tp->tm_wday);
1275*6ea1f93eSDaniel Fojt
1276*6ea1f93eSDaniel Fojt if (days < 0)
1277*6ea1f93eSDaniel Fojt {
1278*6ea1f93eSDaniel Fojt /* This ISO week belongs to the previous year. */
1279*6ea1f93eSDaniel Fojt year_adjust = -1;
1280*6ea1f93eSDaniel Fojt days = iso_week_days (tp->tm_yday + (365 + __isleap (year - 1)),
1281*6ea1f93eSDaniel Fojt tp->tm_wday);
1282*6ea1f93eSDaniel Fojt }
1283*6ea1f93eSDaniel Fojt else
1284*6ea1f93eSDaniel Fojt {
1285*6ea1f93eSDaniel Fojt int d = iso_week_days (tp->tm_yday - (365 + __isleap (year)),
1286*6ea1f93eSDaniel Fojt tp->tm_wday);
1287*6ea1f93eSDaniel Fojt if (0 <= d)
1288*6ea1f93eSDaniel Fojt {
1289*6ea1f93eSDaniel Fojt /* This ISO week belongs to the next year. */
1290*6ea1f93eSDaniel Fojt year_adjust = 1;
1291*6ea1f93eSDaniel Fojt days = d;
1292*6ea1f93eSDaniel Fojt }
1293*6ea1f93eSDaniel Fojt }
1294*6ea1f93eSDaniel Fojt
1295*6ea1f93eSDaniel Fojt switch (*f)
1296*6ea1f93eSDaniel Fojt {
1297*6ea1f93eSDaniel Fojt case L_('g'):
1298*6ea1f93eSDaniel Fojt {
1299*6ea1f93eSDaniel Fojt int yy = (tp->tm_year % 100 + year_adjust) % 100;
1300*6ea1f93eSDaniel Fojt DO_NUMBER (2, (0 <= yy
1301*6ea1f93eSDaniel Fojt ? yy
1302*6ea1f93eSDaniel Fojt : tp->tm_year < -TM_YEAR_BASE - year_adjust
1303*6ea1f93eSDaniel Fojt ? -yy
1304*6ea1f93eSDaniel Fojt : yy + 100));
1305*6ea1f93eSDaniel Fojt }
1306*6ea1f93eSDaniel Fojt
1307*6ea1f93eSDaniel Fojt case L_('G'):
1308*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (4, tp->tm_year < -TM_YEAR_BASE - year_adjust,
1309*6ea1f93eSDaniel Fojt (tp->tm_year + (unsigned int) TM_YEAR_BASE
1310*6ea1f93eSDaniel Fojt + year_adjust));
1311*6ea1f93eSDaniel Fojt
1312*6ea1f93eSDaniel Fojt default:
1313*6ea1f93eSDaniel Fojt DO_NUMBER (2, days / 7 + 1);
1314*6ea1f93eSDaniel Fojt }
1315*6ea1f93eSDaniel Fojt }
1316*6ea1f93eSDaniel Fojt
1317*6ea1f93eSDaniel Fojt case L_('W'):
1318*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1319*6ea1f93eSDaniel Fojt goto bad_format;
1320*6ea1f93eSDaniel Fojt
1321*6ea1f93eSDaniel Fojt DO_NUMBER (2, (tp->tm_yday - (tp->tm_wday - 1 + 7) % 7 + 7) / 7);
1322*6ea1f93eSDaniel Fojt
1323*6ea1f93eSDaniel Fojt case L_('w'):
1324*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1325*6ea1f93eSDaniel Fojt goto bad_format;
1326*6ea1f93eSDaniel Fojt
1327*6ea1f93eSDaniel Fojt DO_NUMBER (1, tp->tm_wday);
1328*6ea1f93eSDaniel Fojt
1329*6ea1f93eSDaniel Fojt case L_('Y'):
1330*6ea1f93eSDaniel Fojt if (modifier == 'E')
1331*6ea1f93eSDaniel Fojt {
1332*6ea1f93eSDaniel Fojt #if HAVE_STRUCT_ERA_ENTRY
1333*6ea1f93eSDaniel Fojt struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
1334*6ea1f93eSDaniel Fojt if (era)
1335*6ea1f93eSDaniel Fojt {
1336*6ea1f93eSDaniel Fojt # ifdef COMPILE_WIDE
1337*6ea1f93eSDaniel Fojt subfmt = era->era_wformat;
1338*6ea1f93eSDaniel Fojt # else
1339*6ea1f93eSDaniel Fojt subfmt = era->era_format;
1340*6ea1f93eSDaniel Fojt # endif
1341*6ea1f93eSDaniel Fojt goto subformat;
1342*6ea1f93eSDaniel Fojt }
1343*6ea1f93eSDaniel Fojt #else
1344*6ea1f93eSDaniel Fojt goto underlying_strftime;
1345*6ea1f93eSDaniel Fojt #endif
1346*6ea1f93eSDaniel Fojt }
1347*6ea1f93eSDaniel Fojt if (modifier == L_('O'))
1348*6ea1f93eSDaniel Fojt goto bad_format;
1349*6ea1f93eSDaniel Fojt
1350*6ea1f93eSDaniel Fojt DO_SIGNED_NUMBER (4, tp->tm_year < -TM_YEAR_BASE,
1351*6ea1f93eSDaniel Fojt tp->tm_year + (unsigned int) TM_YEAR_BASE);
1352*6ea1f93eSDaniel Fojt
1353*6ea1f93eSDaniel Fojt case L_('y'):
1354*6ea1f93eSDaniel Fojt if (modifier == L_('E'))
1355*6ea1f93eSDaniel Fojt {
1356*6ea1f93eSDaniel Fojt #if HAVE_STRUCT_ERA_ENTRY
1357*6ea1f93eSDaniel Fojt struct era_entry *era = _nl_get_era_entry (tp HELPER_LOCALE_ARG);
1358*6ea1f93eSDaniel Fojt if (era)
1359*6ea1f93eSDaniel Fojt {
1360*6ea1f93eSDaniel Fojt int delta = tp->tm_year - era->start_date[0];
1361*6ea1f93eSDaniel Fojt DO_NUMBER (1, (era->offset
1362*6ea1f93eSDaniel Fojt + delta * era->absolute_direction));
1363*6ea1f93eSDaniel Fojt }
1364*6ea1f93eSDaniel Fojt #else
1365*6ea1f93eSDaniel Fojt goto underlying_strftime;
1366*6ea1f93eSDaniel Fojt #endif
1367*6ea1f93eSDaniel Fojt }
1368*6ea1f93eSDaniel Fojt
1369*6ea1f93eSDaniel Fojt {
1370*6ea1f93eSDaniel Fojt int yy = tp->tm_year % 100;
1371*6ea1f93eSDaniel Fojt if (yy < 0)
1372*6ea1f93eSDaniel Fojt yy = tp->tm_year < - TM_YEAR_BASE ? -yy : yy + 100;
1373*6ea1f93eSDaniel Fojt DO_NUMBER (2, yy);
1374*6ea1f93eSDaniel Fojt }
1375*6ea1f93eSDaniel Fojt
1376*6ea1f93eSDaniel Fojt case L_('Z'):
1377*6ea1f93eSDaniel Fojt if (change_case)
1378*6ea1f93eSDaniel Fojt {
1379*6ea1f93eSDaniel Fojt to_uppcase = false;
1380*6ea1f93eSDaniel Fojt to_lowcase = true;
1381*6ea1f93eSDaniel Fojt }
1382*6ea1f93eSDaniel Fojt
1383*6ea1f93eSDaniel Fojt #ifdef COMPILE_WIDE
1384*6ea1f93eSDaniel Fojt {
1385*6ea1f93eSDaniel Fojt /* The zone string is always given in multibyte form. We have
1386*6ea1f93eSDaniel Fojt to transform it first. */
1387*6ea1f93eSDaniel Fojt wchar_t *wczone;
1388*6ea1f93eSDaniel Fojt size_t len;
1389*6ea1f93eSDaniel Fojt widen (zone, wczone, len);
1390*6ea1f93eSDaniel Fojt cpy (len, wczone);
1391*6ea1f93eSDaniel Fojt }
1392*6ea1f93eSDaniel Fojt #else
1393*6ea1f93eSDaniel Fojt cpy (strlen (zone), zone);
1394*6ea1f93eSDaniel Fojt #endif
1395*6ea1f93eSDaniel Fojt break;
1396*6ea1f93eSDaniel Fojt
1397*6ea1f93eSDaniel Fojt case L_(':'):
1398*6ea1f93eSDaniel Fojt /* :, ::, and ::: are valid only just before 'z'.
1399*6ea1f93eSDaniel Fojt :::: etc. are rejected later. */
1400*6ea1f93eSDaniel Fojt for (colons = 1; f[colons] == L_(':'); colons++)
1401*6ea1f93eSDaniel Fojt continue;
1402*6ea1f93eSDaniel Fojt if (f[colons] != L_('z'))
1403*6ea1f93eSDaniel Fojt goto bad_format;
1404*6ea1f93eSDaniel Fojt f += colons;
1405*6ea1f93eSDaniel Fojt goto do_z_conversion;
1406*6ea1f93eSDaniel Fojt
1407*6ea1f93eSDaniel Fojt case L_('z'):
1408*6ea1f93eSDaniel Fojt colons = 0;
1409*6ea1f93eSDaniel Fojt
1410*6ea1f93eSDaniel Fojt do_z_conversion:
1411*6ea1f93eSDaniel Fojt if (tp->tm_isdst < 0)
1412*6ea1f93eSDaniel Fojt break;
1413*6ea1f93eSDaniel Fojt
1414*6ea1f93eSDaniel Fojt {
1415*6ea1f93eSDaniel Fojt int diff;
1416*6ea1f93eSDaniel Fojt int hour_diff;
1417*6ea1f93eSDaniel Fojt int min_diff;
1418*6ea1f93eSDaniel Fojt int sec_diff;
1419*6ea1f93eSDaniel Fojt #if HAVE_TM_GMTOFF
1420*6ea1f93eSDaniel Fojt diff = tp->tm_gmtoff;
1421*6ea1f93eSDaniel Fojt #else
1422*6ea1f93eSDaniel Fojt if (!tz)
1423*6ea1f93eSDaniel Fojt diff = 0;
1424*6ea1f93eSDaniel Fojt else
1425*6ea1f93eSDaniel Fojt {
1426*6ea1f93eSDaniel Fojt struct tm gtm;
1427*6ea1f93eSDaniel Fojt struct tm ltm;
1428*6ea1f93eSDaniel Fojt time_t lt;
1429*6ea1f93eSDaniel Fojt
1430*6ea1f93eSDaniel Fojt /* POSIX.1 requires that local time zone information be used as
1431*6ea1f93eSDaniel Fojt though strftime called tzset. */
1432*6ea1f93eSDaniel Fojt # if HAVE_TZSET
1433*6ea1f93eSDaniel Fojt if (!*tzset_called)
1434*6ea1f93eSDaniel Fojt {
1435*6ea1f93eSDaniel Fojt tzset ();
1436*6ea1f93eSDaniel Fojt *tzset_called = true;
1437*6ea1f93eSDaniel Fojt }
1438*6ea1f93eSDaniel Fojt # endif
1439*6ea1f93eSDaniel Fojt
1440*6ea1f93eSDaniel Fojt ltm = *tp;
1441*6ea1f93eSDaniel Fojt ltm.tm_wday = -1;
1442*6ea1f93eSDaniel Fojt lt = mktime_z (tz, <m);
1443*6ea1f93eSDaniel Fojt if (ltm.tm_wday < 0 || ! localtime_rz (0, <, >m))
1444*6ea1f93eSDaniel Fojt break;
1445*6ea1f93eSDaniel Fojt diff = tm_diff (<m, >m);
1446*6ea1f93eSDaniel Fojt }
1447*6ea1f93eSDaniel Fojt #endif
1448*6ea1f93eSDaniel Fojt
1449*6ea1f93eSDaniel Fojt negative_number = diff < 0 || (diff == 0 && *zone == '-');
1450*6ea1f93eSDaniel Fojt hour_diff = diff / 60 / 60;
1451*6ea1f93eSDaniel Fojt min_diff = diff / 60 % 60;
1452*6ea1f93eSDaniel Fojt sec_diff = diff % 60;
1453*6ea1f93eSDaniel Fojt
1454*6ea1f93eSDaniel Fojt switch (colons)
1455*6ea1f93eSDaniel Fojt {
1456*6ea1f93eSDaniel Fojt case 0: /* +hhmm */
1457*6ea1f93eSDaniel Fojt DO_TZ_OFFSET (5, 0, hour_diff * 100 + min_diff);
1458*6ea1f93eSDaniel Fojt
1459*6ea1f93eSDaniel Fojt case 1: tz_hh_mm: /* +hh:mm */
1460*6ea1f93eSDaniel Fojt DO_TZ_OFFSET (6, 04, hour_diff * 100 + min_diff);
1461*6ea1f93eSDaniel Fojt
1462*6ea1f93eSDaniel Fojt case 2: tz_hh_mm_ss: /* +hh:mm:ss */
1463*6ea1f93eSDaniel Fojt DO_TZ_OFFSET (9, 024,
1464*6ea1f93eSDaniel Fojt hour_diff * 10000 + min_diff * 100 + sec_diff);
1465*6ea1f93eSDaniel Fojt
1466*6ea1f93eSDaniel Fojt case 3: /* +hh if possible, else +hh:mm, else +hh:mm:ss */
1467*6ea1f93eSDaniel Fojt if (sec_diff != 0)
1468*6ea1f93eSDaniel Fojt goto tz_hh_mm_ss;
1469*6ea1f93eSDaniel Fojt if (min_diff != 0)
1470*6ea1f93eSDaniel Fojt goto tz_hh_mm;
1471*6ea1f93eSDaniel Fojt DO_TZ_OFFSET (3, 0, hour_diff);
1472*6ea1f93eSDaniel Fojt
1473*6ea1f93eSDaniel Fojt default:
1474*6ea1f93eSDaniel Fojt goto bad_format;
1475*6ea1f93eSDaniel Fojt }
1476*6ea1f93eSDaniel Fojt }
1477*6ea1f93eSDaniel Fojt
1478*6ea1f93eSDaniel Fojt case L_('\0'): /* GNU extension: % at end of format. */
1479*6ea1f93eSDaniel Fojt --f;
1480*6ea1f93eSDaniel Fojt FALLTHROUGH;
1481*6ea1f93eSDaniel Fojt default:
1482*6ea1f93eSDaniel Fojt /* Unknown format; output the format, including the '%',
1483*6ea1f93eSDaniel Fojt since this is most likely the right thing to do if a
1484*6ea1f93eSDaniel Fojt multibyte string has been misparsed. */
1485*6ea1f93eSDaniel Fojt bad_format:
1486*6ea1f93eSDaniel Fojt {
1487*6ea1f93eSDaniel Fojt int flen;
1488*6ea1f93eSDaniel Fojt for (flen = 1; f[1 - flen] != L_('%'); flen++)
1489*6ea1f93eSDaniel Fojt continue;
1490*6ea1f93eSDaniel Fojt cpy (flen, &f[1 - flen]);
1491*6ea1f93eSDaniel Fojt }
1492*6ea1f93eSDaniel Fojt break;
1493*6ea1f93eSDaniel Fojt }
1494*6ea1f93eSDaniel Fojt }
1495*6ea1f93eSDaniel Fojt
1496*6ea1f93eSDaniel Fojt #if ! FPRINTFTIME
1497*6ea1f93eSDaniel Fojt if (p && maxsize != 0)
1498*6ea1f93eSDaniel Fojt *p = L_('\0');
1499*6ea1f93eSDaniel Fojt #endif
1500*6ea1f93eSDaniel Fojt
1501*6ea1f93eSDaniel Fojt return i;
1502*6ea1f93eSDaniel Fojt }
1503