#!/usr/bin/perl -w

# Copyright (c) 2010-2018 Sullivan Beck.  All rights reserved.

# This program is free software; you can redistribute it and/or modify it

# under the same terms as Perl itself.

# This is used to match country names from one source with those from

# an existing source.  It can also be used to create additional aliases

# that do not occur in any of the standards.

#

$Data{'country'}{'link'} =

  [

   [ "Bolivia (Plurinational State of)",

        "Bolivia, Plurinational State of",

        "Plurinational State of Bolivia",

        "Bolivia" ],

   [ "Brunei Darussalam",

        "Brunei" ],

   [ "Cocos (Keeling) Islands (The)",

        "Cocos Islands",

        "The Cocos Islands",

        "Keeling Islands",

        "The Keeling Islands" ],

   [ "Congo",

        "The Republic of the Congo",

        "Republic of the Congo",

        "Congo, The Republic of the",

        "Congo, Republic of the",

        "Congo-Brazzaville",

        "Congo (Brazzaville)" ],

   [ "Congo (The Democratic Republic of the)",

        "Congo, The Democratic Republic of the",

        "Congo, Democratic Republic of the",

        "The Democratic Republic of the Congo",

        "Democratic Republic of the Congo",

        "Congo-Kinshasa",

        "Congo (Kinshasa)" ],

   [ "Czech Republic",

     "The Czech Republic",

     "Czech Republic, The",

     "Czech Republic (The)",

     "Czechia" ],

   [ "Falkland Islands (The) [Malvinas]",

        "Falkland Islands (Malvinas)",

        "Falkland Islands (Islas Malvinas)" ],

   [ "Faroe Islands (The)",

        "Faeroe Islands",

        "The Faeroe Islands" ],

   [ "French Southern Territories",

        "French Southern and Antarctic Lands" ],

   [ "Great Britain",

        "United Kingdom (The)",

        "The United Kingdom",

        "United Kingdom",

        "United Kingdom, The",

        "United Kingdom of Great Britain and Northern Ireland",

        "UK" ],

   [ "Holy See (The) [Vatican City State]",

        "Holy See (Vatican City State)",

        "Holy See (Vatican City)",

        "The Holy See",

        "Holy See",

        "Holy See (The)",

        "Holy See, The",

        "Vatican City" ],

   [ "Hong Kong",

        "China, Hong Kong Special Administrative Region",

        "Hong Kong S.A.R.",

        "Hong Kong Special Administrative Region of China" ],

   [ "Iran (Islamic Republic of)",

        "Iran (The Islamic Republic of)",

        "Iran, Islamic Republic of",

        "Iran, The Islamic Republic of",

        "Islamic Republic of Iran",

        "The Islamic Republic of Iran",

        "Iran" ],

   [ "Kazakhstan",

        "Kazakstan" ],

   [ "Korea (The Democratic People's Republic of)",

        "North Korea" ],

   [ "Korea (The Republic of)",

        "South Korea" ],

   [ "Macao",

        "China, Macao Special Administrative Region",

        "Macao Special Administrative Region of China",

        "Macau S.A.R",

        "Macau S.A.R.",

        "Macau" ],

   [ "Macedonia, The former Yugoslav Republic of",

        "Macedonia" ],

   [ "Micronesia (Federated States of)",

        "Federated States of Micronesia",

        "Micronesia (The Federated States of)",

        "Micronesia, Federated States of",

        "Micronesia, The Federated States of",

        "The Federated States of Micronesia" ],

   [ "Myanmar",

        "The Republic of the Union of Myanmar",

        "Republic of the Union of Myanmar",

        "Burma" ],

   [ "Pitcairn",

        "Pitcairn Island",

        "Pitcairn Islands" ],

   [ "Saint Barthelemy",

        "Saint-Barthelemy" ],

   [ "Saint Helena, Ascension and Tristan da Cunha",

        "Saint Helena" ],

   [ "Saint Martin (French part)",

        "Saint Martin",

        "Saint-Martin (French part)",

        "Saint-Martin" ],

   [ "Solomon Islands",

        "Solomon Islands (The)",

        "Solomon Islands, The",

        "The Solomon Islands" ],

   [ "South Georgia and the South Sandwich Islands",

        "South Georgia and the Islands" ],

   [ "Svalbard and Jan Mayen",

        "Svalbard and Jan Mayen Islands" ],

   [ "Syrian Arab Republic",

        "Syrian Arab Republic (The)",

        "Syrian Arab Republic, The",

        "The Syrian Arab Republic",

        "Syria" ],

   [ "Taiwan (Province of China)",

        "Taiwan",

        "Taiwan, Province of China" ],

   [ "Timor-Leste",

        "East Timor",

        "The Democratic Republic of Timor-Leste",

        "Democratic Republic of Timor-Leste",

        "Timor-Leste, The Democratic Republic of",

        "Timor-Leste, Democratic Republic of",

        "Timor-Leste (The Democratic Republic of)",

        "Timor-Leste (Democratic Republic of)" ],

   [ "The United States of America",

        "The United States",

        "United States",

        "United States, The",

        "United States (The)",

        "US",

        "USA",

        "United States of America" ],

   [ "Venezuela (Bolivarian Republic of)",

        "Venezuela, Bolivarian Republic of",

        "Venezuela, Bolivarian Republic",

        "Venezuela" ],

   [ "Viet Nam",

        "Vietnam" ],

   [ "Virgin Islands (British)",

        "British Virgin Islands",

        "Virgin Islands, British",

        "Virgin Islands (UK)" ],

   [ "Virgin Islands (U.S.)",

        "United States Virgin Islands",

        "Virgin Islands (US)",

        "Virgin Islands, U.S.",

        "Virgin Islands" ],

   [ "Wallis and Futuna",

        "Wallis and Futuna Islands",

        "The Territory of the Wallis and Futuna Islands",

        "Territory of the Wallis and Futuna Islands" ],

   [ "Yemen",

        "The Yemeni Republic",

        "Yemeni Republic",

        "Yemeni Republic, The",

        "Yemeni Republic (The)" ],

   [ "Zambia",

        "The Republic of Zambia",

        "Republic of Zambia",

        "Republic of Zambia, The",

        "Republic of Zambia (The)" ],

   [ "Zimbabwe",

        "The Republic of Zimbabwe",

        "Republic of Zimbabwe",

        "Republic of Zimbabwe, The",

        "Republic of Zimbabwe (The)" ],

];

