From 69bde673134f3b0986a4e42c83debb988e399654 Mon Sep 17 00:00:00 2001 From: Carsten Larsen Date: Tue, 25 Oct 2016 21:23:15 +0000 Subject: [PATCH] Release 5 changes --- CONTENT | 8 - README | 25 + example/ZDump/america1 | 1 - example/ZDump/america2 | 1 - example/ZDump/asia | 1 - example/ZDump/europe | 1 - example/ZDump/misc | 1 - tz.readme | 2 +- utility/date_amiga.c | 17 - utility/zdump2.c | 1065 -------------- utility/zic2.c | 3116 ---------------------------------------- 11 files changed, 26 insertions(+), 4212 deletions(-) delete mode 100644 CONTENT create mode 100644 README delete mode 100644 example/ZDump/america1 delete mode 100644 example/ZDump/america2 delete mode 100644 example/ZDump/asia delete mode 100644 example/ZDump/europe delete mode 100644 example/ZDump/misc delete mode 100644 utility/date_amiga.c delete mode 100644 utility/zdump2.c delete mode 100644 utility/zic2.c diff --git a/CONTENT b/CONTENT deleted file mode 100644 index 2bfdc12..0000000 --- a/CONTENT +++ /dev/null @@ -1,8 +0,0 @@ -time.h tzset, tzalloc, tzfree, time, mktime, mktime_z, localtime, localtime_r, - localtime_rz, gmtime, gmtime_r, ctime, ctime_r, ctime_rz, difftime, - offtime, offtime_r, timeoff, asctime, asctime_r, strftime, strftime_l, - strptime, strptime_l, timegm, timelocal, timelocal_z, daylight_c, - timezone_c, altzone_c, tzname_c, time2posix, time2posix_z, posix2time, - posix2time_z, tzsetwall, tzgetname -sys/time.h gettimeofday, settimeofday -extra getsystime, setsystime, tzgetlocation, gmtoffset, stou, utos diff --git a/README b/README new file mode 100644 index 0000000..8f6c2a8 --- /dev/null +++ b/README @@ -0,0 +1,25 @@ +The tz database, also called tzdata, the zoneinfo database or IANA (Internet +Assigned Numbers Authority) time zone database, is a collaborative compilation +of information about the world's time zones, primarily intended for use with +computer programs and operating systems. It is sometimes called the Olson +database, referring to the founding contributor, Arthur David Olson. Paul Eggert +is currently its editor and maintainer. + +AmigaOS now has its own version with full support for all time zones. So far +only Classic Amiga OS is supported but support for at least AROS is planned. +Hyperions AmigaOS 4 might already support this database. I haven't been able to +find any information on the topic. Read more about the database at: + +https://en.wikipedia.org/wiki/Tz_database +https://www.iana.org/time-zones + +The primary usage is to keep your Amiga clock synced regardless changes in +summer and winter time. Other application might also benefit from the database, +f.x. network time synchronization software. The software also include small +tools, one of them being able to show the time in other parts of the world. + +To get the most out of The Time Zone Database a RTC module is required. Are you +a developer or maybe just a curious Amiga user, then you can download The Amiga +Timezone Database from aminet.net + +http://aminet.net/package/util/time/tz diff --git a/example/ZDump/america1 b/example/ZDump/america1 deleted file mode 100644 index c4b92cd..0000000 --- a/example/ZDump/america1 +++ /dev/null @@ -1 +0,0 @@ -ZDump America/Adak America/Anchorage America/Anguilla America/Antigua America/Araguaina America/Argentina/Buenos_Aires America/Argentina/Catamarca America/Argentina/Cordoba America/Argentina/Jujuy America/Argentina/La_Rioja America/Argentina/Mendoza America/Argentina/Rio_Gallegos America/Argentina/Salta America/Argentina/San_Juan America/Argentina/San_Luis America/Argentina/Tucuman America/Argentina/Ushuaia America/Aruba America/Asuncion America/Atikokan America/Bahia America/Bahia_Banderas America/Barbados America/Belem America/Belize America/Blanc-Sablon America/Boa_Vista America/Bogota America/Boise America/Cambridge_Bay America/Campo_Grande America/Cancun America/Caracas America/Cayenne America/Cayman America/Chicago America/Chihuahua America/Costa_Rica America/Creston America/Cuiaba America/Curacao America/Danmarkshavn America/Dawson America/Dawson_Creek America/Denver America/Detroit America/Dominica America/Edmonton America/Eirunepe America/El_Salvador America/Fortaleza America/Glace_Bay America/Godthab America/Goose_Bay America/Grand_Turk America/Grenada America/Guadeloupe America/Guatemala America/Guayaquil America/Guyana America/Halifax America/Havana America/Hermosillo America/Indiana/Indianapolis America/Indiana/Knox America/Indiana/Marengo America/Indiana/Petersburg America/Indiana/Tell_City America/Indiana/Vevay America/Indiana/Vincennes America/Indiana/Winamac \ No newline at end of file diff --git a/example/ZDump/america2 b/example/ZDump/america2 deleted file mode 100644 index ae87c99..0000000 --- a/example/ZDump/america2 +++ /dev/null @@ -1 +0,0 @@ -ZDump America/Inuvik America/Iqaluit America/Jamaica America/Juneau America/Kentucky/Louisville America/Kentucky/Monticello America/Kralendijk America/La_Paz America/Lima America/Los_Angeles America/Lower_Princes America/Maceio America/Managua America/Manaus America/Marigot America/Martinique America/Matamoros America/Mazatlan America/Menominee America/Merida America/Metlakatla America/Mexico_City America/Miquelon America/Moncton America/Monterrey America/Montevideo America/Montserrat America/Nassau America/New_York America/Nipigon America/Nome America/Noronha America/North_Dakota/Beulah America/North_Dakota/Center America/North_Dakota/New_Salem America/Ojinaga America/Panama America/Pangnirtung America/Paramaribo America/Phoenix America/Port-au-Prince America/Port_of_Spain America/Porto_Velho America/Puerto_Rico America/Rainy_River America/Rankin_Inlet America/Recife America/Regina America/Resolute America/Rio_Branco America/Santa_Isabel America/Santarem America/Santiago America/Santo_Domingo America/Sao_Paulo America/Scoresbysund America/Sitka America/St_Barthelemy America/St_Johns America/St_Kitts America/St_Lucia America/St_Thomas America/St_Vincent America/Swift_Current America/Tegucigalpa America/Thule America/Thunder_Bay America/Tijuana America/Toronto America/Tortola America/Vancouver America/Whitehorse America/Winnipeg America/Yakutat America/Yellowknife \ No newline at end of file diff --git a/example/ZDump/asia b/example/ZDump/asia deleted file mode 100644 index 5a3e845..0000000 --- a/example/ZDump/asia +++ /dev/null @@ -1 +0,0 @@ -ZDump Asia/Aden Asia/Almaty Asia/Amman Asia/Anadyr Asia/Aqtau Asia/Aqtobe Asia/Ashgabat Asia/Baghdad Asia/Bahrain Asia/Baku Asia/Bangkok Asia/Beirut Asia/Bishkek Asia/Brunei Asia/Chita Asia/Choibalsan Asia/Colombo Asia/Damascus Asia/Dhaka Asia/Dili Asia/Dubai Asia/Dushanbe Asia/Gaza Asia/Hebron Asia/Ho_Chi_Minh Asia/Hong_Kong Asia/Hovd Asia/Irkutsk Asia/Istanbul Asia/Jakarta Asia/Jayapura Asia/Jerusalem Asia/Kabul Asia/Kamchatka Asia/Karachi Asia/Kathmandu Asia/Khandyga Asia/Kolkata Asia/Krasnoyarsk Asia/Kuala_Lumpur Asia/Kuching Asia/Kuwait Asia/Macau Asia/Magadan Asia/Makassar Asia/Manila Asia/Muscat Asia/Nicosia Asia/Novokuznetsk Asia/Novosibirsk Asia/Omsk Asia/Oral Asia/Phnom_Penh Asia/Pontianak Asia/Pyongyang Asia/Qatar Asia/Qyzylorda Asia/Rangoon Asia/Riyadh Asia/Sakhalin Asia/Samarkand Asia/Seoul Asia/Shanghai Asia/Singapore Asia/Srednekolymsk Asia/Taipei Asia/Tashkent Asia/Tbilisi Asia/Tehran Asia/Thimphu Asia/Tokyo Asia/Ulaanbaatar Asia/Urumqi Asia/Ust-Nera Asia/Vientiane Asia/Vladivostok Asia/Yakutsk Asia/Yekaterinburg Asia/Yerevan \ No newline at end of file diff --git a/example/ZDump/europe b/example/ZDump/europe deleted file mode 100644 index f73dc07..0000000 --- a/example/ZDump/europe +++ /dev/null @@ -1 +0,0 @@ -ZDump Europe/Amsterdam Europe/Andorra Europe/Athens Europe/Belgrade Europe/Berlin Europe/Bratislava Europe/Brussels Europe/Bucharest Europe/Budapest Europe/Busingen Europe/Chisinau Europe/Copenhagen Europe/Dublin Europe/Gibraltar Europe/Guernsey Europe/Helsinki Europe/Isle_of_Man Europe/Istanbul Europe/Jersey Europe/Kaliningrad Europe/Kiev Europe/Lisbon Europe/Ljubljana Europe/London Europe/Luxembourg Europe/Madrid Europe/Malta Europe/Mariehamn Europe/Minsk Europe/Monaco Europe/Moscow Europe/Nicosia Europe/Oslo Europe/Paris Europe/Podgorica Europe/Prague Europe/Riga Europe/Rome Europe/Samara Europe/San_Marino Europe/Sarajevo Europe/Simferopol Europe/Skopje Europe/Sofia Europe/Stockholm Europe/Tallinn Europe/Tirane Europe/Uzhgorod Europe/Vaduz Europe/Vatican Europe/Vienna Europe/Vilnius Europe/Volgograd Europe/Warsaw Europe/Zagreb Europe/Zaporozhye Europe/Zurich \ No newline at end of file diff --git a/example/ZDump/misc b/example/ZDump/misc deleted file mode 100644 index 85b7c03..0000000 --- a/example/ZDump/misc +++ /dev/null @@ -1 +0,0 @@ -ZDump America/Argentina/Buenos_Aires America/Barbados America/Belize America/Caracas America/Chicago America/Detroit America/Grenada America/Havana America/La_Paz America/Lima America/Los_Angeles America/Mexico_City America/Nassau America/New_York America/Nome America/Puerto_Rico America/Sao_Paulo America/Thule America/Vancouver Asia/Damascus Asia/Irkutsk Asia/Karachi Asia/Samarkand Asia/Seoul Asia/Shanghai Asia/Singapore Asia/Tokyo Australia/Melbourne Pacific/Noumea Pacific/Galapagos Europe/Amsterdam Europe/Athens Europe/Lisbon Europe/London Europe/Moscow \ No newline at end of file diff --git a/tz.readme b/tz.readme index 4294e8b..de33b99 100644 --- a/tz.readme +++ b/tz.readme @@ -2,7 +2,7 @@ Short: Time Zone Database and Library Author: Carsten Larsen, Arthur David Olson & others Uploader: Carsten Larsen (carsten.larsen@mail.com) Type: util/time -Version: 4.00 +Version: 5.00 Requires: util/time/tzdata Architecture: m68k-amigaos URL: http://www.iana.org/time-zones diff --git a/utility/date_amiga.c b/utility/date_amiga.c deleted file mode 100644 index 0ad48d9..0000000 --- a/utility/date_amiga.c +++ /dev/null @@ -1,17 +0,0 @@ -//--------------------------------------------------------------------------// -// This file is in the public domain. // -//--------------------------------------------------------------------------// - -#include "tzversion.h" -#include "private.h" - -const char *vers = "\0$VER: tzdate" AMIGA_VERSION; - -char ** environ = NULL; -void syslog(int pri, const char *fmt, ...) { } -void logwtmp(const char *line, const char *name, const char *host) { } -void lose(int i) { } - -char* getlogin() { - return "Not implemented"; -} diff --git a/utility/zdump2.c b/utility/zdump2.c deleted file mode 100644 index 55284fc..0000000 --- a/utility/zdump2.c +++ /dev/null @@ -1,1065 +0,0 @@ -/* -** This file is in the public domain, so clarified as of -** 2009-05-17 by Arthur David Olson. -*/ - -#include "version.h" - -/* -** This code has been made independent of the rest of the time -** conversion package to increase confidence in the verification it provides. -** You can use this code to help in verifying other implementations. -** To do this, compile with -DUSE_LTZ=0 and link without the tz library. -*/ - -#ifndef NETBSD_INSPIRED -# define NETBSD_INSPIRED 1 -#endif -#ifndef USE_LTZ -# define USE_LTZ 1 -#endif - -#if USE_LTZ -# include "private.h" -#endif - -/* Enable tm_gmtoff and tm_zone on GNUish systems. */ -#define _GNU_SOURCE 1 -/* Enable strtoimax on Solaris 10. */ -#define __EXTENSIONS__ 1 - -#include "stdio.h" /* for stdout, stderr, perror */ -#include "string.h" /* for strcpy */ -#include "sys/types.h" /* for time_t */ -#include "time.h" /* for struct tm */ -#include "stdlib.h" /* for exit, malloc, atoi */ -#include "limits.h" /* for CHAR_BIT, LLONG_MAX */ -#include - -/* -** Substitutes for pre-C99 compilers. -** Much of this section of code is stolen from private.h. -*/ - -#ifndef HAVE_STDINT_H -# define HAVE_STDINT_H \ - (199901 <= __STDC_VERSION__ \ - || 2 < __GLIBC__ + (1 <= __GLIBC_MINOR__) \ - || __CYGWIN__) -#endif -#if HAVE_STDINT_H -# include "stdint.h" -#endif -#ifndef HAVE_INTTYPES_H -# define HAVE_INTTYPES_H HAVE_STDINT_H -#endif -#if HAVE_INTTYPES_H -# include -#endif - -#ifndef INT_FAST32_MAX -# if INT_MAX >> 31 == 0 -typedef long int_fast32_t; -# else -typedef int int_fast32_t; -# endif -#endif - -/* Pre-C99 GCC compilers define __LONG_LONG_MAX__ instead of LLONG_MAX. */ -#if !defined LLONG_MAX && defined __LONG_LONG_MAX__ -# define LLONG_MAX __LONG_LONG_MAX__ -#endif - -#ifndef INTMAX_MAX -# ifdef LLONG_MAX -typedef long long intmax_t; -# define strtoimax strtoll -# define INTMAX_MAX LLONG_MAX -# else -typedef long intmax_t; -# define strtoimax strtol -# define INTMAX_MAX LONG_MAX -# endif -#endif - -#ifndef PRIdMAX -# if INTMAX_MAX == LLONG_MAX -# define PRIdMAX "lld" -# else -# define PRIdMAX "ld" -# endif -#endif - -/* Infer TM_ZONE on systems where this information is known, but suppress - guessing if NO_TM_ZONE is defined. Similarly for TM_GMTOFF. */ -#if (defined __GLIBC__ \ - || defined __FreeBSD__ || defined __NetBSD__ || defined __OpenBSD__ \ - || (defined __APPLE__ && defined __MACH__)) -# if !defined TM_GMTOFF && !defined NO_TM_GMTOFF -# define TM_GMTOFF tm_gmtoff -# endif -# if !defined TM_ZONE && !defined NO_TM_ZONE -# define TM_ZONE tm_zone -# endif -#endif - -#ifndef HAVE_LOCALTIME_R -# define HAVE_LOCALTIME_R 1 -#endif - -#ifndef HAVE_LOCALTIME_RZ -# ifdef TM_ZONE -# define HAVE_LOCALTIME_RZ (NETBSD_INSPIRED && USE_LTZ) -# else -# define HAVE_LOCALTIME_RZ 0 -# endif -#endif - -#ifndef HAVE_TZSET -# define HAVE_TZSET 1 -#endif - -#ifndef ZDUMP_LO_YEAR -#define ZDUMP_LO_YEAR (-500) -#endif /* !defined ZDUMP_LO_YEAR */ - -#ifndef ZDUMP_HI_YEAR -#define ZDUMP_HI_YEAR 2500 -#endif /* !defined ZDUMP_HI_YEAR */ - -#ifndef MAX_STRING_LENGTH -#define MAX_STRING_LENGTH 1024 -#endif /* !defined MAX_STRING_LENGTH */ - -#if __STDC_VERSION__ < 199901 -# define true 1 -# define false 0 -# define bool int -#else -# include -#endif - -#ifndef EXIT_SUCCESS -#define EXIT_SUCCESS 0 -#endif /* !defined EXIT_SUCCESS */ - -#ifndef EXIT_FAILURE -#define EXIT_FAILURE 1 -#endif /* !defined EXIT_FAILURE */ - -#ifndef SECSPERMIN -#define SECSPERMIN 60 -#endif /* !defined SECSPERMIN */ - -#ifndef MINSPERHOUR -#define MINSPERHOUR 60 -#endif /* !defined MINSPERHOUR */ - -#ifndef SECSPERHOUR -#define SECSPERHOUR (SECSPERMIN * MINSPERHOUR) -#endif /* !defined SECSPERHOUR */ - -#ifndef HOURSPERDAY -#define HOURSPERDAY 24 -#endif /* !defined HOURSPERDAY */ - -#ifndef EPOCH_YEAR -#define EPOCH_YEAR 1970 -#endif /* !defined EPOCH_YEAR */ - -#ifndef TM_YEAR_BASE -#define TM_YEAR_BASE 1900 -#endif /* !defined TM_YEAR_BASE */ - -#ifndef DAYSPERNYEAR -#define DAYSPERNYEAR 365 -#endif /* !defined DAYSPERNYEAR */ - -#ifndef isleap -#define isleap(y) (((y) % 4) == 0 && (((y) % 100) != 0 || ((y) % 400) == 0)) -#endif /* !defined isleap */ - -#ifndef isleap_sum -/* -** See tzfile.h for details on isleap_sum. -*/ -#define isleap_sum(a, b) isleap((a) % 400 + (b) % 400) -#endif /* !defined isleap_sum */ - -#define SECSPERDAY ((int_fast32_t) SECSPERHOUR * HOURSPERDAY) -#define SECSPERNYEAR (SECSPERDAY * DAYSPERNYEAR) -#define SECSPERLYEAR (SECSPERNYEAR + SECSPERDAY) -#define SECSPER400YEARS (SECSPERNYEAR * (intmax_t) (300 + 3) \ - + SECSPERLYEAR * (intmax_t) (100 - 3)) - -/* -** True if SECSPER400YEARS is known to be representable as an -** intmax_t. It's OK that SECSPER400YEARS_FITS can in theory be false -** even if SECSPER400YEARS is representable, because when that happens -** the code merely runs a bit more slowly, and this slowness doesn't -** occur on any practical platform. -*/ -enum { SECSPER400YEARS_FITS = SECSPERLYEAR <= INTMAX_MAX / 400 }; - -#ifndef HAVE_GETTEXT -#define HAVE_GETTEXT 0 -#endif -#if HAVE_GETTEXT -#include "locale.h" /* for setlocale */ -#include "libintl.h" -#endif /* HAVE_GETTEXT */ - -#if 2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__) -# define ATTRIBUTE_PURE __attribute__ ((__pure__)) -#else -# define ATTRIBUTE_PURE /* empty */ -#endif - -/* -** For the benefit of GNU folk... -** '_(MSGID)' uses the current locale's message library string for MSGID. -** The default is to use gettext if available, and use MSGID otherwise. -*/ - -#ifndef _ -#if HAVE_GETTEXT -#define _(msgid) gettext(msgid) -#else /* !HAVE_GETTEXT */ -#define _(msgid) msgid -#endif /* !HAVE_GETTEXT */ -#endif /* !defined _ */ - -#if !defined TZ_DOMAIN && defined HAVE_GETTEXT -# define TZ_DOMAIN "tz" -#endif - -#if ! HAVE_LOCALTIME_RZ -# undef timezone_t -# define timezone_t char ** -#endif - -extern char ** environ; -extern int getopt(int argc, char * const argv[], - const char * options); -extern char * optarg; -extern int optind; -extern char * tzname[2]; - -/* The minimum and maximum finite time values. */ -enum { atime_shift = CHAR_BIT * sizeof (time_t) - 2 }; -static time_t const absolute_min_time = - ((time_t) -1 < 0 - ? (- ((time_t) ~ (time_t) 0 < 0) - - (((time_t) 1 << atime_shift) - 1 + ((time_t) 1 << atime_shift))) - : 0); -static time_t const absolute_max_time = - ((time_t) -1 < 0 - ? (((time_t) 1 << atime_shift) - 1 + ((time_t) 1 << atime_shift)) - : -1); -static int longest; -static char * progname; -static bool warned; -static bool errout; - -static char const *abbr(struct tm const *); -static intmax_t delta(struct tm *, struct tm *) ATTRIBUTE_PURE; -static void dumptime(struct tm const *); -static time_t hunt(timezone_t, char *, time_t, time_t); -static void show(timezone_t, char *, time_t, bool); -static const char *tformat(void); -static time_t yeartot(intmax_t) ATTRIBUTE_PURE; - -/* Unlike 's isdigit, this also works if c < 0 | c > UCHAR_MAX. */ -#define is_digit(c) ((unsigned)(c) - '0' <= 9) - -/* Is A an alphabetic character in the C locale? */ -static bool -is_alpha(char a) -{ - switch (a) { - default: - return false; - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - case 'G': - case 'H': - case 'I': - case 'J': - case 'K': - case 'L': - case 'M': - case 'N': - case 'O': - case 'P': - case 'Q': - case 'R': - case 'S': - case 'T': - case 'U': - case 'V': - case 'W': - case 'X': - case 'Y': - case 'Z': - case 'a': - case 'b': - case 'c': - case 'd': - case 'e': - case 'f': - case 'g': - case 'h': - case 'i': - case 'j': - case 'k': - case 'l': - case 'm': - case 'n': - case 'o': - case 'p': - case 'q': - case 'r': - case 's': - case 't': - case 'u': - case 'v': - case 'w': - case 'x': - case 'y': - case 'z': - return true; - } -} - -/* Return A + B, exiting if the result would overflow. */ -static size_t -sumsize(size_t a, size_t b) -{ - size_t sum = a + b; - if (sum < a) { - fprintf(stderr, "%s: size overflow\n", progname); - exit(EXIT_FAILURE); - } - return sum; -} - -#if ! HAVE_TZSET -# undef tzset -# define tzset zdump_tzset -static void tzset(void) { } -#endif - -/* Assume gmtime_r works if localtime_r does. - A replacement localtime_r is defined below if needed. */ -#if ! HAVE_LOCALTIME_R - -# undef gmtime_r -# define gmtime_r zdump_gmtime_r - -static struct tm * -gmtime_r(time_t *tp, struct tm *tmp) -{ - struct tm *r = gmtime(tp); - if (r) { - *tmp = *r; - r = tmp; - } - return r; -} - -#endif - -/* Platforms with TM_ZONE don't need tzname, so they can use the - faster localtime_rz or localtime_r if available. */ - -#if defined TM_ZONE && HAVE_LOCALTIME_RZ -# define USE_LOCALTIME_RZ true -#else -# define USE_LOCALTIME_RZ false -#endif - -#if ! USE_LOCALTIME_RZ - -# if !defined TM_ZONE || ! HAVE_LOCALTIME_R || ! HAVE_TZSET -# undef localtime_r -# define localtime_r zdump_localtime_r -static struct tm * -localtime_r(time_t *tp, struct tm *tmp) -{ - struct tm *r = localtime(tp); - if (r) { - *tmp = *r; - r = tmp; - } - return r; -} -# endif - -# undef localtime_rz -# define localtime_rz zdump_localtime_rz -static struct tm * -localtime_rz(timezone_t rz, time_t *tp, struct tm *tmp) -{ - return localtime_r(tp, tmp); -} - -# ifdef TYPECHECK -# undef mktime_z -# define mktime_z zdump_mktime_z -static time_t -mktime_z(timezone_t tz, struct tm *tmp) -{ - return mktime(tmp); -} -# endif - -# undef tzalloc -# undef tzfree -# define tzalloc zdump_tzalloc -# define tzfree zdump_tzfree - -static timezone_t -tzalloc(char const *val) -{ - static char **fakeenv; - char **env = fakeenv; - char *env0; - if (! env) { - char **e = environ; - int to; - - while (*e++) - continue; - env = malloc(sumsize(sizeof *environ, - (e - environ) * sizeof *environ)); - if (! env) { - perror(progname); - exit(EXIT_FAILURE); - } - to = 1; - for (e = environ; (env[to] = *e); e++) - to += strncmp(*e, "TZ=", 3) != 0; - } - env0 = malloc(sumsize(sizeof "TZ=", strlen(val))); - if (! env0) { - perror(progname); - exit(EXIT_FAILURE); - } - env[0] = strcat(strcpy(env0, "TZ="), val); - environ = fakeenv = env; - tzset(); - return env; -} - -static void -tzfree(timezone_t env) -{ - environ = env + 1; - free(env[0]); -} -#endif /* ! USE_LOCALTIME_RZ */ - -/* A UTC time zone, and its initializer. */ -static timezone_t gmtz; -static void -gmtzinit(void) -{ - if (USE_LOCALTIME_RZ) { - static char const utc[] = "UTC0"; - gmtz = tzalloc(utc); - if (!gmtz) { - perror(utc); - exit(EXIT_FAILURE); - } - } -} - -/* Convert *TP to UTC, storing the broken-down time into *TMP. - Return TMP if successful, NULL otherwise. This is like gmtime_r(TP, TMP), - except typically faster if USE_LOCALTIME_RZ. */ -static struct tm * -my_gmtime_r(time_t *tp, struct tm *tmp) -{ - return USE_LOCALTIME_RZ ? localtime_rz(gmtz, tp, tmp) : gmtime_r(tp, tmp); -} - -#ifndef TYPECHECK -# define my_localtime_rz localtime_rz -#else /* !defined TYPECHECK */ - -static struct tm * -my_localtime_rz(timezone_t tz, time_t *tp, struct tm *tmp) -{ - tmp = localtime_rz(tz, tp, tmp); - if (tmp) { - struct tm tm; - register time_t t; - - tm = *tmp; - t = mktime_z(tz, &tm); - if (t != *tp) { - fflush(stdout); - fprintf(stderr, "\n%s: ", progname); - fprintf(stderr, tformat(), *tp); - fprintf(stderr, " ->"); - fprintf(stderr, " year=%d", tmp->tm_year); - fprintf(stderr, " mon=%d", tmp->tm_mon); - fprintf(stderr, " mday=%d", tmp->tm_mday); - fprintf(stderr, " hour=%d", tmp->tm_hour); - fprintf(stderr, " min=%d", tmp->tm_min); - fprintf(stderr, " sec=%d", tmp->tm_sec); - fprintf(stderr, " isdst=%d", tmp->tm_isdst); - fprintf(stderr, " -> "); - fprintf(stderr, tformat(), t); - fprintf(stderr, "\n"); - errout = true; - } - } - return tmp; -} -#endif /* !defined TYPECHECK */ - -static void -abbrok(const char *const abbrp, const char *const zone) -{ - register const char * cp; - register const char * wp; - - if (warned) - return; - cp = abbrp; - while (is_alpha(*cp) || is_digit(*cp) || *cp == '-' || *cp == '+') - ++cp; - if (cp - abbrp < 3) - wp = _("has fewer than 3 characters"); - else if (cp - abbrp > 6) - wp = _("has more than 6 characters"); - else if (*cp) - wp = _("has characters other than ASCII alphanumerics, '-' or '+'"); - else - return; - fflush(stdout); - fprintf(stderr, - _("%s: warning: zone \"%s\" abbreviation \"%s\" %s\n"), - progname, zone, abbrp, wp); - warned = errout = true; -} - -/* Return a time zone abbreviation. If the abbreviation needs to be - saved, use *BUF (of size *BUFALLOC) to save it, and return the - abbreviation in the possibly-reallocated *BUF. Otherwise, just - return the abbreviation. Get the abbreviation from TMP. - Exit on memory allocation failure. */ -static char const * -saveabbr(char **buf, size_t *bufalloc, struct tm const *tmp) -{ - char const *ab = abbr(tmp); - if (HAVE_LOCALTIME_RZ) - return ab; - else { - size_t ablen = strlen(ab); - if (*bufalloc <= ablen) { - free(*buf); - - /* Make the new buffer at least twice as long as the old, - to avoid O(N**2) behavior on repeated calls. */ - *bufalloc = sumsize(*bufalloc, ablen + 1); - - *buf = malloc(*bufalloc); - if (! *buf) { - perror(progname); - exit(EXIT_FAILURE); - } - } - return strcpy(*buf, ab); - } -} - -static void -close_file(FILE *stream) -{ - char const *e = (ferror(stream) ? _("I/O error") - : fclose(stream) != 0 ? strerror(errno) : NULL); - if (e) { - fprintf(stderr, "%s: %s\n", progname, e); - exit(EXIT_FAILURE); - } -} - -static void -usage(FILE * const stream, const int status) -{ - fprintf(stream, - _("%s: usage: %s [--version] [--help] [-{vV}] [-{ct} [lo,]hi] zonename ...\n" - "\n" - "Report bugs to %s.\n"), - progname, progname, REPORT_BUGS_TO); - if (status == EXIT_SUCCESS) - close_file(stream); - exit(status); -} - -int -main(int argc, char *argv[]) -{ - /* These are static so that they're initially zero. */ - static char * abbrev; - static size_t abbrevsize; - static struct tm newtm; - - register int i; - register bool vflag; - register bool Vflag; - register char * cutarg; - register char * cuttimes; - register time_t cutlotime; - register time_t cuthitime; - time_t now; - time_t t; - time_t newt; - struct tm tm; - register struct tm * tmp; - register struct tm * newtmp; - - cutlotime = absolute_min_time; - cuthitime = absolute_max_time; -#if HAVE_GETTEXT - setlocale(LC_ALL, ""); -#ifdef TZ_DOMAINDIR - bindtextdomain(TZ_DOMAIN, TZ_DOMAINDIR); -#endif /* defined TEXTDOMAINDIR */ - textdomain(TZ_DOMAIN); -#endif /* HAVE_GETTEXT */ - progname = argv[0]; - for (i = 1; i < argc; ++i) - if (strcmp(argv[i], "--version") == 0) { - printf("zdump %s%s\n", PKGVERSION, TZVERSION); - return EXIT_SUCCESS; - } else if (strcmp(argv[i], "--help") == 0) { - usage(stdout, EXIT_SUCCESS); - } - vflag = Vflag = false; - cutarg = cuttimes = NULL; - for (;;) - switch (getopt(argc, argv, "c:t:vV")) { - case 'c': - cutarg = optarg; - break; - case 't': - cuttimes = optarg; - break; - case 'v': - vflag = true; - break; - case 'V': - Vflag = true; - break; - case -1: - if (! (optind == argc - 1 && strcmp(argv[optind], "=") == 0)) - goto arg_processing_done; - /* Fall through. */ - default: - usage(stderr, EXIT_FAILURE); - } -arg_processing_done: - ; - - if (vflag | Vflag) { - intmax_t lo; - intmax_t hi; - char *loend, *hiend; - register intmax_t cutloyear = ZDUMP_LO_YEAR; - register intmax_t cuthiyear = ZDUMP_HI_YEAR; - if (cutarg != NULL) { - lo = strtoimax(cutarg, &loend, 10); - if (cutarg != loend && !*loend) { - hi = lo; - cuthiyear = hi; - } else if (cutarg != loend && *loend == ',' - && (hi = strtoimax(loend + 1, &hiend, 10), - loend + 1 != hiend && !*hiend)) { - cutloyear = lo; - cuthiyear = hi; - } else { - fprintf(stderr, _("%s: wild -c argument %s\n"), - progname, cutarg); - return EXIT_FAILURE; - } - } - if (cutarg != NULL || cuttimes == NULL) { - cutlotime = yeartot(cutloyear); - cuthitime = yeartot(cuthiyear); - } - if (cuttimes != NULL) { - lo = strtoimax(cuttimes, &loend, 10); - if (cuttimes != loend && !*loend) { - hi = lo; - if (hi < cuthitime) { - if (hi < absolute_min_time) - hi = absolute_min_time; - cuthitime = hi; - } - } else if (cuttimes != loend && *loend == ',' - && (hi = strtoimax(loend + 1, &hiend, 10), - loend + 1 != hiend && !*hiend)) { - if (cutlotime < lo) { - if (absolute_max_time < lo) - lo = absolute_max_time; - cutlotime = lo; - } - if (hi < cuthitime) { - if (hi < absolute_min_time) - hi = absolute_min_time; - cuthitime = hi; - } - } else { - fprintf(stderr, - _("%s: wild -t argument %s\n"), - progname, cuttimes); - return EXIT_FAILURE; - } - } - } - gmtzinit(); - now = time(NULL); - longest = 0; - for (i = optind; i < argc; i++) { - size_t arglen = strlen(argv[i]); - if (longest < arglen) - longest = arglen < INT_MAX ? arglen : INT_MAX; - } - - for (i = optind; i < argc; ++i) { - timezone_t tz = tzalloc(argv[i]); - char const *ab; - if (!tz) { - perror(argv[i]); - return EXIT_FAILURE; - } - if (! (vflag | Vflag)) { - show(tz, argv[i], now, false); - tzfree(tz); - continue; - } - warned = false; - t = absolute_min_time; - if (!Vflag) { - show(tz, argv[i], t, true); - t += SECSPERDAY; - show(tz, argv[i], t, true); - } - if (t < cutlotime) - t = cutlotime; - tmp = my_localtime_rz(tz, &t, &tm); - if (tmp) - ab = saveabbr(&abbrev, &abbrevsize, &tm); - while (t < cuthitime) { - newt = ((t < absolute_max_time - SECSPERDAY / 2 - && t + SECSPERDAY / 2 < cuthitime) - ? t + SECSPERDAY / 2 - : cuthitime); - newtmp = localtime_rz(tz, &newt, &newtm); - if ((tmp == NULL || newtmp == NULL) ? (tmp != newtmp) : - (delta(&newtm, &tm) != (newt - t) || - newtm.tm_isdst != tm.tm_isdst || - strcmp(abbr(&newtm), ab) != 0)) { - newt = hunt(tz, argv[i], t, newt); - newtmp = localtime_rz(tz, &newt, &newtm); - if (newtmp) - ab = saveabbr(&abbrev, &abbrevsize, - &newtm); - } - t = newt; - tm = newtm; - tmp = newtmp; - } - if (!Vflag) { - t = absolute_max_time; - t -= SECSPERDAY; - show(tz, argv[i], t, true); - t += SECSPERDAY; - show(tz, argv[i], t, true); - } - tzfree(tz); - } - close_file(stdout); - if (errout && (ferror(stderr) || fclose(stderr) != 0)) - return EXIT_FAILURE; - return EXIT_SUCCESS; -} - -static time_t -yeartot(const intmax_t y) -{ - register intmax_t myy, seconds, years; - register time_t t; - - myy = EPOCH_YEAR; - t = 0; - while (myy < y) { - if (SECSPER400YEARS_FITS && 400 <= y - myy) { - intmax_t diff400 = (y - myy) / 400; - if (INTMAX_MAX / SECSPER400YEARS < diff400) - return absolute_max_time; - seconds = diff400 * SECSPER400YEARS; - years = diff400 * 400; - } else { - seconds = isleap(myy) ? SECSPERLYEAR : SECSPERNYEAR; - years = 1; - } - myy += years; - if (t > absolute_max_time - seconds) - return absolute_max_time; - t += seconds; - } - while (y < myy) { - if (SECSPER400YEARS_FITS && y + 400 <= myy && myy < 0) { - intmax_t diff400 = (myy - y) / 400; - if (INTMAX_MAX / SECSPER400YEARS < diff400) - return absolute_min_time; - seconds = diff400 * SECSPER400YEARS; - years = diff400 * 400; - } else { - seconds = isleap(myy - 1) ? SECSPERLYEAR : SECSPERNYEAR; - years = 1; - } - myy -= years; - if (t < absolute_min_time + seconds) - return absolute_min_time; - t -= seconds; - } - return t; -} - -static time_t -hunt(timezone_t tz, char *name, time_t lot, time_t hit) -{ - static char * loab; - static size_t loabsize; - char const * ab; - time_t t; - struct tm lotm; - register struct tm * lotmp; - struct tm tm; - register struct tm * tmp; - - lotmp = my_localtime_rz(tz, &lot, &lotm); - if (lotmp) - ab = saveabbr(&loab, &loabsize, &lotm); - for ( ; ; ) { - time_t diff = hit - lot; - if (diff < 2) - break; - t = lot; - t += diff / 2; - if (t <= lot) - ++t; - else if (t >= hit) - --t; - tmp = my_localtime_rz(tz, &t, &tm); - if ((lotmp == NULL || tmp == NULL) ? (lotmp == tmp) : - (delta(&tm, &lotm) == (t - lot) && - tm.tm_isdst == lotm.tm_isdst && - strcmp(abbr(&tm), ab) == 0)) { - lot = t; - lotm = tm; - lotmp = tmp; - } else hit = t; - } - show(tz, name, lot, true); - show(tz, name, hit, true); - return hit; -} - -/* -** Thanks to Paul Eggert for logic used in delta. -*/ - -static intmax_t -delta(struct tm * newp, struct tm *oldp) -{ - register intmax_t result; - register int tmy; - - if (newp->tm_year < oldp->tm_year) - return -delta(oldp, newp); - result = 0; - for (tmy = oldp->tm_year; tmy < newp->tm_year; ++tmy) - result += DAYSPERNYEAR + isleap_sum(tmy, TM_YEAR_BASE); - result += newp->tm_yday - oldp->tm_yday; - result *= HOURSPERDAY; - result += newp->tm_hour - oldp->tm_hour; - result *= MINSPERHOUR; - result += newp->tm_min - oldp->tm_min; - result *= SECSPERMIN; - result += newp->tm_sec - oldp->tm_sec; - return result; -} - -#ifndef TM_GMTOFF -/* Return A->tm_yday, adjusted to compare it fairly to B->tm_yday. - Assume A and B differ by at most one year. */ -static int -adjusted_yday(struct tm const *a, struct tm const *b) -{ - int yday = a->tm_yday; - if (b->tm_year < a->tm_year) - yday += 365 + isleap_sum(b->tm_year, TM_YEAR_BASE); - return yday; -} -#endif - -/* If A is the broken-down local time and B the broken-down UTC for - the same instant, return A's UTC offset in seconds, where positive - offsets are east of Greenwich. On failure, return LONG_MIN. */ -static long -gmtoff(struct tm const *a, struct tm const *b) -{ -#ifdef TM_GMTOFF - return a->TM_GMTOFF; -#else - if (! b) - return LONG_MIN; - else { - int ayday = adjusted_yday(a, b); - int byday = adjusted_yday(b, a); - int days = ayday - byday; - long hours = a->tm_hour - b->tm_hour + 24 * days; - long minutes = a->tm_min - b->tm_min + 60 * hours; - long seconds = a->tm_sec - b->tm_sec + 60 * minutes; - return seconds; - } -#endif -} - -static void -show(timezone_t tz, char *zone, time_t t, bool v) -{ - register struct tm * tmp; - register struct tm * gmtmp; - struct tm tm, gmtm; - - printf("%-*s ", longest, zone); - if (v) { - gmtmp = my_gmtime_r(&t, &gmtm); - if (gmtmp == NULL) { - printf(tformat(), t); - } else { - dumptime(gmtmp); - printf(" UT"); - } - printf(" = "); - } - tmp = my_localtime_rz(tz, &t, &tm); - dumptime(tmp); - if (tmp != NULL) { - if (*abbr(tmp) != '\0') - printf(" %s", abbr(tmp)); - if (v) { - long off = gmtoff(tmp, gmtmp); - printf(" isdst=%d", tmp->tm_isdst); - if (off != LONG_MIN) - printf(" gmtoff=%ld", off); - } - } - printf("\n"); - if (tmp != NULL && *abbr(tmp) != '\0') - abbrok(abbr(tmp), zone); -} - -static char const * -abbr(struct tm const *tmp) -{ -#ifdef TM_ZONE - return tmp->TM_ZONE; -#else - return (0 <= tmp->tm_isdst && tzname[0 < tmp->tm_isdst] - ? tzname[0 < tmp->tm_isdst] - : ""); -#endif -} - -/* -** The code below can fail on certain theoretical systems; -** it works on all known real-world systems as of 2004-12-30. -*/ - -static const char * -tformat(void) -{ - if (0 > (time_t) -1) { /* signed */ - if (sizeof (time_t) == sizeof (intmax_t)) - return "%"PRIdMAX; - if (sizeof (time_t) > sizeof (long)) - return "%lld"; - if (sizeof (time_t) > sizeof (int)) - return "%ld"; - return "%d"; - } -#ifdef PRIuMAX - if (sizeof (time_t) == sizeof (uintmax_t)) - return "%"PRIuMAX; -#endif - if (sizeof (time_t) > sizeof (unsigned long)) - return "%llu"; - if (sizeof (time_t) > sizeof (unsigned int)) - return "%lu"; - return "%u"; -} - -static void -dumptime(register const struct tm *timeptr) -{ - static const char wday_name[][3] = { - "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" - }; - static const char mon_name[][3] = { - "Jan", "Feb", "Mar", "Apr", "May", "Jun", - "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" - }; - register const char * wn; - register const char * mn; - register int lead; - register int trail; - - if (timeptr == NULL) { - printf("NULL"); - return; - } - /* - ** The packaged localtime_rz and gmtime_r never put out-of-range - ** values in tm_wday or tm_mon, but since this code might be compiled - ** with other (perhaps experimental) versions, paranoia is in order. - */ - if (timeptr->tm_wday < 0 || timeptr->tm_wday >= - (int) (sizeof wday_name / sizeof wday_name[0])) - wn = "???"; - else wn = wday_name[timeptr->tm_wday]; - if (timeptr->tm_mon < 0 || timeptr->tm_mon >= - (int) (sizeof mon_name / sizeof mon_name[0])) - mn = "???"; - else mn = mon_name[timeptr->tm_mon]; - printf("%.3s %.3s%3d %.2d:%.2d:%.2d ", - wn, mn, - timeptr->tm_mday, timeptr->tm_hour, - timeptr->tm_min, timeptr->tm_sec); -#define DIVISOR 10 - trail = timeptr->tm_year % DIVISOR + TM_YEAR_BASE % DIVISOR; - lead = timeptr->tm_year / DIVISOR + TM_YEAR_BASE / DIVISOR + - trail / DIVISOR; - trail %= DIVISOR; - if (trail < 0 && lead > 0) { - trail += DIVISOR; - --lead; - } else if (lead < 0 && trail > 0) { - trail -= DIVISOR; - ++lead; - } - if (lead == 0) - printf("%d", trail); - else printf("%d%d", lead, ((trail < 0) ? -trail : trail)); -} diff --git a/utility/zic2.c b/utility/zic2.c deleted file mode 100644 index e554e3a..0000000 --- a/utility/zic2.c +++ /dev/null @@ -1,3116 +0,0 @@ -/* -** This file is in the public domain, so clarified as of -** 2006-07-17 by Arthur David Olson. -*/ - -#include "version.h" -#include "private.h" -#include "locale.h" -#include "tzfile.h" - -#include - -#define ZIC_VERSION_PRE_2013 '2' -#define ZIC_VERSION '3' - -typedef int_fast64_t zic_t; -#define ZIC_MIN INT_FAST64_MIN -#define ZIC_MAX INT_FAST64_MAX -#define SCNdZIC SCNdFAST64 - -#ifndef ZIC_MAX_ABBR_LEN_WO_WARN -#define ZIC_MAX_ABBR_LEN_WO_WARN 6 -#endif /* !defined ZIC_MAX_ABBR_LEN_WO_WARN */ - -#if HAVE_SYS_STAT_H -#include -#endif -#ifdef S_IRUSR -#define MKDIR_UMASK (S_IRUSR|S_IWUSR|S_IXUSR|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH) -#else -#define MKDIR_UMASK 0755 -#endif - -struct rule { - const char * r_filename; - int r_linenum; - const char * r_name; - - zic_t r_loyear; /* for example, 1986 */ - zic_t r_hiyear; /* for example, 1986 */ - const char * r_yrtype; - bool r_lowasnum; - bool r_hiwasnum; - - int r_month; /* 0..11 */ - - int r_dycode; /* see below */ - int r_dayofmonth; - int r_wday; - - zic_t r_tod; /* time from midnight */ - bool r_todisstd; /* above is standard time if 1 */ - /* or wall clock time if 0 */ - bool r_todisgmt; /* above is GMT if 1 */ - /* or local time if 0 */ - zic_t r_stdoff; /* offset from standard time */ - const char * r_abbrvar; /* variable part of abbreviation */ - - int r_todo; /* a rule to do (used in outzone) */ - zic_t r_temp; /* used in outzone */ -}; - -/* -** r_dycode r_dayofmonth r_wday -*/ - -#define DC_DOM 0 /* 1..31 */ /* unused */ -#define DC_DOWGEQ 1 /* 1..31 */ /* 0..6 (Sun..Sat) */ -#define DC_DOWLEQ 2 /* 1..31 */ /* 0..6 (Sun..Sat) */ - -struct zone { - const char * z_filename; - int z_linenum; - - const char * z_name; - zic_t z_gmtoff; - const char * z_rule; - const char * z_format; - char z_format_specifier; - - zic_t z_stdoff; - - struct rule * z_rules; - int z_nrules; - - struct rule z_untilrule; - zic_t z_untiltime; -}; - -extern int getopt(int argc, char * const argv[], - const char * options); -extern int link(const char * fromname, const char * toname); -extern char * optarg; -extern int optind; - -#if ! HAVE_LINK -# define link(from, to) (-1) -#endif -#if ! HAVE_SYMLINK -# define symlink(from, to) (-1) -#endif - -static void addtt(zic_t starttime, int type); -static int addtype(zic_t, char const *, bool, bool, bool); -static void leapadd(zic_t, bool, int, int); -static void adjleap(void); -static void associate(void); -static void dolink(const char * fromfield, const char * tofield); -static char ** getfields(char * buf); -static zic_t gethms(const char * string, const char * errstring, - bool); -static void infile(const char * filename); -static void inleap(char ** fields, int nfields); -static void inlink(char ** fields, int nfields); -static void inrule(char ** fields, int nfields); -static bool inzcont(char ** fields, int nfields); -static bool inzone(char ** fields, int nfields); -static bool inzsub(char **, int, bool); -static int itsdir(const char * name); -static bool is_alpha(char a); -static char lowerit(char); -static bool mkdirs(char *); -static void newabbr(const char * abbr); -static zic_t oadd(zic_t t1, zic_t t2); -static void outzone(const struct zone * zp, int ntzones); -static zic_t rpytime(const struct rule * rp, zic_t wantedy); -static void rulesub(struct rule * rp, - const char * loyearp, const char * hiyearp, - const char * typep, const char * monthp, - const char * dayp, const char * timep); -static zic_t tadd(zic_t t1, zic_t t2); -static bool yearistype(int year, const char * type); - -/* Bound on length of what %z can expand to. */ -enum { PERCENT_Z_LEN_BOUND = sizeof "+995959" - 1 }; - -static int charcnt; -static bool errors; -static bool warnings; -static const char * filename; -static int leapcnt; -static bool leapseen; -static zic_t leapminyear; -static zic_t leapmaxyear; -static int linenum; -static int max_abbrvar_len = PERCENT_Z_LEN_BOUND; -static int max_format_len; -static zic_t max_year; -static zic_t min_year; -static bool noise; -static const char * rfilename; -static int rlinenum; -static const char * progname; -static int timecnt; -static int timecnt_alloc; -static int typecnt; - -/* -** Line codes. -*/ - -#define LC_RULE 0 -#define LC_ZONE 1 -#define LC_LINK 2 -#define LC_LEAP 3 - -/* -** Which fields are which on a Zone line. -*/ - -#define ZF_NAME 1 -#define ZF_GMTOFF 2 -#define ZF_RULE 3 -#define ZF_FORMAT 4 -#define ZF_TILYEAR 5 -#define ZF_TILMONTH 6 -#define ZF_TILDAY 7 -#define ZF_TILTIME 8 -#define ZONE_MINFIELDS 5 -#define ZONE_MAXFIELDS 9 - -/* -** Which fields are which on a Zone continuation line. -*/ - -#define ZFC_GMTOFF 0 -#define ZFC_RULE 1 -#define ZFC_FORMAT 2 -#define ZFC_TILYEAR 3 -#define ZFC_TILMONTH 4 -#define ZFC_TILDAY 5 -#define ZFC_TILTIME 6 -#define ZONEC_MINFIELDS 3 -#define ZONEC_MAXFIELDS 7 - -/* -** Which files are which on a Rule line. -*/ - -#define RF_NAME 1 -#define RF_LOYEAR 2 -#define RF_HIYEAR 3 -#define RF_COMMAND 4 -#define RF_MONTH 5 -#define RF_DAY 6 -#define RF_TOD 7 -#define RF_STDOFF 8 -#define RF_ABBRVAR 9 -#define RULE_FIELDS 10 - -/* -** Which fields are which on a Link line. -*/ - -#define LF_FROM 1 -#define LF_TO 2 -#define LINK_FIELDS 3 - -/* -** Which fields are which on a Leap line. -*/ - -#define LP_YEAR 1 -#define LP_MONTH 2 -#define LP_DAY 3 -#define LP_TIME 4 -#define LP_CORR 5 -#define LP_ROLL 6 -#define LEAP_FIELDS 7 - -/* -** Year synonyms. -*/ - -#define YR_MINIMUM 0 -#define YR_MAXIMUM 1 -#define YR_ONLY 2 - -static struct rule * rules; -static int nrules; /* number of rules */ -static int nrules_alloc; - -static struct zone * zones; -static int nzones; /* number of zones */ -static int nzones_alloc; - -struct link { - const char * l_filename; - int l_linenum; - const char * l_from; - const char * l_to; -}; - -static struct link * links; -static int nlinks; -static int nlinks_alloc; - -struct lookup { - const char * l_word; - const int l_value; -}; - -static struct lookup const * byword(const char * string, - const struct lookup * lp); - -static struct lookup const line_codes[] = { - { "Rule", LC_RULE }, - { "Zone", LC_ZONE }, - { "Link", LC_LINK }, - { "Leap", LC_LEAP }, - { NULL, 0} -}; - -static struct lookup const mon_names[] = { - { "January", TM_JANUARY }, - { "February", TM_FEBRUARY }, - { "March", TM_MARCH }, - { "April", TM_APRIL }, - { "May", TM_MAY }, - { "June", TM_JUNE }, - { "July", TM_JULY }, - { "August", TM_AUGUST }, - { "September", TM_SEPTEMBER }, - { "October", TM_OCTOBER }, - { "November", TM_NOVEMBER }, - { "December", TM_DECEMBER }, - { NULL, 0 } -}; - -static struct lookup const wday_names[] = { - { "Sunday", TM_SUNDAY }, - { "Monday", TM_MONDAY }, - { "Tuesday", TM_TUESDAY }, - { "Wednesday", TM_WEDNESDAY }, - { "Thursday", TM_THURSDAY }, - { "Friday", TM_FRIDAY }, - { "Saturday", TM_SATURDAY }, - { NULL, 0 } -}; - -static struct lookup const lasts[] = { - { "last-Sunday", TM_SUNDAY }, - { "last-Monday", TM_MONDAY }, - { "last-Tuesday", TM_TUESDAY }, - { "last-Wednesday", TM_WEDNESDAY }, - { "last-Thursday", TM_THURSDAY }, - { "last-Friday", TM_FRIDAY }, - { "last-Saturday", TM_SATURDAY }, - { NULL, 0 } -}; - -static struct lookup const begin_years[] = { - { "minimum", YR_MINIMUM }, - { "maximum", YR_MAXIMUM }, - { NULL, 0 } -}; - -static struct lookup const end_years[] = { - { "minimum", YR_MINIMUM }, - { "maximum", YR_MAXIMUM }, - { "only", YR_ONLY }, - { NULL, 0 } -}; - -static struct lookup const leap_types[] = { - { "Rolling", true }, - { "Stationary", false }, - { NULL, 0 } -}; - -static const int len_months[2][MONSPERYEAR] = { - { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }, - { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 } -}; - -static const int len_years[2] = { - DAYSPERNYEAR, DAYSPERLYEAR -}; - -static struct attype { - zic_t at; - unsigned char type; -} * attypes; -static zic_t gmtoffs[TZ_MAX_TYPES]; -static char isdsts[TZ_MAX_TYPES]; -static unsigned char abbrinds[TZ_MAX_TYPES]; -static bool ttisstds[TZ_MAX_TYPES]; -static bool ttisgmts[TZ_MAX_TYPES]; -static char chars[TZ_MAX_CHARS]; -static zic_t trans[TZ_MAX_LEAPS]; -static zic_t corr[TZ_MAX_LEAPS]; -static char roll[TZ_MAX_LEAPS]; - -/* -** Memory allocation. -*/ - -static _Noreturn void -memory_exhausted(const char *msg) -{ - fprintf(stderr, _("%s: Memory exhausted: %s\n"), progname, msg); - exit(EXIT_FAILURE); -} - -static ATTRIBUTE_PURE size_t -size_product(size_t nitems, size_t itemsize) -{ - if (SIZE_MAX / itemsize < nitems) - memory_exhausted(_("size overflow")); - return nitems * itemsize; -} - -#if !HAVE_STRDUP -static char * -strdup(char const *str) -{ - char *result = malloc(strlen(str) + 1); - return result ? strcpy(result, str) : result; -} -#endif - -static ATTRIBUTE_PURE void * -memcheck(void *ptr) -{ - if (ptr == NULL) - memory_exhausted(strerror(errno)); - return ptr; -} - -static void * -emalloc(size_t size) -{ - return memcheck(malloc(size)); -} - -static void * -erealloc(void *ptr, size_t size) -{ - return memcheck(realloc(ptr, size)); -} - -static char * -ecpyalloc (char const *str) -{ - return memcheck(strdup(str)); -} - -static void * -growalloc(void *ptr, size_t itemsize, int nitems, int *nitems_alloc) -{ - if (nitems < *nitems_alloc) - return ptr; - else { - int amax = INT_MAX < SIZE_MAX ? INT_MAX : SIZE_MAX; - if ((amax - 1) / 3 * 2 < *nitems_alloc) - memory_exhausted(_("int overflow")); - *nitems_alloc = *nitems_alloc + (*nitems_alloc >> 1) + 1; - return erealloc(ptr, size_product(*nitems_alloc, itemsize)); - } -} - -/* -** Error handling. -*/ - -static void -eats(const char *const name, const int num, const char *const rname, - const int rnum) -{ - filename = name; - linenum = num; - rfilename = rname; - rlinenum = rnum; -} - -static void -eat(const char *const name, const int num) -{ - eats(name, num, NULL, -1); -} - -static void ATTRIBUTE_FORMAT((printf, 1, 0)) -verror(const char *const string, va_list args) -{ - /* - ** Match the format of "cc" to allow sh users to - ** zic ... 2>&1 | error -t "*" -v - ** on BSD systems. - */ - if (filename) - fprintf(stderr, _("\"%s\", line %d: "), filename, linenum); - vfprintf(stderr, string, args); - if (rfilename != NULL) - fprintf(stderr, _(" (rule from \"%s\", line %d)"), - rfilename, rlinenum); - fprintf(stderr, "\n"); -} - -static void ATTRIBUTE_FORMAT((printf, 1, 2)) -error(const char *const string, ...) -{ - va_list args; - va_start(args, string); - verror(string, args); - va_end(args); - errors = true; -} - -static void ATTRIBUTE_FORMAT((printf, 1, 2)) -warning(const char *const string, ...) -{ - va_list args; - fprintf(stderr, _("warning: ")); - va_start(args, string); - verror(string, args); - va_end(args); - warnings = true; -} - -static void -close_file(FILE *stream, char const *name) -{ - char const *e = (ferror(stream) ? _("I/O error") - : fclose(stream) != 0 ? strerror(errno) : NULL); - if (e) { - fprintf(stderr, "%s: ", progname); - if (name) - fprintf(stderr, "%s: ", name); - fprintf(stderr, "%s\n", e); - exit(EXIT_FAILURE); - } -} - -static _Noreturn void -usage(FILE *stream, int status) -{ - fprintf(stream, - _("%s: usage is %s [ --version ] [ --help ] [ -v ] \\\n" - "\t[ -l localtime ] [ -p posixrules ] [ -d directory ] \\\n" - "\t[ -L leapseconds ] [ filename ... ]\n\n" - "Report bugs to %s.\n"), - progname, progname, REPORT_BUGS_TO); - if (status == EXIT_SUCCESS) - close_file(stream, NULL); - exit(status); -} - -static const char * psxrules; -static const char * lcltime; -static const char * directory; -static const char * leapsec; -static const char * yitcommand; - -int -main(int argc, char **argv) -{ - register int i; - register int j; - register int c; - -#ifdef S_IWGRP - umask(umask(S_IWGRP | S_IWOTH) | (S_IWGRP | S_IWOTH)); -#endif -#if HAVE_GETTEXT - setlocale(LC_ALL, ""); -#ifdef TZ_DOMAINDIR - bindtextdomain(TZ_DOMAIN, TZ_DOMAINDIR); -#endif /* defined TEXTDOMAINDIR */ - textdomain(TZ_DOMAIN); -#endif /* HAVE_GETTEXT */ - progname = argv[0]; - if (TYPE_BIT(zic_t) < 64) { - fprintf(stderr, "%s: %s\n", progname, - _("wild compilation-time specification of zic_t")); - return EXIT_FAILURE; - } - for (i = 1; i < argc; ++i) - if (strcmp(argv[i], "--version") == 0) { - printf("zic %s%s\n", PKGVERSION, TZVERSION); - close_file(stdout, NULL); - return EXIT_SUCCESS; - } else if (strcmp(argv[i], "--help") == 0) { - usage(stdout, EXIT_SUCCESS); - } - while ((c = getopt(argc, argv, "d:l:p:L:vsy:")) != EOF && c != -1) - switch (c) { - default: - usage(stderr, EXIT_FAILURE); - case 'd': - if (directory == NULL) - directory = optarg; - else { - fprintf(stderr, - _("%s: More than one -d option specified\n"), - progname); - return EXIT_FAILURE; - } - break; - case 'l': - if (lcltime == NULL) - lcltime = optarg; - else { - fprintf(stderr, - _("%s: More than one -l option specified\n"), - progname); - return EXIT_FAILURE; - } - break; - case 'p': - if (psxrules == NULL) - psxrules = optarg; - else { - fprintf(stderr, - _("%s: More than one -p option specified\n"), - progname); - return EXIT_FAILURE; - } - break; - case 'y': - if (yitcommand == NULL) - yitcommand = optarg; - else { - fprintf(stderr, - _("%s: More than one -y option specified\n"), - progname); - return EXIT_FAILURE; - } - break; - case 'L': - if (leapsec == NULL) - leapsec = optarg; - else { - fprintf(stderr, - _("%s: More than one -L option specified\n"), - progname); - return EXIT_FAILURE; - } - break; - case 'v': - noise = true; - break; - case 's': - warning(_("-s ignored")); - break; - } - if (optind == argc - 1 && strcmp(argv[optind], "=") == 0) - usage(stderr, EXIT_FAILURE); /* usage message by request */ - if (directory == NULL) - directory = TZDIR; - if (yitcommand == NULL) - yitcommand = "yearistype"; - - if (optind < argc && leapsec != NULL) { - infile(leapsec); - adjleap(); - } - - for (i = optind; i < argc; ++i) - infile(argv[i]); - if (errors) - return EXIT_FAILURE; - associate(); - for (i = 0; i < nzones; i = j) { - /* - ** Find the next non-continuation zone entry. - */ - for (j = i + 1; j < nzones && zones[j].z_name == NULL; ++j) - continue; - outzone(&zones[i], j - i); - } - /* - ** Make links. - */ - for (i = 0; i < nlinks; ++i) { - eat(links[i].l_filename, links[i].l_linenum); - dolink(links[i].l_from, links[i].l_to); - if (noise) - for (j = 0; j < nlinks; ++j) - if (strcmp(links[i].l_to, - links[j].l_from) == 0) - warning(_("link to link")); - } - if (lcltime != NULL) { - eat(_("command line"), 1); - dolink(lcltime, TZDEFAULT); - } - if (psxrules != NULL) { - eat(_("command line"), 1); - dolink(psxrules, TZDEFRULES); - } - if (warnings && (ferror(stderr) || fclose(stderr) != 0)) - return EXIT_FAILURE; - return errors ? EXIT_FAILURE : EXIT_SUCCESS; -} - -static bool -componentcheck(char const *name, char const *component, - char const *component_end) -{ - enum { component_len_max = 14 }; - size_t component_len = component_end - component; - if (component_len == 0) { - if (!*name) - error (_("empty file name")); - else - error (_(component == name - ? "file name '%s' begins with '/'" - : *component_end - ? "file name '%s' contains '//'" - : "file name '%s' ends with '/'"), - name); - return false; - } - if (0 < component_len && component_len <= 2 - && component[0] == '.' && component_end[-1] == '.') { - error(_("file name '%s' contains '%.*s' component"), - name, (int) component_len, component); - return false; - } - if (noise) { - if (0 < component_len && component[0] == '-') - warning(_("file name '%s' component contains leading '-'"), - name); - if (component_len_max < component_len) - warning(_("file name '%s' contains overlength component" - " '%.*s...'"), - name, component_len_max, component); - } - return true; -} - -static bool -namecheck(const char *name) -{ - register char const *cp; - - /* Benign characters in a portable file name. */ - static char const benign[] = - "-/_" - "abcdefghijklmnopqrstuvwxyz" - "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; - - /* Non-control chars in the POSIX portable character set, - excluding the benign characters. */ - static char const printable_and_not_benign[] = - " !\"#$%&'()*+,.0123456789:;<=>?@[\\]^`{|}~"; - - register char const *component = name; - for (cp = name; *cp; cp++) { - unsigned char c = *cp; - if (noise && !strchr(benign, c)) { - warning((strchr(printable_and_not_benign, c) - ? _("file name '%s' contains byte '%c'") - : _("file name '%s' contains byte '\\%o'")), - name, c); - } - if (c == '/') { - if (!componentcheck(name, component, cp)) - return false; - component = cp + 1; - } - } - return componentcheck(name, component, cp); -} - -static char * -relname(char const *dir, char const *base) -{ - if (*base == '/') - return ecpyalloc(base); - else { - size_t dir_len = strlen(dir); - bool needs_slash = dir_len && dir[dir_len - 1] != '/'; - char *result = emalloc(dir_len + needs_slash + strlen(base) + 1); - result[dir_len] = '/'; - strcpy(result + dir_len + needs_slash, base); - return memcpy(result, dir, dir_len); - } -} - -static void -dolink(const char *const fromfield, const char *const tofield) -{ - register char * fromname; - register char * toname; - register int fromisdir; - - fromname = relname(directory, fromfield); - toname = relname(directory, tofield); - /* - ** We get to be careful here since - ** there's a fair chance of root running us. - */ - fromisdir = itsdir(fromname); - if (fromisdir) { - char const *e = strerror(fromisdir < 0 ? errno : EPERM); - fprintf(stderr, _("%s: link from %s failed: %s"), - progname, fromname, e); - exit(EXIT_FAILURE); - } - if (itsdir(toname) <= 0) - remove(toname); - if (link(fromname, toname) != 0) { - int result; - - if (! mkdirs(toname)) - exit(EXIT_FAILURE); - - result = link(fromname, toname); - if (result != 0) { - const char *s = fromfield; - const char *t; - char *p; - size_t dotdots = 0; - register char * symlinkcontents = NULL; - - do - t = s; - while ((s = strchr(s, '/')) - && ! strncmp (fromfield, tofield, - ++s - fromfield)); - - for (s = tofield + (t - fromfield); *s; s++) - dotdots += *s == '/'; - symlinkcontents - = emalloc(3 * dotdots + strlen(t) + 1); - for (p = symlinkcontents; dotdots-- != 0; p += 3) - memcpy(p, "../", 3); - strcpy(p, t); - result = symlink(symlinkcontents, toname); - if (result == 0) - warning(_("hard link failed, symbolic link used")); - free(symlinkcontents); - } - if (result != 0) { - FILE *fp, *tp; - int c; - fp = fopen(fromname, "rb"); - if (!fp) { - const char *e = strerror(errno); - fprintf(stderr, - _("%s: Can't read %s: %s\n"), - progname, fromname, e); - exit(EXIT_FAILURE); - } - tp = fopen(toname, "wb"); - if (!tp) { - const char *e = strerror(errno); - fprintf(stderr, - _("%s: Can't create %s: %s\n"), - progname, toname, e); - exit(EXIT_FAILURE); - } - while ((c = getc(fp)) != EOF) - putc(c, tp); - close_file(fp, fromname); - close_file(tp, toname); - warning(_("link failed, copy used")); - } - } - free(fromname); - free(toname); -} - -#define TIME_T_BITS_IN_FILE 64 - -static zic_t const min_time = MINVAL (zic_t, TIME_T_BITS_IN_FILE); -static zic_t const max_time = MAXVAL (zic_t, TIME_T_BITS_IN_FILE); - -/* Estimated time of the Big Bang, in seconds since the POSIX epoch. - rounded downward to the negation of a power of two that is - comfortably outside the error bounds. - - zic does not output time stamps before this, partly because they - are physically suspect, and partly because GNOME mishandles them; see - GNOME bug 730332 . - - For the time of the Big Bang, see: - - Ade PAR, Aghanim N, Armitage-Caplan C et al. Planck 2013 results. - I. Overview of products and scientific results. - arXiv:1303.5062 2013-03-20 20:10:01 UTC - [PDF] - - Page 36, Table 9, row Age/Gyr, column Planck+WP+highL+BAO 68% limits - gives the value 13.798 plus-or-minus 0.037 billion years. - Multiplying this by 1000000000 and then by 31557600 (the number of - seconds in an astronomical year) gives a value that is comfortably - less than 2**59, so BIG_BANG is - 2**59. - - BIG_BANG is approximate, and may change in future versions. - Please do not rely on its exact value. */ - -#ifndef BIG_BANG -#define BIG_BANG (- (1LL << 59)) -#endif - -static const zic_t big_bang_time = BIG_BANG; - -/* Return 1 if NAME is a directory, 0 if it's something else, -1 if trouble. */ -static int -itsdir(const char *const name) -{ - struct stat st; - int res = stat(name, &st); - if (res != 0) - return res; -#ifdef S_ISDIR - return S_ISDIR(st.st_mode) != 0; -#else - { - char *nameslashdot = relname(name, "."); - res = stat(nameslashdot, &st); - free(nameslashdot); - return res == 0; - } -#endif -} - -/* -** Associate sets of rules with zones. -*/ - -/* -** Sort by rule name. -*/ - -static int -rcomp(const void *cp1, const void *cp2) -{ - return strcmp(((const struct rule *) cp1)->r_name, - ((const struct rule *) cp2)->r_name); -} - -static void -associate(void) -{ - register struct zone * zp; - register struct rule * rp; - register int base, out; - register int i, j; - - if (nrules != 0) { - qsort(rules, nrules, sizeof *rules, rcomp); - for (i = 0; i < nrules - 1; ++i) { - if (strcmp(rules[i].r_name, - rules[i + 1].r_name) != 0) - continue; - if (strcmp(rules[i].r_filename, - rules[i + 1].r_filename) == 0) - continue; - eat(rules[i].r_filename, rules[i].r_linenum); - warning(_("same rule name in multiple files")); - eat(rules[i + 1].r_filename, rules[i + 1].r_linenum); - warning(_("same rule name in multiple files")); - for (j = i + 2; j < nrules; ++j) { - if (strcmp(rules[i].r_name, - rules[j].r_name) != 0) - break; - if (strcmp(rules[i].r_filename, - rules[j].r_filename) == 0) - continue; - if (strcmp(rules[i + 1].r_filename, - rules[j].r_filename) == 0) - continue; - break; - } - i = j - 1; - } - } - for (i = 0; i < nzones; ++i) { - zp = &zones[i]; - zp->z_rules = NULL; - zp->z_nrules = 0; - } - for (base = 0; base < nrules; base = out) { - rp = &rules[base]; - for (out = base + 1; out < nrules; ++out) - if (strcmp(rp->r_name, rules[out].r_name) != 0) - break; - for (i = 0; i < nzones; ++i) { - zp = &zones[i]; - if (strcmp(zp->z_rule, rp->r_name) != 0) - continue; - zp->z_rules = rp; - zp->z_nrules = out - base; - } - } - for (i = 0; i < nzones; ++i) { - zp = &zones[i]; - if (zp->z_nrules == 0) { - /* - ** Maybe we have a local standard time offset. - */ - eat(zp->z_filename, zp->z_linenum); - zp->z_stdoff = gethms(zp->z_rule, _("unruly zone"), - true); - /* - ** Note, though, that if there's no rule, - ** a '%s' in the format is a bad thing. - */ - if (zp->z_format_specifier == 's') - error("%s", _("%s in ruleless zone")); - } - } - if (errors) - exit(EXIT_FAILURE); -} - -static void -infile(const char *name) -{ - register FILE * fp; - register char ** fields; - register char * cp; - register const struct lookup * lp; - register int nfields; - register bool wantcont; - register int num; - char buf[BUFSIZ]; - - if (strcmp(name, "-") == 0) { - name = _("standard input"); - fp = stdin; - } else if ((fp = fopen(name, "r")) == NULL) { - const char *e = strerror(errno); - - fprintf(stderr, _("%s: Can't open %s: %s\n"), - progname, name, e); - exit(EXIT_FAILURE); - } - wantcont = false; - for (num = 1; ; ++num) { - eat(name, num); - if (fgets(buf, sizeof buf, fp) != buf) - break; - cp = strchr(buf, '\n'); - if (cp == NULL) { - error(_("line too long")); - exit(EXIT_FAILURE); - } - *cp = '\0'; - fields = getfields(buf); - nfields = 0; - while (fields[nfields] != NULL) { - static char nada; - - if (strcmp(fields[nfields], "-") == 0) - fields[nfields] = &nada; - ++nfields; - } - if (nfields == 0) { - /* nothing to do */ - } else if (wantcont) { - wantcont = inzcont(fields, nfields); - } else { - lp = byword(fields[0], line_codes); - if (lp == NULL) - error(_("input line of unknown type")); - else switch ((int) (lp->l_value)) { - case LC_RULE: - inrule(fields, nfields); - wantcont = false; - break; - case LC_ZONE: - wantcont = inzone(fields, nfields); - break; - case LC_LINK: - inlink(fields, nfields); - wantcont = false; - break; - case LC_LEAP: - if (name != leapsec) - warning(_("%s: Leap line in non leap" - " seconds file %s"), - progname, name); - else inleap(fields, nfields); - wantcont = false; - break; - default: /* "cannot happen" */ - fprintf(stderr, - _("%s: panic: Invalid l_value %d\n"), - progname, lp->l_value); - exit(EXIT_FAILURE); - } - } - free(fields); - } - close_file(fp, filename); - if (wantcont) - error(_("expected continuation line not found")); -} - -/* -** Convert a string of one of the forms -** h -h hh:mm -hh:mm hh:mm:ss -hh:mm:ss -** into a number of seconds. -** A null string maps to zero. -** Call error with errstring and return zero on errors. -*/ - -static zic_t -gethms(char const *string, char const *errstring, bool signable) -{ - zic_t hh; - int mm, ss, sign; - char xs; - - if (string == NULL || *string == '\0') - return 0; - if (!signable) - sign = 1; - else if (*string == '-') { - sign = -1; - ++string; - } else sign = 1; - if (sscanf(string, "%"SCNdZIC"%c", &hh, &xs) == 1) - mm = ss = 0; - else if (sscanf(string, "%"SCNdZIC":%d%c", &hh, &mm, &xs) == 2) - ss = 0; - else if (sscanf(string, "%"SCNdZIC":%d:%d%c", &hh, &mm, &ss, &xs) - != 3) { - error("%s", errstring); - return 0; - } - if (hh < 0 || - mm < 0 || mm >= MINSPERHOUR || - ss < 0 || ss > SECSPERMIN) { - error("%s", errstring); - return 0; - } - if (ZIC_MAX / SECSPERHOUR < hh) { - error(_("time overflow")); - return 0; - } - if (noise && (hh > HOURSPERDAY || - (hh == HOURSPERDAY && (mm != 0 || ss != 0)))) - warning(_("values over 24 hours not handled by pre-2007 versions of zic")); - return oadd(sign * hh * SECSPERHOUR, - sign * (mm * SECSPERMIN + ss)); -} - -static void -inrule(register char **const fields, const int nfields) -{ - static struct rule r; - - if (nfields != RULE_FIELDS) { - error(_("wrong number of fields on Rule line")); - return; - } - if (*fields[RF_NAME] == '\0') { - error(_("nameless rule")); - return; - } - r.r_filename = filename; - r.r_linenum = linenum; - r.r_stdoff = gethms(fields[RF_STDOFF], _("invalid saved time"), true); - rulesub(&r, fields[RF_LOYEAR], fields[RF_HIYEAR], fields[RF_COMMAND], - fields[RF_MONTH], fields[RF_DAY], fields[RF_TOD]); - r.r_name = ecpyalloc(fields[RF_NAME]); - r.r_abbrvar = ecpyalloc(fields[RF_ABBRVAR]); - if (max_abbrvar_len < strlen(r.r_abbrvar)) - max_abbrvar_len = strlen(r.r_abbrvar); - rules = growalloc(rules, sizeof *rules, nrules, &nrules_alloc); - rules[nrules++] = r; -} - -static bool -inzone(register char **const fields, const int nfields) -{ - register int i; - - if (nfields < ZONE_MINFIELDS || nfields > ZONE_MAXFIELDS) { - error(_("wrong number of fields on Zone line")); - return false; - } - if (strcmp(fields[ZF_NAME], TZDEFAULT) == 0 && lcltime != NULL) { - error( - _("\"Zone %s\" line and -l option are mutually exclusive"), - TZDEFAULT); - return false; - } - if (strcmp(fields[ZF_NAME], TZDEFRULES) == 0 && psxrules != NULL) { - error( - _("\"Zone %s\" line and -p option are mutually exclusive"), - TZDEFRULES); - return false; - } - for (i = 0; i < nzones; ++i) - if (zones[i].z_name != NULL && - strcmp(zones[i].z_name, fields[ZF_NAME]) == 0) { - error( - _("duplicate zone name %s (file \"%s\", line %d)"), - fields[ZF_NAME], - zones[i].z_filename, - zones[i].z_linenum); - return false; - } - return inzsub(fields, nfields, false); -} - -static bool -inzcont(register char **const fields, const int nfields) -{ - if (nfields < ZONEC_MINFIELDS || nfields > ZONEC_MAXFIELDS) { - error(_("wrong number of fields on Zone continuation line")); - return false; - } - return inzsub(fields, nfields, true); -} - -static bool -inzsub(char **fields, int nfields, bool iscont) -{ - register char * cp; - char * cp1; - static struct zone z; - register int i_gmtoff, i_rule, i_format; - register int i_untilyear, i_untilmonth; - register int i_untilday, i_untiltime; - register bool hasuntil; - - if (iscont) { - i_gmtoff = ZFC_GMTOFF; - i_rule = ZFC_RULE; - i_format = ZFC_FORMAT; - i_untilyear = ZFC_TILYEAR; - i_untilmonth = ZFC_TILMONTH; - i_untilday = ZFC_TILDAY; - i_untiltime = ZFC_TILTIME; - z.z_name = NULL; - } else if (!namecheck(fields[ZF_NAME])) - return false; - else { - i_gmtoff = ZF_GMTOFF; - i_rule = ZF_RULE; - i_format = ZF_FORMAT; - i_untilyear = ZF_TILYEAR; - i_untilmonth = ZF_TILMONTH; - i_untilday = ZF_TILDAY; - i_untiltime = ZF_TILTIME; - z.z_name = ecpyalloc(fields[ZF_NAME]); - } - z.z_filename = filename; - z.z_linenum = linenum; - z.z_gmtoff = gethms(fields[i_gmtoff], _("invalid UT offset"), true); - if ((cp = strchr(fields[i_format], '%')) != 0) { - if ((*++cp != 's' && *cp != 'z') || strchr(cp, '%') - || strchr(fields[i_format], '/')) { - error(_("invalid abbreviation format")); - return false; - } - } - z.z_rule = ecpyalloc(fields[i_rule]); - z.z_format = cp1 = ecpyalloc(fields[i_format]); - z.z_format_specifier = cp ? *cp : '\0'; - if (z.z_format_specifier == 'z') { - if (noise) - warning(_("format '%s' not handled by pre-2015 versions of zic"), - z.z_format); - cp1[cp - fields[i_format]] = 's'; - } - if (max_format_len < strlen(z.z_format)) - max_format_len = strlen(z.z_format); - hasuntil = nfields > i_untilyear; - if (hasuntil) { - z.z_untilrule.r_filename = filename; - z.z_untilrule.r_linenum = linenum; - rulesub(&z.z_untilrule, - fields[i_untilyear], - "only", - "", - (nfields > i_untilmonth) ? - fields[i_untilmonth] : "Jan", - (nfields > i_untilday) ? fields[i_untilday] : "1", - (nfields > i_untiltime) ? fields[i_untiltime] : "0"); - z.z_untiltime = rpytime(&z.z_untilrule, - z.z_untilrule.r_loyear); - if (iscont && nzones > 0 && - z.z_untiltime > min_time && - z.z_untiltime < max_time && - zones[nzones - 1].z_untiltime > min_time && - zones[nzones - 1].z_untiltime < max_time && - zones[nzones - 1].z_untiltime >= z.z_untiltime) { - error(_( - "Zone continuation line end time is not after end time of previous line" - )); - return false; - } - } - zones = growalloc(zones, sizeof *zones, nzones, &nzones_alloc); - zones[nzones++] = z; - /* - ** If there was an UNTIL field on this line, - ** there's more information about the zone on the next line. - */ - return hasuntil; -} - -static void -inleap(register char ** const fields, const int nfields) -{ - register const char * cp; - register const struct lookup * lp; - register int i, j; - zic_t year; - int month, day; - zic_t dayoff, tod; - zic_t t; - char xs; - - if (nfields != LEAP_FIELDS) { - error(_("wrong number of fields on Leap line")); - return; - } - dayoff = 0; - cp = fields[LP_YEAR]; - if (sscanf(cp, "%"SCNdZIC"%c", &year, &xs) != 1) { - /* - ** Leapin' Lizards! - */ - error(_("invalid leaping year")); - return; - } - if (!leapseen || leapmaxyear < year) - leapmaxyear = year; - if (!leapseen || leapminyear > year) - leapminyear = year; - leapseen = true; - j = EPOCH_YEAR; - while (j != year) { - if (year > j) { - i = len_years[isleap(j)]; - ++j; - } else { - --j; - i = -len_years[isleap(j)]; - } - dayoff = oadd(dayoff, i); - } - if ((lp = byword(fields[LP_MONTH], mon_names)) == NULL) { - error(_("invalid month name")); - return; - } - month = lp->l_value; - j = TM_JANUARY; - while (j != month) { - i = len_months[isleap(year)][j]; - dayoff = oadd(dayoff, i); - ++j; - } - cp = fields[LP_DAY]; - if (sscanf(cp, "%d%c", &day, &xs) != 1 || - day <= 0 || day > len_months[isleap(year)][month]) { - error(_("invalid day of month")); - return; - } - dayoff = oadd(dayoff, day - 1); - if (dayoff < min_time / SECSPERDAY) { - error(_("time too small")); - return; - } - if (dayoff > max_time / SECSPERDAY) { - error(_("time too large")); - return; - } - t = dayoff * SECSPERDAY; - tod = gethms(fields[LP_TIME], _("invalid time of day"), false); - cp = fields[LP_CORR]; - { - register bool positive; - int count; - - if (strcmp(cp, "") == 0) { /* infile() turns "-" into "" */ - positive = false; - count = 1; - } else if (strcmp(cp, "--") == 0) { - positive = false; - count = 2; - } else if (strcmp(cp, "+") == 0) { - positive = true; - count = 1; - } else if (strcmp(cp, "++") == 0) { - positive = true; - count = 2; - } else { - error(_("illegal CORRECTION field on Leap line")); - return; - } - if ((lp = byword(fields[LP_ROLL], leap_types)) == NULL) { - error(_( - "illegal Rolling/Stationary field on Leap line" - )); - return; - } - t = tadd(t, tod); - if (t < big_bang_time) { - error(_("leap second precedes Big Bang")); - return; - } - leapadd(t, positive, lp->l_value, count); - } -} - -static void -inlink(register char **const fields, const int nfields) -{ - struct link l; - - if (nfields != LINK_FIELDS) { - error(_("wrong number of fields on Link line")); - return; - } - if (*fields[LF_FROM] == '\0') { - error(_("blank FROM field on Link line")); - return; - } - if (! namecheck(fields[LF_TO])) - return; - l.l_filename = filename; - l.l_linenum = linenum; - l.l_from = ecpyalloc(fields[LF_FROM]); - l.l_to = ecpyalloc(fields[LF_TO]); - links = growalloc(links, sizeof *links, nlinks, &nlinks_alloc); - links[nlinks++] = l; -} - -static void -rulesub(register struct rule *const rp, - const char *const loyearp, - const char *const hiyearp, - const char *const typep, - const char *const monthp, - const char *const dayp, - const char *const timep) -{ - register const struct lookup * lp; - register const char * cp; - register char * dp; - register char * ep; - char xs; - - if ((lp = byword(monthp, mon_names)) == NULL) { - error(_("invalid month name")); - return; - } - rp->r_month = lp->l_value; - rp->r_todisstd = false; - rp->r_todisgmt = false; - dp = ecpyalloc(timep); - if (*dp != '\0') { - ep = dp + strlen(dp) - 1; - switch (lowerit(*ep)) { - case 's': /* Standard */ - rp->r_todisstd = true; - rp->r_todisgmt = false; - *ep = '\0'; - break; - case 'w': /* Wall */ - rp->r_todisstd = false; - rp->r_todisgmt = false; - *ep = '\0'; - break; - case 'g': /* Greenwich */ - case 'u': /* Universal */ - case 'z': /* Zulu */ - rp->r_todisstd = true; - rp->r_todisgmt = true; - *ep = '\0'; - break; - } - } - rp->r_tod = gethms(dp, _("invalid time of day"), false); - free(dp); - /* - ** Year work. - */ - cp = loyearp; - lp = byword(cp, begin_years); - rp->r_lowasnum = lp == NULL; - if (!rp->r_lowasnum) switch ((int) lp->l_value) { - case YR_MINIMUM: - rp->r_loyear = ZIC_MIN; - break; - case YR_MAXIMUM: - rp->r_loyear = ZIC_MAX; - break; - default: /* "cannot happen" */ - fprintf(stderr, - _("%s: panic: Invalid l_value %d\n"), - progname, lp->l_value); - exit(EXIT_FAILURE); - } - else if (sscanf(cp, "%"SCNdZIC"%c", &rp->r_loyear, &xs) != 1) { - error(_("invalid starting year")); - return; - } - cp = hiyearp; - lp = byword(cp, end_years); - rp->r_hiwasnum = lp == NULL; - if (!rp->r_hiwasnum) switch ((int) lp->l_value) { - case YR_MINIMUM: - rp->r_hiyear = ZIC_MIN; - break; - case YR_MAXIMUM: - rp->r_hiyear = ZIC_MAX; - break; - case YR_ONLY: - rp->r_hiyear = rp->r_loyear; - break; - default: /* "cannot happen" */ - fprintf(stderr, - _("%s: panic: Invalid l_value %d\n"), - progname, lp->l_value); - exit(EXIT_FAILURE); - } - else if (sscanf(cp, "%"SCNdZIC"%c", &rp->r_hiyear, &xs) != 1) { - error(_("invalid ending year")); - return; - } - if (rp->r_loyear > rp->r_hiyear) { - error(_("starting year greater than ending year")); - return; - } - if (*typep == '\0') - rp->r_yrtype = NULL; - else { - if (rp->r_loyear == rp->r_hiyear) { - error(_("typed single year")); - return; - } - rp->r_yrtype = ecpyalloc(typep); - } - /* - ** Day work. - ** Accept things such as: - ** 1 - ** last-Sunday - ** Sun<=20 - ** Sun>=7 - */ - dp = ecpyalloc(dayp); - if ((lp = byword(dp, lasts)) != NULL) { - rp->r_dycode = DC_DOWLEQ; - rp->r_wday = lp->l_value; - rp->r_dayofmonth = len_months[1][rp->r_month]; - } else { - if ((ep = strchr(dp, '<')) != 0) - rp->r_dycode = DC_DOWLEQ; - else if ((ep = strchr(dp, '>')) != 0) - rp->r_dycode = DC_DOWGEQ; - else { - ep = dp; - rp->r_dycode = DC_DOM; - } - if (rp->r_dycode != DC_DOM) { - *ep++ = 0; - if (*ep++ != '=') { - error(_("invalid day of month")); - free(dp); - return; - } - if ((lp = byword(dp, wday_names)) == NULL) { - error(_("invalid weekday name")); - free(dp); - return; - } - rp->r_wday = lp->l_value; - } - if (sscanf(ep, "%d%c", &rp->r_dayofmonth, &xs) != 1 || - rp->r_dayofmonth <= 0 || - (rp->r_dayofmonth > len_months[1][rp->r_month])) { - error(_("invalid day of month")); - free(dp); - return; - } - } - free(dp); -} - -static void -convert(const int_fast32_t val, char *const buf) -{ - register int i; - register int shift; - unsigned char *const b = (unsigned char *) buf; - - for (i = 0, shift = 24; i < 4; ++i, shift -= 8) - b[i] = val >> shift; -} - -static void -convert64(const zic_t val, char *const buf) -{ - register int i; - register int shift; - unsigned char *const b = (unsigned char *) buf; - - for (i = 0, shift = 56; i < 8; ++i, shift -= 8) - b[i] = val >> shift; -} - -static void -puttzcode(const int_fast32_t val, FILE *const fp) -{ - char buf[4]; - - convert(val, buf); - fwrite(buf, sizeof buf, 1, fp); -} - -static void -puttzcode64(const zic_t val, FILE *const fp) -{ - char buf[8]; - - convert64(val, buf); - fwrite(buf, sizeof buf, 1, fp); -} - -static int -atcomp(const void *avp, const void *bvp) -{ - const zic_t a = ((const struct attype *) avp)->at; - const zic_t b = ((const struct attype *) bvp)->at; - - return (a < b) ? -1 : (a > b); -} - -static bool -is32(const zic_t x) -{ - return INT32_MIN <= x && x <= INT32_MAX; -} - -static void -writezone(const char *const name, const char *const string, char version) -{ - register FILE * fp; - register int i, j; - register int leapcnt32, leapi32; - register int timecnt32, timei32; - register int pass; - char * fullname; - static const struct tzhead tzh0; - static struct tzhead tzh; - zic_t *ats = emalloc(size_product(timecnt, sizeof *ats + 1)); - void *typesptr = ats + timecnt; - unsigned char *types = typesptr; - - /* - ** Sort. - */ - if (timecnt > 1) - qsort(attypes, timecnt, sizeof *attypes, atcomp); - /* - ** Optimize. - */ - { - int fromi; - int toi; - - toi = 0; - fromi = 0; - while (fromi < timecnt && attypes[fromi].at < big_bang_time) - ++fromi; - for ( ; fromi < timecnt; ++fromi) { - if (toi > 1 && ((attypes[fromi].at + - gmtoffs[attypes[toi - 1].type]) <= - (attypes[toi - 1].at + - gmtoffs[attypes[toi - 2].type]))) { - attypes[toi - 1].type = - attypes[fromi].type; - continue; - } - if (toi == 0 || - attypes[toi - 1].type != attypes[fromi].type) - attypes[toi++] = attypes[fromi]; - } - timecnt = toi; - } - if (noise && timecnt > 1200) - warning(_("pre-2014 clients may mishandle" - " more than 1200 transition times")); - /* - ** Transfer. - */ - for (i = 0; i < timecnt; ++i) { - ats[i] = attypes[i].at; - types[i] = attypes[i].type; - } - /* - ** Correct for leap seconds. - */ - for (i = 0; i < timecnt; ++i) { - j = leapcnt; - while (--j >= 0) - if (ats[i] > trans[j] - corr[j]) { - ats[i] = tadd(ats[i], corr[j]); - break; - } - } - /* - ** Figure out 32-bit-limited starts and counts. - */ - timecnt32 = timecnt; - timei32 = 0; - leapcnt32 = leapcnt; - leapi32 = 0; - while (timecnt32 > 0 && !is32(ats[timecnt32 - 1])) - --timecnt32; - while (timecnt32 > 0 && !is32(ats[timei32])) { - --timecnt32; - ++timei32; - } - /* - ** Output an INT32_MIN "transition" if appropriate; see below. - */ - if (timei32 > 0 && ats[timei32] > INT32_MIN) { - --timei32; - ++timecnt32; - } - while (leapcnt32 > 0 && !is32(trans[leapcnt32 - 1])) - --leapcnt32; - while (leapcnt32 > 0 && !is32(trans[leapi32])) { - --leapcnt32; - ++leapi32; - } - fullname = relname(directory, name); - /* - ** Remove old file, if any, to snap links. - */ - if (itsdir(fullname) <= 0 && remove(fullname) != 0 && errno != ENOENT) { - const char *e = strerror(errno); - - fprintf(stderr, _("%s: Can't remove %s: %s\n"), - progname, fullname, e); - exit(EXIT_FAILURE); - } - if ((fp = fopen(fullname, "wb")) == NULL) { - if (! mkdirs(fullname)) - exit(EXIT_FAILURE); - if ((fp = fopen(fullname, "wb")) == NULL) { - const char *e = strerror(errno); - - fprintf(stderr, _("%s: Can't create %s: %s\n"), - progname, fullname, e); - exit(EXIT_FAILURE); - } - } - for (pass = 1; pass <= 2; ++pass) { - register int thistimei, thistimecnt; - register int thisleapi, thisleapcnt; - register int thistimelim, thisleaplim; - int writetype[TZ_MAX_TYPES]; - int typemap[TZ_MAX_TYPES]; - register int thistypecnt; - char thischars[TZ_MAX_CHARS]; - char thischarcnt; - int indmap[TZ_MAX_CHARS]; - - if (pass == 1) { - thistimei = timei32; - thistimecnt = timecnt32; - thisleapi = leapi32; - thisleapcnt = leapcnt32; - } else { - thistimei = 0; - thistimecnt = timecnt; - thisleapi = 0; - thisleapcnt = leapcnt; - } - thistimelim = thistimei + thistimecnt; - thisleaplim = thisleapi + thisleapcnt; - for (i = 0; i < typecnt; ++i) - writetype[i] = thistimecnt == timecnt; - if (thistimecnt == 0) { - /* - ** No transition times fall in the current - ** (32- or 64-bit) window. - */ - if (typecnt != 0) - writetype[typecnt - 1] = true; - } else { - for (i = thistimei - 1; i < thistimelim; ++i) - if (i >= 0) - writetype[types[i]] = true; - /* - ** For America/Godthab and Antarctica/Palmer - */ - if (thistimei == 0) - writetype[0] = true; - } -#ifndef LEAVE_SOME_PRE_2011_SYSTEMS_IN_THE_LURCH - /* - ** For some pre-2011 systems: if the last-to-be-written - ** standard (or daylight) type has an offset different from the - ** most recently used offset, - ** append an (unused) copy of the most recently used type - ** (to help get global "altzone" and "timezone" variables - ** set correctly). - */ - { - register int mrudst, mrustd, hidst, histd, type; - - hidst = histd = mrudst = mrustd = -1; - for (i = thistimei; i < thistimelim; ++i) - if (isdsts[types[i]]) - mrudst = types[i]; - else mrustd = types[i]; - for (i = 0; i < typecnt; ++i) - if (writetype[i]) { - if (isdsts[i]) - hidst = i; - else histd = i; - } - if (hidst >= 0 && mrudst >= 0 && hidst != mrudst && - gmtoffs[hidst] != gmtoffs[mrudst]) { - isdsts[mrudst] = -1; - type = addtype(gmtoffs[mrudst], - &chars[abbrinds[mrudst]], - true, - ttisstds[mrudst], - ttisgmts[mrudst]); - isdsts[mrudst] = 1; - writetype[type] = true; - } - if (histd >= 0 && mrustd >= 0 && histd != mrustd && - gmtoffs[histd] != gmtoffs[mrustd]) { - isdsts[mrustd] = -1; - type = addtype(gmtoffs[mrustd], - &chars[abbrinds[mrustd]], - false, - ttisstds[mrustd], - ttisgmts[mrustd]); - isdsts[mrustd] = 0; - writetype[type] = true; - } - } -#endif /* !defined LEAVE_SOME_PRE_2011_SYSTEMS_IN_THE_LURCH */ - thistypecnt = 0; - for (i = 0; i < typecnt; ++i) - typemap[i] = writetype[i] ? thistypecnt++ : -1; - for (i = 0; i < sizeof indmap / sizeof indmap[0]; ++i) - indmap[i] = -1; - thischarcnt = 0; - for (i = 0; i < typecnt; ++i) { - register char * thisabbr; - - if (!writetype[i]) - continue; - if (indmap[abbrinds[i]] >= 0) - continue; - thisabbr = &chars[abbrinds[i]]; - for (j = 0; j < thischarcnt; ++j) - if (strcmp(&thischars[j], thisabbr) == 0) - break; - if (j == thischarcnt) { - strcpy(&thischars[(int) thischarcnt], - thisabbr); - thischarcnt += strlen(thisabbr) + 1; - } - indmap[abbrinds[i]] = j; - } -#define DO(field) fwrite(tzh.field, sizeof tzh.field, 1, fp) - tzh = tzh0; - strncpy(tzh.tzh_magic, TZ_MAGIC, sizeof tzh.tzh_magic); - tzh.tzh_version[0] = version; - convert(thistypecnt, tzh.tzh_ttisgmtcnt); - convert(thistypecnt, tzh.tzh_ttisstdcnt); - convert(thisleapcnt, tzh.tzh_leapcnt); - convert(thistimecnt, tzh.tzh_timecnt); - convert(thistypecnt, tzh.tzh_typecnt); - convert(thischarcnt, tzh.tzh_charcnt); - DO(tzh_magic); - DO(tzh_version); - DO(tzh_reserved); - DO(tzh_ttisgmtcnt); - DO(tzh_ttisstdcnt); - DO(tzh_leapcnt); - DO(tzh_timecnt); - DO(tzh_typecnt); - DO(tzh_charcnt); -#undef DO - for (i = thistimei; i < thistimelim; ++i) - if (pass == 1) - /* - ** Output an INT32_MIN "transition" - ** if appropriate; see above. - */ - puttzcode(((ats[i] < INT32_MIN) ? - INT32_MIN : ats[i]), fp); - else puttzcode64(ats[i], fp); - for (i = thistimei; i < thistimelim; ++i) { - unsigned char uc; - - uc = typemap[types[i]]; - fwrite(&uc, sizeof uc, 1, fp); - } - for (i = 0; i < typecnt; ++i) - if (writetype[i]) { - puttzcode(gmtoffs[i], fp); - putc(isdsts[i], fp); - putc((unsigned char) indmap[abbrinds[i]], fp); - } - if (thischarcnt != 0) - fwrite(thischars, sizeof thischars[0], - thischarcnt, fp); - for (i = thisleapi; i < thisleaplim; ++i) { - register zic_t todo; - - if (roll[i]) { - if (timecnt == 0 || trans[i] < ats[0]) { - j = 0; - while (isdsts[j]) - if (++j >= typecnt) { - j = 0; - break; - } - } else { - j = 1; - while (j < timecnt && - trans[i] >= ats[j]) - ++j; - j = types[j - 1]; - } - todo = tadd(trans[i], -gmtoffs[j]); - } else todo = trans[i]; - if (pass == 1) - puttzcode(todo, fp); - else puttzcode64(todo, fp); - puttzcode(corr[i], fp); - } - for (i = 0; i < typecnt; ++i) - if (writetype[i]) - putc(ttisstds[i], fp); - for (i = 0; i < typecnt; ++i) - if (writetype[i]) - putc(ttisgmts[i], fp); - } - fprintf(fp, "\n%s\n", string); - close_file(fp, fullname); - free(ats); - free(fullname); -} - -static char const * -abbroffset(char *buf, zic_t offset) -{ - char sign = '+'; - int seconds, minutes; - - if (offset < 0) { - offset = -offset; - sign = '-'; - } - - seconds = offset % SECSPERMIN; - offset /= SECSPERMIN; - minutes = offset % MINSPERHOUR; - offset /= MINSPERHOUR; - if (100 <= offset) { - error(_("%%z UTC offset magnitude exceeds 99:59:59")); - return "%z"; - } else { - char *p = buf; - *p++ = sign; - *p++ = '0' + offset / 10; - *p++ = '0' + offset % 10; - if (minutes | seconds) { - *p++ = '0' + minutes / 10; - *p++ = '0' + minutes % 10; - if (seconds) { - *p++ = '0' + seconds / 10; - *p++ = '0' + seconds % 10; - } - } - *p = '\0'; - return buf; - } -} - -static size_t -doabbr(char *abbr, struct zone const *zp, char const *letters, - bool isdst, bool doquotes) -{ - register char * cp; - register char * slashp; - register size_t len; - char const *format = zp->z_format; - - slashp = strchr(format, '/'); - if (slashp == NULL) { - char letterbuf[PERCENT_Z_LEN_BOUND + 1]; - if (zp->z_format_specifier == 'z') - letters = abbroffset(letterbuf, -zp->z_gmtoff); - else if (!letters) - letters = "%s"; - sprintf(abbr, format, letters); - } else if (isdst) { - strcpy(abbr, slashp + 1); - } else { - memcpy(abbr, format, slashp - format); - abbr[slashp - format] = '\0'; - } - len = strlen(abbr); - if (!doquotes) - return len; - for (cp = abbr; is_alpha(*cp); cp++) - continue; - if (len > 0 && *cp == '\0') - return len; - abbr[len + 2] = '\0'; - abbr[len + 1] = '>'; - memmove(abbr + 1, abbr, len); - abbr[0] = '<'; - return len + 2; -} - -static void -updateminmax(const zic_t x) -{ - if (min_year > x) - min_year = x; - if (max_year < x) - max_year = x; -} - -static int -stringoffset(char *result, zic_t offset) -{ - register int hours; - register int minutes; - register int seconds; - bool negative = offset < 0; - int len = negative; - - if (negative) { - offset = -offset; - result[0] = '-'; - } - seconds = offset % SECSPERMIN; - offset /= SECSPERMIN; - minutes = offset % MINSPERHOUR; - offset /= MINSPERHOUR; - hours = offset; - if (hours >= HOURSPERDAY * DAYSPERWEEK) { - result[0] = '\0'; - return 0; - } - len += sprintf(result + len, "%d", hours); - if (minutes != 0 || seconds != 0) { - len += sprintf(result + len, ":%02d", minutes); - if (seconds != 0) - len += sprintf(result + len, ":%02d", seconds); - } - return len; -} - -static int -stringrule(char *result, const struct rule *const rp, const zic_t dstoff, - const zic_t gmtoff) -{ - register zic_t tod = rp->r_tod; - register int compat = 0; - - if (rp->r_dycode == DC_DOM) { - register int month, total; - - if (rp->r_dayofmonth == 29 && rp->r_month == TM_FEBRUARY) - return -1; - total = 0; - for (month = 0; month < rp->r_month; ++month) - total += len_months[0][month]; - /* Omit the "J" in Jan and Feb, as that's shorter. */ - if (rp->r_month <= 1) - result += sprintf(result, "%d", total + rp->r_dayofmonth - 1); - else - result += sprintf(result, "J%d", total + rp->r_dayofmonth); - } else { - register int week; - register int wday = rp->r_wday; - register int wdayoff; - - if (rp->r_dycode == DC_DOWGEQ) { - wdayoff = (rp->r_dayofmonth - 1) % DAYSPERWEEK; - if (wdayoff) - compat = 2013; - wday -= wdayoff; - tod += wdayoff * SECSPERDAY; - week = 1 + (rp->r_dayofmonth - 1) / DAYSPERWEEK; - } else if (rp->r_dycode == DC_DOWLEQ) { - if (rp->r_dayofmonth == len_months[1][rp->r_month]) - week = 5; - else { - wdayoff = rp->r_dayofmonth % DAYSPERWEEK; - if (wdayoff) - compat = 2013; - wday -= wdayoff; - tod += wdayoff * SECSPERDAY; - week = rp->r_dayofmonth / DAYSPERWEEK; - } - } else return -1; /* "cannot happen" */ - if (wday < 0) - wday += DAYSPERWEEK; - result += sprintf(result, "M%d.%d.%d", - rp->r_month + 1, week, wday); - } - if (rp->r_todisgmt) - tod += gmtoff; - if (rp->r_todisstd && rp->r_stdoff == 0) - tod += dstoff; - if (tod != 2 * SECSPERMIN * MINSPERHOUR) { - *result++ = '/'; - if (! stringoffset(result, tod)) - return -1; - if (tod < 0) { - if (compat < 2013) - compat = 2013; - } else if (SECSPERDAY <= tod) { - if (compat < 1994) - compat = 1994; - } - } - return compat; -} - -static int -rule_cmp(struct rule const *a, struct rule const *b) -{ - if (!a) - return -!!b; - if (!b) - return 1; - if (a->r_hiyear != b->r_hiyear) - return a->r_hiyear < b->r_hiyear ? -1 : 1; - if (a->r_month - b->r_month != 0) - return a->r_month - b->r_month; - return a->r_dayofmonth - b->r_dayofmonth; -} - -enum { YEAR_BY_YEAR_ZONE = 1 }; - -static int -stringzone(char *result, const struct zone *const zpfirst, const int zonecount) -{ - register const struct zone * zp; - register struct rule * rp; - register struct rule * stdrp; - register struct rule * dstrp; - register int i; - register const char * abbrvar; - register int compat = 0; - register int c; - size_t len; - int offsetlen; - struct rule stdr, dstr; - - result[0] = '\0'; - zp = zpfirst + zonecount - 1; - stdrp = dstrp = NULL; - for (i = 0; i < zp->z_nrules; ++i) { - rp = &zp->z_rules[i]; - if (rp->r_hiwasnum || rp->r_hiyear != ZIC_MAX) - continue; - if (rp->r_yrtype != NULL) - continue; - if (rp->r_stdoff == 0) { - if (stdrp == NULL) - stdrp = rp; - else return -1; - } else { - if (dstrp == NULL) - dstrp = rp; - else return -1; - } - } - if (stdrp == NULL && dstrp == NULL) { - /* - ** There are no rules running through "max". - ** Find the latest std rule in stdabbrrp - ** and latest rule of any type in stdrp. - */ - register struct rule *stdabbrrp = NULL; - for (i = 0; i < zp->z_nrules; ++i) { - rp = &zp->z_rules[i]; - if (rp->r_stdoff == 0 && rule_cmp(stdabbrrp, rp) < 0) - stdabbrrp = rp; - if (rule_cmp(stdrp, rp) < 0) - stdrp = rp; - } - /* - ** Horrid special case: if year is 2037, - ** presume this is a zone handled on a year-by-year basis; - ** do not try to apply a rule to the zone. - */ - if (stdrp != NULL && stdrp->r_hiyear == 2037) - return YEAR_BY_YEAR_ZONE; - - if (stdrp != NULL && stdrp->r_stdoff != 0) { - /* Perpetual DST. */ - dstr.r_month = TM_JANUARY; - dstr.r_dycode = DC_DOM; - dstr.r_dayofmonth = 1; - dstr.r_tod = 0; - dstr.r_todisstd = dstr.r_todisgmt = false; - dstr.r_stdoff = stdrp->r_stdoff; - dstr.r_abbrvar = stdrp->r_abbrvar; - stdr.r_month = TM_DECEMBER; - stdr.r_dycode = DC_DOM; - stdr.r_dayofmonth = 31; - stdr.r_tod = SECSPERDAY + stdrp->r_stdoff; - stdr.r_todisstd = stdr.r_todisgmt = false; - stdr.r_stdoff = 0; - stdr.r_abbrvar - = (stdabbrrp ? stdabbrrp->r_abbrvar : ""); - dstrp = &dstr; - stdrp = &stdr; - } - } - if (stdrp == NULL && (zp->z_nrules != 0 || zp->z_stdoff != 0)) - return -1; - abbrvar = (stdrp == NULL) ? "" : stdrp->r_abbrvar; - len = doabbr(result, zp, abbrvar, false, true); - offsetlen = stringoffset(result + len, -zp->z_gmtoff); - if (! offsetlen) { - result[0] = '\0'; - return -1; - } - len += offsetlen; - if (dstrp == NULL) - return compat; - len += doabbr(result + len, zp, dstrp->r_abbrvar, true, true); - if (dstrp->r_stdoff != SECSPERMIN * MINSPERHOUR) { - offsetlen = stringoffset(result + len, - -(zp->z_gmtoff + dstrp->r_stdoff)); - if (! offsetlen) { - result[0] = '\0'; - return -1; - } - len += offsetlen; - } - result[len++] = ','; - c = stringrule(result + len, dstrp, dstrp->r_stdoff, zp->z_gmtoff); - if (c < 0) { - result[0] = '\0'; - return -1; - } - if (compat < c) - compat = c; - len += strlen(result + len); - result[len++] = ','; - c = stringrule(result + len, stdrp, dstrp->r_stdoff, zp->z_gmtoff); - if (c < 0) { - result[0] = '\0'; - return -1; - } - if (compat < c) - compat = c; - return compat; -} - -static void -outzone(const struct zone * const zpfirst, const int zonecount) -{ - register const struct zone * zp; - register struct rule * rp; - register int i, j; - register bool usestart, useuntil; - register zic_t starttime, untiltime; - register zic_t gmtoff; - register zic_t stdoff; - register zic_t year; - register zic_t startoff; - register bool startttisstd; - register bool startttisgmt; - register int type; - register char * startbuf; - register char * ab; - register char * envvar; - register int max_abbr_len; - register int max_envvar_len; - register bool prodstic; /* all rules are min to max */ - register int compat; - register bool do_extend; - register char version; - - max_abbr_len = 2 + max_format_len + max_abbrvar_len; - max_envvar_len = 2 * max_abbr_len + 5 * 9; - startbuf = emalloc(max_abbr_len + 1); - ab = emalloc(max_abbr_len + 1); - envvar = emalloc(max_envvar_len + 1); - INITIALIZE(untiltime); - INITIALIZE(starttime); - /* - ** Now. . .finally. . .generate some useful data! - */ - timecnt = 0; - typecnt = 0; - charcnt = 0; - prodstic = zonecount == 1; - /* - ** Thanks to Earl Chew - ** for noting the need to unconditionally initialize startttisstd. - */ - startttisstd = false; - startttisgmt = false; - min_year = max_year = EPOCH_YEAR; - if (leapseen) { - updateminmax(leapminyear); - updateminmax(leapmaxyear + (leapmaxyear < ZIC_MAX)); - } - for (i = 0; i < zonecount; ++i) { - zp = &zpfirst[i]; - if (i < zonecount - 1) - updateminmax(zp->z_untilrule.r_loyear); - for (j = 0; j < zp->z_nrules; ++j) { - rp = &zp->z_rules[j]; - if (rp->r_lowasnum) - updateminmax(rp->r_loyear); - if (rp->r_hiwasnum) - updateminmax(rp->r_hiyear); - if (rp->r_lowasnum || rp->r_hiwasnum) - prodstic = false; - } - } - /* - ** Generate lots of data if a rule can't cover all future times. - */ - compat = stringzone(envvar, zpfirst, zonecount); - version = compat < 2013 ? ZIC_VERSION_PRE_2013 : ZIC_VERSION; - do_extend = compat < 0 || compat == YEAR_BY_YEAR_ZONE; - if (noise) { - if (!*envvar) - warning("%s %s", - _("no POSIX environment variable for zone"), - zpfirst->z_name); - else if (compat != 0 && compat != YEAR_BY_YEAR_ZONE) { - /* Circa-COMPAT clients, and earlier clients, might - not work for this zone when given dates before - 1970 or after 2038. */ - warning(_("%s: pre-%d clients may mishandle" - " distant timestamps"), - zpfirst->z_name, compat); - } - } - if (do_extend) { - /* - ** Search through a couple of extra years past the obvious - ** 400, to avoid edge cases. For example, suppose a non-POSIX - ** rule applies from 2012 onwards and has transitions in March - ** and September, plus some one-off transitions in November - ** 2013. If zic looked only at the last 400 years, it would - ** set max_year=2413, with the intent that the 400 years 2014 - ** through 2413 will be repeated. The last transition listed - ** in the tzfile would be in 2413-09, less than 400 years - ** after the last one-off transition in 2013-11. Two years - ** might be overkill, but with the kind of edge cases - ** available we're not sure that one year would suffice. - */ - enum { years_of_observations = YEARSPERREPEAT + 2 }; - - if (min_year >= ZIC_MIN + years_of_observations) - min_year -= years_of_observations; - else min_year = ZIC_MIN; - if (max_year <= ZIC_MAX - years_of_observations) - max_year += years_of_observations; - else max_year = ZIC_MAX; - /* - ** Regardless of any of the above, - ** for a "proDSTic" zone which specifies that its rules - ** always have and always will be in effect, - ** we only need one cycle to define the zone. - */ - if (prodstic) { - min_year = 1900; - max_year = min_year + years_of_observations; - } - } - /* - ** For the benefit of older systems, - ** generate data from 1900 through 2037. - */ - if (min_year > 1900) - min_year = 1900; - if (max_year < 2037) - max_year = 2037; - for (i = 0; i < zonecount; ++i) { - /* - ** A guess that may well be corrected later. - */ - stdoff = 0; - zp = &zpfirst[i]; - usestart = i > 0 && (zp - 1)->z_untiltime > big_bang_time; - useuntil = i < (zonecount - 1); - if (useuntil && zp->z_untiltime <= big_bang_time) - continue; - gmtoff = zp->z_gmtoff; - eat(zp->z_filename, zp->z_linenum); - *startbuf = '\0'; - startoff = zp->z_gmtoff; - if (zp->z_nrules == 0) { - stdoff = zp->z_stdoff; - doabbr(startbuf, zp, NULL, stdoff != 0, false); - type = addtype(oadd(zp->z_gmtoff, stdoff), - startbuf, stdoff != 0, startttisstd, - startttisgmt); - if (usestart) { - addtt(starttime, type); - usestart = false; - } else addtt(big_bang_time, type); - } else for (year = min_year; year <= max_year; ++year) { - if (useuntil && year > zp->z_untilrule.r_hiyear) - break; - /* - ** Mark which rules to do in the current year. - ** For those to do, calculate rpytime(rp, year); - */ - for (j = 0; j < zp->z_nrules; ++j) { - rp = &zp->z_rules[j]; - eats(zp->z_filename, zp->z_linenum, - rp->r_filename, rp->r_linenum); - rp->r_todo = year >= rp->r_loyear && - year <= rp->r_hiyear && - yearistype(year, rp->r_yrtype); - if (rp->r_todo) - rp->r_temp = rpytime(rp, year); - } - for ( ; ; ) { - register int k; - register zic_t jtime, ktime; - register zic_t offset; - - INITIALIZE(ktime); - if (useuntil) { - /* - ** Turn untiltime into UT - ** assuming the current gmtoff and - ** stdoff values. - */ - untiltime = zp->z_untiltime; - if (!zp->z_untilrule.r_todisgmt) - untiltime = tadd(untiltime, - -gmtoff); - if (!zp->z_untilrule.r_todisstd) - untiltime = tadd(untiltime, - -stdoff); - } - /* - ** Find the rule (of those to do, if any) - ** that takes effect earliest in the year. - */ - k = -1; - for (j = 0; j < zp->z_nrules; ++j) { - rp = &zp->z_rules[j]; - if (!rp->r_todo) - continue; - eats(zp->z_filename, zp->z_linenum, - rp->r_filename, rp->r_linenum); - offset = rp->r_todisgmt ? 0 : gmtoff; - if (!rp->r_todisstd) - offset = oadd(offset, stdoff); - jtime = rp->r_temp; - if (jtime == min_time || - jtime == max_time) - continue; - jtime = tadd(jtime, -offset); - if (k < 0 || jtime < ktime) { - k = j; - ktime = jtime; - } else if (jtime == ktime) { - char const *dup_rules_msg = - _("two rules for same instant"); - eats(zp->z_filename, zp->z_linenum, - rp->r_filename, rp->r_linenum); - warning("%s", dup_rules_msg); - rp = &zp->z_rules[k]; - eats(zp->z_filename, zp->z_linenum, - rp->r_filename, rp->r_linenum); - error("%s", dup_rules_msg); - } - } - if (k < 0) - break; /* go on to next year */ - rp = &zp->z_rules[k]; - rp->r_todo = false; - if (useuntil && ktime >= untiltime) - break; - stdoff = rp->r_stdoff; - if (usestart && ktime == starttime) - usestart = false; - if (usestart) { - if (ktime < starttime) { - startoff = oadd(zp->z_gmtoff, - stdoff); - doabbr(startbuf, zp, - rp->r_abbrvar, - rp->r_stdoff != 0, - false); - continue; - } - if (*startbuf == '\0' && - startoff == oadd(zp->z_gmtoff, - stdoff)) { - doabbr(startbuf, - zp, - rp->r_abbrvar, - rp->r_stdoff != - false, - false); - } - } - eats(zp->z_filename, zp->z_linenum, - rp->r_filename, rp->r_linenum); - doabbr(ab, zp, rp->r_abbrvar, - rp->r_stdoff != 0, false); - offset = oadd(zp->z_gmtoff, rp->r_stdoff); - type = addtype(offset, ab, rp->r_stdoff != 0, - rp->r_todisstd, rp->r_todisgmt); - addtt(ktime, type); - } - } - if (usestart) { - if (*startbuf == '\0' && - zp->z_format != NULL && - strchr(zp->z_format, '%') == NULL && - strchr(zp->z_format, '/') == NULL) - strcpy(startbuf, zp->z_format); - eat(zp->z_filename, zp->z_linenum); - if (*startbuf == '\0') - error(_("can't determine time zone abbreviation to use just after until time")); - else addtt(starttime, - addtype(startoff, startbuf, - startoff != zp->z_gmtoff, - startttisstd, - startttisgmt)); - } - /* - ** Now we may get to set starttime for the next zone line. - */ - if (useuntil) { - startttisstd = zp->z_untilrule.r_todisstd; - startttisgmt = zp->z_untilrule.r_todisgmt; - starttime = zp->z_untiltime; - if (!startttisstd) - starttime = tadd(starttime, -stdoff); - if (!startttisgmt) - starttime = tadd(starttime, -gmtoff); - } - } - if (do_extend) { - /* - ** If we're extending the explicitly listed observations - ** for 400 years because we can't fill the POSIX-TZ field, - ** check whether we actually ended up explicitly listing - ** observations through that period. If there aren't any - ** near the end of the 400-year period, add a redundant - ** one at the end of the final year, to make it clear - ** that we are claiming to have definite knowledge of - ** the lack of transitions up to that point. - */ - struct rule xr; - struct attype *lastat; - xr.r_month = TM_JANUARY; - xr.r_dycode = DC_DOM; - xr.r_dayofmonth = 1; - xr.r_tod = 0; - for (lastat = &attypes[0], i = 1; i < timecnt; i++) - if (attypes[i].at > lastat->at) - lastat = &attypes[i]; - if (lastat->at < rpytime(&xr, max_year - 1)) { - /* - ** Create new type code for the redundant entry, - ** to prevent it being optimized away. - */ - if (typecnt >= TZ_MAX_TYPES) { - error(_("too many local time types")); - exit(EXIT_FAILURE); - } - gmtoffs[typecnt] = gmtoffs[lastat->type]; - isdsts[typecnt] = isdsts[lastat->type]; - ttisstds[typecnt] = ttisstds[lastat->type]; - ttisgmts[typecnt] = ttisgmts[lastat->type]; - abbrinds[typecnt] = abbrinds[lastat->type]; - ++typecnt; - addtt(rpytime(&xr, max_year + 1), typecnt-1); - } - } - writezone(zpfirst->z_name, envvar, version); - free(startbuf); - free(ab); - free(envvar); -} - -static void -addtt(const zic_t starttime, int type) -{ - if (starttime <= big_bang_time || - (timecnt == 1 && attypes[0].at < big_bang_time)) { - gmtoffs[0] = gmtoffs[type]; - isdsts[0] = isdsts[type]; - ttisstds[0] = ttisstds[type]; - ttisgmts[0] = ttisgmts[type]; - if (abbrinds[type] != 0) - strcpy(chars, &chars[abbrinds[type]]); - abbrinds[0] = 0; - charcnt = strlen(chars) + 1; - typecnt = 1; - timecnt = 0; - type = 0; - } - attypes = growalloc(attypes, sizeof *attypes, timecnt, &timecnt_alloc); - attypes[timecnt].at = starttime; - attypes[timecnt].type = type; - ++timecnt; -} - -static int -addtype(zic_t gmtoff, char const *abbr, bool isdst, bool ttisstd, bool ttisgmt) -{ - register int i, j; - - /* - ** See if there's already an entry for this zone type. - ** If so, just return its index. - */ - for (i = 0; i < typecnt; ++i) { - if (gmtoff == gmtoffs[i] && isdst == isdsts[i] && - strcmp(abbr, &chars[abbrinds[i]]) == 0 && - ttisstd == ttisstds[i] && - ttisgmt == ttisgmts[i]) - return i; - } - /* - ** There isn't one; add a new one, unless there are already too - ** many. - */ - if (typecnt >= TZ_MAX_TYPES) { - error(_("too many local time types")); - exit(EXIT_FAILURE); - } - if (! (-1L - 2147483647L <= gmtoff && gmtoff <= 2147483647L)) { - error(_("UT offset out of range")); - exit(EXIT_FAILURE); - } - gmtoffs[i] = gmtoff; - isdsts[i] = isdst; - ttisstds[i] = ttisstd; - ttisgmts[i] = ttisgmt; - - for (j = 0; j < charcnt; ++j) - if (strcmp(&chars[j], abbr) == 0) - break; - if (j == charcnt) - newabbr(abbr); - abbrinds[i] = j; - ++typecnt; - return i; -} - -static void -leapadd(zic_t t, bool positive, int rolling, int count) -{ - register int i, j; - - if (leapcnt + (positive ? count : 1) > TZ_MAX_LEAPS) { - error(_("too many leap seconds")); - exit(EXIT_FAILURE); - } - for (i = 0; i < leapcnt; ++i) - if (t <= trans[i]) { - if (t == trans[i]) { - error(_("repeated leap second moment")); - exit(EXIT_FAILURE); - } - break; - } - do { - for (j = leapcnt; j > i; --j) { - trans[j] = trans[j - 1]; - corr[j] = corr[j - 1]; - roll[j] = roll[j - 1]; - } - trans[i] = t; - corr[i] = positive ? 1 : -count; - roll[i] = rolling; - ++leapcnt; - } while (positive && --count != 0); -} - -static void -adjleap(void) -{ - register int i; - register zic_t last = 0; - - /* - ** propagate leap seconds forward - */ - for (i = 0; i < leapcnt; ++i) { - trans[i] = tadd(trans[i], last); - last = corr[i] += last; - } -} - -static bool -yearistype(const int year, const char *const type) -{ - static char * buf; - int result; - - if (type == NULL || *type == '\0') - return true; - buf = erealloc(buf, 132 + strlen(yitcommand) + strlen(type)); - sprintf(buf, "%s %d %s", yitcommand, year, type); - result = system(buf); - if (WIFEXITED(result)) switch (WEXITSTATUS(result)) { - case 0: - return true; - case 1: - return false; - } - error(_("Wild result from command execution")); - fprintf(stderr, _("%s: command was '%s', result was %d\n"), - progname, buf, result); - for ( ; ; ) - exit(EXIT_FAILURE); -} - -/* Is A a space character in the C locale? */ -static bool -is_space(char a) -{ - switch (a) { - default: - return false; - case ' ': - case '\f': - case '\n': - case '\r': - case '\t': - case '\v': - return true; - } -} - -/* Is A an alphabetic character in the C locale? */ -static bool -is_alpha(char a) -{ - switch (a) { - default: - return false; - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - case 'G': - case 'H': - case 'I': - case 'J': - case 'K': - case 'L': - case 'M': - case 'N': - case 'O': - case 'P': - case 'Q': - case 'R': - case 'S': - case 'T': - case 'U': - case 'V': - case 'W': - case 'X': - case 'Y': - case 'Z': - case 'a': - case 'b': - case 'c': - case 'd': - case 'e': - case 'f': - case 'g': - case 'h': - case 'i': - case 'j': - case 'k': - case 'l': - case 'm': - case 'n': - case 'o': - case 'p': - case 'q': - case 'r': - case 's': - case 't': - case 'u': - case 'v': - case 'w': - case 'x': - case 'y': - case 'z': - return true; - } -} - -/* If A is an uppercase character in the C locale, return its lowercase - counterpart. Otherwise, return A. */ -static char -lowerit(char a) -{ - switch (a) { - default: - return a; - case 'A': - return 'a'; - case 'B': - return 'b'; - case 'C': - return 'c'; - case 'D': - return 'd'; - case 'E': - return 'e'; - case 'F': - return 'f'; - case 'G': - return 'g'; - case 'H': - return 'h'; - case 'I': - return 'i'; - case 'J': - return 'j'; - case 'K': - return 'k'; - case 'L': - return 'l'; - case 'M': - return 'm'; - case 'N': - return 'n'; - case 'O': - return 'o'; - case 'P': - return 'p'; - case 'Q': - return 'q'; - case 'R': - return 'r'; - case 'S': - return 's'; - case 'T': - return 't'; - case 'U': - return 'u'; - case 'V': - return 'v'; - case 'W': - return 'w'; - case 'X': - return 'x'; - case 'Y': - return 'y'; - case 'Z': - return 'z'; - } -} - -/* case-insensitive equality */ -static ATTRIBUTE_PURE bool -ciequal(register const char *ap, register const char *bp) -{ - while (lowerit(*ap) == lowerit(*bp++)) - if (*ap++ == '\0') - return true; - return false; -} - -static ATTRIBUTE_PURE bool -itsabbr(register const char *abbr, register const char *word) -{ - if (lowerit(*abbr) != lowerit(*word)) - return false; - ++word; - while (*++abbr != '\0') - do { - if (*word == '\0') - return false; - } while (lowerit(*word++) != lowerit(*abbr)); - return true; -} - -static ATTRIBUTE_PURE const struct lookup * -byword(register const char *const word, - register const struct lookup *const table) -{ - register const struct lookup * foundlp; - register const struct lookup * lp; - - if (word == NULL || table == NULL) - return NULL; - /* - ** Look for exact match. - */ - for (lp = table; lp->l_word != NULL; ++lp) - if (ciequal(word, lp->l_word)) - return lp; - /* - ** Look for inexact match. - */ - foundlp = NULL; - for (lp = table; lp->l_word != NULL; ++lp) - if (itsabbr(word, lp->l_word)) { - if (foundlp == NULL) - foundlp = lp; - else return NULL; /* multiple inexact matches */ - } - return foundlp; -} - -static char ** -getfields(register char *cp) -{ - register char * dp; - register char ** array; - register int nsubs; - - if (cp == NULL) - return NULL; - array = emalloc(size_product(strlen(cp) + 1, sizeof *array)); - nsubs = 0; - for ( ; ; ) { - while (is_space(*cp)) - ++cp; - if (*cp == '\0' || *cp == '#') - break; - array[nsubs++] = dp = cp; - do { - if ((*dp = *cp++) != '"') - ++dp; - else while ((*dp = *cp++) != '"') - if (*dp != '\0') - ++dp; - else { - error(_( - "Odd number of quotation marks" - )); - exit(1); - } - } while (*cp && *cp != '#' && !is_space(*cp)); - if (is_space(*cp)) - ++cp; - *dp = '\0'; - } - array[nsubs] = NULL; - return array; -} - -static _Noreturn void -time_overflow(void) -{ - error(_("time overflow")); - exit(EXIT_FAILURE); -} - -static ATTRIBUTE_PURE zic_t -oadd(const zic_t t1, const zic_t t2) -{ - if (t1 < 0 ? t2 < ZIC_MIN - t1 : ZIC_MAX - t1 < t2) - time_overflow(); - return t1 + t2; -} - -static ATTRIBUTE_PURE zic_t -tadd(const zic_t t1, const zic_t t2) -{ - if (t1 < 0) { - if (t2 < min_time - t1) { - if (t1 != min_time) - time_overflow(); - return min_time; - } - } else { - if (max_time - t1 < t2) { - if (t1 != max_time) - time_overflow(); - return max_time; - } - } - return t1 + t2; -} - -/* -** Given a rule, and a year, compute the date (in seconds since January 1, -** 1970, 00:00 LOCAL time) in that year that the rule refers to. -*/ - -static zic_t -rpytime(register const struct rule *const rp, register const zic_t wantedy) -{ - register int m, i; - register zic_t dayoff; /* with a nod to Margaret O. */ - register zic_t t, y; - - if (wantedy == ZIC_MIN) - return min_time; - if (wantedy == ZIC_MAX) - return max_time; - dayoff = 0; - m = TM_JANUARY; - y = EPOCH_YEAR; - while (wantedy != y) { - if (wantedy > y) { - i = len_years[isleap(y)]; - ++y; - } else { - --y; - i = -len_years[isleap(y)]; - } - dayoff = oadd(dayoff, i); - } - while (m != rp->r_month) { - i = len_months[isleap(y)][m]; - dayoff = oadd(dayoff, i); - ++m; - } - i = rp->r_dayofmonth; - if (m == TM_FEBRUARY && i == 29 && !isleap(y)) { - if (rp->r_dycode == DC_DOWLEQ) - --i; - else { - error(_("use of 2/29 in non leap-year")); - exit(EXIT_FAILURE); - } - } - --i; - dayoff = oadd(dayoff, i); - if (rp->r_dycode == DC_DOWGEQ || rp->r_dycode == DC_DOWLEQ) { - register zic_t wday; - -#define LDAYSPERWEEK ((zic_t) DAYSPERWEEK) - wday = EPOCH_WDAY; - /* - ** Don't trust mod of negative numbers. - */ - if (dayoff >= 0) - wday = (wday + dayoff) % LDAYSPERWEEK; - else { - wday -= ((-dayoff) % LDAYSPERWEEK); - if (wday < 0) - wday += LDAYSPERWEEK; - } - while (wday != rp->r_wday) - if (rp->r_dycode == DC_DOWGEQ) { - dayoff = oadd(dayoff, 1); - if (++wday >= LDAYSPERWEEK) - wday = 0; - ++i; - } else { - dayoff = oadd(dayoff, -1); - if (--wday < 0) - wday = LDAYSPERWEEK - 1; - --i; - } - if (i < 0 || i >= len_months[isleap(y)][m]) { - if (noise) - warning(_("rule goes past start/end of month; \ -will not work with pre-2004 versions of zic")); - } - } - if (dayoff < min_time / SECSPERDAY) - return min_time; - if (dayoff > max_time / SECSPERDAY) - return max_time; - t = (zic_t) dayoff * SECSPERDAY; - return tadd(t, rp->r_tod); -} - -static void -newabbr(const char *const string) -{ - register int i; - - if (strcmp(string, GRANDPARENTED) != 0) { - register const char * cp; - const char * mp; - - cp = string; - mp = NULL; - while (is_alpha(*cp) || ('0' <= *cp && *cp <= '9') - || *cp == '-' || *cp == '+') - ++cp; - if (noise && cp - string < 3) - mp = _("time zone abbreviation has fewer than 3 characters"); - if (cp - string > ZIC_MAX_ABBR_LEN_WO_WARN) - mp = _("time zone abbreviation has too many characters"); - if (*cp != '\0') - mp = _("time zone abbreviation differs from POSIX standard"); - if (mp != NULL) - warning("%s (%s)", mp, string); - } - i = strlen(string) + 1; - if (charcnt + i > TZ_MAX_CHARS) { - error(_("too many, or too long, time zone abbreviations")); - exit(EXIT_FAILURE); - } - strcpy(&chars[charcnt], string); - charcnt += i; -} - -static bool -mkdirs(char *argname) -{ - register char * name; - register char * cp; - - if (argname == NULL || *argname == '\0') - return true; - cp = name = ecpyalloc(argname); - while ((cp = strchr(cp + 1, '/')) != 0) { - *cp = '\0'; -#ifdef HAVE_DOS_FILE_NAMES - /* - ** DOS drive specifier? - */ - if (is_alpha(name[0]) && name[1] == ':' && name[2] == '\0') { - *cp = '/'; - continue; - } -#endif - /* - ** Try to create it. It's OK if creation fails because - ** the directory already exists, perhaps because some - ** other process just created it. - */ - if (mkdir(name, MKDIR_UMASK) != 0) { - int err = errno; - if (itsdir(name) <= 0) { - char const *e = strerror(err); - warning(_("%s: Can't create directory" - " %s: %s"), - progname, name, e); - free(name); - return false; - } - } - *cp = '/'; - } - free(name); - return true; -}