2002-07-08 17:57:10 +00:00
|
|
|
/*
|
|
|
|
**********************************************************************
|
2004-05-19 20:42:44 +00:00
|
|
|
* Copyright (c) 2002-2004, International Business Machines
|
2002-07-08 17:57:10 +00:00
|
|
|
* Corporation and others. All Rights Reserved.
|
|
|
|
**********************************************************************
|
|
|
|
*/
|
2002-09-20 01:54:48 +00:00
|
|
|
|
|
|
|
#include "unicode/utypes.h"
|
|
|
|
|
|
|
|
#if !UCONFIG_NO_FORMATTING
|
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
#include "unicode/ucurr.h"
|
|
|
|
#include "unicode/locid.h"
|
2004-09-03 15:24:16 +00:00
|
|
|
#include "unicode/ures.h"
|
2002-07-08 17:57:10 +00:00
|
|
|
#include "unicode/ustring.h"
|
2003-07-12 00:23:05 +00:00
|
|
|
#include "unicode/choicfmt.h"
|
2004-04-15 06:19:42 +00:00
|
|
|
#include "unicode/parsepos.h"
|
2003-11-13 23:24:45 +00:00
|
|
|
#include "ustr_imp.h"
|
2003-04-29 16:55:44 +00:00
|
|
|
#include "cmemory.h"
|
2002-07-12 21:42:24 +00:00
|
|
|
#include "cstring.h"
|
2003-04-11 20:02:25 +00:00
|
|
|
#include "uassert.h"
|
2004-07-18 01:37:13 +00:00
|
|
|
#include "mutex.h"
|
2003-05-13 23:12:37 +00:00
|
|
|
#include "ucln_in.h"
|
2002-07-08 17:57:10 +00:00
|
|
|
|
|
|
|
//------------------------------------------------------------
|
|
|
|
// Constants
|
|
|
|
|
|
|
|
// Default currency meta data of last resort. We try to use the
|
|
|
|
// defaults encoded in the meta data resource bundle. If there is a
|
|
|
|
// configuration/build error and these are not available, we use these
|
|
|
|
// hard-coded defaults (which should be identical).
|
|
|
|
static const int32_t LAST_RESORT_DATA[] = { 2, 0 };
|
|
|
|
|
|
|
|
// POW10[i] = 10^i, i=0..MAX_POW10
|
|
|
|
static const int32_t POW10[] = { 1, 10, 100, 1000, 10000, 100000,
|
|
|
|
1000000, 10000000, 100000000, 1000000000 };
|
|
|
|
|
|
|
|
static const int32_t MAX_POW10 = (sizeof(POW10)/sizeof(POW10[0])) - 1;
|
|
|
|
|
2003-06-06 22:50:26 +00:00
|
|
|
#define ISO_COUNTRY_CODE_LENGTH 3
|
2003-06-06 19:18:20 +00:00
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
//------------------------------------------------------------
|
|
|
|
// Resource tags
|
2004-08-13 20:34:31 +00:00
|
|
|
//
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2004-08-13 20:34:31 +00:00
|
|
|
static const char CURRENCY_DATA[] = "CurrencyData";
|
2002-07-08 17:57:10 +00:00
|
|
|
// Tag for meta-data, in root.
|
|
|
|
static const char CURRENCY_META[] = "CurrencyMeta";
|
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
// Tag for map from countries to currencies, in root.
|
|
|
|
static const char CURRENCY_MAP[] = "CurrencyMap";
|
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
// Tag for default meta-data, in CURRENCY_META
|
|
|
|
static const char DEFAULT_META[] = "DEFAULT";
|
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
// Variant for legacy pre-euro mapping in CurrencyMap
|
|
|
|
static const char VAR_PRE_EURO[] = "PREEURO";
|
|
|
|
|
|
|
|
// Variant for legacy euro mapping in CurrencyMap
|
|
|
|
static const char VAR_EURO[] = "EURO";
|
|
|
|
|
|
|
|
// Variant delimiter
|
|
|
|
static const char VAR_DELIM[] = "_";
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2003-06-25 00:04:49 +00:00
|
|
|
// Variant for legacy euro mapping in CurrencyMap
|
|
|
|
static const char VAR_DELIM_EURO[] = "_EURO";
|
|
|
|
|
|
|
|
#define VARIANT_IS_EMPTY 0
|
|
|
|
#define VARIANT_IS_EURO 0x1
|
|
|
|
#define VARIANT_IS_PREEURO 0x2
|
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
// Tag for localized display names (symbols) of currencies
|
|
|
|
static const char CURRENCIES[] = "Currencies";
|
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
// Marker character indicating that a display name is a ChoiceFormat
|
|
|
|
// pattern. Strings that start with one mark are ChoiceFormat
|
|
|
|
// patterns. Strings that start with 2 marks are static strings, and
|
|
|
|
// the first mark is deleted.
|
|
|
|
static const UChar CHOICE_FORMAT_MARK = 0x003D; // Equals sign
|
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
//------------------------------------------------------------
|
|
|
|
// Code
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Unfortunately, we have to convert the UChar* currency code to char*
|
|
|
|
* to use it as a resource key.
|
|
|
|
*/
|
|
|
|
static inline char*
|
2002-09-20 17:44:40 +00:00
|
|
|
myUCharsToChars(char* resultOfLen4, const UChar* currency) {
|
2003-06-06 19:18:20 +00:00
|
|
|
u_UCharsToChars(currency, resultOfLen4, ISO_COUNTRY_CODE_LENGTH);
|
|
|
|
resultOfLen4[ISO_COUNTRY_CODE_LENGTH] = 0;
|
2002-07-08 17:57:10 +00:00
|
|
|
return resultOfLen4;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Internal function to look up currency data. Result is an array of
|
|
|
|
* two integers. The first is the fraction digits. The second is the
|
|
|
|
* rounding increment, or 0 if none. The rounding increment is in
|
|
|
|
* units of 10^(-fraction_digits).
|
|
|
|
*/
|
|
|
|
static const int32_t*
|
2004-02-13 01:57:53 +00:00
|
|
|
_findMetaData(const UChar* currency, UErrorCode& ec) {
|
|
|
|
|
|
|
|
if (currency == 0 || *currency == 0) {
|
|
|
|
if (U_SUCCESS(ec)) {
|
|
|
|
ec = U_ILLEGAL_ARGUMENT_ERROR;
|
|
|
|
}
|
|
|
|
return LAST_RESORT_DATA;
|
|
|
|
}
|
2002-07-08 17:57:10 +00:00
|
|
|
|
|
|
|
// Get CurrencyMeta resource out of root locale file. [This may
|
|
|
|
// move out of the root locale file later; if it does, update this
|
|
|
|
// code.]
|
2004-08-13 20:34:31 +00:00
|
|
|
UResourceBundle* currencyData = ures_openDirect(NULL, CURRENCY_DATA, &ec);
|
|
|
|
UResourceBundle* currencyMeta = ures_getByKey(currencyData, CURRENCY_META, currencyData, &ec);
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
if (U_FAILURE(ec)) {
|
2004-08-13 20:34:31 +00:00
|
|
|
ures_close(currencyMeta);
|
2002-07-08 17:57:10 +00:00
|
|
|
// Config/build error; return hard-coded defaults
|
|
|
|
return LAST_RESORT_DATA;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Look up our currency, or if that's not available, then DEFAULT
|
2003-06-06 19:18:20 +00:00
|
|
|
char buf[ISO_COUNTRY_CODE_LENGTH+1];
|
2004-02-13 01:57:53 +00:00
|
|
|
UErrorCode ec2 = U_ZERO_ERROR; // local error code: soft failure
|
2004-08-13 20:34:31 +00:00
|
|
|
UResourceBundle* rb = ures_getByKey(currencyMeta, myUCharsToChars(buf, currency), NULL, &ec2);
|
|
|
|
if (U_FAILURE(ec2)) {
|
|
|
|
ures_close(rb);
|
|
|
|
rb = ures_getByKey(currencyMeta,DEFAULT_META, NULL, &ec);
|
2002-07-08 17:57:10 +00:00
|
|
|
if (U_FAILURE(ec)) {
|
2004-08-13 20:34:31 +00:00
|
|
|
ures_close(currencyMeta);
|
|
|
|
ures_close(rb);
|
2002-07-08 17:57:10 +00:00
|
|
|
// Config/build error; return hard-coded defaults
|
|
|
|
return LAST_RESORT_DATA;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
int32_t len;
|
2004-08-13 20:34:31 +00:00
|
|
|
const int32_t *data = ures_getIntVector(rb, &len, &ec);
|
2004-02-13 01:57:53 +00:00
|
|
|
if (U_FAILURE(ec) || len != 2) {
|
2002-07-08 17:57:10 +00:00
|
|
|
// Config/build error; return hard-coded defaults
|
2004-02-13 01:57:53 +00:00
|
|
|
if (U_SUCCESS(ec)) {
|
|
|
|
ec = U_INVALID_FORMAT_ERROR;
|
|
|
|
}
|
2004-08-13 20:34:31 +00:00
|
|
|
ures_close(currencyMeta);
|
|
|
|
ures_close(rb);
|
2002-07-08 17:57:10 +00:00
|
|
|
return LAST_RESORT_DATA;
|
|
|
|
}
|
|
|
|
|
2004-08-13 20:34:31 +00:00
|
|
|
ures_close(currencyMeta);
|
|
|
|
ures_close(rb);
|
2002-07-08 17:57:10 +00:00
|
|
|
return data;
|
|
|
|
}
|
|
|
|
|
2004-07-18 01:37:13 +00:00
|
|
|
// -------------------------------------
|
|
|
|
|
|
|
|
/**
|
|
|
|
* @see VARIANT_IS_EURO
|
|
|
|
* @see VARIANT_IS_PREEURO
|
|
|
|
*/
|
|
|
|
static uint32_t
|
|
|
|
idForLocale(const char* locale, char* countryAndVariant, int capacity, UErrorCode* ec)
|
|
|
|
{
|
|
|
|
uint32_t variantType = 0;
|
|
|
|
// !!! this is internal only, assumes buffer is not null and capacity is sufficient
|
|
|
|
// Extract the country name and variant name. We only
|
|
|
|
// recognize two variant names, EURO and PREEURO.
|
|
|
|
char variant[ULOC_FULLNAME_CAPACITY];
|
|
|
|
uloc_getCountry(locale, countryAndVariant, capacity, ec);
|
|
|
|
uloc_getVariant(locale, variant, sizeof(variant), ec);
|
|
|
|
if (variant[0] != 0) {
|
|
|
|
variantType = (0 == uprv_strcmp(variant, VAR_EURO))
|
|
|
|
| ((0 == uprv_strcmp(variant, VAR_PRE_EURO)) << 1);
|
|
|
|
if (variantType)
|
|
|
|
{
|
|
|
|
uprv_strcat(countryAndVariant, VAR_DELIM);
|
|
|
|
uprv_strcat(countryAndVariant, variant);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return variantType;
|
|
|
|
}
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2003-04-25 18:02:09 +00:00
|
|
|
// ------------------------------------------
|
|
|
|
//
|
|
|
|
// Registration
|
|
|
|
//
|
|
|
|
//-------------------------------------------
|
|
|
|
|
2003-04-29 16:55:44 +00:00
|
|
|
// don't use ICUService since we don't need fallback
|
2003-04-25 18:02:09 +00:00
|
|
|
|
2004-07-18 01:37:13 +00:00
|
|
|
#if !UCONFIG_NO_SERVICE
|
2004-09-12 23:07:29 +00:00
|
|
|
U_CDECL_BEGIN
|
|
|
|
static UBool U_CALLCONV currency_cleanup(void);
|
|
|
|
U_CDECL_END
|
2003-06-05 23:49:53 +00:00
|
|
|
struct CReg;
|
|
|
|
|
2003-06-06 22:50:26 +00:00
|
|
|
/* Remember to call umtx_init(&gCRegLock) before using it! */
|
2003-06-05 23:49:53 +00:00
|
|
|
static UMTX gCRegLock = 0;
|
|
|
|
static CReg* gCRegHead = 0;
|
|
|
|
|
2003-05-28 03:04:04 +00:00
|
|
|
struct CReg : public UMemory {
|
2003-06-05 23:49:53 +00:00
|
|
|
CReg *next;
|
2003-06-06 19:18:20 +00:00
|
|
|
UChar iso[ISO_COUNTRY_CODE_LENGTH+1];
|
2003-06-05 23:55:52 +00:00
|
|
|
char id[ULOC_FULLNAME_CAPACITY];
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
CReg(const UChar* _iso, const char* _id)
|
|
|
|
: next(0)
|
|
|
|
{
|
2004-11-05 19:07:34 +00:00
|
|
|
int32_t len = (int32_t)uprv_strlen(_id);
|
2003-06-05 23:49:53 +00:00
|
|
|
if (len > (int32_t)(sizeof(id)-1)) {
|
|
|
|
len = (sizeof(id)-1);
|
2003-05-13 23:12:37 +00:00
|
|
|
}
|
2003-06-05 23:49:53 +00:00
|
|
|
uprv_strncpy(id, _id, len);
|
|
|
|
id[len] = 0;
|
2003-06-06 19:18:20 +00:00
|
|
|
uprv_memcpy(iso, _iso, ISO_COUNTRY_CODE_LENGTH * sizeof(const UChar));
|
|
|
|
iso[ISO_COUNTRY_CODE_LENGTH] = 0;
|
2003-04-29 16:55:44 +00:00
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
static UCurrRegistryKey reg(const UChar* _iso, const char* _id, UErrorCode* status)
|
|
|
|
{
|
|
|
|
if (status && U_SUCCESS(*status) && _iso && _id) {
|
|
|
|
CReg* n = new CReg(_iso, _id);
|
|
|
|
if (n) {
|
2003-06-06 22:50:26 +00:00
|
|
|
umtx_init(&gCRegLock);
|
2003-06-05 23:49:53 +00:00
|
|
|
Mutex mutex(&gCRegLock);
|
|
|
|
if (!gCRegHead) {
|
2004-01-09 23:03:36 +00:00
|
|
|
/* register for the first time */
|
2004-09-12 23:07:29 +00:00
|
|
|
ucln_i18n_registerCleanup(UCLN_I18N_CURRENCY, currency_cleanup);
|
2003-06-05 23:49:53 +00:00
|
|
|
}
|
|
|
|
n->next = gCRegHead;
|
|
|
|
gCRegHead = n;
|
|
|
|
return n;
|
|
|
|
}
|
|
|
|
*status = U_MEMORY_ALLOCATION_ERROR;
|
|
|
|
}
|
|
|
|
return 0;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
static UBool unreg(UCurrRegistryKey key) {
|
2003-06-06 22:50:26 +00:00
|
|
|
umtx_init(&gCRegLock);
|
2003-06-05 23:49:53 +00:00
|
|
|
Mutex mutex(&gCRegLock);
|
|
|
|
if (gCRegHead == key) {
|
|
|
|
gCRegHead = gCRegHead->next;
|
|
|
|
delete (CReg*)key;
|
|
|
|
return TRUE;
|
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
CReg* p = gCRegHead;
|
|
|
|
while (p) {
|
|
|
|
if (p->next == key) {
|
|
|
|
p->next = ((CReg*)key)->next;
|
2004-01-09 23:03:36 +00:00
|
|
|
delete (CReg*)key;
|
2003-06-05 23:49:53 +00:00
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
p = p->next;
|
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
return FALSE;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
static const UChar* get(const char* id) {
|
2003-06-06 22:50:26 +00:00
|
|
|
umtx_init(&gCRegLock);
|
2003-06-05 23:49:53 +00:00
|
|
|
Mutex mutex(&gCRegLock);
|
|
|
|
CReg* p = gCRegHead;
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2004-09-12 23:07:29 +00:00
|
|
|
/* register cleanup of the mutex */
|
|
|
|
ucln_i18n_registerCleanup(UCLN_I18N_CURRENCY, currency_cleanup);
|
2003-06-05 23:49:53 +00:00
|
|
|
while (p) {
|
|
|
|
if (uprv_strcmp(id, p->id) == 0) {
|
|
|
|
return p->iso;
|
|
|
|
}
|
|
|
|
p = p->next;
|
|
|
|
}
|
|
|
|
return NULL;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
2003-06-06 22:50:26 +00:00
|
|
|
|
|
|
|
/* This doesn't need to be thread safe. It's for u_cleanup only. */
|
2003-06-05 23:49:53 +00:00
|
|
|
static void cleanup(void) {
|
|
|
|
while (gCRegHead) {
|
|
|
|
CReg* n = gCRegHead;
|
|
|
|
gCRegHead = gCRegHead->next;
|
|
|
|
delete n;
|
|
|
|
}
|
|
|
|
umtx_destroy(&gCRegLock);
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
|
|
|
};
|
|
|
|
|
2004-09-12 23:07:29 +00:00
|
|
|
/**
|
|
|
|
* Release all static memory held by currency.
|
|
|
|
*/
|
|
|
|
U_CDECL_BEGIN
|
|
|
|
static UBool U_CALLCONV currency_cleanup(void) {
|
|
|
|
#if !UCONFIG_NO_SERVICE
|
|
|
|
CReg::cleanup();
|
|
|
|
#endif
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
U_CDECL_END
|
|
|
|
|
2003-04-29 16:55:44 +00:00
|
|
|
// -------------------------------------
|
2003-04-25 18:02:09 +00:00
|
|
|
|
|
|
|
U_CAPI UCurrRegistryKey U_EXPORT2
|
2004-01-09 23:03:36 +00:00
|
|
|
ucurr_register(const UChar* isoCode, const char* locale, UErrorCode *status)
|
2003-04-25 18:02:09 +00:00
|
|
|
{
|
2003-06-05 23:49:53 +00:00
|
|
|
if (status && U_SUCCESS(*status)) {
|
|
|
|
char id[ULOC_FULLNAME_CAPACITY];
|
|
|
|
idForLocale(locale, id, sizeof(id), status);
|
|
|
|
return CReg::reg(isoCode, id, status);
|
|
|
|
}
|
|
|
|
return NULL;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
// -------------------------------------
|
|
|
|
|
|
|
|
U_CAPI UBool U_EXPORT2
|
2004-01-09 23:03:36 +00:00
|
|
|
ucurr_unregister(UCurrRegistryKey key, UErrorCode* status)
|
2003-04-25 18:02:09 +00:00
|
|
|
{
|
2003-06-05 23:49:53 +00:00
|
|
|
if (status && U_SUCCESS(*status)) {
|
|
|
|
return CReg::unreg(key);
|
|
|
|
}
|
|
|
|
return FALSE;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
2004-07-18 01:37:13 +00:00
|
|
|
#endif /* UCONFIG_NO_SERVICE */
|
2003-04-25 18:02:09 +00:00
|
|
|
|
|
|
|
// -------------------------------------
|
|
|
|
|
2003-11-13 23:24:45 +00:00
|
|
|
U_CAPI int32_t U_EXPORT2
|
2004-01-09 23:03:36 +00:00
|
|
|
ucurr_forLocale(const char* locale,
|
2003-11-13 23:24:45 +00:00
|
|
|
UChar* buff,
|
|
|
|
int32_t buffCapacity,
|
2003-11-27 01:23:15 +00:00
|
|
|
UErrorCode* ec)
|
|
|
|
{
|
2003-11-13 23:24:45 +00:00
|
|
|
int32_t resLen = 0;
|
|
|
|
const UChar* s = NULL;
|
2003-06-05 23:49:53 +00:00
|
|
|
if (ec != NULL && U_SUCCESS(*ec)) {
|
2003-11-27 01:23:15 +00:00
|
|
|
if ((buff && buffCapacity) || !buffCapacity) {
|
|
|
|
UErrorCode localStatus = U_ZERO_ERROR;
|
|
|
|
char id[ULOC_FULLNAME_CAPACITY];
|
|
|
|
if ((resLen = uloc_getKeywordValue(locale, "currency", id, ULOC_FULLNAME_CAPACITY, &localStatus))) {
|
|
|
|
// there is a currency keyword. Try to see if it's valid
|
|
|
|
if(buffCapacity > resLen) {
|
|
|
|
u_charsToUChars(id, buff, resLen);
|
|
|
|
}
|
|
|
|
} else {
|
2004-02-13 01:57:53 +00:00
|
|
|
// get country or country_variant in `id'
|
2003-11-27 01:23:15 +00:00
|
|
|
uint32_t variantType = idForLocale(locale, id, sizeof(id), ec);
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-11-27 01:23:15 +00:00
|
|
|
if (U_FAILURE(*ec)) {
|
|
|
|
return 0;
|
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2004-07-18 01:37:13 +00:00
|
|
|
#if !UCONFIG_NO_SERVICE
|
2003-11-27 01:23:15 +00:00
|
|
|
const UChar* result = CReg::get(id);
|
|
|
|
if (result) {
|
|
|
|
if(buffCapacity > u_strlen(result)) {
|
|
|
|
u_strcpy(buff, result);
|
|
|
|
}
|
|
|
|
return u_strlen(result);
|
|
|
|
}
|
2004-07-18 01:37:13 +00:00
|
|
|
#endif
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-11-27 01:23:15 +00:00
|
|
|
// Look up the CurrencyMap element in the root bundle.
|
2004-08-13 20:34:31 +00:00
|
|
|
UResourceBundle *rb = ures_openDirect(NULL, CURRENCY_DATA, &localStatus);
|
2003-12-10 19:06:20 +00:00
|
|
|
UResourceBundle *cm = ures_getByKey(rb, CURRENCY_MAP, rb, &localStatus);
|
2003-11-27 01:23:15 +00:00
|
|
|
s = ures_getStringByKey(cm, id, &resLen, &localStatus);
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-11-27 01:23:15 +00:00
|
|
|
if ((s == NULL || U_FAILURE(localStatus)) && variantType != VARIANT_IS_EMPTY
|
|
|
|
&& (id[0] != 0))
|
|
|
|
{
|
|
|
|
// We don't know about it. Check to see if we support the variant.
|
|
|
|
if (variantType & VARIANT_IS_EURO) {
|
|
|
|
s = ures_getStringByKey(cm, VAR_DELIM_EURO, &resLen, ec);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
uloc_getParent(locale, id, sizeof(id), ec);
|
|
|
|
*ec = U_USING_FALLBACK_WARNING;
|
2003-12-10 19:06:20 +00:00
|
|
|
ures_close(cm);
|
2003-11-27 01:23:15 +00:00
|
|
|
return ucurr_forLocale(id, buff, buffCapacity, ec);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (*ec == U_ZERO_ERROR || localStatus != U_ZERO_ERROR) {
|
|
|
|
// There is nothing to fallback to. Report the failure/warning if possible.
|
|
|
|
*ec = localStatus;
|
|
|
|
}
|
|
|
|
if (U_SUCCESS(*ec)) {
|
|
|
|
if(buffCapacity > resLen) {
|
|
|
|
u_strcpy(buff, s);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
ures_close(cm);
|
2003-11-13 23:24:45 +00:00
|
|
|
}
|
2003-11-27 01:23:15 +00:00
|
|
|
return u_terminateUChars(buff, buffCapacity, resLen, ec);
|
|
|
|
} else {
|
|
|
|
*ec = U_ILLEGAL_ARGUMENT_ERROR;
|
2003-11-13 23:24:45 +00:00
|
|
|
}
|
2003-04-29 16:55:44 +00:00
|
|
|
}
|
2003-11-13 23:24:45 +00:00
|
|
|
return resLen;
|
2003-04-25 18:02:09 +00:00
|
|
|
}
|
|
|
|
|
2003-04-29 16:55:44 +00:00
|
|
|
// end registration
|
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
/**
|
|
|
|
* Modify the given locale name by removing the rightmost _-delimited
|
|
|
|
* element. If there is none, empty the string ("" == root).
|
|
|
|
* NOTE: The string "root" is not recognized; do not use it.
|
|
|
|
* @return TRUE if the fallback happened; FALSE if locale is already
|
|
|
|
* root ("").
|
|
|
|
*/
|
|
|
|
static UBool fallback(char *loc) {
|
|
|
|
if (!*loc) {
|
|
|
|
return FALSE;
|
|
|
|
}
|
2003-06-06 19:18:20 +00:00
|
|
|
UErrorCode status = U_ZERO_ERROR;
|
2004-11-05 19:07:34 +00:00
|
|
|
uloc_getParent(loc, loc, (int32_t)uprv_strlen(loc), &status);
|
2003-06-06 19:18:20 +00:00
|
|
|
/*
|
2003-04-11 20:02:25 +00:00
|
|
|
char *i = uprv_strrchr(loc, '_');
|
|
|
|
if (i == NULL) {
|
|
|
|
i = loc;
|
2002-07-08 17:57:10 +00:00
|
|
|
}
|
2003-04-11 20:02:25 +00:00
|
|
|
*i = 0;
|
2003-06-06 19:18:20 +00:00
|
|
|
*/
|
2003-04-11 20:02:25 +00:00
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
2003-06-06 19:18:20 +00:00
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
U_CAPI const UChar* U_EXPORT2
|
|
|
|
ucurr_getName(const UChar* currency,
|
|
|
|
const char* locale,
|
|
|
|
UCurrNameStyle nameStyle,
|
|
|
|
UBool* isChoiceFormat, // fillin
|
|
|
|
int32_t* len, // fillin
|
|
|
|
UErrorCode* ec) {
|
2002-07-08 17:57:10 +00:00
|
|
|
|
|
|
|
// Look up the Currencies resource for the given locale. The
|
|
|
|
// Currencies locale data looks like this:
|
|
|
|
//|en {
|
2004-01-09 23:03:36 +00:00
|
|
|
//| Currencies {
|
2003-04-11 20:02:25 +00:00
|
|
|
//| USD { "US$", "US Dollar" }
|
|
|
|
//| CHF { "Sw F", "Swiss Franc" }
|
|
|
|
//| INR { "=0#Rs|1#Re|1<Rs", "=0#Rupees|1#Rupee|1<Rupees" }
|
2002-07-08 17:57:10 +00:00
|
|
|
//| //...
|
|
|
|
//| }
|
|
|
|
//|}
|
2003-04-11 20:02:25 +00:00
|
|
|
|
2004-04-15 06:19:42 +00:00
|
|
|
if (U_FAILURE(*ec)) {
|
2003-04-11 20:02:25 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int32_t choice = (int32_t) nameStyle;
|
2003-04-17 19:47:59 +00:00
|
|
|
if (choice < 0 || choice > 1) {
|
2003-04-11 20:02:25 +00:00
|
|
|
*ec = U_ILLEGAL_ARGUMENT_ERROR;
|
|
|
|
return 0;
|
|
|
|
}
|
2004-01-09 23:03:36 +00:00
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
// In the future, resource bundles may implement multi-level
|
|
|
|
// fallback. That is, if a currency is not found in the en_US
|
|
|
|
// Currencies data, then the en Currencies data will be searched.
|
|
|
|
// Currently, if a Currencies datum exists in en_US and en, the
|
|
|
|
// en_US entry hides that in en.
|
|
|
|
|
|
|
|
// We want multi-level fallback for this resource, so we implement
|
|
|
|
// it manually.
|
|
|
|
|
|
|
|
// Use a separate UErrorCode here that does not propagate out of
|
|
|
|
// this function.
|
|
|
|
UErrorCode ec2 = U_ZERO_ERROR;
|
|
|
|
|
2003-06-05 23:49:53 +00:00
|
|
|
char loc[ULOC_FULLNAME_CAPACITY];
|
2003-05-29 21:47:03 +00:00
|
|
|
uloc_getName(locale, loc, sizeof(loc), &ec2);
|
2003-04-11 20:02:25 +00:00
|
|
|
if (U_FAILURE(ec2) || ec2 == U_STRING_NOT_TERMINATED_WARNING) {
|
|
|
|
*ec = U_ILLEGAL_ARGUMENT_ERROR;
|
|
|
|
return 0;
|
|
|
|
}
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2003-06-06 19:18:20 +00:00
|
|
|
char buf[ISO_COUNTRY_CODE_LENGTH+1];
|
2003-04-11 20:02:25 +00:00
|
|
|
myUCharsToChars(buf, currency);
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
const UChar* s = NULL;
|
|
|
|
|
|
|
|
// Multi-level resource inheritance fallback loop
|
|
|
|
for (;;) {
|
|
|
|
ec2 = U_ZERO_ERROR;
|
|
|
|
UResourceBundle* rb = ures_open(NULL, loc, &ec2);
|
2004-05-25 19:10:07 +00:00
|
|
|
rb = ures_getByKey(rb, CURRENCIES, rb, &ec2);
|
|
|
|
rb = ures_getByKey(rb, buf, rb, &ec2);
|
|
|
|
s = ures_getStringByIndex(rb, choice, len, &ec2);
|
2003-04-11 20:02:25 +00:00
|
|
|
ures_close(rb);
|
|
|
|
|
|
|
|
// If we've succeeded we're done. Otherwise, try to fallback.
|
|
|
|
// If that fails (because we are already at root) then exit.
|
|
|
|
if (U_SUCCESS(ec2) || !fallback(loc)) {
|
|
|
|
break;
|
2002-07-08 17:57:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2003-04-11 20:02:25 +00:00
|
|
|
// Determine if this is a ChoiceFormat pattern. One leading mark
|
|
|
|
// indicates a ChoiceFormat. Two indicates a static string that
|
|
|
|
// starts with a mark. In either case, the first mark is ignored,
|
|
|
|
// if present. Marks in the rest of the string have no special
|
|
|
|
// meaning.
|
|
|
|
*isChoiceFormat = FALSE;
|
|
|
|
if (U_SUCCESS(ec2)) {
|
|
|
|
U_ASSERT(s != NULL);
|
|
|
|
int32_t i=0;
|
|
|
|
while (i < *len && s[i] == CHOICE_FORMAT_MARK && i < 2) {
|
|
|
|
++i;
|
|
|
|
}
|
|
|
|
*isChoiceFormat = (i == 1);
|
|
|
|
if (i != 0) ++s; // Skip over first mark
|
|
|
|
return s;
|
|
|
|
}
|
|
|
|
|
|
|
|
// If we fail to find a match, use the ISO 4217 code
|
2003-06-06 19:18:20 +00:00
|
|
|
*len = u_strlen(currency); // Should == ISO_COUNTRY_CODE_LENGTH, but maybe not...?
|
2003-04-11 20:02:25 +00:00
|
|
|
return currency;
|
2002-07-08 17:57:10 +00:00
|
|
|
}
|
|
|
|
|
2004-04-15 06:19:42 +00:00
|
|
|
U_NAMESPACE_BEGIN
|
|
|
|
|
|
|
|
void
|
|
|
|
uprv_parseCurrency(const char* locale,
|
|
|
|
const UnicodeString& text,
|
|
|
|
ParsePosition& pos,
|
|
|
|
UChar* result,
|
|
|
|
UErrorCode& ec) {
|
|
|
|
|
|
|
|
// TODO: There is a slight problem with the pseudo-multi-level
|
|
|
|
// fallback implemented here. More-specific locales don't
|
|
|
|
// properly shield duplicate entries in less-specific locales.
|
|
|
|
// This problem will go away when real multi-level fallback is
|
|
|
|
// implemented. We could also fix this by recording (in a
|
|
|
|
// hash) which codes are used at each level of fallback, but
|
|
|
|
// this doesn't seem warranted.
|
|
|
|
|
|
|
|
if (U_FAILURE(ec)) {
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Look up the Currencies resource for the given locale. The
|
|
|
|
// Currencies locale data looks like this:
|
|
|
|
//|en {
|
|
|
|
//| Currencies {
|
|
|
|
//| USD { "US$", "US Dollar" }
|
|
|
|
//| CHF { "Sw F", "Swiss Franc" }
|
|
|
|
//| INR { "=0#Rs|1#Re|1<Rs", "=0#Rupees|1#Rupee|1<Rupees" }
|
|
|
|
//| //...
|
|
|
|
//| }
|
|
|
|
//|}
|
|
|
|
|
|
|
|
// In the future, resource bundles may implement multi-level
|
|
|
|
// fallback. That is, if a currency is not found in the en_US
|
|
|
|
// Currencies data, then the en Currencies data will be searched.
|
|
|
|
// Currently, if a Currencies datum exists in en_US and en, the
|
|
|
|
// en_US entry hides that in en.
|
|
|
|
|
|
|
|
// We want multi-level fallback for this resource, so we implement
|
|
|
|
// it manually.
|
|
|
|
|
|
|
|
// Use a separate UErrorCode here that does not propagate out of
|
|
|
|
// this function.
|
|
|
|
UErrorCode ec2 = U_ZERO_ERROR;
|
|
|
|
|
|
|
|
char loc[ULOC_FULLNAME_CAPACITY];
|
|
|
|
uloc_getName(locale, loc, sizeof(loc), &ec2);
|
|
|
|
if (U_FAILURE(ec2) || ec2 == U_STRING_NOT_TERMINATED_WARNING) {
|
|
|
|
ec = U_ILLEGAL_ARGUMENT_ERROR;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
int32_t start = pos.getIndex();
|
|
|
|
const UChar* s = NULL;
|
|
|
|
|
|
|
|
const char* iso = NULL;
|
|
|
|
int32_t max = 0;
|
|
|
|
|
|
|
|
// Multi-level resource inheritance fallback loop
|
|
|
|
for (;;) {
|
|
|
|
ec2 = U_ZERO_ERROR;
|
|
|
|
UResourceBundle* rb = ures_open(NULL, loc, &ec2);
|
|
|
|
UResourceBundle* curr = ures_getByKey(rb, CURRENCIES, NULL, &ec2);
|
|
|
|
int32_t n = ures_getSize(curr);
|
|
|
|
for (int32_t i=0; i<n; ++i) {
|
|
|
|
UResourceBundle* names = ures_getByIndex(curr, i, NULL, &ec2);
|
|
|
|
int32_t len;
|
|
|
|
s = ures_getStringByIndex(names, UCURR_SYMBOL_NAME, &len, &ec2);
|
|
|
|
UBool isChoice = FALSE;
|
|
|
|
if (len > 0 && s[0] == CHOICE_FORMAT_MARK) {
|
|
|
|
++s;
|
|
|
|
--len;
|
|
|
|
if (len > 0 && s[0] != CHOICE_FORMAT_MARK) {
|
|
|
|
isChoice = TRUE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (isChoice) {
|
|
|
|
Formattable temp;
|
|
|
|
ChoiceFormat fmt(s, ec2);
|
|
|
|
fmt.parse(text, temp, pos);
|
|
|
|
len = pos.getIndex() - start;
|
|
|
|
pos.setIndex(start);
|
|
|
|
} else if (len > max &&
|
|
|
|
text.compare(pos.getIndex(), len, s) != 0) {
|
|
|
|
len = 0;
|
|
|
|
}
|
|
|
|
if (len > max) {
|
|
|
|
iso = ures_getKey(names);
|
|
|
|
max = len;
|
|
|
|
}
|
|
|
|
ures_close(names);
|
|
|
|
}
|
|
|
|
ures_close(curr);
|
|
|
|
ures_close(rb);
|
|
|
|
|
|
|
|
// Try to fallback. If that fails (because we are already at
|
|
|
|
// root) then exit.
|
|
|
|
if (!fallback(loc)) {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (iso != NULL) {
|
|
|
|
u_charsToUChars(iso, result, 4);
|
|
|
|
}
|
|
|
|
|
|
|
|
// If display name parse fails or if it matches fewer than 3
|
|
|
|
// characters, try to parse 3-letter ISO. Do this after the
|
|
|
|
// display name processing so 3-letter display names are
|
|
|
|
// preferred. Consider /[A-Z]{3}/ to be valid ISO, and parse
|
|
|
|
// it manually--UnicodeSet/regex are too slow and heavy.
|
|
|
|
if (max < 3 && (text.length() - start) >= 3) {
|
|
|
|
UBool valid = TRUE;
|
|
|
|
for (int32_t k=0; k<3; ++k) {
|
|
|
|
UChar ch = text.charAt(start + k); // 16-bit ok
|
|
|
|
if (ch < 0x41/*'A'*/ || ch > 0x5A/*'Z'*/) {
|
|
|
|
valid = FALSE;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (valid) {
|
|
|
|
text.extract(start, 3, result);
|
|
|
|
result[3] = 0;
|
|
|
|
max = 3;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
pos.setIndex(start + max);
|
|
|
|
}
|
|
|
|
|
|
|
|
U_NAMESPACE_END
|
|
|
|
|
2003-07-12 00:23:05 +00:00
|
|
|
/**
|
|
|
|
* Internal method. Given a currency ISO code and a locale, return
|
|
|
|
* the "static" currency name. This is usually the same as the
|
|
|
|
* UCURR_SYMBOL_NAME, but if the latter is a choice format, then the
|
|
|
|
* format is applied to the number 2.0 (to yield the more common
|
|
|
|
* plural) to return a static name.
|
|
|
|
*
|
|
|
|
* This is used for backward compatibility with old currency logic in
|
|
|
|
* DecimalFormat and DecimalFormatSymbols.
|
|
|
|
*/
|
|
|
|
U_CAPI void
|
|
|
|
uprv_getStaticCurrencyName(const UChar* iso, const char* loc,
|
|
|
|
UnicodeString& result, UErrorCode& ec)
|
|
|
|
{
|
|
|
|
UBool isChoiceFormat;
|
|
|
|
int32_t len;
|
|
|
|
const UChar* currname = ucurr_getName(iso, loc, UCURR_SYMBOL_NAME,
|
|
|
|
&isChoiceFormat, &len, &ec);
|
|
|
|
if (U_SUCCESS(ec)) {
|
|
|
|
// If this is a ChoiceFormat currency, then format an
|
|
|
|
// arbitrary value; pick something != 1; more common.
|
|
|
|
result.truncate(0);
|
|
|
|
if (isChoiceFormat) {
|
|
|
|
ChoiceFormat f(currname, ec);
|
|
|
|
if (U_SUCCESS(ec)) {
|
|
|
|
f.format(2.0, result);
|
|
|
|
} else {
|
|
|
|
result = iso;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
result = currname;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2003-04-11 20:02:25 +00:00
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
U_CAPI int32_t U_EXPORT2
|
2004-02-13 01:57:53 +00:00
|
|
|
ucurr_getDefaultFractionDigits(const UChar* currency, UErrorCode* ec) {
|
|
|
|
return (_findMetaData(currency, *ec))[0];
|
2002-07-08 17:57:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
U_CAPI double U_EXPORT2
|
2004-02-13 01:57:53 +00:00
|
|
|
ucurr_getRoundingIncrement(const UChar* currency, UErrorCode* ec) {
|
|
|
|
const int32_t *data = _findMetaData(currency, *ec);
|
|
|
|
|
|
|
|
// If the meta data is invalid, return 0.0.
|
|
|
|
if (data[0] < 0 || data[0] > MAX_POW10) {
|
|
|
|
if (U_SUCCESS(*ec)) {
|
|
|
|
*ec = U_INVALID_FORMAT_ERROR;
|
|
|
|
}
|
|
|
|
return 0.0;
|
|
|
|
}
|
2002-07-08 17:57:10 +00:00
|
|
|
|
2004-02-13 01:57:53 +00:00
|
|
|
// If there is no rounding, return 0.0 to indicate no rounding. A
|
|
|
|
// rounding value (data[1]) of 0 or 1 indicates no rounding.
|
|
|
|
if (data[1] < 2) {
|
2002-07-08 17:57:10 +00:00
|
|
|
return 0.0;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Return data[1] / 10^(data[0]). The only actual rounding data,
|
2003-04-11 20:02:25 +00:00
|
|
|
// as of this writing, is CHF { 2, 5 }.
|
2002-07-08 17:57:10 +00:00
|
|
|
return double(data[1]) / POW10[data[0]];
|
|
|
|
}
|
|
|
|
|
2002-09-20 01:54:48 +00:00
|
|
|
#endif /* #if !UCONFIG_NO_FORMATTING */
|
|
|
|
|
2002-07-08 17:57:10 +00:00
|
|
|
//eof
|