zdump.c revision 1.25.2.4 1 1.25.2.3 tls /* $NetBSD: zdump.c,v 1.25.2.4 2014/08/20 00:02:16 tls Exp $ */
2 1.17 mlelstv /*
3 1.17 mlelstv ** This file is in the public domain, so clarified as of
4 1.17 mlelstv ** 2009-05-17 by Arthur David Olson.
5 1.17 mlelstv */
6 1.2 jtc
7 1.6 christos #include <sys/cdefs.h>
8 1.1 jtc #ifndef lint
9 1.25.2.3 tls __RCSID("$NetBSD: zdump.c,v 1.25.2.4 2014/08/20 00:02:16 tls Exp $");
10 1.1 jtc #endif /* !defined lint */
11 1.1 jtc
12 1.25 christos #include "version.h"
13 1.1 jtc /*
14 1.1 jtc ** This code has been made independent of the rest of the time
15 1.1 jtc ** conversion package to increase confidence in the verification it provides.
16 1.1 jtc ** You can use this code to help in verifying other implementations.
17 1.25.2.4 tls **
18 1.25.2.4 tls ** However, include private.h when debugging, so that it overrides
19 1.25.2.4 tls ** time_t consistently with the rest of the package.
20 1.1 jtc */
21 1.1 jtc
22 1.25.2.4 tls #include "private.h"
23 1.25.2.4 tls
24 1.15 christos #include "stdio.h" /* for stdout, stderr */
25 1.1 jtc #include "string.h" /* for strcpy */
26 1.1 jtc #include "sys/types.h" /* for time_t */
27 1.1 jtc #include "time.h" /* for struct tm */
28 1.1 jtc #include "stdlib.h" /* for exit, malloc, atoi */
29 1.15 christos #include <err.h>
30 1.17 mlelstv #include "ctype.h" /* for isalpha et al. */
31 1.17 mlelstv #ifndef isascii
32 1.17 mlelstv #define isascii(x) 1
33 1.17 mlelstv #endif /* !defined isascii */
34 1.17 mlelstv
35 1.25.2.4 tls /*
36 1.25.2.4 tls ** Substitutes for pre-C99 compilers.
37 1.25.2.4 tls ** Much of this section of code is stolen from private.h.
38 1.25.2.4 tls */
39 1.25.2.4 tls
40 1.25.2.4 tls #ifndef HAVE_STDINT_H
41 1.25.2.4 tls # define HAVE_STDINT_H \
42 1.25.2.4 tls (199901 <= __STDC_VERSION__ \
43 1.25.2.4 tls || 2 < __GLIBC__ + (1 <= __GLIBC_MINOR__) \
44 1.25.2.4 tls || __CYGWIN__)
45 1.25.2.4 tls #endif
46 1.25.2.4 tls #if HAVE_STDINT_H
47 1.25.2.4 tls # include "stdint.h"
48 1.25.2.4 tls #endif
49 1.25.2.4 tls #ifndef HAVE_INTTYPES_H
50 1.25.2.4 tls # define HAVE_INTTYPES_H HAVE_STDINT_H
51 1.25.2.4 tls #endif
52 1.25.2.4 tls #if HAVE_INTTYPES_H
53 1.25.2.4 tls # include <inttypes.h>
54 1.25.2.4 tls #endif
55 1.25.2.4 tls
56 1.25.2.4 tls #ifndef INT_FAST32_MAX
57 1.25.2.4 tls # if INT_MAX >> 31 == 0
58 1.25.2.4 tls typedef long int_fast32_t;
59 1.25.2.4 tls # else
60 1.25.2.4 tls typedef int int_fast32_t;
61 1.25.2.4 tls # endif
62 1.25.2.4 tls #endif
63 1.25.2.4 tls
64 1.25.2.4 tls #ifndef INTMAX_MAX
65 1.25.2.4 tls # if defined LLONG_MAX || defined __LONG_LONG_MAX__
66 1.25.2.4 tls typedef long long intmax_t;
67 1.25.2.4 tls # define strtoimax strtoll
68 1.25.2.4 tls # define PRIdMAX "lld"
69 1.25.2.4 tls # ifdef LLONG_MAX
70 1.25.2.4 tls # define INTMAX_MAX LLONG_MAX
71 1.25.2.4 tls # else
72 1.25.2.4 tls # define INTMAX_MAX __LONG_LONG_MAX__
73 1.25.2.4 tls # endif
74 1.25.2.4 tls # else
75 1.25.2.4 tls typedef long intmax_t;
76 1.25.2.4 tls # define strtoimax strtol
77 1.25.2.4 tls # define PRIdMAX "ld"
78 1.25.2.4 tls # define INTMAX_MAX LONG_MAX
79 1.25.2.4 tls # endif
80 1.25.2.4 tls #endif
81 1.25.2.4 tls
82 1.25.2.2 tls
83 1.17 mlelstv #ifndef ZDUMP_LO_YEAR
84 1.17 mlelstv #define ZDUMP_LO_YEAR (-500)
85 1.17 mlelstv #endif /* !defined ZDUMP_LO_YEAR */
86 1.17 mlelstv
87 1.17 mlelstv #ifndef ZDUMP_HI_YEAR
88 1.17 mlelstv #define ZDUMP_HI_YEAR 2500
89 1.17 mlelstv #endif /* !defined ZDUMP_HI_YEAR */
90 1.1 jtc
91 1.1 jtc #ifndef MAX_STRING_LENGTH
92 1.1 jtc #define MAX_STRING_LENGTH 1024
93 1.1 jtc #endif /* !defined MAX_STRING_LENGTH */
94 1.1 jtc
95 1.1 jtc #ifndef TRUE
96 1.1 jtc #define TRUE 1
97 1.1 jtc #endif /* !defined TRUE */
98 1.1 jtc
99 1.1 jtc #ifndef FALSE
100 1.1 jtc #define FALSE 0
101 1.1 jtc #endif /* !defined FALSE */
102 1.1 jtc
103 1.1 jtc #ifndef EXIT_SUCCESS
104 1.1 jtc #define EXIT_SUCCESS 0
105 1.1 jtc #endif /* !defined EXIT_SUCCESS */
106 1.1 jtc
107 1.1 jtc #ifndef EXIT_FAILURE
108 1.1 jtc #define EXIT_FAILURE 1
109 1.1 jtc #endif /* !defined EXIT_FAILURE */
110 1.1 jtc
111 1.1 jtc #ifndef SECSPERMIN
112 1.1 jtc #define SECSPERMIN 60
113 1.1 jtc #endif /* !defined SECSPERMIN */
114 1.1 jtc
115 1.1 jtc #ifndef MINSPERHOUR
116 1.1 jtc #define MINSPERHOUR 60
117 1.1 jtc #endif /* !defined MINSPERHOUR */
118 1.1 jtc
119 1.1 jtc #ifndef SECSPERHOUR
120 1.1 jtc #define SECSPERHOUR (SECSPERMIN * MINSPERHOUR)
121 1.1 jtc #endif /* !defined SECSPERHOUR */
122 1.1 jtc
123 1.1 jtc #ifndef HOURSPERDAY
124 1.1 jtc #define HOURSPERDAY 24
125 1.1 jtc #endif /* !defined HOURSPERDAY */
126 1.1 jtc
127 1.1 jtc #ifndef EPOCH_YEAR
128 1.1 jtc #define EPOCH_YEAR 1970
129 1.1 jtc #endif /* !defined EPOCH_YEAR */
130 1.1 jtc
131 1.1 jtc #ifndef TM_YEAR_BASE
132 1.1 jtc #define TM_YEAR_BASE 1900
133 1.1 jtc #endif /* !defined TM_YEAR_BASE */
134 1.1 jtc
135 1.1 jtc #ifndef DAYSPERNYEAR
136 1.1 jtc #define DAYSPERNYEAR 365
137 1.1 jtc #endif /* !defined DAYSPERNYEAR */
138 1.1 jtc
139 1.1 jtc #ifndef isleap
140 1.17 mlelstv #define isleap(y) (((y) % 4) == 0 && (((y) % 100) != 0 || ((y) % 400) == 0))
141 1.1 jtc #endif /* !defined isleap */
142 1.1 jtc
143 1.17 mlelstv #ifndef isleap_sum
144 1.17 mlelstv /*
145 1.17 mlelstv ** See tzfile.h for details on isleap_sum.
146 1.17 mlelstv */
147 1.17 mlelstv #define isleap_sum(a, b) isleap((a) % 400 + (b) % 400)
148 1.17 mlelstv #endif /* !defined isleap_sum */
149 1.17 mlelstv
150 1.25.2.4 tls #define SECSPERDAY ((int_fast32_t) SECSPERHOUR * HOURSPERDAY)
151 1.17 mlelstv #define SECSPERNYEAR (SECSPERDAY * DAYSPERNYEAR)
152 1.17 mlelstv #define SECSPERLYEAR (SECSPERNYEAR + SECSPERDAY)
153 1.25.2.4 tls #define SECSPER400YEARS (SECSPERNYEAR * (intmax_t) (300 + 3) \
154 1.25.2.4 tls + SECSPERLYEAR * (intmax_t) (100 - 3))
155 1.25.2.4 tls
156 1.25.2.4 tls /*
157 1.25.2.4 tls ** True if SECSPER400YEARS is known to be representable as an
158 1.25.2.4 tls ** intmax_t. It's OK that SECSPER400YEARS_FITS can in theory be false
159 1.25.2.4 tls ** even if SECSPER400YEARS is representable, because when that happens
160 1.25.2.4 tls ** the code merely runs a bit more slowly, and this slowness doesn't
161 1.25.2.4 tls ** occur on any practical platform.
162 1.25.2.4 tls */
163 1.25.2.4 tls enum { SECSPER400YEARS_FITS = SECSPERLYEAR <= INTMAX_MAX / 400 };
164 1.17 mlelstv
165 1.17 mlelstv #ifndef HAVE_GETTEXT
166 1.17 mlelstv #define HAVE_GETTEXT 0
167 1.17 mlelstv #endif
168 1.17 mlelstv #if HAVE_GETTEXT
169 1.3 jtc #include "locale.h" /* for setlocale */
170 1.3 jtc #include "libintl.h"
171 1.17 mlelstv #endif /* HAVE_GETTEXT */
172 1.3 jtc
173 1.1 jtc #ifndef GNUC_or_lint
174 1.1 jtc #ifdef lint
175 1.1 jtc #define GNUC_or_lint
176 1.17 mlelstv #else /* !defined lint */
177 1.1 jtc #ifdef __GNUC__
178 1.1 jtc #define GNUC_or_lint
179 1.1 jtc #endif /* defined __GNUC__ */
180 1.1 jtc #endif /* !defined lint */
181 1.1 jtc #endif /* !defined GNUC_or_lint */
182 1.1 jtc
183 1.25.2.4 tls #ifndef ATTRIBUTE_PURE
184 1.25.2.1 tls #if 2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__)
185 1.25.2.4 tls # define ATTRIBUTE_PURE __attribute__ ((ATTRIBUTE_PURE__))
186 1.25.2.1 tls #else
187 1.25.2.4 tls # define ATTRIBUTE_PURE /* empty */
188 1.25.2.1 tls #endif
189 1.25.2.1 tls #endif
190 1.25.2.1 tls
191 1.1 jtc #ifndef INITIALIZE
192 1.1 jtc #ifdef GNUC_or_lint
193 1.1 jtc #define INITIALIZE(x) ((x) = 0)
194 1.17 mlelstv #else /* !defined GNUC_or_lint */
195 1.1 jtc #define INITIALIZE(x)
196 1.1 jtc #endif /* !defined GNUC_or_lint */
197 1.1 jtc #endif /* !defined INITIALIZE */
198 1.1 jtc
199 1.3 jtc /*
200 1.3 jtc ** For the benefit of GNU folk...
201 1.3 jtc ** `_(MSGID)' uses the current locale's message library string for MSGID.
202 1.3 jtc ** The default is to use gettext if available, and use MSGID otherwise.
203 1.3 jtc */
204 1.3 jtc
205 1.3 jtc #ifndef _
206 1.17 mlelstv #if HAVE_GETTEXT
207 1.3 jtc #define _(msgid) gettext(msgid)
208 1.17 mlelstv #else /* !HAVE_GETTEXT */
209 1.21 christos #define _(msgid) msgid
210 1.17 mlelstv #endif /* !HAVE_GETTEXT */
211 1.3 jtc #endif /* !defined _ */
212 1.3 jtc
213 1.3 jtc #ifndef TZ_DOMAIN
214 1.3 jtc #define TZ_DOMAIN "tz"
215 1.3 jtc #endif /* !defined TZ_DOMAIN */
216 1.3 jtc
217 1.1 jtc extern char ** environ;
218 1.17 mlelstv extern int getopt(int argc, char * const argv[],
219 1.17 mlelstv const char * options);
220 1.1 jtc extern char * optarg;
221 1.1 jtc extern int optind;
222 1.1 jtc
223 1.25.2.4 tls /* The minimum and maximum finite time values. */
224 1.25.2.4 tls static time_t absolute_min_time =
225 1.25.2.4 tls ((time_t) -1 < 0
226 1.25.2.4 tls ? (time_t) -1 << (CHAR_BIT * sizeof (time_t) - 1)
227 1.25.2.4 tls : 0);
228 1.25.2.4 tls static time_t absolute_max_time =
229 1.25.2.4 tls ((time_t) -1 < 0
230 1.25.2.4 tls ? - (~ 0 < 0) - ((time_t) -1 << (CHAR_BIT * sizeof (time_t) - 1))
231 1.25.2.4 tls : -1);
232 1.5 jtc static size_t longest;
233 1.1 jtc static char * progname;
234 1.17 mlelstv static int warned;
235 1.17 mlelstv
236 1.17 mlelstv static const char * abbr(struct tm * tmp);
237 1.17 mlelstv static void abbrok(const char * abbrp, const char * zone);
238 1.25.2.4 tls static intmax_t delta(struct tm * newp, struct tm * oldp) ATTRIBUTE_PURE;
239 1.17 mlelstv static void dumptime(const struct tm * tmp);
240 1.17 mlelstv static time_t hunt(char * name, time_t lot, time_t hit);
241 1.17 mlelstv static void show(char * zone, time_t t, int v);
242 1.17 mlelstv static const char * tformat(void);
243 1.25.2.4 tls static time_t yeartot(long y) ATTRIBUTE_PURE;
244 1.17 mlelstv
245 1.17 mlelstv #ifndef TYPECHECK
246 1.17 mlelstv #define my_localtime localtime
247 1.17 mlelstv #else /* !defined TYPECHECK */
248 1.17 mlelstv static struct tm *
249 1.25.2.1 tls my_localtime(time_t *tp)
250 1.17 mlelstv {
251 1.25.2.1 tls struct tm *tmp;
252 1.17 mlelstv
253 1.17 mlelstv tmp = localtime(tp);
254 1.17 mlelstv if (tp != NULL && tmp != NULL) {
255 1.17 mlelstv struct tm tm;
256 1.25.2.1 tls time_t t;
257 1.17 mlelstv
258 1.17 mlelstv tm = *tmp;
259 1.17 mlelstv t = mktime(&tm);
260 1.25.2.4 tls if (t != *tp) {
261 1.17 mlelstv (void) fflush(stdout);
262 1.17 mlelstv (void) fprintf(stderr, "\n%s: ", progname);
263 1.17 mlelstv (void) fprintf(stderr, tformat(), *tp);
264 1.17 mlelstv (void) fprintf(stderr, " ->");
265 1.17 mlelstv (void) fprintf(stderr, " year=%d", tmp->tm_year);
266 1.17 mlelstv (void) fprintf(stderr, " mon=%d", tmp->tm_mon);
267 1.17 mlelstv (void) fprintf(stderr, " mday=%d", tmp->tm_mday);
268 1.17 mlelstv (void) fprintf(stderr, " hour=%d", tmp->tm_hour);
269 1.17 mlelstv (void) fprintf(stderr, " min=%d", tmp->tm_min);
270 1.17 mlelstv (void) fprintf(stderr, " sec=%d", tmp->tm_sec);
271 1.17 mlelstv (void) fprintf(stderr, " isdst=%d", tmp->tm_isdst);
272 1.17 mlelstv (void) fprintf(stderr, " -> ");
273 1.17 mlelstv (void) fprintf(stderr, tformat(), t);
274 1.17 mlelstv (void) fprintf(stderr, "\n");
275 1.17 mlelstv }
276 1.17 mlelstv }
277 1.17 mlelstv return tmp;
278 1.17 mlelstv }
279 1.17 mlelstv #endif /* !defined TYPECHECK */
280 1.17 mlelstv
281 1.17 mlelstv static void
282 1.25.2.1 tls abbrok(const char *const abbrp, const char *const zone)
283 1.17 mlelstv {
284 1.25.2.1 tls const char *cp;
285 1.25.2.1 tls const char *wp;
286 1.17 mlelstv
287 1.17 mlelstv if (warned)
288 1.17 mlelstv return;
289 1.17 mlelstv cp = abbrp;
290 1.17 mlelstv wp = NULL;
291 1.17 mlelstv while (isascii((unsigned char) *cp) && isalpha((unsigned char) *cp))
292 1.17 mlelstv ++cp;
293 1.17 mlelstv if (cp - abbrp == 0)
294 1.17 mlelstv wp = _("lacks alphabetic at start");
295 1.17 mlelstv else if (cp - abbrp < 3)
296 1.17 mlelstv wp = _("has fewer than 3 alphabetics");
297 1.17 mlelstv else if (cp - abbrp > 6)
298 1.17 mlelstv wp = _("has more than 6 alphabetics");
299 1.17 mlelstv if (wp == NULL && (*cp == '+' || *cp == '-')) {
300 1.17 mlelstv ++cp;
301 1.17 mlelstv if (isascii((unsigned char) *cp) &&
302 1.17 mlelstv isdigit((unsigned char) *cp))
303 1.17 mlelstv if (*cp++ == '1' && *cp >= '0' && *cp <= '4')
304 1.17 mlelstv ++cp;
305 1.17 mlelstv if (*cp != '\0')
306 1.17 mlelstv wp = _("differs from POSIX standard");
307 1.17 mlelstv }
308 1.17 mlelstv if (wp == NULL)
309 1.17 mlelstv return;
310 1.17 mlelstv (void) fflush(stdout);
311 1.17 mlelstv (void) fprintf(stderr,
312 1.17 mlelstv _("%s: warning: zone \"%s\" abbreviation \"%s\" %s\n"),
313 1.17 mlelstv progname, zone, abbrp, wp);
314 1.17 mlelstv warned = TRUE;
315 1.17 mlelstv }
316 1.17 mlelstv
317 1.24 joerg __dead static void
318 1.25.2.1 tls usage(FILE *const stream, const int status)
319 1.17 mlelstv {
320 1.17 mlelstv (void) fprintf(stream,
321 1.25.2.4 tls _("%s: usage: %s [--version] [--help] [-{vV}] [-{ct} [lo,]hi] zonename ...\n"
322 1.25.2.4 tls "\n"
323 1.25.2.4 tls "Report bugs to %s.\n"),
324 1.25.2.3 tls progname, progname, REPORT_BUGS_TO);
325 1.17 mlelstv exit(status);
326 1.17 mlelstv }
327 1.1 jtc
328 1.1 jtc int
329 1.25.2.1 tls main(int argc, char *argv[])
330 1.25.2.1 tls {
331 1.25.2.1 tls int i;
332 1.25.2.1 tls int vflag;
333 1.25.2.4 tls int Vflag;
334 1.25.2.1 tls char * cutarg;
335 1.25.2.4 tls char * cuttimes;
336 1.25.2.1 tls time_t cutlotime;
337 1.25.2.1 tls time_t cuthitime;
338 1.25.2.1 tls char ** fakeenv;
339 1.25.2.1 tls time_t now;
340 1.25.2.1 tls time_t t;
341 1.25.2.1 tls time_t newt;
342 1.25.2.1 tls struct tm tm;
343 1.25.2.1 tls struct tm newtm;
344 1.25.2.1 tls struct tm * tmp;
345 1.25.2.1 tls struct tm * newtmp;
346 1.1 jtc
347 1.25.2.4 tls cutlotime = absolute_min_time;
348 1.25.2.4 tls cuthitime = absolute_max_time;
349 1.17 mlelstv #if HAVE_GETTEXT
350 1.17 mlelstv (void) setlocale(LC_ALL, "");
351 1.3 jtc #ifdef TZ_DOMAINDIR
352 1.3 jtc (void) bindtextdomain(TZ_DOMAIN, TZ_DOMAINDIR);
353 1.17 mlelstv #endif /* defined TEXTDOMAINDIR */
354 1.3 jtc (void) textdomain(TZ_DOMAIN);
355 1.17 mlelstv #endif /* HAVE_GETTEXT */
356 1.1 jtc progname = argv[0];
357 1.14 kleink for (i = 1; i < argc; ++i)
358 1.14 kleink if (strcmp(argv[i], "--version") == 0) {
359 1.25.2.3 tls (void) printf("zdump %s%s\n", PKGVERSION, TZVERSION);
360 1.17 mlelstv exit(EXIT_SUCCESS);
361 1.17 mlelstv } else if (strcmp(argv[i], "--help") == 0) {
362 1.22 christos usage(stdout, EXIT_SUCCESS);
363 1.14 kleink }
364 1.25.2.4 tls vflag = Vflag = 0;
365 1.25.2.4 tls cutarg = cuttimes = NULL;
366 1.25.2.4 tls for (;;)
367 1.25.2.4 tls switch (getopt(argc, argv, "c:t:vV")) {
368 1.25.2.4 tls case 'c': cutarg = optarg; break;
369 1.25.2.4 tls case 't': cuttimes = optarg; break;
370 1.25.2.4 tls case 'v': vflag = 1; break;
371 1.25.2.4 tls case 'V': Vflag = 1; break;
372 1.25.2.4 tls case -1:
373 1.25.2.4 tls if (! (optind == argc - 1 && strcmp(argv[optind], "=") == 0))
374 1.25.2.4 tls goto arg_processing_done;
375 1.25.2.4 tls /* Fall through. */
376 1.25.2.4 tls default:
377 1.25.2.4 tls usage(stderr, EXIT_FAILURE);
378 1.25.2.4 tls }
379 1.25.2.4 tls arg_processing_done:;
380 1.25.2.4 tls
381 1.25.2.4 tls if (vflag | Vflag) {
382 1.25.2.4 tls intmax_t lo;
383 1.25.2.4 tls intmax_t hi;
384 1.25.2.4 tls char *loend, *hiend;
385 1.25.2.4 tls intmax_t cutloyear = ZDUMP_LO_YEAR;
386 1.25.2.4 tls intmax_t cuthiyear = ZDUMP_HI_YEAR;
387 1.17 mlelstv if (cutarg != NULL) {
388 1.25.2.4 tls lo = strtoimax(cutarg, &loend, 10);
389 1.25.2.4 tls if (cutarg != loend && !*loend) {
390 1.25.2.4 tls hi = lo;
391 1.25.2.4 tls cuthiyear = hi;
392 1.25.2.4 tls } else if (cutarg != loend && *loend == ','
393 1.25.2.4 tls && (hi = strtoimax(loend + 1, &hiend, 10),
394 1.25.2.4 tls loend + 1 != hiend && !*hiend)) {
395 1.25.2.4 tls cutloyear = lo;
396 1.17 mlelstv cuthiyear = hi;
397 1.17 mlelstv } else {
398 1.17 mlelstv (void) fprintf(stderr, _("%s: wild -c argument %s\n"),
399 1.17 mlelstv progname, cutarg);
400 1.17 mlelstv exit(EXIT_FAILURE);
401 1.17 mlelstv }
402 1.17 mlelstv }
403 1.25.2.4 tls if (cutarg != NULL || cuttimes == NULL) {
404 1.25.2.4 tls cutlotime = yeartot(cutloyear);
405 1.25.2.4 tls cuthitime = yeartot(cuthiyear);
406 1.25.2.4 tls }
407 1.25.2.4 tls if (cuttimes != NULL) {
408 1.25.2.4 tls lo = strtoimax(cuttimes, &loend, 10);
409 1.25.2.4 tls if (cuttimes != loend && !*loend) {
410 1.25.2.4 tls hi = lo;
411 1.25.2.4 tls if (hi < cuthitime) {
412 1.25.2.4 tls if (hi < absolute_min_time)
413 1.25.2.4 tls hi = absolute_min_time;
414 1.25.2.4 tls cuthitime = hi;
415 1.25.2.4 tls }
416 1.25.2.4 tls } else if (cuttimes != loend && *loend == ','
417 1.25.2.4 tls && (hi = strtoimax(loend + 1, &hiend, 10),
418 1.25.2.4 tls loend + 1 != hiend && !*hiend)) {
419 1.25.2.4 tls if (cutlotime < lo) {
420 1.25.2.4 tls if (absolute_max_time < lo)
421 1.25.2.4 tls lo = absolute_max_time;
422 1.25.2.4 tls cutlotime = lo;
423 1.25.2.4 tls }
424 1.25.2.4 tls if (hi < cuthitime) {
425 1.25.2.4 tls if (hi < absolute_min_time)
426 1.25.2.4 tls hi = absolute_min_time;
427 1.25.2.4 tls cuthitime = hi;
428 1.25.2.4 tls }
429 1.25.2.4 tls } else {
430 1.25.2.4 tls (void) fprintf(stderr,
431 1.25.2.4 tls _("%s: wild -t argument %s\n"),
432 1.25.2.4 tls progname, cuttimes);
433 1.25.2.4 tls exit(EXIT_FAILURE);
434 1.25.2.4 tls }
435 1.25.2.4 tls }
436 1.1 jtc }
437 1.1 jtc (void) time(&now);
438 1.1 jtc longest = 0;
439 1.1 jtc for (i = optind; i < argc; ++i)
440 1.1 jtc if (strlen(argv[i]) > longest)
441 1.1 jtc longest = strlen(argv[i]);
442 1.1 jtc {
443 1.25.2.1 tls int from;
444 1.25.2.1 tls int to;
445 1.1 jtc
446 1.17 mlelstv for (i = 0; environ[i] != NULL; ++i)
447 1.1 jtc continue;
448 1.25.2.1 tls fakeenv = malloc((i + 2) * sizeof *fakeenv);
449 1.1 jtc if (fakeenv == NULL ||
450 1.25.2.1 tls (fakeenv[0] = malloc(longest + 4)) == NULL) {
451 1.15 christos err(EXIT_FAILURE, "Can't allocated %zu bytes",
452 1.15 christos longest + 4);
453 1.1 jtc }
454 1.1 jtc to = 0;
455 1.4 mrg (void)strcpy(fakeenv[to++], "TZ="); /* XXX strcpy is safe */
456 1.1 jtc for (from = 0; environ[from] != NULL; ++from)
457 1.1 jtc if (strncmp(environ[from], "TZ=", 3) != 0)
458 1.1 jtc fakeenv[to++] = environ[from];
459 1.1 jtc fakeenv[to] = NULL;
460 1.1 jtc environ = fakeenv;
461 1.1 jtc }
462 1.1 jtc for (i = optind; i < argc; ++i) {
463 1.1 jtc static char buf[MAX_STRING_LENGTH];
464 1.1 jtc
465 1.4 mrg (void) strcpy(&fakeenv[0][3], argv[i]); /* XXX strcpy is safe */
466 1.25.2.4 tls if (! (vflag | Vflag)) {
467 1.3 jtc show(argv[i], now, FALSE);
468 1.1 jtc continue;
469 1.3 jtc }
470 1.17 mlelstv warned = FALSE;
471 1.17 mlelstv t = absolute_min_time;
472 1.25.2.4 tls if (!Vflag) {
473 1.25.2.4 tls show(argv[i], t, TRUE);
474 1.25.2.4 tls t += SECSPERDAY;
475 1.25.2.4 tls show(argv[i], t, TRUE);
476 1.25.2.4 tls }
477 1.17 mlelstv if (t < cutlotime)
478 1.17 mlelstv t = cutlotime;
479 1.17 mlelstv tmp = my_localtime(&t);
480 1.17 mlelstv if (tmp != NULL) {
481 1.17 mlelstv tm = *tmp;
482 1.17 mlelstv (void) strncpy(buf, abbr(&tm), (sizeof buf) - 1);
483 1.17 mlelstv }
484 1.1 jtc for ( ; ; ) {
485 1.25.2.4 tls newt = (t < absolute_max_time - SECSPERDAY / 2
486 1.25.2.4 tls ? t + SECSPERDAY / 2
487 1.25.2.4 tls : absolute_max_time);
488 1.25.2.4 tls if (cuthitime <= newt)
489 1.1 jtc break;
490 1.17 mlelstv newtmp = localtime(&newt);
491 1.17 mlelstv if (newtmp != NULL)
492 1.17 mlelstv newtm = *newtmp;
493 1.17 mlelstv if ((tmp == NULL || newtmp == NULL) ? (tmp != newtmp) :
494 1.17 mlelstv (delta(&newtm, &tm) != (newt - t) ||
495 1.1 jtc newtm.tm_isdst != tm.tm_isdst ||
496 1.17 mlelstv strcmp(abbr(&newtm), buf) != 0)) {
497 1.1 jtc newt = hunt(argv[i], t, newt);
498 1.17 mlelstv newtmp = localtime(&newt);
499 1.17 mlelstv if (newtmp != NULL) {
500 1.17 mlelstv newtm = *newtmp;
501 1.17 mlelstv (void) strncpy(buf,
502 1.17 mlelstv abbr(&newtm),
503 1.17 mlelstv (sizeof buf) - 1);
504 1.17 mlelstv }
505 1.1 jtc }
506 1.1 jtc t = newt;
507 1.1 jtc tm = newtm;
508 1.17 mlelstv tmp = newtmp;
509 1.1 jtc }
510 1.25.2.4 tls if (!Vflag) {
511 1.25.2.4 tls t = absolute_max_time;
512 1.25.2.4 tls t -= SECSPERDAY;
513 1.25.2.4 tls show(argv[i], t, TRUE);
514 1.25.2.4 tls t += SECSPERDAY;
515 1.25.2.4 tls show(argv[i], t, TRUE);
516 1.25.2.4 tls }
517 1.1 jtc }
518 1.1 jtc if (fflush(stdout) || ferror(stdout)) {
519 1.16 kleink err(EXIT_FAILURE, _("Error writing standard output"));
520 1.1 jtc }
521 1.1 jtc exit(EXIT_SUCCESS);
522 1.17 mlelstv /* If exit fails to exit... */
523 1.17 mlelstv return EXIT_FAILURE;
524 1.17 mlelstv }
525 1.1 jtc
526 1.20 christos static time_t
527 1.25.2.1 tls yeartot(const long y)
528 1.17 mlelstv {
529 1.25.2.4 tls intmax_t myy, seconds, years;
530 1.25.2.4 tls time_t t;
531 1.17 mlelstv
532 1.17 mlelstv myy = EPOCH_YEAR;
533 1.17 mlelstv t = 0;
534 1.25.2.4 tls while (myy < y) {
535 1.25.2.4 tls if (SECSPER400YEARS_FITS && 400 <= y - myy) {
536 1.25.2.4 tls intmax_t diff400 = (y - myy) / 400;
537 1.25.2.4 tls if (INTMAX_MAX / SECSPER400YEARS < diff400)
538 1.25.2.4 tls return absolute_max_time;
539 1.25.2.4 tls seconds = diff400 * SECSPER400YEARS;
540 1.25.2.4 tls years = diff400 * 400;
541 1.25.2.4 tls } else {
542 1.17 mlelstv seconds = isleap(myy) ? SECSPERLYEAR : SECSPERNYEAR;
543 1.25.2.4 tls years = 1;
544 1.25.2.4 tls }
545 1.25.2.4 tls myy += years;
546 1.25.2.4 tls if (t > absolute_max_time - seconds)
547 1.25.2.4 tls return absolute_max_time;
548 1.25.2.4 tls t += seconds;
549 1.25.2.4 tls }
550 1.25.2.4 tls while (y < myy) {
551 1.25.2.4 tls if (SECSPER400YEARS_FITS && y + 400 <= myy && myy < 0) {
552 1.25.2.4 tls intmax_t diff400 = (myy - y) / 400;
553 1.25.2.4 tls if (INTMAX_MAX / SECSPER400YEARS < diff400)
554 1.25.2.4 tls return absolute_min_time;
555 1.25.2.4 tls seconds = diff400 * SECSPER400YEARS;
556 1.25.2.4 tls years = diff400 * 400;
557 1.17 mlelstv } else {
558 1.25.2.4 tls seconds = isleap(myy - 1) ? SECSPERLYEAR : SECSPERNYEAR;
559 1.25.2.4 tls years = 1;
560 1.17 mlelstv }
561 1.25.2.4 tls myy -= years;
562 1.25.2.4 tls if (t < absolute_min_time + seconds)
563 1.25.2.4 tls return absolute_min_time;
564 1.25.2.4 tls t -= seconds;
565 1.17 mlelstv }
566 1.17 mlelstv return t;
567 1.17 mlelstv }
568 1.17 mlelstv
569 1.17 mlelstv static time_t
570 1.17 mlelstv hunt(char *name, time_t lot, time_t hit)
571 1.17 mlelstv {
572 1.17 mlelstv time_t t;
573 1.17 mlelstv struct tm lotm;
574 1.25.2.1 tls struct tm * lotmp;
575 1.17 mlelstv struct tm tm;
576 1.25.2.1 tls struct tm * tmp;
577 1.17 mlelstv char loab[MAX_STRING_LENGTH];
578 1.17 mlelstv
579 1.17 mlelstv lotmp = my_localtime(&lot);
580 1.17 mlelstv if (lotmp != NULL) {
581 1.17 mlelstv lotm = *lotmp;
582 1.17 mlelstv (void) strncpy(loab, abbr(&lotm), (sizeof loab) - 1);
583 1.17 mlelstv }
584 1.17 mlelstv for ( ; ; ) {
585 1.25.2.4 tls time_t diff = hit - lot;
586 1.17 mlelstv if (diff < 2)
587 1.17 mlelstv break;
588 1.17 mlelstv t = lot;
589 1.17 mlelstv t += diff / 2;
590 1.1 jtc if (t <= lot)
591 1.1 jtc ++t;
592 1.1 jtc else if (t >= hit)
593 1.1 jtc --t;
594 1.17 mlelstv tmp = my_localtime(&t);
595 1.17 mlelstv if (tmp != NULL)
596 1.17 mlelstv tm = *tmp;
597 1.17 mlelstv if ((lotmp == NULL || tmp == NULL) ? (lotmp == tmp) :
598 1.17 mlelstv (delta(&tm, &lotm) == (t - lot) &&
599 1.1 jtc tm.tm_isdst == lotm.tm_isdst &&
600 1.17 mlelstv strcmp(abbr(&tm), loab) == 0)) {
601 1.1 jtc lot = t;
602 1.1 jtc lotm = tm;
603 1.17 mlelstv lotmp = tmp;
604 1.1 jtc } else hit = t;
605 1.1 jtc }
606 1.1 jtc show(name, lot, TRUE);
607 1.1 jtc show(name, hit, TRUE);
608 1.1 jtc return hit;
609 1.1 jtc }
610 1.1 jtc
611 1.1 jtc /*
612 1.17 mlelstv ** Thanks to Paul Eggert for logic used in delta.
613 1.1 jtc */
614 1.1 jtc
615 1.25.2.4 tls static intmax_t
616 1.25.2.1 tls delta(struct tm *newp, struct tm *oldp)
617 1.1 jtc {
618 1.25.2.4 tls intmax_t result;
619 1.25.2.4 tls int tmy;
620 1.1 jtc
621 1.1 jtc if (newp->tm_year < oldp->tm_year)
622 1.1 jtc return -delta(oldp, newp);
623 1.1 jtc result = 0;
624 1.1 jtc for (tmy = oldp->tm_year; tmy < newp->tm_year; ++tmy)
625 1.17 mlelstv result += DAYSPERNYEAR + isleap_sum(tmy, TM_YEAR_BASE);
626 1.1 jtc result += newp->tm_yday - oldp->tm_yday;
627 1.1 jtc result *= HOURSPERDAY;
628 1.1 jtc result += newp->tm_hour - oldp->tm_hour;
629 1.1 jtc result *= MINSPERHOUR;
630 1.1 jtc result += newp->tm_min - oldp->tm_min;
631 1.1 jtc result *= SECSPERMIN;
632 1.1 jtc result += newp->tm_sec - oldp->tm_sec;
633 1.1 jtc return result;
634 1.1 jtc }
635 1.1 jtc
636 1.1 jtc static void
637 1.17 mlelstv show(char *zone, time_t t, int v)
638 1.1 jtc {
639 1.25.2.1 tls struct tm * tmp;
640 1.1 jtc
641 1.5 jtc (void) printf("%-*s ", (int) longest, zone);
642 1.1 jtc if (v) {
643 1.17 mlelstv tmp = gmtime(&t);
644 1.17 mlelstv if (tmp == NULL) {
645 1.17 mlelstv (void) printf(tformat(), t);
646 1.17 mlelstv } else {
647 1.17 mlelstv dumptime(tmp);
648 1.25.2.4 tls (void) printf(" UT");
649 1.17 mlelstv }
650 1.17 mlelstv (void) printf(" = ");
651 1.17 mlelstv }
652 1.17 mlelstv tmp = my_localtime(&t);
653 1.17 mlelstv dumptime(tmp);
654 1.17 mlelstv if (tmp != NULL) {
655 1.17 mlelstv if (*abbr(tmp) != '\0')
656 1.17 mlelstv (void) printf(" %s", abbr(tmp));
657 1.17 mlelstv if (v) {
658 1.17 mlelstv (void) printf(" isdst=%d", tmp->tm_isdst);
659 1.1 jtc #ifdef TM_GMTOFF
660 1.17 mlelstv (void) printf(" gmtoff=%ld", tmp->TM_GMTOFF);
661 1.1 jtc #endif /* defined TM_GMTOFF */
662 1.17 mlelstv }
663 1.1 jtc }
664 1.1 jtc (void) printf("\n");
665 1.17 mlelstv if (tmp != NULL && *abbr(tmp) != '\0')
666 1.17 mlelstv abbrok(abbr(tmp), zone);
667 1.1 jtc }
668 1.1 jtc
669 1.9 mycroft static const char *
670 1.25.2.1 tls abbr(struct tm *tmp)
671 1.1 jtc {
672 1.25.2.1 tls const char * result;
673 1.9 mycroft static const char nada;
674 1.1 jtc
675 1.1 jtc if (tmp->tm_isdst != 0 && tmp->tm_isdst != 1)
676 1.1 jtc return &nada;
677 1.1 jtc result = tzname[tmp->tm_isdst];
678 1.1 jtc return (result == NULL) ? &nada : result;
679 1.1 jtc }
680 1.17 mlelstv
681 1.17 mlelstv /*
682 1.17 mlelstv ** The code below can fail on certain theoretical systems;
683 1.17 mlelstv ** it works on all known real-world systems as of 2004-12-30.
684 1.17 mlelstv */
685 1.17 mlelstv
686 1.17 mlelstv static const char *
687 1.17 mlelstv tformat(void)
688 1.17 mlelstv {
689 1.17 mlelstv if (0 > (time_t) -1) { /* signed */
690 1.25.2.4 tls if (sizeof (time_t) == sizeof (intmax_t))
691 1.25.2.4 tls return "%"PRIdMAX;
692 1.17 mlelstv if (sizeof (time_t) > sizeof (long))
693 1.17 mlelstv return "%lld";
694 1.17 mlelstv if (sizeof (time_t) > sizeof (int))
695 1.17 mlelstv return "%ld";
696 1.17 mlelstv return "%d";
697 1.17 mlelstv }
698 1.25.2.4 tls #ifdef PRIuMAX
699 1.25.2.4 tls if (sizeof (time_t) == sizeof (uintmax_t))
700 1.25.2.4 tls return "%"PRIuMAX;
701 1.25.2.4 tls #endif
702 1.17 mlelstv if (sizeof (time_t) > sizeof (unsigned long))
703 1.17 mlelstv return "%llu";
704 1.17 mlelstv if (sizeof (time_t) > sizeof (unsigned int))
705 1.17 mlelstv return "%lu";
706 1.17 mlelstv return "%u";
707 1.17 mlelstv }
708 1.17 mlelstv
709 1.17 mlelstv static void
710 1.25.2.1 tls dumptime(const struct tm *timeptr)
711 1.17 mlelstv {
712 1.17 mlelstv static const char wday_name[][3] = {
713 1.17 mlelstv "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
714 1.17 mlelstv };
715 1.17 mlelstv static const char mon_name[][3] = {
716 1.17 mlelstv "Jan", "Feb", "Mar", "Apr", "May", "Jun",
717 1.17 mlelstv "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
718 1.17 mlelstv };
719 1.25.2.1 tls const char * wn;
720 1.25.2.1 tls const char * mn;
721 1.25.2.1 tls int lead;
722 1.25.2.1 tls int trail;
723 1.17 mlelstv
724 1.17 mlelstv if (timeptr == NULL) {
725 1.17 mlelstv (void) printf("NULL");
726 1.17 mlelstv return;
727 1.17 mlelstv }
728 1.17 mlelstv /*
729 1.17 mlelstv ** The packaged versions of localtime and gmtime never put out-of-range
730 1.17 mlelstv ** values in tm_wday or tm_mon, but since this code might be compiled
731 1.17 mlelstv ** with other (perhaps experimental) versions, paranoia is in order.
732 1.17 mlelstv */
733 1.17 mlelstv if (timeptr->tm_wday < 0 || timeptr->tm_wday >=
734 1.17 mlelstv (int) (sizeof wday_name / sizeof wday_name[0]))
735 1.17 mlelstv wn = "???";
736 1.17 mlelstv else wn = wday_name[timeptr->tm_wday];
737 1.17 mlelstv if (timeptr->tm_mon < 0 || timeptr->tm_mon >=
738 1.17 mlelstv (int) (sizeof mon_name / sizeof mon_name[0]))
739 1.17 mlelstv mn = "???";
740 1.17 mlelstv else mn = mon_name[timeptr->tm_mon];
741 1.17 mlelstv (void) printf("%.3s %.3s%3d %.2d:%.2d:%.2d ",
742 1.17 mlelstv wn, mn,
743 1.17 mlelstv timeptr->tm_mday, timeptr->tm_hour,
744 1.17 mlelstv timeptr->tm_min, timeptr->tm_sec);
745 1.17 mlelstv #define DIVISOR 10
746 1.17 mlelstv trail = timeptr->tm_year % DIVISOR + TM_YEAR_BASE % DIVISOR;
747 1.17 mlelstv lead = timeptr->tm_year / DIVISOR + TM_YEAR_BASE / DIVISOR +
748 1.17 mlelstv trail / DIVISOR;
749 1.17 mlelstv trail %= DIVISOR;
750 1.17 mlelstv if (trail < 0 && lead > 0) {
751 1.17 mlelstv trail += DIVISOR;
752 1.17 mlelstv --lead;
753 1.17 mlelstv } else if (lead < 0 && trail > 0) {
754 1.17 mlelstv trail -= DIVISOR;
755 1.17 mlelstv ++lead;
756 1.17 mlelstv }
757 1.17 mlelstv if (lead == 0)
758 1.17 mlelstv (void) printf("%d", trail);
759 1.17 mlelstv else (void) printf("%d%d", lead, ((trail < 0) ? -trail : trail));
760 1.17 mlelstv }
761