]>
Commit | Line | Data |
---|---|---|
2fc1e207 A |
1 | static const char elsieid[] = "@(#)zdump.c 7.31"; |
2 | ||
3 | #ifndef lint | |
4 | static const char rcsid[] = | |
5 | "$FreeBSD: src/usr.sbin/zic/zdump.c,v 1.9 2004/06/20 21:41:11 stefanf Exp $"; | |
6 | #endif /* not lint */ | |
1815bff5 A |
7 | |
8 | /* | |
9 | ** This code has been made independent of the rest of the time | |
10 | ** conversion package to increase confidence in the verification it provides. | |
11 | ** You can use this code to help in verifying other implementations. | |
12 | */ | |
13 | ||
2fc1e207 A |
14 | #include <err.h> |
15 | #include <stdio.h> /* for stdout, stderr */ | |
16 | #include <stdlib.h> /* for exit, malloc, atoi */ | |
17 | #include <string.h> /* for strcpy */ | |
18 | #include <sys/types.h> /* for time_t */ | |
19 | #include <time.h> /* for struct tm */ | |
20 | #include <unistd.h> | |
1815bff5 A |
21 | |
22 | #ifndef MAX_STRING_LENGTH | |
23 | #define MAX_STRING_LENGTH 1024 | |
24 | #endif /* !defined MAX_STRING_LENGTH */ | |
25 | ||
26 | #ifndef TRUE | |
27 | #define TRUE 1 | |
28 | #endif /* !defined TRUE */ | |
29 | ||
30 | #ifndef FALSE | |
31 | #define FALSE 0 | |
32 | #endif /* !defined FALSE */ | |
33 | ||
34 | #ifndef EXIT_SUCCESS | |
35 | #define EXIT_SUCCESS 0 | |
36 | #endif /* !defined EXIT_SUCCESS */ | |
37 | ||
38 | #ifndef EXIT_FAILURE | |
39 | #define EXIT_FAILURE 1 | |
40 | #endif /* !defined EXIT_FAILURE */ | |
41 | ||
42 | #ifndef SECSPERMIN | |
43 | #define SECSPERMIN 60 | |
44 | #endif /* !defined SECSPERMIN */ | |
45 | ||
46 | #ifndef MINSPERHOUR | |
47 | #define MINSPERHOUR 60 | |
48 | #endif /* !defined MINSPERHOUR */ | |
49 | ||
50 | #ifndef SECSPERHOUR | |
51 | #define SECSPERHOUR (SECSPERMIN * MINSPERHOUR) | |
52 | #endif /* !defined SECSPERHOUR */ | |
53 | ||
54 | #ifndef HOURSPERDAY | |
55 | #define HOURSPERDAY 24 | |
56 | #endif /* !defined HOURSPERDAY */ | |
57 | ||
58 | #ifndef EPOCH_YEAR | |
59 | #define EPOCH_YEAR 1970 | |
60 | #endif /* !defined EPOCH_YEAR */ | |
61 | ||
62 | #ifndef TM_YEAR_BASE | |
63 | #define TM_YEAR_BASE 1900 | |
64 | #endif /* !defined TM_YEAR_BASE */ | |
65 | ||
66 | #ifndef DAYSPERNYEAR | |
67 | #define DAYSPERNYEAR 365 | |
68 | #endif /* !defined DAYSPERNYEAR */ | |
69 | ||
70 | #ifndef isleap | |
71 | #define isleap(y) ((((y) % 4) == 0 && ((y) % 100) != 0) || ((y) % 400) == 0) | |
72 | #endif /* !defined isleap */ | |
73 | ||
74 | #if HAVE_GETTEXT - 0 | |
75 | #include "locale.h" /* for setlocale */ | |
76 | #include "libintl.h" | |
77 | #endif /* HAVE_GETTEXT - 0 */ | |
78 | ||
79 | #ifndef GNUC_or_lint | |
80 | #ifdef lint | |
81 | #define GNUC_or_lint | |
82 | #endif /* defined lint */ | |
83 | #ifndef lint | |
84 | #ifdef __GNUC__ | |
85 | #define GNUC_or_lint | |
86 | #endif /* defined __GNUC__ */ | |
87 | #endif /* !defined lint */ | |
88 | #endif /* !defined GNUC_or_lint */ | |
89 | ||
90 | #ifndef INITIALIZE | |
91 | #ifdef GNUC_or_lint | |
92 | #define INITIALIZE(x) ((x) = 0) | |
93 | #endif /* defined GNUC_or_lint */ | |
94 | #ifndef GNUC_or_lint | |
95 | #define INITIALIZE(x) | |
96 | #endif /* !defined GNUC_or_lint */ | |
97 | #endif /* !defined INITIALIZE */ | |
98 | ||
99 | /* | |
100 | ** For the benefit of GNU folk... | |
101 | ** `_(MSGID)' uses the current locale's message library string for MSGID. | |
102 | ** The default is to use gettext if available, and use MSGID otherwise. | |
103 | */ | |
104 | ||
105 | #ifndef _ | |
106 | #if HAVE_GETTEXT - 0 | |
107 | #define _(msgid) gettext(msgid) | |
108 | #else /* !(HAVE_GETTEXT - 0) */ | |
109 | #define _(msgid) msgid | |
110 | #endif /* !(HAVE_GETTEXT - 0) */ | |
111 | #endif /* !defined _ */ | |
112 | ||
113 | #ifndef TZ_DOMAIN | |
114 | #define TZ_DOMAIN "tz" | |
115 | #endif /* !defined TZ_DOMAIN */ | |
116 | ||
2fc1e207 A |
117 | #ifndef P |
118 | #ifdef __STDC__ | |
119 | #define P(x) x | |
120 | #endif /* defined __STDC__ */ | |
121 | #ifndef __STDC__ | |
122 | #define P(x) () | |
123 | #endif /* !defined __STDC__ */ | |
124 | #endif /* !defined P */ | |
125 | ||
1815bff5 | 126 | extern char ** environ; |
1815bff5 A |
127 | extern char * tzname[2]; |
128 | ||
2fc1e207 A |
129 | static char * abbr P((struct tm * tmp)); |
130 | static long delta P((struct tm * newp, struct tm * oldp)); | |
131 | static time_t hunt P((char * name, time_t lot, time_t hit)); | |
132 | static size_t longest; | |
133 | static void show P((char * zone, time_t t, int v)); | |
134 | static void usage(void); | |
1815bff5 A |
135 | |
136 | int | |
137 | main(argc, argv) | |
138 | int argc; | |
139 | char * argv[]; | |
140 | { | |
141 | register int i; | |
142 | register int c; | |
143 | register int vflag; | |
144 | register char * cutoff; | |
145 | register int cutyear; | |
146 | register long cuttime; | |
147 | char ** fakeenv; | |
148 | time_t now; | |
149 | time_t t; | |
150 | time_t newt; | |
151 | time_t hibit; | |
152 | struct tm tm; | |
153 | struct tm newtm; | |
154 | ||
155 | INITIALIZE(cuttime); | |
156 | #if HAVE_GETTEXT - 0 | |
157 | (void) setlocale(LC_MESSAGES, ""); | |
158 | #ifdef TZ_DOMAINDIR | |
159 | (void) bindtextdomain(TZ_DOMAIN, TZ_DOMAINDIR); | |
160 | #endif /* defined(TEXTDOMAINDIR) */ | |
161 | (void) textdomain(TZ_DOMAIN); | |
162 | #endif /* HAVE_GETTEXT - 0 */ | |
2fc1e207 A |
163 | for (i = 1; i < argc; ++i) |
164 | if (strcmp(argv[i], "--version") == 0) { | |
165 | errx(EXIT_SUCCESS, "%s", elsieid); | |
166 | } | |
1815bff5 A |
167 | vflag = 0; |
168 | cutoff = NULL; | |
169 | while ((c = getopt(argc, argv, "c:v")) == 'c' || c == 'v') | |
170 | if (c == 'v') | |
171 | vflag = 1; | |
172 | else cutoff = optarg; | |
2fc1e207 | 173 | if ((c != EOF && c != -1) || |
1815bff5 | 174 | (optind == argc - 1 && strcmp(argv[optind], "=") == 0)) { |
2fc1e207 | 175 | usage(); |
1815bff5 A |
176 | } |
177 | if (cutoff != NULL) { | |
178 | int y; | |
179 | ||
180 | cutyear = atoi(cutoff); | |
181 | cuttime = 0; | |
182 | for (y = EPOCH_YEAR; y < cutyear; ++y) | |
183 | cuttime += DAYSPERNYEAR + isleap(y); | |
184 | cuttime *= SECSPERHOUR * HOURSPERDAY; | |
185 | } | |
186 | (void) time(&now); | |
187 | longest = 0; | |
188 | for (i = optind; i < argc; ++i) | |
189 | if (strlen(argv[i]) > longest) | |
190 | longest = strlen(argv[i]); | |
191 | for (hibit = 1; (hibit << 1) != 0; hibit <<= 1) | |
192 | continue; | |
193 | { | |
194 | register int from; | |
195 | register int to; | |
196 | ||
197 | for (i = 0; environ[i] != NULL; ++i) | |
198 | continue; | |
199 | fakeenv = (char **) malloc((size_t) ((i + 2) * | |
200 | sizeof *fakeenv)); | |
201 | if (fakeenv == NULL || | |
202 | (fakeenv[0] = (char *) malloc((size_t) (longest + | |
2fc1e207 A |
203 | 4))) == NULL) |
204 | errx(EXIT_FAILURE, | |
205 | _("malloc() failed")); | |
1815bff5 A |
206 | to = 0; |
207 | (void) strcpy(fakeenv[to++], "TZ="); | |
208 | for (from = 0; environ[from] != NULL; ++from) | |
209 | if (strncmp(environ[from], "TZ=", 3) != 0) | |
210 | fakeenv[to++] = environ[from]; | |
211 | fakeenv[to] = NULL; | |
212 | environ = fakeenv; | |
213 | } | |
214 | for (i = optind; i < argc; ++i) { | |
215 | static char buf[MAX_STRING_LENGTH]; | |
216 | ||
217 | (void) strcpy(&fakeenv[0][3], argv[i]); | |
2fc1e207 A |
218 | if (!vflag) { |
219 | show(argv[i], now, FALSE); | |
1815bff5 | 220 | continue; |
2fc1e207 | 221 | } |
1815bff5 A |
222 | /* |
223 | ** Get lowest value of t. | |
224 | */ | |
225 | t = hibit; | |
226 | if (t > 0) /* time_t is unsigned */ | |
227 | t = 0; | |
228 | show(argv[i], t, TRUE); | |
229 | t += SECSPERHOUR * HOURSPERDAY; | |
230 | show(argv[i], t, TRUE); | |
231 | tm = *localtime(&t); | |
232 | (void) strncpy(buf, abbr(&tm), (sizeof buf) - 1); | |
233 | for ( ; ; ) { | |
234 | if (cutoff != NULL && t >= cuttime) | |
235 | break; | |
236 | newt = t + SECSPERHOUR * 12; | |
237 | if (cutoff != NULL && newt >= cuttime) | |
238 | break; | |
239 | if (newt <= t) | |
240 | break; | |
241 | newtm = *localtime(&newt); | |
242 | if (delta(&newtm, &tm) != (newt - t) || | |
243 | newtm.tm_isdst != tm.tm_isdst || | |
244 | strcmp(abbr(&newtm), buf) != 0) { | |
245 | newt = hunt(argv[i], t, newt); | |
246 | newtm = *localtime(&newt); | |
247 | (void) strncpy(buf, abbr(&newtm), | |
248 | (sizeof buf) - 1); | |
249 | } | |
250 | t = newt; | |
251 | tm = newtm; | |
252 | } | |
253 | /* | |
254 | ** Get highest value of t. | |
255 | */ | |
256 | t = ~((time_t) 0); | |
257 | if (t < 0) /* time_t is signed */ | |
258 | t &= ~hibit; | |
259 | t -= SECSPERHOUR * HOURSPERDAY; | |
260 | show(argv[i], t, TRUE); | |
261 | t += SECSPERHOUR * HOURSPERDAY; | |
262 | show(argv[i], t, TRUE); | |
263 | } | |
2fc1e207 A |
264 | if (fflush(stdout) || ferror(stdout)) |
265 | errx(EXIT_FAILURE, _("error writing standard output")); | |
1815bff5 A |
266 | exit(EXIT_SUCCESS); |
267 | ||
268 | /* gcc -Wall pacifier */ | |
269 | for ( ; ; ) | |
270 | continue; | |
271 | } | |
272 | ||
2fc1e207 A |
273 | static void |
274 | usage(void) | |
275 | { | |
276 | fprintf(stderr, | |
277 | _("usage: zdump [--version] [-v] [-c cutoff] zonename ...\n")); | |
278 | exit(EXIT_FAILURE); | |
279 | } | |
280 | ||
1815bff5 A |
281 | static time_t |
282 | hunt(name, lot, hit) | |
283 | char * name; | |
284 | time_t lot; | |
285 | time_t hit; | |
286 | { | |
287 | time_t t; | |
288 | struct tm lotm; | |
289 | struct tm tm; | |
290 | static char loab[MAX_STRING_LENGTH]; | |
291 | ||
292 | lotm = *localtime(&lot); | |
293 | (void) strncpy(loab, abbr(&lotm), (sizeof loab) - 1); | |
1815bff5 A |
294 | while ((hit - lot) >= 2) { |
295 | t = lot / 2 + hit / 2; | |
296 | if (t <= lot) | |
297 | ++t; | |
298 | else if (t >= hit) | |
299 | --t; | |
300 | tm = *localtime(&t); | |
301 | if (delta(&tm, &lotm) == (t - lot) && | |
302 | tm.tm_isdst == lotm.tm_isdst && | |
303 | strcmp(abbr(&tm), loab) == 0) { | |
304 | lot = t; | |
305 | lotm = tm; | |
306 | } else hit = t; | |
307 | } | |
308 | show(name, lot, TRUE); | |
309 | show(name, hit, TRUE); | |
310 | return hit; | |
311 | } | |
312 | ||
313 | /* | |
314 | ** Thanks to Paul Eggert (eggert@twinsun.com) for logic used in delta. | |
315 | */ | |
316 | ||
317 | static long | |
318 | delta(newp, oldp) | |
319 | struct tm * newp; | |
320 | struct tm * oldp; | |
321 | { | |
322 | long result; | |
323 | int tmy; | |
324 | ||
325 | if (newp->tm_year < oldp->tm_year) | |
326 | return -delta(oldp, newp); | |
327 | result = 0; | |
328 | for (tmy = oldp->tm_year; tmy < newp->tm_year; ++tmy) | |
329 | result += DAYSPERNYEAR + isleap(tmy + TM_YEAR_BASE); | |
330 | result += newp->tm_yday - oldp->tm_yday; | |
331 | result *= HOURSPERDAY; | |
332 | result += newp->tm_hour - oldp->tm_hour; | |
333 | result *= MINSPERHOUR; | |
334 | result += newp->tm_min - oldp->tm_min; | |
335 | result *= SECSPERMIN; | |
336 | result += newp->tm_sec - oldp->tm_sec; | |
337 | return result; | |
338 | } | |
339 | ||
1815bff5 A |
340 | static void |
341 | show(zone, t, v) | |
342 | char * zone; | |
343 | time_t t; | |
344 | int v; | |
345 | { | |
346 | struct tm * tmp; | |
347 | ||
2fc1e207 | 348 | (void) printf("%-*s ", (int) longest, zone); |
1815bff5 | 349 | if (v) |
2fc1e207 | 350 | (void) printf("%.24s UTC = ", asctime(gmtime(&t))); |
1815bff5 A |
351 | tmp = localtime(&t); |
352 | (void) printf("%.24s", asctime(tmp)); | |
353 | if (*abbr(tmp) != '\0') | |
354 | (void) printf(" %s", abbr(tmp)); | |
355 | if (v) { | |
356 | (void) printf(" isdst=%d", tmp->tm_isdst); | |
357 | #ifdef TM_GMTOFF | |
358 | (void) printf(" gmtoff=%ld", tmp->TM_GMTOFF); | |
359 | #endif /* defined TM_GMTOFF */ | |
360 | } | |
361 | (void) printf("\n"); | |
362 | } | |
363 | ||
364 | static char * | |
365 | abbr(tmp) | |
366 | struct tm * tmp; | |
367 | { | |
368 | register char * result; | |
369 | static char nada; | |
370 | ||
371 | if (tmp->tm_isdst != 0 && tmp->tm_isdst != 1) | |
372 | return &nada; | |
373 | result = tzname[tmp->tm_isdst]; | |
374 | return (result == NULL) ? &nada : result; | |
375 | } |