diff options
author | Jonathan Kew <jfkthame@googlemail.com> | 2008-03-04 13:21:23 +0000 |
---|---|---|
committer | Jonathan Kew <jfkthame@googlemail.com> | 2008-03-04 13:21:23 +0000 |
commit | f483a5de9331a257f597282e611ecfb63f5ab118 (patch) | |
tree | 756baa5a727dd0438448eb380bb6ca81fb41d534 /Build/source/libs/icu-xetex/i18n/ucol_sit.cpp | |
parent | e2603863b071e717675b6a69e97c45a42e55bf2c (diff) |
remove old icu version
git-svn-id: svn://tug.org/texlive/trunk@6841 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/icu-xetex/i18n/ucol_sit.cpp')
-rw-r--r-- | Build/source/libs/icu-xetex/i18n/ucol_sit.cpp | 1185 |
1 files changed, 0 insertions, 1185 deletions
diff --git a/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp b/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp deleted file mode 100644 index 7fa8fb54b83..00000000000 --- a/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp +++ /dev/null @@ -1,1185 +0,0 @@ -/* -******************************************************************************* -* Copyright (C) 2004-2006, International Business Machines -* Corporation and others. All Rights Reserved. -******************************************************************************* -* file name: ucol_sit.cpp -* encoding: US-ASCII -* tab size: 8 (not used) -* indentation:4 -* -* Modification history -* Date Name Comments -* 03/12/2004 weiv Creation -*/ - -#include "unicode/ustring.h" - -#include "utracimp.h" -#include "ucol_imp.h" -#include "ucol_tok.h" -#include "unormimp.h" -#include "cmemory.h" -#include "cstring.h" - -#if !UCONFIG_NO_COLLATION - -enum OptionsList { - UCOL_SIT_LANGUAGE = 0, - UCOL_SIT_SCRIPT, - UCOL_SIT_REGION, - UCOL_SIT_VARIANT, - UCOL_SIT_KEYWORD, - UCOL_SIT_RFC3166BIS, - UCOL_SIT_STRENGTH, - UCOL_SIT_CASE_LEVEL, - UCOL_SIT_CASE_FIRST, - UCOL_SIT_NUMERIC_COLLATION, - UCOL_SIT_ALTERNATE_HANDLING, - UCOL_SIT_NORMALIZATION_MODE, - UCOL_SIT_FRENCH_COLLATION, - UCOL_SIT_HIRAGANA_QUATERNARY, - UCOL_SIT_VARIABLE_TOP, - UCOL_SIT_VARIABLE_TOP_VALUE, - UCOL_SIT_ITEMS_COUNT -}; - -/* list of locales for packing of a collator to an integer. - * This list corresponds to ICU 3.0. If more collation bearing - * locales are added in the future, this won't be a simple array - * but a mapping allowing forward and reverse lookup would have to - * be established. Currently, the mapping is from locale name to - * index. - */ -static const char* const locales[] = { -/* 00 - 09 */ "ar", "be", "bg", "ca", "cs", "da", "de", "de__PHONEBOOK", "el", "en", -/* 10 - 19 */ "en_BE", "eo", "es", "es__TRADITIONAL", "et", "fa", "fa_AF", "fi", "fo", "fr", -/* 20 - 29 */ "gu", "he", "hi", "hi__DIRECT", "hr", "hu", "is", "it", "ja", "kk", -/* 30 - 39 */ "kl", "kn", "ko", "lt", "lv", "mk", "mr", "mt", "nb", "nn", -/* 40 - 49 */ "om", "pa", "pl", "ps", "ro", "root", "ru", "sh", "sk", "sl", -/* 50 - 59 */ "sq", "sr", "sv", "ta", "te", "th", "tr", "uk", "vi", "zh", -/* 60 - 64 */ "zh_HK", "zh_MO", "zh_TW", "zh_TW_STROKE", "zh__PINYIN" -}; - -static const char* const keywords[] = { -/* 00 */ "", -/* 01 */ "direct", -/* 02 */ "phonebook", -/* 03 */ "pinyin", -/* 04 */ "standard", -/* 05 */ "stroke", -/* 06 */ "traditional" -}; - - -/* option starters chars. */ -static const char alternateHArg = 'A'; -static const char variableTopValArg = 'B'; -static const char caseFirstArg = 'C'; -static const char numericCollArg = 'D'; -static const char caseLevelArg = 'E'; -static const char frenchCollArg = 'F'; -static const char hiraganaQArg = 'H'; -static const char keywordArg = 'K'; -static const char languageArg = 'L'; -static const char normArg = 'N'; -static const char regionArg = 'R'; -static const char strengthArg = 'S'; -static const char variableTopArg = 'T'; -static const char variantArg = 'V'; -static const char RFC3066Arg = 'X'; -static const char scriptArg = 'Z'; - -static const char collationKeyword[] = "@collation="; - -static const int32_t locElementCount = 5; -static const int32_t locElementCapacity = 32; -static const int32_t loc3066Capacity = 256; -static const int32_t internalBufferSize = 512; - -/* structure containing specification of a collator. Initialized - * from a short string. Also used to construct a short string from a - * collator instance - */ -struct CollatorSpec { - char locElements[locElementCount][locElementCapacity]; - char locale[loc3066Capacity]; - UColAttributeValue options[UCOL_ATTRIBUTE_COUNT]; - uint32_t variableTopValue; - UChar variableTopString[locElementCapacity]; - int32_t variableTopStringLen; - UBool variableTopSet; - struct { - const char *start; - int32_t len; - } entries[UCOL_SIT_ITEMS_COUNT]; -}; - - -/* structure for converting between character attribute - * representation and real collation attribute value. - */ -struct AttributeConversion { - char letter; - UColAttributeValue value; -}; - -static const AttributeConversion conversions[12] = { - { '1', UCOL_PRIMARY }, - { '2', UCOL_SECONDARY }, - { '3', UCOL_TERTIARY }, - { '4', UCOL_QUATERNARY }, - { 'D', UCOL_DEFAULT }, - { 'I', UCOL_IDENTICAL }, - { 'L', UCOL_LOWER_FIRST }, - { 'N', UCOL_NON_IGNORABLE }, - { 'O', UCOL_ON }, - { 'S', UCOL_SHIFTED }, - { 'U', UCOL_UPPER_FIRST }, - { 'X', UCOL_OFF } -}; - - -static char -ucol_sit_attributeValueToLetter(UColAttributeValue value, UErrorCode *status) { - uint32_t i = 0; - for(i = 0; i < sizeof(conversions)/sizeof(conversions[0]); i++) { - if(conversions[i].value == value) { - return conversions[i].letter; - } - } - *status = U_ILLEGAL_ARGUMENT_ERROR; - return 0; -} - -static UColAttributeValue -ucol_sit_letterToAttributeValue(char letter, UErrorCode *status) { - uint32_t i = 0; - for(i = 0; i < sizeof(conversions)/sizeof(conversions[0]); i++) { - if(conversions[i].letter == letter) { - return conversions[i].value; - } - } - *status = U_ILLEGAL_ARGUMENT_ERROR; - return UCOL_DEFAULT; -} - -/* function prototype for functions used to parse a short string */ -U_CDECL_BEGIN -typedef const char* U_CALLCONV -ActionFunction(CollatorSpec *spec, uint32_t value1, const char* string, - UErrorCode *status); -U_CDECL_END - -U_CDECL_BEGIN -static const char* U_CALLCONV -_processLocaleElement(CollatorSpec *spec, uint32_t value, const char* string, - UErrorCode *status) -{ - int32_t len = 0; - do { - if(value == 0 || value == 4) { - spec->locElements[value][len++] = uprv_tolower(*string); - } else { - spec->locElements[value][len++] = *string; - } - } while(*(++string) != '_' && *string && len < locElementCapacity); - if(len >= locElementCapacity) { - *status = U_BUFFER_OVERFLOW_ERROR; - return string; - } - // don't skip the underscore at the end - return string; -} -U_CDECL_END - -U_CDECL_BEGIN -static const char* U_CALLCONV -_processRFC3066Locale(CollatorSpec *spec, uint32_t, const char* string, - UErrorCode *status) -{ - char terminator = *string; - string++; - const char *end = uprv_strchr(string+1, terminator); - if(end == NULL || end - string >= loc3066Capacity) { - *status = U_BUFFER_OVERFLOW_ERROR; - return string; - } else { - uprv_strncpy(spec->locale, string, end-string); - return end+1; - } -} - -U_CDECL_END - -U_CDECL_BEGIN -static const char* U_CALLCONV -_processCollatorOption(CollatorSpec *spec, uint32_t option, const char* string, - UErrorCode *status) -{ - spec->options[option] = ucol_sit_letterToAttributeValue(*string, status); - if((*(++string) != '_' && *string) || U_FAILURE(*status)) { - *status = U_ILLEGAL_ARGUMENT_ERROR; - } - return string; -} -U_CDECL_END - - -static UChar -readHexCodeUnit(const char **string, UErrorCode *status) -{ - UChar result = 0; - int32_t value = 0; - char c; - int32_t noDigits = 0; - while((c = **string) != 0 && noDigits < 4) { - if( c >= '0' && c <= '9') { - value = c - '0'; - } else if ( c >= 'a' && c <= 'f') { - value = c - 'a' + 10; - } else if ( c >= 'A' && c <= 'F') { - value = c - 'A' + 10; - } else { - *status = U_ILLEGAL_ARGUMENT_ERROR; - return 0; - } - result = (result << 4) | (UChar)value; - noDigits++; - (*string)++; - } - // if the string was terminated before we read 4 digits, set an error - if(noDigits < 4) { - *status = U_ILLEGAL_ARGUMENT_ERROR; - } - return result; -} - -U_CDECL_BEGIN -static const char* U_CALLCONV -_processVariableTop(CollatorSpec *spec, uint32_t value1, const char* string, UErrorCode *status) -{ - // get four digits - int32_t i = 0; - if(!value1) { - while(U_SUCCESS(*status) && i < locElementCapacity && *string != 0 && *string != '_') { - spec->variableTopString[i++] = readHexCodeUnit(&string, status); - } - spec->variableTopStringLen = i; - if(i == locElementCapacity && (*string != 0 || *string != '_')) { - *status = U_BUFFER_OVERFLOW_ERROR; - } - } else { - spec->variableTopValue = readHexCodeUnit(&string, status); - } - if(U_SUCCESS(*status)) { - spec->variableTopSet = TRUE; - } - return string; -} -U_CDECL_END - - -/* Table for parsing short strings */ -struct ShortStringOptions { - char optionStart; - ActionFunction *action; - uint32_t attr; -}; - -static const ShortStringOptions options[UCOL_SIT_ITEMS_COUNT] = -{ -/* 10 ALTERNATE_HANDLING */ {alternateHArg, _processCollatorOption, UCOL_ALTERNATE_HANDLING }, // alternate N, S, D -/* 15 VARIABLE_TOP_VALUE */ {variableTopValArg, _processVariableTop, 1 }, -/* 08 CASE_FIRST */ {caseFirstArg, _processCollatorOption, UCOL_CASE_FIRST }, // case first L, U, X, D -/* 09 NUMERIC_COLLATION */ {numericCollArg, _processCollatorOption, UCOL_NUMERIC_COLLATION }, // codan O, X, D -/* 07 CASE_LEVEL */ {caseLevelArg, _processCollatorOption, UCOL_CASE_LEVEL }, // case level O, X, D -/* 12 FRENCH_COLLATION */ {frenchCollArg, _processCollatorOption, UCOL_FRENCH_COLLATION }, // french O, X, D -/* 13 HIRAGANA_QUATERNARY] */ {hiraganaQArg, _processCollatorOption, UCOL_HIRAGANA_QUATERNARY_MODE }, // hiragana O, X, D -/* 04 KEYWORD */ {keywordArg, _processLocaleElement, 4 }, // keyword -/* 00 LANGUAGE */ {languageArg, _processLocaleElement, 0 }, // language -/* 11 NORMALIZATION_MODE */ {normArg, _processCollatorOption, UCOL_NORMALIZATION_MODE }, // norm O, X, D -/* 02 REGION */ {regionArg, _processLocaleElement, 2 }, // region -/* 06 STRENGTH */ {strengthArg, _processCollatorOption, UCOL_STRENGTH }, // strength 1, 2, 3, 4, I, D -/* 14 VARIABLE_TOP */ {variableTopArg, _processVariableTop, 0 }, -/* 03 VARIANT */ {variantArg, _processLocaleElement, 3 }, // variant -/* 05 RFC3066BIS */ {RFC3066Arg, _processRFC3066Locale, 0 }, // rfc3066bis locale name -/* 01 SCRIPT */ {scriptArg, _processLocaleElement, 1 } // script -}; - - -static -const char* ucol_sit_readOption(const char *start, CollatorSpec *spec, - UErrorCode *status) -{ - int32_t i = 0; - - for(i = 0; i < UCOL_SIT_ITEMS_COUNT; i++) { - if(*start == options[i].optionStart) { - spec->entries[i].start = start; - const char* end = options[i].action(spec, options[i].attr, start+1, status); - spec->entries[i].len = end - start; - return end; - } - } - *status = U_ILLEGAL_ARGUMENT_ERROR; - return start; -} - -static -void ucol_sit_initCollatorSpecs(CollatorSpec *spec) -{ - // reset everything - uprv_memset(spec, 0, sizeof(CollatorSpec)); - // set collation options to default - int32_t i = 0; - for(i = 0; i < UCOL_ATTRIBUTE_COUNT; i++) { - spec->options[i] = UCOL_DEFAULT; - } -} - -static const char* -ucol_sit_readSpecs(CollatorSpec *s, const char *string, - UParseError *parseError, UErrorCode *status) -{ - const char *definition = string; - while(U_SUCCESS(*status) && *string) { - string = ucol_sit_readOption(string, s, status); - // advance over '_' - while(*string && *string == '_') { - string++; - } - } - if(U_FAILURE(*status)) { - parseError->offset = string - definition; - } - return string; -} - -static -int32_t ucol_sit_dumpSpecs(CollatorSpec *s, char *destination, int32_t capacity, UErrorCode *status) -{ - int32_t i = 0, j = 0; - int32_t len = 0; - char optName; - if(U_SUCCESS(*status)) { - for(i = 0; i < UCOL_SIT_ITEMS_COUNT; i++) { - if(s->entries[i].start) { - if(len) { - if(len < capacity) { - uprv_strcat(destination, "_"); - } - len++; - } - optName = *(s->entries[i].start); - if(optName == languageArg || optName == regionArg || optName == variantArg || optName == keywordArg) { - for(j = 0; j < s->entries[i].len; j++) { - if(len + j < capacity) { - destination[len+j] = uprv_toupper(*(s->entries[i].start+j)); - } - } - len += s->entries[i].len; - } else { - len += s->entries[i].len; - if(len < capacity) { - uprv_strncat(destination,s->entries[i].start, s->entries[i].len); - } - } - } - } - return len; - } else { - return 0; - } -} - -static void -ucol_sit_calculateWholeLocale(CollatorSpec *s) { - // put the locale together, unless we have a done - // locale - if(s->locale[0] == 0) { - // first the language - uprv_strcat(s->locale, s->locElements[0]); - // then the script, if present - if(*(s->locElements[1])) { - uprv_strcat(s->locale, "_"); - uprv_strcat(s->locale, s->locElements[1]); - } - // then the region, if present - if(*(s->locElements[2])) { - uprv_strcat(s->locale, "_"); - uprv_strcat(s->locale, s->locElements[2]); - } else if(*(s->locElements[3])) { // if there is a variant, we need an underscore - uprv_strcat(s->locale, "_"); - } - // add variant, if there - if(*(s->locElements[3])) { - uprv_strcat(s->locale, "_"); - uprv_strcat(s->locale, s->locElements[3]); - } - - // if there is a collation keyword, add that too - if(*(s->locElements[4])) { - uprv_strcat(s->locale, collationKeyword); - uprv_strcat(s->locale, s->locElements[4]); - } - } -} - - -U_CAPI void U_EXPORT2 -ucol_prepareShortStringOpen( const char *definition, - UBool, - UParseError *parseError, - UErrorCode *status) -{ - if(U_FAILURE(*status)) return; - - UParseError internalParseError; - - if(!parseError) { - parseError = &internalParseError; - } - parseError->line = 0; - parseError->offset = 0; - parseError->preContext[0] = 0; - parseError->postContext[0] = 0; - - - // first we want to pick stuff out of short string. - // we'll end up with an UCA version, locale and a bunch of - // settings - - // analyse the string in order to get everything we need. - const char *string = definition; - CollatorSpec s; - ucol_sit_initCollatorSpecs(&s); - string = ucol_sit_readSpecs(&s, definition, parseError, status); - ucol_sit_calculateWholeLocale(&s); - - char buffer[internalBufferSize]; - uprv_memset(buffer, 0, internalBufferSize); - uloc_canonicalize(s.locale, buffer, internalBufferSize, status); - - UResourceBundle *b = ures_open(U_ICUDATA_COLL, buffer, status); - /* we try to find stuff from keyword */ - UResourceBundle *collations = ures_getByKey(b, "collations", NULL, status); - UResourceBundle *collElem = NULL; - char keyBuffer[256]; - // if there is a keyword, we pick it up and try to get elements - if(!uloc_getKeywordValue(buffer, "collation", keyBuffer, 256, status)) { - // no keyword. we try to find the default setting, which will give us the keyword value - UResourceBundle *defaultColl = ures_getByKeyWithFallback(collations, "default", NULL, status); - if(U_SUCCESS(*status)) { - int32_t defaultKeyLen = 0; - const UChar *defaultKey = ures_getString(defaultColl, &defaultKeyLen, status); - u_UCharsToChars(defaultKey, keyBuffer, defaultKeyLen); - keyBuffer[defaultKeyLen] = 0; - } else { - *status = U_INTERNAL_PROGRAM_ERROR; - return; - } - ures_close(defaultColl); - } - collElem = ures_getByKeyWithFallback(collations, keyBuffer, collElem, status); - ures_close(collElem); - ures_close(collations); - ures_close(b); -} - - -U_CAPI UCollator* U_EXPORT2 -ucol_openFromShortString( const char *definition, - UBool forceDefaults, - UParseError *parseError, - UErrorCode *status) -{ - UTRACE_ENTRY_OC(UTRACE_UCOL_OPEN_FROM_SHORT_STRING); - UTRACE_DATA1(UTRACE_INFO, "short string = \"%s\"", definition); - - if(U_FAILURE(*status)) return 0; - - UParseError internalParseError; - - if(!parseError) { - parseError = &internalParseError; - } - parseError->line = 0; - parseError->offset = 0; - parseError->preContext[0] = 0; - parseError->postContext[0] = 0; - - - // first we want to pick stuff out of short string. - // we'll end up with an UCA version, locale and a bunch of - // settings - - // analyse the string in order to get everything we need. - const char *string = definition; - CollatorSpec s; - ucol_sit_initCollatorSpecs(&s); - string = ucol_sit_readSpecs(&s, definition, parseError, status); - ucol_sit_calculateWholeLocale(&s); - - char buffer[internalBufferSize]; - uprv_memset(buffer, 0, internalBufferSize); - uloc_canonicalize(s.locale, buffer, internalBufferSize, status); - - UCollator *result = ucol_open(buffer, status); - int32_t i = 0; - - for(i = 0; i < UCOL_ATTRIBUTE_COUNT; i++) { - if(s.options[i] != UCOL_DEFAULT) { - if(forceDefaults || ucol_getAttribute(result, (UColAttribute)i, status) != s.options[i]) { - ucol_setAttribute(result, (UColAttribute)i, s.options[i], status); - } - - if(U_FAILURE(*status)) { - parseError->offset = string - definition; - ucol_close(result); - return NULL; - } - - } - } - if(s.variableTopSet) { - if(s.variableTopString[0]) { - ucol_setVariableTop(result, s.variableTopString, s.variableTopStringLen, status); - } else { // we set by value, using 'B' - ucol_restoreVariableTop(result, s.variableTopValue, status); - } - } - - - if(U_FAILURE(*status)) { // here it can only be a bogus value - ucol_close(result); - result = NULL; - } - - UTRACE_EXIT_PTR_STATUS(result, *status); - return result; -} - - -static void appendShortStringElement(const char *src, int32_t len, char *result, int32_t *resultSize, int32_t capacity, char arg) -{ - if(len) { - if(*resultSize) { - if(*resultSize < capacity) { - uprv_strcat(result, "_"); - } - (*resultSize)++; - } - *resultSize += len + 1; - if(*resultSize < capacity) { - uprv_strncat(result, &arg, 1); - uprv_strncat(result, src, len); - } - } -} - -U_CAPI int32_t U_EXPORT2 -ucol_getShortDefinitionString(const UCollator *coll, - const char *locale, - char *dst, - int32_t capacity, - UErrorCode *status) -{ - if(U_FAILURE(*status)) return 0; - char buffer[internalBufferSize]; - uprv_memset(buffer, 0, internalBufferSize*sizeof(char)); - int32_t resultSize = 0; - char tempbuff[internalBufferSize]; - char locBuff[internalBufferSize]; - uprv_memset(buffer, 0, internalBufferSize*sizeof(char)); - int32_t elementSize = 0; - UBool isAvailable = 0; - CollatorSpec s; - ucol_sit_initCollatorSpecs(&s); - - if(!locale) { - locale = ucol_getLocale(coll, ULOC_VALID_LOCALE, status); - } - elementSize = ucol_getFunctionalEquivalent(locBuff, internalBufferSize, "collation", locale, &isAvailable, status); - - if(elementSize) { - // we should probably canonicalize here... - elementSize = uloc_getLanguage(locBuff, tempbuff, internalBufferSize, status); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, languageArg); - elementSize = uloc_getCountry(locBuff, tempbuff, internalBufferSize, status); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, regionArg); - elementSize = uloc_getScript(locBuff, tempbuff, internalBufferSize, status); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, scriptArg); - elementSize = uloc_getVariant(locBuff, tempbuff, internalBufferSize, status); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, variantArg); - elementSize = uloc_getKeywordValue(locBuff, "collation", tempbuff, internalBufferSize, status); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, keywordArg); - } - - int32_t i = 0; - UColAttributeValue attribute = UCOL_DEFAULT; - for(i = 0; i < UCOL_SIT_ITEMS_COUNT; i++) { - if(options[i].action == _processCollatorOption) { - attribute = ucol_getAttributeOrDefault(coll, (UColAttribute)options[i].attr, status); - if(attribute != UCOL_DEFAULT) { - char letter = ucol_sit_attributeValueToLetter(attribute, status); - appendShortStringElement(&letter, 1, - buffer, &resultSize, capacity, options[i].optionStart); - } - } - } - if(coll->variableTopValueisDefault == FALSE) { - //s.variableTopValue = ucol_getVariableTop(coll, status); - elementSize = T_CString_integerToString(tempbuff, coll->variableTopValue, 16); - appendShortStringElement(tempbuff, elementSize, buffer, &resultSize, capacity, variableTopValArg); - } - - UParseError parseError; - return ucol_normalizeShortDefinitionString(buffer, dst, capacity, &parseError, status); -} - -U_CAPI int32_t U_EXPORT2 -ucol_normalizeShortDefinitionString(const char *definition, - char *destination, - int32_t capacity, - UParseError *parseError, - UErrorCode *status) -{ - - if(U_FAILURE(*status)) { - return 0; - } - - if(destination) { - uprv_memset(destination, 0, capacity*sizeof(char)); - } - - UParseError pe; - if(!parseError) { - parseError = &pe; - } - - // validate - CollatorSpec s; - ucol_sit_initCollatorSpecs(&s); - ucol_sit_readSpecs(&s, definition, parseError, status); - return ucol_sit_dumpSpecs(&s, destination, capacity, status); -} - -// structure for packing the bits of the attributes in the -// identifier number. -// locale is packed separately -struct bitPacking { - char letter; - uint32_t offset; - uint32_t width; - UColAttribute attribute; - UColAttributeValue values[6]; -}; - -static const bitPacking attributesToBits[UCOL_ATTRIBUTE_COUNT] = { - /* french */ { frenchCollArg, 29, 2, UCOL_FRENCH_COLLATION, { UCOL_DEFAULT, UCOL_OFF, UCOL_ON }}, - /* alternate */ { alternateHArg, 27, 2, UCOL_ALTERNATE_HANDLING, { UCOL_DEFAULT, UCOL_NON_IGNORABLE, UCOL_SHIFTED }}, - /* case first */ { caseFirstArg, 25, 2, UCOL_CASE_FIRST, { UCOL_DEFAULT, UCOL_OFF, UCOL_LOWER_FIRST, UCOL_UPPER_FIRST }}, - /* case level */ { caseLevelArg, 23, 2, UCOL_CASE_LEVEL, { UCOL_DEFAULT, UCOL_OFF, UCOL_ON }}, - /* normalization */ { normArg, 21, 2, UCOL_NORMALIZATION_MODE, { UCOL_DEFAULT, UCOL_OFF, UCOL_ON }}, - /* strength */ { strengthArg, 18, 3, UCOL_STRENGTH, { UCOL_DEFAULT, UCOL_PRIMARY, UCOL_SECONDARY, UCOL_TERTIARY, UCOL_QUATERNARY, UCOL_IDENTICAL }}, - /* hiragana */ { hiraganaQArg, 16, 2, UCOL_HIRAGANA_QUATERNARY_MODE, { UCOL_DEFAULT, UCOL_OFF, UCOL_ON }}, - /* numeric coll */ { numericCollArg, 14, 2, UCOL_NUMERIC_COLLATION, { UCOL_DEFAULT, UCOL_OFF, UCOL_ON }} -}; - -static const uint32_t keywordShift = 9; -static const uint32_t keywordWidth = 5; -static const uint32_t localeShift = 0; -static const uint32_t localeWidth = 7; - - -static uint32_t ucol_sit_putLocaleInIdentifier(uint32_t result, const char* locale, UErrorCode* status) { - char buffer[internalBufferSize], keywordBuffer[internalBufferSize], - baseName[internalBufferSize], localeBuffer[internalBufferSize]; - int32_t len = 0, keywordLen = 0, - baseNameLen = 0, localeLen = 0; - uint32_t i = 0; - UBool isAvailable = FALSE; - if(locale) { - len = uloc_canonicalize(locale, buffer, internalBufferSize, status); - localeLen = ucol_getFunctionalEquivalent(localeBuffer, internalBufferSize, "collation", buffer, &isAvailable, status); - keywordLen = uloc_getKeywordValue(buffer, "collation", keywordBuffer, internalBufferSize, status); - baseNameLen = uloc_getBaseName(buffer, baseName, internalBufferSize, status); - - /*Binary search for the map entry for normal cases */ - - uint32_t low = 0; - uint32_t high = sizeof(locales)/sizeof(locales[0]); - uint32_t mid = high; - uint32_t oldmid = 0; - int32_t compVal = 0; - - - while (high > low) /*binary search*/{ - - mid = (high+low) >> 1; /*Finds median*/ - - if (mid == oldmid) - return UCOL_SIT_COLLATOR_NOT_ENCODABLE; // we didn't find it - - compVal = uprv_strcmp(baseName, locales[mid]); - if (compVal < 0){ - high = mid; - } - else if (compVal > 0){ - low = mid; - } - else /*we found it*/{ - break; - } - oldmid = mid; - } - - result |= (mid & ((1 << localeWidth) - 1)) << localeShift; - } - - if(keywordLen) { - for(i = 1; i < sizeof(keywords)/sizeof(keywords[0]); i++) { - if(uprv_strcmp(keywords[i], keywordBuffer) == 0) { - result |= (i & ((1 << keywordWidth) - 1)) << keywordShift; - break; - } - } - } - return result; -} - -U_CAPI uint32_t U_EXPORT2 -ucol_collatorToIdentifier(const UCollator *coll, - const char *locale, - UErrorCode *status) -{ - uint32_t result = 0; - uint32_t i = 0, j = 0; - UColAttributeValue attrValue = UCOL_DEFAULT; - - // if variable top is not default, we need to use strings - if(coll->variableTopValueisDefault != TRUE) { - return UCOL_SIT_COLLATOR_NOT_ENCODABLE; - } - - if(locale == NULL) { - locale = ucol_getLocale(coll, ULOC_VALID_LOCALE, status); - } - - result = ucol_sit_putLocaleInIdentifier(result, locale, status); - - for(i = 0; i < sizeof(attributesToBits)/sizeof(attributesToBits[0]); i++) { - attrValue = ucol_getAttributeOrDefault(coll, attributesToBits[i].attribute, status); - j = 0; - while(attributesToBits[i].values[j] != attrValue) { - j++; - } - result |= (j & ((1 << attributesToBits[i].width) - 1)) << attributesToBits[i].offset; - } - - return result; -} - -U_CAPI UCollator* U_EXPORT2 -ucol_openFromIdentifier(uint32_t identifier, - UBool forceDefaults, - UErrorCode *status) -{ - uint32_t i = 0; - int32_t value = 0, keyword = 0; - char locale[internalBufferSize]; - - value = (identifier >> localeShift) & ((1 << localeWidth) - 1); - keyword = (identifier >> keywordShift) & ((1 << keywordWidth) - 1); - - uprv_strcpy(locale, locales[value]); - - if(keyword) { - uprv_strcat(locale, collationKeyword); - uprv_strcat(locale, keywords[keyword]); - } - - UColAttributeValue attrValue = UCOL_DEFAULT; - - UCollator *result = ucol_open(locale, status); - - // variable top is not set in the identifier, so we can easily skip that on - - for(i = 0; i < sizeof(attributesToBits)/sizeof(attributesToBits[0]); i++) { - value = (identifier >> attributesToBits[i].offset) & ((1 << attributesToBits[i].width) - 1); - attrValue = attributesToBits[i].values[value]; - // the collator is all default, so we will set only the values that will differ from - // the default values. - if(attrValue != UCOL_DEFAULT) { - if(forceDefaults || - ucol_getAttribute(result, attributesToBits[i].attribute, status) != attrValue) { - ucol_setAttribute(result, attributesToBits[i].attribute, attrValue, status); - } - } - } - - return result; -} - -U_CAPI int32_t U_EXPORT2 -ucol_identifierToShortString(uint32_t identifier, - char *buffer, - int32_t capacity, - UBool forceDefaults, - UErrorCode *status) -{ - int32_t locIndex = (identifier >> localeShift) & ((1 << localeWidth) - 1); - int32_t keywordIndex = (identifier >> keywordShift) & ((1 << keywordWidth) - 1); - CollatorSpec s; - ucol_sit_initCollatorSpecs(&s); - uprv_strcpy(s.locale, locales[locIndex]); - if(keywordIndex) { - uprv_strcat(s.locale, collationKeyword); - uprv_strcat(s.locale, keywords[keywordIndex]); - } - UCollator *coll = ucol_openFromIdentifier(identifier, forceDefaults, status); - int32_t resultLen = ucol_getShortDefinitionString(coll, s.locale, buffer, capacity, status); - ucol_close(coll); - return resultLen; - -#if 0 - // TODO: Crumy, crumy, crumy... Very hard to currently go algorithmically from - // identifier to short string. Do rethink - if(forceDefaults == FALSE) { - UCollator *coll = ucol_openFromIdentifier(identifier, FALSE, status); - int32_t resultLen = ucol_getShortDefinitionString(coll, s.locale, buffer, capacity, status); - ucol_close(coll); - return resultLen; - } else { // forceDefaults == TRUE - char letter; - UColAttributeValue value; - int32_t i = 0; - for(i = 0; i < sizeof(attributesToBits)/sizeof(attributesToBits[0]); i++) { - value = attributesToBits[i].values[(identifier >> attributesToBits[i].offset) & ((1 << attributesToBits[i].width) - 1)]; - if(value != UCOL_DEFAULT) { - uprv_strcat(buffer, "_"); - uprv_strncat(buffer, &attributesToBits[i].letter, 1); - letter = ucol_sit_attributeValueToLetter(value, status); - uprv_strncat(buffer, &letter, 1); - } - } - return ucol_sit_dumpSpecs(&s, buffer, capacity, status); - } -#endif -} - -U_CAPI uint32_t U_EXPORT2 -ucol_shortStringToIdentifier(const char *definition, - UBool forceDefaults, - UErrorCode *status) -{ - UParseError parseError; - CollatorSpec s; - uint32_t result = 0; - uint32_t i = 0, j = 0; - ucol_sit_initCollatorSpecs(&s); - - ucol_sit_readSpecs(&s, definition, &parseError, status); - ucol_sit_calculateWholeLocale(&s); - - char locBuffer[internalBufferSize]; - UBool isAvailable = FALSE; - UColAttributeValue attrValue = UCOL_DEFAULT; - - ucol_getFunctionalEquivalent(locBuffer, internalBufferSize, "collation", s.locale, &isAvailable, status); - - if(forceDefaults == FALSE) { - UCollator *coll = ucol_openFromShortString(definition, FALSE, &parseError, status); - result = ucol_collatorToIdentifier(coll, locBuffer, status); - ucol_close(coll); - } else { // forceDefaults == TRUE - result = ucol_sit_putLocaleInIdentifier(result, locBuffer, status); - - for(i = 0; i < sizeof(attributesToBits)/sizeof(attributesToBits[0]); i++) { - attrValue = s.options[i]; - j = 0; - while(attributesToBits[i].values[j] != attrValue) { - j++; - } - result |= (j & ((1 << attributesToBits[i].width) - 1)) << attributesToBits[i].offset; - } - - } - return result; - -} - -U_CAPI UColAttributeValue U_EXPORT2 -ucol_getAttributeOrDefault(const UCollator *coll, UColAttribute attr, UErrorCode *status) -{ - if(U_FAILURE(*status) || coll == NULL) { - return UCOL_DEFAULT; - } - switch(attr) { - case UCOL_NUMERIC_COLLATION: - return coll->numericCollationisDefault?UCOL_DEFAULT:coll->numericCollation; - case UCOL_HIRAGANA_QUATERNARY_MODE: - return coll->hiraganaQisDefault?UCOL_DEFAULT:coll->hiraganaQ; - case UCOL_FRENCH_COLLATION: /* attribute for direction of secondary weights*/ - return coll->frenchCollationisDefault?UCOL_DEFAULT:coll->frenchCollation; - case UCOL_ALTERNATE_HANDLING: /* attribute for handling variable elements*/ - return coll->alternateHandlingisDefault?UCOL_DEFAULT:coll->alternateHandling; - case UCOL_CASE_FIRST: /* who goes first, lower case or uppercase */ - return coll->caseFirstisDefault?UCOL_DEFAULT:coll->caseFirst; - case UCOL_CASE_LEVEL: /* do we have an extra case level */ - return coll->caseLevelisDefault?UCOL_DEFAULT:coll->caseLevel; - case UCOL_NORMALIZATION_MODE: /* attribute for normalization */ - return coll->normalizationModeisDefault?UCOL_DEFAULT:coll->normalizationMode; - case UCOL_STRENGTH: /* attribute for strength */ - return coll->strengthisDefault?UCOL_DEFAULT:coll->strength; - case UCOL_ATTRIBUTE_COUNT: - default: - *status = U_ILLEGAL_ARGUMENT_ERROR; - break; - } - return UCOL_DEFAULT; -} - - -struct contContext { - const UCollator *coll; - USet *conts; - USet *expansions; - USet *removedContractions; - UBool addPrefixes; - UErrorCode *status; -}; - - - -static void -addSpecial(contContext *context, UChar *buffer, int32_t bufLen, - uint32_t CE, int32_t leftIndex, int32_t rightIndex, UErrorCode *status) -{ - const UCollator *coll = context->coll; - USet *contractions = context->conts; - USet *expansions = context->expansions; - UBool addPrefixes = context->addPrefixes; - - const UChar *UCharOffset = (UChar *)coll->image+getContractOffset(CE); - uint32_t newCE = *(coll->contractionCEs + (UCharOffset - coll->contractionIndex)); - // we might have a contraction that ends from previous level - if(newCE != UCOL_NOT_FOUND) { - if(isSpecial(CE) && getCETag(CE) == CONTRACTION_TAG && isSpecial(newCE) && getCETag(newCE) == SPEC_PROC_TAG && addPrefixes) { - addSpecial(context, buffer, bufLen, newCE, leftIndex, rightIndex, status); - } - if(contractions && rightIndex-leftIndex > 1) { - uset_addString(contractions, buffer+leftIndex, rightIndex-leftIndex); - if(expansions && isSpecial(CE) && getCETag(CE) == EXPANSION_TAG) { - uset_addString(expansions, buffer+leftIndex, rightIndex-leftIndex); - } - } - } - - UCharOffset++; - // check whether we're doing contraction or prefix - if(getCETag(CE) == SPEC_PROC_TAG && addPrefixes) { - if(leftIndex == 0) { - *status = U_INTERNAL_PROGRAM_ERROR; - return; - } - --leftIndex; - while(*UCharOffset != 0xFFFF) { - newCE = *(coll->contractionCEs + (UCharOffset - coll->contractionIndex)); - buffer[leftIndex] = *UCharOffset; - if(isSpecial(newCE) && (getCETag(newCE) == CONTRACTION_TAG || getCETag(newCE) == SPEC_PROC_TAG)) { - addSpecial(context, buffer, bufLen, newCE, leftIndex, rightIndex, status); - } else { - if(contractions) { - uset_addString(contractions, buffer+leftIndex, rightIndex-leftIndex); - } - if(expansions && isSpecial(newCE) && getCETag(newCE) == EXPANSION_TAG) { - uset_addString(expansions, buffer+leftIndex, rightIndex-leftIndex); - } - } - UCharOffset++; - } - } else if(getCETag(CE) == CONTRACTION_TAG) { - if(rightIndex == bufLen-1) { - *status = U_INTERNAL_PROGRAM_ERROR; - return; - } - while(*UCharOffset != 0xFFFF) { - newCE = *(coll->contractionCEs + (UCharOffset - coll->contractionIndex)); - buffer[rightIndex] = *UCharOffset; - if(isSpecial(newCE) && (getCETag(newCE) == CONTRACTION_TAG || getCETag(newCE) == SPEC_PROC_TAG)) { - addSpecial(context, buffer, bufLen, newCE, leftIndex, rightIndex+1, status); - } else { - if(contractions) { - uset_addString(contractions, buffer+leftIndex, rightIndex+1-leftIndex); - } - if(expansions && isSpecial(newCE) && getCETag(newCE) == EXPANSION_TAG) { - uset_addString(expansions, buffer+leftIndex, rightIndex+1-leftIndex); - } - } - UCharOffset++; - } - } - -} - -U_CDECL_BEGIN -static UBool U_CALLCONV -_processSpecials(const void *context, UChar32 start, UChar32 limit, uint32_t CE) -{ - UErrorCode *status = ((contContext *)context)->status; - USet *expansions = ((contContext *)context)->expansions; - USet *removed = ((contContext *)context)->removedContractions; - UBool addPrefixes = ((contContext *)context)->addPrefixes; - UChar contraction[internalBufferSize]; - if(isSpecial(CE)) { - if(((getCETag(CE) == SPEC_PROC_TAG && addPrefixes) || getCETag(CE) == CONTRACTION_TAG)) { - while(start < limit && U_SUCCESS(*status)) { - // if there are suppressed contractions, we don't - // want to add them. - if(removed && uset_contains(removed, start)) { - start++; - continue; - } - // we start our contraction from middle, since we don't know if it - // will grow toward right or left - contraction[internalBufferSize/2] = (UChar)start; - addSpecial(((contContext *)context), contraction, internalBufferSize, CE, internalBufferSize/2, internalBufferSize/2+1, status); - start++; - } - } else if(expansions && getCETag(CE) == EXPANSION_TAG) { - while(start < limit && U_SUCCESS(*status)) { - uset_add(expansions, start++); - } - } - } - if(U_FAILURE(*status)) { - return FALSE; - } else { - return TRUE; - } -} - -U_CDECL_END - - - -/** - * Get a set containing the contractions defined by the collator. The set includes - * both the UCA contractions and the contractions defined by the collator - * @param coll collator - * @param conts the set to hold the result - * @param status to hold the error code - * @return the size of the contraction set - * - * @draft ICU 3.0 - */ -U_CAPI int32_t U_EXPORT2 -ucol_getContractions( const UCollator *coll, - USet *contractions, - UErrorCode *status) -{ - ucol_getContractionsAndExpansions(coll, contractions, NULL, FALSE, status); - return uset_getItemCount(contractions); -} - -/** - * Get a set containing the expansions defined by the collator. The set includes - * both the UCA expansions and the expansions defined by the tailoring - * @param coll collator - * @param conts the set to hold the result - * @param addPrefixes add the prefix contextual elements to contractions - * @param status to hold the error code - * - * @draft ICU 3.4 - */ -U_CAPI void U_EXPORT2 -ucol_getContractionsAndExpansions( const UCollator *coll, - USet *contractions, - USet *expansions, - UBool addPrefixes, - UErrorCode *status) -{ - if(U_FAILURE(*status)) { - return; - } - if(coll == NULL) { - *status = U_ILLEGAL_ARGUMENT_ERROR; - return; - } - - if(contractions) { - uset_clear(contractions); - } - if(expansions) { - uset_clear(expansions); - } - int32_t rulesLen = 0; - const UChar* rules = ucol_getRules(coll, &rulesLen); - UColTokenParser src; - ucol_tok_initTokenList(&src, rules, rulesLen, coll->UCA, status); - - contContext c = { NULL, contractions, expansions, src.removeSet, addPrefixes, status }; - - // Add the UCA contractions - c.coll = coll->UCA; - utrie_enum(&coll->UCA->mapping, NULL, _processSpecials, &c); - - // This is collator specific. Add contractions from a collator - c.coll = coll; - c.removedContractions = NULL; - utrie_enum(&coll->mapping, NULL, _processSpecials, &c); - ucol_tok_closeTokenList(&src); -} - -U_CAPI int32_t U_EXPORT2 -ucol_getUnsafeSet( const UCollator *coll, - USet *unsafe, - UErrorCode *status) -{ - UChar buffer[internalBufferSize]; - int32_t len = 0; - - uset_clear(unsafe); - - // cccpattern = "[[:^tccc=0:][:^lccc=0:]]", unfortunately variant - static const UChar cccpattern[25] = { 0x5b, 0x5b, 0x3a, 0x5e, 0x74, 0x63, 0x63, 0x63, 0x3d, 0x30, 0x3a, 0x5d, - 0x5b, 0x3a, 0x5e, 0x6c, 0x63, 0x63, 0x63, 0x3d, 0x30, 0x3a, 0x5d, 0x5d, 0x00 }; - - // add chars that fail the fcd check - uset_applyPattern(unsafe, cccpattern, 24, USET_IGNORE_SPACE, status); - - // add Thai/Lao prevowels - uset_addRange(unsafe, 0xe40, 0xe44); - uset_addRange(unsafe, 0xec0, 0xec4); - // add lead/trail surrogates - uset_addRange(unsafe, 0xd800, 0xdfff); - - USet *contractions = uset_open(0,0); - - int32_t i = 0, j = 0; - int32_t contsSize = ucol_getContractions(coll, contractions, status); - UChar32 c = 0; - // Contraction set consists only of strings - // to get unsafe code points, we need to - // break the strings apart and add them to the unsafe set - for(i = 0; i < contsSize; i++) { - len = uset_getItem(contractions, i, NULL, NULL, buffer, internalBufferSize, status); - if(len > 0) { - j = 0; - while(j < len) { - U16_NEXT(buffer, j, len, c); - if(j < len) { - uset_add(unsafe, c); - } - } - } - } - - uset_close(contractions); - - return uset_size(unsafe); -} -#endif |