From 84f6f39be4ffeb6307756b97126ad993bef367a8 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sun, 1 Feb 2015 09:38:30 +0100 Subject: [PATCH] countries: hardcode codes reserved for WIPO --- tools/mkcountries-geonames | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tools/mkcountries-geonames b/tools/mkcountries-geonames index 4e80697..fe1acb7 100755 --- a/tools/mkcountries-geonames +++ b/tools/mkcountries-geonames @@ -36,6 +36,18 @@ my %cc; # map of country code to info array wl => ["(Saint Lucia)", "c-na Xr", "(Saint Luc.)", 'lc'], wv => ["(Saint Vincent)", "c-na Xr", "(Saint Vin.)", 'vc'], yv => ["(Venezuela)", "c-sa Xr", undef, 've'], + + # WIPO, agreed not to use + ap => ["African Regional Industrial Property Organization", "c-af Xr", "ARIPO"], + bx => ["Benelux Office for Intellectual Property", "c-eu Xr", "BOIP"], + ef => ["European Community Patent Convention", "c-eu Xr", "CPC"], + em => ["European Trademark Office", "c-eu Xr", "OHIM"], + ep => ["European Patent Organization", "c-eu Xr", "EPOrg"], + ev => ["Eurasian Patent Organization", "c-as Xr", "EAPO"], + gc => ["Gulf Patent Office", "c-as Xr", "GCCPO"], + ib => ["International Bureau of WIPO", "Xr", "IB WIPO"], + oa => ["African Intellectual Property Organization", "c-af Xr", "OAPI"], + wo => ["World Intellectual Property Organization", "Xr", "WIPO"], ); while (<>) { -- 2.30.0