1 /* 2 ******************************************************************************* 3 * 4 * Copyright (C) 2001-2012, International Business Machines 5 * Corporation and others. All Rights Reserved. 6 * 7 ******************************************************************************* 8 * file name: ucol_tok.cpp 9 * encoding: US-ASCII 10 * tab size: 8 (not used) 11 * indentation:4 12 * 13 * created 02/22/2001 14 * created by: Vladimir Weinstein 15 * 16 * This module reads a tailoring rule string and produces a list of 17 * tokens that will be turned into collation elements 18 * 19 */ 20 21 #include "unicode/utypes.h" 22 23 #if !UCONFIG_NO_COLLATION 24 25 #include "unicode/uscript.h" 26 #include "unicode/ustring.h" 27 #include "unicode/uchar.h" 28 #include "unicode/uniset.h" 29 30 #include "cmemory.h" 31 #include "cstring.h" 32 #include "patternprops.h" 33 #include "ucol_bld.h" 34 #include "ucol_tok.h" 35 #include "ulocimp.h" 36 #include "uresimp.h" 37 38 // Define this only for debugging. 39 // #define DEBUG_FOR_COLL_RULES 1 40 41 #ifdef DEBUG_FOR_COLL_RULES 42 #include <iostream> 43 #endif 44 45 U_NAMESPACE_USE 46 47 U_CDECL_BEGIN 48 static int32_t U_CALLCONV 49 uhash_hashTokens(const UHashTok k) 50 { 51 int32_t hash = 0; 52 //uint32_t key = (uint32_t)k.integer; 53 UColToken *key = (UColToken *)k.pointer; 54 if (key != 0) { 55 int32_t len = (key->source & 0xFF000000)>>24; 56 int32_t inc = ((len - 32) / 32) + 1; 57 58 const UChar *p = (key->source & 0x00FFFFFF) + *(key->rulesToParseHdl); 59 const UChar *limit = p + len; 60 61 while (p<limit) { 62 hash = (hash * 37) + *p; 63 p += inc; 64 } 65 } 66 return hash; 67 } 68 69 static UBool U_CALLCONV 70 uhash_compareTokens(const UHashTok key1, const UHashTok key2) 71 { 72 //uint32_t p1 = (uint32_t) key1.integer; 73 //uint32_t p2 = (uint32_t) key2.integer; 74 UColToken *p1 = (UColToken *)key1.pointer; 75 UColToken *p2 = (UColToken *)key2.pointer; 76 const UChar *s1 = (p1->source & 0x00FFFFFF) + *(p1->rulesToParseHdl); 77 const UChar *s2 = (p2->source & 0x00FFFFFF) + *(p2->rulesToParseHdl); 78 uint32_t s1L = ((p1->source & 0xFF000000) >> 24); 79 uint32_t s2L = ((p2->source & 0xFF000000) >> 24); 80 const UChar *end = s1+s1L-1; 81 82 if (p1 == p2) { 83 return TRUE; 84 } 85 if (p1->source == 0 || p2->source == 0) { 86 return FALSE; 87 } 88 if(s1L != s2L) { 89 return FALSE; 90 } 91 if(p1->source == p2->source) { 92 return TRUE; 93 } 94 while((s1 < end) && *s1 == *s2) { 95 ++s1; 96 ++s2; 97 } 98 if(*s1 == *s2) { 99 return TRUE; 100 } else { 101 return FALSE; 102 } 103 } 104 U_CDECL_END 105 106 /* 107 * Debug messages used to pinpoint where a format error occurred. 108 * A better way is to include context-sensitive information in syntaxError() function. 109 * 110 * To turn this debugging on, either uncomment the following line, or define use -DDEBUG_FOR_FORMAT_ERROR 111 * in the compile line. 112 */ 113 /* #define DEBUG_FOR_FORMAT_ERROR 1 */ 114 115 #ifdef DEBUG_FOR_FORMAT_ERROR 116 #define DBG_FORMAT_ERROR { printf("U_INVALID_FORMAT_ERROR at line %d", __LINE__);} 117 #else 118 #define DBG_FORMAT_ERROR 119 #endif 120 121 122 /* 123 * Controls debug messages so that the output can be compared before and after a 124 * big change. Prints the information of every code point that comes out of the 125 * collation parser and its strength into a file. When a big change in format 126 * happens, the files before and after the change should be identical. 127 * 128 * To turn this debugging on, either uncomment the following line, or define use -DDEBUG_FOR_CODE_POINTS 129 * in the compile line. 130 */ 131 // #define DEBUG_FOR_CODE_POINTS 1 132 133 #ifdef DEBUG_FOR_CODE_POINTS 134 FILE* dfcp_fp = NULL; 135 #endif 136 137 138 typedef struct { 139 uint32_t startCE; 140 uint32_t startContCE; 141 uint32_t limitCE; 142 uint32_t limitContCE; 143 } indirectBoundaries; 144 145 /* these values are used for finding CE values for indirect positioning. */ 146 /* Indirect positioning is a mechanism for allowing resets on symbolic */ 147 /* values. It only works for resets and you cannot tailor indirect names */ 148 /* An indirect name can define either an anchor point or a range. An */ 149 /* anchor point behaves in exactly the same way as a code point in reset */ 150 /* would, except that it cannot be tailored. A range (we currently only */ 151 /* know for the [top] range will explicitly set the upper bound for */ 152 /* generated CEs, thus allowing for better control over how many CEs can */ 153 /* be squeezed between in the range without performance penalty. */ 154 /* In that respect, we use [top] for tailoring of locales that use CJK */ 155 /* characters. Other indirect values are currently a pure convenience, */ 156 /* they can be used to assure that the CEs will be always positioned in */ 157 /* the same place relative to a point with known properties (e.g. first */ 158 /* primary ignorable). */ 159 static indirectBoundaries ucolIndirectBoundaries[15]; 160 /* 161 static indirectBoundaries ucolIndirectBoundaries[11] = { 162 { UCOL_RESET_TOP_VALUE, 0, 163 UCOL_NEXT_TOP_VALUE, 0 }, 164 { UCOL_FIRST_PRIMARY_IGNORABLE, 0, 165 0, 0 }, 166 { UCOL_LAST_PRIMARY_IGNORABLE, UCOL_LAST_PRIMARY_IGNORABLE_CONT, 167 0, 0 }, 168 { UCOL_FIRST_SECONDARY_IGNORABLE, 0, 169 0, 0 }, 170 { UCOL_LAST_SECONDARY_IGNORABLE, 0, 171 0, 0 }, 172 { UCOL_FIRST_TERTIARY_IGNORABLE, 0, 173 0, 0 }, 174 { UCOL_LAST_TERTIARY_IGNORABLE, 0, 175 0, 0 }, 176 { UCOL_FIRST_VARIABLE, 0, 177 0, 0 }, 178 { UCOL_LAST_VARIABLE, 0, 179 0, 0 }, 180 { UCOL_FIRST_NON_VARIABLE, 0, 181 0, 0 }, 182 { UCOL_LAST_NON_VARIABLE, 0, 183 0, 0 }, 184 }; 185 */ 186 187 static void setIndirectBoundaries(uint32_t indexR, uint32_t *start, uint32_t *end) { 188 189 // Set values for the top - TODO: once we have values for all the indirects, we are going 190 // to initalize here. 191 ucolIndirectBoundaries[indexR].startCE = start[0]; 192 ucolIndirectBoundaries[indexR].startContCE = start[1]; 193 if(end) { 194 ucolIndirectBoundaries[indexR].limitCE = end[0]; 195 ucolIndirectBoundaries[indexR].limitContCE = end[1]; 196 } else { 197 ucolIndirectBoundaries[indexR].limitCE = 0; 198 ucolIndirectBoundaries[indexR].limitContCE = 0; 199 } 200 } 201 202 203 static inline 204 void syntaxError(const UChar* rules, 205 int32_t pos, 206 int32_t rulesLen, 207 UParseError* parseError) 208 { 209 parseError->offset = pos; 210 parseError->line = 0 ; /* we are not using line numbers */ 211 212 // for pre-context 213 int32_t start = (pos < U_PARSE_CONTEXT_LEN)? 0 : (pos - (U_PARSE_CONTEXT_LEN-1)); 214 int32_t stop = pos; 215 216 u_memcpy(parseError->preContext,rules+start,stop-start); 217 //null terminate the buffer 218 parseError->preContext[stop-start] = 0; 219 220 //for post-context 221 start = pos+1; 222 stop = ((pos+U_PARSE_CONTEXT_LEN)<= rulesLen )? (pos+(U_PARSE_CONTEXT_LEN-1)) : 223 rulesLen; 224 225 if(start < stop) { 226 u_memcpy(parseError->postContext,rules+start,stop-start); 227 //null terminate the buffer 228 parseError->postContext[stop-start]= 0; 229 } else { 230 parseError->postContext[0] = 0; 231 } 232 } 233 234 static 235 void ucol_uprv_tok_setOptionInImage(UColOptionSet *opts, UColAttribute attrib, UColAttributeValue value) { 236 switch(attrib) { 237 case UCOL_HIRAGANA_QUATERNARY_MODE: 238 opts->hiraganaQ = value; 239 break; 240 case UCOL_FRENCH_COLLATION: 241 opts->frenchCollation = value; 242 break; 243 case UCOL_ALTERNATE_HANDLING: 244 opts->alternateHandling = value; 245 break; 246 case UCOL_CASE_FIRST: 247 opts->caseFirst = value; 248 break; 249 case UCOL_CASE_LEVEL: 250 opts->caseLevel = value; 251 break; 252 case UCOL_NORMALIZATION_MODE: 253 opts->normalizationMode = value; 254 break; 255 case UCOL_STRENGTH: 256 opts->strength = value; 257 break; 258 case UCOL_NUMERIC_COLLATION: 259 opts->numericCollation = value; 260 break; 261 case UCOL_ATTRIBUTE_COUNT: 262 default: 263 break; 264 } 265 } 266 267 #define UTOK_OPTION_COUNT 22 268 269 static UBool didInit = FALSE; 270 /* we can be strict, or we can be lenient */ 271 /* I'd surely be lenient with the option arguments */ 272 /* maybe even with options */ 273 U_STRING_DECL(suboption_00, "non-ignorable", 13); 274 U_STRING_DECL(suboption_01, "shifted", 7); 275 276 U_STRING_DECL(suboption_02, "lower", 5); 277 U_STRING_DECL(suboption_03, "upper", 5); 278 U_STRING_DECL(suboption_04, "off", 3); 279 U_STRING_DECL(suboption_05, "on", 2); 280 U_STRING_DECL(suboption_06, "1", 1); 281 U_STRING_DECL(suboption_07, "2", 1); 282 U_STRING_DECL(suboption_08, "3", 1); 283 U_STRING_DECL(suboption_09, "4", 1); 284 U_STRING_DECL(suboption_10, "I", 1); 285 286 U_STRING_DECL(suboption_11, "primary", 7); 287 U_STRING_DECL(suboption_12, "secondary", 9); 288 U_STRING_DECL(suboption_13, "tertiary", 8); 289 U_STRING_DECL(suboption_14, "variable", 8); 290 U_STRING_DECL(suboption_15, "regular", 7); 291 U_STRING_DECL(suboption_16, "implicit", 8); 292 U_STRING_DECL(suboption_17, "trailing", 8); 293 294 295 U_STRING_DECL(option_00, "undefined", 9); 296 U_STRING_DECL(option_01, "rearrange", 9); 297 U_STRING_DECL(option_02, "alternate", 9); 298 U_STRING_DECL(option_03, "backwards", 9); 299 U_STRING_DECL(option_04, "variable top", 12); 300 U_STRING_DECL(option_05, "top", 3); 301 U_STRING_DECL(option_06, "normalization", 13); 302 U_STRING_DECL(option_07, "caseLevel", 9); 303 U_STRING_DECL(option_08, "caseFirst", 9); 304 U_STRING_DECL(option_09, "scriptOrder", 11); 305 U_STRING_DECL(option_10, "charsetname", 11); 306 U_STRING_DECL(option_11, "charset", 7); 307 U_STRING_DECL(option_12, "before", 6); 308 U_STRING_DECL(option_13, "hiraganaQ", 9); 309 U_STRING_DECL(option_14, "strength", 8); 310 U_STRING_DECL(option_15, "first", 5); 311 U_STRING_DECL(option_16, "last", 4); 312 U_STRING_DECL(option_17, "optimize", 8); 313 U_STRING_DECL(option_18, "suppressContractions", 20); 314 U_STRING_DECL(option_19, "numericOrdering", 15); 315 U_STRING_DECL(option_20, "import", 6); 316 U_STRING_DECL(option_21, "reorder", 7); 317 318 /* 319 [last variable] last variable value 320 [last primary ignorable] largest CE for primary ignorable 321 [last secondary ignorable] largest CE for secondary ignorable 322 [last tertiary ignorable] largest CE for tertiary ignorable 323 [top] guaranteed to be above all implicit CEs, for now and in the future (in 1.8) 324 */ 325 326 327 static const ucolTokSuboption alternateSub[2] = { 328 {suboption_00, 13, UCOL_NON_IGNORABLE}, 329 {suboption_01, 7, UCOL_SHIFTED} 330 }; 331 332 static const ucolTokSuboption caseFirstSub[3] = { 333 {suboption_02, 5, UCOL_LOWER_FIRST}, 334 {suboption_03, 5, UCOL_UPPER_FIRST}, 335 {suboption_04, 3, UCOL_OFF}, 336 }; 337 338 static const ucolTokSuboption onOffSub[2] = { 339 {suboption_04, 3, UCOL_OFF}, 340 {suboption_05, 2, UCOL_ON} 341 }; 342 343 static const ucolTokSuboption frenchSub[1] = { 344 {suboption_07, 1, UCOL_ON} 345 }; 346 347 static const ucolTokSuboption beforeSub[3] = { 348 {suboption_06, 1, UCOL_PRIMARY}, 349 {suboption_07, 1, UCOL_SECONDARY}, 350 {suboption_08, 1, UCOL_TERTIARY} 351 }; 352 353 static const ucolTokSuboption strengthSub[5] = { 354 {suboption_06, 1, UCOL_PRIMARY}, 355 {suboption_07, 1, UCOL_SECONDARY}, 356 {suboption_08, 1, UCOL_TERTIARY}, 357 {suboption_09, 1, UCOL_QUATERNARY}, 358 {suboption_10, 1, UCOL_IDENTICAL}, 359 }; 360 361 static const ucolTokSuboption firstLastSub[7] = { 362 {suboption_11, 7, UCOL_PRIMARY}, 363 {suboption_12, 9, UCOL_PRIMARY}, 364 {suboption_13, 8, UCOL_PRIMARY}, 365 {suboption_14, 8, UCOL_PRIMARY}, 366 {suboption_15, 7, UCOL_PRIMARY}, 367 {suboption_16, 8, UCOL_PRIMARY}, 368 {suboption_17, 8, UCOL_PRIMARY}, 369 }; 370 371 enum OptionNumber { 372 OPTION_ALTERNATE_HANDLING = 0, 373 OPTION_FRENCH_COLLATION, 374 OPTION_CASE_LEVEL, 375 OPTION_CASE_FIRST, 376 OPTION_NORMALIZATION_MODE, 377 OPTION_HIRAGANA_QUATERNARY, 378 OPTION_STRENGTH, 379 OPTION_NUMERIC_COLLATION, 380 OPTION_NORMAL_OPTIONS_LIMIT = OPTION_NUMERIC_COLLATION, 381 OPTION_VARIABLE_TOP, 382 OPTION_REARRANGE, 383 OPTION_BEFORE, 384 OPTION_TOP, 385 OPTION_FIRST, 386 OPTION_LAST, 387 OPTION_OPTIMIZE, 388 OPTION_SUPPRESS_CONTRACTIONS, 389 OPTION_UNDEFINED, 390 OPTION_SCRIPT_ORDER, 391 OPTION_CHARSET_NAME, 392 OPTION_CHARSET, 393 OPTION_IMPORT, 394 OPTION_SCRIPTREORDER 395 } ; 396 397 static const ucolTokOption rulesOptions[UTOK_OPTION_COUNT] = { 398 /*00*/ {option_02, 9, alternateSub, 2, UCOL_ALTERNATE_HANDLING}, /*"alternate" */ 399 /*01*/ {option_03, 9, frenchSub, 1, UCOL_FRENCH_COLLATION}, /*"backwards" */ 400 /*02*/ {option_07, 9, onOffSub, 2, UCOL_CASE_LEVEL}, /*"caseLevel" */ 401 /*03*/ {option_08, 9, caseFirstSub, 3, UCOL_CASE_FIRST}, /*"caseFirst" */ 402 /*04*/ {option_06, 13, onOffSub, 2, UCOL_NORMALIZATION_MODE}, /*"normalization" */ 403 /*05*/ {option_13, 9, onOffSub, 2, UCOL_HIRAGANA_QUATERNARY_MODE}, /*"hiraganaQ" */ 404 /*06*/ {option_14, 8, strengthSub, 5, UCOL_STRENGTH}, /*"strength" */ 405 /*07*/ {option_19, 15, onOffSub, 2, UCOL_NUMERIC_COLLATION}, /*"numericOrdering"*/ 406 /*08*/ {option_04, 12, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"variable top" */ 407 /*09*/ {option_01, 9, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"rearrange" */ 408 /*10*/ {option_12, 6, beforeSub, 3, UCOL_ATTRIBUTE_COUNT}, /*"before" */ 409 /*11*/ {option_05, 3, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"top" */ 410 /*12*/ {option_15, 5, firstLastSub, 7, UCOL_ATTRIBUTE_COUNT}, /*"first" */ 411 /*13*/ {option_16, 4, firstLastSub, 7, UCOL_ATTRIBUTE_COUNT}, /*"last" */ 412 /*14*/ {option_17, 8, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"optimize" */ 413 /*15*/ {option_18, 20, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"suppressContractions" */ 414 /*16*/ {option_00, 9, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"undefined" */ 415 /*17*/ {option_09, 11, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"scriptOrder" */ 416 /*18*/ {option_10, 11, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"charsetname" */ 417 /*19*/ {option_11, 7, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"charset" */ 418 /*20*/ {option_20, 6, NULL, 0, UCOL_ATTRIBUTE_COUNT}, /*"import" */ 419 /*21*/ {option_21, 7, NULL, 0, UCOL_ATTRIBUTE_COUNT} /*"reorder" */ 420 }; 421 422 static 423 int32_t u_strncmpNoCase(const UChar *s1, 424 const UChar *s2, 425 int32_t n) 426 { 427 if(n > 0) { 428 int32_t rc; 429 for(;;) { 430 rc = (int32_t)u_tolower(*s1) - (int32_t)u_tolower(*s2); 431 if(rc != 0 || *s1 == 0 || --n == 0) { 432 return rc; 433 } 434 ++s1; 435 ++s2; 436 } 437 } 438 return 0; 439 } 440 441 static 442 void ucol_uprv_tok_initData() { 443 if(!didInit) { 444 U_STRING_INIT(suboption_00, "non-ignorable", 13); 445 U_STRING_INIT(suboption_01, "shifted", 7); 446 447 U_STRING_INIT(suboption_02, "lower", 5); 448 U_STRING_INIT(suboption_03, "upper", 5); 449 U_STRING_INIT(suboption_04, "off", 3); 450 U_STRING_INIT(suboption_05, "on", 2); 451 452 U_STRING_INIT(suboption_06, "1", 1); 453 U_STRING_INIT(suboption_07, "2", 1); 454 U_STRING_INIT(suboption_08, "3", 1); 455 U_STRING_INIT(suboption_09, "4", 1); 456 U_STRING_INIT(suboption_10, "I", 1); 457 458 U_STRING_INIT(suboption_11, "primary", 7); 459 U_STRING_INIT(suboption_12, "secondary", 9); 460 U_STRING_INIT(suboption_13, "tertiary", 8); 461 U_STRING_INIT(suboption_14, "variable", 8); 462 U_STRING_INIT(suboption_15, "regular", 7); 463 U_STRING_INIT(suboption_16, "implicit", 8); 464 U_STRING_INIT(suboption_17, "trailing", 8); 465 466 467 U_STRING_INIT(option_00, "undefined", 9); 468 U_STRING_INIT(option_01, "rearrange", 9); 469 U_STRING_INIT(option_02, "alternate", 9); 470 U_STRING_INIT(option_03, "backwards", 9); 471 U_STRING_INIT(option_04, "variable top", 12); 472 U_STRING_INIT(option_05, "top", 3); 473 U_STRING_INIT(option_06, "normalization", 13); 474 U_STRING_INIT(option_07, "caseLevel", 9); 475 U_STRING_INIT(option_08, "caseFirst", 9); 476 U_STRING_INIT(option_09, "scriptOrder", 11); 477 U_STRING_INIT(option_10, "charsetname", 11); 478 U_STRING_INIT(option_11, "charset", 7); 479 U_STRING_INIT(option_12, "before", 6); 480 U_STRING_INIT(option_13, "hiraganaQ", 9); 481 U_STRING_INIT(option_14, "strength", 8); 482 U_STRING_INIT(option_15, "first", 5); 483 U_STRING_INIT(option_16, "last", 4); 484 U_STRING_INIT(option_17, "optimize", 8); 485 U_STRING_INIT(option_18, "suppressContractions", 20); 486 U_STRING_INIT(option_19, "numericOrdering", 15); 487 U_STRING_INIT(option_20, "import ", 6); 488 U_STRING_INIT(option_21, "reorder", 7); 489 didInit = TRUE; 490 } 491 } 492 493 494 // This function reads basic options to set in the runtime collator 495 // used by data driven tests. Should not support build time options 496 U_CAPI const UChar * U_EXPORT2 497 ucol_tok_getNextArgument(const UChar *start, const UChar *end, 498 UColAttribute *attrib, UColAttributeValue *value, 499 UErrorCode *status) 500 { 501 uint32_t i = 0; 502 int32_t j=0; 503 UBool foundOption = FALSE; 504 const UChar *optionArg = NULL; 505 506 ucol_uprv_tok_initData(); 507 508 while(start < end && PatternProps::isWhiteSpace(*start)) { /* eat whitespace */ 509 start++; 510 } 511 if(start >= end) { 512 return NULL; 513 } 514 /* skip opening '[' */ 515 if(*start == 0x005b) { 516 start++; 517 } else { 518 *status = U_ILLEGAL_ARGUMENT_ERROR; // no opening '[' 519 return NULL; 520 } 521 522 while(i < UTOK_OPTION_COUNT) { 523 if(u_strncmpNoCase(start, rulesOptions[i].optionName, rulesOptions[i].optionLen) == 0) { 524 foundOption = TRUE; 525 if(end - start > rulesOptions[i].optionLen) { 526 optionArg = start+rulesOptions[i].optionLen+1; /* start of the options, skip space */ 527 while(PatternProps::isWhiteSpace(*optionArg)) { /* eat whitespace */ 528 optionArg++; 529 } 530 } 531 break; 532 } 533 i++; 534 } 535 536 if(!foundOption) { 537 *status = U_ILLEGAL_ARGUMENT_ERROR; 538 return NULL; 539 } 540 541 if(optionArg) { 542 for(j = 0; j<rulesOptions[i].subSize; j++) { 543 if(u_strncmpNoCase(optionArg, rulesOptions[i].subopts[j].subName, rulesOptions[i].subopts[j].subLen) == 0) { 544 //ucol_uprv_tok_setOptionInImage(src->opts, rulesOptions[i].attr, rulesOptions[i].subopts[j].attrVal); 545 *attrib = rulesOptions[i].attr; 546 *value = rulesOptions[i].subopts[j].attrVal; 547 optionArg += rulesOptions[i].subopts[j].subLen; 548 while(PatternProps::isWhiteSpace(*optionArg)) { /* eat whitespace */ 549 optionArg++; 550 } 551 if(*optionArg == 0x005d) { 552 optionArg++; 553 return optionArg; 554 } else { 555 *status = U_ILLEGAL_ARGUMENT_ERROR; 556 return NULL; 557 } 558 } 559 } 560 } 561 *status = U_ILLEGAL_ARGUMENT_ERROR; 562 return NULL; 563 } 564 565 static 566 USet *ucol_uprv_tok_readAndSetUnicodeSet(const UChar *start, const UChar *end, UErrorCode *status) { 567 while(*start != 0x005b) { /* advance while we find the first '[' */ 568 start++; 569 } 570 // now we need to get a balanced set of '[]'. The problem is that a set can have 571 // many, and *end point to the first closing '[' 572 int32_t noOpenBraces = 1; 573 int32_t current = 1; // skip the opening brace 574 while(start+current < end && noOpenBraces != 0) { 575 if(start[current] == 0x005b) { 576 noOpenBraces++; 577 } else if(start[current] == 0x005D) { // closing brace 578 noOpenBraces--; 579 } 580 current++; 581 } 582 583 if(noOpenBraces != 0 || u_strchr(start+current, 0x005d /*']'*/) == NULL) { 584 *status = U_ILLEGAL_ARGUMENT_ERROR; 585 return NULL; 586 } 587 return uset_openPattern(start, current, status); 588 } 589 590 /** 591 * Reads an option and matches the option name with the predefined options. (Case-insensitive.) 592 * @param start Pointer to the start UChar. 593 * @param end Pointer to the last valid pointer beyond which the option will not extend. 594 * @param optionArg Address of the pointer at which the options start (after the option name) 595 * @return The index of the option, or -1 if the option is not valid. 596 */ 597 static 598 int32_t ucol_uprv_tok_readOption(const UChar *start, const UChar *end, const UChar **optionArg) { 599 int32_t i = 0; 600 ucol_uprv_tok_initData(); 601 602 while(PatternProps::isWhiteSpace(*start)) { /* eat whitespace */ 603 start++; 604 } 605 while(i < UTOK_OPTION_COUNT) { 606 if(u_strncmpNoCase(start, rulesOptions[i].optionName, rulesOptions[i].optionLen) == 0) { 607 if(end - start > rulesOptions[i].optionLen) { 608 *optionArg = start+rulesOptions[i].optionLen; /* End of option name; start of the options */ 609 while(PatternProps::isWhiteSpace(**optionArg)) { /* eat whitespace */ 610 (*optionArg)++; 611 } 612 } 613 break; 614 } 615 i++; 616 } 617 if(i == UTOK_OPTION_COUNT) { 618 i = -1; // didn't find an option 619 } 620 return i; 621 } 622 623 624 static 625 void ucol_tok_parseScriptReorder(UColTokenParser *src, UErrorCode *status) { 626 int32_t codeCount = 0; 627 int32_t codeIndex = 0; 628 char conversion[64]; 629 int32_t tokenLength = 0; 630 const UChar* space; 631 632 const UChar* current = src->current; 633 const UChar* end = u_memchr(src->current, 0x005d, src->end - src->current); 634 635 // eat leading whitespace 636 while(current < end && u_isWhitespace(*current)) { 637 current++; 638 } 639 640 while(current < end) { 641 space = u_memchr(current, 0x0020, end - current); 642 space = space == 0 ? end : space; 643 tokenLength = space - current; 644 if (tokenLength < 4) { 645 *status = U_INVALID_FORMAT_ERROR; 646 return; 647 } 648 codeCount++; 649 current += tokenLength; 650 while(current < end && u_isWhitespace(*current)) { /* eat whitespace */ 651 ++current; 652 } 653 } 654 655 if (codeCount == 0) { 656 *status = U_INVALID_FORMAT_ERROR; 657 } 658 659 src->reorderCodesLength = codeCount; 660 src->reorderCodes = (int32_t*)uprv_malloc(codeCount * sizeof(int32_t)); 661 current = src->current; 662 663 // eat leading whitespace 664 while(current < end && u_isWhitespace(*current)) { 665 current++; 666 } 667 668 while(current < end) { 669 space = u_memchr(current, 0x0020, end - current); 670 space = space == 0 ? end : space; 671 tokenLength = space - current; 672 if (tokenLength < 4) { 673 *status = U_ILLEGAL_ARGUMENT_ERROR; 674 return; 675 } else { 676 u_UCharsToChars(current, conversion, tokenLength); 677 conversion[tokenLength] = '\0'; 678 src->reorderCodes[codeIndex] = ucol_findReorderingEntry(conversion); 679 if (src->reorderCodes[codeIndex] == USCRIPT_INVALID_CODE) { 680 src->reorderCodes[codeIndex] = u_getPropertyValueEnum(UCHAR_SCRIPT, conversion); 681 } 682 if (src->reorderCodes[codeIndex] == USCRIPT_INVALID_CODE) { 683 *status = U_ILLEGAL_ARGUMENT_ERROR; 684 } 685 } 686 codeIndex++; 687 current += tokenLength; 688 while(current < end && u_isWhitespace(*current)) { /* eat whitespace */ 689 ++current; 690 } 691 } 692 } 693 694 // reads and conforms to various options in rules 695 // end is the position of the first closing ']' 696 // However, some of the options take an UnicodeSet definition 697 // which needs to duplicate the closing ']' 698 // for example: '[copy [\uAC00-\uD7FF]]' 699 // These options will move end to the second ']' and the 700 // caller will set the current to it. 701 static 702 uint8_t ucol_uprv_tok_readAndSetOption(UColTokenParser *src, UErrorCode *status) { 703 const UChar* start = src->current; 704 int32_t i = 0; 705 int32_t j=0; 706 const UChar *optionArg = NULL; 707 708 uint8_t result = 0; 709 710 start++; /*skip opening '['*/ 711 i = ucol_uprv_tok_readOption(start, src->end, &optionArg); 712 if(optionArg) { 713 src->current = optionArg; 714 } 715 716 if(i < 0) { 717 *status = U_ILLEGAL_ARGUMENT_ERROR; 718 } else { 719 int32_t noOpenBraces = 1; 720 switch(i) { 721 case OPTION_ALTERNATE_HANDLING: 722 case OPTION_FRENCH_COLLATION: 723 case OPTION_CASE_LEVEL: 724 case OPTION_CASE_FIRST: 725 case OPTION_NORMALIZATION_MODE: 726 case OPTION_HIRAGANA_QUATERNARY: 727 case OPTION_STRENGTH: 728 case OPTION_NUMERIC_COLLATION: 729 if(optionArg) { 730 for(j = 0; j<rulesOptions[i].subSize; j++) { 731 if(u_strncmpNoCase(optionArg, rulesOptions[i].subopts[j].subName, rulesOptions[i].subopts[j].subLen) == 0) { 732 ucol_uprv_tok_setOptionInImage(src->opts, rulesOptions[i].attr, rulesOptions[i].subopts[j].attrVal); 733 result = UCOL_TOK_SUCCESS; 734 } 735 } 736 } 737 if(result == 0) { 738 *status = U_ILLEGAL_ARGUMENT_ERROR; 739 } 740 break; 741 case OPTION_VARIABLE_TOP: 742 result = UCOL_TOK_SUCCESS | UCOL_TOK_VARIABLE_TOP; 743 break; 744 case OPTION_REARRANGE: 745 result = UCOL_TOK_SUCCESS; 746 break; 747 case OPTION_BEFORE: 748 if(optionArg) { 749 for(j = 0; j<rulesOptions[i].subSize; j++) { 750 if(u_strncmpNoCase(optionArg, rulesOptions[i].subopts[j].subName, rulesOptions[i].subopts[j].subLen) == 0) { 751 result = UCOL_TOK_SUCCESS | (rulesOptions[i].subopts[j].attrVal + 1); 752 } 753 } 754 } 755 if(result == 0) { 756 *status = U_ILLEGAL_ARGUMENT_ERROR; 757 } 758 break; 759 case OPTION_TOP: /* we are going to have an array with structures of limit CEs */ 760 /* index to this array will be src->parsedToken.indirectIndex*/ 761 src->parsedToken.indirectIndex = 0; 762 result = UCOL_TOK_SUCCESS | UCOL_TOK_TOP; 763 break; 764 case OPTION_FIRST: 765 case OPTION_LAST: /* first, last */ 766 for(j = 0; j<rulesOptions[i].subSize; j++) { 767 if(u_strncmpNoCase(optionArg, rulesOptions[i].subopts[j].subName, rulesOptions[i].subopts[j].subLen) == 0) { 768 // the calculation below assumes that OPTION_FIRST and OPTION_LAST are at i and i+1 and that the first 769 // element of indirect boundaries is reserved for top. 770 src->parsedToken.indirectIndex = (uint16_t)(i-OPTION_FIRST+1+j*2); 771 result = UCOL_TOK_SUCCESS | UCOL_TOK_TOP;; 772 } 773 } 774 if(result == 0) { 775 *status = U_ILLEGAL_ARGUMENT_ERROR; 776 } 777 break; 778 case OPTION_OPTIMIZE: 779 case OPTION_SUPPRESS_CONTRACTIONS: // copy and remove are handled before normalization 780 // we need to move end here 781 src->current++; // skip opening brace 782 while(src->current < src->end && noOpenBraces != 0) { 783 if(*src->current == 0x005b) { 784 noOpenBraces++; 785 } else if(*src->current == 0x005D) { // closing brace 786 noOpenBraces--; 787 } 788 src->current++; 789 } 790 result = UCOL_TOK_SUCCESS; 791 break; 792 case OPTION_SCRIPTREORDER: 793 ucol_tok_parseScriptReorder(src, status); 794 break; 795 default: 796 *status = U_UNSUPPORTED_ERROR; 797 break; 798 } 799 } 800 src->current = u_memchr(src->current, 0x005d, (int32_t)(src->end-src->current)); 801 return result; 802 } 803 804 805 inline void ucol_tok_addToExtraCurrent(UColTokenParser *src, const UChar *stuff, int32_t len, UErrorCode *status) { 806 if (stuff == NULL || len <= 0) { 807 return; 808 } 809 UnicodeString tempStuff(FALSE, stuff, len); 810 if(src->extraCurrent+len >= src->extraEnd) { 811 /* reallocate */ 812 if (stuff >= src->source && stuff <= src->end) { 813 // Copy the "stuff" contents into tempStuff's own buffer. 814 // UnicodeString is copy-on-write. 815 if (len > 0) { 816 tempStuff.setCharAt(0, tempStuff[0]); 817 } else { 818 tempStuff.remove(); 819 } 820 } 821 UChar *newSrc = (UChar *)uprv_realloc(src->source, (src->extraEnd-src->source)*2*sizeof(UChar)); 822 if(newSrc != NULL) { 823 src->current = newSrc + (src->current - src->source); 824 src->extraCurrent = newSrc + (src->extraCurrent - src->source); 825 src->end = newSrc + (src->end - src->source); 826 src->extraEnd = newSrc + (src->extraEnd-src->source)*2; 827 src->sourceCurrent = newSrc + (src->sourceCurrent-src->source); 828 src->source = newSrc; 829 } else { 830 *status = U_MEMORY_ALLOCATION_ERROR; 831 return; 832 } 833 } 834 if(len == 1) { 835 *src->extraCurrent++ = tempStuff[0]; 836 } else { 837 u_memcpy(src->extraCurrent, tempStuff.getBuffer(), len); 838 src->extraCurrent += len; 839 } 840 } 841 842 inline UBool ucol_tok_doSetTop(UColTokenParser *src, UErrorCode *status) { 843 /* 844 top = TRUE; 845 */ 846 UChar buff[5]; 847 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 848 buff[0] = 0xFFFE; 849 buff[1] = (UChar)(ucolIndirectBoundaries[src->parsedToken.indirectIndex].startCE >> 16); 850 buff[2] = (UChar)(ucolIndirectBoundaries[src->parsedToken.indirectIndex].startCE & 0xFFFF); 851 if(ucolIndirectBoundaries[src->parsedToken.indirectIndex].startContCE == 0) { 852 src->parsedToken.charsLen = 3; 853 ucol_tok_addToExtraCurrent(src, buff, 3, status); 854 } else { 855 buff[3] = (UChar)(ucolIndirectBoundaries[src->parsedToken.indirectIndex].startContCE >> 16); 856 buff[4] = (UChar)(ucolIndirectBoundaries[src->parsedToken.indirectIndex].startContCE & 0xFFFF); 857 src->parsedToken.charsLen = 5; 858 ucol_tok_addToExtraCurrent(src, buff, 5, status); 859 } 860 return TRUE; 861 } 862 863 static UBool isCharNewLine(UChar c){ 864 switch(c){ 865 case 0x000A: /* LF */ 866 case 0x000D: /* CR */ 867 case 0x000C: /* FF */ 868 case 0x0085: /* NEL */ 869 case 0x2028: /* LS */ 870 case 0x2029: /* PS */ 871 return TRUE; 872 default: 873 return FALSE; 874 } 875 } 876 877 /* 878 * This function is called several times when a range is processed. Each time, the next code point 879 * is processed. 880 * The following variables must be set before calling this function: 881 * src->currentRangeCp: The current code point to process. 882 * src->lastRangeCp: The last code point in the range. 883 * Pre-requisite: src->currentRangeCp <= src->lastRangeCp. 884 */ 885 static const UChar* 886 ucol_tok_processNextCodePointInRange(UColTokenParser *src, 887 UErrorCode *status) 888 { 889 // Append current code point to source 890 UChar buff[U16_MAX_LENGTH]; 891 uint32_t i = 0; 892 893 uint32_t nChars = U16_LENGTH(src->currentRangeCp); 894 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 895 src->parsedToken.charsLen = nChars; 896 897 U16_APPEND_UNSAFE(buff, i, src->currentRangeCp); 898 ucol_tok_addToExtraCurrent(src, buff, nChars, status); 899 900 ++src->currentRangeCp; 901 if (src->currentRangeCp > src->lastRangeCp) { 902 src->inRange = FALSE; 903 904 if (src->currentStarredCharIndex > src->lastStarredCharIndex) { 905 src->isStarred = FALSE; 906 } 907 } else { 908 src->previousCp = src->currentRangeCp; 909 } 910 return src->current; 911 } 912 913 /* 914 * This function is called several times when a starred list is processed. Each time, the next code point 915 * in the list is processed. 916 * The following variables must be set before calling this function: 917 * src->currentStarredCharIndex: Index (in src->source) of the first char of the current code point. 918 * src->lastStarredCharIndex: Index to the last character in the list. 919 * Pre-requisite: src->currentStarredCharIndex <= src->lastStarredCharIndex. 920 */ 921 static const UChar* 922 ucol_tok_processNextTokenInStarredList(UColTokenParser *src) 923 { 924 // Extract the characters corresponding to the next code point. 925 UChar32 cp; 926 src->parsedToken.charsOffset = src->currentStarredCharIndex; 927 int32_t prev = src->currentStarredCharIndex; 928 U16_NEXT(src->source, src->currentStarredCharIndex, (uint32_t)(src->end - src->source), cp); 929 src->parsedToken.charsLen = src->currentStarredCharIndex - prev; 930 931 // When we are done parsing the starred string, turn the flag off so that 932 // the normal processing is restored. 933 if (src->currentStarredCharIndex > src->lastStarredCharIndex) { 934 src->isStarred = FALSE; 935 } 936 src->previousCp = cp; 937 return src->current; 938 } 939 940 /* 941 * Partially parses the next token, keeps the indices in src->parsedToken, and updates the counters. 942 * 943 * This routine parses and separates almost all tokens. The following are the syntax characters recognized. 944 * # : Comment character 945 * & : Reset operator 946 * = : Equality 947 * < : Primary collation 948 * << : Secondary collation 949 * <<< : Tertiary collation 950 * ; : Secondary collation 951 * , : Tertiary collation 952 * / : Expansions 953 * | : Prefix 954 * - : Range 955 956 * ! : Java Thai modifier, ignored 957 * @ : French only 958 959 * [] : Options 960 * '' : Quotes 961 * 962 * Along with operators =, <, <<, <<<, the operator * is supported to indicate a list. For example, &a<*bcdexyz 963 * is equivalent to &a<b<c<d<e<x<y<z. In lists, ranges also can be given, so &a*b-ex-z is equivalent to the above. 964 * This function do not separate the tokens in a list. Instead, &a<*b-ex-z is parsed as three tokens - "&a", 965 * "<*b", "-ex", "-z". The strength (< in this case), whether in a list, whether in a range and the previous 966 * character returned as cached so that the calling program can do further splitting. 967 */ 968 static const UChar* 969 ucol_tok_parseNextTokenInternal(UColTokenParser *src, 970 UBool startOfRules, 971 UParseError *parseError, 972 UErrorCode *status) 973 { 974 UBool variableTop = FALSE; 975 UBool top = FALSE; 976 UBool inChars = TRUE; 977 UBool inQuote = FALSE; 978 UBool wasInQuote = FALSE; 979 uint8_t before = 0; 980 UBool isEscaped = FALSE; 981 982 // TODO: replace these variables with src->parsedToken counterparts 983 // no need to use them anymore since we have src->parsedToken. 984 // Ideally, token parser would be a nice class... Once, when I have 985 // more time (around 2020 probably). 986 uint32_t newExtensionLen = 0; 987 uint32_t extensionOffset = 0; 988 uint32_t newStrength = UCOL_TOK_UNSET; 989 UChar buff[10]; 990 991 src->parsedToken.charsOffset = 0; src->parsedToken.charsLen = 0; 992 src->parsedToken.prefixOffset = 0; src->parsedToken.prefixLen = 0; 993 src->parsedToken.indirectIndex = 0; 994 995 while (src->current < src->end) { 996 UChar ch = *(src->current); 997 998 if (inQuote) { 999 if (ch == 0x0027/*'\''*/) { 1000 inQuote = FALSE; 1001 } else { 1002 if ((src->parsedToken.charsLen == 0) || inChars) { 1003 if(src->parsedToken.charsLen == 0) { 1004 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 1005 } 1006 src->parsedToken.charsLen++; 1007 } else { 1008 if(newExtensionLen == 0) { 1009 extensionOffset = (uint32_t)(src->extraCurrent - src->source); 1010 } 1011 newExtensionLen++; 1012 } 1013 } 1014 }else if(isEscaped){ 1015 isEscaped =FALSE; 1016 if (newStrength == UCOL_TOK_UNSET) { 1017 *status = U_INVALID_FORMAT_ERROR; 1018 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1019 DBG_FORMAT_ERROR 1020 return NULL; 1021 // enabling rules to start with non-tokens a < b 1022 // newStrength = UCOL_TOK_RESET; 1023 } 1024 if(ch != 0x0000 && src->current != src->end) { 1025 if (inChars) { 1026 if(src->parsedToken.charsLen == 0) { 1027 src->parsedToken.charsOffset = (uint32_t)(src->current - src->source); 1028 } 1029 src->parsedToken.charsLen++; 1030 } else { 1031 if(newExtensionLen == 0) { 1032 extensionOffset = (uint32_t)(src->current - src->source); 1033 } 1034 newExtensionLen++; 1035 } 1036 } 1037 }else { 1038 if(!PatternProps::isWhiteSpace(ch)) { 1039 /* Sets the strength for this entry */ 1040 switch (ch) { 1041 case 0x003D/*'='*/ : 1042 if (newStrength != UCOL_TOK_UNSET) { 1043 goto EndOfLoop; 1044 } 1045 1046 /* if we start with strength, we'll reset to top */ 1047 if(startOfRules == TRUE) { 1048 src->parsedToken.indirectIndex = 5; 1049 top = ucol_tok_doSetTop(src, status); 1050 newStrength = UCOL_TOK_RESET; 1051 goto EndOfLoop; 1052 } 1053 newStrength = UCOL_IDENTICAL; 1054 if(*(src->current+1) == 0x002A) {/*'*'*/ 1055 src->current++; 1056 src->isStarred = TRUE; 1057 } 1058 break; 1059 1060 case 0x002C/*','*/: 1061 if (newStrength != UCOL_TOK_UNSET) { 1062 goto EndOfLoop; 1063 } 1064 1065 /* if we start with strength, we'll reset to top */ 1066 if(startOfRules == TRUE) { 1067 src->parsedToken.indirectIndex = 5; 1068 top = ucol_tok_doSetTop(src, status); 1069 newStrength = UCOL_TOK_RESET; 1070 goto EndOfLoop; 1071 } 1072 newStrength = UCOL_TERTIARY; 1073 break; 1074 1075 case 0x003B/*';'*/: 1076 if (newStrength != UCOL_TOK_UNSET) { 1077 goto EndOfLoop; 1078 } 1079 1080 /* if we start with strength, we'll reset to top */ 1081 if(startOfRules == TRUE) { 1082 src->parsedToken.indirectIndex = 5; 1083 top = ucol_tok_doSetTop(src, status); 1084 newStrength = UCOL_TOK_RESET; 1085 goto EndOfLoop; 1086 } 1087 newStrength = UCOL_SECONDARY; 1088 break; 1089 1090 case 0x003C/*'<'*/: 1091 if (newStrength != UCOL_TOK_UNSET) { 1092 goto EndOfLoop; 1093 } 1094 1095 /* if we start with strength, we'll reset to top */ 1096 if(startOfRules == TRUE) { 1097 src->parsedToken.indirectIndex = 5; 1098 top = ucol_tok_doSetTop(src, status); 1099 newStrength = UCOL_TOK_RESET; 1100 goto EndOfLoop; 1101 } 1102 /* before this, do a scan to verify whether this is */ 1103 /* another strength */ 1104 if(*(src->current+1) == 0x003C) { 1105 src->current++; 1106 if(*(src->current+1) == 0x003C) { 1107 src->current++; /* three in a row! */ 1108 newStrength = UCOL_TERTIARY; 1109 } else { /* two in a row */ 1110 newStrength = UCOL_SECONDARY; 1111 } 1112 } else { /* just one */ 1113 newStrength = UCOL_PRIMARY; 1114 } 1115 if(*(src->current+1) == 0x002A) {/*'*'*/ 1116 src->current++; 1117 src->isStarred = TRUE; 1118 } 1119 break; 1120 1121 case 0x0026/*'&'*/: 1122 if (newStrength != UCOL_TOK_UNSET) { 1123 /**/ 1124 goto EndOfLoop; 1125 } 1126 1127 newStrength = UCOL_TOK_RESET; /* PatternEntry::RESET = 0 */ 1128 break; 1129 1130 case 0x005b/*'['*/: 1131 /* options - read an option, analyze it */ 1132 if(u_strchr(src->current, 0x005d /*']'*/) != NULL) { 1133 uint8_t result = ucol_uprv_tok_readAndSetOption(src, status); 1134 if(U_SUCCESS(*status)) { 1135 if(result & UCOL_TOK_TOP) { 1136 if(newStrength == UCOL_TOK_RESET) { 1137 top = ucol_tok_doSetTop(src, status); 1138 if(before) { // This is a combination of before and indirection like '&[before 2][first regular]<b' 1139 src->parsedToken.charsLen+=2; 1140 buff[0] = 0x002d; 1141 buff[1] = before; 1142 ucol_tok_addToExtraCurrent(src, buff, 2, status); 1143 } 1144 1145 src->current++; 1146 goto EndOfLoop; 1147 } else { 1148 *status = U_INVALID_FORMAT_ERROR; 1149 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1150 DBG_FORMAT_ERROR 1151 } 1152 } else if(result & UCOL_TOK_VARIABLE_TOP) { 1153 if(newStrength != UCOL_TOK_RESET && newStrength != UCOL_TOK_UNSET) { 1154 variableTop = TRUE; 1155 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 1156 src->parsedToken.charsLen = 1; 1157 buff[0] = 0xFFFF; 1158 ucol_tok_addToExtraCurrent(src, buff, 1, status); 1159 src->current++; 1160 goto EndOfLoop; 1161 } else { 1162 *status = U_INVALID_FORMAT_ERROR; 1163 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1164 DBG_FORMAT_ERROR 1165 } 1166 } else if (result & UCOL_TOK_BEFORE){ 1167 if(newStrength == UCOL_TOK_RESET) { 1168 before = result & UCOL_TOK_BEFORE; 1169 } else { 1170 *status = U_INVALID_FORMAT_ERROR; 1171 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1172 DBG_FORMAT_ERROR 1173 } 1174 } 1175 } else { 1176 *status = U_INVALID_FORMAT_ERROR; 1177 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1178 DBG_FORMAT_ERROR 1179 return NULL; 1180 } 1181 } 1182 break; 1183 case 0x0021/*! skip java thai modifier reordering*/: 1184 break; 1185 case 0x002F/*'/'*/: 1186 wasInQuote = FALSE; /* if we were copying source characters, we want to stop now */ 1187 inChars = FALSE; /* we're now processing expansion */ 1188 break; 1189 case 0x005C /* back slash for escaped chars */: 1190 isEscaped = TRUE; 1191 break; 1192 /* found a quote, we're gonna start copying */ 1193 case 0x0027/*'\''*/: 1194 if (newStrength == UCOL_TOK_UNSET) { /* quote is illegal until we have a strength */ 1195 *status = U_INVALID_FORMAT_ERROR; 1196 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1197 DBG_FORMAT_ERROR 1198 return NULL; 1199 // enabling rules to start with a non-token character a < b 1200 // newStrength = UCOL_TOK_RESET; 1201 } 1202 1203 inQuote = TRUE; 1204 1205 if(inChars) { /* we're doing characters */ 1206 if(wasInQuote == FALSE) { 1207 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 1208 } 1209 if (src->parsedToken.charsLen != 0) { 1210 ucol_tok_addToExtraCurrent(src, src->current - src->parsedToken.charsLen, src->parsedToken.charsLen, status); 1211 } 1212 src->parsedToken.charsLen++; 1213 } else { /* we're doing an expansion */ 1214 if(wasInQuote == FALSE) { 1215 extensionOffset = (uint32_t)(src->extraCurrent - src->source); 1216 } 1217 if (newExtensionLen != 0) { 1218 ucol_tok_addToExtraCurrent(src, src->current - newExtensionLen, newExtensionLen, status); 1219 } 1220 newExtensionLen++; 1221 } 1222 1223 wasInQuote = TRUE; 1224 1225 ch = *(++(src->current)); 1226 if(ch == 0x0027) { /* copy the double quote */ 1227 ucol_tok_addToExtraCurrent(src, &ch, 1, status); 1228 inQuote = FALSE; 1229 } 1230 break; 1231 1232 /* '@' is french only if the strength is not currently set */ 1233 /* if it is, it's just a regular character in collation rules */ 1234 case 0x0040/*'@'*/: 1235 if (newStrength == UCOL_TOK_UNSET) { 1236 src->opts->frenchCollation = UCOL_ON; 1237 break; 1238 } 1239 1240 case 0x007C /*|*/: /* this means we have actually been reading prefix part */ 1241 // we want to store read characters to the prefix part and continue reading 1242 // the characters (proper way would be to restart reading the chars, but in 1243 // that case we would have to complicate the token hasher, which I do not 1244 // intend to play with. Instead, we will do prefixes when prefixes are due 1245 // (before adding the elements). 1246 src->parsedToken.prefixOffset = src->parsedToken.charsOffset; 1247 src->parsedToken.prefixLen = src->parsedToken.charsLen; 1248 1249 if(inChars) { /* we're doing characters */ 1250 if(wasInQuote == FALSE) { 1251 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 1252 } 1253 if (src->parsedToken.charsLen != 0) { 1254 ucol_tok_addToExtraCurrent(src, src->current - src->parsedToken.charsLen, src->parsedToken.charsLen, status); 1255 } 1256 src->parsedToken.charsLen++; 1257 } 1258 1259 wasInQuote = TRUE; 1260 1261 do { 1262 ch = *(++(src->current)); 1263 // skip whitespace between '|' and the character 1264 } while (PatternProps::isWhiteSpace(ch)); 1265 break; 1266 1267 //charsOffset = 0; 1268 //newCharsLen = 0; 1269 //break; // We want to store the whole prefix/character sequence. If we break 1270 // the '|' is going to get lost. 1271 1272 case 0x002D /*-*/: /* A range. */ 1273 if (newStrength != UCOL_TOK_UNSET) { 1274 // While processing the pending token, the isStarred field 1275 // is reset, so it needs to be saved for the next 1276 // invocation. 1277 src->savedIsStarred = src->isStarred; 1278 goto EndOfLoop; 1279 } 1280 src->isStarred = src->savedIsStarred; 1281 1282 // Ranges are valid only in starred tokens. 1283 if (!src->isStarred) { 1284 *status = U_INVALID_FORMAT_ERROR; 1285 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1286 DBG_FORMAT_ERROR 1287 return NULL; 1288 } 1289 newStrength = src->parsedToken.strength; 1290 src->inRange = TRUE; 1291 break; 1292 1293 case 0x0023 /*#*/: /* this is a comment, skip everything through the end of line */ 1294 do { 1295 ch = *(++(src->current)); 1296 } while (!isCharNewLine(ch)); 1297 1298 break; 1299 default: 1300 if (newStrength == UCOL_TOK_UNSET) { 1301 *status = U_INVALID_FORMAT_ERROR; 1302 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1303 DBG_FORMAT_ERROR 1304 return NULL; 1305 } 1306 1307 if (ucol_tok_isSpecialChar(ch) && (inQuote == FALSE)) { 1308 *status = U_INVALID_FORMAT_ERROR; 1309 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1310 DBG_FORMAT_ERROR 1311 return NULL; 1312 } 1313 1314 if(ch == 0x0000 && src->current+1 == src->end) { 1315 break; 1316 } 1317 1318 if (inChars) { 1319 if(src->parsedToken.charsLen == 0) { 1320 src->parsedToken.charsOffset = (uint32_t)(src->current - src->source); 1321 } 1322 src->parsedToken.charsLen++; 1323 } else { 1324 if(newExtensionLen == 0) { 1325 extensionOffset = (uint32_t)(src->current - src->source); 1326 } 1327 newExtensionLen++; 1328 } 1329 1330 break; 1331 } 1332 } 1333 } 1334 1335 if(wasInQuote) { 1336 if(ch != 0x27) { 1337 if(inQuote || !PatternProps::isWhiteSpace(ch)) { 1338 ucol_tok_addToExtraCurrent(src, &ch, 1, status); 1339 } 1340 } 1341 } 1342 1343 src->current++; 1344 } 1345 1346 EndOfLoop: 1347 wasInQuote = FALSE; 1348 if (newStrength == UCOL_TOK_UNSET) { 1349 return NULL; 1350 } 1351 1352 if (src->parsedToken.charsLen == 0 && top == FALSE) { 1353 syntaxError(src->source,(int32_t)(src->current-src->source),(int32_t)(src->end-src->source),parseError); 1354 *status = U_INVALID_FORMAT_ERROR; 1355 DBG_FORMAT_ERROR 1356 return NULL; 1357 } 1358 1359 src->parsedToken.strength = newStrength; 1360 src->parsedToken.extensionOffset = extensionOffset; 1361 src->parsedToken.extensionLen = newExtensionLen; 1362 src->parsedToken.flags = (UCOL_TOK_VARIABLE_TOP * (variableTop?1:0)) | (UCOL_TOK_TOP * (top?1:0)) | before; 1363 1364 return src->current; 1365 } 1366 1367 /* 1368 * Parses the next token, keeps the indices in src->parsedToken, and updates the counters. 1369 * @see ucol_tok_parseNextTokenInternal() for the description of what operators are supported. 1370 * 1371 * In addition to what ucol_tok_parseNextTokenInternal() does, this function does the following: 1372 * 1) ucol_tok_parseNextTokenInternal() returns a range as a single token. This function separates 1373 * it to separate tokens and returns one by one. In order to do that, the necessary states are 1374 * cached as member variables of the token parser. 1375 * 2) When encountering a range, ucol_tok_parseNextTokenInternal() processes characters up to the 1376 * starting character as a single list token (which is separated into individual characters here) 1377 * and as another list token starting with the last character in the range. Before expanding it 1378 * as a list of tokens, this function expands the range by filling the intermediate characters and 1379 * returns them one by one as separate tokens. 1380 * Necessary checks are done for invalid combinations. 1381 */ 1382 U_CAPI const UChar* U_EXPORT2 1383 ucol_tok_parseNextToken(UColTokenParser *src, 1384 UBool startOfRules, 1385 UParseError *parseError, 1386 UErrorCode *status) 1387 { 1388 const UChar *nextToken; 1389 1390 if (src->inRange) { 1391 // We are not done processing a range. Continue it. 1392 return ucol_tok_processNextCodePointInRange(src, status); 1393 } else if (src->isStarred) { 1394 // We are not done processing a starred token. Continue it. 1395 return ucol_tok_processNextTokenInStarredList(src); 1396 } 1397 1398 // Get the next token. 1399 nextToken = ucol_tok_parseNextTokenInternal(src, startOfRules, parseError, status); 1400 1401 if (nextToken == NULL) { 1402 return NULL; 1403 } 1404 1405 if (src->inRange) { 1406 // A new range has started. 1407 // Check whether it is a chain of ranges with more than one hyphen. 1408 if (src->lastRangeCp > 0 && src->lastRangeCp == src->previousCp) { 1409 *status = U_INVALID_FORMAT_ERROR; 1410 syntaxError(src->source,src->parsedToken.charsOffset-1, 1411 src->parsedToken.charsOffset+src->parsedToken.charsLen, parseError); 1412 DBG_FORMAT_ERROR 1413 return NULL; 1414 } 1415 1416 // The current token indicates the second code point of the range. 1417 // Process just that, and then proceed with the star. 1418 src->currentStarredCharIndex = src->parsedToken.charsOffset; 1419 U16_NEXT(src->source, src->currentStarredCharIndex, 1420 (uint32_t)(src->end - src->source), src->lastRangeCp); 1421 if (src->lastRangeCp <= src->previousCp) { 1422 *status = U_INVALID_FORMAT_ERROR; 1423 syntaxError(src->source,src->parsedToken.charsOffset-1, 1424 src->parsedToken.charsOffset+src->parsedToken.charsLen,parseError); 1425 DBG_FORMAT_ERROR 1426 return NULL; 1427 } 1428 1429 // Set current range code point to process the range loop 1430 src->currentRangeCp = src->previousCp + 1; 1431 1432 src->lastStarredCharIndex = src->parsedToken.charsOffset + src->parsedToken.charsLen - 1; 1433 1434 return ucol_tok_processNextCodePointInRange(src, status); 1435 } else if (src->isStarred) { 1436 // We define two indices m_currentStarredCharIndex_ and m_lastStarredCharIndex_ so that 1437 // [m_currentStarredCharIndex_ .. m_lastStarredCharIndex_], both inclusive, need to be 1438 // separated into several tokens and returned. 1439 src->currentStarredCharIndex = src->parsedToken.charsOffset; 1440 src->lastStarredCharIndex = src->parsedToken.charsOffset + src->parsedToken.charsLen - 1; 1441 1442 return ucol_tok_processNextTokenInStarredList(src); 1443 } else { 1444 // Set previous codepoint 1445 U16_GET(src->source, 0, src->parsedToken.charsOffset, (uint32_t)(src->end - src->source), src->previousCp); 1446 } 1447 return nextToken; 1448 } 1449 1450 1451 /* 1452 Processing Description 1453 1 Build a ListList. Each list has a header, which contains two lists (positive 1454 and negative), a reset token, a baseCE, nextCE, and previousCE. The lists and 1455 reset may be null. 1456 2 As you process, you keep a LAST pointer that points to the last token you 1457 handled. 1458 1459 */ 1460 1461 static UColToken *ucol_tok_initAReset(UColTokenParser *src, const UChar *expand, uint32_t *expandNext, 1462 UParseError *parseError, UErrorCode *status) 1463 { 1464 if(src->resultLen == src->listCapacity) { 1465 // Unfortunately, this won't work, as we store addresses of lhs in token 1466 src->listCapacity *= 2; 1467 src->lh = (UColTokListHeader *)uprv_realloc(src->lh, src->listCapacity*sizeof(UColTokListHeader)); 1468 if(src->lh == NULL) { 1469 *status = U_MEMORY_ALLOCATION_ERROR; 1470 return NULL; 1471 } 1472 } 1473 /* do the reset thing */ 1474 UColToken *sourceToken = (UColToken *)uprv_malloc(sizeof(UColToken)); 1475 /* test for NULL */ 1476 if (sourceToken == NULL) { 1477 *status = U_MEMORY_ALLOCATION_ERROR; 1478 return NULL; 1479 } 1480 sourceToken->rulesToParseHdl = &(src->source); 1481 sourceToken->source = src->parsedToken.charsLen << 24 | src->parsedToken.charsOffset; 1482 sourceToken->expansion = src->parsedToken.extensionLen << 24 | src->parsedToken.extensionOffset; 1483 1484 sourceToken->debugSource = *(src->source + src->parsedToken.charsOffset); 1485 sourceToken->debugExpansion = *(src->source + src->parsedToken.extensionOffset); 1486 1487 // keep the flags around so that we know about before 1488 sourceToken->flags = src->parsedToken.flags; 1489 1490 if(src->parsedToken.prefixOffset != 0) { 1491 // this is a syntax error 1492 *status = U_INVALID_FORMAT_ERROR; 1493 syntaxError(src->source,src->parsedToken.charsOffset-1,src->parsedToken.charsOffset+src->parsedToken.charsLen,parseError); 1494 DBG_FORMAT_ERROR 1495 uprv_free(sourceToken); 1496 return 0; 1497 } else { 1498 sourceToken->prefix = 0; 1499 } 1500 1501 sourceToken->polarity = UCOL_TOK_POLARITY_POSITIVE; /* TODO: this should also handle reverse */ 1502 sourceToken->strength = UCOL_TOK_RESET; 1503 sourceToken->next = NULL; 1504 sourceToken->previous = NULL; 1505 sourceToken->noOfCEs = 0; 1506 sourceToken->noOfExpCEs = 0; 1507 sourceToken->listHeader = &src->lh[src->resultLen]; 1508 1509 src->lh[src->resultLen].first = NULL; 1510 src->lh[src->resultLen].last = NULL; 1511 src->lh[src->resultLen].first = NULL; 1512 src->lh[src->resultLen].last = NULL; 1513 1514 src->lh[src->resultLen].reset = sourceToken; 1515 1516 /* 1517 3 Consider each item: relation, source, and expansion: e.g. ...< x / y ... 1518 First convert all expansions into normal form. Examples: 1519 If "xy" doesn't occur earlier in the list or in the UCA, convert &xy * c * 1520 d * ... into &x * c/y * d * ... 1521 Note: reset values can never have expansions, although they can cause the 1522 very next item to have one. They may be contractions, if they are found 1523 earlier in the list. 1524 */ 1525 *expandNext = 0; 1526 if(expand != NULL) { 1527 /* check to see if there is an expansion */ 1528 if(src->parsedToken.charsLen > 1) { 1529 uint32_t resetCharsOffset; 1530 resetCharsOffset = (uint32_t)(expand - src->source); 1531 sourceToken->source = ((resetCharsOffset - src->parsedToken.charsOffset ) << 24) | src->parsedToken.charsOffset; 1532 *expandNext = ((src->parsedToken.charsLen + src->parsedToken.charsOffset - resetCharsOffset)<<24) | (resetCharsOffset); 1533 } 1534 } 1535 1536 src->resultLen++; 1537 1538 uhash_put(src->tailored, sourceToken, sourceToken, status); 1539 1540 return sourceToken; 1541 } 1542 1543 static 1544 inline UColToken *getVirginBefore(UColTokenParser *src, UColToken *sourceToken, uint8_t strength, UParseError *parseError, UErrorCode *status) { 1545 if(U_FAILURE(*status)) { 1546 return NULL; 1547 } 1548 /* this is a virgin before - we need to fish the anchor from the UCA */ 1549 collIterate s; 1550 uint32_t baseCE = UCOL_NOT_FOUND, baseContCE = UCOL_NOT_FOUND; 1551 uint32_t CE, SecondCE; 1552 // uint32_t invPos; 1553 if(sourceToken != NULL) { 1554 uprv_init_collIterate(src->UCA, src->source+((sourceToken->source)&0xFFFFFF), 1, &s, status); 1555 } else { 1556 uprv_init_collIterate(src->UCA, src->source+src->parsedToken.charsOffset /**charsOffset*/, 1, &s, status); 1557 } 1558 if(U_FAILURE(*status)) { 1559 return NULL; 1560 } 1561 1562 baseCE = ucol_getNextCE(src->UCA, &s, status) & 0xFFFFFF3F; 1563 baseContCE = ucol_getNextCE(src->UCA, &s, status); 1564 if(baseContCE == UCOL_NO_MORE_CES) { 1565 baseContCE = 0; 1566 } 1567 1568 1569 UCAConstants *consts = (UCAConstants *)((uint8_t *)src->UCA->image + src->UCA->image->UCAConsts); 1570 uint32_t ch = 0; 1571 uint32_t expandNext = 0; 1572 UColToken key; 1573 1574 if((baseCE & 0xFF000000) >= (consts->UCA_PRIMARY_IMPLICIT_MIN<<24) && (baseCE & 0xFF000000) <= (consts->UCA_PRIMARY_IMPLICIT_MAX<<24) ) { /* implicits - */ 1575 uint32_t primary = (baseCE & UCOL_PRIMARYMASK) | ((baseContCE & UCOL_PRIMARYMASK) >> 16); 1576 uint32_t raw = uprv_uca_getRawFromImplicit(primary); 1577 ch = uprv_uca_getCodePointFromRaw(raw-1); 1578 uint32_t primaryCE = uprv_uca_getImplicitFromRaw(raw-1); 1579 CE = (primaryCE & UCOL_PRIMARYMASK) | 0x0505; 1580 SecondCE = ((primaryCE << 16) & UCOL_PRIMARYMASK) | UCOL_CONTINUATION_MARKER; 1581 1582 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source); 1583 *src->extraCurrent++ = 0xFFFE; 1584 *src->extraCurrent++ = (UChar)ch; 1585 src->parsedToken.charsLen++; 1586 1587 key.source = (src->parsedToken.charsLen/**newCharsLen*/ << 24) | src->parsedToken.charsOffset/**charsOffset*/; 1588 key.rulesToParseHdl = &(src->source); 1589 1590 //sourceToken = (UColToken *)uhash_iget(src->tailored, (int32_t)key); 1591 sourceToken = (UColToken *)uhash_get(src->tailored, &key); 1592 1593 if(sourceToken == NULL) { 1594 src->lh[src->resultLen].baseCE = CE & 0xFFFFFF3F; 1595 if(isContinuation(SecondCE)) { 1596 src->lh[src->resultLen].baseContCE = SecondCE; 1597 } else { 1598 src->lh[src->resultLen].baseContCE = 0; 1599 } 1600 src->lh[src->resultLen].nextCE = 0; 1601 src->lh[src->resultLen].nextContCE = 0; 1602 src->lh[src->resultLen].previousCE = 0; 1603 src->lh[src->resultLen].previousContCE = 0; 1604 1605 src->lh[src->resultLen].indirect = FALSE; 1606 1607 sourceToken = ucol_tok_initAReset(src, 0, &expandNext, parseError, status); 1608 } 1609 1610 } else { 1611 /* invPos = */ ucol_inv_getPrevCE(src, baseCE, baseContCE, &CE, &SecondCE, strength); 1612 1613 // we got the previous CE. Now we need to see if the difference between 1614 // the two CEs is really of the requested strength. 1615 // if it's a bigger difference (we asked for secondary and got primary), we 1616 // need to modify the CE. 1617 if(ucol_getCEStrengthDifference(baseCE, baseContCE, CE, SecondCE) < strength) { 1618 // adjust the strength 1619 // now we are in the situation where our baseCE should actually be modified in 1620 // order to get the CE in the right position. 1621 if(strength == UCOL_SECONDARY) { 1622 CE = baseCE - 0x0200; 1623 } else { // strength == UCOL_TERTIARY 1624 CE = baseCE - 0x02; 1625 } 1626 if(baseContCE) { 1627 if(strength == UCOL_SECONDARY) { 1628 SecondCE = baseContCE - 0x0200; 1629 } else { // strength == UCOL_TERTIARY 1630 SecondCE = baseContCE - 0x02; 1631 } 1632 } 1633 } 1634 1635 #if 0 1636 // the code below relies on getting a code point from the inverse table, in order to be 1637 // able to merge the situations like &x < 9 &[before 1]a < d. This won't work: 1638 // 1. There are many code points that have the same CE 1639 // 2. The CE to codepoint table (things pointed to by CETable[3*invPos+2] are broken. 1640 // Also, in case when there is no equivalent strength before an element, we have to actually 1641 // construct one. For example, &[before 2]a << x won't result in x << a, because the element 1642 // before a is a primary difference. 1643 1644 //uint32_t *CETable = (uint32_t *)((uint8_t *)src->invUCA+src->invUCA->table); 1645 1646 1647 ch = CETable[3*invPos+2]; 1648 1649 if((ch & UCOL_INV_SIZEMASK) != 0) { 1650 uint16_t *conts = (uint16_t *)((uint8_t *)src->invUCA+src->invUCA->conts); 1651 uint32_t offset = (ch & UCOL_INV_OFFSETMASK); 1652 ch = conts[offset]; 1653 } 1654 1655 *src->extraCurrent++ = (UChar)ch; 1656 src->parsedToken.charsOffset = (uint32_t)(src->extraCurrent - src->source - 1); 1657 src->parsedToken.charsLen = 1; 1658 1659 // We got an UCA before. However, this might have been tailored. 1660 // example: 1661 // &\u30ca = \u306a 1662 // &[before 3]\u306a<<<\u306a|\u309d 1663 1664 1665 // uint32_t key = (*newCharsLen << 24) | *charsOffset; 1666 key.source = (src->parsedToken.charsLen/**newCharsLen*/ << 24) | src->parsedToken.charsOffset/**charsOffset*/; 1667 key.rulesToParseHdl = &(src->source); 1668 1669 //sourceToken = (UColToken *)uhash_iget(src->tailored, (int32_t)key); 1670 sourceToken = (UColToken *)uhash_get(src->tailored, &key); 1671 #endif 1672 1673 // here is how it should be. The situation such as &[before 1]a < x, should be 1674 // resolved exactly as if we wrote &a > x. 1675 // therefore, I don't really care if the UCA value before a has been changed. 1676 // However, I do care if the strength between my element and the previous element 1677 // is bigger then I wanted. So, if CE < baseCE and I wanted &[before 2], then i'll 1678 // have to construct the base CE. 1679 1680 1681 1682 // if we found a tailored thing, we have to use the UCA value and construct 1683 // a new reset token with constructed name 1684 //if(sourceToken != NULL && sourceToken->strength != UCOL_TOK_RESET) { 1685 // character to which we want to anchor is already tailored. 1686 // We need to construct a new token which will be the anchor 1687 // point 1688 //*(src->extraCurrent-1) = 0xFFFE; 1689 //*src->extraCurrent++ = (UChar)ch; 1690 // grab before 1691 src->parsedToken.charsOffset -= 10; 1692 src->parsedToken.charsLen += 10; 1693 src->lh[src->resultLen].baseCE = CE & 0xFFFFFF3F; 1694 if(isContinuation(SecondCE)) { 1695 src->lh[src->resultLen].baseContCE = SecondCE; 1696 } else { 1697 src->lh[src->resultLen].baseContCE = 0; 1698 } 1699 src->lh[src->resultLen].nextCE = 0; 1700 src->lh[src->resultLen].nextContCE = 0; 1701 src->lh[src->resultLen].previousCE = 0; 1702 src->lh[src->resultLen].previousContCE = 0; 1703 1704 src->lh[src->resultLen].indirect = FALSE; 1705 1706 sourceToken = ucol_tok_initAReset(src, 0, &expandNext, parseError, status); 1707 //} 1708 } 1709 1710 return sourceToken; 1711 1712 } 1713 1714 uint32_t ucol_tok_assembleTokenList(UColTokenParser *src, UParseError *parseError, UErrorCode *status) { 1715 UColToken *lastToken = NULL; 1716 const UChar *parseEnd = NULL; 1717 uint32_t expandNext = 0; 1718 UBool variableTop = FALSE; 1719 UBool top = FALSE; 1720 uint16_t specs = 0; 1721 UColTokListHeader *ListList = NULL; 1722 1723 src->parsedToken.strength = UCOL_TOK_UNSET; 1724 1725 ListList = src->lh; 1726 1727 if(U_FAILURE(*status)) { 1728 return 0; 1729 } 1730 #ifdef DEBUG_FOR_CODE_POINTS 1731 char filename[35]; 1732 sprintf(filename, "/tmp/debug_for_cp_%09d.txt", getpid()); 1733 dfcp_fp = fopen(filename, "a"); 1734 fprintf(stdout, "Output is in the file %s.\n", filename); 1735 #endif 1736 1737 #ifdef DEBUG_FOR_COLL_RULES 1738 std::string s3; 1739 UnicodeString(src->source).toUTF8String(s3); 1740 std::cout << "src->source = " << s3 << std::endl; 1741 #endif 1742 1743 while(src->current < src->end || src->isStarred) { 1744 src->parsedToken.prefixOffset = 0; 1745 1746 parseEnd = ucol_tok_parseNextToken(src, 1747 (UBool)(lastToken == NULL), 1748 parseError, 1749 status); 1750 1751 specs = src->parsedToken.flags; 1752 1753 1754 variableTop = ((specs & UCOL_TOK_VARIABLE_TOP) != 0); 1755 top = ((specs & UCOL_TOK_TOP) != 0); 1756 1757 if(U_SUCCESS(*status) && parseEnd != NULL) { 1758 UColToken *sourceToken = NULL; 1759 //uint32_t key = 0; 1760 uint32_t lastStrength = UCOL_TOK_UNSET; 1761 1762 if(lastToken != NULL ) { 1763 lastStrength = lastToken->strength; 1764 } 1765 1766 #ifdef DEBUG_FOR_CODE_POINTS 1767 UChar32 cp; 1768 U16_GET(src->source, 0, src->parsedToken.charsOffset, (uint32_t)(src->extraEnd - src->source), cp); 1769 fprintf(dfcp_fp, "Code point = %x, Strength = %x\n", cp, src->parsedToken.strength); 1770 #endif 1771 //key = newCharsLen << 24 | charsOffset; 1772 UColToken key; 1773 key.source = src->parsedToken.charsLen << 24 | src->parsedToken.charsOffset; 1774 key.rulesToParseHdl = &(src->source); 1775 1776 /* 4 Lookup each source in the CharsToToken map, and find a sourceToken */ 1777 sourceToken = (UColToken *)uhash_get(src->tailored, &key); 1778 1779 if(src->parsedToken.strength != UCOL_TOK_RESET) { 1780 if(lastToken == NULL) { /* this means that rules haven't started properly */ 1781 *status = U_INVALID_FORMAT_ERROR; 1782 syntaxError(src->source,0,(int32_t)(src->end-src->source),parseError); 1783 DBG_FORMAT_ERROR 1784 return 0; 1785 } 1786 /* 6 Otherwise (when relation != reset) */ 1787 if(sourceToken == NULL) { 1788 /* If sourceToken is null, create new one, */ 1789 sourceToken = (UColToken *)uprv_malloc(sizeof(UColToken)); 1790 /* test for NULL */ 1791 if (sourceToken == NULL) { 1792 *status = U_MEMORY_ALLOCATION_ERROR; 1793 return 0; 1794 } 1795 sourceToken->rulesToParseHdl = &(src->source); 1796 sourceToken->source = src->parsedToken.charsLen << 24 | src->parsedToken.charsOffset; 1797 1798 sourceToken->debugSource = *(src->source + src->parsedToken.charsOffset); 1799 1800 sourceToken->prefix = src->parsedToken.prefixLen << 24 | src->parsedToken.prefixOffset; 1801 sourceToken->debugPrefix = *(src->source + src->parsedToken.prefixOffset); 1802 1803 sourceToken->polarity = UCOL_TOK_POLARITY_POSITIVE; /* TODO: this should also handle reverse */ 1804 sourceToken->next = NULL; 1805 sourceToken->previous = NULL; 1806 sourceToken->noOfCEs = 0; 1807 sourceToken->noOfExpCEs = 0; 1808 // keep the flags around so that we know about before 1809 sourceToken->flags = src->parsedToken.flags; 1810 uhash_put(src->tailored, sourceToken, sourceToken, status); 1811 if(U_FAILURE(*status)) { 1812 return 0; 1813 } 1814 } else { 1815 /* we could have fished out a reset here */ 1816 if(sourceToken->strength != UCOL_TOK_RESET && lastToken != sourceToken) { 1817 /* otherwise remove sourceToken from where it was. */ 1818 if(sourceToken->next != NULL) { 1819 if(sourceToken->next->strength > sourceToken->strength) { 1820 sourceToken->next->strength = sourceToken->strength; 1821 } 1822 sourceToken->next->previous = sourceToken->previous; 1823 } else { 1824 sourceToken->listHeader->last = sourceToken->previous; 1825 } 1826 1827 if(sourceToken->previous != NULL) { 1828 sourceToken->previous->next = sourceToken->next; 1829 } else { 1830 sourceToken->listHeader->first = sourceToken->next; 1831 } 1832 sourceToken->next = NULL; 1833 sourceToken->previous = NULL; 1834 } 1835 } 1836 1837 sourceToken->strength = src->parsedToken.strength; 1838 sourceToken->listHeader = lastToken->listHeader; 1839 1840 /* 1841 1. Find the strongest strength in each list, and set strongestP and strongestN 1842 accordingly in the headers. 1843 */ 1844 if(lastStrength == UCOL_TOK_RESET 1845 || sourceToken->listHeader->first == 0) { 1846 /* If LAST is a reset 1847 insert sourceToken in the list. */ 1848 if(sourceToken->listHeader->first == 0) { 1849 sourceToken->listHeader->first = sourceToken; 1850 sourceToken->listHeader->last = sourceToken; 1851 } else { /* we need to find a place for us */ 1852 /* and we'll get in front of the same strength */ 1853 if(sourceToken->listHeader->first->strength <= sourceToken->strength) { 1854 sourceToken->next = sourceToken->listHeader->first; 1855 sourceToken->next->previous = sourceToken; 1856 sourceToken->listHeader->first = sourceToken; 1857 sourceToken->previous = NULL; 1858 } else { 1859 lastToken = sourceToken->listHeader->first; 1860 while(lastToken->next != NULL && lastToken->next->strength > sourceToken->strength) { 1861 lastToken = lastToken->next; 1862 } 1863 if(lastToken->next != NULL) { 1864 lastToken->next->previous = sourceToken; 1865 } else { 1866 sourceToken->listHeader->last = sourceToken; 1867 } 1868 sourceToken->previous = lastToken; 1869 sourceToken->next = lastToken->next; 1870 lastToken->next = sourceToken; 1871 } 1872 } 1873 } else { 1874 /* Otherwise (when LAST is not a reset) 1875 if polarity (LAST) == polarity(relation), insert sourceToken after LAST, 1876 otherwise insert before. 1877 when inserting after or before, search to the next position with the same 1878 strength in that direction. (This is called postpone insertion). */ 1879 if(sourceToken != lastToken) { 1880 if(lastToken->polarity == sourceToken->polarity) { 1881 while(lastToken->next != NULL && lastToken->next->strength > sourceToken->strength) { 1882 lastToken = lastToken->next; 1883 } 1884 sourceToken->previous = lastToken; 1885 if(lastToken->next != NULL) { 1886 lastToken->next->previous = sourceToken; 1887 } else { 1888 sourceToken->listHeader->last = sourceToken; 1889 } 1890 1891 sourceToken->next = lastToken->next; 1892 lastToken->next = sourceToken; 1893 } else { 1894 while(lastToken->previous != NULL && lastToken->previous->strength > sourceToken->strength) { 1895 lastToken = lastToken->previous; 1896 } 1897 sourceToken->next = lastToken; 1898 if(lastToken->previous != NULL) { 1899 lastToken->previous->next = sourceToken; 1900 } else { 1901 sourceToken->listHeader->first = sourceToken; 1902 } 1903 sourceToken->previous = lastToken->previous; 1904 lastToken->previous = sourceToken; 1905 } 1906 } else { /* repeated one thing twice in rules, stay with the stronger strength */ 1907 if(lastStrength < sourceToken->strength) { 1908 sourceToken->strength = lastStrength; 1909 } 1910 } 1911 } 1912 1913 /* if the token was a variable top, we're gonna put it in */ 1914 if(variableTop == TRUE && src->varTop == NULL) { 1915 variableTop = FALSE; 1916 src->varTop = sourceToken; 1917 } 1918 1919 // Treat the expansions. 1920 // There are two types of expansions: explicit (x / y) and reset based propagating expansions 1921 // (&abc * d * e <=> &ab * d / c * e / c) 1922 // if both of them are in effect for a token, they are combined. 1923 1924 sourceToken->expansion = src->parsedToken.extensionLen << 24 | src->parsedToken.extensionOffset; 1925 1926 if(expandNext != 0) { 1927 if(sourceToken->strength == UCOL_PRIMARY) { /* primary strength kills off the implicit expansion */ 1928 expandNext = 0; 1929 } else if(sourceToken->expansion == 0) { /* if there is no expansion, implicit is just added to the token */ 1930 sourceToken->expansion = expandNext; 1931 } else { /* there is both explicit and implicit expansion. We need to make a combination */ 1932 uprv_memcpy(src->extraCurrent, src->source + (expandNext & 0xFFFFFF), (expandNext >> 24)*sizeof(UChar)); 1933 uprv_memcpy(src->extraCurrent+(expandNext >> 24), src->source + src->parsedToken.extensionOffset, src->parsedToken.extensionLen*sizeof(UChar)); 1934 sourceToken->expansion = (uint32_t)(((expandNext >> 24) + src->parsedToken.extensionLen)<<24 | (uint32_t)(src->extraCurrent - src->source)); 1935 src->extraCurrent += (expandNext >> 24) + src->parsedToken.extensionLen; 1936 } 1937 } 1938 1939 // This is just for debugging purposes 1940 if(sourceToken->expansion != 0) { 1941 sourceToken->debugExpansion = *(src->source + src->parsedToken.extensionOffset); 1942 } else { 1943 sourceToken->debugExpansion = 0; 1944 } 1945 // if the previous token was a reset before, the strength of this 1946 // token must match the strength of before. Otherwise we have an 1947 // undefined situation. 1948 // In other words, we currently have a cludge which we use to 1949 // represent &a >> x. This is written as &[before 2]a << x. 1950 if((lastToken->flags & UCOL_TOK_BEFORE) != 0) { 1951 uint8_t beforeStrength = (lastToken->flags & UCOL_TOK_BEFORE) - 1; 1952 if(beforeStrength != sourceToken->strength) { 1953 *status = U_INVALID_FORMAT_ERROR; 1954 syntaxError(src->source,0,(int32_t)(src->end-src->source),parseError); 1955 DBG_FORMAT_ERROR 1956 return 0; 1957 } 1958 } 1959 } else { 1960 if(lastToken != NULL && lastStrength == UCOL_TOK_RESET) { 1961 /* if the previous token was also a reset, */ 1962 /*this means that we have two consecutive resets */ 1963 /* and we want to remove the previous one if empty*/ 1964 if(src->resultLen > 0 && ListList[src->resultLen-1].first == NULL) { 1965 src->resultLen--; 1966 } 1967 } 1968 1969 if(sourceToken == NULL) { /* this is a reset, but it might still be somewhere in the tailoring, in shorter form */ 1970 uint32_t searchCharsLen = src->parsedToken.charsLen; 1971 while(searchCharsLen > 1 && sourceToken == NULL) { 1972 searchCharsLen--; 1973 //key = searchCharsLen << 24 | charsOffset; 1974 UColToken key; 1975 key.source = searchCharsLen << 24 | src->parsedToken.charsOffset; 1976 key.rulesToParseHdl = &(src->source); 1977 sourceToken = (UColToken *)uhash_get(src->tailored, &key); 1978 } 1979 if(sourceToken != NULL) { 1980 expandNext = (src->parsedToken.charsLen - searchCharsLen) << 24 | (src->parsedToken.charsOffset + searchCharsLen); 1981 } 1982 } 1983 1984 if((specs & UCOL_TOK_BEFORE) != 0) { /* we're doing before */ 1985 if(top == FALSE) { /* there is no indirection */ 1986 uint8_t strength = (specs & UCOL_TOK_BEFORE) - 1; 1987 if(sourceToken != NULL && sourceToken->strength != UCOL_TOK_RESET) { 1988 /* this is a before that is already ordered in the UCA - so we need to get the previous with good strength */ 1989 while(sourceToken->strength > strength && sourceToken->previous != NULL) { 1990 sourceToken = sourceToken->previous; 1991 } 1992 /* here, either we hit the strength or NULL */ 1993 if(sourceToken->strength == strength) { 1994 if(sourceToken->previous != NULL) { 1995 sourceToken = sourceToken->previous; 1996 } else { /* start of list */ 1997 sourceToken = sourceToken->listHeader->reset; 1998 } 1999 } else { /* we hit NULL */ 2000 /* we should be doing the else part */ 2001 sourceToken = sourceToken->listHeader->reset; 2002 sourceToken = getVirginBefore(src, sourceToken, strength, parseError, status); 2003 } 2004 } else { 2005 sourceToken = getVirginBefore(src, sourceToken, strength, parseError, status); 2006 } 2007 } else { /* this is both before and indirection */ 2008 top = FALSE; 2009 ListList[src->resultLen].previousCE = 0; 2010 ListList[src->resultLen].previousContCE = 0; 2011 ListList[src->resultLen].indirect = TRUE; 2012 /* we need to do slightly more work. we need to get the baseCE using the */ 2013 /* inverse UCA & getPrevious. The next bound is not set, and will be decided */ 2014 /* in ucol_bld */ 2015 uint8_t strength = (specs & UCOL_TOK_BEFORE) - 1; 2016 uint32_t baseCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].startCE; 2017 uint32_t baseContCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].startContCE;//&0xFFFFFF3F; 2018 uint32_t CE = UCOL_NOT_FOUND, SecondCE = UCOL_NOT_FOUND; 2019 2020 UCAConstants *consts = (UCAConstants *)((uint8_t *)src->UCA->image + src->UCA->image->UCAConsts); 2021 if((baseCE & 0xFF000000) >= (consts->UCA_PRIMARY_IMPLICIT_MIN<<24) && 2022 (baseCE & 0xFF000000) <= (consts->UCA_PRIMARY_IMPLICIT_MAX<<24) ) { /* implicits - */ 2023 uint32_t primary = (baseCE & UCOL_PRIMARYMASK) | ((baseContCE & UCOL_PRIMARYMASK) >> 16); 2024 uint32_t raw = uprv_uca_getRawFromImplicit(primary); 2025 uint32_t primaryCE = uprv_uca_getImplicitFromRaw(raw-1); 2026 CE = (primaryCE & UCOL_PRIMARYMASK) | 0x0505; 2027 SecondCE = ((primaryCE << 16) & UCOL_PRIMARYMASK) | UCOL_CONTINUATION_MARKER; 2028 } else { 2029 /*int32_t invPos = ucol_inv_getPrevCE(baseCE, baseContCE, &CE, &SecondCE, strength);*/ 2030 ucol_inv_getPrevCE(src, baseCE, baseContCE, &CE, &SecondCE, strength); 2031 } 2032 2033 ListList[src->resultLen].baseCE = CE; 2034 ListList[src->resultLen].baseContCE = SecondCE; 2035 ListList[src->resultLen].nextCE = 0; 2036 ListList[src->resultLen].nextContCE = 0; 2037 2038 sourceToken = ucol_tok_initAReset(src, 0, &expandNext, parseError, status); 2039 } 2040 } 2041 2042 2043 /* 5 If the relation is a reset: 2044 If sourceToken is null 2045 Create new list, create new sourceToken, make the baseCE from source, put 2046 the sourceToken in ListHeader of the new list */ 2047 if(sourceToken == NULL) { 2048 /* 2049 3 Consider each item: relation, source, and expansion: e.g. ...< x / y ... 2050 First convert all expansions into normal form. Examples: 2051 If "xy" doesn't occur earlier in the list or in the UCA, convert &xy * c * 2052 d * ... into &x * c/y * d * ... 2053 Note: reset values can never have expansions, although they can cause the 2054 very next item to have one. They may be contractions, if they are found 2055 earlier in the list. 2056 */ 2057 if(top == FALSE) { 2058 collIterate s; 2059 uint32_t CE = UCOL_NOT_FOUND, SecondCE = UCOL_NOT_FOUND; 2060 2061 uprv_init_collIterate(src->UCA, src->source+src->parsedToken.charsOffset, src->parsedToken.charsLen, &s, status); 2062 2063 CE = ucol_getNextCE(src->UCA, &s, status); 2064 const UChar *expand = s.pos; 2065 SecondCE = ucol_getNextCE(src->UCA, &s, status); 2066 2067 ListList[src->resultLen].baseCE = CE & 0xFFFFFF3F; 2068 if(isContinuation(SecondCE)) { 2069 ListList[src->resultLen].baseContCE = SecondCE; 2070 } else { 2071 ListList[src->resultLen].baseContCE = 0; 2072 } 2073 ListList[src->resultLen].nextCE = 0; 2074 ListList[src->resultLen].nextContCE = 0; 2075 ListList[src->resultLen].previousCE = 0; 2076 ListList[src->resultLen].previousContCE = 0; 2077 ListList[src->resultLen].indirect = FALSE; 2078 sourceToken = ucol_tok_initAReset(src, expand, &expandNext, parseError, status); 2079 } else { /* top == TRUE */ 2080 /* just use the supplied values */ 2081 top = FALSE; 2082 ListList[src->resultLen].previousCE = 0; 2083 ListList[src->resultLen].previousContCE = 0; 2084 ListList[src->resultLen].indirect = TRUE; 2085 ListList[src->resultLen].baseCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].startCE; 2086 ListList[src->resultLen].baseContCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].startContCE; 2087 ListList[src->resultLen].nextCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].limitCE; 2088 ListList[src->resultLen].nextContCE = ucolIndirectBoundaries[src->parsedToken.indirectIndex].limitContCE; 2089 2090 sourceToken = ucol_tok_initAReset(src, 0, &expandNext, parseError, status); 2091 2092 } 2093 } else { /* reset to something already in rules */ 2094 top = FALSE; 2095 } 2096 } 2097 /* 7 After all this, set LAST to point to sourceToken, and goto step 3. */ 2098 lastToken = sourceToken; 2099 } else { 2100 if(U_FAILURE(*status)) { 2101 return 0; 2102 } 2103 } 2104 } 2105 #ifdef DEBUG_FOR_CODE_POINTS 2106 fclose(dfcp_fp); 2107 #endif 2108 2109 2110 if(src->resultLen > 0 && ListList[src->resultLen-1].first == NULL) { 2111 src->resultLen--; 2112 } 2113 return src->resultLen; 2114 } 2115 2116 const UChar* ucol_tok_getRulesFromBundle( 2117 void* /*context*/, 2118 const char* locale, 2119 const char* type, 2120 int32_t* pLength, 2121 UErrorCode* status) 2122 { 2123 const UChar* rules = NULL; 2124 UResourceBundle* bundle; 2125 UResourceBundle* collations; 2126 UResourceBundle* collation; 2127 2128 *pLength = 0; 2129 2130 bundle = ures_open(U_ICUDATA_COLL, locale, status); 2131 if(U_SUCCESS(*status)){ 2132 collations = ures_getByKey(bundle, "collations", NULL, status); 2133 if(U_SUCCESS(*status)){ 2134 collation = ures_getByKey(collations, type, NULL, status); 2135 if(U_SUCCESS(*status)){ 2136 rules = ures_getStringByKey(collation, "Sequence", pLength, status); 2137 if(U_FAILURE(*status)){ 2138 *pLength = 0; 2139 rules = NULL; 2140 } 2141 ures_close(collation); 2142 } 2143 ures_close(collations); 2144 } 2145 } 2146 2147 ures_close(bundle); 2148 2149 return rules; 2150 } 2151 2152 void ucol_tok_initTokenList( 2153 UColTokenParser *src, 2154 const UChar *rules, 2155 uint32_t rulesLength, 2156 const UCollator *UCA, 2157 GetCollationRulesFunction importFunc, 2158 void* context, 2159 UErrorCode *status) { 2160 U_NAMESPACE_USE 2161 2162 uint32_t nSize = 0; 2163 uint32_t estimatedSize = (2*rulesLength+UCOL_TOK_EXTRA_RULE_SPACE_SIZE); 2164 2165 bool needToDeallocRules = false; 2166 2167 if(U_FAILURE(*status)) { 2168 return; 2169 } 2170 2171 // set everything to zero, so that we can clean up gracefully 2172 uprv_memset(src, 0, sizeof(UColTokenParser)); 2173 2174 // first we need to find options that don't like to be normalized, 2175 // like copy and remove... 2176 //const UChar *openBrace = rules; 2177 int32_t optionNumber = -1; 2178 const UChar *setStart = NULL; 2179 uint32_t i = 0; 2180 while(i < rulesLength) { 2181 if(rules[i] == 0x005B) { // '[': start of an option 2182 /* Gets the following: 2183 optionNumber: The index of the option. 2184 setStart: The pointer at which the option arguments start. 2185 */ 2186 optionNumber = ucol_uprv_tok_readOption(rules+i+1, rules+rulesLength, &setStart); 2187 2188 if(optionNumber == OPTION_OPTIMIZE) { /* copy - parts of UCA to tailoring */ 2189 // [optimize] 2190 USet *newSet = ucol_uprv_tok_readAndSetUnicodeSet(setStart, rules+rulesLength, status); 2191 if(U_SUCCESS(*status)) { 2192 if(src->copySet == NULL) { 2193 src->copySet = newSet; 2194 } else { 2195 uset_addAll(src->copySet, newSet); 2196 uset_close(newSet); 2197 } 2198 } else { 2199 return; 2200 } 2201 } else if(optionNumber == OPTION_SUPPRESS_CONTRACTIONS) { 2202 USet *newSet = ucol_uprv_tok_readAndSetUnicodeSet(setStart, rules+rulesLength, status); 2203 if(U_SUCCESS(*status)) { 2204 if(src->removeSet == NULL) { 2205 src->removeSet = newSet; 2206 } else { 2207 uset_addAll(src->removeSet, newSet); 2208 uset_close(newSet); 2209 } 2210 } else { 2211 return; 2212 } 2213 } else if(optionNumber == OPTION_IMPORT){ 2214 // [import <collation-name>] 2215 2216 // Find the address of the closing ]. 2217 UChar* import_end = u_strchr(setStart, 0x005D); 2218 int32_t optionEndOffset = (int32_t)(import_end + 1 - rules); 2219 // Ignore trailing whitespace. 2220 while(PatternProps::isWhiteSpace(*(import_end-1))) { 2221 --import_end; 2222 } 2223 2224 int32_t optionLength = (int32_t)(import_end - setStart); 2225 char option[50]; 2226 if(optionLength >= (int32_t)sizeof(option)) { 2227 *status = U_ILLEGAL_ARGUMENT_ERROR; 2228 return; 2229 } 2230 u_UCharsToChars(setStart, option, optionLength); 2231 option[optionLength] = 0; 2232 2233 *status = U_ZERO_ERROR; 2234 char locale[50]; 2235 int32_t templ; 2236 uloc_forLanguageTag(option, locale, (int32_t)sizeof(locale), &templ, status); 2237 if(U_FAILURE(*status)) { 2238 *status = U_ILLEGAL_ARGUMENT_ERROR; 2239 return; 2240 } 2241 2242 char type[50]; 2243 if (uloc_getKeywordValue(locale, "collation", type, (int32_t)sizeof(type), status) <= 0 || 2244 U_FAILURE(*status) 2245 ) { 2246 *status = U_ZERO_ERROR; 2247 uprv_strcpy(type, "standard"); 2248 } 2249 2250 // TODO: Use public functions when available, see ticket #8134. 2251 char *keywords = (char *)locale_getKeywordsStart(locale); 2252 if(keywords != NULL) { 2253 *keywords = 0; 2254 } 2255 2256 int32_t importRulesLength = 0; 2257 const UChar* importRules = importFunc(context, locale, type, &importRulesLength, status); 2258 2259 #ifdef DEBUG_FOR_COLL_RULES 2260 std::string s; 2261 UnicodeString(importRules).toUTF8String(s); 2262 std::cout << "Import rules = " << s << std::endl; 2263 #endif 2264 2265 // Add the length of the imported rules to length of the original rules, 2266 // and subtract the length of the import option. 2267 uint32_t newRulesLength = rulesLength + importRulesLength - (optionEndOffset - i); 2268 2269 UChar* newRules = (UChar*)uprv_malloc(newRulesLength*sizeof(UChar)); 2270 2271 #ifdef DEBUG_FOR_COLL_RULES 2272 std::string s1; 2273 UnicodeString(rules).toUTF8String(s1); 2274 std::cout << "Original rules = " << s1 << std::endl; 2275 #endif 2276 2277 2278 // Copy the section of the original rules leading up to the import 2279 uprv_memcpy(newRules, rules, i*sizeof(UChar)); 2280 // Copy the imported rules 2281 uprv_memcpy(newRules+i, importRules, importRulesLength*sizeof(UChar)); 2282 // Copy the rest of the original rules (minus the import option itself) 2283 uprv_memcpy(newRules+i+importRulesLength, 2284 rules+optionEndOffset, 2285 (rulesLength-optionEndOffset)*sizeof(UChar)); 2286 2287 #ifdef DEBUG_FOR_COLL_RULES 2288 std::string s2; 2289 UnicodeString(newRules).toUTF8String(s2); 2290 std::cout << "Resulting rules = " << s2 << std::endl; 2291 #endif 2292 2293 if(needToDeallocRules){ 2294 // if needToDeallocRules is set, then we allocated rules, so it's safe to cast and free 2295 uprv_free((void*)rules); 2296 } 2297 needToDeallocRules = true; 2298 rules = newRules; 2299 rulesLength = newRulesLength; 2300 2301 estimatedSize += importRulesLength*2; 2302 2303 // First character of the new rules needs to be processed 2304 i--; 2305 } 2306 } 2307 //openBrace++; 2308 i++; 2309 } 2310 2311 src->source = (UChar *)uprv_malloc(estimatedSize*sizeof(UChar)); 2312 /* test for NULL */ 2313 if (src->source == NULL) { 2314 *status = U_MEMORY_ALLOCATION_ERROR; 2315 return; 2316 } 2317 uprv_memset(src->source, 0, estimatedSize*sizeof(UChar)); 2318 nSize = unorm_normalize(rules, rulesLength, UNORM_NFD, 0, src->source, estimatedSize, status); 2319 if(nSize > estimatedSize || *status == U_BUFFER_OVERFLOW_ERROR) { 2320 *status = U_ZERO_ERROR; 2321 src->source = (UChar *)uprv_realloc(src->source, (nSize+UCOL_TOK_EXTRA_RULE_SPACE_SIZE)*sizeof(UChar)); 2322 /* test for NULL */ 2323 if (src->source == NULL) { 2324 *status = U_MEMORY_ALLOCATION_ERROR; 2325 return; 2326 } 2327 nSize = unorm_normalize(rules, rulesLength, UNORM_NFD, 0, src->source, nSize+UCOL_TOK_EXTRA_RULE_SPACE_SIZE, status); 2328 } 2329 if(needToDeallocRules){ 2330 // if needToDeallocRules is set, then we allocated rules, so it's safe to cast and free 2331 uprv_free((void*)rules); 2332 } 2333 2334 2335 src->current = src->source; 2336 src->end = src->source+nSize; 2337 src->sourceCurrent = src->source; 2338 src->extraCurrent = src->end+1; // Preserve terminating zero in the rule string so that option scanning works correctly 2339 src->extraEnd = src->source+estimatedSize; //src->end+UCOL_TOK_EXTRA_RULE_SPACE_SIZE; 2340 src->varTop = NULL; 2341 src->UCA = UCA; 2342 src->invUCA = ucol_initInverseUCA(status); 2343 src->parsedToken.charsLen = 0; 2344 src->parsedToken.charsOffset = 0; 2345 src->parsedToken.extensionLen = 0; 2346 src->parsedToken.extensionOffset = 0; 2347 src->parsedToken.prefixLen = 0; 2348 src->parsedToken.prefixOffset = 0; 2349 src->parsedToken.flags = 0; 2350 src->parsedToken.strength = UCOL_TOK_UNSET; 2351 src->buildCCTabFlag = FALSE; 2352 src->isStarred = FALSE; 2353 src->inRange = FALSE; 2354 src->lastRangeCp = 0; 2355 src->previousCp = 0; 2356 2357 if(U_FAILURE(*status)) { 2358 return; 2359 } 2360 src->tailored = uhash_open(uhash_hashTokens, uhash_compareTokens, NULL, status); 2361 if(U_FAILURE(*status)) { 2362 return; 2363 } 2364 uhash_setValueDeleter(src->tailored, uprv_free); 2365 2366 src->opts = (UColOptionSet *)uprv_malloc(sizeof(UColOptionSet)); 2367 /* test for NULL */ 2368 if (src->opts == NULL) { 2369 *status = U_MEMORY_ALLOCATION_ERROR; 2370 return; 2371 } 2372 2373 uprv_memcpy(src->opts, UCA->options, sizeof(UColOptionSet)); 2374 2375 src->lh = 0; 2376 src->listCapacity = 1024; 2377 src->lh = (UColTokListHeader *)uprv_malloc(src->listCapacity*sizeof(UColTokListHeader)); 2378 //Test for NULL 2379 if (src->lh == NULL) { 2380 *status = U_MEMORY_ALLOCATION_ERROR; 2381 return; 2382 } 2383 uprv_memset(src->lh, 0, src->listCapacity*sizeof(UColTokListHeader)); 2384 src->resultLen = 0; 2385 2386 UCAConstants *consts = (UCAConstants *)((uint8_t *)src->UCA->image + src->UCA->image->UCAConsts); 2387 2388 // UCOL_RESET_TOP_VALUE 2389 setIndirectBoundaries(0, consts->UCA_LAST_NON_VARIABLE, consts->UCA_FIRST_IMPLICIT); 2390 // UCOL_FIRST_PRIMARY_IGNORABLE 2391 setIndirectBoundaries(1, consts->UCA_FIRST_PRIMARY_IGNORABLE, 0); 2392 // UCOL_LAST_PRIMARY_IGNORABLE 2393 setIndirectBoundaries(2, consts->UCA_LAST_PRIMARY_IGNORABLE, 0); 2394 // UCOL_FIRST_SECONDARY_IGNORABLE 2395 setIndirectBoundaries(3, consts->UCA_FIRST_SECONDARY_IGNORABLE, 0); 2396 // UCOL_LAST_SECONDARY_IGNORABLE 2397 setIndirectBoundaries(4, consts->UCA_LAST_SECONDARY_IGNORABLE, 0); 2398 // UCOL_FIRST_TERTIARY_IGNORABLE 2399 setIndirectBoundaries(5, consts->UCA_FIRST_TERTIARY_IGNORABLE, 0); 2400 // UCOL_LAST_TERTIARY_IGNORABLE 2401 setIndirectBoundaries(6, consts->UCA_LAST_TERTIARY_IGNORABLE, 0); 2402 // UCOL_FIRST_VARIABLE 2403 setIndirectBoundaries(7, consts->UCA_FIRST_VARIABLE, 0); 2404 // UCOL_LAST_VARIABLE 2405 setIndirectBoundaries(8, consts->UCA_LAST_VARIABLE, 0); 2406 // UCOL_FIRST_NON_VARIABLE 2407 setIndirectBoundaries(9, consts->UCA_FIRST_NON_VARIABLE, 0); 2408 // UCOL_LAST_NON_VARIABLE 2409 setIndirectBoundaries(10, consts->UCA_LAST_NON_VARIABLE, consts->UCA_FIRST_IMPLICIT); 2410 // UCOL_FIRST_IMPLICIT 2411 setIndirectBoundaries(11, consts->UCA_FIRST_IMPLICIT, 0); 2412 // UCOL_LAST_IMPLICIT 2413 setIndirectBoundaries(12, consts->UCA_LAST_IMPLICIT, consts->UCA_FIRST_TRAILING); 2414 // UCOL_FIRST_TRAILING 2415 setIndirectBoundaries(13, consts->UCA_FIRST_TRAILING, 0); 2416 // UCOL_LAST_TRAILING 2417 setIndirectBoundaries(14, consts->UCA_LAST_TRAILING, 0); 2418 ucolIndirectBoundaries[14].limitCE = (consts->UCA_PRIMARY_SPECIAL_MIN<<24); 2419 } 2420 2421 2422 void ucol_tok_closeTokenList(UColTokenParser *src) { 2423 if(src->copySet != NULL) { 2424 uset_close(src->copySet); 2425 } 2426 if(src->removeSet != NULL) { 2427 uset_close(src->removeSet); 2428 } 2429 if(src->tailored != NULL) { 2430 uhash_close(src->tailored); 2431 } 2432 if(src->lh != NULL) { 2433 uprv_free(src->lh); 2434 } 2435 if(src->source != NULL) { 2436 uprv_free(src->source); 2437 } 2438 if(src->opts != NULL) { 2439 uprv_free(src->opts); 2440 } 2441 if (src->reorderCodes != NULL) { 2442 uprv_free(src->reorderCodes); 2443 } 2444 } 2445 2446 #endif /* #if !UCONFIG_NO_COLLATION */ 2447
