diff options
author | Jonathan Kew <jfkthame@googlemail.com> | 2006-07-25 12:37:43 +0000 |
---|---|---|
committer | Jonathan Kew <jfkthame@googlemail.com> | 2006-07-25 12:37:43 +0000 |
commit | 10c60368cd42904bd991453f02b684ebe02ef915 (patch) | |
tree | c6fb06ccf22a81c80af08f79df1b436120703de4 /Build/source/libs/icu-xetex/i18n/ucol_sit.cpp | |
parent | 4d8b2aac6036acbb6878236c27e2fb110dad8643 (diff) |
adding ICU library sources used by xetex
git-svn-id: svn://tug.org/texlive/trunk@1915 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 | 1193 |
1 files changed, 1193 insertions, 0 deletions
diff --git a/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp b/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp new file mode 100644 index 00000000000..76a48bf3d03 --- /dev/null +++ b/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp @@ -0,0 +1,1193 @@ +/* +******************************************************************************* +* Copyright (C) 2004-2005, 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; + } +} + +static int32_t U_CALLCONV +_getTrieFoldingOffset(uint32_t data) +{ + return (int32_t)(data&0xFFFFFF); +} +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 }; + + coll->mapping->getFoldingOffset = _getTrieFoldingOffset; + + + // 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 |