Language/Country name servers

Richard Suchenwirth 1999-07-22 - The following two procs allow querying language resp. country codes (as of ISO standards 639 for languages, 3166 for countries --see http://www.iana.org/cctld/cctld-whois.htm , for example) in both ways, e.g.

 i18n:language de ==> German
 i18n:language English ==> en
 i18n:country TK ==> Tokelau
 i18n:country India ==> IN

Called without arguments, they return a sorted list of the codes they know, so you can call them like

 foreach i [i18n:country] {puts "$i is for [i18n:country $i]"}

Not very fascinating algorithms, but the data (I pasted them from web pages and formatted them for Tcl) may be useful for people involved in I18N (that's Internationalization, because there's 18 letters between the I and the N ;-)


See also http://www.unicode.org/onlinedat/languages.html and http://www.unicode.org/onlinedat/countries.html


 proc i18n:language {{what ""}} {
    set list {
 aa Afar ab Abkhazian af Afrikaans am Amharic ar Arabic as Assamese
 ay Aymara az Azerbaijani ba Bashkir be Byelorussian bg Bulgarian
 bh Bihari bi Bislama bn Bengali bo Tibetan br Breton ca Catalan
 co Corsican cs Czech cy Welsh da Danish de German dz Bhutani
 el Greek en English eo Esperanto es Spanish et Estonian eu Basque
 fi Finnish fj Fiji fo Faroese fr French fy Frisian ga Irish
 gl Galician gn Guarani gu Gujarati ha Hausa hi Hindi hr Croatian
 hu Hungarian hy Armenian ia Interlingua ie Interlingue ik Inupiak
 in Indonesian is Icelandic it Italian iw Hebrew ja Japanese ji Yiddish
 jv Javanese ka Georgian kk Kazakh kl Greenlandic km Cambodian
 kn Kannada ko Korean ks Kashmiri ku Kurdish ky Kirghiz la Latin
 ln Lingala lo Laothian lt Lithuanian lv Latvian mg Malagasy mi Maori
 mk Macedonian ml Malayalam mn Mongolian mo Moldavian mr Marathi
 ms Malay mt Maltese my Burmese na Nauru ne Nepali nl Dutch no Norwegian
 oc Occitan om Afan(Oromo) or Oriya pa Punjabi pl Polish ps Pashto
 pt Portuguese qu Quechua rm Rhaeto-romance rn Kurundi ro Romanian
 ru Russian rw Kinyarwanda sa Sanskrit sd Sindhi sg Sangho
 sh Serbo-croatian si Singhalese sk Slovak sl Slovenian sm Samoan
 sn Shona so Somali sq Albanian sr Serbian ss Siswati st Sesotho
 su Sundanese sv Swedish sw Swahili ta Tamil te Telugu tg Tajik th Thai
 ti Tigrinya tk Turkmen tl Tagalog tn Setswana to Tonga tr Turkish
 ts Tsonga tt Tatar tw Twi uk Ukrainian ur Urdu uz Uzbek vi Vietnamese
 vo Volapuk wo Wolof xh Xhosa yo Yoruba zh Chinese zu Zulu
    }
    if {$what==""} {
        foreach {short long} $list {lappend res $short}
        return [lsort $res]
    }
    set i [lsearch -exact $list $what]
    if {$i==-1} {return "--"}
    if {$i%2} {return [lindex $list [expr $i-1]]}
    return [lindex $list [expr $i+1]]
 }

 proc i18n:country {{what ""}} {
    set list {
 AD Andorra AE {United Arab Emirates} AF Afghanistan AG {Antigua and Barbuda}
 AI Anguilla AL Albania AM Armenia AN {Netherlands Antilles} AO Angola
 AQ Antarctica AR Argentina AS {American Samoa} AT Austria AU Australia
 AW Aruba AZ Azerbaijan BA {Bosnia and Herzegowina} BB Barbados
 BD Bangladesh BE Belgium BF {Burkina Faso} BG Bulgaria BH Bahrain BI  Burundi
 BJ Benin BM Bermuda BN {Brunei Darussalam} BO Bolivia BR Brazil BS Bahamas
 BT Bhutan BV {Bouvet Island} BW Botswana BY Belarus BZ Belize CA Canada
 CC {Cocos (Keeling) Islands} CF {Central African Republic} CG Congo
 CH Switzerland CI {Cote d'Ivoire} CK {Cook Islands} CL Chile CM Cameroon
 CN China CO Colombia CR {Costa Rica} CU Cuba CV {Cape Verde}
 CX {Christmas Island} CY Cyprus CZ {Czech Republic} DE Germany DJ Djibouti
 DK Denmark DM Dominica DO {Dominican Republic} DZ Algeria EC Ecuador
 EE Estonia EG Egypt EH {Western Sahara} ER Eritrea ES Spain ET Ethiopia
 FI Finland FJ Fiji FK {Falkland Islands (Malvinas)}
 FM {Micronesia, Federated States Of} FO {Faroe Islands} FR France
 FX {France, Metropolitan} GA Gabon GB {United Kingdom} GD Grenada GE Georgia
 GF {French Guiana} GH Ghana GI Gibraltar GL Greenland GM Gambia GN  Guinea
 GP Guadeloupe GQ {Equatorial Guinea} GR Greece
 GS {South Georgia and The South Sandwich Islands} GT Guatemala GU Guam
 GW Guinea-Bissau GY Guyana HK {Hong Kong} HM {Heard and Mc Donald Islands}
 HN Honduras HR {Croatia} HT Haiti HU Hungary ID Indonesia IE Ireland
 IL Israel IN India IO {British Indian Ocean Territory} IQ Iraq
 IR {Iran} IS Iceland IT Italy JM Jamaica JO Jordan JP Japan KE Kenya
 KG Kyrgyzstan KH Cambodia KI Kiribati KM Comoros KN {Saint Kitts and  Nevis}
 KP {Korea, Democratic People's Republic Of} KR {Korea, Republic Of}
 KW Kuwait KY {Cayman Islands} KZ Kazakhstan
 LA {Lao People's Democratic Republic} LB Lebanon LC {Saint Lucia}
 LI Liechtenstein LK {Sri Lanka} LR Liberia LS Lesotho LT Lithuania
 LU Luxembourg LV Latvia LY {Libyan Arab Jamahiriya} MA Morocco MC Monaco
 MD {Moldova, Republic Of} MG Madagascar MH {Marshall Islands}
 MK {Macedonia, The Former Yugoslav Republic Of} ML Mali MM Myanmar
 MN Mongolia MO Macau MP {Northern Mariana Islands} MQ Martinique
 MR Mauritania MS Montserrat MT Malta MU Mauritius MV Maldives MW Malawi
 MX Mexico MY Malaysia MZ Mozambique NA Namibia NC {New Caledonia}
 NE Niger NF {Norfolk Island} NG Nigeria NI Nicaragua NL Netherlands
 NO Norway NP Nepal NR Nauru NU Niue NZ {New Zealand} OM Oman PA Panama
 PE Peru PF {French Polynesia} PG {Papua New Guinea} PH Philippines
 PK Pakistan PL Poland PM {St. Pierre and Miquelon} PN Pitcairn
 PR {Puerto Rico} PT Portugal PW Palau PY Paraguay QA Qatar RE Reunion
 RO Romania RU {Russian Federation} RW Rwanda SA {Saudi Arabia}
 SB {Solomon Islands} SC Seychelles SD Sudan SE Sweden SG Singapore
 SH {St. Helena} SI Slovenia SJ {Svalbard and Jan Mayen Islands}
 SK {Slovakia (Slovak Republic)} SL {Sierra Leone} SM {San Marino} SN Senegal
 SO Somalia SR Suriname ST {Sao Tome and Principe} SV {El Salvador}
 SY {Syrian Arab Republic} SZ Swaziland TC {Turks and Caicos Islands}
 TD Chad TF {French Southern Territories} TG Togo TH Thailand TJ Tajikistan
 TK Tokelau TM Turkmenistan TN Tunisia TO Tonga TP {East Timor} TR Turkey
 TT {Trinidad and Tobago} TV Tuvalu TW {Taiwan}
 TZ {Tanzania, United Republic Of} UA Ukraine UG Uganda
 UM {United States Minor Outlying Islands} US {United States}
 UY Uruguay UZ Uzbekistan
 VA {Vatican State} VC {Saint Vincent and The Grenadines} VE Venezuela
 VG {Virgin Islands (British)} VI {Virgin Islands (U.S.)} VN {Viet Nam}
 VU Vanuatu WF {Wallis and Futuna Islands} WS Samoa YE Yemen YT Mayotte
 YU Yugoslavia ZA {South Africa} ZM Zambia ZR Zaire ZW Zimbabwe
    }
    if {$what==""} {
        foreach {short long} $list {lappend res $short}
        return [lsort $res]
    }
    set i [lsearch -exact $list $what]
    if {$i==-1} {return "--"}
    if {$i%2} {return [lindex $list [expr $i-1]]}
    return [lindex $list [expr $i+1]]
 }
 # Test:
  catch {console show}
  foreach i [i18n:country] {puts "$i is for [i18n:country $i]"}

i18n - writing for the world | Arts and crafts of Tcl-Tk programming