diff options
Diffstat (limited to 'gl')
-rw-r--r-- | gl/Makefile.am | 56 | ||||
-rw-r--r-- | gl/m4/gnulib-cache.m4 | 3 | ||||
-rw-r--r-- | gl/m4/gnulib-comp.m4 | 12 | ||||
-rw-r--r-- | gl/m4/mktime.m4 | 224 | ||||
-rw-r--r-- | gl/m4/time_h.m4 | 74 | ||||
-rw-r--r-- | gl/m4/time_r.m4 | 43 | ||||
-rw-r--r-- | gl/m4/timegm.m4 | 40 | ||||
-rw-r--r-- | gl/mktime.c | 665 | ||||
-rw-r--r-- | gl/time.in.h | 118 | ||||
-rw-r--r-- | gl/time_r.c | 47 | ||||
-rw-r--r-- | gl/timegm.c | 41 |
11 files changed, 1321 insertions, 2 deletions
diff --git a/gl/Makefile.am b/gl/Makefile.am index 1a407c58..cae814fd 100644 --- a/gl/Makefile.am +++ b/gl/Makefile.am | |||
@@ -9,7 +9,7 @@ | |||
9 | # the same distribution terms as the rest of that program. | 9 | # the same distribution terms as the rest of that program. |
10 | # | 10 | # |
11 | # Generated by gnulib-tool. | 11 | # Generated by gnulib-tool. |
12 | # Reproduce by: gnulib-tool --import --dir=. --lib=libgnu --source-base=gl --m4-base=gl/m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --no-libtool --macro-prefix=gl base64 dirname floorf fsusage getaddrinfo gethostname getloadavg getopt gettext mountlist regex vasprintf vsnprintf | 12 | # Reproduce by: gnulib-tool --import --dir=. --lib=libgnu --source-base=gl --m4-base=gl/m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --no-libtool --macro-prefix=gl base64 dirname floorf fsusage getaddrinfo gethostname getloadavg getopt gettext mountlist regex timegm vasprintf vsnprintf |
13 | 13 | ||
14 | AUTOMAKE_OPTIONS = 1.5 gnits | 14 | AUTOMAKE_OPTIONS = 1.5 gnits |
15 | 15 | ||
@@ -589,6 +589,15 @@ EXTRA_libgnu_a_SOURCES += mbsinit.c | |||
589 | 589 | ||
590 | ## end gnulib module mbsinit | 590 | ## end gnulib module mbsinit |
591 | 591 | ||
592 | ## begin gnulib module mktime | ||
593 | |||
594 | |||
595 | EXTRA_DIST += mktime.c | ||
596 | |||
597 | EXTRA_libgnu_a_SOURCES += mktime.c | ||
598 | |||
599 | ## end gnulib module mktime | ||
600 | |||
592 | ## begin gnulib module mountlist | 601 | ## begin gnulib module mountlist |
593 | 602 | ||
594 | 603 | ||
@@ -1056,6 +1065,51 @@ EXTRA_DIST += sys_socket.in.h | |||
1056 | 1065 | ||
1057 | ## end gnulib module sys_socket | 1066 | ## end gnulib module sys_socket |
1058 | 1067 | ||
1068 | ## begin gnulib module time | ||
1069 | |||
1070 | BUILT_SOURCES += time.h | ||
1071 | |||
1072 | # We need the following in order to create <time.h> when the system | ||
1073 | # doesn't have one that works with the given compiler. | ||
1074 | time.h: time.in.h | ||
1075 | rm -f $@-t $@ | ||
1076 | { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ | ||
1077 | sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ | ||
1078 | -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ | ||
1079 | -e 's|@NEXT_TIME_H''@|$(NEXT_TIME_H)|g' \ | ||
1080 | -e 's|@REPLACE_LOCALTIME_R''@|$(REPLACE_LOCALTIME_R)|g' \ | ||
1081 | -e 's|@REPLACE_NANOSLEEP''@|$(REPLACE_NANOSLEEP)|g' \ | ||
1082 | -e 's|@REPLACE_STRPTIME''@|$(REPLACE_STRPTIME)|g' \ | ||
1083 | -e 's|@REPLACE_TIMEGM''@|$(REPLACE_TIMEGM)|g' \ | ||
1084 | -e 's|@SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(SYS_TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ | ||
1085 | -e 's|@TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ | ||
1086 | < $(srcdir)/time.in.h; \ | ||
1087 | } > $@-t | ||
1088 | mv $@-t $@ | ||
1089 | MOSTLYCLEANFILES += time.h time.h-t | ||
1090 | |||
1091 | EXTRA_DIST += time.in.h | ||
1092 | |||
1093 | ## end gnulib module time | ||
1094 | |||
1095 | ## begin gnulib module time_r | ||
1096 | |||
1097 | |||
1098 | EXTRA_DIST += time_r.c | ||
1099 | |||
1100 | EXTRA_libgnu_a_SOURCES += time_r.c | ||
1101 | |||
1102 | ## end gnulib module time_r | ||
1103 | |||
1104 | ## begin gnulib module timegm | ||
1105 | |||
1106 | |||
1107 | EXTRA_DIST += timegm.c | ||
1108 | |||
1109 | EXTRA_libgnu_a_SOURCES += timegm.c | ||
1110 | |||
1111 | ## end gnulib module timegm | ||
1112 | |||
1059 | ## begin gnulib module unistd | 1113 | ## begin gnulib module unistd |
1060 | 1114 | ||
1061 | BUILT_SOURCES += unistd.h | 1115 | BUILT_SOURCES += unistd.h |
diff --git a/gl/m4/gnulib-cache.m4 b/gl/m4/gnulib-cache.m4 index eb471340..385f5432 100644 --- a/gl/m4/gnulib-cache.m4 +++ b/gl/m4/gnulib-cache.m4 | |||
@@ -15,7 +15,7 @@ | |||
15 | 15 | ||
16 | 16 | ||
17 | # Specification in the form of a command-line invocation: | 17 | # Specification in the form of a command-line invocation: |
18 | # gnulib-tool --import --dir=. --lib=libgnu --source-base=gl --m4-base=gl/m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --no-libtool --macro-prefix=gl base64 dirname floorf fsusage getaddrinfo gethostname getloadavg getopt gettext mountlist regex vasprintf vsnprintf | 18 | # gnulib-tool --import --dir=. --lib=libgnu --source-base=gl --m4-base=gl/m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --no-libtool --macro-prefix=gl base64 dirname floorf fsusage getaddrinfo gethostname getloadavg getopt gettext mountlist regex timegm vasprintf vsnprintf |
19 | 19 | ||
20 | # Specification in the form of a few gnulib-tool.m4 macro invocations: | 20 | # Specification in the form of a few gnulib-tool.m4 macro invocations: |
21 | gl_LOCAL_DIR([]) | 21 | gl_LOCAL_DIR([]) |
@@ -31,6 +31,7 @@ gl_MODULES([ | |||
31 | gettext | 31 | gettext |
32 | mountlist | 32 | mountlist |
33 | regex | 33 | regex |
34 | timegm | ||
34 | vasprintf | 35 | vasprintf |
35 | vsnprintf | 36 | vsnprintf |
36 | ]) | 37 | ]) |
diff --git a/gl/m4/gnulib-comp.m4 b/gl/m4/gnulib-comp.m4 index 99fa45dc..c6171dea 100644 --- a/gl/m4/gnulib-comp.m4 +++ b/gl/m4/gnulib-comp.m4 | |||
@@ -94,6 +94,7 @@ AC_DEFUN([gl_INIT], | |||
94 | gl_WCHAR_MODULE_INDICATOR([mbrtowc]) | 94 | gl_WCHAR_MODULE_INDICATOR([mbrtowc]) |
95 | gl_FUNC_MBSINIT | 95 | gl_FUNC_MBSINIT |
96 | gl_WCHAR_MODULE_INDICATOR([mbsinit]) | 96 | gl_WCHAR_MODULE_INDICATOR([mbsinit]) |
97 | gl_FUNC_MKTIME | ||
97 | gl_MOUNTLIST | 98 | gl_MOUNTLIST |
98 | gl_MULTIARCH | 99 | gl_MULTIARCH |
99 | gl_HEADER_NETDB | 100 | gl_HEADER_NETDB |
@@ -125,6 +126,9 @@ AC_DEFUN([gl_INIT], | |||
125 | gl_HEADER_SYS_SOCKET | 126 | gl_HEADER_SYS_SOCKET |
126 | gl_MODULE_INDICATOR([sys_socket]) | 127 | gl_MODULE_INDICATOR([sys_socket]) |
127 | AC_PROG_MKDIR_P | 128 | AC_PROG_MKDIR_P |
129 | gl_HEADER_TIME_H | ||
130 | gl_TIME_R | ||
131 | gl_FUNC_TIMEGM | ||
128 | gl_UNISTD_H | 132 | gl_UNISTD_H |
129 | gl_UNISTD_SAFER | 133 | gl_UNISTD_SAFER |
130 | gl_FUNC_VASNPRINTF | 134 | gl_FUNC_VASNPRINTF |
@@ -332,6 +336,7 @@ AC_DEFUN([gl_FILE_LIST], [ | |||
332 | lib/math.in.h | 336 | lib/math.in.h |
333 | lib/mbrtowc.c | 337 | lib/mbrtowc.c |
334 | lib/mbsinit.c | 338 | lib/mbsinit.c |
339 | lib/mktime.c | ||
335 | lib/mountlist.c | 340 | lib/mountlist.c |
336 | lib/mountlist.h | 341 | lib/mountlist.h |
337 | lib/netdb.in.h | 342 | lib/netdb.in.h |
@@ -369,6 +374,9 @@ AC_DEFUN([gl_FILE_LIST], [ | |||
369 | lib/strndup.c | 374 | lib/strndup.c |
370 | lib/strnlen.c | 375 | lib/strnlen.c |
371 | lib/sys_socket.in.h | 376 | lib/sys_socket.in.h |
377 | lib/time.in.h | ||
378 | lib/time_r.c | ||
379 | lib/timegm.c | ||
372 | lib/unistd--.h | 380 | lib/unistd--.h |
373 | lib/unistd-safer.h | 381 | lib/unistd-safer.h |
374 | lib/unistd.in.h | 382 | lib/unistd.in.h |
@@ -444,6 +452,7 @@ AC_DEFUN([gl_FILE_LIST], [ | |||
444 | m4/mbrtowc.m4 | 452 | m4/mbrtowc.m4 |
445 | m4/mbsinit.m4 | 453 | m4/mbsinit.m4 |
446 | m4/mbstate_t.m4 | 454 | m4/mbstate_t.m4 |
455 | m4/mktime.m4 | ||
447 | m4/mountlist.m4 | 456 | m4/mountlist.m4 |
448 | m4/multiarch.m4 | 457 | m4/multiarch.m4 |
449 | m4/netdb_h.m4 | 458 | m4/netdb_h.m4 |
@@ -475,6 +484,9 @@ AC_DEFUN([gl_FILE_LIST], [ | |||
475 | m4/strnlen.m4 | 484 | m4/strnlen.m4 |
476 | m4/sys_socket_h.m4 | 485 | m4/sys_socket_h.m4 |
477 | m4/threadlib.m4 | 486 | m4/threadlib.m4 |
487 | m4/time_h.m4 | ||
488 | m4/time_r.m4 | ||
489 | m4/timegm.m4 | ||
478 | m4/uintmax_t.m4 | 490 | m4/uintmax_t.m4 |
479 | m4/unistd-safer.m4 | 491 | m4/unistd-safer.m4 |
480 | m4/unistd_h.m4 | 492 | m4/unistd_h.m4 |
diff --git a/gl/m4/mktime.m4 b/gl/m4/mktime.m4 new file mode 100644 index 00000000..223b9f1f --- /dev/null +++ b/gl/m4/mktime.m4 | |||
@@ -0,0 +1,224 @@ | |||
1 | # serial 14 | ||
2 | dnl Copyright (C) 2002-2003, 2005-2007, 2009 Free Software Foundation, Inc. | ||
3 | dnl This file is free software; the Free Software Foundation | ||
4 | dnl gives unlimited permission to copy and/or distribute it, | ||
5 | dnl with or without modifications, as long as this notice is preserved. | ||
6 | |||
7 | dnl From Jim Meyering. | ||
8 | |||
9 | # Redefine AC_FUNC_MKTIME, to fix a bug in Autoconf 2.61a and earlier. | ||
10 | # This redefinition can be removed once a new version of Autoconf is assumed. | ||
11 | # The redefinition is taken from | ||
12 | # <http://cvs.sv.gnu.org/viewcvs/*checkout*/autoconf/autoconf/lib/autoconf/functions.m4?rev=1.119>. | ||
13 | # AC_FUNC_MKTIME | ||
14 | # -------------- | ||
15 | AC_DEFUN([AC_FUNC_MKTIME], | ||
16 | [AC_CHECK_HEADERS_ONCE([unistd.h]) | ||
17 | AC_CHECK_FUNCS_ONCE([alarm]) | ||
18 | AC_CACHE_CHECK([for working mktime], [ac_cv_func_working_mktime], | ||
19 | [AC_RUN_IFELSE([AC_LANG_SOURCE( | ||
20 | [[/* Test program from Paul Eggert and Tony Leneis. */ | ||
21 | #include <limits.h> | ||
22 | #include <stdlib.h> | ||
23 | #include <time.h> | ||
24 | |||
25 | #ifdef HAVE_UNISTD_H | ||
26 | # include <unistd.h> | ||
27 | #endif | ||
28 | |||
29 | #ifndef HAVE_ALARM | ||
30 | # define alarm(X) /* empty */ | ||
31 | #endif | ||
32 | |||
33 | /* Work around redefinition to rpl_putenv by other config tests. */ | ||
34 | #undef putenv | ||
35 | |||
36 | static time_t time_t_max; | ||
37 | static time_t time_t_min; | ||
38 | |||
39 | /* Values we'll use to set the TZ environment variable. */ | ||
40 | static char *tz_strings[] = { | ||
41 | (char *) 0, "TZ=GMT0", "TZ=JST-9", | ||
42 | "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00" | ||
43 | }; | ||
44 | #define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0])) | ||
45 | |||
46 | /* Return 0 if mktime fails to convert a date in the spring-forward gap. | ||
47 | Based on a problem report from Andreas Jaeger. */ | ||
48 | static int | ||
49 | spring_forward_gap () | ||
50 | { | ||
51 | /* glibc (up to about 1998-10-07) failed this test. */ | ||
52 | struct tm tm; | ||
53 | |||
54 | /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0" | ||
55 | instead of "TZ=America/Vancouver" in order to detect the bug even | ||
56 | on systems that don't support the Olson extension, or don't have the | ||
57 | full zoneinfo tables installed. */ | ||
58 | putenv ("TZ=PST8PDT,M4.1.0,M10.5.0"); | ||
59 | |||
60 | tm.tm_year = 98; | ||
61 | tm.tm_mon = 3; | ||
62 | tm.tm_mday = 5; | ||
63 | tm.tm_hour = 2; | ||
64 | tm.tm_min = 0; | ||
65 | tm.tm_sec = 0; | ||
66 | tm.tm_isdst = -1; | ||
67 | return mktime (&tm) != (time_t) -1; | ||
68 | } | ||
69 | |||
70 | static int | ||
71 | mktime_test1 (time_t now) | ||
72 | { | ||
73 | struct tm *lt; | ||
74 | return ! (lt = localtime (&now)) || mktime (lt) == now; | ||
75 | } | ||
76 | |||
77 | static int | ||
78 | mktime_test (time_t now) | ||
79 | { | ||
80 | return (mktime_test1 (now) | ||
81 | && mktime_test1 ((time_t) (time_t_max - now)) | ||
82 | && mktime_test1 ((time_t) (time_t_min + now))); | ||
83 | } | ||
84 | |||
85 | static int | ||
86 | irix_6_4_bug () | ||
87 | { | ||
88 | /* Based on code from Ariel Faigon. */ | ||
89 | struct tm tm; | ||
90 | tm.tm_year = 96; | ||
91 | tm.tm_mon = 3; | ||
92 | tm.tm_mday = 0; | ||
93 | tm.tm_hour = 0; | ||
94 | tm.tm_min = 0; | ||
95 | tm.tm_sec = 0; | ||
96 | tm.tm_isdst = -1; | ||
97 | mktime (&tm); | ||
98 | return tm.tm_mon == 2 && tm.tm_mday == 31; | ||
99 | } | ||
100 | |||
101 | static int | ||
102 | bigtime_test (int j) | ||
103 | { | ||
104 | struct tm tm; | ||
105 | time_t now; | ||
106 | tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j; | ||
107 | now = mktime (&tm); | ||
108 | if (now != (time_t) -1) | ||
109 | { | ||
110 | struct tm *lt = localtime (&now); | ||
111 | if (! (lt | ||
112 | && lt->tm_year == tm.tm_year | ||
113 | && lt->tm_mon == tm.tm_mon | ||
114 | && lt->tm_mday == tm.tm_mday | ||
115 | && lt->tm_hour == tm.tm_hour | ||
116 | && lt->tm_min == tm.tm_min | ||
117 | && lt->tm_sec == tm.tm_sec | ||
118 | && lt->tm_yday == tm.tm_yday | ||
119 | && lt->tm_wday == tm.tm_wday | ||
120 | && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst) | ||
121 | == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst)))) | ||
122 | return 0; | ||
123 | } | ||
124 | return 1; | ||
125 | } | ||
126 | |||
127 | static int | ||
128 | year_2050_test () | ||
129 | { | ||
130 | /* The correct answer for 2050-02-01 00:00:00 in Pacific time, | ||
131 | ignoring leap seconds. */ | ||
132 | unsigned long int answer = 2527315200UL; | ||
133 | |||
134 | struct tm tm; | ||
135 | time_t t; | ||
136 | tm.tm_year = 2050 - 1900; | ||
137 | tm.tm_mon = 2 - 1; | ||
138 | tm.tm_mday = 1; | ||
139 | tm.tm_hour = tm.tm_min = tm.tm_sec = 0; | ||
140 | tm.tm_isdst = -1; | ||
141 | |||
142 | /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0" | ||
143 | instead of "TZ=America/Vancouver" in order to detect the bug even | ||
144 | on systems that don't support the Olson extension, or don't have the | ||
145 | full zoneinfo tables installed. */ | ||
146 | putenv ("TZ=PST8PDT,M4.1.0,M10.5.0"); | ||
147 | |||
148 | t = mktime (&tm); | ||
149 | |||
150 | /* Check that the result is either a failure, or close enough | ||
151 | to the correct answer that we can assume the discrepancy is | ||
152 | due to leap seconds. */ | ||
153 | return (t == (time_t) -1 | ||
154 | || (0 < t && answer - 120 <= t && t <= answer + 120)); | ||
155 | } | ||
156 | |||
157 | int | ||
158 | main () | ||
159 | { | ||
160 | time_t t, delta; | ||
161 | int i, j; | ||
162 | |||
163 | /* This test makes some buggy mktime implementations loop. | ||
164 | Give up after 60 seconds; a mktime slower than that | ||
165 | isn't worth using anyway. */ | ||
166 | alarm (60); | ||
167 | |||
168 | for (;;) | ||
169 | { | ||
170 | t = (time_t_max << 1) + 1; | ||
171 | if (t <= time_t_max) | ||
172 | break; | ||
173 | time_t_max = t; | ||
174 | } | ||
175 | time_t_min = - ((time_t) ~ (time_t) 0 == (time_t) -1) - time_t_max; | ||
176 | |||
177 | delta = time_t_max / 997; /* a suitable prime number */ | ||
178 | for (i = 0; i < N_STRINGS; i++) | ||
179 | { | ||
180 | if (tz_strings[i]) | ||
181 | putenv (tz_strings[i]); | ||
182 | |||
183 | for (t = 0; t <= time_t_max - delta; t += delta) | ||
184 | if (! mktime_test (t)) | ||
185 | return 1; | ||
186 | if (! (mktime_test ((time_t) 1) | ||
187 | && mktime_test ((time_t) (60 * 60)) | ||
188 | && mktime_test ((time_t) (60 * 60 * 24)))) | ||
189 | return 1; | ||
190 | |||
191 | for (j = 1; ; j <<= 1) | ||
192 | if (! bigtime_test (j)) | ||
193 | return 1; | ||
194 | else if (INT_MAX / 2 < j) | ||
195 | break; | ||
196 | if (! bigtime_test (INT_MAX)) | ||
197 | return 1; | ||
198 | } | ||
199 | return ! (irix_6_4_bug () && spring_forward_gap () && year_2050_test ()); | ||
200 | }]])], | ||
201 | [ac_cv_func_working_mktime=yes], | ||
202 | [ac_cv_func_working_mktime=no], | ||
203 | [ac_cv_func_working_mktime=no])]) | ||
204 | if test $ac_cv_func_working_mktime = no; then | ||
205 | AC_LIBOBJ([mktime]) | ||
206 | fi | ||
207 | ])# AC_FUNC_MKTIME | ||
208 | |||
209 | AC_DEFUN([gl_FUNC_MKTIME], | ||
210 | [ | ||
211 | AC_FUNC_MKTIME | ||
212 | dnl Note: AC_FUNC_MKTIME does AC_LIBOBJ([mktime]). | ||
213 | if test $ac_cv_func_working_mktime = no; then | ||
214 | AC_DEFINE([mktime], [rpl_mktime], | ||
215 | [Define to rpl_mktime if the replacement function should be used.]) | ||
216 | gl_PREREQ_MKTIME | ||
217 | fi | ||
218 | ]) | ||
219 | |||
220 | # Prerequisites of lib/mktime.c. | ||
221 | AC_DEFUN([gl_PREREQ_MKTIME], | ||
222 | [ | ||
223 | AC_REQUIRE([AC_C_INLINE]) | ||
224 | ]) | ||
diff --git a/gl/m4/time_h.m4 b/gl/m4/time_h.m4 new file mode 100644 index 00000000..d42a635e --- /dev/null +++ b/gl/m4/time_h.m4 | |||
@@ -0,0 +1,74 @@ | |||
1 | # Configure a more-standard replacement for <time.h>. | ||
2 | |||
3 | # Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007 Free Software | ||
4 | # Foundation, Inc. | ||
5 | |||
6 | # This file is free software; the Free Software Foundation | ||
7 | # gives unlimited permission to copy and/or distribute it, | ||
8 | # with or without modifications, as long as this notice is preserved. | ||
9 | |||
10 | # Written by Paul Eggert and Jim Meyering. | ||
11 | |||
12 | AC_DEFUN([gl_HEADER_TIME_H], | ||
13 | [ | ||
14 | dnl Use AC_REQUIRE here, so that the default behavior below is expanded | ||
15 | dnl once only, before all statements that occur in other macros. | ||
16 | AC_REQUIRE([gl_HEADER_TIME_H_BODY]) | ||
17 | ]) | ||
18 | |||
19 | AC_DEFUN([gl_HEADER_TIME_H_BODY], | ||
20 | [ | ||
21 | AC_REQUIRE([AC_C_RESTRICT]) | ||
22 | AC_REQUIRE([gl_HEADER_TIME_H_DEFAULTS]) | ||
23 | gl_CHECK_NEXT_HEADERS([time.h]) | ||
24 | AC_REQUIRE([gl_CHECK_TYPE_STRUCT_TIMESPEC]) | ||
25 | ]) | ||
26 | |||
27 | AC_DEFUN([gl_HEADER_TIME_H_DEFAULTS], | ||
28 | [ | ||
29 | dnl If another module says to replace or to not replace, do that. | ||
30 | dnl Otherwise, replace only if someone compiles with -DGNULIB_PORTCHECK; | ||
31 | dnl this lets maintainers check for portability. | ||
32 | REPLACE_LOCALTIME_R=GNULIB_PORTCHECK; AC_SUBST([REPLACE_LOCALTIME_R]) | ||
33 | REPLACE_NANOSLEEP=GNULIB_PORTCHECK; AC_SUBST([REPLACE_NANOSLEEP]) | ||
34 | REPLACE_STRPTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_STRPTIME]) | ||
35 | REPLACE_TIMEGM=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TIMEGM]) | ||
36 | ]) | ||
37 | |||
38 | dnl Define HAVE_STRUCT_TIMESPEC if `struct timespec' is declared | ||
39 | dnl in time.h or sys/time.h. | ||
40 | |||
41 | AC_DEFUN([gl_CHECK_TYPE_STRUCT_TIMESPEC], | ||
42 | [ | ||
43 | AC_CHECK_HEADERS_ONCE([sys/time.h]) | ||
44 | AC_CACHE_CHECK([for struct timespec in <time.h>], | ||
45 | [gl_cv_sys_struct_timespec_in_time_h], | ||
46 | [AC_COMPILE_IFELSE( | ||
47 | [AC_LANG_PROGRAM( | ||
48 | [[#include <time.h> | ||
49 | ]], | ||
50 | [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], | ||
51 | [gl_cv_sys_struct_timespec_in_time_h=yes], | ||
52 | [gl_cv_sys_struct_timespec_in_time_h=no])]) | ||
53 | |||
54 | TIME_H_DEFINES_STRUCT_TIMESPEC=0 | ||
55 | SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=0 | ||
56 | if test $gl_cv_sys_struct_timespec_in_time_h = yes; then | ||
57 | TIME_H_DEFINES_STRUCT_TIMESPEC=1 | ||
58 | else | ||
59 | AC_CACHE_CHECK([for struct timespec in <sys/time.h>], | ||
60 | [gl_cv_sys_struct_timespec_in_sys_time_h], | ||
61 | [AC_COMPILE_IFELSE( | ||
62 | [AC_LANG_PROGRAM( | ||
63 | [[#include <sys/time.h> | ||
64 | ]], | ||
65 | [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], | ||
66 | [gl_cv_sys_struct_timespec_in_sys_time_h=yes], | ||
67 | [gl_cv_sys_struct_timespec_in_sys_time_h=no])]) | ||
68 | if test $gl_cv_sys_struct_timespec_in_sys_time_h = yes; then | ||
69 | SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=1 | ||
70 | fi | ||
71 | fi | ||
72 | AC_SUBST([TIME_H_DEFINES_STRUCT_TIMESPEC]) | ||
73 | AC_SUBST([SYS_TIME_H_DEFINES_STRUCT_TIMESPEC]) | ||
74 | ]) | ||
diff --git a/gl/m4/time_r.m4 b/gl/m4/time_r.m4 new file mode 100644 index 00000000..c871b56d --- /dev/null +++ b/gl/m4/time_r.m4 | |||
@@ -0,0 +1,43 @@ | |||
1 | dnl Reentrant time functions like localtime_r. | ||
2 | |||
3 | dnl Copyright (C) 2003, 2006, 2007, 2008 Free Software Foundation, Inc. | ||
4 | dnl This file is free software; the Free Software Foundation | ||
5 | dnl gives unlimited permission to copy and/or distribute it, | ||
6 | dnl with or without modifications, as long as this notice is preserved. | ||
7 | |||
8 | dnl Written by Paul Eggert. | ||
9 | |||
10 | AC_DEFUN([gl_TIME_R], | ||
11 | [ | ||
12 | dnl Persuade glibc and Solaris <time.h> to declare localtime_r. | ||
13 | AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) | ||
14 | |||
15 | AC_REQUIRE([gl_HEADER_TIME_H_DEFAULTS]) | ||
16 | AC_REQUIRE([AC_C_RESTRICT]) | ||
17 | |||
18 | AC_CACHE_CHECK([whether localtime_r is compatible with its POSIX signature], | ||
19 | [gl_cv_time_r_posix], | ||
20 | [AC_TRY_COMPILE( | ||
21 | [#include <time.h>], | ||
22 | [/* We don't need to append 'restrict's to the argument types, | ||
23 | even though the POSIX signature has the 'restrict's, | ||
24 | since C99 says they can't affect type compatibility. */ | ||
25 | struct tm * (*ptr) (time_t const *, struct tm *) = localtime_r; | ||
26 | if (ptr) return 0; | ||
27 | /* Check the return type is a pointer. On HP-UX 10 it is 'int'. */ | ||
28 | *localtime_r (0, 0);], | ||
29 | [gl_cv_time_r_posix=yes], | ||
30 | [gl_cv_time_r_posix=no])]) | ||
31 | if test $gl_cv_time_r_posix = yes; then | ||
32 | REPLACE_LOCALTIME_R=0 | ||
33 | else | ||
34 | REPLACE_LOCALTIME_R=1 | ||
35 | AC_LIBOBJ([time_r]) | ||
36 | gl_PREREQ_TIME_R | ||
37 | fi | ||
38 | ]) | ||
39 | |||
40 | # Prerequisites of lib/time_r.c. | ||
41 | AC_DEFUN([gl_PREREQ_TIME_R], [ | ||
42 | : | ||
43 | ]) | ||
diff --git a/gl/m4/timegm.m4 b/gl/m4/timegm.m4 new file mode 100644 index 00000000..be323c9b --- /dev/null +++ b/gl/m4/timegm.m4 | |||
@@ -0,0 +1,40 @@ | |||
1 | # timegm.m4 serial 6 | ||
2 | dnl Copyright (C) 2003, 2007, 2009 Free Software Foundation, Inc. | ||
3 | dnl This file is free software; the Free Software Foundation | ||
4 | dnl gives unlimited permission to copy and/or distribute it, | ||
5 | dnl with or without modifications, as long as this notice is preserved. | ||
6 | |||
7 | AC_DEFUN([gl_FUNC_TIMEGM], | ||
8 | [ | ||
9 | AC_REQUIRE([gl_HEADER_TIME_H_DEFAULTS]) | ||
10 | AC_REQUIRE([gl_FUNC_MKTIME]) | ||
11 | if test $ac_cv_func_working_mktime = no; then | ||
12 | # Assume that timegm is buggy if mktime is. | ||
13 | AC_LIBOBJ([timegm]) | ||
14 | ac_cv_func_timegm=no | ||
15 | else | ||
16 | AC_REPLACE_FUNCS([timegm]) | ||
17 | fi | ||
18 | REPLACE_TIMEGM=1 | ||
19 | if test $ac_cv_func_timegm = yes; then | ||
20 | AC_CHECK_DECLS([timegm], [REPLACE_TIMEGM=0], [], [#include <time.h>]) | ||
21 | fi | ||
22 | if test $REPLACE_TIMEGM = 1; then | ||
23 | gl_PREREQ_TIMEGM | ||
24 | fi | ||
25 | ]) | ||
26 | |||
27 | # Prerequisites of lib/timegm.c. | ||
28 | AC_DEFUN([gl_PREREQ_TIMEGM], [ | ||
29 | AC_REQUIRE([gl_TIME_R]) | ||
30 | AC_REQUIRE([gl_FUNC_MKTIME]) | ||
31 | if test $ac_cv_func_working_mktime = yes; then | ||
32 | AC_CHECK_FUNC([__mktime_internal], , | ||
33 | [# mktime works but it doesn't export __mktime_internal, | ||
34 | # so we need to substitute our own mktime implementation. | ||
35 | AC_LIBOBJ([mktime]) | ||
36 | AC_DEFINE([mktime], [rpl_mktime], | ||
37 | [Define to rpl_mktime if the replacement function should be used.]) | ||
38 | gl_PREREQ_MKTIME]) | ||
39 | fi | ||
40 | ]) | ||
diff --git a/gl/mktime.c b/gl/mktime.c new file mode 100644 index 00000000..0f30d43f --- /dev/null +++ b/gl/mktime.c | |||
@@ -0,0 +1,665 @@ | |||
1 | /* Convert a `struct tm' to a time_t value. | ||
2 | Copyright (C) 1993-1999, 2002-2005, 2006, 2007 Free Software Foundation, Inc. | ||
3 | This file is part of the GNU C Library. | ||
4 | Contributed by Paul Eggert <eggert@twinsun.com>. | ||
5 | |||
6 | This program is free software; you can redistribute it and/or modify | ||
7 | it under the terms of the GNU General Public License as published by | ||
8 | the Free Software Foundation; either version 3, or (at your option) | ||
9 | any later version. | ||
10 | |||
11 | This program is distributed in the hope that it will be useful, | ||
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
14 | GNU General Public License for more details. | ||
15 | |||
16 | You should have received a copy of the GNU General Public License along | ||
17 | with this program; if not, write to the Free Software Foundation, | ||
18 | Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ | ||
19 | |||
20 | /* Define this to have a standalone program to test this implementation of | ||
21 | mktime. */ | ||
22 | /* #define DEBUG 1 */ | ||
23 | |||
24 | #ifndef _LIBC | ||
25 | # include <config.h> | ||
26 | #endif | ||
27 | |||
28 | /* Assume that leap seconds are possible, unless told otherwise. | ||
29 | If the host has a `zic' command with a `-L leapsecondfilename' option, | ||
30 | then it supports leap seconds; otherwise it probably doesn't. */ | ||
31 | #ifndef LEAP_SECONDS_POSSIBLE | ||
32 | # define LEAP_SECONDS_POSSIBLE 1 | ||
33 | #endif | ||
34 | |||
35 | #include <time.h> | ||
36 | |||
37 | #include <limits.h> | ||
38 | |||
39 | #include <string.h> /* For the real memcpy prototype. */ | ||
40 | |||
41 | #if DEBUG | ||
42 | # include <stdio.h> | ||
43 | # include <stdlib.h> | ||
44 | /* Make it work even if the system's libc has its own mktime routine. */ | ||
45 | # define mktime my_mktime | ||
46 | #endif /* DEBUG */ | ||
47 | |||
48 | /* Shift A right by B bits portably, by dividing A by 2**B and | ||
49 | truncating towards minus infinity. A and B should be free of side | ||
50 | effects, and B should be in the range 0 <= B <= INT_BITS - 2, where | ||
51 | INT_BITS is the number of useful bits in an int. GNU code can | ||
52 | assume that INT_BITS is at least 32. | ||
53 | |||
54 | ISO C99 says that A >> B is implementation-defined if A < 0. Some | ||
55 | implementations (e.g., UNICOS 9.0 on a Cray Y-MP EL) don't shift | ||
56 | right in the usual way when A < 0, so SHR falls back on division if | ||
57 | ordinary A >> B doesn't seem to be the usual signed shift. */ | ||
58 | #define SHR(a, b) \ | ||
59 | (-1 >> 1 == -1 \ | ||
60 | ? (a) >> (b) \ | ||
61 | : (a) / (1 << (b)) - ((a) % (1 << (b)) < 0)) | ||
62 | |||
63 | /* The extra casts in the following macros work around compiler bugs, | ||
64 | e.g., in Cray C 5.0.3.0. */ | ||
65 | |||
66 | /* True if the arithmetic type T is an integer type. bool counts as | ||
67 | an integer. */ | ||
68 | #define TYPE_IS_INTEGER(t) ((t) 1.5 == 1) | ||
69 | |||
70 | /* True if negative values of the signed integer type T use two's | ||
71 | complement, ones' complement, or signed magnitude representation, | ||
72 | respectively. Much GNU code assumes two's complement, but some | ||
73 | people like to be portable to all possible C hosts. */ | ||
74 | #define TYPE_TWOS_COMPLEMENT(t) ((t) ~ (t) 0 == (t) -1) | ||
75 | #define TYPE_ONES_COMPLEMENT(t) ((t) ~ (t) 0 == 0) | ||
76 | #define TYPE_SIGNED_MAGNITUDE(t) ((t) ~ (t) 0 < (t) -1) | ||
77 | |||
78 | /* True if the arithmetic type T is signed. */ | ||
79 | #define TYPE_SIGNED(t) (! ((t) 0 < (t) -1)) | ||
80 | |||
81 | /* The maximum and minimum values for the integer type T. These | ||
82 | macros have undefined behavior if T is signed and has padding bits. | ||
83 | If this is a problem for you, please let us know how to fix it for | ||
84 | your host. */ | ||
85 | #define TYPE_MINIMUM(t) \ | ||
86 | ((t) (! TYPE_SIGNED (t) \ | ||
87 | ? (t) 0 \ | ||
88 | : TYPE_SIGNED_MAGNITUDE (t) \ | ||
89 | ? ~ (t) 0 \ | ||
90 | : ~ (t) 0 << (sizeof (t) * CHAR_BIT - 1))) | ||
91 | #define TYPE_MAXIMUM(t) \ | ||
92 | ((t) (! TYPE_SIGNED (t) \ | ||
93 | ? (t) -1 \ | ||
94 | : ~ (~ (t) 0 << (sizeof (t) * CHAR_BIT - 1)))) | ||
95 | |||
96 | #ifndef TIME_T_MIN | ||
97 | # define TIME_T_MIN TYPE_MINIMUM (time_t) | ||
98 | #endif | ||
99 | #ifndef TIME_T_MAX | ||
100 | # define TIME_T_MAX TYPE_MAXIMUM (time_t) | ||
101 | #endif | ||
102 | #define TIME_T_MIDPOINT (SHR (TIME_T_MIN + TIME_T_MAX, 1) + 1) | ||
103 | |||
104 | /* Verify a requirement at compile-time (unlike assert, which is runtime). */ | ||
105 | #define verify(name, assertion) struct name { char a[(assertion) ? 1 : -1]; } | ||
106 | |||
107 | verify (time_t_is_integer, TYPE_IS_INTEGER (time_t)); | ||
108 | verify (twos_complement_arithmetic, TYPE_TWOS_COMPLEMENT (int)); | ||
109 | /* The code also assumes that signed integer overflow silently wraps | ||
110 | around, but this assumption can't be stated without causing a | ||
111 | diagnostic on some hosts. */ | ||
112 | |||
113 | #define EPOCH_YEAR 1970 | ||
114 | #define TM_YEAR_BASE 1900 | ||
115 | verify (base_year_is_a_multiple_of_100, TM_YEAR_BASE % 100 == 0); | ||
116 | |||
117 | /* Return 1 if YEAR + TM_YEAR_BASE is a leap year. */ | ||
118 | static inline int | ||
119 | leapyear (long int year) | ||
120 | { | ||
121 | /* Don't add YEAR to TM_YEAR_BASE, as that might overflow. | ||
122 | Also, work even if YEAR is negative. */ | ||
123 | return | ||
124 | ((year & 3) == 0 | ||
125 | && (year % 100 != 0 | ||
126 | || ((year / 100) & 3) == (- (TM_YEAR_BASE / 100) & 3))); | ||
127 | } | ||
128 | |||
129 | /* How many days come before each month (0-12). */ | ||
130 | #ifndef _LIBC | ||
131 | static | ||
132 | #endif | ||
133 | const unsigned short int __mon_yday[2][13] = | ||
134 | { | ||
135 | /* Normal years. */ | ||
136 | { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 }, | ||
137 | /* Leap years. */ | ||
138 | { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 } | ||
139 | }; | ||
140 | |||
141 | |||
142 | #ifndef _LIBC | ||
143 | /* Portable standalone applications should supply a <time.h> that | ||
144 | declares a POSIX-compliant localtime_r, for the benefit of older | ||
145 | implementations that lack localtime_r or have a nonstandard one. | ||
146 | See the gnulib time_r module for one way to implement this. */ | ||
147 | # undef __localtime_r | ||
148 | # define __localtime_r localtime_r | ||
149 | # define __mktime_internal mktime_internal | ||
150 | #endif | ||
151 | |||
152 | /* Return an integer value measuring (YEAR1-YDAY1 HOUR1:MIN1:SEC1) - | ||
153 | (YEAR0-YDAY0 HOUR0:MIN0:SEC0) in seconds, assuming that the clocks | ||
154 | were not adjusted between the time stamps. | ||
155 | |||
156 | The YEAR values uses the same numbering as TP->tm_year. Values | ||
157 | need not be in the usual range. However, YEAR1 must not be less | ||
158 | than 2 * INT_MIN or greater than 2 * INT_MAX. | ||
159 | |||
160 | The result may overflow. It is the caller's responsibility to | ||
161 | detect overflow. */ | ||
162 | |||
163 | static inline time_t | ||
164 | ydhms_diff (long int year1, long int yday1, int hour1, int min1, int sec1, | ||
165 | int year0, int yday0, int hour0, int min0, int sec0) | ||
166 | { | ||
167 | verify (C99_integer_division, -1 / 2 == 0); | ||
168 | verify (long_int_year_and_yday_are_wide_enough, | ||
169 | INT_MAX <= LONG_MAX / 2 || TIME_T_MAX <= UINT_MAX); | ||
170 | |||
171 | /* Compute intervening leap days correctly even if year is negative. | ||
172 | Take care to avoid integer overflow here. */ | ||
173 | int a4 = SHR (year1, 2) + SHR (TM_YEAR_BASE, 2) - ! (year1 & 3); | ||
174 | int b4 = SHR (year0, 2) + SHR (TM_YEAR_BASE, 2) - ! (year0 & 3); | ||
175 | int a100 = a4 / 25 - (a4 % 25 < 0); | ||
176 | int b100 = b4 / 25 - (b4 % 25 < 0); | ||
177 | int a400 = SHR (a100, 2); | ||
178 | int b400 = SHR (b100, 2); | ||
179 | int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400); | ||
180 | |||
181 | /* Compute the desired time in time_t precision. Overflow might | ||
182 | occur here. */ | ||
183 | time_t tyear1 = year1; | ||
184 | time_t years = tyear1 - year0; | ||
185 | time_t days = 365 * years + yday1 - yday0 + intervening_leap_days; | ||
186 | time_t hours = 24 * days + hour1 - hour0; | ||
187 | time_t minutes = 60 * hours + min1 - min0; | ||
188 | time_t seconds = 60 * minutes + sec1 - sec0; | ||
189 | return seconds; | ||
190 | } | ||
191 | |||
192 | |||
193 | /* Return a time_t value corresponding to (YEAR-YDAY HOUR:MIN:SEC), | ||
194 | assuming that *T corresponds to *TP and that no clock adjustments | ||
195 | occurred between *TP and the desired time. | ||
196 | If TP is null, return a value not equal to *T; this avoids false matches. | ||
197 | If overflow occurs, yield the minimal or maximal value, except do not | ||
198 | yield a value equal to *T. */ | ||
199 | static time_t | ||
200 | guess_time_tm (long int year, long int yday, int hour, int min, int sec, | ||
201 | const time_t *t, const struct tm *tp) | ||
202 | { | ||
203 | if (tp) | ||
204 | { | ||
205 | time_t d = ydhms_diff (year, yday, hour, min, sec, | ||
206 | tp->tm_year, tp->tm_yday, | ||
207 | tp->tm_hour, tp->tm_min, tp->tm_sec); | ||
208 | time_t t1 = *t + d; | ||
209 | if ((t1 < *t) == (TYPE_SIGNED (time_t) ? d < 0 : TIME_T_MAX / 2 < d)) | ||
210 | return t1; | ||
211 | } | ||
212 | |||
213 | /* Overflow occurred one way or another. Return the nearest result | ||
214 | that is actually in range, except don't report a zero difference | ||
215 | if the actual difference is nonzero, as that would cause a false | ||
216 | match; and don't oscillate between two values, as that would | ||
217 | confuse the spring-forward gap detector. */ | ||
218 | return (*t < TIME_T_MIDPOINT | ||
219 | ? (*t <= TIME_T_MIN + 1 ? *t + 1 : TIME_T_MIN) | ||
220 | : (TIME_T_MAX - 1 <= *t ? *t - 1 : TIME_T_MAX)); | ||
221 | } | ||
222 | |||
223 | /* Use CONVERT to convert *T to a broken down time in *TP. | ||
224 | If *T is out of range for conversion, adjust it so that | ||
225 | it is the nearest in-range value and then convert that. */ | ||
226 | static struct tm * | ||
227 | ranged_convert (struct tm *(*convert) (const time_t *, struct tm *), | ||
228 | time_t *t, struct tm *tp) | ||
229 | { | ||
230 | struct tm *r = convert (t, tp); | ||
231 | |||
232 | if (!r && *t) | ||
233 | { | ||
234 | time_t bad = *t; | ||
235 | time_t ok = 0; | ||
236 | |||
237 | /* BAD is a known unconvertible time_t, and OK is a known good one. | ||
238 | Use binary search to narrow the range between BAD and OK until | ||
239 | they differ by 1. */ | ||
240 | while (bad != ok + (bad < 0 ? -1 : 1)) | ||
241 | { | ||
242 | time_t mid = *t = (bad < 0 | ||
243 | ? bad + ((ok - bad) >> 1) | ||
244 | : ok + ((bad - ok) >> 1)); | ||
245 | r = convert (t, tp); | ||
246 | if (r) | ||
247 | ok = mid; | ||
248 | else | ||
249 | bad = mid; | ||
250 | } | ||
251 | |||
252 | if (!r && ok) | ||
253 | { | ||
254 | /* The last conversion attempt failed; | ||
255 | revert to the most recent successful attempt. */ | ||
256 | *t = ok; | ||
257 | r = convert (t, tp); | ||
258 | } | ||
259 | } | ||
260 | |||
261 | return r; | ||
262 | } | ||
263 | |||
264 | |||
265 | /* Convert *TP to a time_t value, inverting | ||
266 | the monotonic and mostly-unit-linear conversion function CONVERT. | ||
267 | Use *OFFSET to keep track of a guess at the offset of the result, | ||
268 | compared to what the result would be for UTC without leap seconds. | ||
269 | If *OFFSET's guess is correct, only one CONVERT call is needed. | ||
270 | This function is external because it is used also by timegm.c. */ | ||
271 | time_t | ||
272 | __mktime_internal (struct tm *tp, | ||
273 | struct tm *(*convert) (const time_t *, struct tm *), | ||
274 | time_t *offset) | ||
275 | { | ||
276 | time_t t, gt, t0, t1, t2; | ||
277 | struct tm tm; | ||
278 | |||
279 | /* The maximum number of probes (calls to CONVERT) should be enough | ||
280 | to handle any combinations of time zone rule changes, solar time, | ||
281 | leap seconds, and oscillations around a spring-forward gap. | ||
282 | POSIX.1 prohibits leap seconds, but some hosts have them anyway. */ | ||
283 | int remaining_probes = 6; | ||
284 | |||
285 | /* Time requested. Copy it in case CONVERT modifies *TP; this can | ||
286 | occur if TP is localtime's returned value and CONVERT is localtime. */ | ||
287 | int sec = tp->tm_sec; | ||
288 | int min = tp->tm_min; | ||
289 | int hour = tp->tm_hour; | ||
290 | int mday = tp->tm_mday; | ||
291 | int mon = tp->tm_mon; | ||
292 | int year_requested = tp->tm_year; | ||
293 | /* Normalize the value. */ | ||
294 | int isdst = ((tp->tm_isdst >> (8 * sizeof (tp->tm_isdst) - 1)) | ||
295 | | (tp->tm_isdst != 0)); | ||
296 | |||
297 | /* 1 if the previous probe was DST. */ | ||
298 | int dst2; | ||
299 | |||
300 | /* Ensure that mon is in range, and set year accordingly. */ | ||
301 | int mon_remainder = mon % 12; | ||
302 | int negative_mon_remainder = mon_remainder < 0; | ||
303 | int mon_years = mon / 12 - negative_mon_remainder; | ||
304 | long int lyear_requested = year_requested; | ||
305 | long int year = lyear_requested + mon_years; | ||
306 | |||
307 | /* The other values need not be in range: | ||
308 | the remaining code handles minor overflows correctly, | ||
309 | assuming int and time_t arithmetic wraps around. | ||
310 | Major overflows are caught at the end. */ | ||
311 | |||
312 | /* Calculate day of year from year, month, and day of month. | ||
313 | The result need not be in range. */ | ||
314 | int mon_yday = ((__mon_yday[leapyear (year)] | ||
315 | [mon_remainder + 12 * negative_mon_remainder]) | ||
316 | - 1); | ||
317 | long int lmday = mday; | ||
318 | long int yday = mon_yday + lmday; | ||
319 | |||
320 | time_t guessed_offset = *offset; | ||
321 | |||
322 | int sec_requested = sec; | ||
323 | |||
324 | if (LEAP_SECONDS_POSSIBLE) | ||
325 | { | ||
326 | /* Handle out-of-range seconds specially, | ||
327 | since ydhms_tm_diff assumes every minute has 60 seconds. */ | ||
328 | if (sec < 0) | ||
329 | sec = 0; | ||
330 | if (59 < sec) | ||
331 | sec = 59; | ||
332 | } | ||
333 | |||
334 | /* Invert CONVERT by probing. First assume the same offset as last | ||
335 | time. */ | ||
336 | |||
337 | t0 = ydhms_diff (year, yday, hour, min, sec, | ||
338 | EPOCH_YEAR - TM_YEAR_BASE, 0, 0, 0, - guessed_offset); | ||
339 | |||
340 | if (TIME_T_MAX / INT_MAX / 366 / 24 / 60 / 60 < 3) | ||
341 | { | ||
342 | /* time_t isn't large enough to rule out overflows, so check | ||
343 | for major overflows. A gross check suffices, since if t0 | ||
344 | has overflowed, it is off by a multiple of TIME_T_MAX - | ||
345 | TIME_T_MIN + 1. So ignore any component of the difference | ||
346 | that is bounded by a small value. */ | ||
347 | |||
348 | /* Approximate log base 2 of the number of time units per | ||
349 | biennium. A biennium is 2 years; use this unit instead of | ||
350 | years to avoid integer overflow. For example, 2 average | ||
351 | Gregorian years are 2 * 365.2425 * 24 * 60 * 60 seconds, | ||
352 | which is 63113904 seconds, and rint (log2 (63113904)) is | ||
353 | 26. */ | ||
354 | int ALOG2_SECONDS_PER_BIENNIUM = 26; | ||
355 | int ALOG2_MINUTES_PER_BIENNIUM = 20; | ||
356 | int ALOG2_HOURS_PER_BIENNIUM = 14; | ||
357 | int ALOG2_DAYS_PER_BIENNIUM = 10; | ||
358 | int LOG2_YEARS_PER_BIENNIUM = 1; | ||
359 | |||
360 | int approx_requested_biennia = | ||
361 | (SHR (year_requested, LOG2_YEARS_PER_BIENNIUM) | ||
362 | - SHR (EPOCH_YEAR - TM_YEAR_BASE, LOG2_YEARS_PER_BIENNIUM) | ||
363 | + SHR (mday, ALOG2_DAYS_PER_BIENNIUM) | ||
364 | + SHR (hour, ALOG2_HOURS_PER_BIENNIUM) | ||
365 | + SHR (min, ALOG2_MINUTES_PER_BIENNIUM) | ||
366 | + (LEAP_SECONDS_POSSIBLE | ||
367 | ? 0 | ||
368 | : SHR (sec, ALOG2_SECONDS_PER_BIENNIUM))); | ||
369 | |||
370 | int approx_biennia = SHR (t0, ALOG2_SECONDS_PER_BIENNIUM); | ||
371 | int diff = approx_biennia - approx_requested_biennia; | ||
372 | int abs_diff = diff < 0 ? - diff : diff; | ||
373 | |||
374 | /* IRIX 4.0.5 cc miscaculates TIME_T_MIN / 3: it erroneously | ||
375 | gives a positive value of 715827882. Setting a variable | ||
376 | first then doing math on it seems to work. | ||
377 | (ghazi@caip.rutgers.edu) */ | ||
378 | time_t time_t_max = TIME_T_MAX; | ||
379 | time_t time_t_min = TIME_T_MIN; | ||
380 | time_t overflow_threshold = | ||
381 | (time_t_max / 3 - time_t_min / 3) >> ALOG2_SECONDS_PER_BIENNIUM; | ||
382 | |||
383 | if (overflow_threshold < abs_diff) | ||
384 | { | ||
385 | /* Overflow occurred. Try repairing it; this might work if | ||
386 | the time zone offset is enough to undo the overflow. */ | ||
387 | time_t repaired_t0 = -1 - t0; | ||
388 | approx_biennia = SHR (repaired_t0, ALOG2_SECONDS_PER_BIENNIUM); | ||
389 | diff = approx_biennia - approx_requested_biennia; | ||
390 | abs_diff = diff < 0 ? - diff : diff; | ||
391 | if (overflow_threshold < abs_diff) | ||
392 | return -1; | ||
393 | guessed_offset += repaired_t0 - t0; | ||
394 | t0 = repaired_t0; | ||
395 | } | ||
396 | } | ||
397 | |||
398 | /* Repeatedly use the error to improve the guess. */ | ||
399 | |||
400 | for (t = t1 = t2 = t0, dst2 = 0; | ||
401 | (gt = guess_time_tm (year, yday, hour, min, sec, &t, | ||
402 | ranged_convert (convert, &t, &tm)), | ||
403 | t != gt); | ||
404 | t1 = t2, t2 = t, t = gt, dst2 = tm.tm_isdst != 0) | ||
405 | if (t == t1 && t != t2 | ||
406 | && (tm.tm_isdst < 0 | ||
407 | || (isdst < 0 | ||
408 | ? dst2 <= (tm.tm_isdst != 0) | ||
409 | : (isdst != 0) != (tm.tm_isdst != 0)))) | ||
410 | /* We can't possibly find a match, as we are oscillating | ||
411 | between two values. The requested time probably falls | ||
412 | within a spring-forward gap of size GT - T. Follow the common | ||
413 | practice in this case, which is to return a time that is GT - T | ||
414 | away from the requested time, preferring a time whose | ||
415 | tm_isdst differs from the requested value. (If no tm_isdst | ||
416 | was requested and only one of the two values has a nonzero | ||
417 | tm_isdst, prefer that value.) In practice, this is more | ||
418 | useful than returning -1. */ | ||
419 | goto offset_found; | ||
420 | else if (--remaining_probes == 0) | ||
421 | return -1; | ||
422 | |||
423 | /* We have a match. Check whether tm.tm_isdst has the requested | ||
424 | value, if any. */ | ||
425 | if (isdst != tm.tm_isdst && 0 <= isdst && 0 <= tm.tm_isdst) | ||
426 | { | ||
427 | /* tm.tm_isdst has the wrong value. Look for a neighboring | ||
428 | time with the right value, and use its UTC offset. | ||
429 | |||
430 | Heuristic: probe the adjacent timestamps in both directions, | ||
431 | looking for the desired isdst. This should work for all real | ||
432 | time zone histories in the tz database. */ | ||
433 | |||
434 | /* Distance between probes when looking for a DST boundary. In | ||
435 | tzdata2003a, the shortest period of DST is 601200 seconds | ||
436 | (e.g., America/Recife starting 2000-10-08 01:00), and the | ||
437 | shortest period of non-DST surrounded by DST is 694800 | ||
438 | seconds (Africa/Tunis starting 1943-04-17 01:00). Use the | ||
439 | minimum of these two values, so we don't miss these short | ||
440 | periods when probing. */ | ||
441 | int stride = 601200; | ||
442 | |||
443 | /* The longest period of DST in tzdata2003a is 536454000 seconds | ||
444 | (e.g., America/Jujuy starting 1946-10-01 01:00). The longest | ||
445 | period of non-DST is much longer, but it makes no real sense | ||
446 | to search for more than a year of non-DST, so use the DST | ||
447 | max. */ | ||
448 | int duration_max = 536454000; | ||
449 | |||
450 | /* Search in both directions, so the maximum distance is half | ||
451 | the duration; add the stride to avoid off-by-1 problems. */ | ||
452 | int delta_bound = duration_max / 2 + stride; | ||
453 | |||
454 | int delta, direction; | ||
455 | |||
456 | for (delta = stride; delta < delta_bound; delta += stride) | ||
457 | for (direction = -1; direction <= 1; direction += 2) | ||
458 | { | ||
459 | time_t ot = t + delta * direction; | ||
460 | if ((ot < t) == (direction < 0)) | ||
461 | { | ||
462 | struct tm otm; | ||
463 | ranged_convert (convert, &ot, &otm); | ||
464 | if (otm.tm_isdst == isdst) | ||
465 | { | ||
466 | /* We found the desired tm_isdst. | ||
467 | Extrapolate back to the desired time. */ | ||
468 | t = guess_time_tm (year, yday, hour, min, sec, &ot, &otm); | ||
469 | ranged_convert (convert, &t, &tm); | ||
470 | goto offset_found; | ||
471 | } | ||
472 | } | ||
473 | } | ||
474 | } | ||
475 | |||
476 | offset_found: | ||
477 | *offset = guessed_offset + t - t0; | ||
478 | |||
479 | if (LEAP_SECONDS_POSSIBLE && sec_requested != tm.tm_sec) | ||
480 | { | ||
481 | /* Adjust time to reflect the tm_sec requested, not the normalized value. | ||
482 | Also, repair any damage from a false match due to a leap second. */ | ||
483 | int sec_adjustment = (sec == 0 && tm.tm_sec == 60) - sec; | ||
484 | t1 = t + sec_requested; | ||
485 | t2 = t1 + sec_adjustment; | ||
486 | if (((t1 < t) != (sec_requested < 0)) | ||
487 | | ((t2 < t1) != (sec_adjustment < 0)) | ||
488 | | ! convert (&t2, &tm)) | ||
489 | return -1; | ||
490 | t = t2; | ||
491 | } | ||
492 | |||
493 | *tp = tm; | ||
494 | return t; | ||
495 | } | ||
496 | |||
497 | |||
498 | /* FIXME: This should use a signed type wide enough to hold any UTC | ||
499 | offset in seconds. 'int' should be good enough for GNU code. We | ||
500 | can't fix this unilaterally though, as other modules invoke | ||
501 | __mktime_internal. */ | ||
502 | static time_t localtime_offset; | ||
503 | |||
504 | /* Convert *TP to a time_t value. */ | ||
505 | time_t | ||
506 | mktime (struct tm *tp) | ||
507 | { | ||
508 | #ifdef _LIBC | ||
509 | /* POSIX.1 8.1.1 requires that whenever mktime() is called, the | ||
510 | time zone names contained in the external variable `tzname' shall | ||
511 | be set as if the tzset() function had been called. */ | ||
512 | __tzset (); | ||
513 | #endif | ||
514 | |||
515 | return __mktime_internal (tp, __localtime_r, &localtime_offset); | ||
516 | } | ||
517 | |||
518 | #ifdef weak_alias | ||
519 | weak_alias (mktime, timelocal) | ||
520 | #endif | ||
521 | |||
522 | #ifdef _LIBC | ||
523 | libc_hidden_def (mktime) | ||
524 | libc_hidden_weak (timelocal) | ||
525 | #endif | ||
526 | |||
527 | #if DEBUG | ||
528 | |||
529 | static int | ||
530 | not_equal_tm (const struct tm *a, const struct tm *b) | ||
531 | { | ||
532 | return ((a->tm_sec ^ b->tm_sec) | ||
533 | | (a->tm_min ^ b->tm_min) | ||
534 | | (a->tm_hour ^ b->tm_hour) | ||
535 | | (a->tm_mday ^ b->tm_mday) | ||
536 | | (a->tm_mon ^ b->tm_mon) | ||
537 | | (a->tm_year ^ b->tm_year) | ||
538 | | (a->tm_yday ^ b->tm_yday) | ||
539 | | (a->tm_isdst ^ b->tm_isdst)); | ||
540 | } | ||
541 | |||
542 | static void | ||
543 | print_tm (const struct tm *tp) | ||
544 | { | ||
545 | if (tp) | ||
546 | printf ("%04d-%02d-%02d %02d:%02d:%02d yday %03d wday %d isdst %d", | ||
547 | tp->tm_year + TM_YEAR_BASE, tp->tm_mon + 1, tp->tm_mday, | ||
548 | tp->tm_hour, tp->tm_min, tp->tm_sec, | ||
549 | tp->tm_yday, tp->tm_wday, tp->tm_isdst); | ||
550 | else | ||
551 | printf ("0"); | ||
552 | } | ||
553 | |||
554 | static int | ||
555 | check_result (time_t tk, struct tm tmk, time_t tl, const struct tm *lt) | ||
556 | { | ||
557 | if (tk != tl || !lt || not_equal_tm (&tmk, lt)) | ||
558 | { | ||
559 | printf ("mktime ("); | ||
560 | print_tm (lt); | ||
561 | printf (")\nyields ("); | ||
562 | print_tm (&tmk); | ||
563 | printf (") == %ld, should be %ld\n", (long int) tk, (long int) tl); | ||
564 | return 1; | ||
565 | } | ||
566 | |||
567 | return 0; | ||
568 | } | ||
569 | |||
570 | int | ||
571 | main (int argc, char **argv) | ||
572 | { | ||
573 | int status = 0; | ||
574 | struct tm tm, tmk, tml; | ||
575 | struct tm *lt; | ||
576 | time_t tk, tl, tl1; | ||
577 | char trailer; | ||
578 | |||
579 | if ((argc == 3 || argc == 4) | ||
580 | && (sscanf (argv[1], "%d-%d-%d%c", | ||
581 | &tm.tm_year, &tm.tm_mon, &tm.tm_mday, &trailer) | ||
582 | == 3) | ||
583 | && (sscanf (argv[2], "%d:%d:%d%c", | ||
584 | &tm.tm_hour, &tm.tm_min, &tm.tm_sec, &trailer) | ||
585 | == 3)) | ||
586 | { | ||
587 | tm.tm_year -= TM_YEAR_BASE; | ||
588 | tm.tm_mon--; | ||
589 | tm.tm_isdst = argc == 3 ? -1 : atoi (argv[3]); | ||
590 | tmk = tm; | ||
591 | tl = mktime (&tmk); | ||
592 | lt = localtime (&tl); | ||
593 | if (lt) | ||
594 | { | ||
595 | tml = *lt; | ||
596 | lt = &tml; | ||
597 | } | ||
598 | printf ("mktime returns %ld == ", (long int) tl); | ||
599 | print_tm (&tmk); | ||
600 | printf ("\n"); | ||
601 | status = check_result (tl, tmk, tl, lt); | ||
602 | } | ||
603 | else if (argc == 4 || (argc == 5 && strcmp (argv[4], "-") == 0)) | ||
604 | { | ||
605 | time_t from = atol (argv[1]); | ||
606 | time_t by = atol (argv[2]); | ||
607 | time_t to = atol (argv[3]); | ||
608 | |||
609 | if (argc == 4) | ||
610 | for (tl = from; by < 0 ? to <= tl : tl <= to; tl = tl1) | ||
611 | { | ||
612 | lt = localtime (&tl); | ||
613 | if (lt) | ||
614 | { | ||
615 | tmk = tml = *lt; | ||
616 | tk = mktime (&tmk); | ||
617 | status |= check_result (tk, tmk, tl, &tml); | ||
618 | } | ||
619 | else | ||
620 | { | ||
621 | printf ("localtime (%ld) yields 0\n", (long int) tl); | ||
622 | status = 1; | ||
623 | } | ||
624 | tl1 = tl + by; | ||
625 | if ((tl1 < tl) != (by < 0)) | ||
626 | break; | ||
627 | } | ||
628 | else | ||
629 | for (tl = from; by < 0 ? to <= tl : tl <= to; tl = tl1) | ||
630 | { | ||
631 | /* Null benchmark. */ | ||
632 | lt = localtime (&tl); | ||
633 | if (lt) | ||
634 | { | ||
635 | tmk = tml = *lt; | ||
636 | tk = tl; | ||
637 | status |= check_result (tk, tmk, tl, &tml); | ||
638 | } | ||
639 | else | ||
640 | { | ||
641 | printf ("localtime (%ld) yields 0\n", (long int) tl); | ||
642 | status = 1; | ||
643 | } | ||
644 | tl1 = tl + by; | ||
645 | if ((tl1 < tl) != (by < 0)) | ||
646 | break; | ||
647 | } | ||
648 | } | ||
649 | else | ||
650 | printf ("Usage:\ | ||
651 | \t%s YYYY-MM-DD HH:MM:SS [ISDST] # Test given time.\n\ | ||
652 | \t%s FROM BY TO # Test values FROM, FROM+BY, ..., TO.\n\ | ||
653 | \t%s FROM BY TO - # Do not test those values (for benchmark).\n", | ||
654 | argv[0], argv[0], argv[0]); | ||
655 | |||
656 | return status; | ||
657 | } | ||
658 | |||
659 | #endif /* DEBUG */ | ||
660 | |||
661 | /* | ||
662 | Local Variables: | ||
663 | compile-command: "gcc -DDEBUG -Wall -W -O -g mktime.c -o mktime" | ||
664 | End: | ||
665 | */ | ||
diff --git a/gl/time.in.h b/gl/time.in.h new file mode 100644 index 00000000..dec37e85 --- /dev/null +++ b/gl/time.in.h | |||
@@ -0,0 +1,118 @@ | |||
1 | /* A more-standard <time.h>. | ||
2 | |||
3 | Copyright (C) 2007-2008 Free Software Foundation, Inc. | ||
4 | |||
5 | This program is free software; you can redistribute it and/or modify | ||
6 | it under the terms of the GNU General Public License as published by | ||
7 | the Free Software Foundation; either version 3, or (at your option) | ||
8 | any later version. | ||
9 | |||
10 | This program is distributed in the hope that it will be useful, | ||
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
13 | GNU General Public License for more details. | ||
14 | |||
15 | You should have received a copy of the GNU General Public License | ||
16 | along with this program; if not, write to the Free Software Foundation, | ||
17 | Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ | ||
18 | |||
19 | #if __GNUC__ >= 3 | ||
20 | @PRAGMA_SYSTEM_HEADER@ | ||
21 | #endif | ||
22 | |||
23 | /* Don't get in the way of glibc when it includes time.h merely to | ||
24 | declare a few standard symbols, rather than to declare all the | ||
25 | symbols. Also, Solaris 8 <time.h> eventually includes itself | ||
26 | recursively; if that is happening, just include the system <time.h> | ||
27 | without adding our own declarations. */ | ||
28 | #if (defined __need_time_t || defined __need_clock_t \ | ||
29 | || defined __need_timespec \ | ||
30 | || defined _GL_TIME_H) | ||
31 | |||
32 | # @INCLUDE_NEXT@ @NEXT_TIME_H@ | ||
33 | |||
34 | #else | ||
35 | |||
36 | # define _GL_TIME_H | ||
37 | |||
38 | # @INCLUDE_NEXT@ @NEXT_TIME_H@ | ||
39 | |||
40 | # ifdef __cplusplus | ||
41 | extern "C" { | ||
42 | # endif | ||
43 | |||
44 | /* Some systems don't define struct timespec (e.g., AIX 4.1, Ultrix 4.3). | ||
45 | Or they define it with the wrong member names or define it in <sys/time.h> | ||
46 | (e.g., FreeBSD circa 1997). */ | ||
47 | # if ! @TIME_H_DEFINES_STRUCT_TIMESPEC@ | ||
48 | # if @SYS_TIME_H_DEFINES_STRUCT_TIMESPEC@ | ||
49 | # include <sys/time.h> | ||
50 | # else | ||
51 | # undef timespec | ||
52 | # define timespec rpl_timespec | ||
53 | struct timespec | ||
54 | { | ||
55 | time_t tv_sec; | ||
56 | long int tv_nsec; | ||
57 | }; | ||
58 | # endif | ||
59 | # endif | ||
60 | |||
61 | /* Sleep for at least RQTP seconds unless interrupted, If interrupted, | ||
62 | return -1 and store the remaining time into RMTP. See | ||
63 | <http://www.opengroup.org/susv3xsh/nanosleep.html>. */ | ||
64 | # if @REPLACE_NANOSLEEP@ | ||
65 | # define nanosleep rpl_nanosleep | ||
66 | int nanosleep (struct timespec const *__rqtp, struct timespec *__rmtp); | ||
67 | # endif | ||
68 | |||
69 | /* Convert TIMER to RESULT, assuming local time and UTC respectively. See | ||
70 | <http://www.opengroup.org/susv3xsh/localtime_r.html> and | ||
71 | <http://www.opengroup.org/susv3xsh/gmtime_r.html>. */ | ||
72 | # if @REPLACE_LOCALTIME_R@ | ||
73 | # undef localtime_r | ||
74 | # define localtime_r rpl_localtime_r | ||
75 | # undef gmtime_r | ||
76 | # define gmtime_r rpl_gmtime_r | ||
77 | struct tm *localtime_r (time_t const *restrict __timer, | ||
78 | struct tm *restrict __result); | ||
79 | struct tm *gmtime_r (time_t const *restrict __timer, | ||
80 | struct tm *restrict __result); | ||
81 | # endif | ||
82 | |||
83 | /* Parse BUF as a time stamp, assuming FORMAT specifies its layout, and store | ||
84 | the resulting broken-down time into TM. See | ||
85 | <http://www.opengroup.org/susv3xsh/strptime.html>. */ | ||
86 | # if @REPLACE_STRPTIME@ | ||
87 | # undef strptime | ||
88 | # define strptime rpl_strptime | ||
89 | char *strptime (char const *restrict __buf, char const *restrict __format, | ||
90 | struct tm *restrict __tm); | ||
91 | # endif | ||
92 | |||
93 | /* Convert TM to a time_t value, assuming UTC. */ | ||
94 | # if @REPLACE_TIMEGM@ | ||
95 | # undef timegm | ||
96 | # define timegm rpl_timegm | ||
97 | time_t timegm (struct tm *__tm); | ||
98 | # endif | ||
99 | |||
100 | /* Encourage applications to avoid unsafe functions that can overrun | ||
101 | buffers when given outlandish struct tm values. Portable | ||
102 | applications should use strftime (or even sprintf) instead. */ | ||
103 | # if GNULIB_PORTCHECK | ||
104 | # undef asctime | ||
105 | # define asctime eschew_asctime | ||
106 | # undef asctime_r | ||
107 | # define asctime_r eschew_asctime_r | ||
108 | # undef ctime | ||
109 | # define ctime eschew_ctime | ||
110 | # undef ctime_r | ||
111 | # define ctime_r eschew_ctime_r | ||
112 | # endif | ||
113 | |||
114 | # ifdef __cplusplus | ||
115 | } | ||
116 | # endif | ||
117 | |||
118 | #endif | ||
diff --git a/gl/time_r.c b/gl/time_r.c new file mode 100644 index 00000000..d610e7fe --- /dev/null +++ b/gl/time_r.c | |||
@@ -0,0 +1,47 @@ | |||
1 | /* Reentrant time functions like localtime_r. | ||
2 | |||
3 | Copyright (C) 2003, 2006, 2007 Free Software Foundation, Inc. | ||
4 | |||
5 | This program is free software; you can redistribute it and/or modify | ||
6 | it under the terms of the GNU General Public License as published by | ||
7 | the Free Software Foundation; either version 3, or (at your option) | ||
8 | any later version. | ||
9 | |||
10 | This program is distributed in the hope that it will be useful, | ||
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
13 | GNU General Public License for more details. | ||
14 | |||
15 | You should have received a copy of the GNU General Public License along | ||
16 | with this program; if not, write to the Free Software Foundation, | ||
17 | Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ | ||
18 | |||
19 | /* Written by Paul Eggert. */ | ||
20 | |||
21 | #include <config.h> | ||
22 | |||
23 | #include <time.h> | ||
24 | |||
25 | #include <string.h> | ||
26 | |||
27 | static struct tm * | ||
28 | copy_tm_result (struct tm *dest, struct tm const *src) | ||
29 | { | ||
30 | if (! src) | ||
31 | return 0; | ||
32 | *dest = *src; | ||
33 | return dest; | ||
34 | } | ||
35 | |||
36 | |||
37 | struct tm * | ||
38 | gmtime_r (time_t const * restrict t, struct tm * restrict tp) | ||
39 | { | ||
40 | return copy_tm_result (tp, gmtime (t)); | ||
41 | } | ||
42 | |||
43 | struct tm * | ||
44 | localtime_r (time_t const * restrict t, struct tm * restrict tp) | ||
45 | { | ||
46 | return copy_tm_result (tp, localtime (t)); | ||
47 | } | ||
diff --git a/gl/timegm.c b/gl/timegm.c new file mode 100644 index 00000000..057f6459 --- /dev/null +++ b/gl/timegm.c | |||
@@ -0,0 +1,41 @@ | |||
1 | /* Convert UTC calendar time to simple time. Like mktime but assumes UTC. | ||
2 | |||
3 | Copyright (C) 1994, 1997, 2003, 2004, 2006, 2007 Free Software | ||
4 | Foundation, Inc. This file is part of the GNU C Library. | ||
5 | |||
6 | This program is free software; you can redistribute it and/or modify | ||
7 | it under the terms of the GNU General Public License as published by | ||
8 | the Free Software Foundation; either version 3, or (at your option) | ||
9 | any later version. | ||
10 | |||
11 | This program is distributed in the hope that it will be useful, | ||
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
14 | GNU General Public License for more details. | ||
15 | |||
16 | You should have received a copy of the GNU General Public License | ||
17 | along with this program; if not, write to the Free Software Foundation, | ||
18 | Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ | ||
19 | |||
20 | #ifndef _LIBC | ||
21 | # include <config.h> | ||
22 | #endif | ||
23 | |||
24 | #include <time.h> | ||
25 | |||
26 | #ifndef _LIBC | ||
27 | # undef __gmtime_r | ||
28 | # define __gmtime_r gmtime_r | ||
29 | # define __mktime_internal mktime_internal | ||
30 | time_t __mktime_internal (struct tm *, | ||
31 | struct tm * (*) (time_t const *, struct tm *), | ||
32 | time_t *); | ||
33 | #endif | ||
34 | |||
35 | time_t | ||
36 | timegm (struct tm *tmp) | ||
37 | { | ||
38 | static time_t gmtime_offset; | ||
39 | tmp->tm_isdst = 0; | ||
40 | return __mktime_internal (tmp, __gmtime_r, &gmtime_offset); | ||
41 | } | ||