From 60876481060ad63e3a2e450d18351e01f850cce6 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 2 May 2009 14:24:47 +0000
Subject: [PATCH] cc: add reserved codes

---
 base.css  |  1 +
 cc.inc.pl | 11 ++++++++++-
 cc.plp    |  3 ++-
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/base.css b/base.css
index ee92ec1..2806139 100644
--- a/base.css
+++ b/base.css
@@ -297,6 +297,7 @@ td.Xi, td.Cs               {background: #CCC} /* invalid */
 td.Xd                      {color: #844} /* deprecated */
 td.Xr                      {color: #888} /* reserved (digraph reverse or proposal) */
 .dimap td.Xr               {background: #EEE} /* reversed digraph */
+.ccmap td.Xr {opacity:.4}
 
 /* implementation-based alternatives */
 td.di-b       {background: #FDD} /* bmp */
diff --git a/cc.inc.pl b/cc.inc.pl
index 703471b..786655a 100644
--- a/cc.inc.pl
+++ b/cc.inc.pl
@@ -1,5 +1,6 @@
 # perl -MDBIx::Simple -MData::Dump=pp -e 'pp({DBIx::Simple->new("dbi:SQLite:dbname=locale.db")->query("SELECT country.code_alpha2, country.name, continent.name FROM country LEFT JOIN continent ON country.code_alpha2 = continent.country_code ORDER BY country.code_alpha2")->map_arrays(0)})'
 {
+ac => ["Ascension (dependency of Saint Helena)", 'c-oc Xr', 'sh'],
 ad => ["Andorra", 'c-eu'],
 ae => ["United Arab Emirates", 'c-as'],
 af => ["Afghanistan", 'c-as'],
@@ -47,6 +48,7 @@ cl => ["Chile", 'c-sa'],
 cm => ["Cameroon", 'c-af'],
 cn => ["China", 'c-as'],
 co => ["Colombia", 'c-sa'],
+cp => ["Clipperton (French possession)", 'c-na Xr', 'fr'],
 cr => ["Costa Rica", 'c-na'],
 cu => ["Cuba", 'c-na'],
 cv => ["Cape Verde", 'c-af'],
@@ -56,9 +58,11 @@ cz => ["Czech Republic", 'c-eu'],
 de => ["Germany", 'c-eu'],
 dj => ["Djibouti", 'c-af'],
 dk => ["Denmark", 'c-eu'],
+dg => ["Diego Garcia (British Territory)", 'c-as Xr', 'io'],
 dm => ["Dominica", 'c-na'],
 do => ["Dominican Republic", 'c-na'],
 dz => ["Algeria", 'c-af'],
+ea => ["Ceuta and Melilla (Spanish cities outside EU territory)", 'c-af Xr', 'es'],
 ec => ["Ecuador", 'c-sa'],
 ee => ["Estonia", 'c-eu'],
 eg => ["Egypt", 'c-af'],
@@ -66,13 +70,14 @@ eh => ["Western Sahara", 'c-af'],
 er => ["Eritrea", 'c-af'],
 es => ["Spain", 'c-eu'],
 et => ["Ethiopia", 'c-af'],
+eu => ["European Union", 'c-eu Xr'],
 fi => ["Finland", 'c-eu'],
 fj => ["Fiji", 'c-oc'],
 fk => ["Falkland Islands (Malvinas)", 'c-sa'],
 fm => ["Micronesia, Federated States of", 'c-oc'],
 fo => ["Faroe Islands", 'c-oc'],
 fr => ["France", 'c-eu'],
-fx => ["France, Metropolitan", 'c-eu'],
+fx => ["Metropolitan France", 'c-eu Xr', 'fr'],
 ga => ["Gabon", 'c-af'],
 gb => ["United Kingdom", 'c-eu'],
 gd => ["Grenada", 'c-na'],
@@ -97,6 +102,7 @@ hn => ["Honduras", 'c-na'],
 hr => ["Croatia", 'c-eu'],
 ht => ["Haiti", 'c-na'],
 hu => ["Hungary", 'c-eu'],
+ic => ["Canary Islands (Spanish archipelago)", 'c-af Xr'],
 id => ["Indonesia", 'c-as'],
 ie => ["Ireland", 'c-eu'],
 il => ["Israel", 'c-as'],
@@ -202,9 +208,11 @@ sn => ["Senegal", 'c-af'],
 so => ["Somalia", 'c-af'],
 sr => ["Suriname", 'c-sa'],
 st => ["Sao Tome and Principe", 'c-af'],
+su => ["former USSR", 'c-eu Xr'],
 sv => ["El Salvador", 'c-na'],
 sy => ["Syrian Arab Republic", 'c-as'],
 sz => ["Swaziland", 'c-af'],
+ta => ["Tristan da Cunha (dependency of Saint Helena)", 'c-oc Xr'],
 tc => ["Turks and Caicos Islands", 'c-na'],
 td => ["Chad", 'c-af'],
 tf => ["French Southern Territories", 'c-oc'],
@@ -223,6 +231,7 @@ tw => ["Taiwan, Province of China", 'c-as'],
 tz => ["Tanzania, United Republic of", 'c-af'],
 ua => ["Ukraine", 'c-eu'],
 ug => ["Uganda", 'c-af'],
+uk => ["(United Kingdom)", 'c-eu Xr', 'gb'],
 um => ["United States Minor Outlying Islands", 'c-na'],
 us => ["United States", 'c-na'],
 uy => ["Uruguay", 'c-sa'],
diff --git a/cc.plp b/cc.plp
index 48b9910..57a8d91 100644
--- a/cc.plp
+++ b/cc.plp
@@ -33,7 +33,7 @@ sub quote {
 }
 
 {
-	printf '<table class="glyphs">';
+	printf '<table class="glyphs ccmap">';
 	print '<col>';
 	for my $section (qw{thead}) {
 		print "<$section><tr><th>↱";
@@ -49,6 +49,7 @@ sub quote {
 				print $code =~ /^x|^q[m-z]|^aa|^zz/ ? '<td class="X Co">' : '<td>';
 				next;
 			};
+			$code = $country->[2] if defined $country->[2];
 			my $img = sprintf '<img src="/flag/%s.png" alt="%s">', $code, $code
 				if -e "flag/$code.png";
 			printf "\n".'<td class="%s" title="%s">%s',
-- 
2.30.0