1 /* Copyright (c) 1998, 1999 Thai Open Source Software Center Ltd 2 See the file COPYING for copying permission. 3 */ 4 5 #include <stddef.h> 6 7 #ifdef COMPILED_FROM_DSP 8 #include "winconfig.h" 9 #elif defined(MACOS_CLASSIC) 10 #include "macconfig.h" 11 #elif defined(__amigaos__) 12 #include "amigaconfig.h" 13 #elif defined(__WATCOMC__) 14 #include "watcomconfig.h" 15 #else 16 #ifdef HAVE_EXPAT_CONFIG_H 17 #include <expat_config.h> 18 #endif 19 #endif /* ndef COMPILED_FROM_DSP */ 20 21 #include "expat_external.h" 22 #include "internal.h" 23 #include "xmltok.h" 24 #include "nametab.h" 25 26 #ifdef XML_DTD 27 #define IGNORE_SECTION_TOK_VTABLE , PREFIX(ignoreSectionTok) 28 #else 29 #define IGNORE_SECTION_TOK_VTABLE /* as nothing */ 30 #endif 31 32 #define VTABLE1 \ 33 { PREFIX(prologTok), PREFIX(contentTok), \ 34 PREFIX(cdataSectionTok) IGNORE_SECTION_TOK_VTABLE }, \ 35 { PREFIX(attributeValueTok), PREFIX(entityValueTok) }, \ 36 PREFIX(sameName), \ 37 PREFIX(nameMatchesAscii), \ 38 PREFIX(nameLength), \ 39 PREFIX(skipS), \ 40 PREFIX(getAtts), \ 41 PREFIX(charRefNumber), \ 42 PREFIX(predefinedEntityName), \ 43 PREFIX(updatePosition), \ 44 PREFIX(isPublicId) 45 46 #define VTABLE VTABLE1, PREFIX(toUtf8), PREFIX(toUtf16) 47 48 #define UCS2_GET_NAMING(pages, hi, lo) \ 49 (namingBitmap[(pages[hi] << 3) + ((lo) >> 5)] & (1 << ((lo) & 0x1F))) 50 51 /* A 2 byte UTF-8 representation splits the characters 11 bits between 52 the bottom 5 and 6 bits of the bytes. We need 8 bits to index into 53 pages, 3 bits to add to that index and 5 bits to generate the mask. 54 */ 55 #define UTF8_GET_NAMING2(pages, byte) \ 56 (namingBitmap[((pages)[(((byte)[0]) >> 2) & 7] << 3) \ 57 + ((((byte)[0]) & 3) << 1) \ 58 + ((((byte)[1]) >> 5) & 1)] \ 59 & (1 << (((byte)[1]) & 0x1F))) 60 61 /* A 3 byte UTF-8 representation splits the characters 16 bits between 62 the bottom 4, 6 and 6 bits of the bytes. We need 8 bits to index 63 into pages, 3 bits to add to that index and 5 bits to generate the 64 mask. 65 */ 66 #define UTF8_GET_NAMING3(pages, byte) \ 67 (namingBitmap[((pages)[((((byte)[0]) & 0xF) << 4) \ 68 + ((((byte)[1]) >> 2) & 0xF)] \ 69 << 3) \ 70 + ((((byte)[1]) & 3) << 1) \ 71 + ((((byte)[2]) >> 5) & 1)] \ 72 & (1 << (((byte)[2]) & 0x1F))) 73 74 #define UTF8_GET_NAMING(pages, p, n) \ 75 ((n) == 2 \ 76 ? UTF8_GET_NAMING2(pages, (const unsigned char *)(p)) \ 77 : ((n) == 3 \ 78 ? UTF8_GET_NAMING3(pages, (const unsigned char *)(p)) \ 79 : 0)) 80 81 /* Detection of invalid UTF-8 sequences is based on Table 3.1B 82 of Unicode 3.2: http://www.unicode.org/unicode/reports/tr28/ 83 with the additional restriction of not allowing the Unicode 84 code points 0xFFFF and 0xFFFE (sequences EF,BF,BF and EF,BF,BE). 85 Implementation details: 86 (A & 0x80) == 0 means A < 0x80 87 and 88 (A & 0xC0) == 0xC0 means A > 0xBF 89 */ 90 91 #define UTF8_INVALID2(p) \ 92 ((*p) < 0xC2 || ((p)[1] & 0x80) == 0 || ((p)[1] & 0xC0) == 0xC0) 93 94 #define UTF8_INVALID3(p) \ 95 (((p)[2] & 0x80) == 0 \ 96 || \ 97 ((*p) == 0xEF && (p)[1] == 0xBF \ 98 ? \ 99 (p)[2] > 0xBD \ 100 : \ 101 ((p)[2] & 0xC0) == 0xC0) \ 102 || \ 103 ((*p) == 0xE0 \ 104 ? \ 105 (p)[1] < 0xA0 || ((p)[1] & 0xC0) == 0xC0 \ 106 : \ 107 ((p)[1] & 0x80) == 0 \ 108 || \ 109 ((*p) == 0xED ? (p)[1] > 0x9F : ((p)[1] & 0xC0) == 0xC0))) 110 111 #define UTF8_INVALID4(p) \ 112 (((p)[3] & 0x80) == 0 || ((p)[3] & 0xC0) == 0xC0 \ 113 || \ 114 ((p)[2] & 0x80) == 0 || ((p)[2] & 0xC0) == 0xC0 \ 115 || \ 116 ((*p) == 0xF0 \ 117 ? \ 118 (p)[1] < 0x90 || ((p)[1] & 0xC0) == 0xC0 \ 119 : \ 120 ((p)[1] & 0x80) == 0 \ 121 || \ 122 ((*p) == 0xF4 ? (p)[1] > 0x8F : ((p)[1] & 0xC0) == 0xC0))) 123 124 static int PTRFASTCALL 125 isNever(const ENCODING *enc, const char *p) 126 { 127 return 0; 128 } 129 130 static int PTRFASTCALL 131 utf8_isName2(const ENCODING *enc, const char *p) 132 { 133 return UTF8_GET_NAMING2(namePages, (const unsigned char *)p); 134 } 135 136 static int PTRFASTCALL 137 utf8_isName3(const ENCODING *enc, const char *p) 138 { 139 return UTF8_GET_NAMING3(namePages, (const unsigned char *)p); 140 } 141 142 #define utf8_isName4 isNever 143 144 static int PTRFASTCALL 145 utf8_isNmstrt2(const ENCODING *enc, const char *p) 146 { 147 return UTF8_GET_NAMING2(nmstrtPages, (const unsigned char *)p); 148 } 149 150 static int PTRFASTCALL 151 utf8_isNmstrt3(const ENCODING *enc, const char *p) 152 { 153 return UTF8_GET_NAMING3(nmstrtPages, (const unsigned char *)p); 154 } 155 156 #define utf8_isNmstrt4 isNever 157 158 static int PTRFASTCALL 159 utf8_isInvalid2(const ENCODING *enc, const char *p) 160 { 161 return UTF8_INVALID2((const unsigned char *)p); 162 } 163 164 static int PTRFASTCALL 165 utf8_isInvalid3(const ENCODING *enc, const char *p) 166 { 167 return UTF8_INVALID3((const unsigned char *)p); 168 } 169 170 static int PTRFASTCALL 171 utf8_isInvalid4(const ENCODING *enc, const char *p) 172 { 173 return UTF8_INVALID4((const unsigned char *)p); 174 } 175 176 struct normal_encoding { 177 ENCODING enc; 178 unsigned char type[256]; 179 #ifdef XML_MIN_SIZE 180 int (PTRFASTCALL *byteType)(const ENCODING *, const char *); 181 int (PTRFASTCALL *isNameMin)(const ENCODING *, const char *); 182 int (PTRFASTCALL *isNmstrtMin)(const ENCODING *, const char *); 183 int (PTRFASTCALL *byteToAscii)(const ENCODING *, const char *); 184 int (PTRCALL *charMatches)(const ENCODING *, const char *, int); 185 #endif /* XML_MIN_SIZE */ 186 int (PTRFASTCALL *isName2)(const ENCODING *, const char *); 187 int (PTRFASTCALL *isName3)(const ENCODING *, const char *); 188 int (PTRFASTCALL *isName4)(const ENCODING *, const char *); 189 int (PTRFASTCALL *isNmstrt2)(const ENCODING *, const char *); 190 int (PTRFASTCALL *isNmstrt3)(const ENCODING *, const char *); 191 int (PTRFASTCALL *isNmstrt4)(const ENCODING *, const char *); 192 int (PTRFASTCALL *isInvalid2)(const ENCODING *, const char *); 193 int (PTRFASTCALL *isInvalid3)(const ENCODING *, const char *); 194 int (PTRFASTCALL *isInvalid4)(const ENCODING *, const char *); 195 }; 196 197 #define AS_NORMAL_ENCODING(enc) ((const struct normal_encoding *) (enc)) 198 199 #ifdef XML_MIN_SIZE 200 201 #define STANDARD_VTABLE(E) \ 202 E ## byteType, \ 203 E ## isNameMin, \ 204 E ## isNmstrtMin, \ 205 E ## byteToAscii, \ 206 E ## charMatches, 207 208 #else 209 210 #define STANDARD_VTABLE(E) /* as nothing */ 211 212 #endif 213 214 #define NORMAL_VTABLE(E) \ 215 E ## isName2, \ 216 E ## isName3, \ 217 E ## isName4, \ 218 E ## isNmstrt2, \ 219 E ## isNmstrt3, \ 220 E ## isNmstrt4, \ 221 E ## isInvalid2, \ 222 E ## isInvalid3, \ 223 E ## isInvalid4 224 225 static int FASTCALL checkCharRefNumber(int); 226 227 #include "xmltok_impl.h" 228 #include "ascii.h" 229 230 #ifdef XML_MIN_SIZE 231 #define sb_isNameMin isNever 232 #define sb_isNmstrtMin isNever 233 #endif 234 235 #ifdef XML_MIN_SIZE 236 #define MINBPC(enc) ((enc)->minBytesPerChar) 237 #else 238 /* minimum bytes per character */ 239 #define MINBPC(enc) 1 240 #endif 241 242 #define SB_BYTE_TYPE(enc, p) \ 243 (((struct normal_encoding *)(enc))->type[(unsigned char)*(p)]) 244 245 #ifdef XML_MIN_SIZE 246 static int PTRFASTCALL 247 sb_byteType(const ENCODING *enc, const char *p) 248 { 249 return SB_BYTE_TYPE(enc, p); 250 } 251 #define BYTE_TYPE(enc, p) \ 252 (AS_NORMAL_ENCODING(enc)->byteType(enc, p)) 253 #else 254 #define BYTE_TYPE(enc, p) SB_BYTE_TYPE(enc, p) 255 #endif 256 257 #ifdef XML_MIN_SIZE 258 #define BYTE_TO_ASCII(enc, p) \ 259 (AS_NORMAL_ENCODING(enc)->byteToAscii(enc, p)) 260 static int PTRFASTCALL 261 sb_byteToAscii(const ENCODING *enc, const char *p) 262 { 263 return *p; 264 } 265 #else 266 #define BYTE_TO_ASCII(enc, p) (*(p)) 267 #endif 268 269 #define IS_NAME_CHAR(enc, p, n) \ 270 (AS_NORMAL_ENCODING(enc)->isName ## n(enc, p)) 271 #define IS_NMSTRT_CHAR(enc, p, n) \ 272 (AS_NORMAL_ENCODING(enc)->isNmstrt ## n(enc, p)) 273 #define IS_INVALID_CHAR(enc, p, n) \ 274 (AS_NORMAL_ENCODING(enc)->isInvalid ## n(enc, p)) 275 276 #ifdef XML_MIN_SIZE 277 #define IS_NAME_CHAR_MINBPC(enc, p) \ 278 (AS_NORMAL_ENCODING(enc)->isNameMin(enc, p)) 279 #define IS_NMSTRT_CHAR_MINBPC(enc, p) \ 280 (AS_NORMAL_ENCODING(enc)->isNmstrtMin(enc, p)) 281 #else 282 #define IS_NAME_CHAR_MINBPC(enc, p) (0) 283 #define IS_NMSTRT_CHAR_MINBPC(enc, p) (0) 284 #endif 285 286 #ifdef XML_MIN_SIZE 287 #define CHAR_MATCHES(enc, p, c) \ 288 (AS_NORMAL_ENCODING(enc)->charMatches(enc, p, c)) 289 static int PTRCALL 290 sb_charMatches(const ENCODING *enc, const char *p, int c) 291 { 292 return *p == c; 293 } 294 #else 295 /* c is an ASCII character */ 296 #define CHAR_MATCHES(enc, p, c) (*(p) == c) 297 #endif 298 299 #define PREFIX(ident) normal_ ## ident 300 #define XML_TOK_IMPL_C 301 #include "xmltok_impl.c" 302 #undef XML_TOK_IMPL_C 303 304 #undef MINBPC 305 #undef BYTE_TYPE 306 #undef BYTE_TO_ASCII 307 #undef CHAR_MATCHES 308 #undef IS_NAME_CHAR 309 #undef IS_NAME_CHAR_MINBPC 310 #undef IS_NMSTRT_CHAR 311 #undef IS_NMSTRT_CHAR_MINBPC 312 #undef IS_INVALID_CHAR 313 314 enum { /* UTF8_cvalN is value of masked first byte of N byte sequence */ 315 UTF8_cval1 = 0x00, 316 UTF8_cval2 = 0xc0, 317 UTF8_cval3 = 0xe0, 318 UTF8_cval4 = 0xf0 319 }; 320 321 static void PTRCALL 322 utf8_toUtf8(const ENCODING *enc, 323 const char **fromP, const char *fromLim, 324 char **toP, const char *toLim) 325 { 326 char *to; 327 const char *from; 328 if (fromLim - *fromP > toLim - *toP) { 329 /* Avoid copying partial characters. */ 330 for (fromLim = *fromP + (toLim - *toP); fromLim > *fromP; fromLim--) 331 if (((unsigned char)fromLim[-1] & 0xc0) != 0x80) 332 break; 333 } 334 for (to = *toP, from = *fromP; from != fromLim; from++, to++) 335 *to = *from; 336 *fromP = from; 337 *toP = to; 338 } 339 340 static void PTRCALL 341 utf8_toUtf16(const ENCODING *enc, 342 const char **fromP, const char *fromLim, 343 unsigned short **toP, const unsigned short *toLim) 344 { 345 unsigned short *to = *toP; 346 const char *from = *fromP; 347 while (from != fromLim && to != toLim) { 348 switch (((struct normal_encoding *)enc)->type[(unsigned char)*from]) { 349 case BT_LEAD2: 350 *to++ = (unsigned short)(((from[0] & 0x1f) << 6) | (from[1] & 0x3f)); 351 from += 2; 352 break; 353 case BT_LEAD3: 354 *to++ = (unsigned short)(((from[0] & 0xf) << 12) 355 | ((from[1] & 0x3f) << 6) | (from[2] & 0x3f)); 356 from += 3; 357 break; 358 case BT_LEAD4: 359 { 360 unsigned long n; 361 if (to + 1 == toLim) 362 goto after; 363 n = ((from[0] & 0x7) << 18) | ((from[1] & 0x3f) << 12) 364 | ((from[2] & 0x3f) << 6) | (from[3] & 0x3f); 365 n -= 0x10000; 366 to[0] = (unsigned short)((n >> 10) | 0xD800); 367 to[1] = (unsigned short)((n & 0x3FF) | 0xDC00); 368 to += 2; 369 from += 4; 370 } 371 break; 372 default: 373 *to++ = *from++; 374 break; 375 } 376 } 377 after: 378 *fromP = from; 379 *toP = to; 380 } 381 382 #ifdef XML_NS 383 static const struct normal_encoding utf8_encoding_ns = { 384 { VTABLE1, utf8_toUtf8, utf8_toUtf16, 1, 1, 0 }, 385 { 386 #include "asciitab.h" 387 #include "utf8tab.h" 388 }, 389 STANDARD_VTABLE(sb_) NORMAL_VTABLE(utf8_) 390 }; 391 #endif 392 393 static const struct normal_encoding utf8_encoding = { 394 { VTABLE1, utf8_toUtf8, utf8_toUtf16, 1, 1, 0 }, 395 { 396 #define BT_COLON BT_NMSTRT 397 #include "asciitab.h" 398 #undef BT_COLON 399 #include "utf8tab.h" 400 }, 401 STANDARD_VTABLE(sb_) NORMAL_VTABLE(utf8_) 402 }; 403 404 #ifdef XML_NS 405 406 static const struct normal_encoding internal_utf8_encoding_ns = { 407 { VTABLE1, utf8_toUtf8, utf8_toUtf16, 1, 1, 0 }, 408 { 409 #include "iasciitab.h" 410 #include "utf8tab.h" 411 }, 412 STANDARD_VTABLE(sb_) NORMAL_VTABLE(utf8_) 413 }; 414 415 #endif 416 417 static const struct normal_encoding internal_utf8_encoding = { 418 { VTABLE1, utf8_toUtf8, utf8_toUtf16, 1, 1, 0 }, 419 { 420 #define BT_COLON BT_NMSTRT 421 #include "iasciitab.h" 422 #undef BT_COLON 423 #include "utf8tab.h" 424 }, 425 STANDARD_VTABLE(sb_) NORMAL_VTABLE(utf8_) 426 }; 427 428 static void PTRCALL 429 latin1_toUtf8(const ENCODING *enc, 430 const char **fromP, const char *fromLim, 431 char **toP, const char *toLim) 432 { 433 for (;;) { 434 unsigned char c; 435 if (*fromP == fromLim) 436 break; 437 c = (unsigned char)**fromP; 438 if (c & 0x80) { 439 if (toLim - *toP < 2) 440 break; 441 *(*toP)++ = (char)((c >> 6) | UTF8_cval2); 442 *(*toP)++ = (char)((c & 0x3f) | 0x80); 443 (*fromP)++; 444 } 445 else { 446 if (*toP == toLim) 447 break; 448 *(*toP)++ = *(*fromP)++; 449 } 450 } 451 } 452 453 static void PTRCALL 454 latin1_toUtf16(const ENCODING *enc, 455 const char **fromP, const char *fromLim, 456 unsigned short **toP, const unsigned short *toLim) 457 { 458 while (*fromP != fromLim && *toP != toLim) 459 *(*toP)++ = (unsigned char)*(*fromP)++; 460 } 461 462 #ifdef XML_NS 463 464 static const struct normal_encoding latin1_encoding_ns = { 465 { VTABLE1, latin1_toUtf8, latin1_toUtf16, 1, 0, 0 }, 466 { 467 #include "asciitab.h" 468 #include "latin1tab.h" 469 }, 470 STANDARD_VTABLE(sb_) 471 }; 472 473 #endif 474 475 static const struct normal_encoding latin1_encoding = { 476 { VTABLE1, latin1_toUtf8, latin1_toUtf16, 1, 0, 0 }, 477 { 478 #define BT_COLON BT_NMSTRT 479 #include "asciitab.h" 480 #undef BT_COLON 481 #include "latin1tab.h" 482 }, 483 STANDARD_VTABLE(sb_) 484 }; 485 486 static void PTRCALL 487 ascii_toUtf8(const ENCODING *enc, 488 const char **fromP, const char *fromLim, 489 char **toP, const char *toLim) 490 { 491 while (*fromP != fromLim && *toP != toLim) 492 *(*toP)++ = *(*fromP)++; 493 } 494 495 #ifdef XML_NS 496 497 static const struct normal_encoding ascii_encoding_ns = { 498 { VTABLE1, ascii_toUtf8, latin1_toUtf16, 1, 1, 0 }, 499 { 500 #include "asciitab.h" 501 /* BT_NONXML == 0 */ 502 }, 503 STANDARD_VTABLE(sb_) 504 }; 505 506 #endif 507 508 static const struct normal_encoding ascii_encoding = { 509 { VTABLE1, ascii_toUtf8, latin1_toUtf16, 1, 1, 0 }, 510 { 511 #define BT_COLON BT_NMSTRT 512 #include "asciitab.h" 513 #undef BT_COLON 514 /* BT_NONXML == 0 */ 515 }, 516 STANDARD_VTABLE(sb_) 517 }; 518 519 static int PTRFASTCALL 520 unicode_byte_type(char hi, char lo) 521 { 522 switch ((unsigned char)hi) { 523 case 0xD8: case 0xD9: case 0xDA: case 0xDB: 524 return BT_LEAD4; 525 case 0xDC: case 0xDD: case 0xDE: case 0xDF: 526 return BT_TRAIL; 527 case 0xFF: 528 switch ((unsigned char)lo) { 529 case 0xFF: 530 case 0xFE: 531 return BT_NONXML; 532 } 533 break; 534 } 535 return BT_NONASCII; 536 } 537 538 #define DEFINE_UTF16_TO_UTF8(E) \ 539 static void PTRCALL \ 540 E ## toUtf8(const ENCODING *enc, \ 541 const char **fromP, const char *fromLim, \ 542 char **toP, const char *toLim) \ 543 { \ 544 const char *from; \ 545 for (from = *fromP; from != fromLim; from += 2) { \ 546 int plane; \ 547 unsigned char lo2; \ 548 unsigned char lo = GET_LO(from); \ 549 unsigned char hi = GET_HI(from); \ 550 switch (hi) { \ 551 case 0: \ 552 if (lo < 0x80) { \ 553 if (*toP == toLim) { \ 554 *fromP = from; \ 555 return; \ 556 } \ 557 *(*toP)++ = lo; \ 558 break; \ 559 } \ 560 /* fall through */ \ 561 case 0x1: case 0x2: case 0x3: \ 562 case 0x4: case 0x5: case 0x6: case 0x7: \ 563 if (toLim - *toP < 2) { \ 564 *fromP = from; \ 565 return; \ 566 } \ 567 *(*toP)++ = ((lo >> 6) | (hi << 2) | UTF8_cval2); \ 568 *(*toP)++ = ((lo & 0x3f) | 0x80); \ 569 break; \ 570 default: \ 571 if (toLim - *toP < 3) { \ 572 *fromP = from; \ 573 return; \ 574 } \ 575 /* 16 bits divided 4, 6, 6 amongst 3 bytes */ \ 576 *(*toP)++ = ((hi >> 4) | UTF8_cval3); \ 577 *(*toP)++ = (((hi & 0xf) << 2) | (lo >> 6) | 0x80); \ 578 *(*toP)++ = ((lo & 0x3f) | 0x80); \ 579 break; \ 580 case 0xD8: case 0xD9: case 0xDA: case 0xDB: \ 581 if (toLim - *toP < 4) { \ 582 *fromP = from; \ 583 return; \ 584 } \ 585 plane = (((hi & 0x3) << 2) | ((lo >> 6) & 0x3)) + 1; \ 586 *(*toP)++ = ((plane >> 2) | UTF8_cval4); \ 587 *(*toP)++ = (((lo >> 2) & 0xF) | ((plane & 0x3) << 4) | 0x80); \ 588 from += 2; \ 589 lo2 = GET_LO(from); \ 590 *(*toP)++ = (((lo & 0x3) << 4) \ 591 | ((GET_HI(from) & 0x3) << 2) \ 592 | (lo2 >> 6) \ 593 | 0x80); \ 594 *(*toP)++ = ((lo2 & 0x3f) | 0x80); \ 595 break; \ 596 } \ 597 } \ 598 *fromP = from; \ 599 } 600 601 #define DEFINE_UTF16_TO_UTF16(E) \ 602 static void PTRCALL \ 603 E ## toUtf16(const ENCODING *enc, \ 604 const char **fromP, const char *fromLim, \ 605 unsigned short **toP, const unsigned short *toLim) \ 606 { \ 607 /* Avoid copying first half only of surrogate */ \ 608 if (fromLim - *fromP > ((toLim - *toP) << 1) \ 609 && (GET_HI(fromLim - 2) & 0xF8) == 0xD8) \ 610 fromLim -= 2; \ 611 for (; *fromP != fromLim && *toP != toLim; *fromP += 2) \ 612 *(*toP)++ = (GET_HI(*fromP) << 8) | GET_LO(*fromP); \ 613 } 614 615 #define SET2(ptr, ch) \ 616 (((ptr)[0] = ((ch) & 0xff)), ((ptr)[1] = ((ch) >> 8))) 617 #define GET_LO(ptr) ((unsigned char)(ptr)[0]) 618 #define GET_HI(ptr) ((unsigned char)(ptr)[1]) 619 620 DEFINE_UTF16_TO_UTF8(little2_) 621 DEFINE_UTF16_TO_UTF16(little2_) 622 623 #undef SET2 624 #undef GET_LO 625 #undef GET_HI 626 627 #define SET2(ptr, ch) \ 628 (((ptr)[0] = ((ch) >> 8)), ((ptr)[1] = ((ch) & 0xFF))) 629 #define GET_LO(ptr) ((unsigned char)(ptr)[1]) 630 #define GET_HI(ptr) ((unsigned char)(ptr)[0]) 631 632 DEFINE_UTF16_TO_UTF8(big2_) 633 DEFINE_UTF16_TO_UTF16(big2_) 634 635 #undef SET2 636 #undef GET_LO 637 #undef GET_HI 638 639 #define LITTLE2_BYTE_TYPE(enc, p) \ 640 ((p)[1] == 0 \ 641 ? ((struct normal_encoding *)(enc))->type[(unsigned char)*(p)] \ 642 : unicode_byte_type((p)[1], (p)[0])) 643 #define LITTLE2_BYTE_TO_ASCII(enc, p) ((p)[1] == 0 ? (p)[0] : -1) 644 #define LITTLE2_CHAR_MATCHES(enc, p, c) ((p)[1] == 0 && (p)[0] == c) 645 #define LITTLE2_IS_NAME_CHAR_MINBPC(enc, p) \ 646 UCS2_GET_NAMING(namePages, (unsigned char)p[1], (unsigned char)p[0]) 647 #define LITTLE2_IS_NMSTRT_CHAR_MINBPC(enc, p) \ 648 UCS2_GET_NAMING(nmstrtPages, (unsigned char)p[1], (unsigned char)p[0]) 649 650 #ifdef XML_MIN_SIZE 651 652 static int PTRFASTCALL 653 little2_byteType(const ENCODING *enc, const char *p) 654 { 655 return LITTLE2_BYTE_TYPE(enc, p); 656 } 657 658 static int PTRFASTCALL 659 little2_byteToAscii(const ENCODING *enc, const char *p) 660 { 661 return LITTLE2_BYTE_TO_ASCII(enc, p); 662 } 663 664 static int PTRCALL 665 little2_charMatches(const ENCODING *enc, const char *p, int c) 666 { 667 return LITTLE2_CHAR_MATCHES(enc, p, c); 668 } 669 670 static int PTRFASTCALL 671 little2_isNameMin(const ENCODING *enc, const char *p) 672 { 673 return LITTLE2_IS_NAME_CHAR_MINBPC(enc, p); 674 } 675 676 static int PTRFASTCALL 677 little2_isNmstrtMin(const ENCODING *enc, const char *p) 678 { 679 return LITTLE2_IS_NMSTRT_CHAR_MINBPC(enc, p); 680 } 681 682 #undef VTABLE 683 #define VTABLE VTABLE1, little2_toUtf8, little2_toUtf16 684 685 #else /* not XML_MIN_SIZE */ 686 687 #undef PREFIX 688 #define PREFIX(ident) little2_ ## ident 689 #define MINBPC(enc) 2 690 /* CHAR_MATCHES is guaranteed to have MINBPC bytes available. */ 691 #define BYTE_TYPE(enc, p) LITTLE2_BYTE_TYPE(enc, p) 692 #define BYTE_TO_ASCII(enc, p) LITTLE2_BYTE_TO_ASCII(enc, p) 693 #define CHAR_MATCHES(enc, p, c) LITTLE2_CHAR_MATCHES(enc, p, c) 694 #define IS_NAME_CHAR(enc, p, n) 0 695 #define IS_NAME_CHAR_MINBPC(enc, p) LITTLE2_IS_NAME_CHAR_MINBPC(enc, p) 696 #define IS_NMSTRT_CHAR(enc, p, n) (0) 697 #define IS_NMSTRT_CHAR_MINBPC(enc, p) LITTLE2_IS_NMSTRT_CHAR_MINBPC(enc, p) 698 699 #define XML_TOK_IMPL_C 700 #include "xmltok_impl.c" 701 #undef XML_TOK_IMPL_C 702 703 #undef MINBPC 704 #undef BYTE_TYPE 705 #undef BYTE_TO_ASCII 706 #undef CHAR_MATCHES 707 #undef IS_NAME_CHAR 708 #undef IS_NAME_CHAR_MINBPC 709 #undef IS_NMSTRT_CHAR 710 #undef IS_NMSTRT_CHAR_MINBPC 711 #undef IS_INVALID_CHAR 712 713 #endif /* not XML_MIN_SIZE */ 714 715 #ifdef XML_NS 716 717 static const struct normal_encoding little2_encoding_ns = { 718 { VTABLE, 2, 0, 719 #if BYTEORDER == 1234 720 1 721 #else 722 0 723 #endif 724 }, 725 { 726 #include "asciitab.h" 727 #include "latin1tab.h" 728 }, 729 STANDARD_VTABLE(little2_) 730 }; 731 732 #endif 733 734 static const struct normal_encoding little2_encoding = { 735 { VTABLE, 2, 0, 736 #if BYTEORDER == 1234 737 1 738 #else 739 0 740 #endif 741 }, 742 { 743 #define BT_COLON BT_NMSTRT 744 #include "asciitab.h" 745 #undef BT_COLON 746 #include "latin1tab.h" 747 }, 748 STANDARD_VTABLE(little2_) 749 }; 750 751 #if BYTEORDER != 4321 752 753 #ifdef XML_NS 754 755 static const struct normal_encoding internal_little2_encoding_ns = { 756 { VTABLE, 2, 0, 1 }, 757 { 758 #include "iasciitab.h" 759 #include "latin1tab.h" 760 }, 761 STANDARD_VTABLE(little2_) 762 }; 763 764 #endif 765 766 static const struct normal_encoding internal_little2_encoding = { 767 { VTABLE, 2, 0, 1 }, 768 { 769 #define BT_COLON BT_NMSTRT 770 #include "iasciitab.h" 771 #undef BT_COLON 772 #include "latin1tab.h" 773 }, 774 STANDARD_VTABLE(little2_) 775 }; 776 777 #endif 778 779 780 #define BIG2_BYTE_TYPE(enc, p) \ 781 ((p)[0] == 0 \ 782 ? ((struct normal_encoding *)(enc))->type[(unsigned char)(p)[1]] \ 783 : unicode_byte_type((p)[0], (p)[1])) 784 #define BIG2_BYTE_TO_ASCII(enc, p) ((p)[0] == 0 ? (p)[1] : -1) 785 #define BIG2_CHAR_MATCHES(enc, p, c) ((p)[0] == 0 && (p)[1] == c) 786 #define BIG2_IS_NAME_CHAR_MINBPC(enc, p) \ 787 UCS2_GET_NAMING(namePages, (unsigned char)p[0], (unsigned char)p[1]) 788 #define BIG2_IS_NMSTRT_CHAR_MINBPC(enc, p) \ 789 UCS2_GET_NAMING(nmstrtPages, (unsigned char)p[0], (unsigned char)p[1]) 790 791 #ifdef XML_MIN_SIZE 792 793 static int PTRFASTCALL 794 big2_byteType(const ENCODING *enc, const char *p) 795 { 796 return BIG2_BYTE_TYPE(enc, p); 797 } 798 799 static int PTRFASTCALL 800 big2_byteToAscii(const ENCODING *enc, const char *p) 801 { 802 return BIG2_BYTE_TO_ASCII(enc, p); 803 } 804 805 static int PTRCALL 806 big2_charMatches(const ENCODING *enc, const char *p, int c) 807 { 808 return BIG2_CHAR_MATCHES(enc, p, c); 809 } 810 811 static int PTRFASTCALL 812 big2_isNameMin(const ENCODING *enc, const char *p) 813 { 814 return BIG2_IS_NAME_CHAR_MINBPC(enc, p); 815 } 816 817 static int PTRFASTCALL 818 big2_isNmstrtMin(const ENCODING *enc, const char *p) 819 { 820 return BIG2_IS_NMSTRT_CHAR_MINBPC(enc, p); 821 } 822 823 #undef VTABLE 824 #define VTABLE VTABLE1, big2_toUtf8, big2_toUtf16 825 826 #else /* not XML_MIN_SIZE */ 827 828 #undef PREFIX 829 #define PREFIX(ident) big2_ ## ident 830 #define MINBPC(enc) 2 831 /* CHAR_MATCHES is guaranteed to have MINBPC bytes available. */ 832 #define BYTE_TYPE(enc, p) BIG2_BYTE_TYPE(enc, p) 833 #define BYTE_TO_ASCII(enc, p) BIG2_BYTE_TO_ASCII(enc, p) 834 #define CHAR_MATCHES(enc, p, c) BIG2_CHAR_MATCHES(enc, p, c) 835 #define IS_NAME_CHAR(enc, p, n) 0 836 #define IS_NAME_CHAR_MINBPC(enc, p) BIG2_IS_NAME_CHAR_MINBPC(enc, p) 837 #define IS_NMSTRT_CHAR(enc, p, n) (0) 838 #define IS_NMSTRT_CHAR_MINBPC(enc, p) BIG2_IS_NMSTRT_CHAR_MINBPC(enc, p) 839 840 #define XML_TOK_IMPL_C 841 #include "xmltok_impl.c" 842 #undef XML_TOK_IMPL_C 843 844 #undef MINBPC 845 #undef BYTE_TYPE 846 #undef BYTE_TO_ASCII 847 #undef CHAR_MATCHES 848 #undef IS_NAME_CHAR 849 #undef IS_NAME_CHAR_MINBPC 850 #undef IS_NMSTRT_CHAR 851 #undef IS_NMSTRT_CHAR_MINBPC 852 #undef IS_INVALID_CHAR 853 854 #endif /* not XML_MIN_SIZE */ 855 856 #ifdef XML_NS 857 858 static const struct normal_encoding big2_encoding_ns = { 859 { VTABLE, 2, 0, 860 #if BYTEORDER == 4321 861 1 862 #else 863 0 864 #endif 865 }, 866 { 867 #include "asciitab.h" 868 #include "latin1tab.h" 869 }, 870 STANDARD_VTABLE(big2_) 871 }; 872 873 #endif 874 875 static const struct normal_encoding big2_encoding = { 876 { VTABLE, 2, 0, 877 #if BYTEORDER == 4321 878 1 879 #else 880 0 881 #endif 882 }, 883 { 884 #define BT_COLON BT_NMSTRT 885 #include "asciitab.h" 886 #undef BT_COLON 887 #include "latin1tab.h" 888 }, 889 STANDARD_VTABLE(big2_) 890 }; 891 892 #if BYTEORDER != 1234 893 894 #ifdef XML_NS 895 896 static const struct normal_encoding internal_big2_encoding_ns = { 897 { VTABLE, 2, 0, 1 }, 898 { 899 #include "iasciitab.h" 900 #include "latin1tab.h" 901 }, 902 STANDARD_VTABLE(big2_) 903 }; 904 905 #endif 906 907 static const struct normal_encoding internal_big2_encoding = { 908 { VTABLE, 2, 0, 1 }, 909 { 910 #define BT_COLON BT_NMSTRT 911 #include "iasciitab.h" 912 #undef BT_COLON 913 #include "latin1tab.h" 914 }, 915 STANDARD_VTABLE(big2_) 916 }; 917 918 #endif 919 920 #undef PREFIX 921 922 static int FASTCALL 923 streqci(const char *s1, const char *s2) 924 { 925 for (;;) { 926 char c1 = *s1++; 927 char c2 = *s2++; 928 if (ASCII_a <= c1 && c1 <= ASCII_z) 929 c1 += ASCII_A - ASCII_a; 930 if (ASCII_a <= c2 && c2 <= ASCII_z) 931 c2 += ASCII_A - ASCII_a; 932 if (c1 != c2) 933 return 0; 934 if (!c1) 935 break; 936 } 937 return 1; 938 } 939 940 static void PTRCALL 941 initUpdatePosition(const ENCODING *enc, const char *ptr, 942 const char *end, POSITION *pos) 943 { 944 normal_updatePosition(&utf8_encoding.enc, ptr, end, pos); 945 } 946 947 static int 948 toAscii(const ENCODING *enc, const char *ptr, const char *end) 949 { 950 char buf[1]; 951 char *p = buf; 952 XmlUtf8Convert(enc, &ptr, end, &p, p + 1); 953 if (p == buf) 954 return -1; 955 else 956 return buf[0]; 957 } 958 959 static int FASTCALL 960 isSpace(int c) 961 { 962 switch (c) { 963 case 0x20: 964 case 0xD: 965 case 0xA: 966 case 0x9: 967 return 1; 968 } 969 return 0; 970 } 971 972 /* Return 1 if there's just optional white space or there's an S 973 followed by name=val. 974 */ 975 static int 976 parsePseudoAttribute(const ENCODING *enc, 977 const char *ptr, 978 const char *end, 979 const char **namePtr, 980 const char **nameEndPtr, 981 const char **valPtr, 982 const char **nextTokPtr) 983 { 984 int c; 985 char open; 986 if (ptr == end) { 987 *namePtr = NULL; 988 return 1; 989 } 990 if (!isSpace(toAscii(enc, ptr, end))) { 991 *nextTokPtr = ptr; 992 return 0; 993 } 994 do { 995 ptr += enc->minBytesPerChar; 996 } while (isSpace(toAscii(enc, ptr, end))); 997 if (ptr == end) { 998 *namePtr = NULL; 999 return 1; 1000 } 1001 *namePtr = ptr; 1002 for (;;) { 1003 c = toAscii(enc, ptr, end); 1004 if (c == -1) { 1005 *nextTokPtr = ptr; 1006 return 0; 1007 } 1008 if (c == ASCII_EQUALS) { 1009 *nameEndPtr = ptr; 1010 break; 1011 } 1012 if (isSpace(c)) { 1013 *nameEndPtr = ptr; 1014 do { 1015 ptr += enc->minBytesPerChar; 1016 } while (isSpace(c = toAscii(enc, ptr, end))); 1017 if (c != ASCII_EQUALS) { 1018 *nextTokPtr = ptr; 1019 return 0; 1020 } 1021 break; 1022 } 1023 ptr += enc->minBytesPerChar; 1024 } 1025 if (ptr == *namePtr) { 1026 *nextTokPtr = ptr; 1027 return 0; 1028 } 1029 ptr += enc->minBytesPerChar; 1030 c = toAscii(enc, ptr, end); 1031 while (isSpace(c)) { 1032 ptr += enc->minBytesPerChar; 1033 c = toAscii(enc, ptr, end); 1034 } 1035 if (c != ASCII_QUOT && c != ASCII_APOS) { 1036 *nextTokPtr = ptr; 1037 return 0; 1038 } 1039 open = (char)c; 1040 ptr += enc->minBytesPerChar; 1041 *valPtr = ptr; 1042 for (;; ptr += enc->minBytesPerChar) { 1043 c = toAscii(enc, ptr, end); 1044 if (c == open) 1045 break; 1046 if (!(ASCII_a <= c && c <= ASCII_z) 1047 && !(ASCII_A <= c && c <= ASCII_Z) 1048 && !(ASCII_0 <= c && c <= ASCII_9) 1049 && c != ASCII_PERIOD 1050 && c != ASCII_MINUS 1051 && c != ASCII_UNDERSCORE) { 1052 *nextTokPtr = ptr; 1053 return 0; 1054 } 1055 } 1056 *nextTokPtr = ptr + enc->minBytesPerChar; 1057 return 1; 1058 } 1059 1060 static const char KW_version[] = { 1061 ASCII_v, ASCII_e, ASCII_r, ASCII_s, ASCII_i, ASCII_o, ASCII_n, '\0' 1062 }; 1063 1064 static const char KW_encoding[] = { 1065 ASCII_e, ASCII_n, ASCII_c, ASCII_o, ASCII_d, ASCII_i, ASCII_n, ASCII_g, '\0' 1066 }; 1067 1068 static const char KW_standalone[] = { 1069 ASCII_s, ASCII_t, ASCII_a, ASCII_n, ASCII_d, ASCII_a, ASCII_l, ASCII_o, 1070 ASCII_n, ASCII_e, '\0' 1071 }; 1072 1073 static const char KW_yes[] = { 1074 ASCII_y, ASCII_e, ASCII_s, '\0' 1075 }; 1076 1077 static const char KW_no[] = { 1078 ASCII_n, ASCII_o, '\0' 1079 }; 1080 1081 static int 1082 doParseXmlDecl(const ENCODING *(*encodingFinder)(const ENCODING *, 1083 const char *, 1084 const char *), 1085 int isGeneralTextEntity, 1086 const ENCODING *enc, 1087 const char *ptr, 1088 const char *end, 1089 const char **badPtr, 1090 const char **versionPtr, 1091 const char **versionEndPtr, 1092 const char **encodingName, 1093 const ENCODING **encoding, 1094 int *standalone) 1095 { 1096 const char *val = NULL; 1097 const char *name = NULL; 1098 const char *nameEnd = NULL; 1099 ptr += 5 * enc->minBytesPerChar; 1100 end -= 2 * enc->minBytesPerChar; 1101 if (!parsePseudoAttribute(enc, ptr, end, &name, &nameEnd, &val, &ptr) 1102 || !name) { 1103 *badPtr = ptr; 1104 return 0; 1105 } 1106 if (!XmlNameMatchesAscii(enc, name, nameEnd, KW_version)) { 1107 if (!isGeneralTextEntity) { 1108 *badPtr = name; 1109 return 0; 1110 } 1111 } 1112 else { 1113 if (versionPtr) 1114 *versionPtr = val; 1115 if (versionEndPtr) 1116 *versionEndPtr = ptr; 1117 if (!parsePseudoAttribute(enc, ptr, end, &name, &nameEnd, &val, &ptr)) { 1118 *badPtr = ptr; 1119 return 0; 1120 } 1121 if (!name) { 1122 if (isGeneralTextEntity) { 1123 /* a TextDecl must have an EncodingDecl */ 1124 *badPtr = ptr; 1125 return 0; 1126 } 1127 return 1; 1128 } 1129 } 1130 if (XmlNameMatchesAscii(enc, name, nameEnd, KW_encoding)) { 1131 int c = toAscii(enc, val, end); 1132 if (!(ASCII_a <= c && c <= ASCII_z) && !(ASCII_A <= c && c <= ASCII_Z)) { 1133 *badPtr = val; 1134 return 0; 1135 } 1136 if (encodingName) 1137 *encodingName = val; 1138 if (encoding) 1139 *encoding = encodingFinder(enc, val, ptr - enc->minBytesPerChar); 1140 if (!parsePseudoAttribute(enc, ptr, end, &name, &nameEnd, &val, &ptr)) { 1141 *badPtr = ptr; 1142 return 0; 1143 } 1144 if (!name) 1145 return 1; 1146 } 1147 if (!XmlNameMatchesAscii(enc, name, nameEnd, KW_standalone) 1148 || isGeneralTextEntity) { 1149 *badPtr = name; 1150 return 0; 1151 } 1152 if (XmlNameMatchesAscii(enc, val, ptr - enc->minBytesPerChar, KW_yes)) { 1153 if (standalone) 1154 *standalone = 1; 1155 } 1156 else if (XmlNameMatchesAscii(enc, val, ptr - enc->minBytesPerChar, KW_no)) { 1157 if (standalone) 1158 *standalone = 0; 1159 } 1160 else { 1161 *badPtr = val; 1162 return 0; 1163 } 1164 while (isSpace(toAscii(enc, ptr, end))) 1165 ptr += enc->minBytesPerChar; 1166 if (ptr != end) { 1167 *badPtr = ptr; 1168 return 0; 1169 } 1170 return 1; 1171 } 1172 1173 static int FASTCALL 1174 checkCharRefNumber(int result) 1175 { 1176 switch (result >> 8) { 1177 case 0xD8: case 0xD9: case 0xDA: case 0xDB: 1178 case 0xDC: case 0xDD: case 0xDE: case 0xDF: 1179 return -1; 1180 case 0: 1181 if (latin1_encoding.type[result] == BT_NONXML) 1182 return -1; 1183 break; 1184 case 0xFF: 1185 if (result == 0xFFFE || result == 0xFFFF) 1186 return -1; 1187 break; 1188 } 1189 return result; 1190 } 1191 1192 int FASTCALL 1193 XmlUtf8Encode(int c, char *buf) 1194 { 1195 enum { 1196 /* minN is minimum legal resulting value for N byte sequence */ 1197 min2 = 0x80, 1198 min3 = 0x800, 1199 min4 = 0x10000 1200 }; 1201 1202 if (c < 0) 1203 return 0; 1204 if (c < min2) { 1205 buf[0] = (char)(c | UTF8_cval1); 1206 return 1; 1207 } 1208 if (c < min3) { 1209 buf[0] = (char)((c >> 6) | UTF8_cval2); 1210 buf[1] = (char)((c & 0x3f) | 0x80); 1211 return 2; 1212 } 1213 if (c < min4) { 1214 buf[0] = (char)((c >> 12) | UTF8_cval3); 1215 buf[1] = (char)(((c >> 6) & 0x3f) | 0x80); 1216 buf[2] = (char)((c & 0x3f) | 0x80); 1217 return 3; 1218 } 1219 if (c < 0x110000) { 1220 buf[0] = (char)((c >> 18) | UTF8_cval4); 1221 buf[1] = (char)(((c >> 12) & 0x3f) | 0x80); 1222 buf[2] = (char)(((c >> 6) & 0x3f) | 0x80); 1223 buf[3] = (char)((c & 0x3f) | 0x80); 1224 return 4; 1225 } 1226 return 0; 1227 } 1228 1229 int FASTCALL 1230 XmlUtf16Encode(int charNum, unsigned short *buf) 1231 { 1232 if (charNum < 0) 1233 return 0; 1234 if (charNum < 0x10000) { 1235 buf[0] = (unsigned short)charNum; 1236 return 1; 1237 } 1238 if (charNum < 0x110000) { 1239 charNum -= 0x10000; 1240 buf[0] = (unsigned short)((charNum >> 10) + 0xD800); 1241 buf[1] = (unsigned short)((charNum & 0x3FF) + 0xDC00); 1242 return 2; 1243 } 1244 return 0; 1245 } 1246 1247 struct unknown_encoding { 1248 struct normal_encoding normal; 1249 CONVERTER convert; 1250 void *userData; 1251 unsigned short utf16[256]; 1252 char utf8[256][4]; 1253 }; 1254 1255 #define AS_UNKNOWN_ENCODING(enc) ((const struct unknown_encoding *) (enc)) 1256 1257 int 1258 XmlSizeOfUnknownEncoding(void) 1259 { 1260 return sizeof(struct unknown_encoding); 1261 } 1262 1263 static int PTRFASTCALL 1264 unknown_isName(const ENCODING *enc, const char *p) 1265 { 1266 const struct unknown_encoding *uenc = AS_UNKNOWN_ENCODING(enc); 1267 int c = uenc->convert(uenc->userData, p); 1268 if (c & ~0xFFFF) 1269 return 0; 1270 return UCS2_GET_NAMING(namePages, c >> 8, c & 0xFF); 1271 } 1272 1273 static int PTRFASTCALL 1274 unknown_isNmstrt(const ENCODING *enc, const char *p) 1275 { 1276 const struct unknown_encoding *uenc = AS_UNKNOWN_ENCODING(enc); 1277 int c = uenc->convert(uenc->userData, p); 1278 if (c & ~0xFFFF) 1279 return 0; 1280 return UCS2_GET_NAMING(nmstrtPages, c >> 8, c & 0xFF); 1281 } 1282 1283 static int PTRFASTCALL 1284 unknown_isInvalid(const ENCODING *enc, const char *p) 1285 { 1286 const struct unknown_encoding *uenc = AS_UNKNOWN_ENCODING(enc); 1287 int c = uenc->convert(uenc->userData, p); 1288 return (c & ~0xFFFF) || checkCharRefNumber(c) < 0; 1289 } 1290 1291 static void PTRCALL 1292 unknown_toUtf8(const ENCODING *enc, 1293 const char **fromP, const char *fromLim, 1294 char **toP, const char *toLim) 1295 { 1296 const struct unknown_encoding *uenc = AS_UNKNOWN_ENCODING(enc); 1297 char buf[XML_UTF8_ENCODE_MAX]; 1298 for (;;) { 1299 const char *utf8; 1300 int n; 1301 if (*fromP == fromLim) 1302 break; 1303 utf8 = uenc->utf8[(unsigned char)**fromP]; 1304 n = *utf8++; 1305 if (n == 0) { 1306 int c = uenc->convert(uenc->userData, *fromP); 1307 n = XmlUtf8Encode(c, buf); 1308 if (n > toLim - *toP) 1309 break; 1310 utf8 = buf; 1311 *fromP += (AS_NORMAL_ENCODING(enc)->type[(unsigned char)**fromP] 1312 - (BT_LEAD2 - 2)); 1313 } 1314 else { 1315 if (n > toLim - *toP) 1316 break; 1317 (*fromP)++; 1318 } 1319 do { 1320 *(*toP)++ = *utf8++; 1321 } while (--n != 0); 1322 } 1323 } 1324 1325 static void PTRCALL 1326 unknown_toUtf16(const ENCODING *enc, 1327 const char **fromP, const char *fromLim, 1328 unsigned short **toP, const unsigned short *toLim) 1329 { 1330 const struct unknown_encoding *uenc = AS_UNKNOWN_ENCODING(enc); 1331 while (*fromP != fromLim && *toP != toLim) { 1332 unsigned short c = uenc->utf16[(unsigned char)**fromP]; 1333 if (c == 0) { 1334 c = (unsigned short) 1335 uenc->convert(uenc->userData, *fromP); 1336 *fromP += (AS_NORMAL_ENCODING(enc)->type[(unsigned char)**fromP] 1337 - (BT_LEAD2 - 2)); 1338 } 1339 else 1340 (*fromP)++; 1341 *(*toP)++ = c; 1342 } 1343 } 1344 1345 ENCODING * 1346 XmlInitUnknownEncoding(void *mem, 1347 int *table, 1348 CONVERTER convert, 1349 void *userData) 1350 { 1351 int i; 1352 struct unknown_encoding *e = (struct unknown_encoding *)mem; 1353 for (i = 0; i < (int)sizeof(struct normal_encoding); i++) 1354 ((char *)mem)[i] = ((char *)&latin1_encoding)[i]; 1355 for (i = 0; i < 128; i++) 1356 if (latin1_encoding.type[i] != BT_OTHER 1357 && latin1_encoding.type[i] != BT_NONXML 1358 && table[i] != i) 1359 return 0; 1360 for (i = 0; i < 256; i++) { 1361 int c = table[i]; 1362 if (c == -1) { 1363 e->normal.type[i] = BT_MALFORM; 1364 /* This shouldn't really get used. */ 1365 e->utf16[i] = 0xFFFF; 1366 e->utf8[i][0] = 1; 1367 e->utf8[i][1] = 0; 1368 } 1369 else if (c < 0) { 1370 if (c < -4) 1371 return 0; 1372 e->normal.type[i] = (unsigned char)(BT_LEAD2 - (c + 2)); 1373 e->utf8[i][0] = 0; 1374 e->utf16[i] = 0; 1375 } 1376 else if (c < 0x80) { 1377 if (latin1_encoding.type[c] != BT_OTHER 1378 && latin1_encoding.type[c] != BT_NONXML 1379 && c != i) 1380 return 0; 1381 e->normal.type[i] = latin1_encoding.type[c]; 1382 e->utf8[i][0] = 1; 1383 e->utf8[i][1] = (char)c; 1384 e->utf16[i] = (unsigned short)(c == 0 ? 0xFFFF : c); 1385 } 1386 else if (checkCharRefNumber(c) < 0) { 1387 e->normal.type[i] = BT_NONXML; 1388 /* This shouldn't really get used. */ 1389 e->utf16[i] = 0xFFFF; 1390 e->utf8[i][0] = 1; 1391 e->utf8[i][1] = 0; 1392 } 1393 else { 1394 if (c > 0xFFFF) 1395 return 0; 1396 if (UCS2_GET_NAMING(nmstrtPages, c >> 8, c & 0xff)) 1397 e->normal.type[i] = BT_NMSTRT; 1398 else if (UCS2_GET_NAMING(namePages, c >> 8, c & 0xff)) 1399 e->normal.type[i] = BT_NAME; 1400 else 1401 e->normal.type[i] = BT_OTHER; 1402 e->utf8[i][0] = (char)XmlUtf8Encode(c, e->utf8[i] + 1); 1403 e->utf16[i] = (unsigned short)c; 1404 } 1405 } 1406 e->userData = userData; 1407 e->convert = convert; 1408 if (convert) { 1409 e->normal.isName2 = unknown_isName; 1410 e->normal.isName3 = unknown_isName; 1411 e->normal.isName4 = unknown_isName; 1412 e->normal.isNmstrt2 = unknown_isNmstrt; 1413 e->normal.isNmstrt3 = unknown_isNmstrt; 1414 e->normal.isNmstrt4 = unknown_isNmstrt; 1415 e->normal.isInvalid2 = unknown_isInvalid; 1416 e->normal.isInvalid3 = unknown_isInvalid; 1417 e->normal.isInvalid4 = unknown_isInvalid; 1418 } 1419 e->normal.enc.utf8Convert = unknown_toUtf8; 1420 e->normal.enc.utf16Convert = unknown_toUtf16; 1421 return &(e->normal.enc); 1422 } 1423 1424 /* If this enumeration is changed, getEncodingIndex and encodings 1425 must also be changed. */ 1426 enum { 1427 UNKNOWN_ENC = -1, 1428 ISO_8859_1_ENC = 0, 1429 US_ASCII_ENC, 1430 UTF_8_ENC, 1431 UTF_16_ENC, 1432 UTF_16BE_ENC, 1433 UTF_16LE_ENC, 1434 /* must match encodingNames up to here */ 1435 NO_ENC 1436 }; 1437 1438 static const char KW_ISO_8859_1[] = { 1439 ASCII_I, ASCII_S, ASCII_O, ASCII_MINUS, ASCII_8, ASCII_8, ASCII_5, ASCII_9, 1440 ASCII_MINUS, ASCII_1, '\0' 1441 }; 1442 static const char KW_US_ASCII[] = { 1443 ASCII_U, ASCII_S, ASCII_MINUS, ASCII_A, ASCII_S, ASCII_C, ASCII_I, ASCII_I, 1444 '\0' 1445 }; 1446 static const char KW_UTF_8[] = { 1447 ASCII_U, ASCII_T, ASCII_F, ASCII_MINUS, ASCII_8, '\0' 1448 }; 1449 static const char KW_UTF_16[] = { 1450 ASCII_U, ASCII_T, ASCII_F, ASCII_MINUS, ASCII_1, ASCII_6, '\0' 1451 }; 1452 static const char KW_UTF_16BE[] = { 1453 ASCII_U, ASCII_T, ASCII_F, ASCII_MINUS, ASCII_1, ASCII_6, ASCII_B, ASCII_E, 1454 '\0' 1455 }; 1456 static const char KW_UTF_16LE[] = { 1457 ASCII_U, ASCII_T, ASCII_F, ASCII_MINUS, ASCII_1, ASCII_6, ASCII_L, ASCII_E, 1458 '\0' 1459 }; 1460 1461 static int FASTCALL 1462 getEncodingIndex(const char *name) 1463 { 1464 static const char * const encodingNames[] = { 1465 KW_ISO_8859_1, 1466 KW_US_ASCII, 1467 KW_UTF_8, 1468 KW_UTF_16, 1469 KW_UTF_16BE, 1470 KW_UTF_16LE, 1471 }; 1472 int i; 1473 if (name == NULL) 1474 return NO_ENC; 1475 for (i = 0; i < (int)(sizeof(encodingNames)/sizeof(encodingNames[0])); i++) 1476 if (streqci(name, encodingNames[i])) 1477 return i; 1478 return UNKNOWN_ENC; 1479 } 1480 1481 /* For binary compatibility, we store the index of the encoding 1482 specified at initialization in the isUtf16 member. 1483 */ 1484 1485 #define INIT_ENC_INDEX(enc) ((int)(enc)->initEnc.isUtf16) 1486 #define SET_INIT_ENC_INDEX(enc, i) ((enc)->initEnc.isUtf16 = (char)i) 1487 1488 /* This is what detects the encoding. encodingTable maps from 1489 encoding indices to encodings; INIT_ENC_INDEX(enc) is the index of 1490 the external (protocol) specified encoding; state is 1491 XML_CONTENT_STATE if we're parsing an external text entity, and 1492 XML_PROLOG_STATE otherwise. 1493 */ 1494 1495 1496 static int 1497 initScan(const ENCODING * const *encodingTable, 1498 const INIT_ENCODING *enc, 1499 int state, 1500 const char *ptr, 1501 const char *end, 1502 const char **nextTokPtr) 1503 { 1504 const ENCODING **encPtr; 1505 1506 if (ptr == end) 1507 return XML_TOK_NONE; 1508 encPtr = enc->encPtr; 1509 if (ptr + 1 == end) { 1510 /* only a single byte available for auto-detection */ 1511 #ifndef XML_DTD /* FIXME */ 1512 /* a well-formed document entity must have more than one byte */ 1513 if (state != XML_CONTENT_STATE) 1514 return XML_TOK_PARTIAL; 1515 #endif 1516 /* so we're parsing an external text entity... */ 1517 /* if UTF-16 was externally specified, then we need at least 2 bytes */ 1518 switch (INIT_ENC_INDEX(enc)) { 1519 case UTF_16_ENC: 1520 case UTF_16LE_ENC: 1521 case UTF_16BE_ENC: 1522 return XML_TOK_PARTIAL; 1523 } 1524 switch ((unsigned char)*ptr) { 1525 case 0xFE: 1526 case 0xFF: 1527 case 0xEF: /* possibly first byte of UTF-8 BOM */ 1528 if (INIT_ENC_INDEX(enc) == ISO_8859_1_ENC 1529 && state == XML_CONTENT_STATE) 1530 break; 1531 /* fall through */ 1532 case 0x00: 1533 case 0x3C: 1534 return XML_TOK_PARTIAL; 1535 } 1536 } 1537 else { 1538 switch (((unsigned char)ptr[0] << 8) | (unsigned char)ptr[1]) { 1539 case 0xFEFF: 1540 if (INIT_ENC_INDEX(enc) == ISO_8859_1_ENC 1541 && state == XML_CONTENT_STATE) 1542 break; 1543 *nextTokPtr = ptr + 2; 1544 *encPtr = encodingTable[UTF_16BE_ENC]; 1545 return XML_TOK_BOM; 1546 /* 00 3C is handled in the default case */ 1547 case 0x3C00: 1548 if ((INIT_ENC_INDEX(enc) == UTF_16BE_ENC 1549 || INIT_ENC_INDEX(enc) == UTF_16_ENC) 1550 && state == XML_CONTENT_STATE) 1551 break; 1552 *encPtr = encodingTable[UTF_16LE_ENC]; 1553 return XmlTok(*encPtr, state, ptr, end, nextTokPtr); 1554 case 0xFFFE: 1555 if (INIT_ENC_INDEX(enc) == ISO_8859_1_ENC 1556 && state == XML_CONTENT_STATE) 1557 break; 1558 *nextTokPtr = ptr + 2; 1559 *encPtr = encodingTable[UTF_16LE_ENC]; 1560 return XML_TOK_BOM; 1561 case 0xEFBB: 1562 /* Maybe a UTF-8 BOM (EF BB BF) */ 1563 /* If there's an explicitly specified (external) encoding 1564 of ISO-8859-1 or some flavour of UTF-16 1565 and this is an external text entity, 1566 don't look for the BOM, 1567 because it might be a legal data. 1568 */ 1569 if (state == XML_CONTENT_STATE) { 1570 int e = INIT_ENC_INDEX(enc); 1571 if (e == ISO_8859_1_ENC || e == UTF_16BE_ENC 1572 || e == UTF_16LE_ENC || e == UTF_16_ENC) 1573 break; 1574 } 1575 if (ptr + 2 == end) 1576 return XML_TOK_PARTIAL; 1577 if ((unsigned char)ptr[2] == 0xBF) { 1578 *nextTokPtr = ptr + 3; 1579 *encPtr = encodingTable[UTF_8_ENC]; 1580 return XML_TOK_BOM; 1581 } 1582 break; 1583 default: 1584 if (ptr[0] == '\0') { 1585 /* 0 isn't a legal data character. Furthermore a document 1586 entity can only start with ASCII characters. So the only 1587 way this can fail to be big-endian UTF-16 if it it's an 1588 external parsed general entity that's labelled as 1589 UTF-16LE. 1590 */ 1591 if (state == XML_CONTENT_STATE && INIT_ENC_INDEX(enc) == UTF_16LE_ENC) 1592 break; 1593 *encPtr = encodingTable[UTF_16BE_ENC]; 1594 return XmlTok(*encPtr, state, ptr, end, nextTokPtr); 1595 } 1596 else if (ptr[1] == '\0') { 1597 /* We could recover here in the case: 1598 - parsing an external entity 1599 - second byte is 0 1600 - no externally specified encoding 1601 - no encoding declaration 1602 by assuming UTF-16LE. But we don't, because this would mean when 1603 presented just with a single byte, we couldn't reliably determine 1604 whether we needed further bytes. 1605 */ 1606 if (state == XML_CONTENT_STATE) 1607 break; 1608 *encPtr = encodingTable[UTF_16LE_ENC]; 1609 return XmlTok(*encPtr, state, ptr, end, nextTokPtr); 1610 } 1611 break; 1612 } 1613 } 1614 *encPtr = encodingTable[INIT_ENC_INDEX(enc)]; 1615 return XmlTok(*encPtr, state, ptr, end, nextTokPtr); 1616 } 1617 1618 1619 #define NS(x) x 1620 #define ns(x) x 1621 #define XML_TOK_NS_C 1622 #include "xmltok_ns.c" 1623 #undef XML_TOK_NS_C 1624 #undef NS 1625 #undef ns 1626 1627 #ifdef XML_NS 1628 1629 #define NS(x) x ## NS 1630 #define ns(x) x ## _ns 1631 1632 #define XML_TOK_NS_C 1633 #include "xmltok_ns.c" 1634 #undef XML_TOK_NS_C 1635 1636 #undef NS 1637 #undef ns 1638 1639 ENCODING * 1640 XmlInitUnknownEncodingNS(void *mem, 1641 int *table, 1642 CONVERTER convert, 1643 void *userData) 1644 { 1645 ENCODING *enc = XmlInitUnknownEncoding(mem, table, convert, userData); 1646 if (enc) 1647 ((struct normal_encoding *)enc)->type[ASCII_COLON] = BT_COLON; 1648 return enc; 1649 } 1650 1651 #endif /* XML_NS */ 1652