annotate src/strftime.c @ 47459:c48cad4dc557

(pong-border-options): Use color on tty if available. Reset color on tty to be [0.5 0.5 0.5].
author Francesco Potortì <pot@gnu.org>
date Fri, 13 Sep 2002 13:30:09 +0000
parents a1fef23ccede
children 4458f91cfb2b d7ddb3e565de
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 (&ltm);
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 (&ltm);
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 (&lt, &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 (&lt, &gtm))
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 (&ltm, &gtm);
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