1 /* Time zone functions such as tzalloc and localtime_rz
3 Copyright 2015-2016 Free Software Foundation, Inc.
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 2, or (at your option)
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.
15 You should have received a copy of the GNU General Public License along
16 with this program; if not, see <http://www.gnu.org/licenses/>. */
18 /* Written by Paul Eggert. */
20 /* Although this module is not thread-safe, any races should be fairly
21 rare and reasonably benign. For complete thread-safety, use a C
22 library with a working timezone_t type, so that this module is not
36 #include "flexmember.h"
37 #include "time-internal.h"
40 # define SIZE_MAX ((size_t) -1)
44 static void tzset (void) { }
47 /* The approximate size to use for small allocation requests. This is
48 the largest "small" request for the GNU C library malloc. */
49 enum { DEFAULT_MXFAST = 64 * sizeof (size_t) / 4 };
51 /* Minimum size of the ABBRS member of struct tm_zone. ABBRS is larger
52 only in the unlikely case where an abbreviation longer than this is
54 enum { ABBR_SIZE_MIN = DEFAULT_MXFAST - offsetof (struct tm_zone, abbrs) };
56 /* Magic cookie timezone_t value, for local time. It differs from
57 NULL and from all other timezone_t values. Only the address
58 matters; the pointer is never dereferenced. */
59 static timezone_t const local_tz = (timezone_t) 1;
61 #if HAVE_TM_ZONE || HAVE_TZNAME
63 /* Return true if the values A and B differ according to the rules for
64 tm_isdst: A and B differ if one is zero and the other positive. */
66 isdst_differ (int a, int b)
68 return !a != !b && 0 <= a && 0 <= b;
71 /* Return true if A and B are equal. */
73 equal_tm (const struct tm *a, const struct tm *b)
75 return ! ((a->tm_sec ^ b->tm_sec)
76 | (a->tm_min ^ b->tm_min)
77 | (a->tm_hour ^ b->tm_hour)
78 | (a->tm_mday ^ b->tm_mday)
79 | (a->tm_mon ^ b->tm_mon)
80 | (a->tm_year ^ b->tm_year)
81 | isdst_differ (a->tm_isdst, b->tm_isdst));
86 /* Copy to ABBRS the abbreviation at ABBR with size ABBR_SIZE (this
87 includes its trailing null byte). Append an extra null byte to
88 mark the end of ABBRS. */
90 extend_abbrs (char *abbrs, char const *abbr, size_t abbr_size)
92 memcpy (abbrs, abbr, abbr_size);
93 abbrs[abbr_size] = '\0';
96 /* Return a newly allocated time zone for NAME, or NULL on failure.
97 A null NAME stands for wall clock time (which is like unset TZ). */
99 tzalloc (char const *name)
101 size_t name_size = name ? strlen (name) + 1 : 0;
102 size_t abbr_size = name_size < ABBR_SIZE_MIN ? ABBR_SIZE_MIN : name_size + 1;
103 timezone_t tz = malloc (FLEXSIZEOF (struct tm_zone, abbrs, abbr_size));
107 #if HAVE_TZNAME && !HAVE_TM_ZONE
108 tz->tzname_copy[0] = tz->tzname_copy[1] = NULL;
110 tz->tz_is_set = !!name;
113 extend_abbrs (tz->abbrs, name, name_size);
118 /* Save into TZ any nontrivial time zone abbreviation used by TM, and
119 update *TM (if HAVE_TM_ZONE) or *TZ (if !HAVE_TM_ZONE &&
120 HAVE_TZNAME) if they use the abbreviation. Return true if
121 successful, false (setting errno) otherwise. */
123 save_abbr (timezone_t tz, struct tm *tm)
125 #if HAVE_TM_ZONE || HAVE_TZNAME
126 char const *zone = NULL;
127 char *zone_copy = (char *) "";
130 int tzname_index = -1;
138 if (! (zone && *zone) && 0 <= tm->tm_isdst)
140 tzname_index = tm->tm_isdst != 0;
141 zone = tzname[tzname_index];
145 /* No need to replace null zones, or zones within the struct tm. */
146 if (!zone || ((char *) tm <= zone && zone < (char *) (tm + 1)))
151 zone_copy = tz->abbrs;
153 while (strcmp (zone_copy, zone) != 0)
155 if (! (*zone_copy || (zone_copy == tz->abbrs && tz->tz_is_set)))
157 size_t zone_size = strlen (zone) + 1;
158 size_t zone_used = zone_copy - tz->abbrs;
159 if (SIZE_MAX - zone_used < zone_size)
164 if (zone_used + zone_size < ABBR_SIZE_MIN)
165 extend_abbrs (zone_copy, zone, zone_size);
168 tz = tz->next = tzalloc (zone);
172 zone_copy = tz->abbrs;
177 zone_copy += strlen (zone_copy) + 1;
178 if (!*zone_copy && tz->next)
181 zone_copy = tz->abbrs;
186 /* Replace the zone name so that its lifetime matches that of TZ. */
188 tm->tm_zone = zone_copy;
190 if (0 <= tzname_index)
191 tz->tzname_copy[tzname_index] = zone_copy;
198 /* Free a time zone. */
200 tzfree (timezone_t tz)
205 timezone_t next = tz->next;
211 /* Get and set the TZ environment variable. These functions can be
212 overridden by programs like Emacs that manage their own environment. */
218 return getenv ("TZ");
224 setenv_TZ (char const *tz)
226 return tz ? setenv ("TZ", tz, 1) : unsetenv ("TZ");
230 /* Change the environment to match the specified timezone_t value.
231 Return true if successful, false (setting errno) otherwise. */
233 change_env (timezone_t tz)
235 if (setenv_TZ (tz->tz_is_set ? tz->abbrs : NULL) != 0)
241 /* Temporarily set the time zone to TZ, which must not be null.
242 Return LOCAL_TZ if the time zone setting is already correct.
243 Otherwise return a newly allocated time zone representing the old
244 setting, or NULL (setting errno) on failure. */
246 set_tz (timezone_t tz)
248 char *env_tz = getenv_TZ ();
250 ? tz->tz_is_set && strcmp (tz->abbrs, env_tz) == 0
255 timezone_t old_tz = tzalloc (env_tz);
258 if (! change_env (tz))
260 int saved_errno = errno;
269 /* Restore an old setting returned by set_tz. It must not be null.
270 Return true (preserving errno) if successful, false (setting errno)
273 revert_tz (timezone_t tz)
279 int saved_errno = errno;
280 bool ok = change_env (tz);
289 /* Use time zone TZ to compute localtime_r (T, TM). */
291 localtime_rz (timezone_t tz, time_t const *t, struct tm *tm)
294 return gmtime_r (t, tm);
297 timezone_t old_tz = set_tz (tz);
300 bool abbr_saved = localtime_r (t, tm) && save_abbr (tz, tm);
301 if (revert_tz (old_tz) && abbr_saved)
308 /* Use time zone TZ to compute mktime (TM). */
310 mktime_z (timezone_t tz, struct tm *tm)
316 timezone_t old_tz = set_tz (tz);
319 time_t t = mktime (tm);
320 #if HAVE_TM_ZONE || HAVE_TZNAME
324 || (localtime_r (&t, &tm_1) && equal_tm (tm, &tm_1)))
325 && !save_abbr (tz, tm))
328 if (revert_tz (old_tz))