scuffed-code/icu4c/source/common/uloc.c
2002-05-13 20:29:31 +00:00

1386 lines
48 KiB
C

/*
**********************************************************************
* Copyright (C) 1997-2001, International Business Machines
* Corporation and others. All Rights Reserved.
**********************************************************************
*
* File ULOC.CPP
*
* Modification History:
*
* Date Name Description
* 04/01/97 aliu Creation.
* 08/21/98 stephen JDK 1.2 sync
* 12/08/98 rtg New Locale implementation and C API
* 03/15/99 damiba overhaul.
* 04/06/99 stephen changed setDefault() to realloc and copy
* 06/14/99 stephen Changed calls to ures_open for new params
* 07/21/99 stephen Modified setDefault() to propagate to C++
*****************************************************************************/
/*
POSIX's locale format, from putil.c: [no spaces]
ll [ _CC ] [ . MM ] [ @ VV]
l = lang, C = ctry, M = charmap, V = variant
*/
#include "unicode/utypes.h"
#include "unicode/ustring.h"
#include "unicode/uloc.h"
#include "ustr_imp.h"
#include "uresimp.h"
#include "umutex.h"
#include "cstring.h"
#include "cmemory.h"
#include "ucln_cmn.h"
/****************************************************************************
Global variable and type definitions
*****************************************************************************/
/* Locale stuff from locid.cpp */
U_CFUNC void locale_set_default(const char *id);
U_CFUNC const char *locale_get_default(void);
/* These strings describe the resources we attempt to load from
the locale ResourceBundle data file.*/
static const char _kLocaleID[] = "LocaleID";
static const char _kLanguages[] = "Languages";
static const char _kCountries[] = "Countries";
static const char _kIndexLocaleName[] = "res_index";
static const char _kIndexTag[] = "InstalledLocales";
#if 0
/* We don't use these resources currently */
static const char* _kLocaleString = "LocaleString";
static const char* _kShortLanguage = "ShortLanguage";
static const char* _kShortCountry = "ShortCountry";
#endif
#define TEMPBUFSIZE 8
static char** _installedLocales = NULL;
static int32_t _installedLocalesCount = 0;
/* tables updated per http://www.egt.ie/standards/iso639
and http://lcweb.loc.gov/standards/iso639-2/
to include the revisions up to 2001/7/27 *CWB*/
/* The 3 character codes are the terminology codes like RFC 3066.
This is compatible with prior ICU codes */
/* "in" "iw" "ji" "jw" & "sh" have been withdrawn but are still in
the table but now at the end of the table because
3 character codes are duplicates. This avoids bad searches
going from 3 to 2 character codes.*/
/* This list MUST be in sorted order, and MUST contain the two-letter codes
if one exists otherwise use the three letter code */
static const char * const _languages[] = {
"aa", "ab", "ace", "ach", "ada", "ae", "af", "afa",
"afh", "aka", "akk", "ale", "alg", "am", "ang", "apa",
"ar", "arc", "arn", "arp", "art", "arw", "as", "ath",
"aus", "ava", "awa", "ay", "az", "ba", "bad", "bai",
"bal", "bam", "ban", "bas", "bat", "be", "bej", "bem",
"ber", "bg", "bh", "bho", "bi", "bik", "bin", "bla",
"bn", "bnt", "bo", "br", "bra", "bs", "btk", "bua",
"bug", "ca", "cad", "cai", "car", "cau", "ce", "ceb",
"cel", "ch", "chb", "chg", "chk", "chm", "chn", "cho",
"chp", "chr", "chy", "cmc", "co", "cop", "cpe", "cpf",
"cpp", "cre", "crp", "cs", "cu", "cus", "cv", "cy",
"da", "dak", "day", "de", "del", "den", "dgr", "din",
"div", "doi", "dra", "dua", "dum", "dyu", "dz", "efi",
"egy", "eka", "el", "elx", "en", "enm", "eo", "es",
"et", "eu", "ewe", "ewo", "fa", "fan", "fat", "fi",
"fiu", "fj", "fo", "fon", "fr", "frm", "fro", "ful",
"fur", "fy", "ga", "gaa", "gay", "gba", "gd", "gem",
"gez", "gil", "gl", "gmh", "gn", "goh", "gon", "gor",
"got", "grb", "grc", "gu", "gv", "gwi", "ha", "hai",
"haw", "he", "hi", "hil", "him", "hit", "hmn", "ho",
"hr", "hu", "hup", "hy", "hz", "ia", "iba", "ibo",
"id", "ie", "ijo", "ik", "ilo", "inc", "ine", "ira",
"iro", "is", "it", "iu", "ja", "jpr", "jrb", "jv",
"ka", "kaa", "kab", "kac", "kam", "kar", "kau", "kaw",
"kha", "khi", "kho", "ki", "kj", "kk", "kl", "km",
"kmb", "kn", "ko", "kok", "kon", "kos", "kpe", "kro",
"kru", "ks", "ku", "kum", "kut", "kv", "kw", "ky",
"la", "lad", "lah", "lam", "lb", "lez", "ln", "lo",
"lol", "loz", "lt", "lua", "lub", "lug", "lui", "lun",
"luo", "lus", "lv", "mad", "mag", "mai", "mak", "man",
"map", "mas", "mdr", "men", "mg", "mga", "mh", "mi",
"mic", "min", "mis", "mk", "mkh", "ml", "mn", "mnc",
"mni", "mno", "mo", "moh", "mos", "mr", "ms", "mt",
"mul", "mun", "mus", "mwr", "my", "myn", "na", "nah",
"nai", "nb", "nd", "nds", "ne", "new", "ng", "nia",
"nic", "niu", "nl", "nn", "no", "non", "nr", "nso",
"nub", "nv", "ny", "nym", "nyn", "nyo", "nzi", "oc",
"oji", "om", "or", "os", "osa", "ota", "oto", "pa",
"paa", "pag", "pal", "pam", "pap", "pau", "peo", "phi",
"phn", "pi", "pl", "pon", "pra", "pro", "ps", "pt",
"qu", "raj", "rap", "rar", "rm", "rn", "ro", "roa",
"rom", "ru", "rw", "sa", "sad", "sah", "sai", "sal",
"sam", "sas", "sat", "sc", "sco", "sd", "se", "sel",
"sem", "sg", "sga", "sgn", "shn", "si", "sid", "sio",
"sit", "sk", "sl", "sla", "sm", "smi", "sn", "snk",
"so", "sog", "son", "sq", "sr", "srr", "ss", "ssa",
"st", "su", "suk", "sus", "sux", "sv", "sw", "syr",
"ta", "tai", "te", "tem", "ter", "tet", "tg", "th",
"ti", "tig", "tiv", "tk", "tkl", "tl", "tli", "tmh",
"tn", "to", "tog", "tpi", "tr", "ts", "tsi", "tt",
"tum", "tut", "tvl", "tw", "ty", "tyv", "ug", "uga",
"uk", "umb", "und", "ur", "uz", "vai", "ven", "vi",
"vo", "vot", "wak", "wal", "war", "was", "wen", "wo",
"xh", "yao", "yap", "yi", "yo", "ypk", "za", "zap",
"zen", "zh", "znd", "zu", "zun",
NULL,
"in", "iw", "ji", "jw", "sh", /* obsolete language codes */
NULL
};
/* This list MUST contain a three-letter code for every two-letter code in the
list above, and they MUST ne in the same order (i.e., the same language must
be in the same place in both lists)! */
static const char * const _languages3[] = {
/* "aa", "ab", "ace", "ach", "ada", "ae", "af", "afa", */
"aar", "abk", "ace", "ach", "ada", "ave", "afr", "afa",
/* "afh", "aka", "akk", "ale", "alg", "am", "ang", "apa", */
"afh", "aka", "akk", "ale", "alg", "amh", "ang", "apa",
/* "ar", "arc", "arn", "arp", "art", "arw", "as", "ath", */
"ara", "arc", "arn", "arp", "art", "arw", "asm", "ath",
/* "aus", "ava", "awa", "ay", "az", "ba", "bad", "bai", */
"aus", "ava", "awa", "aym", "aze", "bak", "bad", "bai",
/* "bal", "bam", "ban", "bas", "bat", "be", "bej", "bem", */
"bal", "bam", "ban", "bas", "bat", "bel", "bej", "bem",
/* "ber", "bg", "bh", "bho", "bi", "bik", "bin", "bla", */
"ber", "bul", "bih", "bho", "bis", "bik", "bin", "bla",
/* "bn", "bnt", "bo", "br", "bra", "bs", "btk", "bua", */
"ben", "bnt", "bod", "bre", "bra", "bos", "btk", "bua",
/* "bug", "ca", "cad", "cai", "car", "cau", "ce", "ceb", */
"bug", "cat", "cad", "cai", "car", "cau", "che", "ceb",
/* "cel", "ch", "chb", "chg", "chk", "chm", "chn", "cho", */
"cel", "cha", "chb", "chg", "chk", "chm", "chn", "cho",
/* "chp", "chr", "chy", "cmc", "co", "cop", "cpe", "cpf", */
"chp", "chr", "chy", "cmc", "cos", "cop", "cpe", "cpf",
/* "cpp", "cre", "crp", "cs", "cu", "cus", "cv", "cy", */
"cpp", "cre", "crp", "ces", "chu", "cus", "chv", "cym",
/* "da", "dak", "day", "de", "del", "den", "dgr", "din", */
"dan", "dak", "day", "deu", "del", "den", "dgr", "din",
/* "div", "doi", "dra", "dua", "dum", "dyu", "dz", "efi", */
"div", "doi", "dra", "dua", "dum", "dyu", "dzo", "efi",
/* "egy", "eka", "el", "elx", "en", "enm", "eo", "es", */
"egy", "eka", "ell", "elx", "eng", "enm", "epo", "spa",
/* "et", "eu", "ewe", "ewo", "fa", "fan", "fat", "fi", */
"est", "eus", "ewe", "ewo", "fas", "fan", "fat", "fin",
/* "fiu", "fj", "fo", "fon", "fr", "frm", "fro", "ful", */
"fiu", "fij", "fao", "fon", "fra", "frm", "fro", "ful",
/* "fur", "fy", "ga", "gaa", "gay", "gba", "gd", "gem", */
"fur", "fry", "gle", "gaa", "gay", "gba", "gla", "gem",
/* "gez", "gil", "gl", "gmh", "gn", "goh", "gon", "gor", */
"gez", "gil", "glg", "gmh", "grn", "goh", "gon", "gor",
/* "got", "grb", "grc", "gu", "gv", "gwi", "ha", "hai", */
"got", "grb", "grc", "guj", "glv", "gwi", "hau", "hai",
/* "haw", "he", "hi", "hil", "him", "hit", "hmn", "ho", */
"haw", "heb", "hin", "hil", "him", "hit", "hmn", "hmo",
/* "hr", "hu", "hup", "hy", "hz", "ia", "iba", "ibo", */
"hrv", "hun", "hup", "hye", "her", "ina", "iba", "ibo",
/* "id", "ie", "ijo", "ik", "ilo", "inc", "ine", "ira", */
"ind", "ile", "ijo", "ipk", "ilo", "inc", "ine", "ira",
/* "iro", "is", "it", "iu", "ja", "jpr", "jrb", "jv", */
"iro", "isl", "ita", "iku", "jpn", "jpr", "jrb", "jaw",
/* "ka", "kaa", "kab", "kac", "kam", "kar", "kau", "kaw", */
"kat", "kaa", "kab", "kac", "kam", "kar", "kau", "kaw",
/* "kha", "khi", "kho", "ki", "kj", "kk", "kl", "km", */
"kha", "khi", "kho", "kik", "kua", "kaz", "kal", "khm",
/* "kmb", "kn", "ko", "kok", "kon", "kos", "kpe", "kro", */
"kmb", "kan", "kor", "kok", "kon", "kos", "kpe", "kro",
/* "kru", "ks", "ku", "kum", "kut", "kv", "kw", "ky", */
"kru", "kas", "kur", "kum", "kut", "kom", "cor", "kir",
/* "la", "lad", "lah", "lam", "lb", "lez", "ln", "lo", */
"lat", "lad", "lah", "lam", "ltz", "lez", "lin", "lao",
/* "lol", "loz", "lt", "lua", "lub", "lug", "lui", "lun", */
"lol", "loz", "lit", "lua", "lub", "lug", "lui", "lun",
/* "luo", "lus", "lv", "mad", "mag", "mai", "mak", "man", */
"luo", "lus", "lav", "mad", "mag", "mai", "mak", "man",
/* "map", "mas", "mdr", "men", "mg", "mga", "mh", "mi", */
"map", "mas", "mdr", "men", "mlg", "mga", "mah", "mri",
/* "mic", "min", "mis", "mk", "mkh", "ml", "mn", "mnc", */
"mic", "min", "mis", "mkd", "mkh", "mal", "mon", "mnc",
/* "mni", "mno", "mo", "moh", "mos", "mr", "ms", "mt", */
"mni", "mno", "mol", "moh", "mos", "mar", "msa", "mlt",
/* "mul", "mun", "mus", "mwr", "my", "myn", "na", "nah", */
"mul", "mun", "mus", "mwr", "mya", "myn", "nau", "nah",
/* "nai", "nb", "nd", "nds", "ne", "new", "ng", "nia", */
"nai", "nob", "nde", "nds", "nep", "new", "ndo", "nia",
/* "nic", "niu", "nl", "nn", "no", "non", "nr", "nso", */
"nic", "niu", "nld", "nno", "nor", "non", "nbl", "nso",
/* "nub", "nv", "ny", "nym", "nyn", "nyo", "nzi", "oc", */
"nub", "nav", "nya", "nym", "nyn", "nyo", "nzi", "oci",
/* "oji", "om", "or", "os", "osa", "ota", "oto", "pa", */
"oji", "orm", "ori", "oss", "osa", "ota", "oto", "pan",
/* "paa", "pag", "pal", "pam", "pap", "pau", "peo", "phi", */
"paa", "pag", "pal", "pam", "pap", "pau", "peo", "phi",
/* "phn", "pi", "pl", "pon", "pra", "pro", "ps", "pt", */
"phn", "pli", "pol", "pon", "pra", "pro", "pus", "por",
/* "qu", "raj", "rap", "rar", "rm", "rn", "ro", "roa", */
"que", "raj", "rap", "rar", "roh", "run", "ron", "roa",
/* "rom", "ru", "rw", "sa", "sad", "sah", "sai", "sal", */
"rom", "rus", "kin", "san", "sad", "sah", "sai", "sal",
/* "sam", "sas", "sat", "sc", "sco", "sd", "se", "sel", */
"sam", "sas", "sat", "srd", "sco", "snd", "sme", "sel",
/* "sem", "sg", "sga", "sgn", "shn", "si", "sid", "sio", */
"sem", "sag", "sga", "sgn", "shn", "sin", "sid", "sio",
/* "sit", "sk", "sl", "sla", "sm", "smi", "sn", "snk", */
"sit", "slk", "slv", "sla", "smo", "smi", "sna", "snk",
/* "so", "sog", "son", "sq", "sr", "srr", "ss", "ssa", */
"som", "sog", "son", "sqi", "srp", "srr", "ssw", "ssa",
/* "st", "su", "suk", "sus", "sux", "sv", "sw", "syr", */
"sot", "sun", "suk", "sus", "sux", "swe", "swa", "syr",
/* "ta", "tai", "te", "tem", "ter", "tet", "tg", "th", */
"tam", "tai", "tel", "tem", "ter", "tet", "tgk", "tha",
/* "ti", "tig", "tiv", "tk", "tkl", "tl", "tli", "tmh", */
"tir", "tig", "tiv", "tuk", "tkl", "tgl", "tli", "tmh",
/* "tn", "to", "tog", "tpi", "tr", "ts", "tsi", "tt", */
"tsn", "ton", "tog", "tpi", "tur", "tso", "tsi", "tat",
/* "tum", "tut", "tvl", "tw", "ty", "tyv", "ug", "uga", */
"tum", "tut", "tvl", "twi", "tah", "tyv", "uig", "uga",
/* "uk", "umb", "und", "ur", "uz", "vai", "ven", "vi", */
"ukr", "umb", "und", "urd", "uzb", "vai", "ven", "vie",
/* "vo", "vot", "wak", "wal", "war", "was", "wen", "wo", */
"vol", "vot", "wak", "wal", "war", "was", "wen", "wol",
/* "xh", "yao", "yap", "yi", "yo", "ypk", "za", "zap", */
"xho", "yao", "yap", "yid", "yor", "ypk", "zha", "zap",
/* "zen", "zh", "znd", "zu", "zun", */
"zen", "zho", "znd", "zul", "zun",
NULL,
/* "in", "iw", "ji", "jw", "sh", */
"ind", "heb", "yid", "jaw", "srp",
NULL
};
/* ZR(ZAR) is now CD(COD) and FX(FXX) is PS(PSE) as per
http://www.evertype.com/standards/iso3166/iso3166-1-en.html
added new codes keeping the old ones for compatibility
updated to include 1999/12/03 revisions *CWB*/
/* RO(ROM) is now RO(ROU) according to
http://www.iso.org/iso/en/prods-services/iso3166ma/03updates-on-iso-3166/nlv3e-rou.html
*/
/* This list MUST be in sorted order, and MUST contain only two-letter codes! */
static const char * const _countries[] = {
"AD", "AE", "AF", "AG", "AI", "AL", "AM", "AN",
"AO", "AQ", "AR", "AS", "AT", "AU", "AW", "AZ",
"BA", "BB", "BD", "BE", "BF", "BG", "BH", "BI",
"BJ", "BM", "BN", "BO", "BR", "BS", "BT", "BV",
"BW", "BY", "BZ", "CA", "CC", "CD", "CF", "CG",
"CH", "CI", "CK", "CL", "CM", "CN", "CO", "CR",
"CU", "CV", "CX", "CY", "CZ", "DE", "DJ", "DK",
"DM", "DO", "DZ", "EC", "EE", "EG", "EH", "ER",
"ES", "ET", "FI", "FJ", "FK", "FM", "FO", "FR",
"GA", "GB", "GD", "GE", "GF", "GH", "GI", "GL",
"GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU",
"GW", "GY", "HK", "HM", "HN", "HR", "HT", "HU",
"ID", "IE", "IL", "IN", "IO", "IQ", "IR", "IS",
"IT", "JM", "JO", "JP", "KE", "KG", "KH", "KI",
"KM", "KN", "KP", "KR", "KW", "KY", "KZ", "LA",
"LB", "LC", "LI", "LK", "LR", "LS", "LT", "LU",
"LV", "LY", "MA", "MC", "MD", "MG", "MH", "MK",
"ML", "MM", "MN", "MO", "MP", "MQ", "MR", "MS",
"MT", "MU", "MV", "MW", "MX", "MY", "MZ", "NA",
"NC", "NE", "NF", "NG", "NI", "NL", "NO", "NP",
"NR", "NU", "NZ", "OM", "PA", "PE", "PF", "PG",
"PH", "PK", "PL", "PM", "PN", "PR", "PS", "PT",
"PW", "PY", "QA", "RE", "RO", "RU", "RW", "SA",
"SB", "SC", "SD", "SE", "SG", "SH", "SI", "SJ",
"SK", "SL", "SM", "SN", "SO", "SR", "ST", "SV",
"SY", "SZ", "TC", "TD", "TF", "TG", "TH", "TJ",
"TK", "TM", "TN", "TO", "TP", "TR", "TT", "TV",
"TW", "TZ", "UA", "UG", "UM", "US", "UY", "UZ",
"VA", "VC", "VE", "VG", "VI", "VN", "VU", "WF",
"WS", "YE", "YT", "YU", "ZA", "ZM", "ZW",
NULL,
"FX", "RO", "ZR", /* obsolete country codes */
NULL
};
/* This list MUST contain a three-letter code for every two-letter code in
the above list, and they MUST be listed in the same order! */
static const char * const _countries3[] = {
/* "AD", "AE", "AF", "AG", "AI", "AL", "AM", "AN", */
"AND", "ARE", "AFG", "ATG", "AIA", "ALB", "ARM", "ANT",
/* "AO", "AQ", "AR", "AS", "AT", "AU", "AW", "AZ", */
"AGO", "ATA", "ARG", "ASM", "AUT", "AUS", "ABW", "AZE",
/* "BA", "BB", "BD", "BE", "BF", "BG", "BH", "BI", */
"BIH", "BRB", "BGD", "BEL", "BFA", "BGR", "BHR", "BDI",
/* "BJ", "BM", "BN", "BO", "BR", "BS", "BT", "BV", */
"BEN", "BMU", "BRN", "BOL", "BRA", "BHS", "BTN", "BVT",
/* "BW", "BY", "BZ", "CA", "CC", "CD", "CF", "CG", */
"BWA", "BLR", "BLZ", "CAN", "CCK", "COD", "CAF", "COG",
/* "CH", "CI", "CK", "CL", "CM", "CN", "CO", "CR", */
"CHE", "CIV", "COK", "CHL", "CMR", "CHN", "COL", "CRI",
/* "CU", "CV", "CX", "CY", "CZ", "DE", "DJ", "DK", */
"CUB", "CPV", "CXR", "CYP", "CZE", "DEU", "DJI", "DNK",
/* "DM", "DO", "DZ", "EC", "EE", "EG", "EH", "ER", */
"DMA", "DOM", "DZA", "ECU", "EST", "EGY", "ESH", "ERI",
/* "ES", "ET", "FI", "FJ", "FK", "FM", "FO", "FR", */
"ESP", "ETH", "FIN", "FJI", "FLK", "FSM", "FRO", "FRA",
/* "GA", "GB", "GD", "GE", "GF", "GH", "GI", "GL", */
"GAB", "GBR", "GRD", "GEO", "GUF", "GHA", "GIB", "GRL",
/* "GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU", */
"GMB", "GIN", "GLP", "GNQ", "GRC", "SGS", "GTM", "GUM",
/* "GW", "GY", "HK", "HM", "HN", "HR", "HT", "HU", */
"GNB", "GUY", "HKG", "HMD", "HND", "HRV", "HTI", "HUN",
/* "ID", "IE", "IL", "IN", "IO", "IQ", "IR", "IS", */
"IDN", "IRL", "ISR", "IND", "IOT", "IRQ", "IRN", "ISL",
/* "IT", "JM", "JO", "JP", "KE", "KG", "KH", "KI", */
"ITA", "JAM", "JOR", "JPN", "KEN", "KGZ", "KHM", "KIR",
/* "KM", "KN", "KP", "KR", "KW", "KY", "KZ", "LA", */
"COM", "KNA", "PRK", "KOR", "KWT", "CYM", "KAZ", "LAO",
/* "LB", "LC", "LI", "LK", "LR", "LS", "LT", "LU", */
"LBN", "LCA", "LIE", "LKA", "LBR", "LSO", "LTU", "LUX",
/* "LV", "LY", "MA", "MC", "MD", "MG", "MH", "MK", */
"LVA", "LBY", "MAR", "MCO", "MDA", "MDG", "MHL", "MKD",
/* "ML", "MM", "MN", "MO", "MP", "MQ", "MR", "MS", */
"MLI", "MMR", "MNG", "MAC", "MNP", "MTQ", "MRT", "MSR",
/* "MT", "MU", "MV", "MW", "MX", "MY", "MZ", "NA", */
"MLT", "MUS", "MDV", "MWI", "MEX", "MYS", "MOZ", "NAM",
/* "NC", "NE", "NF", "NG", "NI", "NL", "NO", "NP", */
"NCL", "NER", "NFK", "NGA", "NIC", "NLD", "NOR", "NPL",
/* "NR", "NU", "NZ", "OM", "PA", "PE", "PF", "PG", */
"NRU", "NIU", "NZL", "OMN", "PAN", "PER", "PYF", "PNG",
/* "PH", "PK", "PL", "PM", "PN", "PR", "PS", "PT", */
"PHL", "PAK", "POL", "SPM", "PCN", "PRI", "PSE", "PRT",
/* "PW", "PY", "QA", "RE", "RO", "RU", "RW", "SA", */
"PLW", "PRY", "QAT", "REU", "ROU", "RUS", "RWA", "SAU",
/* "SB", "SC", "SD", "SE", "SG", "SH", "SI", "SJ", */
"SLB", "SYC", "SDN", "SWE", "SGP", "SHN", "SVN", "SJM",
/* "SK", "SL", "SM", "SN", "SO", "SR", "ST", "SV", */
"SVK", "SLE", "SMR", "SEN", "SOM", "SUR", "STP", "SLV",
/* "SY", "SZ", "TC", "TD", "TF", "TG", "TH", "TJ", */
"SYR", "SWZ", "TCA", "TCD", "ATF", "TGO", "THA", "TJK",
/* "TK", "TM", "TN", "TO", "TP", "TR", "TT", "TV", */
"TKL", "TKM", "TUN", "TON", "TMP", "TUR", "TTO", "TUV",
/* "TW", "TZ", "UA", "UG", "UM", "US", "UY", "UZ", */
"TWN", "TZA", "UKR", "UGA", "UMI", "USA", "URY", "UZB",
/* "VA", "VC", "VE", "VG", "VI", "VN", "VU", "WF", */
"VAT", "VCT", "VEN", "VGB", "VIR", "VNM", "VUT", "WLF",
/* "WS", "YE", "YT", "YU", "ZA", "ZM", "ZW", */
"WSM", "YEM", "MYT", "YUG", "ZAF", "ZMB", "ZWE",
NULL,
/* "FX", "RO", "ZR", */
"FXX", "ROM", "ZAR",
NULL
};
/*******************************************************************************
Implementation function definitions
*******************************************************************************/
/*Lazy evaluated the list of installed locales*/
static void _lazyEvaluate_installedLocales(void);
/*returns TRUE if a is an ID separator FALSE otherwise*/
#define _isIDSeparator(a) (a == '_' || a == '-')
#define _isPrefixLetter(a) ((a=='x')||(a=='X')||(a=='i')||(a=='I'))
/*returns TRUE if one of the special prefixes is here (s=string)
'x-' or 'i-' */
#define _isIDPrefix(s) (_isPrefixLetter(s[0])&&_isIDSeparator(s[1]))
/* Dot terminates it because of POSIX form where dot precedes the codepage
* except for variant
*/
#define _isTerminator(a) ((a==0)||(a=='.')||(a=='@'))
static int16_t _findIndex(const char* const* list, const char* key)
{
const char* const* anchor = list;
while (*list)
{
if (uprv_strcmp(key, *list) == 0)
{
return (int16_t)(list - anchor);
}
list++;
}
list++; /* skip first NULL *CWB*/
while (*list) /* scan obsolete table */
{
if (uprv_strcmp(key, *list) == 0)
{
return (int16_t)(list - anchor);
}
list++;
}
return -1;
}
/* count the length of src while copying it to dest; return strlen(src) */
static U_INLINE int32_t
_copyCount(char *dest, int32_t destCapacity, const char *src) {
const char *anchor;
char c;
anchor=src;
for(;;) {
if((c=*src)==0) {
return (int32_t)(src-anchor);
}
if(destCapacity<=0) {
return (int32_t)((src-anchor)+uprv_strlen(src));
}
++src;
*dest++=c;
--destCapacity;
}
}
/*******************************************************************************
API function definitions
*******************************************************************************/
U_CAPI const char* U_EXPORT2
uloc_getDefault()
{
return locale_get_default();
}
U_CAPI void U_EXPORT2
uloc_setDefault(const char* newDefaultLocale,
UErrorCode* err)
{
if (U_FAILURE(*err))
return;
/* the error code isn't currently used for anything by this function*/
if (newDefaultLocale == NULL)
{
newDefaultLocale = uprv_getDefaultLocaleID();
}
/* propagate change to C++ */
locale_set_default(newDefaultLocale);
}
U_CAPI int32_t U_EXPORT2
uloc_getParent(const char* localeID,
char* parent,
int32_t parentCapacity,
UErrorCode* err)
{
const char *lastUnderscore;
int32_t i;
if (U_FAILURE(*err))
return 0;
if (localeID == NULL)
localeID = uloc_getDefault();
lastUnderscore=uprv_strrchr(localeID, '_');
if(lastUnderscore!=NULL) {
i=(int32_t)(lastUnderscore-localeID);
} else {
i=0;
}
if(i>0) {
uprv_memcpy(parent, localeID, uprv_min(i, parentCapacity));
}
return u_terminateChars(parent, parentCapacity, i, err);
}
/*
* the internal functions _getLanguage(), _getCountry(), _getVariant()
* avoid duplicating code to handle the earlier locale ID pieces
* in the functions for the later ones by
* setting the *pEnd pointer to where they stopped parsing
*
* TODO try to use this in Locale
*/
static int32_t
_getLanguage(const char *localeID,
char *language, int32_t languageCapacity,
const char **pEnd) {
int32_t i=0;
int32_t offset;
char lang[4]={ 0, 0, 0, 0 }; /* temporary buffer to hold language code for searching */
/* if it starts with i- or x- then copy that prefix */
if(_isIDPrefix(localeID)) {
if(i<languageCapacity) {
language[i]=(char)uprv_tolower(*localeID);
}
if(i<languageCapacity) {
language[i+1]='-';
}
i+=2;
localeID+=2;
}
/* copy the language as far as possible and count its length */
while(!_isTerminator(*localeID) && !_isIDSeparator(*localeID)) {
if(i<languageCapacity) {
language[i]=(char)uprv_tolower(*localeID);
}
if(i<3) {
lang[i]=(char)uprv_tolower(*localeID);
}
i++;
localeID++;
}
if(i==3) {
/* convert 3 character code to 2 character code if possible *CWB*/
offset=_findIndex(_languages3, lang);
if(offset>=0) {
i=_copyCount(language, languageCapacity, _languages[offset]);
}
}
if(pEnd!=NULL) {
*pEnd=localeID;
}
return i;
}
U_CAPI int32_t U_EXPORT2
uloc_getLanguage(const char* localeID,
char* language,
int32_t languageCapacity,
UErrorCode* err)
{
/* uloc_getLanguage will return a 2 character iso-639 code if one exists. *CWB*/
int32_t i=0;
if (err==NULL || U_FAILURE(*err)) {
return 0;
}
if(localeID==NULL) {
localeID=uloc_getDefault();
}
i=_getLanguage(localeID, language, languageCapacity, NULL);
return u_terminateChars(language, languageCapacity, i, err);
}
static int32_t
_getCountry(const char *localeID,
char *country, int32_t countryCapacity,
const char **pEnd) {
int32_t i=0;
char cnty[4]={ 0, 0, 0, 0 };
int32_t offset;
/* copy the country as far as possible and count its length */
while(!_isTerminator(*localeID) && !_isIDSeparator(*localeID)) {
if(i<countryCapacity) {
country[i]=(char)uprv_toupper(*localeID);
}
if(i<3) { /*CWB*/
cnty[i]=(char)uprv_toupper(*localeID);
}
i++;
localeID++;
}
/* convert 3 character code to 2 character code if possible *CWB*/
if(i==3) {
offset=_findIndex(_countries3, cnty);
if(offset>=0) {
i=_copyCount(country, countryCapacity, _countries[offset]);
}
}
if(pEnd!=NULL) {
*pEnd=localeID;
}
return i;
}
U_CAPI int32_t U_EXPORT2
uloc_getCountry(const char* localeID,
char* country,
int32_t countryCapacity,
UErrorCode* err)
{
int32_t i=0;
if(err==NULL || U_FAILURE(*err)) {
return 0;
}
if(localeID==NULL) {
localeID=uloc_getDefault();
}
/* skip the language */
_getLanguage(localeID, NULL, 0, &localeID);
if(_isIDSeparator(*localeID)) {
i=_getCountry(localeID+1, country, countryCapacity, NULL);
}
return u_terminateChars(country, countryCapacity, i, err);
}
static int32_t
_getVariant(const char *localeID,
char prev,
char *variant, int32_t variantCapacity) {
int32_t i=0;
/* get one or more variant tags and separate them with '_' */
if(_isIDSeparator(prev)) {
/* get a variant string after a '-' or '_' */
while(!_isTerminator(*localeID)) {
if(i<variantCapacity) {
variant[i]=(char)uprv_toupper(*localeID);
if(variant[i]=='-') {
variant[i]='_';
}
}
i++;
localeID++;
}
}
/* if there is no variant tag after a '-' or '_' then look for '@' */
if(i==0) {
if(prev=='@') {
/* keep localeID */
} else if((localeID=uprv_strrchr(localeID, '@'))!=NULL) {
++localeID; /* point after the '@' */
} else {
return 0;
}
while(!_isTerminator(*localeID)) {
if(i<variantCapacity) {
variant[i]=(char)uprv_toupper(*localeID);
if(variant[i]=='-' || variant[i]==',') {
variant[i]='_';
}
}
i++;
localeID++;
}
}
return i;
}
U_CAPI int32_t U_EXPORT2
uloc_getVariant(const char* localeID,
char* variant,
int32_t variantCapacity,
UErrorCode* err)
{
int32_t i=0;
UBool haveVariant=FALSE;
if(err==NULL || U_FAILURE(*err)) {
return 0;
}
if(localeID==NULL) {
localeID=uloc_getDefault();
}
/* skip the language and the country */
_getLanguage(localeID, NULL, 0, &localeID);
if(_isIDSeparator(*localeID)) {
_getCountry(localeID+1, NULL, 0, &localeID);
if(_isIDSeparator(*localeID)) {
haveVariant=TRUE;
i=_getVariant(localeID+1, *localeID, variant, variantCapacity);
}
}
/* if we do not have a variant tag yet then try a POSIX variant after '@' */
if(!haveVariant && (localeID=uprv_strrchr(localeID, '@'))!=NULL) {
i=_getVariant(localeID+1, '@', variant, variantCapacity);
}
return u_terminateChars(variant, variantCapacity, i, err);
}
U_CAPI int32_t U_EXPORT2
uloc_getName(const char* localeID,
char* name,
int32_t nameCapacity,
UErrorCode* err)
{
int32_t i, fieldCount;
if(err==NULL || U_FAILURE(*err)) {
return 0;
}
if(localeID==NULL) {
localeID=uloc_getDefault();
}
/* get all pieces, one after another, and separate with '_' */
fieldCount=0;
i=_getLanguage(localeID, name, nameCapacity, &localeID);
if(_isIDSeparator(*localeID)) {
++fieldCount;
if(i<nameCapacity) {
name[i]='_';
}
++i;
i+=_getCountry(localeID+1, name+i, nameCapacity-i, &localeID);
if(_isIDSeparator(*localeID)) {
++fieldCount;
if(i<nameCapacity) {
name[i]='_';
}
++i;
i+=_getVariant(localeID+1, *localeID, name+i, nameCapacity-i);
}
}
/* if we do not have a variant tag yet then try a POSIX variant after '@' */
if(fieldCount<2 && (localeID=uprv_strrchr(localeID, '@'))!=NULL) {
do {
if(i<nameCapacity) {
name[i]='_';
}
++i;
++fieldCount;
} while(fieldCount<2);
i+=_getVariant(localeID+1, '@', name+i, nameCapacity-i);
}
return u_terminateChars(name, nameCapacity, i, err);
}
U_CAPI const char* U_EXPORT2
uloc_getISO3Language(const char* localeID)
{
int16_t offset;
char lang[TEMPBUFSIZE];
UErrorCode err = U_ZERO_ERROR;
if (localeID == NULL)
{
localeID = uloc_getDefault();
}
uloc_getLanguage(localeID, lang, TEMPBUFSIZE, &err);
if (U_FAILURE(err))
return "";
offset = _findIndex(_languages, lang);
if (offset < 0)
return "";
return _languages3[offset];
}
U_CAPI const char* U_EXPORT2
uloc_getISO3Country(const char* localeID)
{
int16_t offset;
char cntry[TEMPBUFSIZE];
UErrorCode err = U_ZERO_ERROR;
if (localeID == NULL)
{
localeID = uloc_getDefault();
}
uloc_getCountry(localeID, cntry, TEMPBUFSIZE, &err);
if (U_FAILURE(err))
return "";
offset = _findIndex(_countries, cntry);
if (offset < 0)
return "";
return _countries3[offset];
}
U_CAPI uint32_t U_EXPORT2
uloc_getLCID(const char* localeID)
{
UErrorCode err = U_ZERO_ERROR;
uint32_t result = 0;
UResourceBundle* bundle = ures_open(NULL, localeID, &err);
if (U_SUCCESS(err))
{
UResourceBundle *resLocaleID = ures_getByKey(bundle, _kLocaleID, NULL, &err);
if (U_SUCCESS(err))
{
result = ures_getInt(resLocaleID, &err);
if (U_FAILURE(err))
{
result = 0;
}
ures_close(resLocaleID);
}
ures_close(bundle);
}
return result;
}
static UBool
_startsWith(const char *s, const char *possiblePrefix) {
while(*possiblePrefix!=0) {
if(*possiblePrefix!=*s) {
return FALSE;
}
++s;
++possiblePrefix;
}
return TRUE;
}
/*
* TODO check fallback semantics - fall back through default??
* Needs discussion!
*
* Regular resource bundle lookup falls back through default only when a bundle
* is opened. Once open, the lookup for an item in that bundle follows only
* the bundle's chain, without going through default.
*
* This lookup for the display strings does go through the default locale
* for the sub-item.
* It seems to be inconsistent with how the resource bundle mechanism is documented.
*
* Note also that using this mechanism (with itemKey=NULL) for the variant's
* display string, which is a top-level item and should always be available
* at least in root, is effectively the same as opening the displayLocale's
* bundle and getting the string directly from there - the fallback is the same
* (right?!).
* So, for variant's strings, one could either do that, or if the above elaborate
* mechanism is desired, one could move variant display strings into their
* own table "Variants" like the Languages and Countries tables.
*/
static UResourceBundle *
_res_getTableItemWithFallback(const char *path, const char *locale,
const char *tableKey, const char *itemKey,
UResourceBundle **pMainRB,
UErrorCode *pErrorCode) {
char localeBuffer[200];
UResourceBundle *rb, *table, *item;
const char *defaultLocale;
UBool lookedAtDefault;
*pMainRB=NULL;
lookedAtDefault=FALSE;
defaultLocale=uloc_getDefault();
/* normalize the input locale name */
if(locale==NULL) {
locale=defaultLocale;
lookedAtDefault=TRUE;
} else {
uloc_getName(locale, localeBuffer, sizeof(localeBuffer), pErrorCode);
if(U_FAILURE(*pErrorCode) || *pErrorCode==U_STRING_NOT_TERMINATED_WARNING) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return NULL;
}
locale=localeBuffer;
/* is the requested locale the root locale, or part of the default locale? */
if(*locale==0 || 0==uprv_strcmp(locale, "root") || _startsWith(defaultLocale, locale)) {
lookedAtDefault=TRUE;
}
}
for(;;) {
/*
* open the bundle for the current locale
* this falls back through the locale's chain to the default locale's chain to root
*/
*pErrorCode=U_ZERO_ERROR;
rb=ures_open(path, locale, pErrorCode);
if(U_FAILURE(*pErrorCode)) {
return NULL;
} else if(*pErrorCode==U_USING_DEFAULT_WARNING) {
lookedAtDefault=TRUE;
}
/* get the real locale ID for this bundle in case of aliases & fallbacks */
locale=ures_getLocale(rb, pErrorCode);
if(U_FAILURE(*pErrorCode)) {
/* error getting the locale ID for an open RB - should never happen */
ures_close(rb);
return NULL;
}
if(!lookedAtDefault && _startsWith(defaultLocale, locale)) {
lookedAtDefault=TRUE;
}
/*
* try to open the requested table
* this falls back through the locale's chain to root, but not through the default locale
*/
*pErrorCode=U_ZERO_ERROR;
table=ures_getByKey(rb, tableKey, NULL, pErrorCode);
if(U_FAILURE(*pErrorCode)) {
/* no such table anywhere in this fallback chain */
ures_close(rb);
if(lookedAtDefault) {
return NULL;
}
/* try fallback through the default locale */
locale=defaultLocale;
lookedAtDefault=TRUE;
continue;
}
/*
* Disable (#if 0) the following check:
* Assume that only the language that is the same as the root language does not
* have its own override of this item.
* Therefore, we _do_ want to use the item even if it is from root before default,
* because for the languages where this happens, it is exactly what we need.
* Markus Scherer 2001-oct-02
*/
#if 0
/* do not use the root bundle if we did not look at the default locale yet */
if(*pErrorCode==U_USING_DEFAULT_WARNING && !lookedAtDefault) {
ures_close(table);
ures_close(rb);
/* try fallback through the default locale */
locale=defaultLocale;
lookedAtDefault=TRUE;
continue;
}
#endif
/* get the real locale ID for this table in case of aliases & fallbacks */
locale=ures_getLocale(table, pErrorCode);
if(U_FAILURE(*pErrorCode)) {
/* error getting the locale ID for an open RB - should never happen */
ures_close(table);
ures_close(rb);
return NULL;
}
if(itemKey!=NULL) {
/* try to open the requested item in the table */
item=ures_getByKey(table, itemKey, NULL, pErrorCode);
ures_close(table); /* we will not need the table any more */
if(U_SUCCESS(*pErrorCode)) {
/* we got the requested item! */
*pMainRB=rb;
return item;
}
} else {
/* return the "table" resource itself, not an item from it */
*pMainRB=rb;
return table;
}
ures_close(rb);
if(lookedAtDefault && (*locale==0 || 0==uprv_strcmp(locale, "root"))) {
/* end of fallback, default and root do not have the requested item either */
return NULL;
}
/* could not find the table, or its item, try to fall back to a different RB and table */
*pErrorCode=U_ZERO_ERROR;
uloc_getParent(locale, localeBuffer, sizeof(localeBuffer), pErrorCode);
if(U_FAILURE(*pErrorCode) || *pErrorCode==U_STRING_NOT_TERMINATED_WARNING) {
*pErrorCode=U_INTERNAL_PROGRAM_ERROR;
return NULL;
}
locale=localeBuffer;
/* parent==root? try the default locale if not done so already */
if(!lookedAtDefault && (*locale==0 || 0==uprv_strcmp(locale, "root"))) {
/* try fallback through the default locale */
locale=defaultLocale;
lookedAtDefault=TRUE;
}
}
}
static int32_t
_getStringOrCopyKey(const char *path, const char *locale,
const char *tableKey, const char *itemKey,
const char *substitute,
UChar *dest, int32_t destCapacity,
UErrorCode *pErrorCode) {
UResourceBundle *rb, *item;
const UChar *s;
int32_t length;
length=-1;
item=_res_getTableItemWithFallback(path, locale,
tableKey, itemKey,
&rb,
pErrorCode);
if(U_SUCCESS(*pErrorCode)) {
s=ures_getString(item, &length, pErrorCode);
if(U_SUCCESS(*pErrorCode)) {
int32_t copyLength=uprv_min(length, destCapacity);
if(copyLength>0) {
u_memcpy(dest, s, copyLength);
}
} else {
length=-1;
}
ures_close(item);
ures_close(rb);
}
/* no string from a resource bundle: convert the substitute */
if(length==-1) {
length=(int32_t)uprv_strlen(substitute);
u_charsToUChars(substitute, dest, uprv_min(length, destCapacity));
*pErrorCode=U_ZERO_ERROR;
}
return u_terminateUChars(dest, destCapacity, length, pErrorCode);
}
U_CAPI int32_t U_EXPORT2
uloc_getDisplayLanguage(const char *locale,
const char *displayLocale,
UChar *dest, int32_t destCapacity,
UErrorCode *pErrorCode) {
char localeBuffer[200];
int32_t length;
/* argument checking */
if(pErrorCode==NULL || U_FAILURE(*pErrorCode)) {
return 0;
}
if(destCapacity<0 || (destCapacity>0 && dest==NULL)) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
*pErrorCode=U_ZERO_ERROR; /* necessary because we will check for a warning code */
length=uloc_getLanguage(locale, localeBuffer, sizeof(localeBuffer), pErrorCode);
if(U_FAILURE(*pErrorCode) || *pErrorCode==U_STRING_NOT_TERMINATED_WARNING) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
if(length==0) {
return u_terminateUChars(dest, destCapacity, 0, pErrorCode);
}
return _getStringOrCopyKey(NULL, displayLocale,
_kLanguages, localeBuffer,
localeBuffer,
dest, destCapacity,
pErrorCode);
}
U_CAPI int32_t U_EXPORT2
uloc_getDisplayCountry(const char *locale,
const char *displayLocale,
UChar *dest, int32_t destCapacity,
UErrorCode *pErrorCode) {
char localeBuffer[200];
int32_t length;
/* argument checking */
if(pErrorCode==NULL || U_FAILURE(*pErrorCode)) {
return 0;
}
if(destCapacity<0 || (destCapacity>0 && dest==NULL)) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
*pErrorCode=U_ZERO_ERROR; /* necessary because we will check for a warning code */
length=uloc_getCountry(locale, localeBuffer, sizeof(localeBuffer), pErrorCode);
if(U_FAILURE(*pErrorCode) || *pErrorCode==U_STRING_NOT_TERMINATED_WARNING) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
if(length==0) {
return u_terminateUChars(dest, destCapacity, 0, pErrorCode);
}
return _getStringOrCopyKey(NULL, displayLocale,
_kCountries, localeBuffer,
localeBuffer,
dest, destCapacity,
pErrorCode);
}
/*
* TODO separate variant1_variant2_variant3...
* by getting each tag's display string and concatenating them with ", "
* in between - similar to uloc_getDisplayName()
*/
U_CAPI int32_t U_EXPORT2
uloc_getDisplayVariant(const char *locale,
const char *displayLocale,
UChar *dest, int32_t destCapacity,
UErrorCode *pErrorCode) {
char localeBuffer[200];
int32_t length;
/* argument checking */
if(pErrorCode==NULL || U_FAILURE(*pErrorCode)) {
return 0;
}
if(destCapacity<0 || (destCapacity>0 && dest==NULL)) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
/*
* display names for variants are top-level items of
* locale resource bundles
* the rb keys are "%%" followed by the variant tags
*/
*pErrorCode=U_ZERO_ERROR; /* necessary because we will check for a warning code */
localeBuffer[0]=localeBuffer[1]='%';
length=uloc_getVariant(locale, localeBuffer+2, sizeof(localeBuffer)-2, pErrorCode);
if(U_FAILURE(*pErrorCode) || *pErrorCode==U_STRING_NOT_TERMINATED_WARNING) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
if(length==0) {
return u_terminateUChars(dest, destCapacity, 0, pErrorCode);
}
/* pass itemKey=NULL to look for a top-level item */
return _getStringOrCopyKey(NULL, displayLocale,
localeBuffer, NULL,
localeBuffer+2, /* substitute=variant without %% */
dest, destCapacity,
pErrorCode);
}
U_CAPI int32_t U_EXPORT2
uloc_getDisplayName(const char *locale,
const char *displayLocale,
UChar *dest, int32_t destCapacity,
UErrorCode *pErrorCode) {
int32_t length, length2;
UBool hasLanguage, hasCountry, hasVariant;
/* argument checking */
if(pErrorCode==NULL || U_FAILURE(*pErrorCode)) {
return 0;
}
if(destCapacity<0 || (destCapacity>0 && dest==NULL)) {
*pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
return 0;
}
/*
* if there is a language, then write "language (country, variant)"
* otherwise write "country, variant"
*/
/* write the language */
length=uloc_getDisplayLanguage(locale, displayLocale,
dest, destCapacity,
pErrorCode);
hasLanguage= length>0;
if(hasLanguage) {
/* append " (" */
if(length<destCapacity) {
dest[length]=0x20;
}
++length;
if(length<destCapacity) {
dest[length]=0x28;
}
++length;
}
if(*pErrorCode==U_BUFFER_OVERFLOW_ERROR) {
/* keep preflighting */
*pErrorCode=U_ZERO_ERROR;
}
/* append the country */
if(length<destCapacity) {
length2=uloc_getDisplayCountry(locale, displayLocale,
dest+length, destCapacity-length,
pErrorCode);
} else {
length2=uloc_getDisplayCountry(locale, displayLocale,
NULL, 0,
pErrorCode);
}
hasCountry= length2>0;
length+=length2;
if(hasCountry) {
/* append ", " */
if(length<destCapacity) {
dest[length]=0x2c;
}
++length;
if(length<destCapacity) {
dest[length]=0x20;
}
++length;
}
if(*pErrorCode==U_BUFFER_OVERFLOW_ERROR) {
/* keep preflighting */
*pErrorCode=U_ZERO_ERROR;
}
/* append the variant */
if(length<destCapacity) {
length2=uloc_getDisplayVariant(locale, displayLocale,
dest+length, destCapacity-length,
pErrorCode);
} else {
length2=uloc_getDisplayVariant(locale, displayLocale,
NULL, 0,
pErrorCode);
}
hasVariant= length2>0;
length+=length2;
if(hasCountry && !hasVariant) {
/* remove ", " */
length-=2;
}
if(hasLanguage) {
if(hasCountry || hasVariant) {
/* append ")" */
if(length<destCapacity) {
dest[length]=0x29;
}
++length;
} else {
/* remove " (" */
length-=2;
}
}
if(*pErrorCode==U_BUFFER_OVERFLOW_ERROR) {
/* keep preflighting */
*pErrorCode=U_ZERO_ERROR;
}
return u_terminateUChars(dest, destCapacity, length, pErrorCode);
}
U_CAPI const char* U_EXPORT2
uloc_getAvailable(int32_t offset)
{
if (_installedLocales == NULL)
_lazyEvaluate_installedLocales();
if (offset > _installedLocalesCount)
return NULL;
else
return _installedLocales[offset];
}
U_CAPI int32_t U_EXPORT2
uloc_countAvailable()
{
if (_installedLocales == NULL)
_lazyEvaluate_installedLocales();
return _installedLocalesCount;
}
UBool uloc_cleanup(void) {
char ** temp;
int32_t localeCount;
int32_t i;
if (_installedLocales) {
temp = _installedLocales;
_installedLocales = NULL;
localeCount = _installedLocalesCount;
_installedLocalesCount = 0;
for (i = 0; i < localeCount; i++) {
uprv_free(temp[i]);
}
uprv_free(temp);
}
return TRUE;
}
static void _lazyEvaluate_installedLocales()
{
UResourceBundle *index = NULL;
UResourceBundle installed;
UErrorCode status = U_ZERO_ERROR;
const UChar *lname;
char ** temp;
int32_t i = 0;
int32_t len = 0;
int32_t localeCount;
ures_initStackObject(&installed);
index = ures_openDirect(NULL, _kIndexLocaleName, &status);
ures_getByKey(index, _kIndexTag, &installed, &status);
if(U_SUCCESS(status)) {
localeCount = ures_getSize(&installed);
temp = (char **) uprv_malloc(sizeof(char*) * (localeCount+1));
ures_resetIterator(&installed);
while(ures_hasNext(&installed)) {
lname = ures_getNextString(&installed, &len, NULL, &status);
temp[i] = (char*) uprv_malloc(sizeof(char) * (len + 1));
u_UCharsToChars(lname, temp[i], len);
temp[i][len] = 0; /* Terminate the string */
i++;
}
umtx_lock(NULL);
if (_installedLocales == NULL)
{
_installedLocales = temp;
_installedLocalesCount = localeCount;
} else {
for (i = 0; i < localeCount; i++) {
uprv_free(temp[i]);
}
uprv_free(temp);
}
umtx_unlock(NULL);
ures_close(&installed);
}
ures_close(index);
}
/**
* Returns a list of all language codes defined in ISO 639. This is a pointer
* to an array of pointers to arrays of char. All of these pointers are owned
* by ICU-- do not delete them, and do not write through them. The array is
* terminated with a null pointer.
*/
U_CAPI const char* const* U_EXPORT2
uloc_getISOLanguages()
{
return _languages;
}
/**
* Returns a list of all 2-letter country codes defined in ISO 639. This is a
* pointer to an array of pointers to arrays of char. All of these pointers are
* owned by ICU-- do not delete them, and do not write through them. The array is
* terminated with a null pointer.
*/
U_CAPI const char* const* U_EXPORT2
uloc_getISOCountries()
{
return _countries;
}