[Ada] Adding support for Ada.Locales package
This patch adds generic support for the Ada.Locales package that relies on the setlocale() C service. 2018-05-22 Javier Miranda <miranda@adacore.com> gcc/ada/ * locales.c: New implementation for the Ada.Locales package. * libgnat/a-locale.ads: Remove comment indicating that this is not implemented. * doc/gnat_rm/standard_library_routines.rst: Remove comment indicating that this is not implemented. * gnat_rm.texi: Regenerate. From-SVN: r260509
This commit is contained in:
Javier Miranda
Pierre-Marie de Rodat
parent
e5fc017905
commit
92ea8dd20e
@ -1,3 +1,12 @@
|
||||
2018-05-22 Javier Miranda <miranda@adacore.com>
|
||||
|
||||
* locales.c: New implementation for the Ada.Locales package.
|
||||
* libgnat/a-locale.ads: Remove comment indicating that this is not
|
||||
implemented.
|
||||
* doc/gnat_rm/standard_library_routines.rst: Remove comment indicating
|
||||
that this is not implemented.
|
||||
* gnat_rm.texi: Regenerate.
|
||||
|
||||
2018-05-22 Hristian Kirtchev <kirtchev@adacore.com>
|
||||
|
||||
* exp_ch5.adb, freeze.adb, pprint.adb, sem_ch4.adb, sem_res.adb: Minor
|
||||
|
||||
@ -273,9 +273,7 @@ the unit is not implemented.
|
||||
|
||||
``Ada.Locales`` *(A.19)*
|
||||
This package provides declarations providing information (Language
|
||||
and Country) about the current locale. This package is currently not
|
||||
implemented other than by providing stubs which will always return
|
||||
Language_Unknown/Country_Unknown.
|
||||
and Country) about the current locale.
|
||||
|
||||
|
||||
``Ada.Numerics``
|
||||
|
||||
@ -20617,9 +20617,7 @@ This package provides a generic interface to generalized iterators.
|
||||
@item @code{Ada.Locales} @emph{(A.19)}
|
||||
|
||||
This package provides declarations providing information (Language
|
||||
and Country) about the current locale. This package is currently not
|
||||
implemented other than by providing stubs which will always return
|
||||
Language_Unknown/Country_Unknown.
|
||||
and Country) about the current locale.
|
||||
|
||||
@item @code{Ada.Numerics}
|
||||
|
||||
|
||||
@ -15,10 +15,6 @@
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- Note that this package is currently not implemented on any platform and
|
||||
-- functions Language and Country will always return
|
||||
-- Language_Unknown/Country_Unknown.
|
||||
|
||||
package Ada.Locales is
|
||||
pragma Preelaborate (Locales);
|
||||
pragma Remote_Types (Locales);
|
||||
|
||||
@ -31,17 +31,777 @@
|
||||
|
||||
/* This file provides OS-dependent support for the Ada.Locales package. */
|
||||
|
||||
#include <locale.h>
|
||||
#include <ctype.h>
|
||||
#include <stddef.h>
|
||||
|
||||
typedef char char4 [4];
|
||||
|
||||
/* Table containing equivalences between ISO_639_1 codes and their ISO_639_3
|
||||
alpha-3 code plus their language name. */
|
||||
|
||||
static char* iso_639[] =
|
||||
{
|
||||
"aa", "aar", "Afar",
|
||||
"ab", "abk", "Abkhazian",
|
||||
"ae", "ave", "Avestan",
|
||||
"af", "afr", "Afrikaans",
|
||||
"ak", "aka", "Akan",
|
||||
"am", "amh", "Amharic",
|
||||
"an", "arg", "Aragonese",
|
||||
"ar", "ara", "Arabic",
|
||||
"as", "asm", "Assamese",
|
||||
"av", "ava", "Avaric",
|
||||
"ay", "aym", "Aymara",
|
||||
"az", "aze", "Azerbaijani",
|
||||
|
||||
"ba", "bak", "Bashkir",
|
||||
"be", "bel", "Belarusian",
|
||||
"bg", "bul", "Bulgarian",
|
||||
"bi", "bis", "Bislama",
|
||||
"bm", "bam", "Bambara",
|
||||
"bn", "ben", "Bengali",
|
||||
"bo", "bod", "Tibetan",
|
||||
"br", "bre", "Breton",
|
||||
"bs", "bos", "Bosnian",
|
||||
|
||||
"ca", "cat", "Catalan",
|
||||
"ce", "che", "Chechen",
|
||||
"ch", "cha", "Chamorro",
|
||||
"co", "cos", "Corsican",
|
||||
"cr", "cre", "Cree",
|
||||
"cs", "ces", "Czech",
|
||||
"cu", "chu", "Church Slavic",
|
||||
"cv", "chv", "Chuvash",
|
||||
"cy", "cym", "Welsh",
|
||||
|
||||
"da", "dan", "Danish",
|
||||
"de", "deu", "German",
|
||||
"dv", "div", "Divehi",
|
||||
"dz", "dzo", "Dzongkha",
|
||||
|
||||
"ee", "ewe", "Ewe",
|
||||
"el", "ell", "Modern Greek",
|
||||
"en", "eng", "English",
|
||||
"eo", "epo", "Esperanto",
|
||||
"es", "spa", "Spanish",
|
||||
"et", "est", "Estonian",
|
||||
"eu", "eus", "Basque",
|
||||
|
||||
"fa", "fas", "Persian",
|
||||
"ff", "ful", "Fulah",
|
||||
"fi", "fin", "Finnish",
|
||||
"fj", "fij", "Fijian",
|
||||
"fo", "fao", "Faroese",
|
||||
"fr", "fra", "French",
|
||||
"fy", "fry", "Western Frisian",
|
||||
|
||||
"ga", "gle", "Irish",
|
||||
"gd", "gla", "Scottish Gaelic",
|
||||
"gl", "glg", "Galician",
|
||||
"gn", "grn", "Guarani",
|
||||
"gu", "guj", "Gujarati",
|
||||
"gv", "glv", "Manx",
|
||||
|
||||
"ha", "hau", "Hausa",
|
||||
"he", "heb", "Hebrew",
|
||||
"hi", "hin", "Hindi",
|
||||
"ho", "hmo", "Hiri Motu",
|
||||
"hr", "hrv", "Croatian",
|
||||
"ht", "hat", "Haitian",
|
||||
"hu", "hun", "Hungarian",
|
||||
"hy", "hye", "Armenian",
|
||||
"hz", "her", "Herero",
|
||||
|
||||
"ia", "ina", "Interlingua",
|
||||
"id", "ind", "Indonesian",
|
||||
"ie", "ile", "Interlingue",
|
||||
"ig", "ibo", "Igbo",
|
||||
"ii", "iii", "Sichuan Yi",
|
||||
"ik", "ipk", "Inupiaq",
|
||||
"io", "ido", "Ido",
|
||||
"is", "isl", "Icelandic",
|
||||
"it", "ita", "Italian",
|
||||
"iu", "iku", "Inuktitut",
|
||||
|
||||
"ja", "jpn", "Japanese",
|
||||
"jv", "jav", "Javanese",
|
||||
|
||||
"ka", "kat", "Georgian",
|
||||
"kg", "kon", "Kongo",
|
||||
"ki", "kik", "Kikuyu",
|
||||
"kj", "kua", "Kuanyama",
|
||||
"kk", "kaz", "Kazakh",
|
||||
"kl", "kal", "Kalaallisut",
|
||||
"km", "khm", "Central Khmer",
|
||||
"kn", "kan", "Kannada",
|
||||
"ko", "kor", "Korean",
|
||||
"kr", "kau", "Kanuri",
|
||||
"ks", "kas", "Kashmiri",
|
||||
"ku", "kur", "Kurdish",
|
||||
"kv", "kom", "Komi",
|
||||
"kw", "cor", "Cornish",
|
||||
"ky", "kir", "Kirghiz",
|
||||
|
||||
"la", "lat", "Latin",
|
||||
"lb", "ltz", "Luxembourgish",
|
||||
"lg", "lug", "Ganda",
|
||||
"li", "lim", "Limburgan",
|
||||
"ln", "lin", "Lingala",
|
||||
"lo", "lao", "Lao",
|
||||
"lt", "lit", "Lithuanian",
|
||||
"lu", "lub", "Luba-Katanga",
|
||||
"lv", "lav", "Latvian",
|
||||
|
||||
"mg", "mlg", "Malagasy",
|
||||
"mh", "mah", "Marshallese",
|
||||
"mi", "mri", "Maori",
|
||||
"mk", "mkd", "Macedonian",
|
||||
"ml", "mal", "Malayalam",
|
||||
"mn", "mon", "Mongolian",
|
||||
"mr", "mar", "Marathi",
|
||||
"ms", "msa", "Malay",
|
||||
"mt", "mlt", "Maltese",
|
||||
"my", "mya", "Burmese",
|
||||
|
||||
"na", "nau", "Nauru",
|
||||
"nb", "nob", "Norwegian Bokmal",
|
||||
"nd", "nde", "North Ndebele",
|
||||
"ne", "nep", "Nepali",
|
||||
"ng", "ndo", "Ndonga",
|
||||
"nl", "nld", "Dutch",
|
||||
"nn", "nno", "Norwegian Nynorsk",
|
||||
"no", "nor", "Norwegian",
|
||||
"nr", "nbl", "South Ndebele",
|
||||
"nv", "nav", "Navajo",
|
||||
"ny", "nya", "Nyanja",
|
||||
|
||||
"oc", "oci", "Occitan",
|
||||
"oj", "oji", "Ojibwa",
|
||||
"om", "orm", "Oromo",
|
||||
"or", "ori", "Oriya",
|
||||
"os", "oss", "Ossetian",
|
||||
|
||||
"pa", "pan", "Panjabi",
|
||||
"pi", "pli", "Pali",
|
||||
"pl", "pol", "Polish",
|
||||
"ps", "pus", "Pushto",
|
||||
"pt", "por", "Portuguese",
|
||||
|
||||
"qu", "que", "Quechua",
|
||||
|
||||
"rm", "roh", "Romansh",
|
||||
"rn", "run", "Rundi",
|
||||
"ro", "ron", "Romanian",
|
||||
"ru", "rus", "Russian",
|
||||
"rw", "kin", "Kinyarwanda",
|
||||
|
||||
"sa", "san", "Sanskrit",
|
||||
"sc", "srd", "Sardinian",
|
||||
"sd", "snd", "Sindhi",
|
||||
"se", "sme", "Northern Sami",
|
||||
"sg", "sag", "Sango",
|
||||
"sh", "hbs", "Serbo-Croatian",
|
||||
"si", "sin", "Sinhala",
|
||||
"sk", "slk", "Slovak",
|
||||
"sl", "slv", "Slovenian",
|
||||
"sm", "smo", "Samoan",
|
||||
"sn", "sna", "Shona",
|
||||
"so", "som", "Somali",
|
||||
"sq", "sqi", "Albanian",
|
||||
"sr", "srp", "Serbian",
|
||||
"ss", "ssw", "Swati",
|
||||
"st", "sot", "Southern Sotho",
|
||||
"su", "sun", "Sundanese",
|
||||
"sv", "swe", "Swedish",
|
||||
"sw", "swa", "Swahili",
|
||||
|
||||
"ta", "tam", "Tamil",
|
||||
"te", "tel", "Telugu",
|
||||
"tg", "tgk", "Tajik",
|
||||
"th", "tha", "Thai",
|
||||
"ti", "tir", "Tigrinya",
|
||||
"tk", "tuk", "Turkmen",
|
||||
"tl", "tgl", "Tagalog",
|
||||
"tn", "tsn", "Tswana",
|
||||
"to", "ton", "Tonga",
|
||||
"tr", "tur", "Turkish",
|
||||
"ts", "tso", "Tsonga",
|
||||
"tt", "tat", "Tatar",
|
||||
"tw", "twi", "Twi",
|
||||
"ty", "tah", "Tahitian",
|
||||
|
||||
"ug", "uig", "Uighur",
|
||||
"uk", "ukr", "Ukrainian",
|
||||
"ur", "urd", "Urdu",
|
||||
"uz", "uzb", "Uzbek",
|
||||
|
||||
"ve", "ven", "Venda",
|
||||
"vi", "vie", "Vietnamese",
|
||||
"vo", "vol", "Volapuk",
|
||||
|
||||
"wa", "wln", "Walloon",
|
||||
"wo", "wol", "Wolof",
|
||||
|
||||
"xh", "xho", "Xhosa",
|
||||
|
||||
"yi", "yid", "Yiddish",
|
||||
"yo", "yor", "Yoruba",
|
||||
|
||||
"za", "zha", "Zhuang",
|
||||
"zh", "zho", "Chinese",
|
||||
"zu", "zul", "Zulu"
|
||||
};
|
||||
|
||||
/* Table containing equivalences between ISO_3166 alpha-2 codes and country
|
||||
names. This table has several entries for codes that have several valid
|
||||
country names. */
|
||||
|
||||
static char* iso_3166[] =
|
||||
{
|
||||
"AU", "Australia",
|
||||
"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",
|
||||
"AX", "Aland Islands",
|
||||
"AZ", "Azerbaijan",
|
||||
|
||||
"BA", "Bosnia and Herzegovina",
|
||||
"BB", "Barbados",
|
||||
"BD", "Bangladesh",
|
||||
"BE", "Belgium",
|
||||
"BF", "Burkina Faso",
|
||||
"BG", "Bulgaria",
|
||||
"BH", "Bahrain",
|
||||
"BI", "Burundi",
|
||||
"BJ", "Benin",
|
||||
"BL", "Saint Barthélemy",
|
||||
"BM", "Bermuda",
|
||||
"BN", "Brunei Darussalam",
|
||||
"BO", "Bolivia, Plurinational State of",
|
||||
"BQ", "Bonaire, Sint Eustatius and Saba",
|
||||
"BR", "Brazil",
|
||||
"BS", "Bahamas",
|
||||
"BT", "Bhutan",
|
||||
"BV", "Bouvet Island",
|
||||
"BW", "Botswana",
|
||||
"BY", "Belarus",
|
||||
"BZ", "Belize",
|
||||
|
||||
"CA", "Canada",
|
||||
"CC", "Cocos (Keeling) Islands",
|
||||
"CD", "Congo, Democratic Republic of the",
|
||||
"CF", "Central African Republic",
|
||||
"CG", "Congo",
|
||||
"CH", "Switzerland",
|
||||
"CI", "Côte d'Ivoire",
|
||||
"CK", "Cook Islands",
|
||||
"CL", "Chile",
|
||||
"CM", "Cameroon",
|
||||
"CN", "China",
|
||||
"CN", "People’s Republic of China",
|
||||
"CN", "PR China",
|
||||
"CN", "PR-China",
|
||||
"CO", "Colombia",
|
||||
"CR", "Costa Rica",
|
||||
"CS", "Czechoslovakia",
|
||||
"CU", "Cuba",
|
||||
"CV", "Cape Verde",
|
||||
"CW", "Curaçao",
|
||||
"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",
|
||||
"FG", "Fiji",
|
||||
"FK", "Falkland Islands (Malvinas)",
|
||||
"FM", "Micronesia, Federated States of",
|
||||
"FO", "Faroe Islands",
|
||||
"FR", "France",
|
||||
|
||||
"GA", "Gabon",
|
||||
"GB", "United Kingdom",
|
||||
"GB", "United-Kingdom",
|
||||
"GB", "England",
|
||||
"GB", "Britain",
|
||||
"GB", "Great Britain",
|
||||
"GD", "Grenada",
|
||||
"GE", "Georgia",
|
||||
"GF", "French Guiana",
|
||||
"GG", "Guernsey",
|
||||
"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",
|
||||
"HK", "Hong-Kong",
|
||||
"HM", "Heard Island and McDonald Islands",
|
||||
"HN", "Honduras",
|
||||
"HR", "Croatia",
|
||||
"HT", "Haiti",
|
||||
"HU", "Hungary",
|
||||
|
||||
"ID", "Indonesia",
|
||||
"IE", "Ireland",
|
||||
"IL", "Israel",
|
||||
"IM", "Isle of Man",
|
||||
"IN", "India",
|
||||
"IO", "British Indian Ocean Territory",
|
||||
"IQ", "Iraq",
|
||||
"IR", "Iran",
|
||||
"IR", "Iran, Islamic Republic of",
|
||||
"IS", "Iceland",
|
||||
"IT", "Italy",
|
||||
|
||||
"JE", "Jersey",
|
||||
"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", "Libya",
|
||||
|
||||
"MA", "Morocco",
|
||||
"MC", "Monaco",
|
||||
"MD", "Moldova, Republic of",
|
||||
"ME", "Montenegro",
|
||||
"MF", "Saint Martin",
|
||||
"MG", "Madagascar",
|
||||
"MH", "Marshall Islands",
|
||||
"MK", "Macedonia",
|
||||
"ML", "Mali",
|
||||
"MM", "Myanmar",
|
||||
"MN", "Mongolia",
|
||||
"MO", "Macao",
|
||||
"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",
|
||||
"NL", "Holland",
|
||||
"NO", "Norway",
|
||||
"NP", "Nepal",
|
||||
"NR", "Nauru",
|
||||
"NU", "Niue",
|
||||
"NZ", "New Zealand",
|
||||
"NZ", "New-Zealand",
|
||||
|
||||
"OM", "Oman",
|
||||
|
||||
"PA", "Panama",
|
||||
"PE", "Peru",
|
||||
"PF", "French Polynesia",
|
||||
"PG", "Papua New Guinea",
|
||||
"PH", "Philippines",
|
||||
"PK", "Pakistan",
|
||||
"PL", "Poland",
|
||||
"PM", "Saint Pierre and Miquelon",
|
||||
"PN", "Pitcairn",
|
||||
"PR", "Puerto Rico",
|
||||
"PS", "Palestine, State of",
|
||||
"PT", "Portugal",
|
||||
"PW", "Palau",
|
||||
"PY", "Paraguay",
|
||||
|
||||
"QA", "Qatar",
|
||||
|
||||
"RE", "Réunion",
|
||||
"RO", "Romania",
|
||||
"RS", "Serbia",
|
||||
"RU", "Russian Federation",
|
||||
"RW", "Rwanda",
|
||||
|
||||
"SA", "Saudi Arabia",
|
||||
"SB", "Solomon Islands",
|
||||
"SC", "Seychelles",
|
||||
"SD", "Sudan",
|
||||
"SE", "Sweden",
|
||||
"SG", "Singapore",
|
||||
"SH", "Saint Helena, Ascension and Tristan da Cunha",
|
||||
"SI", "Slovenia",
|
||||
"SJ", "Svalbard and Jan Mayen",
|
||||
"SK", "Slovakia",
|
||||
"SL", "Sierra Leone",
|
||||
"SM", "San Marino",
|
||||
"SN", "Senegal",
|
||||
"SO", "Somalia",
|
||||
"SR", "Suriname",
|
||||
"SS", "South Sudan",
|
||||
"SV", "El Salvador",
|
||||
"SX", "Sint Maarten (Dutch part)",
|
||||
"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",
|
||||
"TL", "Timor-Leste",
|
||||
"TM", "Turkmenistan",
|
||||
"TN", "Tunisia",
|
||||
"TO", "Tonga",
|
||||
"TP", "East Timor",
|
||||
"TR", "Turkey",
|
||||
"TT", "Trinidad and Tobago",
|
||||
"TV", "Tuvalu",
|
||||
"TW", "Taiwan",
|
||||
"TW", "Taiwan, Province of China",
|
||||
"TZ", "Tanzania",
|
||||
"TZ", "Tanzania, United Republic of",
|
||||
|
||||
"UA", "Ukraine",
|
||||
"UG", "Uganda",
|
||||
"UM", "United States Minor Outlying Islands",
|
||||
"US", "United States",
|
||||
"US", "United States of America",
|
||||
"US", "United-States"
|
||||
"UY", "Uruguay",
|
||||
"UZ", "Uzbekistan",
|
||||
|
||||
"VA", "Holy See (Vatican City State)",
|
||||
"VC", "Saint Vincent and the Grenadines",
|
||||
"VE", "Venezuela",
|
||||
"VE", "Venezuela, Bolivarian Republic of",
|
||||
"VG", "Virgin Islands, British",
|
||||
"VI", "Virgin Islands, U.S.",
|
||||
"VN", "Viet Nam",
|
||||
"VU", "Vanuatu",
|
||||
"WF", "Wallis and Futuna",
|
||||
"WS", "Samoa",
|
||||
|
||||
"YE", "Yemen",
|
||||
"YT", "Mayotte",
|
||||
"YU", "Yugoslavia",
|
||||
|
||||
"ZA", "South Africa",
|
||||
"ZM", "Zambia",
|
||||
"ZW", "Zimbabwe"
|
||||
};
|
||||
|
||||
/* Utility function to perform case insensitive string comparison. Returns 1
|
||||
if both strings are equal and 0 otherwise. */
|
||||
|
||||
static int
|
||||
str_case_equals (const char *s1, const char *s2) {
|
||||
while (*s1 != '\0' && *s2 != '\0' && tolower(*s1) == tolower(*s2)) {
|
||||
s1++;
|
||||
s2++;
|
||||
}
|
||||
|
||||
return (*s1 == '\0') && (*s2 == '\0');
|
||||
}
|
||||
|
||||
/* Utility function to copy length characters of a string. The target string
|
||||
must have space to store the extra string null terminator. */
|
||||
|
||||
static void
|
||||
str_copy (char *target, char *source, int length) {
|
||||
for (; length > 0; source++, target++, length--) {
|
||||
*target = *source;
|
||||
}
|
||||
|
||||
*target = '\0';
|
||||
}
|
||||
|
||||
/* Utility function to search for the last byte of the lc_all string to be
|
||||
processed. Required because in some targets (for example, AIX), the
|
||||
string returned by setlocale() has duplicates. */
|
||||
|
||||
static char*
|
||||
str_get_last_byte (char *lc_all) {
|
||||
char* first_space = NULL;
|
||||
char* second_space = NULL;
|
||||
char* last_byte = NULL;
|
||||
char* s1 = lc_all;
|
||||
|
||||
/* Search for the 1st space (if any) */
|
||||
while (*s1 != ' ' && *s1 != '\0')
|
||||
s1++;
|
||||
|
||||
if (*s1 == '\0') {
|
||||
last_byte = s1;
|
||||
|
||||
} else {
|
||||
first_space = s1;
|
||||
|
||||
/* Skip this space and search for the 2nd one (if available) */
|
||||
s1++;
|
||||
while (*s1 != ' ' && *s1 != '\0')
|
||||
s1++;
|
||||
|
||||
if (*s1 == '\0') {
|
||||
last_byte = s1;
|
||||
|
||||
} else {
|
||||
second_space=s1;
|
||||
|
||||
/* Search for the last byte of lc_all */
|
||||
while (*s1 != '\0')
|
||||
s1++;
|
||||
|
||||
last_byte = s1;
|
||||
|
||||
/* Check if the two strings match */
|
||||
{
|
||||
int len1 = first_space - lc_all;
|
||||
int len2 = second_space - first_space - 1;
|
||||
|
||||
if (len1 == len2) {
|
||||
char* p1 = lc_all;
|
||||
char* p2 = first_space + 1;
|
||||
|
||||
/* Compare their contents */
|
||||
while (*p1 == *p2 && p2 != second_space) {
|
||||
p1++;
|
||||
p2++;
|
||||
}
|
||||
|
||||
/* if the two strings match then update the last byte */
|
||||
|
||||
if (p2 == second_space) {
|
||||
last_byte = first_space;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return last_byte;
|
||||
}
|
||||
|
||||
/* Utility function to search in the iso_639_1 table for an iso-639-1 code;
|
||||
returns the corresponding iso-639-3 code or NULL if not found. */
|
||||
|
||||
static char*
|
||||
iso_639_1_to_639_3(char* iso_639_1_code) {
|
||||
int len = sizeof(iso_639)/sizeof(iso_639[0]);
|
||||
char **p = iso_639;
|
||||
int j;
|
||||
|
||||
for (j=0; j < len/3; j++) {
|
||||
char* s1 = iso_639_1_code;
|
||||
char* s2 = *p;
|
||||
|
||||
if (s1[0]==s2[0] && s1[1]==s2[1]) {
|
||||
p++;
|
||||
return *p;
|
||||
}
|
||||
|
||||
p = p + 3;
|
||||
}
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* Utility function to search in the iso_639_1 table for a language name;
|
||||
returns the corresponding iso-639-3 code or NULL if not found. */
|
||||
|
||||
static char*
|
||||
language_name_to_639_3(char* name) {
|
||||
int len = sizeof(iso_639)/sizeof(iso_639[0]);
|
||||
char **p = iso_639;
|
||||
int j;
|
||||
|
||||
p = p + 2;
|
||||
for (j=0; j < len/3; j++) {
|
||||
if (str_case_equals(name, *p)) {
|
||||
p--;
|
||||
return *p;
|
||||
}
|
||||
|
||||
p = p + 3;
|
||||
}
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* Utility function to search in the iso_3166 table for a country name;
|
||||
returns the corresponding iso-3166 code or NULL if not found. */
|
||||
|
||||
static char*
|
||||
country_name_to_3166 (char* name) {
|
||||
int len = sizeof(iso_3166)/sizeof(iso_3166[0]);
|
||||
char **p = iso_3166;
|
||||
int j;
|
||||
|
||||
p++;
|
||||
for (j=0; j < len/2; j++) {
|
||||
if (str_case_equals(name, *p)) {
|
||||
p--;
|
||||
return *p;
|
||||
}
|
||||
|
||||
p = p + 2;
|
||||
}
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/*
|
||||
c_get_language_code needs to fill in the Alpha-3 encoding of the
|
||||
language code (3 lowercase letters). That should be "und" if the
|
||||
language is unknown. [see Ada.Locales]
|
||||
*/
|
||||
void c_get_language_code (char4 p) {
|
||||
char *r = "und";
|
||||
for (; *r != '\0'; p++, r++)
|
||||
*p = *r;
|
||||
void
|
||||
c_get_language_code (char4 p) {
|
||||
char* Saved_Locale = setlocale(LC_ALL, NULL);
|
||||
char iso_639_3_code[] = "und"; /* Language Unknown */
|
||||
char* lc_all;
|
||||
char* result;
|
||||
|
||||
/* Get locales set in the environment */
|
||||
|
||||
setlocale(LC_ALL, "");
|
||||
lc_all = setlocale(LC_ALL, NULL);
|
||||
|
||||
/* The string returned by setlocale has the following format:
|
||||
|
||||
language[_territory][.code-set][@modifier]
|
||||
|
||||
where language is an ISO 639 language code, territory is an ISO 3166
|
||||
country code, and codeset is a character set or encoding identifier
|
||||
like ISO-8859-1 or UTF-8.
|
||||
*/
|
||||
|
||||
if (lc_all != NULL) {
|
||||
char* s = lc_all;
|
||||
int lang_length = 0;
|
||||
|
||||
/* Copy the language part (which may be an ISO-639-1 code, an ISO-639-3
|
||||
code, or a language name) adding a string terminator */
|
||||
|
||||
while (*s != '_' && *s != '.' && *s != '@' && *s != '\0')
|
||||
s++;
|
||||
|
||||
lang_length = s - lc_all;
|
||||
|
||||
/* Handle conversion of ISO-639-1 to ISO-639-3 */
|
||||
|
||||
if (lang_length == 2) {
|
||||
char iso_639_1[3];
|
||||
char* to_iso_639_3;
|
||||
|
||||
/* Duplicate the ISO-639-1 code adding the null terminator required to
|
||||
search for the equivalent ISO-639-3 code; we cannot just append the
|
||||
null terminator since the pointer may reference non-writable memory.
|
||||
*/
|
||||
|
||||
str_copy(iso_639_1, lc_all, lang_length);
|
||||
to_iso_639_3 = iso_639_1_to_639_3(iso_639_1);
|
||||
|
||||
if (to_iso_639_3)
|
||||
str_copy(iso_639_3_code, to_iso_639_3, 3);
|
||||
|
||||
/* Copy the ISO-639-3 code (adding a null terminator) */
|
||||
|
||||
} else if (lang_length == 3) {
|
||||
str_copy(iso_639_3_code, lc_all, lang_length);
|
||||
|
||||
/* Handle conversion of language name to ISO-639-3 */
|
||||
|
||||
} else if (lang_length > 3) {
|
||||
char name_copy[lang_length + 1];
|
||||
char* to_iso_639_3;
|
||||
|
||||
/* Duplicate the ISO-639-1 code adding the null terminator required to
|
||||
search for the equivalent ISO-639-3 code; we cannot just append the
|
||||
null terminator since the pointer may reference non-writable memory.
|
||||
*/
|
||||
|
||||
str_copy(name_copy, lc_all, lang_length);
|
||||
to_iso_639_3 = language_name_to_639_3(name_copy);
|
||||
|
||||
if (to_iso_639_3)
|
||||
str_copy(iso_639_3_code, to_iso_639_3, 3);
|
||||
}
|
||||
}
|
||||
|
||||
/* Copy out the computed ISO_639_3 code */
|
||||
|
||||
result = iso_639_3_code;
|
||||
for (; *result != '\0'; p++, result++)
|
||||
*p = *result;
|
||||
|
||||
/* Restore the original locale settings */
|
||||
|
||||
setlocale(LC_ALL, Saved_Locale);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
@ -49,8 +809,75 @@ void c_get_language_code (char4 p) {
|
||||
country code (2 uppercase letters). That should be "ZZ" if the
|
||||
country is unknown. [see Ada.Locales]
|
||||
*/
|
||||
void c_get_country_code (char4 p) {
|
||||
char *r = "ZZ";
|
||||
for (; *r != '\0'; p++, r++)
|
||||
*p = *r;
|
||||
void
|
||||
c_get_country_code (char4 p) {
|
||||
char* Saved_Locale = setlocale(LC_ALL, NULL);
|
||||
char iso_3166_code[] = "ZZ"; /* Country Unknown */
|
||||
char* lc_all;
|
||||
char* result;
|
||||
|
||||
/* Get locales set in the environment */
|
||||
|
||||
setlocale(LC_ALL, "");
|
||||
lc_all = setlocale(LC_ALL, NULL);
|
||||
|
||||
/* The string returned by setlocale has the following format:
|
||||
|
||||
language[_territory][.code-set][@modifier]
|
||||
|
||||
where language is an ISO 639 language code, territory is an ISO 3166
|
||||
country code, and codeset is a character set or encoding identifier
|
||||
like ISO-8859-1 or UTF-8.
|
||||
*/
|
||||
|
||||
if (lc_all != NULL) {
|
||||
char* s1 = lc_all;
|
||||
char* s2 = NULL;
|
||||
char* last_byte = str_get_last_byte(lc_all);
|
||||
int country_length = 0;
|
||||
|
||||
/* Search for the beginning of the country code */
|
||||
|
||||
s1 = lc_all;
|
||||
while (*s1 != '_' && *s1 != '.' && *s1 != '@' && s1 != last_byte)
|
||||
s1++;
|
||||
|
||||
if (*s1 == '_') {
|
||||
s1++;
|
||||
s2 = s1;
|
||||
|
||||
while (*s2 != '.' && *s2 != '@' && s2 != last_byte)
|
||||
s2++;
|
||||
|
||||
country_length = s2 - s1;
|
||||
|
||||
if (country_length == 2) {
|
||||
str_copy(iso_3166_code, s1, country_length);
|
||||
|
||||
/* setlocale returned us the country name */
|
||||
|
||||
} else if (country_length > 3) {
|
||||
char name_copy[country_length + 1];
|
||||
char* to_3166;
|
||||
|
||||
str_copy(name_copy, s1, country_length);
|
||||
to_3166 = country_name_to_3166(name_copy);
|
||||
|
||||
if (to_3166)
|
||||
str_copy(iso_3166_code, to_3166, 2);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Copy out the computed ISO_3166 code */
|
||||
|
||||
result = iso_3166_code;
|
||||
for (; *result != '\0'; p++, result++)
|
||||
*p = *result;
|
||||
|
||||
/* Restore the original locale settings */
|
||||
|
||||
setlocale(LC_ALL, Saved_Locale);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user