Home | History | Annotate | Line # | Download | only in time
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