Mercurial > emacs
annotate src/strftime.c @ 50705:9b9071691f52
(file-relative-name): Recognize "c:/foo" as absolute
file name. Tiny change from David PONCE <david.ponce@wanadoo.fr>.
author | Kai Großjohann <kgrossjo@eu.uu.net> |
---|---|
date | Fri, 25 Apr 2003 14:14:31 +0000 |
parents | a1fef23ccede |
children | 4458f91cfb2b d7ddb3e565de |
rev | line source |
---|---|
34302
1139c325f625
Change some #if foo to #ifdef foo.
Dave Love <fx@gnu.org>
parents:
32687
diff
changeset
|
1 /* Copyright (C) 1991,92,93,94,95,96,97,98,99,2000 Free Software Foundation, Inc. |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
2 This file is part of the GNU Emacs. |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
3 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
4 The GNU C Library is free software; you can redistribute it and/or |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
5 modify it under the terms of the GNU Library General Public License as |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
6 published by the Free Software Foundation; either version 2 of the |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
7 License, or (at your option) any later version. |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
8 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
9 The GNU C Library is distributed in the hope that it will be useful, |
19875
278944a16af3
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18782
diff
changeset
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
12 Library General Public License for more details. |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
13 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
14 You should have received a copy of the GNU Library General Public |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
15 License along with the GNU C Library; see the file COPYING.LIB. If not, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
16 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
17 Boston, MA 02111-1307, USA. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
18 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
19 #ifdef HAVE_CONFIG_H |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
20 # include <config.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
21 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
22 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
23 #ifdef _LIBC |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
24 # define HAVE_LIMITS_H 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
25 # define HAVE_MBLEN 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
26 # define HAVE_MBRLEN 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
27 # define HAVE_STRUCT_ERA_ENTRY 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
28 # define HAVE_TM_GMTOFF 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
29 # define HAVE_TM_ZONE 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
30 # define HAVE_TZNAME 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
31 # define HAVE_TZSET 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
32 # define MULTIBYTE_IS_FORMAT_SAFE 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
33 # define STDC_HEADERS 1 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
34 # include "../locale/localeinfo.h" |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
35 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
36 |
20010
cb0800f5aa96
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
19875
diff
changeset
|
37 #if defined emacs && !defined HAVE_BCOPY |
cb0800f5aa96
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
19875
diff
changeset
|
38 # define HAVE_MEMCPY 1 |
cb0800f5aa96
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
19875
diff
changeset
|
39 #endif |
cb0800f5aa96
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
19875
diff
changeset
|
40 |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
41 #include <ctype.h> |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
42 #include <sys/types.h> /* Some systems define `time_t' here. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
43 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
44 #ifdef TIME_WITH_SYS_TIME |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
45 # include <sys/time.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
46 # include <time.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
47 #else |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
48 # ifdef HAVE_SYS_TIME_H |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
49 # include <sys/time.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
50 # else |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
51 # include <time.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
52 # endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
53 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
54 #if HAVE_TZNAME |
31100
92f108b8b281
[USE_CRT_DLL]: Remove unnecessary extern, which
Andrew Innes <andrewi@gnu.org>
parents:
28057
diff
changeset
|
55 #ifndef USE_CRT_DLL |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
56 extern char *tzname[]; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
57 #endif |
31100
92f108b8b281
[USE_CRT_DLL]: Remove unnecessary extern, which
Andrew Innes <andrewi@gnu.org>
parents:
28057
diff
changeset
|
58 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
59 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
60 /* Do multibyte processing if multibytes are supported, unless |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
61 multibyte sequences are safe in formats. Multibyte sequences are |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
62 safe if they cannot contain byte sequences that look like format |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
63 conversion specifications. The GNU C Library uses UTF8 multibyte |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
64 encoding, which is safe for formats, but strftime.c can be used |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
65 with other C libraries that use unsafe encodings. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
66 #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
67 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
68 #if DO_MULTIBYTE |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
69 # if HAVE_MBRLEN |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
70 # include <wchar.h> |
45846
a1fef23ccede
[__hpux]: Include sys/_mbstate_t.h.
Eli Zaretskii <eliz@gnu.org>
parents:
43890
diff
changeset
|
71 # if __hpux |
a1fef23ccede
[__hpux]: Include sys/_mbstate_t.h.
Eli Zaretskii <eliz@gnu.org>
parents:
43890
diff
changeset
|
72 # include <sys/_mbstate_t.h> |
a1fef23ccede
[__hpux]: Include sys/_mbstate_t.h.
Eli Zaretskii <eliz@gnu.org>
parents:
43890
diff
changeset
|
73 # endif |
42384
e4835ecdffbc
(mbsinit): Define as no-op if not available.
Richard M. Stallman <rms@gnu.org>
parents:
34302
diff
changeset
|
74 # if !defined (mbsinit) && !defined (HAVE_MBSINIT) |
e4835ecdffbc
(mbsinit): Define as no-op if not available.
Richard M. Stallman <rms@gnu.org>
parents:
34302
diff
changeset
|
75 # define mbsinit(ps) 1 |
e4835ecdffbc
(mbsinit): Define as no-op if not available.
Richard M. Stallman <rms@gnu.org>
parents:
34302
diff
changeset
|
76 # endif /* !defined (mbsinit) && !defined (HAVE_MBSINIT) */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
77 # else |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
78 /* Simulate mbrlen with mblen as best we can. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
79 # define mbstate_t int |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
80 # define mbrlen(s, n, ps) mblen (s, n) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
81 # define mbsinit(ps) (*(ps) == 0) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
82 # endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
83 static const mbstate_t mbstate_zero; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
84 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
85 |
34302
1139c325f625
Change some #if foo to #ifdef foo.
Dave Love <fx@gnu.org>
parents:
32687
diff
changeset
|
86 #ifdef HAVE_LIMITS_H |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
87 # include <limits.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
88 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
89 |
34302
1139c325f625
Change some #if foo to #ifdef foo.
Dave Love <fx@gnu.org>
parents:
32687
diff
changeset
|
90 #ifdef STDC_HEADERS |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
91 # include <stddef.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
92 # include <stdlib.h> |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
93 #else |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
94 # ifndef HAVE_MEMCPY |
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
95 # define memcpy(d, s, n) bcopy ((s), (d), (n)) |
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
96 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
97 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
98 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
99 #ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
100 # include <endian.h> |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
101 # define CHAR_T wchar_t |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
102 # define UCHAR_T unsigned int |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
103 # define L_(Str) L##Str |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
104 # define NLW(Sym) _NL_W##Sym |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
105 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
106 # define MEMCPY(d, s, n) __wmemcpy (d, s, n) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
107 # define STRLEN(s) __wcslen (s) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
108 |
20212
90f407354bdf
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20211
diff
changeset
|
109 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
110 # define CHAR_T char |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
111 # define UCHAR_T unsigned char |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
112 # define L_(Str) Str |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
113 # define NLW(Sym) Sym |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
114 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
115 # if !defined STDC_HEADERS && !defined HAVE_MEMCPY |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
116 # define MEMCPY(d, s, n) bcopy ((s), (d), (n)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
117 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
118 # define MEMCPY(d, s, n) memcpy ((d), (s), (n)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
119 # endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
120 # define STRLEN(s) strlen (s) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
121 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
122 # ifdef _LIBC |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
123 # define MEMPCPY(d, s, n) __mempcpy (d, s, n) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
124 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
125 # ifndef HAVE_MEMPCPY |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
126 # define MEMPCPY(d, s, n) ((void *) ((char *) memcpy (d, s, n) + (n))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
127 # endif |
20212
90f407354bdf
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20211
diff
changeset
|
128 # endif |
90f407354bdf
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20211
diff
changeset
|
129 #endif |
90f407354bdf
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20211
diff
changeset
|
130 |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
131 #ifndef __P |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
132 # if defined emacs && defined PROTOTYPES |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
133 # define __P(args) args |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
134 # elif defined __GNUC__ || (defined __STDC__ && __STDC__) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
135 # define __P(args) args |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
136 # else |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
137 # define __P(args) () |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
138 # endif /* GCC. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
139 #endif /* Not __P. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
140 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
141 #ifndef PTR |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
142 # ifdef __STDC__ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
143 # define PTR void * |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
144 # else |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
145 # define PTR char * |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
146 # endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
147 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
148 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
149 #ifndef CHAR_BIT |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
150 # define CHAR_BIT 8 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
151 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
152 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
153 #ifndef NULL |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
154 # define NULL 0 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
155 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
156 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
157 #define TYPE_SIGNED(t) ((t) -1 < 0) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
158 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
159 /* Bound on length of the string representing an integer value of type t. |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
160 Subtract one for the sign bit if t is signed; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
161 302 / 1000 is log10 (2) rounded up; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
162 add one for integer division truncation; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
163 add one more for a minus sign if t is signed. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
164 #define INT_STRLEN_BOUND(t) \ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
165 ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 + 1 + TYPE_SIGNED (t)) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
166 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
167 #define TM_YEAR_BASE 1900 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
168 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
169 #ifndef __isleap |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
170 /* Nonzero if YEAR is a leap year (every 4 years, |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
171 except every 100th isn't, and every 400th is). */ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
172 # define __isleap(year) \ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
173 ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0)) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
174 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
175 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
176 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
177 #ifdef _LIBC |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
178 # define my_strftime_gmtime_r __gmtime_r |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
179 # define my_strftime_localtime_r __localtime_r |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
180 # define tzname __tzname |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
181 # define tzset __tzset |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
182 #else |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
183 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
184 /* If we're a strftime substitute in a GNU program, then prefer gmtime |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
185 to gmtime_r, since many gmtime_r implementations are buggy. |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
186 Similarly for localtime_r. */ |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
187 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
188 # if ! HAVE_TM_GMTOFF |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
189 static struct tm *my_strftime_gmtime_r __P ((const time_t *, struct tm *)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
190 static struct tm * |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
191 my_strftime_gmtime_r (t, tp) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
192 const time_t *t; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
193 struct tm *tp; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
194 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
195 struct tm *l = gmtime (t); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
196 if (! l) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
197 return 0; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
198 *tp = *l; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
199 return tp; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
200 } |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
201 # endif /* ! HAVE_TM_GMTOFF */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
202 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
203 static struct tm *my_strftime_localtime_r __P ((const time_t *, struct tm *)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
204 static struct tm * |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
205 my_strftime_localtime_r (t, tp) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
206 const time_t *t; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
207 struct tm *tp; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
208 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
209 struct tm *l = localtime (t); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
210 if (! l) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
211 return 0; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
212 *tp = *l; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
213 return tp; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
214 } |
20253
a7d1d668f57f
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20252
diff
changeset
|
215 #endif /* ! defined _LIBC */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
216 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
217 |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
218 #if !defined memset && !defined HAVE_MEMSET && !defined _LIBC |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
219 /* Some systems lack the `memset' function and we don't want to |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
220 introduce additional dependencies. */ |
18487
47be751da08b
automatically generated from GPLed version
Richard M. Stallman <rms@gnu.org>
parents:
17965
diff
changeset
|
221 /* The SGI compiler reportedly barfs on the trailing null |
47be751da08b
automatically generated from GPLed version
Richard M. Stallman <rms@gnu.org>
parents:
17965
diff
changeset
|
222 if we use a string constant as the initializer. 28 June 1997, rms. */ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
223 static const CHAR_T spaces[16] = /* " " */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
224 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
225 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
226 L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' '),L_(' ') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
227 }; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
228 static const CHAR_T zeroes[16] = /* "0000000000000000" */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
229 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
230 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
231 L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0'),L_('0') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
232 }; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
233 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
234 # define memset_space(P, Len) \ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
235 do { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
236 int _len = (Len); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
237 \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
238 do \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
239 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
240 int _this = _len > 16 ? 16 : _len; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
241 (P) = MEMPCPY ((P), spaces, _this * sizeof (CHAR_T)); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
242 _len -= _this; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
243 } \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
244 while (_len > 0); \ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
245 } while (0) |
17965
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17502
diff
changeset
|
246 |
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17502
diff
changeset
|
247 # define memset_zero(P, Len) \ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
248 do { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
249 int _len = (Len); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
250 \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
251 do \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
252 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
253 int _this = _len > 16 ? 16 : _len; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
254 (P) = MEMPCPY ((P), zeroes, _this * sizeof (CHAR_T)); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
255 _len -= _this; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
256 } \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
257 while (_len > 0); \ |
17965
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17502
diff
changeset
|
258 } while (0) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
259 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
260 # ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
261 # define memset_space(P, Len) (wmemset ((P), L' ', (Len)), (P) += (Len)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
262 # define memset_zero(P, Len) (wmemset ((P), L'0', (Len)), (P) += (Len)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
263 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
264 # define memset_space(P, Len) (memset ((P), ' ', (Len)), (P) += (Len)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
265 # define memset_zero(P, Len) (memset ((P), '0', (Len)), (P) += (Len)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
266 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
267 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
268 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
269 #define add(n, f) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
270 do \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
271 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
272 int _n = (n); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
273 int _delta = width - _n; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
274 int _incr = _n + (_delta > 0 ? _delta : 0); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
275 if (i + _incr >= maxsize) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
276 return 0; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
277 if (p) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
278 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
279 if (_delta > 0) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
280 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
281 if (pad == L_('0')) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
282 memset_zero (p, _delta); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
283 else \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
284 memset_space (p, _delta); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
285 } \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
286 f; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
287 p += _n; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
288 } \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
289 i += _incr; \ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
290 } while (0) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
291 |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
292 #define cpy(n, s) \ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
293 add ((n), \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
294 if (to_lowcase) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
295 memcpy_lowcase (p, (s), _n); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
296 else if (to_uppcase) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
297 memcpy_uppcase (p, (s), _n); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
298 else \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
299 MEMCPY ((PTR) p, (PTR) (s), _n)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
300 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
301 #ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
302 # define widen(os, ws, l) \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
303 { \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
304 mbstate_t __st; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
305 const char *__s = os; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
306 memset (&__st, '\0', sizeof (__st)); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
307 l = __mbsrtowcs (NULL, &__s, 0, &__st); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
308 ws = alloca ((l + 1) * sizeof (wchar_t)); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
309 (void) __mbsrtowcs (ws, &__s, l, &__st); \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
310 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
311 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
312 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
313 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
314 #ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
315 # define TOUPPER(Ch) towupper (Ch) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
316 # define TOLOWER(Ch) towlower (Ch) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
317 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
318 # ifdef _LIBC |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
319 # define TOUPPER(Ch) toupper (Ch) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
320 # define TOLOWER(Ch) tolower (Ch) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
321 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
322 # define TOUPPER(Ch) (islower (Ch) ? toupper (Ch) : (Ch)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
323 # define TOLOWER(Ch) (isupper (Ch) ? tolower (Ch) : (Ch)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
324 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
325 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
326 /* We don't use `isdigit' here since the locale dependent |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
327 interpretation is not what we want here. We only need to accept |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
328 the arabic digits in the ASCII range. One day there is perhaps a |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
329 more reliable way to accept other sets of digits. */ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
330 #define ISDIGIT(Ch) ((unsigned int) (Ch) - L_('0') <= 9) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
331 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
332 static CHAR_T *memcpy_lowcase __P ((CHAR_T *dest, const CHAR_T *src, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
333 size_t len)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
334 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
335 static CHAR_T * |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
336 memcpy_lowcase (dest, src, len) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
337 CHAR_T *dest; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
338 const CHAR_T *src; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
339 size_t len; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
340 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
341 while (len-- > 0) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
342 dest[len] = TOLOWER ((UCHAR_T) src[len]); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
343 return dest; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
344 } |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
345 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
346 static CHAR_T *memcpy_uppcase __P ((CHAR_T *dest, const CHAR_T *src, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
347 size_t len)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
348 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
349 static CHAR_T * |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
350 memcpy_uppcase (dest, src, len) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
351 CHAR_T *dest; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
352 const CHAR_T *src; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
353 size_t len; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
354 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
355 while (len-- > 0) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
356 dest[len] = TOUPPER ((UCHAR_T) src[len]); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
357 return dest; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
358 } |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
359 |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
360 |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
361 #if ! HAVE_TM_GMTOFF |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
362 /* Yield the difference between *A and *B, |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
363 measured in seconds, ignoring leap seconds. */ |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
364 # define tm_diff ftime_tm_diff |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
365 static int tm_diff __P ((const struct tm *, const struct tm *)); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
366 static int |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
367 tm_diff (a, b) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
368 const struct tm *a; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
369 const struct tm *b; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
370 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
371 /* Compute intervening leap days correctly even if year is negative. |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
372 Take care to avoid int overflow in leap day calculations, |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
373 but it's OK to assume that A and B are close to each other. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
374 int a4 = (a->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (a->tm_year & 3); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
375 int b4 = (b->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (b->tm_year & 3); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
376 int a100 = a4 / 25 - (a4 % 25 < 0); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
377 int b100 = b4 / 25 - (b4 % 25 < 0); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
378 int a400 = a100 >> 2; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
379 int b400 = b100 >> 2; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
380 int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
381 int years = a->tm_year - b->tm_year; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
382 int days = (365 * years + intervening_leap_days |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
383 + (a->tm_yday - b->tm_yday)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
384 return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour)) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
385 + (a->tm_min - b->tm_min)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
386 + (a->tm_sec - b->tm_sec)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
387 } |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
388 #endif /* ! HAVE_TM_GMTOFF */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
389 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
390 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
391 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
392 /* The number of days from the first day of the first ISO week of this |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
393 year to the year day YDAY with week day WDAY. ISO weeks start on |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
394 Monday; the first ISO week has the year's first Thursday. YDAY may |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
395 be as small as YDAY_MINIMUM. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
396 #define ISO_WEEK_START_WDAY 1 /* Monday */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
397 #define ISO_WEEK1_WDAY 4 /* Thursday */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
398 #define YDAY_MINIMUM (-366) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
399 static int iso_week_days __P ((int, int)); |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
400 #ifdef __GNUC__ |
20010
cb0800f5aa96
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
19875
diff
changeset
|
401 __inline__ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
402 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
403 static int |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
404 iso_week_days (yday, wday) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
405 int yday; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
406 int wday; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
407 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
408 /* Add enough to the first operand of % to make it nonnegative. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
409 int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
410 return (yday |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
411 - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
412 + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
413 } |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
414 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
415 |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
416 #if !(defined _NL_CURRENT || HAVE_STRFTIME) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
417 static CHAR_T const weekday_name[][10] = |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
418 { |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
419 L_("Sunday"), L_("Monday"), L_("Tuesday"), L_("Wednesday"), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
420 L_("Thursday"), L_("Friday"), L_("Saturday") |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
421 }; |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
422 static CHAR_T const month_name[][10] = |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
423 { |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
424 L_("January"), L_("February"), L_("March"), L_("April"), L_("May"), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
425 L_("June"), L_("July"), L_("August"), L_("September"), L_("October"), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
426 L_("November"), L_("December") |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
427 }; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
428 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
429 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
430 |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
431 #ifdef emacs |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
432 # define my_strftime emacs_strftimeu |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
433 # define ut_argument , ut |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
434 # define ut_argument_spec int ut; |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
435 # define ut_argument_spec_iso , int ut |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
436 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
437 # ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
438 # define my_strftime wcsftime |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
439 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
440 # define my_strftime strftime |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
441 # endif |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
442 # define ut_argument |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
443 # define ut_argument_spec |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
444 # define ut_argument_spec_iso |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
445 /* We don't have this information in general. */ |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
446 # define ut 0 |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
447 #endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
448 |
32687
52117f9867f2
[!WINDOWSNT]: Don't apply Solaris 2.5 work-around on
Andrew Innes <andrewi@gnu.org>
parents:
32629
diff
changeset
|
449 #if !defined _LIBC && !defined(WINDOWSNT) && HAVE_TZNAME && HAVE_TZSET |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
450 /* Solaris 2.5 tzset sometimes modifies the storage returned by localtime. |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
451 Work around this bug by copying *tp before it might be munged. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
452 size_t _strftime_copytm __P ((char *, size_t, const char *, |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
453 const struct tm * ut_argument_spec_iso)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
454 size_t |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
455 my_strftime (s, maxsize, format, tp ut_argument) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
456 CHAR_T *s; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
457 size_t maxsize; |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
458 const CHAR_T *format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
459 const struct tm *tp; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
460 ut_argument_spec |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
461 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
462 struct tm tmcopy; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
463 tmcopy = *tp; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
464 return _strftime_copytm (s, maxsize, format, &tmcopy ut_argument); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
465 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
466 # undef my_strftime |
32687
52117f9867f2
[!WINDOWSNT]: Don't apply Solaris 2.5 work-around on
Andrew Innes <andrewi@gnu.org>
parents:
32629
diff
changeset
|
467 # define my_strftime _strftime_copytm |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
468 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
469 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
470 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
471 /* Write information from TP into S according to the format |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
472 string FORMAT, writing no more that MAXSIZE characters |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
473 (including the terminating '\0') and returning number of |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
474 characters written. If S is NULL, nothing will be written |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
475 anywhere, so to determine how many characters would be |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
476 written, use NULL for S and (size_t) UINT_MAX for MAXSIZE. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
477 size_t |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
478 my_strftime (s, maxsize, format, tp ut_argument) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
479 CHAR_T *s; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
480 size_t maxsize; |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
481 const CHAR_T *format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
482 const struct tm *tp; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
483 ut_argument_spec |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
484 { |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
485 int hour12 = tp->tm_hour; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
486 #ifdef _NL_CURRENT |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
487 /* We cannot make the following values variables since we must delay |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
488 the evaluation of these values until really needed since some |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
489 expressions might not be valid in every situation. The `struct tm' |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
490 might be generated by a strptime() call that initialized |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
491 only a few elements. Dereference the pointers only if the format |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
492 requires this. Then it is ok to fail if the pointers are invalid. */ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
493 # define a_wkday \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
494 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABDAY_1) + tp->tm_wday)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
495 # define f_wkday \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
496 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(DAY_1) + tp->tm_wday)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
497 # define a_month \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
498 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(ABMON_1) + tp->tm_mon)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
499 # define f_month \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
500 ((const CHAR_T *) _NL_CURRENT (LC_TIME, NLW(MON_1) + tp->tm_mon)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
501 # define ampm \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
502 ((const CHAR_T *) _NL_CURRENT (LC_TIME, tp->tm_hour > 11 \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
503 ? NLW(PM_STR) : NLW(AM_STR))) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
504 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
505 # define aw_len STRLEN (a_wkday) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
506 # define am_len STRLEN (a_month) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
507 # define ap_len STRLEN (ampm) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
508 #else |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
509 # if !HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
510 # define f_wkday (weekday_name[tp->tm_wday]) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
511 # define f_month (month_name[tp->tm_mon]) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
512 # define a_wkday f_wkday |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
513 # define a_month f_month |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
514 # define ampm (L_("AMPM") + 2 * (tp->tm_hour > 11)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
515 |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
516 size_t aw_len = 3; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
517 size_t am_len = 3; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
518 size_t ap_len = 2; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
519 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
520 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
521 const char *zone; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
522 size_t i = 0; |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
523 CHAR_T *p = s; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
524 const CHAR_T *f; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
525 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
526 zone = NULL; |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
527 #if HAVE_TM_ZONE |
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
528 /* The POSIX test suite assumes that setting |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
529 the environment variable TZ to a new value before calling strftime() |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
530 will influence the result (the %Z format) even if the information in |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
531 TP is computed with a totally different time zone. |
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
532 This is bogus: though POSIX allows bad behavior like this, |
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
533 POSIX does not require it. Do the right thing instead. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
534 zone = (const char *) tp->tm_zone; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
535 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
536 #if HAVE_TZNAME |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
537 if (ut) |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
538 { |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
539 if (! (zone && *zone)) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
540 zone = "UTC"; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
541 } |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
542 else |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
543 { |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
544 /* POSIX.1 8.1.1 requires that whenever strftime() is called, the |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
545 time zone names contained in the external variable `tzname' shall |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
546 be set as if the tzset() function had been called. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
547 # if HAVE_TZSET |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
548 tzset (); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
549 # endif |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
550 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
551 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
552 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
553 if (hour12 > 12) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
554 hour12 -= 12; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
555 else |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
556 if (hour12 == 0) |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
557 hour12 = 12; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
558 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
559 for (f = format; *f != '\0'; ++f) |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
560 { |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
561 int pad = 0; /* Padding for number ('-', '_', or 0). */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
562 int modifier; /* Field modifier ('E', 'O', or 0). */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
563 int digits; /* Max digits for numeric format. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
564 int number_value; /* Numeric value to be printed. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
565 int negative_number; /* 1 if the number is negative. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
566 const CHAR_T *subfmt; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
567 CHAR_T *bufp; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
568 CHAR_T buf[1 + (sizeof (int) < sizeof (time_t) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
569 ? INT_STRLEN_BOUND (time_t) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
570 : INT_STRLEN_BOUND (int))]; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
571 int width = -1; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
572 int to_lowcase = 0; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
573 int to_uppcase = 0; |
18781
70883b60c7a5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
18488
diff
changeset
|
574 int change_case = 0; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
575 int format_char; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
576 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
577 #if DO_MULTIBYTE && !defined COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
578 switch (*f) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
579 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
580 case L_('%'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
581 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
582 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
583 case L_('\b'): case L_('\t'): case L_('\n'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
584 case L_('\v'): case L_('\f'): case L_('\r'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
585 case L_(' '): case L_('!'): case L_('"'): case L_('#'): case L_('&'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
586 case L_('\''): case L_('('): case L_(')'): case L_('*'): case L_('+'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
587 case L_(','): case L_('-'): case L_('.'): case L_('/'): case L_('0'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
588 case L_('1'): case L_('2'): case L_('3'): case L_('4'): case L_('5'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
589 case L_('6'): case L_('7'): case L_('8'): case L_('9'): case L_(':'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
590 case L_(';'): case L_('<'): case L_('='): case L_('>'): case L_('?'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
591 case L_('A'): case L_('B'): case L_('C'): case L_('D'): case L_('E'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
592 case L_('F'): case L_('G'): case L_('H'): case L_('I'): case L_('J'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
593 case L_('K'): case L_('L'): case L_('M'): case L_('N'): case L_('O'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
594 case L_('P'): case L_('Q'): case L_('R'): case L_('S'): case L_('T'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
595 case L_('U'): case L_('V'): case L_('W'): case L_('X'): case L_('Y'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
596 case L_('Z'): case L_('['): case L_('\\'): case L_(']'): case L_('^'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
597 case L_('_'): case L_('a'): case L_('b'): case L_('c'): case L_('d'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
598 case L_('e'): case L_('f'): case L_('g'): case L_('h'): case L_('i'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
599 case L_('j'): case L_('k'): case L_('l'): case L_('m'): case L_('n'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
600 case L_('o'): case L_('p'): case L_('q'): case L_('r'): case L_('s'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
601 case L_('t'): case L_('u'): case L_('v'): case L_('w'): case L_('x'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
602 case L_('y'): case L_('z'): case L_('{'): case L_('|'): case L_('}'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
603 case L_('~'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
604 /* The C Standard requires these 97 characters (plus '%', `\a') to |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
605 be in the basic execution character set. None of these |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
606 characters can start a multibyte sequence, so they need |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
607 not be analyzed further. Some old compilers object to |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
608 `\a', so don't bother optimizing for it. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
609 add (1, *p = *f); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
610 continue; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
611 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
612 default: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
613 /* Copy this multibyte sequence until we reach its end, find |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
614 an error, or come back to the initial shift state. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
615 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
616 mbstate_t mbstate = mbstate_zero; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
617 size_t len = 0; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
618 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
619 do |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
620 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
621 size_t bytes = mbrlen (f + len, (size_t) -1, &mbstate); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
622 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
623 if (bytes == 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
624 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
625 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
626 if (bytes == (size_t) -2) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
627 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
628 len += strlen (f + len); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
629 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
630 } |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
631 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
632 if (bytes == (size_t) -1) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
633 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
634 len++; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
635 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
636 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
637 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
638 len += bytes; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
639 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
640 while (! mbsinit (&mbstate)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
641 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
642 cpy (len, f); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
643 f += len - 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
644 continue; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
645 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
646 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
647 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
648 #else /* ! DO_MULTIBYTE */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
649 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
650 /* Either multibyte encodings are not supported, they are |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
651 safe for formats, so any non-'%' byte can be copied through, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
652 or this is the wide character version. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
653 if (*f != L_('%')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
654 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
655 add (1, *p = *f); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
656 continue; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
657 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
658 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
659 #endif /* ! DO_MULTIBYTE */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
660 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
661 /* Check for flags that can modify a format. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
662 while (1) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
663 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
664 switch (*++f) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
665 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
666 /* This influences the number formats. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
667 case L_('_'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
668 case L_('-'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
669 case L_('0'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
670 pad = *f; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
671 continue; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
672 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
673 /* This changes textual output. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
674 case L_('^'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
675 to_uppcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
676 continue; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
677 case L_('#'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
678 change_case = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
679 continue; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
680 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
681 default: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
682 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
683 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
684 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
685 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
686 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
687 /* As a GNU extension we allow to specify the field width. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
688 if (ISDIGIT (*f)) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
689 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
690 width = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
691 do |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
692 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
693 width *= 10; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
694 width += *f - L_('0'); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
695 ++f; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
696 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
697 while (ISDIGIT (*f)); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
698 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
699 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
700 /* Check for modifiers. */ |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
701 switch (*f) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
702 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
703 case L_('E'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
704 case L_('O'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
705 modifier = *f++; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
706 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
707 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
708 default: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
709 modifier = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
710 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
711 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
712 |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
713 /* Now do the specified format. */ |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
714 format_char = *f; |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
715 switch (format_char) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
716 { |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
717 #define DO_NUMBER(d, v) \ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
718 digits = width == -1 ? d : width; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
719 number_value = v; goto do_number |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
720 #define DO_NUMBER_SPACEPAD(d, v) \ |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
721 digits = width == -1 ? d : width; \ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
722 number_value = v; goto do_number_spacepad |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
723 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
724 case L_('%'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
725 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
726 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
727 add (1, *p = *f); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
728 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
729 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
730 case L_('a'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
731 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
732 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
733 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
734 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
735 to_uppcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
736 to_lowcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
737 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
738 #if defined _NL_CURRENT || !HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
739 cpy (aw_len, a_wkday); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
740 break; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
741 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
742 goto underlying_strftime; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
743 #endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
744 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
745 case 'A': |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
746 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
747 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
748 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
749 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
750 to_uppcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
751 to_lowcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
752 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
753 #if defined _NL_CURRENT || !HAVE_STRFTIME |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
754 cpy (STRLEN (f_wkday), f_wkday); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
755 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
756 #else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
757 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
758 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
759 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
760 case L_('b'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
761 case L_('h'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
762 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
763 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
764 to_uppcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
765 to_lowcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
766 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
767 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
768 goto bad_format; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
769 #if defined _NL_CURRENT || !HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
770 cpy (am_len, a_month); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
771 break; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
772 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
773 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
774 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
775 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
776 case L_('B'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
777 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
778 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
779 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
780 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
781 to_uppcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
782 to_lowcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
783 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
784 #if defined _NL_CURRENT || !HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
785 cpy (STRLEN (f_month), f_month); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
786 break; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
787 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
788 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
789 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
790 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
791 case L_('c'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
792 if (modifier == L_('O')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
793 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
794 #ifdef _NL_CURRENT |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
795 if (! (modifier == 'E' |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
796 && (*(subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
797 NLW(ERA_D_T_FMT))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
798 != '\0'))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
799 subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_T_FMT)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
800 #else |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
801 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
802 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
803 # else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
804 subfmt = L_("%a %b %e %H:%M:%S %Y"); |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
805 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
806 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
807 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
808 subformat: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
809 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
810 CHAR_T *old_start = p; |
32687
52117f9867f2
[!WINDOWSNT]: Don't apply Solaris 2.5 work-around on
Andrew Innes <andrewi@gnu.org>
parents:
32629
diff
changeset
|
811 size_t len = my_strftime (NULL, (size_t) -1, subfmt, tp, 0); |
52117f9867f2
[!WINDOWSNT]: Don't apply Solaris 2.5 work-around on
Andrew Innes <andrewi@gnu.org>
parents:
32629
diff
changeset
|
812 add (len, my_strftime (p, maxsize - i, subfmt, tp, 0)); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
813 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
814 if (to_uppcase) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
815 while (old_start < p) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
816 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
817 *old_start = TOUPPER ((UCHAR_T) *old_start); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
818 ++old_start; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
819 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
820 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
821 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
822 |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
823 #if HAVE_STRFTIME && ! (defined _NL_CURRENT && HAVE_STRUCT_ERA_ENTRY) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
824 underlying_strftime: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
825 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
826 /* The relevant information is available only via the |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
827 underlying strftime implementation, so use that. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
828 char ufmt[4]; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
829 char *u = ufmt; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
830 char ubuf[1024]; /* enough for any single format in practice */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
831 size_t len; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
832 /* Make sure we're calling the actual underlying strftime. |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
833 In some cases, config.h contains something like |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
834 "#define strftime rpl_strftime". */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
835 # ifdef strftime |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
836 # undef strftime |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
837 size_t strftime (); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
838 # endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
839 |
43890
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
840 #ifdef STRFTIME_NO_POSIX2 |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
841 /* Some system libraries do not support the POSIX.2 extensions. |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
842 In those cases, convert %h to %b, and strip modifiers. */ |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
843 modifier = 0; |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
844 if (format_char == 'h') |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
845 format_char = 'b'; |
38d2cf408e27
(my_strftime) [STRFTIME_NO_POSIX2]: Handle %h, %EX
Jason Rumney <jasonr@gnu.org>
parents:
42384
diff
changeset
|
846 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
847 *u++ = '%'; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
848 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
849 *u++ = modifier; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
850 *u++ = format_char; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
851 *u = '\0'; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
852 len = strftime (ubuf, sizeof ubuf, ufmt, tp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
853 if (len == 0 && ubuf[0] != '\0') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
854 return 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
855 cpy (len, ubuf); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
856 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
857 break; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
858 #endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
859 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
860 case L_('C'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
861 if (modifier == L_('O')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
862 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
863 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
864 { |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
865 #if HAVE_STRUCT_ERA_ENTRY |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
866 struct era_entry *era = _nl_get_era_entry (tp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
867 if (era) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
868 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
869 # ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
870 size_t len = __wcslen (era->era_wname); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
871 cpy (len, era->era_wname); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
872 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
873 size_t len = strlen (era->era_name); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
874 cpy (len, era->era_name); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
875 # endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
876 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
877 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
878 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
879 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
880 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
881 # endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
882 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
883 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
884 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
885 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
886 int year = tp->tm_year + TM_YEAR_BASE; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
887 DO_NUMBER (1, year / 100 - (year % 100 < 0)); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
888 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
889 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
890 case L_('x'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
891 if (modifier == L_('O')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
892 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
893 #ifdef _NL_CURRENT |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
894 if (! (modifier == L_('E') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
895 && (*(subfmt = (CHAR_T *)_NL_CURRENT (LC_TIME, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
896 NLW(ERA_D_FMT))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
897 != L_('\0')))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
898 subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, NLW(D_FMT)); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
899 goto subformat; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
900 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
901 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
902 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
903 # else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
904 /* Fall through. */ |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
905 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
906 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
907 case L_('D'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
908 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
909 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
910 subfmt = L_("%m/%d/%y"); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
911 goto subformat; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
912 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
913 case L_('d'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
914 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
915 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
916 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
917 DO_NUMBER (2, tp->tm_mday); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
918 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
919 case L_('e'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
920 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
921 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
922 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
923 DO_NUMBER_SPACEPAD (2, tp->tm_mday); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
924 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
925 /* All numeric formats set DIGITS and NUMBER_VALUE and then |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
926 jump to one of these two labels. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
927 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
928 do_number_spacepad: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
929 /* Force `_' flag unless overwritten by `0' flag. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
930 if (pad != L_('0')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
931 pad = L_('_'); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
932 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
933 do_number: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
934 /* Format the number according to the MODIFIER flag. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
935 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
936 if (modifier == L_('O') && 0 <= number_value) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
937 { |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
938 #ifdef _NL_CURRENT |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
939 /* Get the locale specific alternate representation of |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
940 the number NUMBER_VALUE. If none exist NULL is returned. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
941 # ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
942 const wchar_t *cp = _nl_get_walt_digit (number_value); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
943 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
944 const char *cp = _nl_get_alt_digit (number_value); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
945 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
946 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
947 if (cp != NULL) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
948 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
949 size_t digitlen = STRLEN (cp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
950 if (digitlen != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
951 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
952 cpy (digitlen, cp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
953 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
954 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
955 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
956 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
957 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
958 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
959 # endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
960 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
961 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
962 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
963 unsigned int u = number_value; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
964 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
965 bufp = buf + sizeof (buf) / sizeof (buf[0]); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
966 negative_number = number_value < 0; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
967 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
968 if (negative_number) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
969 u = -u; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
970 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
971 do |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
972 *--bufp = u % 10 + L_('0'); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
973 while ((u /= 10) != 0); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
974 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
975 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
976 do_number_sign_and_padding: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
977 if (negative_number) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
978 *--bufp = L_('-'); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
979 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
980 if (pad != L_('-')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
981 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
982 int padding = digits - (buf + (sizeof (buf) / sizeof (buf[0])) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
983 - bufp); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
984 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
985 if (pad == L_('_')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
986 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
987 while (0 < padding--) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
988 *--bufp = L_(' '); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
989 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
990 else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
991 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
992 bufp += negative_number; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
993 while (0 < padding--) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
994 *--bufp = L_('0'); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
995 if (negative_number) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
996 *--bufp = L_('-'); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
997 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
998 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
999 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1000 cpy (buf + sizeof (buf) / sizeof (buf[0]) - bufp, bufp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1001 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1002 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1003 case L_('F'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1004 if (modifier != 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1005 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1006 subfmt = L_("%Y-%m-%d"); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1007 goto subformat; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1008 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1009 case L_('H'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1010 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1011 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1012 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1013 DO_NUMBER (2, tp->tm_hour); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1014 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1015 case L_('I'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1016 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1017 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1018 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1019 DO_NUMBER (2, hour12); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1020 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1021 case L_('k'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1022 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1023 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1024 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1025 DO_NUMBER_SPACEPAD (2, tp->tm_hour); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1026 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1027 case L_('l'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1028 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1029 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1030 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1031 DO_NUMBER_SPACEPAD (2, hour12); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1032 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1033 case L_('j'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1034 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1035 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1036 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1037 DO_NUMBER (3, 1 + tp->tm_yday); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1038 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1039 case L_('M'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1040 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1041 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1042 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1043 DO_NUMBER (2, tp->tm_min); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1044 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1045 case L_('m'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1046 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1047 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1048 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1049 DO_NUMBER (2, tp->tm_mon + 1); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1050 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1051 case L_('n'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1052 add (1, *p = L_('\n')); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1053 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1054 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1055 case L_('P'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1056 to_lowcase = 1; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1057 #if !defined _NL_CURRENT && HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1058 format_char = L_('p'); |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1059 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1060 /* FALLTHROUGH */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1061 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1062 case L_('p'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1063 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1064 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1065 to_uppcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1066 to_lowcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1067 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1068 #if defined _NL_CURRENT || !HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1069 cpy (ap_len, ampm); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1070 break; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1071 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1072 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1073 #endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1074 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1075 case L_('R'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1076 subfmt = L_("%H:%M"); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1077 goto subformat; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1078 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1079 case L_('r'): /* POSIX.2 extension. */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1080 #ifdef _NL_CURRENT |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1081 if (*(subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1082 NLW(T_FMT_AMPM))) == L_('\0')) |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1083 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1084 subfmt = L_("%I:%M:%S %p"); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1085 goto subformat; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1086 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1087 case L_('S'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1088 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1089 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1090 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1091 DO_NUMBER (2, tp->tm_sec); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1092 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1093 case L_('s'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1094 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1095 struct tm ltm; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1096 time_t t; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1097 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1098 ltm = *tp; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1099 t = mktime (<m); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1100 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1101 /* Generate string value for T using time_t arithmetic; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1102 this works even if sizeof (long) < sizeof (time_t). */ |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1103 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1104 bufp = buf + sizeof (buf) / sizeof (buf[0]); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1105 negative_number = t < 0; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1106 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1107 do |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1108 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1109 int d = t % 10; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1110 t /= 10; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1111 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1112 if (negative_number) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1113 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1114 d = -d; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1115 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1116 /* Adjust if division truncates to minus infinity. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1117 if (0 < -1 % 10 && d < 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1118 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1119 t++; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1120 d += 10; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1121 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1122 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1123 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1124 *--bufp = d + L_('0'); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1125 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1126 while (t != 0); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1127 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1128 digits = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1129 goto do_number_sign_and_padding; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1130 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1131 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1132 case L_('X'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1133 if (modifier == L_('O')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1134 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1135 #ifdef _NL_CURRENT |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1136 if (! (modifier == L_('E') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1137 && (*(subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1138 NLW(ERA_T_FMT))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1139 != L_('\0')))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1140 subfmt = (CHAR_T *) _NL_CURRENT (LC_TIME, NLW(T_FMT)); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1141 goto subformat; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1142 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1143 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1144 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1145 # else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1146 /* Fall through. */ |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1147 # endif |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1148 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1149 case L_('T'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1150 subfmt = L_("%H:%M:%S"); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1151 goto subformat; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1152 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1153 case L_('t'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1154 add (1, *p = L_('\t')); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1155 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1156 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1157 case L_('u'): /* POSIX.2 extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1158 DO_NUMBER (1, (tp->tm_wday - 1 + 7) % 7 + 1); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1159 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1160 case L_('U'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1161 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1162 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1163 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1164 DO_NUMBER (2, (tp->tm_yday - tp->tm_wday + 7) / 7); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1165 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1166 case L_('V'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1167 case L_('g'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1168 case L_('G'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1169 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1170 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1171 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1172 int year = tp->tm_year + TM_YEAR_BASE; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1173 int days = iso_week_days (tp->tm_yday, tp->tm_wday); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1174 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1175 if (days < 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1176 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1177 /* This ISO week belongs to the previous year. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1178 year--; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1179 days = iso_week_days (tp->tm_yday + (365 + __isleap (year)), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1180 tp->tm_wday); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1181 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1182 else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1183 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1184 int d = iso_week_days (tp->tm_yday - (365 + __isleap (year)), |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1185 tp->tm_wday); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1186 if (0 <= d) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1187 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1188 /* This ISO week belongs to the next year. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1189 year++; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1190 days = d; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1191 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1192 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1193 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1194 switch (*f) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1195 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1196 case L_('g'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1197 DO_NUMBER (2, (year % 100 + 100) % 100); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1198 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1199 case L_('G'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1200 DO_NUMBER (1, year); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1201 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1202 default: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1203 DO_NUMBER (2, days / 7 + 1); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1204 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1205 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1206 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1207 case L_('W'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1208 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1209 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1210 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1211 DO_NUMBER (2, (tp->tm_yday - (tp->tm_wday - 1 + 7) % 7 + 7) / 7); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1212 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1213 case L_('w'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1214 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1215 goto bad_format; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1216 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1217 DO_NUMBER (1, tp->tm_wday); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1218 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1219 case L_('Y'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1220 if (modifier == 'E') |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1221 { |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1222 #if HAVE_STRUCT_ERA_ENTRY |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1223 struct era_entry *era = _nl_get_era_entry (tp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1224 if (era) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1225 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1226 # ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1227 subfmt = era->era_wformat; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1228 # else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1229 subfmt = era->era_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1230 # endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1231 goto subformat; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1232 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1233 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1234 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1235 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1236 # endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1237 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1238 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1239 if (modifier == L_('O')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1240 goto bad_format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1241 else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1242 DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1243 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1244 case L_('y'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1245 if (modifier == L_('E')) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1246 { |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1247 #if HAVE_STRUCT_ERA_ENTRY |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1248 struct era_entry *era = _nl_get_era_entry (tp); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1249 if (era) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1250 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1251 int delta = tp->tm_year - era->start_date[0]; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1252 DO_NUMBER (1, (era->offset |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1253 + delta * era->absolute_direction)); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1254 } |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1255 #else |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1256 # if HAVE_STRFTIME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1257 goto underlying_strftime; |
20211
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1258 # endif |
f722b33c682d
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
20010
diff
changeset
|
1259 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1260 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1261 DO_NUMBER (2, (tp->tm_year % 100 + 100) % 100); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1262 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1263 case L_('Z'): |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1264 if (change_case) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1265 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1266 to_uppcase = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1267 to_lowcase = 1; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1268 } |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1269 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1270 #if HAVE_TZNAME |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1271 /* The tzset() call might have changed the value. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1272 if (!(zone && *zone) && tp->tm_isdst >= 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1273 zone = tzname[tp->tm_isdst]; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1274 #endif |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1275 if (! zone) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1276 zone = ""; /* POSIX.2 requires the empty string here. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1277 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1278 #ifdef COMPILE_WIDE |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1279 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1280 /* The zone string is always given in multibyte form. We have |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1281 to transform it first. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1282 wchar_t *wczone; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1283 size_t len; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1284 widen (zone, wczone, len); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1285 cpy (len, wczone); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1286 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1287 #else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1288 cpy (strlen (zone), zone); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1289 #endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1290 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1291 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1292 case L_('z'): /* GNU extension. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1293 if (tp->tm_isdst < 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1294 break; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1295 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1296 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1297 int diff; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1298 #if HAVE_TM_GMTOFF |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1299 diff = tp->tm_gmtoff; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1300 #else |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1301 if (ut) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1302 diff = 0; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1303 else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1304 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1305 struct tm gtm; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1306 struct tm ltm; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1307 time_t lt; |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1308 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1309 ltm = *tp; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1310 lt = mktime (<m); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1311 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1312 if (lt == (time_t) -1) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1313 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1314 /* mktime returns -1 for errors, but -1 is also a |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1315 valid time_t value. Check whether an error really |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1316 occurred. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1317 struct tm tm; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1318 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1319 if (! my_strftime_localtime_r (<, &tm) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1320 || ((ltm.tm_sec ^ tm.tm_sec) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1321 | (ltm.tm_min ^ tm.tm_min) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1322 | (ltm.tm_hour ^ tm.tm_hour) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1323 | (ltm.tm_mday ^ tm.tm_mday) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1324 | (ltm.tm_mon ^ tm.tm_mon) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1325 | (ltm.tm_year ^ tm.tm_year))) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1326 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1327 } |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1328 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1329 if (! my_strftime_gmtime_r (<, >m)) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1330 break; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1331 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1332 diff = tm_diff (<m, >m); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1333 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1334 #endif |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1335 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1336 if (diff < 0) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1337 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1338 add (1, *p = L_('-')); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1339 diff = -diff; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1340 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1341 else |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1342 add (1, *p = L_('+')); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1343 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1344 diff /= 60; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1345 DO_NUMBER (4, (diff / 60) * 100 + diff % 60); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1346 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1347 |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1348 case L_('\0'): /* GNU extension: % at end of format. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1349 --f; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1350 /* Fall through. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1351 default: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1352 /* Unknown format; output the format, including the '%', |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1353 since this is most likely the right thing to do if a |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1354 multibyte string has been misparsed. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1355 bad_format: |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1356 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1357 int flen; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1358 for (flen = 1; f[1 - flen] != L_('%'); flen++) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1359 continue; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1360 cpy (flen, &f[1 - flen]); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1361 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1362 break; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1363 } |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1364 } |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1365 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
23323
diff
changeset
|
1366 if (p && maxsize != 0) |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1367 *p = L_('\0'); |
17502
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1368 return i; |
8f3dcea869f5
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1369 } |
32629
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1370 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1371 |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1372 #ifdef emacs |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1373 /* For Emacs we have a separate interface which corresponds to the normal |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1374 strftime function and does not have the extra information whether the |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1375 TP arguments comes from a `gmtime' call or not. */ |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1376 size_t |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1377 emacs_strftime (s, maxsize, format, tp) |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1378 char *s; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1379 size_t maxsize; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1380 const char *format; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1381 const struct tm *tp; |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1382 { |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1383 return my_strftime (s, maxsize, format, tp, 0); |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1384 } |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1385 #endif |
2683108cd13f
Sync with glibc, file version 1.78.
Gerd Moellmann <gerd@gnu.org>
parents:
31100
diff
changeset
|
1386 |