################################################################################

# ISO 3166-1 countries

$Data{'country'}{'iso'}{'orig'}{'name'} = {

   "Åland Islands"                           => "Aland Islands",

   "Côte d'Ivoire"                           => "Cote d'Ivoire",

   "Curaçao"                                 => "Curacao",

   "Réunion"                                 => "Reunion",

   "Saint Barthélemy"                        => "Saint Barthelemy",

   "Western Sahara*"                         => "Western Sahara",

};

$Data{'country'}{'iso'}{'ignore'} = {

   'name'    => {},

   'alpha-2' => {},

   'alpha-3' => {},

   'numeric' => {},

};

# Unusued

$Data{'country'}{'iso'}{'new'} = {};

################################################################################

# IANA (source of top level domains)

$Data{'country'}{'iana'}{'orig'}{'name'} = {

   "Åland Islands"                           => "Aland Islands",

   "Cocos (keeling) Islands"                 => "Cocos (Keeling) Islands",

   "Congo, The Democratic Republic of The"   => "Congo, The Democratic Republic of the",

   "CÔte D'ivoire"                           => "Cote D'Ivoire",

   "CuraÇao"                                 => "Curacao",

   "Falkland Islands (malvinas)"             => "Falkland Islands (Malvinas)",

   "Holy See (vatican City State)"           => "Holy See (Vatican City State)",

   "RÉunion"                                 => "Reunion",

   "Saint BarthÉlemy"                        => "Saint Barthelemy",

   "Ussr"                                    => "USSR",

   "Virgin Islands, U.s."                    => "Virgin Islands, U.S.",

};

$Data{'country'}{'iana'}{'ignore'} = {

   'name'   => {},

   'dom'    => {},

};

$Data{'country'}{'iana'}{'new'} = {

   'Ascension Island'                        => 1,

   'Netherlands Antilles'                    => 1,

   'Western Sahara'                          => 1,

   'European Union'                          => 1,

   'USSR'                                    => 1,

   'Wallis and Futuna'                       => 1,

   'Yemen'                                   => 1,

   'Zambia'                                  => 1,

   'Zimbabwe'                                => 1,

};

################################################################################

# UN countries

$Data{'country'}{'un'}{'orig'}{'name'} = {

   "Åland Islands"                      => "Aland Islands",

   "Côte d'Ivoire"                  => "Cote d'Ivoire",

   "Curaçao"                            => "Curacao",

   "Democratic People's Republic of Korea" =>

     "Democratic People's Republic of Korea",

   "Lao People's Democratic Republic"    => "Lao People's Democratic Republic",

   "Réunion"                            => "Reunion",

   "Saint Barthélemy"                   => "Saint Barthelemy",

};

