summaryrefslogtreecommitdiff
path: root/Build/source/libs/icu-xetex/i18n/ucol_sit.cpp
diff options
context:
space:
mode:
authorJonathan Kew <jfkthame@googlemail.com>2008-03-04 13:21:23 +0000
committerJonathan Kew <jfkthame@googlemail.com>2008-03-04 13:21:23 +0000
commitf483a5de9331a257f597282e611ecfb63f5ab118 (patch)
tree756baa5a727dd0438448eb380bb6ca81fb41d534 /Build/source/libs/icu-xetex/i18n/ucol_sit.cpp
parente2603863b071e717675b6a69e97c45a42e55bf2c (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.cpp1185
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