3 static char elsieid[] = "@(#)zdump.c 7.28";
4 #endif /* !defined NOID */
5 #endif /* !defined lint */
9 * $FreeBSD: src/usr.sbin/zic/zdump.c,v 1.7 1999/08/28 01:21:19 peter Exp $
10 * $DragonFly: src/usr.sbin/zic/zdump.c,v 1.4 2004/12/18 22:48:15 swildner Exp $
13 ** This code has been made independent of the rest of the time
14 ** conversion package to increase confidence in the verification it provides.
15 ** You can use this code to help in verifying other implementations.
19 #include <stdio.h> /* for stdout, stderr */
20 #include <stdlib.h> /* for exit, malloc, atoi */
21 #include <string.h> /* for strcpy */
22 #include <sys/types.h> /* for time_t */
23 #include <time.h> /* for struct tm */
26 #ifndef MAX_STRING_LENGTH
27 #define MAX_STRING_LENGTH 1024
28 #endif /* !defined MAX_STRING_LENGTH */
32 #endif /* !defined TRUE */
36 #endif /* !defined FALSE */
39 #define EXIT_SUCCESS 0
40 #endif /* !defined EXIT_SUCCESS */
43 #define EXIT_FAILURE 1
44 #endif /* !defined EXIT_FAILURE */
48 #endif /* !defined SECSPERMIN */
51 #define MINSPERHOUR 60
52 #endif /* !defined MINSPERHOUR */
55 #define SECSPERHOUR (SECSPERMIN * MINSPERHOUR)
56 #endif /* !defined SECSPERHOUR */
59 #define HOURSPERDAY 24
60 #endif /* !defined HOURSPERDAY */
63 #define EPOCH_YEAR 1970
64 #endif /* !defined EPOCH_YEAR */
67 #define TM_YEAR_BASE 1900
68 #endif /* !defined TM_YEAR_BASE */
71 #define DAYSPERNYEAR 365
72 #endif /* !defined DAYSPERNYEAR */
75 #define isleap(y) ((((y) % 4) == 0 && ((y) % 100) != 0) || ((y) % 400) == 0)
76 #endif /* !defined isleap */
79 #include "locale.h" /* for setlocale */
81 #endif /* HAVE_GETTEXT - 0 */
86 #endif /* defined lint */
90 #endif /* defined __GNUC__ */
91 #endif /* !defined lint */
92 #endif /* !defined GNUC_or_lint */
96 #define INITIALIZE(x) ((x) = 0)
97 #endif /* defined GNUC_or_lint */
100 #endif /* !defined GNUC_or_lint */
101 #endif /* !defined INITIALIZE */
104 ** For the benefit of GNU folk...
105 ** `_(MSGID)' uses the current locale's message library string for MSGID.
106 ** The default is to use gettext if available, and use MSGID otherwise.
111 #define _(msgid) gettext(msgid)
112 #else /* !(HAVE_GETTEXT - 0) */
113 #define _(msgid) msgid
114 #endif /* !(HAVE_GETTEXT - 0) */
115 #endif /* !defined _ */
118 #define TZ_DOMAIN "tz"
119 #endif /* !defined TZ_DOMAIN */
121 extern char ** environ;
122 extern char * tzname[2];
124 static char *abbr(struct tm *tmp);
125 static long delta(struct tm *newp, struct tm *oldp);
126 static time_t hunt(char *name, time_t lot, time_t hit);
127 static size_t longest;
128 static char *progname;
129 static void show(char *zone, time_t t, int v);
130 static void usage(void);
133 main(int argc, char *argv[])
151 setlocale(LC_MESSAGES, "");
153 bindtextdomain(TZ_DOMAIN, TZ_DOMAINDIR);
154 #endif /* defined(TEXTDOMAINDIR) */
155 textdomain(TZ_DOMAIN);
156 #endif /* HAVE_GETTEXT - 0 */
159 while ((c = getopt(argc, argv, "c:v")) == 'c' || c == 'v')
162 else cutoff = optarg;
163 if ((c != EOF && c != -1) ||
164 (optind == argc - 1 && strcmp(argv[optind], "=") == 0)) {
167 if (cutoff != NULL) {
170 cutyear = atoi(cutoff);
172 for (y = EPOCH_YEAR; y < cutyear; ++y)
173 cuttime += DAYSPERNYEAR + isleap(y);
174 cuttime *= SECSPERHOUR * HOURSPERDAY;
178 for (i = optind; i < argc; ++i)
179 if (strlen(argv[i]) > longest)
180 longest = strlen(argv[i]);
181 for (hibit = 1; (hibit << 1) != 0; hibit <<= 1)
187 for (i = 0; environ[i] != NULL; ++i)
189 fakeenv = (char **) malloc((size_t) ((i + 2) *
191 if (fakeenv == NULL ||
192 (fakeenv[0] = (char *) malloc((size_t) (longest +
195 _("malloc() failed"));
197 strcpy(fakeenv[to++], "TZ=");
198 for (from = 0; environ[from] != NULL; ++from)
199 if (strncmp(environ[from], "TZ=", 3) != 0)
200 fakeenv[to++] = environ[from];
204 for (i = optind; i < argc; ++i) {
205 static char buf[MAX_STRING_LENGTH];
207 strcpy(&fakeenv[0][3], argv[i]);
209 show(argv[i], now, FALSE);
213 ** Get lowest value of t.
216 if (t > 0) /* time_t is unsigned */
218 show(argv[i], t, TRUE);
219 t += SECSPERHOUR * HOURSPERDAY;
220 show(argv[i], t, TRUE);
222 strncpy(buf, abbr(&tm), (sizeof buf) - 1);
224 if (cutoff != NULL && t >= cuttime)
226 newt = t + SECSPERHOUR * 12;
227 if (cutoff != NULL && newt >= cuttime)
231 newtm = *localtime(&newt);
232 if (delta(&newtm, &tm) != (newt - t) ||
233 newtm.tm_isdst != tm.tm_isdst ||
234 strcmp(abbr(&newtm), buf) != 0) {
235 newt = hunt(argv[i], t, newt);
236 newtm = *localtime(&newt);
237 strncpy(buf, abbr(&newtm),
244 ** Get highest value of t.
247 if (t < 0) /* time_t is signed */
249 t -= SECSPERHOUR * HOURSPERDAY;
250 show(argv[i], t, TRUE);
251 t += SECSPERHOUR * HOURSPERDAY;
252 show(argv[i], t, TRUE);
254 if (fflush(stdout) || ferror(stdout))
255 errx(EXIT_FAILURE, _("error writing standard output"));
258 /* gcc -Wall pacifier */
266 fprintf(stderr, _("usage: zdump [-v] [-c cutoff] zonename ...\n"));
271 hunt(char *name, time_t lot, time_t hit)
276 static char loab[MAX_STRING_LENGTH];
278 lotm = *localtime(&lot);
279 strncpy(loab, abbr(&lotm), (sizeof loab) - 1);
280 while ((hit - lot) >= 2) {
281 t = lot / 2 + hit / 2;
287 if (delta(&tm, &lotm) == (t - lot) &&
288 tm.tm_isdst == lotm.tm_isdst &&
289 strcmp(abbr(&tm), loab) == 0) {
294 show(name, lot, TRUE);
295 show(name, hit, TRUE);
300 ** Thanks to Paul Eggert (eggert@twinsun.com) for logic used in delta.
304 delta(struct tm *newp, struct tm *oldp)
309 if (newp->tm_year < oldp->tm_year)
310 return -delta(oldp, newp);
312 for (tmy = oldp->tm_year; tmy < newp->tm_year; ++tmy)
313 result += DAYSPERNYEAR + isleap(tmy + TM_YEAR_BASE);
314 result += newp->tm_yday - oldp->tm_yday;
315 result *= HOURSPERDAY;
316 result += newp->tm_hour - oldp->tm_hour;
317 result *= MINSPERHOUR;
318 result += newp->tm_min - oldp->tm_min;
319 result *= SECSPERMIN;
320 result += newp->tm_sec - oldp->tm_sec;
325 show(char *zone, time_t t, int v)
329 printf("%-*s ", (int) longest, zone);
331 printf("%.24s UTC = ", asctime(gmtime(&t)));
333 printf("%.24s", asctime(tmp));
334 if (*abbr(tmp) != '\0')
335 printf(" %s", abbr(tmp));
337 printf(" isdst=%d", tmp->tm_isdst);
339 printf(" gmtoff=%ld", tmp->TM_GMTOFF);
340 #endif /* defined TM_GMTOFF */
351 if (tmp->tm_isdst != 0 && tmp->tm_isdst != 1)
353 result = tzname[tmp->tm_isdst];
354 return (result == NULL) ? &nada : result;