1 # Check tz tables for consistency.
3 # Contributed by Paul Eggert. This file is in the public domain.
8 if (!iso_table) iso_table = "iso3166.tab"
9 if (!zone_table) zone_table = "zone1970.tab"
10 if (!want_warnings) want_warnings = -1
12 while (getline <iso_table) {
14 if ($0 ~ /^#/) continue
16 printf "%s:%d: wrong number of columns\n", \
17 iso_table, iso_NR >>"/dev/stderr"
22 if (cc !~ /^[A-Z][A-Z]$/) {
23 printf "%s:%d: invalid country code '%s'\n", \
24 iso_table, iso_NR, cc >>"/dev/stderr"
34 printf "%s:%d: country code '%s' is %s\n", \
35 iso_table, iso_NR, cc, s \
41 printf "%s:%d: '%s' and '%s' have the same name\n", \
42 iso_table, iso_NR, name2cc[name], cc \
53 while (getline <zone_table) {
55 if ($0 ~ /^#/) continue
56 if (NF != 3 && NF != 4) {
57 printf "%s:%d: wrong number of columns\n", \
58 zone_table, zone_NR >>"/dev/stderr"
67 # Don't complain about a special case for Crimea in zone.tab.
68 # FIXME: zone.tab should be removed, since it is obsolete.
69 # Or at least put just "XX" in its country-code column.
71 && !(zone_table == "zone.tab" \
72 && tz0 == "Europe/Simferopol")) {
73 printf "%s:%d: country code '%s' is out of order\n", \
74 zone_table, zone_NR, cc >>"/dev/stderr"
80 tz2comments[tz] = comments
89 printf "%s:%d: %s: unknown country code\n", \
90 zone_table, zone_NR, cc >>"/dev/stderr"
94 if (coordinates !~ /^[-+][0-9][0-9][0-5][0-9][-+][01][0-9][0-9][0-5][0-9]$/ \
95 && coordinates !~ /^[-+][0-9][0-9][0-5][0-9][0-5][0-9][-+][01][0-9][0-9][0-5][0-9][0-5][0-9]$/) {
96 printf "%s:%d: %s: invalid coordinates\n", \
97 zone_table, zone_NR, coordinates >>"/dev/stderr"
102 for (cctz in cctztab) {
103 cc = substr (cctz, 1, 2)
104 tz = substr (cctz, 3)
105 if (1 < cc_used[cc]) {
106 comments_needed[tz] = cc
109 for (cctz in cctztab) {
110 cc = substr (cctz, 1, 2)
111 tz = substr (cctz, 3)
112 if (!comments_needed[tz] && tz2comments[tz]) {
113 printf "%s:%d: unnecessary comment '%s'\n", \
114 zone_table, tz2NR[tz], tz2comments[tz] \
118 } else if (comments_needed[tz] && !tz2comments[tz]) {
119 printf "%s:%d: missing comment for %s\n", \
120 zone_table, tz2NR[tz], comments_needed[tz] \
136 if ($5 ~ /%/) rulePercentUsed[$4] = 1
137 } else if ($1 == "Link" && zone_table == "zone.tab") {
138 # Ignore Link commands if source and destination basenames
139 # are identical, e.g. Europe/Istanbul versus Asia/Istanbul.
142 while ((i = index(src, "/"))) src = substr(src, i+1)
143 while ((i = index(dst, "/"))) dst = substr(dst, i+1)
144 if (src != dst) tz = $3
145 } else if ($1 == "Rule") {
147 if ($10 != "-") ruleLetters[$2] = 1
150 if ($3 ~ /%/) rulePercentUsed[$2] = 1
152 if (tz && tz ~ /\//) {
154 printf "%s: no data for '%s'\n", zone_table, tz \
163 for (tz in ruleDefined) {
165 printf "%s: Rule never used\n", tz
169 for (tz in ruleLetters) {
170 if (!rulePercentUsed[tz]) {
171 printf "%s: Rule contains letters never used\n", tz
177 printf "%s:%d: no Zone table for '%s'\n", \
178 zone_table, tz2NR[tz], tz >>"/dev/stderr"
182 if (0 < want_warnings) {
183 for (cc in cc2name) {
185 printf "%s:%d: warning: " \
186 "no Zone entries for %s (%s)\n", \
187 iso_table, cc2NR[cc], cc, cc2name[cc]