summaryrefslogtreecommitdiffstats
path: root/gl
diff options
context:
space:
mode:
Diffstat (limited to 'gl')
-rw-r--r--gl/Makefile.am56
-rw-r--r--gl/m4/gnulib-cache.m43
-rw-r--r--gl/m4/gnulib-comp.m412
-rw-r--r--gl/m4/mktime.m4224
-rw-r--r--gl/m4/time_h.m474
-rw-r--r--gl/m4/time_r.m443
-rw-r--r--gl/m4/timegm.m440
-rw-r--r--gl/mktime.c665
-rw-r--r--gl/time.in.h118
-rw-r--r--gl/time_r.c47
-rw-r--r--gl/timegm.c41
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
14AUTOMAKE_OPTIONS = 1.5 gnits 14AUTOMAKE_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
595EXTRA_DIST += mktime.c
596
597EXTRA_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
1070BUILT_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.
1074time.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 $@
1089MOSTLYCLEANFILES += time.h time.h-t
1090
1091EXTRA_DIST += time.in.h
1092
1093## end gnulib module time
1094
1095## begin gnulib module time_r
1096
1097
1098EXTRA_DIST += time_r.c
1099
1100EXTRA_libgnu_a_SOURCES += time_r.c
1101
1102## end gnulib module time_r
1103
1104## begin gnulib module timegm
1105
1106
1107EXTRA_DIST += timegm.c
1108
1109EXTRA_libgnu_a_SOURCES += timegm.c
1110
1111## end gnulib module timegm
1112
1059## begin gnulib module unistd 1113## begin gnulib module unistd
1060 1114
1061BUILT_SOURCES += unistd.h 1115BUILT_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:
21gl_LOCAL_DIR([]) 21gl_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
2dnl Copyright (C) 2002-2003, 2005-2007, 2009 Free Software Foundation, Inc.
3dnl This file is free software; the Free Software Foundation
4dnl gives unlimited permission to copy and/or distribute it,
5dnl with or without modifications, as long as this notice is preserved.
6
7dnl 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# --------------
15AC_DEFUN([AC_FUNC_MKTIME],
16[AC_CHECK_HEADERS_ONCE([unistd.h])
17AC_CHECK_FUNCS_ONCE([alarm])
18AC_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
36static time_t time_t_max;
37static time_t time_t_min;
38
39/* Values we'll use to set the TZ environment variable. */
40static 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. */
48static int
49spring_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
70static int
71mktime_test1 (time_t now)
72{
73 struct tm *lt;
74 return ! (lt = localtime (&now)) || mktime (lt) == now;
75}
76
77static int
78mktime_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
85static int
86irix_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
101static int
102bigtime_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
127static int
128year_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
157int
158main ()
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])])
204if test $ac_cv_func_working_mktime = no; then
205 AC_LIBOBJ([mktime])
206fi
207])# AC_FUNC_MKTIME
208
209AC_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.
221AC_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
12AC_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
19AC_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
27AC_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
38dnl Define HAVE_STRUCT_TIMESPEC if `struct timespec' is declared
39dnl in time.h or sys/time.h.
40
41AC_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 @@
1dnl Reentrant time functions like localtime_r.
2
3dnl Copyright (C) 2003, 2006, 2007, 2008 Free Software Foundation, Inc.
4dnl This file is free software; the Free Software Foundation
5dnl gives unlimited permission to copy and/or distribute it,
6dnl with or without modifications, as long as this notice is preserved.
7
8dnl Written by Paul Eggert.
9
10AC_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.
41AC_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
2dnl Copyright (C) 2003, 2007, 2009 Free Software Foundation, Inc.
3dnl This file is free software; the Free Software Foundation
4dnl gives unlimited permission to copy and/or distribute it,
5dnl with or without modifications, as long as this notice is preserved.
6
7AC_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.
28AC_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
107verify (time_t_is_integer, TYPE_IS_INTEGER (time_t));
108verify (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
115verify (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. */
118static inline int
119leapyear (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
131static
132#endif
133const 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
163static inline time_t
164ydhms_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. */
199static time_t
200guess_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. */
226static struct tm *
227ranged_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. */
271time_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. */
502static time_t localtime_offset;
503
504/* Convert *TP to a time_t value. */
505time_t
506mktime (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
519weak_alias (mktime, timelocal)
520#endif
521
522#ifdef _LIBC
523libc_hidden_def (mktime)
524libc_hidden_weak (timelocal)
525#endif
526
527#if DEBUG
528
529static int
530not_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
542static void
543print_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
554static int
555check_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
570int
571main (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/*
662Local Variables:
663compile-command: "gcc -DDEBUG -Wall -W -O -g mktime.c -o mktime"
664End:
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
41extern "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
53struct 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
66int 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
77struct tm *localtime_r (time_t const *restrict __timer,
78 struct tm *restrict __result);
79struct 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
89char *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
97time_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
27static struct tm *
28copy_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
37struct tm *
38gmtime_r (time_t const * restrict t, struct tm * restrict tp)
39{
40 return copy_tm_result (tp, gmtime (t));
41}
42
43struct tm *
44localtime_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
30time_t __mktime_internal (struct tm *,
31 struct tm * (*) (time_t const *, struct tm *),
32 time_t *);
33#endif
34
35time_t
36timegm (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}