$Data{'country'}{'un'}{'new'} = {

   "Channel Islands"                         => 1,

   "Sark"                                    => 1,

};

################################################################################

# GENC countries

$Data{'country'}{'genc'}{'orig'}{'name'} = {

   "CÔTE D’IVOIRE"                           => "Cote d'Ivoire",

   "CURAÇAO",                                => "Curacao",

   "AKROTIRI"                                => "Akrotiri",

   "ASHMORE AND CARTIER ISLANDS"             => "Ashmore and Cartier Islands",

   "BAKER ISLAND"                            => "Baker Island",

   "BASSAS DA INDIA"                         => "Bassas Da India",

   "BONAIRE, SINT EUSTATIUS, AND SABA"       => "Bonaire, Sint Eustatius, and Saba",

   "CLIPPERTON ISLAND"                       => "Clipperton Island",

   "CORAL SEA ISLANDS"                       => "Coral Sea Islands",

   "DHEKELIA"                                => "Dhekelia",

   "DIEGO GARCIA"                            => "Diego Garcia",

   "ENTITY 1"                                => "Entity 1",

   "ENTITY 2"                                => "Entity 2",

   "ENTITY 3"                                => "Entity 3",

   "ENTITY 4"                                => "Entity 4",

   "ENTITY 5"                                => "Entity 5",

   "ENTITY 6"                                => "Entity 6",

   "EUROPA ISLAND"                           => "Europa Island",

   "GAZA STRIP"                              => "Gaza Strip",

   "GLORIOSO ISLANDS"                        => "Glorioso Islands",

   "GUANTANAMO BAY NAVAL BASE"               => "Guantanamo Bay Naval Base",

   "HOWLAND ISLAND"                          => "Howland Island",

   "JAN MAYEN"                               => "Jan Mayen",

   "JARVIS ISLAND"                           => "Jarvis Island",

   "JOHNSTON ATOLL"                          => "Johnston Atoll",

   "JUAN DE NOVA ISLAND"                     => "Juan de Nova Island",

   "KINGMAN REEF"                            => "Kingman Reef",

   "KOREA, NORTH"                            => "Korea, North",

   "KOREA, SOUTH"                            => "Korea, South",

   "KOSOVO"                                  => "Kosovo",

   "LAOS"                                    => "Laos",

   "MIDWAY ISLANDS"                          => "Midway Islands",

   "MOLDOVA"                                 => "Moldova",

   "NAVASSA ISLAND"                          => "Navassa Island",

   "PALMYRA ATOLL"                           => "Palmyra Atoll",

   "PARACEL ISLANDS"                         => "Paracel Islands",

   "RUSSIA"                                  => "Russia",

   "SAINT HELENA, ASCENSION, AND TRISTAN DA CUNHA" => "Saint Helena, Ascension, and Tristan Da Cunha",

   "SINT MAARTEN"                            => "Sint Maarten",

   "SOUTH GEORGIA AND SOUTH SANDWICH ISLANDS" => "South Georgia and South Sandwich Islands",

   "SPRATLY ISLANDS"                         => "Spratly Islands",

   "SVALBARD"                                => "Svalbard",

   "TANZANIA"                                => "Tanzania",

   "TROMELIN ISLAND"                         => "Tromelin Island",

   "UNKNOWN"                                 => "Unknown",

   "WAKE ISLAND"                             => "Wake Island",

   "WEST BANK"                               => "West Bank",

};

$Data{'country'}{'genc'}{'ignore'} = {

   'name'           => { "ENTITY 1" => 1,

                         "ENTITY 2" => 1,

                         "ENTITY 3" => 1,

                         "ENTITY 4" => 1,

                         "ENTITY 5" => 1,

                         "ENTITY 6" => 1,

                       },

   'genc-alpha-2'   => {},

   'genc-alpha-3'   => {},

   'genc-numeric'   => {},

};

$Data{'country'}{'genc'}{'new'} = {

};

1;

# Local Variables:

# mode: cperl

# indent-tabs-mode: nil

# cperl-indent-level: 3

# cperl-continued-statement-offset: 2

# cperl-continued-brace-offset: 0

# cperl-brace-offset: 0

# cperl-brace-imaginary-offset: 0

# cperl-label-offset: 0

# End: