mirror of
https://frontier.innolan.net/rainlance/amiga-tz.git
synced 2025-11-22 20:18:02 +00:00
black box version
SCCS-file: zdump.c SCCS-SID: 4.2
This commit is contained in:
Arthur David Olson
committed by
Paul Eggert
Paul Eggert
parent
18e939c91a
commit
222972ff18
174
zdump.c
174
zdump.c
@ -26,39 +26,23 @@ extern char * tzname[2];
|
||||
extern void tzset P((void));
|
||||
|
||||
static int longest;
|
||||
static void readerr P((FILE * fp,
|
||||
const char * progname, const char * filename));
|
||||
static void show P((const char * zone, time_t t, int v));
|
||||
static long tzdecode P((const char * buffer));
|
||||
|
||||
static long
|
||||
tzdecode(codep)
|
||||
const char * codep;
|
||||
{
|
||||
register int i;
|
||||
register long result;
|
||||
|
||||
result = 0;
|
||||
for (i = 0; i < 4; ++i)
|
||||
result = (result << 8) | (codep[i] & 0xff);
|
||||
return result;
|
||||
}
|
||||
static void hunt P((const char * name, time_t lot, time_t, hit));
|
||||
static long delta P((const struct tm * newp, const struct tm * oldp));
|
||||
|
||||
int
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char * argv[];
|
||||
{
|
||||
register FILE * fp;
|
||||
register int i, j, c;
|
||||
register int i, c;
|
||||
register int vflag;
|
||||
register const char * cutoff;
|
||||
register int cutyear;
|
||||
register long cuttime, k;
|
||||
register long cuttime;
|
||||
time_t now;
|
||||
time_t t;
|
||||
long leapcnt, timecnt;
|
||||
long typecnt, charcnt;
|
||||
char buf[FILENAME_MAX + 1];
|
||||
time_t t, newt;
|
||||
struct tm tm, newtm;
|
||||
|
||||
vflag = 0;
|
||||
cutoff = NULL;
|
||||
@ -67,7 +51,8 @@ char * argv[];
|
||||
vflag = 1;
|
||||
else cutoff = optarg;
|
||||
if (c != EOF || optind == argc - 1 && strcmp(argv[optind], "=") == 0) {
|
||||
(void) fprintf(stderr, "%s: usage is %s [ -v ] zonename ...\n",
|
||||
(void) fprintf(stderr,
|
||||
"%s: usage is %s [ -v ] [ -c cutoff ] zonename ...\n",
|
||||
argv[0], argv[0]);
|
||||
(void) exit(EXIT_FAILURE);
|
||||
}
|
||||
@ -100,86 +85,31 @@ char * argv[];
|
||||
saveenv = environ;
|
||||
environ = fakeenv;
|
||||
(void) tzset();
|
||||
ifree(tzequals);
|
||||
environ = saveenv;
|
||||
show(argv[i], now, FALSE);
|
||||
if (!vflag)
|
||||
continue;
|
||||
if (argv[i][0] == '\0') {
|
||||
fp = NULL;
|
||||
timecnt = 0;
|
||||
leapcnt = 0;
|
||||
} else {
|
||||
struct tzhead tzh;
|
||||
|
||||
if (argv[i][0] == '/')
|
||||
fp = fopen(argv[i], "rb");
|
||||
else {
|
||||
j = strlen(TZDIR) + 1 + strlen(argv[i]) + 1;
|
||||
if (j > sizeof buf) {
|
||||
(void) fprintf(stderr,
|
||||
"%s: timezone name %s/%s is too long\n",
|
||||
argv[0], TZDIR, argv[i]);
|
||||
(void) exit(EXIT_FAILURE);
|
||||
}
|
||||
(void) sprintf(buf, "%s/%s", TZDIR, argv[i]);
|
||||
fp = fopen(buf, "rb");
|
||||
}
|
||||
if (fp == NULL) {
|
||||
(void) fprintf(stderr, "%s: Can't open ",
|
||||
argv[0]);
|
||||
(void) perror(argv[i]);
|
||||
(void) exit(EXIT_FAILURE);
|
||||
}
|
||||
if (fread((genericptr_t) &tzh,
|
||||
(fread_size_t) sizeof tzh,
|
||||
(fread_size_t) 1, fp) != 1)
|
||||
readerr(fp, argv[0], argv[i]);
|
||||
leapcnt = tzdecode(tzh.tzh_leapcnt);
|
||||
timecnt = tzdecode(tzh.tzh_timecnt);
|
||||
typecnt = tzdecode(tzh.tzh_typecnt);
|
||||
charcnt = tzdecode(tzh.tzh_charcnt);
|
||||
}
|
||||
t = 0x80000000;
|
||||
if (t > 0) /* time_t is unsigned */
|
||||
t = 0;
|
||||
show(argv[i], t, TRUE);
|
||||
t += SECSPERHOUR * HOURSPERDAY;
|
||||
show(argv[i], t, TRUE);
|
||||
for (k = timecnt; k > 0; --k) {
|
||||
char code[4];
|
||||
|
||||
if (fread((genericptr_t) code,
|
||||
(fread_size_t) sizeof code,
|
||||
(fread_size_t) 1, fp) != 1)
|
||||
readerr(fp, argv[0], argv[i]);
|
||||
t = tzdecode(code);
|
||||
if (cutoff != NULL && t > cuttime)
|
||||
tm = *localtime(&t);
|
||||
for ( ; ; ) {
|
||||
if (cutoff != NULL && t >= cuttime)
|
||||
break;
|
||||
show(argv[i], t - 1, TRUE);
|
||||
show(argv[i], t, TRUE);
|
||||
}
|
||||
if (fp != NULL)
|
||||
(void) fseek(fp, (long) sizeof (struct tzhead) +
|
||||
timecnt * 5 + typecnt * 6 + charcnt, 0);
|
||||
for (k = leapcnt; k > 0; --k) {
|
||||
char code[4];
|
||||
|
||||
if (fread((genericptr_t) code,
|
||||
(fread_size_t) sizeof code,
|
||||
(fread_size_t) 1, fp) != 1)
|
||||
readerr(fp, argv[0], argv[i]);
|
||||
(void) fseek(fp, (long) sizeof code, 1);
|
||||
t = tzdecode(code);
|
||||
if (cutoff != NULL && t > cuttime)
|
||||
newt = t + SECSPERHOUR * 12;
|
||||
if (cutoff != NULL && newt >= cuttime)
|
||||
break;
|
||||
show(argv[i], t - 1, TRUE);
|
||||
show(argv[i], t, TRUE);
|
||||
show(argv[i], t + 1, TRUE);
|
||||
}
|
||||
if (fp != NULL && fclose(fp)) {
|
||||
(void) fprintf(stderr, "%s: Error closing ", argv[0]);
|
||||
(void) perror(argv[i]);
|
||||
(void) exit(EXIT_FAILURE);
|
||||
if (newt <= t)
|
||||
break;
|
||||
newtm = *localtime(&newt);
|
||||
if (delta(&newtm, &tm) != (newt - t))
|
||||
hunt(argv[i], t, newt);
|
||||
t = newt;
|
||||
tm = newtm;
|
||||
}
|
||||
t = 0xffffffff;
|
||||
if (t < 0) /* time_t is signed */
|
||||
@ -188,7 +118,6 @@ char * argv[];
|
||||
show(argv[i], t, TRUE);
|
||||
t += SECSPERHOUR * HOURSPERDAY;
|
||||
show(argv[i], t, TRUE);
|
||||
ifree(tzequals);
|
||||
}
|
||||
if (fflush(stdout) || ferror(stdout)) {
|
||||
(void) fprintf(stderr, "%s: Error writing standard output ",
|
||||
@ -196,7 +125,51 @@ char * argv[];
|
||||
(void) perror("standard output");
|
||||
(void) exit(EXIT_FAILURE);
|
||||
}
|
||||
return 0;
|
||||
exit(EXIT_SUCCESS);
|
||||
for ( ; ; )
|
||||
;
|
||||
}
|
||||
|
||||
static void
|
||||
hunt(name, lot, hit)
|
||||
const char * name;
|
||||
time_t lot;
|
||||
time_t hit;
|
||||
{
|
||||
time_t t;
|
||||
struct tm lotm;
|
||||
struct tm tm;
|
||||
|
||||
lotm = *localtime(&lot);
|
||||
while ((hit - lot) >= 2) {
|
||||
t = lot / 2 + hit / 2;
|
||||
if (t <= lot)
|
||||
++t;
|
||||
else if (t >= hit)
|
||||
--t;
|
||||
tm = *localtime(&t);
|
||||
if (delta(&tm, &lotm) == (t - lot)) {
|
||||
lot = t;
|
||||
lotm = tm;
|
||||
} else hit = t;
|
||||
}
|
||||
show(name, lot, TRUE);
|
||||
show(name, hit, TRUE);
|
||||
}
|
||||
|
||||
static long
|
||||
delta(newp, oldp)
|
||||
const struct tm * newp;
|
||||
const struct tm * oldp;
|
||||
{
|
||||
long result;
|
||||
|
||||
result = newp->tm_hour - oldp->tm_hour;
|
||||
if (result < 0)
|
||||
result += HOURSPERDAY;
|
||||
result *= SECSPERHOUR;
|
||||
result += (newp->tm_min - oldp->tm_min) * SECSPERMIN;
|
||||
return result + newp->tm_sec - oldp->tm_sec;
|
||||
}
|
||||
|
||||
static void
|
||||
@ -222,16 +195,3 @@ time_t t;
|
||||
}
|
||||
(void) printf("\n");
|
||||
}
|
||||
|
||||
static void
|
||||
readerr(fp, progname, filename)
|
||||
FILE * fp;
|
||||
const char * progname;
|
||||
const char * filename;
|
||||
{
|
||||
(void) fprintf(stderr, "%s: Error reading ", progname);
|
||||
if (ferror(fp))
|
||||
(void) perror(filename);
|
||||
else (void) fprintf(stderr, "%s: Premature EOF\n", filename);
|
||||
(void) exit(EXIT_FAILURE);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user