![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to html.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / standard|
Return to html.c CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / standard |
1.1 misho 1: /*
2: +----------------------------------------------------------------------+
3: | PHP Version 5 |
4: +----------------------------------------------------------------------+
1.1.1.3 ! misho 5: | Copyright (c) 1997-2013 The PHP Group |
1.1 misho 6: +----------------------------------------------------------------------+
7: | This source file is subject to version 3.01 of the PHP license, |
8: | that is bundled with this package in the file LICENSE, and is |
9: | available through the world-wide-web at the following url: |
10: | http://www.php.net/license/3_01.txt |
11: | If you did not receive a copy of the PHP license and are unable to |
12: | obtain it through the world-wide-web, please send a note to |
13: | license@php.net so we can mail you a copy immediately. |
14: +----------------------------------------------------------------------+
15: | Authors: Rasmus Lerdorf <rasmus@php.net> |
1.1.1.2 misho 16: | Jaakko Hyvätti <jaakko.hyvatti@iki.fi> |
17: | Wez Furlong <wez@thebrainroom.com> |
18: | Gustavo Lopes <cataphract@php.net> |
1.1 misho 19: +----------------------------------------------------------------------+
20: */
21:
1.1.1.2 misho 22: /* $Id$ */
1.1 misho 23:
24: /*
25: * HTML entity resources:
26: *
27: * http://www.unicode.org/Public/MAPPINGS/OBSOLETE/UNI2SGML.TXT
28: *
1.1.1.2 misho 29: * XHTML 1.0 DTD
1.1 misho 30: * http://www.w3.org/TR/2002/REC-xhtml1-20020801/dtds.html#h-A2
1.1.1.2 misho 31: *
32: * From HTML 4.01 strict DTD:
33: * http://www.w3.org/TR/html4/HTMLlat1.ent
34: * http://www.w3.org/TR/html4/HTMLsymbol.ent
35: * http://www.w3.org/TR/html4/HTMLspecial.ent
36: *
37: * HTML 5:
38: * http://dev.w3.org/html5/spec/Overview.html#named-character-references
1.1 misho 39: */
40:
41: #include "php.h"
42: #if PHP_WIN32
43: #include "config.w32.h"
44: #else
45: #include <php_config.h>
46: #endif
1.1.1.2 misho 47: #include "php_standard.h"
1.1 misho 48: #include "php_string.h"
49: #include "SAPI.h"
50: #if HAVE_LOCALE_H
51: #include <locale.h>
52: #endif
53: #if HAVE_LANGINFO_H
54: #include <langinfo.h>
55: #endif
56:
1.1.1.2 misho 57: #include <zend_hash.h>
58: #include "html_tables.h"
1.1 misho 59:
1.1.1.2 misho 60: /* Macro for disabling flag of translation of non-basic entities where this isn't supported.
61: * Not appropriate for html_entity_decode/htmlspecialchars_decode */
62: #define LIMIT_ALL(all, doctype, charset) do { \
63: (all) = (all) && !CHARSET_PARTIAL_SUPPORT((charset)) && ((doctype) != ENT_HTML_DOC_XML1); \
64: } while (0)
1.1 misho 65:
1.1.1.2 misho 66: #define MB_FAILURE(pos, advance) do { \
67: *cursor = pos + (advance); \
1.1 misho 68: *status = FAILURE; \
69: return 0; \
70: } while (0)
71:
1.1.1.2 misho 72: #define CHECK_LEN(pos, chars_need) ((str_len - (pos)) >= (chars_need))
73:
74: /* valid as single byte character or leading byte */
75: #define utf8_lead(c) ((c) < 0x80 || ((c) >= 0xC2 && (c) <= 0xF4))
76: /* whether it's actually valid depends on other stuff;
77: * this macro cannot check for non-shortest forms, surrogates or
78: * code points above 0x10FFFF */
79: #define utf8_trail(c) ((c) >= 0x80 && (c) <= 0xBF)
80:
81: #define gb2312_lead(c) ((c) != 0x8E && (c) != 0x8F && (c) != 0xA0 && (c) != 0xFF)
82: #define gb2312_trail(c) ((c) >= 0xA1 && (c) <= 0xFE)
83:
84: #define sjis_lead(c) ((c) != 0x80 && (c) != 0xA0 && (c) < 0xFD)
85: #define sjis_trail(c) ((c) >= 0x40 && (c) != 0x7F && (c) < 0xFD)
1.1 misho 86:
87: /* {{{ get_next_char
88: */
1.1.1.2 misho 89: static inline unsigned int get_next_char(
90: enum entity_charset charset,
91: const unsigned char *str,
92: size_t str_len,
93: size_t *cursor,
1.1 misho 94: int *status)
95: {
1.1.1.2 misho 96: size_t pos = *cursor;
1.1 misho 97: unsigned int this_char = 0;
98:
99: *status = SUCCESS;
1.1.1.2 misho 100: assert(pos <= str_len);
1.1 misho 101:
1.1.1.2 misho 102: if (!CHECK_LEN(pos, 1))
103: MB_FAILURE(pos, 1);
1.1 misho 104:
105: switch (charset) {
1.1.1.2 misho 106: case cs_utf_8:
107: {
108: /* We'll follow strategy 2. from section 3.6.1 of UTR #36:
109: * "In a reported illegal byte sequence, do not include any
110: * non-initial byte that encodes a valid character or is a leading
111: * byte for a valid sequence." */
112: unsigned char c;
113: c = str[pos];
114: if (c < 0x80) {
115: this_char = c;
116: pos++;
117: } else if (c < 0xc2) {
118: MB_FAILURE(pos, 1);
119: } else if (c < 0xe0) {
120: if (!CHECK_LEN(pos, 2))
121: MB_FAILURE(pos, 1);
122:
123: if (!utf8_trail(str[pos + 1])) {
124: MB_FAILURE(pos, utf8_lead(str[pos + 1]) ? 1 : 2);
125: }
126: this_char = ((c & 0x1f) << 6) | (str[pos + 1] & 0x3f);
127: if (this_char < 0x80) { /* non-shortest form */
128: MB_FAILURE(pos, 2);
129: }
130: pos += 2;
131: } else if (c < 0xf0) {
132: size_t avail = str_len - pos;
133:
134: if (avail < 3 ||
135: !utf8_trail(str[pos + 1]) || !utf8_trail(str[pos + 2])) {
136: if (avail < 2 || utf8_lead(str[pos + 1]))
137: MB_FAILURE(pos, 1);
138: else if (avail < 3 || utf8_lead(str[pos + 2]))
139: MB_FAILURE(pos, 2);
140: else
141: MB_FAILURE(pos, 3);
142: }
143:
144: this_char = ((c & 0x0f) << 12) | ((str[pos + 1] & 0x3f) << 6) | (str[pos + 2] & 0x3f);
145: if (this_char < 0x800) { /* non-shortest form */
146: MB_FAILURE(pos, 3);
147: } else if (this_char >= 0xd800 && this_char <= 0xdfff) { /* surrogate */
148: MB_FAILURE(pos, 3);
149: }
150: pos += 3;
151: } else if (c < 0xf5) {
152: size_t avail = str_len - pos;
153:
154: if (avail < 4 ||
155: !utf8_trail(str[pos + 1]) || !utf8_trail(str[pos + 2]) ||
156: !utf8_trail(str[pos + 3])) {
157: if (avail < 2 || utf8_lead(str[pos + 1]))
158: MB_FAILURE(pos, 1);
159: else if (avail < 3 || utf8_lead(str[pos + 2]))
160: MB_FAILURE(pos, 2);
161: else if (avail < 4 || utf8_lead(str[pos + 3]))
162: MB_FAILURE(pos, 3);
163: else
164: MB_FAILURE(pos, 4);
165: }
166:
167: this_char = ((c & 0x07) << 18) | ((str[pos + 1] & 0x3f) << 12) | ((str[pos + 2] & 0x3f) << 6) | (str[pos + 3] & 0x3f);
168: if (this_char < 0x10000 || this_char > 0x10FFFF) { /* non-shortest form or outside range */
169: MB_FAILURE(pos, 4);
170: }
171: pos += 4;
172: } else {
173: MB_FAILURE(pos, 1);
174: }
175: }
176: break;
177:
178: case cs_big5:
179: /* reference http://demo.icu-project.org/icu-bin/convexp?conv=big5 */
180: {
181: unsigned char c = str[pos];
182: if (c >= 0x81 && c <= 0xFE) {
183: unsigned char next;
184: if (!CHECK_LEN(pos, 2))
185: MB_FAILURE(pos, 1);
186:
187: next = str[pos + 1];
188:
189: if ((next >= 0x40 && next <= 0x7E) ||
190: (next >= 0xA1 && next <= 0xFE)) {
191: this_char = (c << 8) | next;
1.1 misho 192: } else {
1.1.1.2 misho 193: MB_FAILURE(pos, 1);
1.1 misho 194: }
1.1.1.2 misho 195: pos += 2;
196: } else {
197: this_char = c;
198: pos += 1;
1.1 misho 199: }
1.1.1.2 misho 200: }
201: break;
202:
203: case cs_big5hkscs:
204: {
205: unsigned char c = str[pos];
206: if (c >= 0x81 && c <= 0xFE) {
207: unsigned char next;
208: if (!CHECK_LEN(pos, 2))
209: MB_FAILURE(pos, 1);
210:
211: next = str[pos + 1];
212:
213: if ((next >= 0x40 && next <= 0x7E) ||
214: (next >= 0xA1 && next <= 0xFE)) {
215: this_char = (c << 8) | next;
216: } else if (next != 0x80 && next != 0xFF) {
217: MB_FAILURE(pos, 1);
1.1 misho 218: } else {
1.1.1.2 misho 219: MB_FAILURE(pos, 2);
1.1 misho 220: }
1.1.1.2 misho 221: pos += 2;
222: } else {
223: this_char = c;
224: pos += 1;
1.1 misho 225: }
1.1.1.2 misho 226: }
227: break;
228:
229: case cs_gb2312: /* EUC-CN */
230: {
231: unsigned char c = str[pos];
232: if (c >= 0xA1 && c <= 0xFE) {
233: unsigned char next;
234: if (!CHECK_LEN(pos, 2))
235: MB_FAILURE(pos, 1);
236:
237: next = str[pos + 1];
238:
239: if (gb2312_trail(next)) {
240: this_char = (c << 8) | next;
241: } else if (gb2312_lead(next)) {
242: MB_FAILURE(pos, 1);
1.1 misho 243: } else {
1.1.1.2 misho 244: MB_FAILURE(pos, 2);
1.1 misho 245: }
1.1.1.2 misho 246: pos += 2;
247: } else if (gb2312_lead(c)) {
248: this_char = c;
249: pos += 1;
250: } else {
251: MB_FAILURE(pos, 1);
1.1 misho 252: }
1.1.1.2 misho 253: }
254: break;
255:
256: case cs_sjis:
257: {
258: unsigned char c = str[pos];
259: if ((c >= 0x81 && c <= 0x9F) || (c >= 0xE0 && c <= 0xFC)) {
260: unsigned char next;
261: if (!CHECK_LEN(pos, 2))
262: MB_FAILURE(pos, 1);
263:
264: next = str[pos + 1];
265:
266: if (sjis_trail(next)) {
267: this_char = (c << 8) | next;
268: } else if (sjis_lead(next)) {
269: MB_FAILURE(pos, 1);
1.1 misho 270: } else {
1.1.1.2 misho 271: MB_FAILURE(pos, 2);
1.1 misho 272: }
1.1.1.2 misho 273: pos += 2;
274: } else if (c < 0x80 || (c >= 0xA1 && c <= 0xDF)) {
275: this_char = c;
276: pos += 1;
277: } else {
278: MB_FAILURE(pos, 1);
1.1 misho 279: }
1.1.1.2 misho 280: }
281: break;
282:
283: case cs_eucjp:
284: {
285: unsigned char c = str[pos];
286:
287: if (c >= 0xA1 && c <= 0xFE) {
288: unsigned next;
289: if (!CHECK_LEN(pos, 2))
290: MB_FAILURE(pos, 1);
291: next = str[pos + 1];
292:
293: if (next >= 0xA1 && next <= 0xFE) {
294: /* this a jis kanji char */
295: this_char = (c << 8) | next;
296: } else {
297: MB_FAILURE(pos, (next != 0xA0 && next != 0xFF) ? 1 : 2);
298: }
299: pos += 2;
300: } else if (c == 0x8E) {
301: unsigned next;
302: if (!CHECK_LEN(pos, 2))
303: MB_FAILURE(pos, 1);
304:
305: next = str[pos + 1];
306: if (next >= 0xA1 && next <= 0xDF) {
307: /* JIS X 0201 kana */
308: this_char = (c << 8) | next;
309: } else {
310: MB_FAILURE(pos, (next != 0xA0 && next != 0xFF) ? 1 : 2);
311: }
312: pos += 2;
313: } else if (c == 0x8F) {
314: size_t avail = str_len - pos;
315:
316: if (avail < 3 || !(str[pos + 1] >= 0xA1 && str[pos + 1] <= 0xFE) ||
317: !(str[pos + 2] >= 0xA1 && str[pos + 2] <= 0xFE)) {
318: if (avail < 2 || (str[pos + 1] != 0xA0 && str[pos + 1] != 0xFF))
319: MB_FAILURE(pos, 1);
320: else if (avail < 3 || (str[pos + 2] != 0xA0 && str[pos + 2] != 0xFF))
321: MB_FAILURE(pos, 2);
322: else
323: MB_FAILURE(pos, 3);
324: } else {
325: /* JIS X 0212 hojo-kanji */
326: this_char = (c << 16) | (str[pos + 1] << 8) | str[pos + 2];
327: }
328: pos += 3;
329: } else if (c != 0xA0 && c != 0xFF) {
330: /* character encoded in 1 code unit */
331: this_char = c;
332: pos += 1;
333: } else {
334: MB_FAILURE(pos, 1);
335: }
336: }
337: break;
338: default:
339: /* single-byte charsets */
340: this_char = str[pos++];
341: break;
1.1 misho 342: }
1.1.1.2 misho 343:
344: *cursor = pos;
345: return this_char;
346: }
347: /* }}} */
348:
349: /* {{{ php_next_utf8_char
350: * Public interface for get_next_char used with UTF-8 */
351: PHPAPI unsigned int php_next_utf8_char(
352: const unsigned char *str,
353: size_t str_len,
354: size_t *cursor,
355: int *status)
356: {
357: return get_next_char(cs_utf_8, str, str_len, cursor, status);
1.1 misho 358: }
359: /* }}} */
360:
361: /* {{{ entity_charset determine_charset
362: * returns the charset identifier based on current locale or a hint.
1.1.1.2 misho 363: * defaults to UTF-8 */
1.1 misho 364: static enum entity_charset determine_charset(char *charset_hint TSRMLS_DC)
365: {
366: int i;
1.1.1.2 misho 367: enum entity_charset charset = cs_utf_8;
1.1 misho 368: int len = 0;
1.1.1.2 misho 369: const zend_encoding *zenc;
1.1 misho 370:
1.1.1.2 misho 371: /* Default is now UTF-8 */
1.1 misho 372: if (charset_hint == NULL)
1.1.1.2 misho 373: return cs_utf_8;
1.1 misho 374:
375: if ((len = strlen(charset_hint)) != 0) {
376: goto det_charset;
377: }
378:
1.1.1.2 misho 379: zenc = zend_multibyte_get_internal_encoding(TSRMLS_C);
380: if (zenc != NULL) {
381: charset_hint = (char *)zend_multibyte_get_encoding_name(zenc);
382: if (charset_hint != NULL && (len=strlen(charset_hint)) != 0) {
383: if ((len == 4) /* sizeof (none|auto|pass) */ &&
384: (!memcmp("pass", charset_hint, 4) ||
385: !memcmp("auto", charset_hint, 4) ||
386: !memcmp("auto", charset_hint, 4))) {
387: charset_hint = NULL;
388: len = 0;
389: } else {
390: goto det_charset;
1.1 misho 391: }
392: }
393: }
394:
395: charset_hint = SG(default_charset);
396: if (charset_hint != NULL && (len=strlen(charset_hint)) != 0) {
397: goto det_charset;
398: }
399:
400: /* try to detect the charset for the locale */
401: #if HAVE_NL_LANGINFO && HAVE_LOCALE_H && defined(CODESET)
402: charset_hint = nl_langinfo(CODESET);
403: if (charset_hint != NULL && (len=strlen(charset_hint)) != 0) {
404: goto det_charset;
405: }
406: #endif
407:
408: #if HAVE_LOCALE_H
409: /* try to figure out the charset from the locale */
410: {
411: char *localename;
412: char *dot, *at;
413:
414: /* lang[_territory][.codeset][@modifier] */
415: localename = setlocale(LC_CTYPE, NULL);
416:
417: dot = strchr(localename, '.');
418: if (dot) {
419: dot++;
420: /* locale specifies a codeset */
421: at = strchr(dot, '@');
422: if (at)
423: len = at - dot;
424: else
425: len = strlen(dot);
426: charset_hint = dot;
427: } else {
428: /* no explicit name; see if the name itself
429: * is the charset */
430: charset_hint = localename;
431: len = strlen(charset_hint);
432: }
433: }
434: #endif
435:
436: det_charset:
437:
438: if (charset_hint) {
439: int found = 0;
440:
441: /* now walk the charset map and look for the codeset */
442: for (i = 0; charset_map[i].codeset; i++) {
443: if (len == strlen(charset_map[i].codeset) && strncasecmp(charset_hint, charset_map[i].codeset, len) == 0) {
444: charset = charset_map[i].charset;
445: found = 1;
446: break;
447: }
448: }
449: if (!found) {
1.1.1.2 misho 450: php_error_docref(NULL TSRMLS_CC, E_WARNING, "charset `%s' not supported, assuming utf-8",
1.1 misho 451: charset_hint);
452: }
453: }
454: return charset;
455: }
456: /* }}} */
457:
458: /* {{{ php_utf32_utf8 */
1.1.1.2 misho 459: static inline size_t php_utf32_utf8(unsigned char *buf, unsigned k)
1.1 misho 460: {
461: size_t retval = 0;
462:
1.1.1.2 misho 463: /* assert(0x0 <= k <= 0x10FFFF); */
464:
1.1 misho 465: if (k < 0x80) {
466: buf[0] = k;
467: retval = 1;
468: } else if (k < 0x800) {
469: buf[0] = 0xc0 | (k >> 6);
470: buf[1] = 0x80 | (k & 0x3f);
471: retval = 2;
472: } else if (k < 0x10000) {
473: buf[0] = 0xe0 | (k >> 12);
474: buf[1] = 0x80 | ((k >> 6) & 0x3f);
475: buf[2] = 0x80 | (k & 0x3f);
476: retval = 3;
1.1.1.2 misho 477: } else {
1.1 misho 478: buf[0] = 0xf0 | (k >> 18);
479: buf[1] = 0x80 | ((k >> 12) & 0x3f);
480: buf[2] = 0x80 | ((k >> 6) & 0x3f);
481: buf[3] = 0x80 | (k & 0x3f);
482: retval = 4;
483: }
1.1.1.2 misho 484: /* UTF-8 has been restricted to max 4 bytes since RFC 3629 */
1.1 misho 485:
486: return retval;
487: }
488: /* }}} */
489:
1.1.1.2 misho 490: /* {{{ php_mb2_int_to_char
491: * Convert back big endian int representation of sequence of one or two 8-bit code units. */
492: static inline size_t php_mb2_int_to_char(unsigned char *buf, unsigned k)
1.1 misho 493: {
1.1.1.2 misho 494: assert(k <= 0xFFFFU);
495: /* one or two bytes */
496: if (k <= 0xFFU) { /* 1 */
497: buf[0] = k;
498: return 1U;
499: } else { /* 2 */
500: buf[0] = k >> 8;
501: buf[1] = k & 0xFFU;
502: return 2U;
503: }
504: }
505: /* }}} */
1.1 misho 506:
1.1.1.2 misho 507: /* {{{ php_mb3_int_to_char
508: * Convert back big endian int representation of sequence of one to three 8-bit code units.
509: * For EUC-JP. */
510: static inline size_t php_mb3_int_to_char(unsigned char *buf, unsigned k)
511: {
512: assert(k <= 0xFFFFFFU);
513: /* one to three bytes */
514: if (k <= 0xFFU) { /* 1 */
515: buf[0] = k;
516: return 1U;
517: } else if (k <= 0xFFFFU) { /* 2 */
518: buf[0] = k >> 8;
519: buf[1] = k & 0xFFU;
520: return 2U;
521: } else {
522: buf[0] = k >> 16;
523: buf[1] = (k >> 8) & 0xFFU;
524: buf[2] = k & 0xFFU;
525: return 3U;
1.1 misho 526: }
1.1.1.2 misho 527: }
528: /* }}} */
529:
530:
531: /* {{{ unimap_bsearc_cmp
532: * Binary search of unicode code points in unicode <--> charset mapping.
533: * Returns the code point in the target charset (whose mapping table was given) or 0 if
534: * the unicode code point is not in the table.
535: */
536: static inline unsigned char unimap_bsearch(const uni_to_enc *table, unsigned code_key_a, size_t num)
537: {
538: const uni_to_enc *l = table,
539: *h = &table[num-1],
540: *m;
541: unsigned short code_key;
542:
543: /* we have no mappings outside the BMP */
544: if (code_key_a > 0xFFFFU)
545: return 0;
546:
547: code_key = (unsigned short) code_key_a;
1.1 misho 548:
1.1.1.2 misho 549: while (l <= h) {
550: m = l + (h - l) / 2;
551: if (code_key < m->un_code_point)
552: h = m - 1;
553: else if (code_key > m->un_code_point)
554: l = m + 1;
555: else
556: return m->cs_code;
557: }
558: return 0;
559: }
560: /* }}} */
1.1 misho 561:
1.1.1.2 misho 562: /* {{{ map_from_unicode */
563: static inline int map_from_unicode(unsigned code, enum entity_charset charset, unsigned *res)
564: {
565: unsigned char found;
566: const uni_to_enc *table;
567: size_t table_size;
1.1 misho 568:
1.1.1.2 misho 569: switch (charset) {
570: case cs_8859_1:
571: /* identity mapping of code points to unicode */
572: if (code > 0xFF) {
573: return FAILURE;
574: }
575: *res = code;
576: break;
1.1 misho 577:
1.1.1.2 misho 578: case cs_8859_5:
579: if (code <= 0xA0 || code == 0xAD /* soft hyphen */) {
580: *res = code;
581: } else if (code == 0x2116) {
582: *res = 0xF0; /* numero sign */
583: } else if (code == 0xA7) {
584: *res = 0xFD; /* section sign */
585: } else if (code >= 0x0401 && code <= 0x044F) {
586: if (code == 0x040D || code == 0x0450 || code == 0x045D)
587: return FAILURE;
588: *res = code - 0x360;
589: } else {
590: return FAILURE;
591: }
592: break;
593:
594: case cs_8859_15:
595: if (code < 0xA4 || (code > 0xBE && code <= 0xFF)) {
596: *res = code;
597: } else { /* between A4 and 0xBE */
598: found = unimap_bsearch(unimap_iso885915,
599: code, sizeof(unimap_iso885915) / sizeof(*unimap_iso885915));
600: if (found)
601: *res = found;
602: else
603: return FAILURE;
604: }
605: break;
1.1 misho 606:
1.1.1.2 misho 607: case cs_cp1252:
608: if (code <= 0x7F || (code >= 0xA0 && code <= 0xFF)) {
609: *res = code;
610: } else {
611: found = unimap_bsearch(unimap_win1252,
612: code, sizeof(unimap_win1252) / sizeof(*unimap_win1252));
613: if (found)
614: *res = found;
615: else
616: return FAILURE;
617: }
618: break;
1.1 misho 619:
1.1.1.2 misho 620: case cs_macroman:
621: if (code == 0x7F)
622: return FAILURE;
623: table = unimap_macroman;
624: table_size = sizeof(unimap_macroman) / sizeof(*unimap_macroman);
625: goto table_over_7F;
626: case cs_cp1251:
627: table = unimap_win1251;
628: table_size = sizeof(unimap_win1251) / sizeof(*unimap_win1251);
629: goto table_over_7F;
630: case cs_koi8r:
631: table = unimap_koi8r;
632: table_size = sizeof(unimap_koi8r) / sizeof(*unimap_koi8r);
633: goto table_over_7F;
634: case cs_cp866:
635: table = unimap_cp866;
636: table_size = sizeof(unimap_cp866) / sizeof(*unimap_cp866);
637:
638: table_over_7F:
639: if (code <= 0x7F) {
640: *res = code;
641: } else {
642: found = unimap_bsearch(table, code, table_size);
643: if (found)
644: *res = found;
645: else
646: return FAILURE;
647: }
648: break;
1.1 misho 649:
1.1.1.2 misho 650: /* from here on, only map the possible characters in the ASCII range.
651: * to improve support here, it's a matter of building the unicode mappings.
652: * See <http://www.unicode.org/Public/6.0.0/ucd/Unihan.zip> */
653: case cs_sjis:
654: case cs_eucjp:
655: /* we interpret 0x5C as the Yen symbol. This is not universal.
656: * See <http://www.w3.org/Submission/japanese-xml/#ambiguity_of_yen> */
657: if (code >= 0x20 && code <= 0x7D) {
658: if (code == 0x5C)
659: return FAILURE;
660: *res = code;
661: } else {
662: return FAILURE;
663: }
664: break;
665:
666: case cs_big5:
667: case cs_big5hkscs:
668: case cs_gb2312:
669: if (code >= 0x20 && code <= 0x7D) {
670: *res = code;
671: } else {
672: return FAILURE;
1.1 misho 673: }
1.1.1.2 misho 674: break;
675:
676: default:
677: return FAILURE;
1.1 misho 678: }
679:
1.1.1.2 misho 680: return SUCCESS;
681: }
682: /* }}} */
1.1 misho 683:
1.1.1.2 misho 684: /* {{{ */
685: static inline void map_to_unicode(unsigned code, const enc_to_uni *table, unsigned *res)
686: {
687: /* only single byte encodings are currently supported; assumed code <= 0xFF */
688: *res = table->inner[ENT_ENC_TO_UNI_STAGE1(code)]->uni_cp[ENT_ENC_TO_UNI_STAGE2(code)];
689: }
690: /* }}} */
691:
692: /* {{{ unicode_cp_is_allowed */
693: static inline int unicode_cp_is_allowed(unsigned uni_cp, int document_type)
694: {
695: /* XML 1.0 HTML 4.01 HTML 5
696: * 0x09..0x0A 0x09..0x0A 0x09..0x0A
697: * 0x0D 0x0D 0x0C..0x0D
698: * 0x0020..0xD7FF 0x20..0x7E 0x20..0x7E
699: * 0x00A0..0xD7FF 0x00A0..0xD7FF
700: * 0xE000..0xFFFD 0xE000..0x10FFFF 0xE000..0xFDCF
701: * 0x010000..0x10FFFF 0xFDF0..0x10FFFF (*)
702: *
703: * (*) exclude code points where ((code & 0xFFFF) >= 0xFFFE)
704: *
705: * References:
706: * XML 1.0: <http://www.w3.org/TR/REC-xml/#charsets>
707: * HTML 4.01: <http://www.w3.org/TR/1999/PR-html40-19990824/sgml/sgmldecl.html>
708: * HTML 5: <http://dev.w3.org/html5/spec/Overview.html#preprocessing-the-input-stream>
709: *
710: * Not sure this is the relevant part for HTML 5, though. I opted to
711: * disallow the characters that would result in a parse error when
712: * preprocessing of the input stream. See also section 8.1.3.
713: *
714: * It's unclear if XHTML 1.0 allows C1 characters. I'll opt to apply to
715: * XHTML 1.0 the same rules as for XML 1.0.
716: * See <http://cmsmcq.com/2007/C1.xml>.
717: */
718:
719: switch (document_type) {
720: case ENT_HTML_DOC_HTML401:
721: return (uni_cp >= 0x20 && uni_cp <= 0x7E) ||
722: (uni_cp == 0x0A || uni_cp == 0x09 || uni_cp == 0x0D) ||
723: (uni_cp >= 0xA0 && uni_cp <= 0xD7FF) ||
724: (uni_cp >= 0xE000 && uni_cp <= 0x10FFFF);
725: case ENT_HTML_DOC_HTML5:
726: return (uni_cp >= 0x20 && uni_cp <= 0x7E) ||
727: (uni_cp >= 0x09 && uni_cp <= 0x0D && uni_cp != 0x0B) || /* form feed U+0C allowed */
728: (uni_cp >= 0xA0 && uni_cp <= 0xD7FF) ||
729: (uni_cp >= 0xE000 && uni_cp <= 0x10FFFF &&
730: ((uni_cp & 0xFFFF) < 0xFFFE) && /* last two of each plane (nonchars) disallowed */
731: (uni_cp < 0xFDD0 || uni_cp > 0xFDEF)); /* U+FDD0-U+FDEF (nonchars) disallowed */
732: case ENT_HTML_DOC_XHTML:
733: case ENT_HTML_DOC_XML1:
734: return (uni_cp >= 0x20 && uni_cp <= 0xD7FF) ||
735: (uni_cp == 0x0A || uni_cp == 0x09 || uni_cp == 0x0D) ||
736: (uni_cp >= 0xE000 && uni_cp <= 0x10FFFF && uni_cp != 0xFFFE && uni_cp != 0xFFFF);
737: default:
738: return 1;
739: }
740: }
741: /* }}} */
1.1 misho 742:
1.1.1.2 misho 743: /* {{{ unicode_cp_is_allowed */
744: static inline int numeric_entity_is_allowed(unsigned uni_cp, int document_type)
745: {
746: /* less restrictive than unicode_cp_is_allowed */
747: switch (document_type) {
748: case ENT_HTML_DOC_HTML401:
749: /* all non-SGML characters (those marked with UNUSED in DESCSET) should be
750: * representable with numeric entities */
751: return uni_cp <= 0x10FFFF;
752: case ENT_HTML_DOC_HTML5:
753: /* 8.1.4. The numeric character reference forms described above are allowed to
754: * reference any Unicode code point other than U+0000, U+000D, permanently
755: * undefined Unicode characters (noncharacters), and control characters other
756: * than space characters (U+0009, U+000A, U+000C and U+000D) */
757: /* seems to allow surrogate characters, then */
758: return (uni_cp >= 0x20 && uni_cp <= 0x7E) ||
759: (uni_cp >= 0x09 && uni_cp <= 0x0C && uni_cp != 0x0B) || /* form feed U+0C allowed, but not U+0D */
760: (uni_cp >= 0xA0 && uni_cp <= 0x10FFFF &&
761: ((uni_cp & 0xFFFF) < 0xFFFE) && /* last two of each plane (nonchars) disallowed */
762: (uni_cp < 0xFDD0 || uni_cp > 0xFDEF)); /* U+FDD0-U+FDEF (nonchars) disallowed */
763: case ENT_HTML_DOC_XHTML:
764: case ENT_HTML_DOC_XML1:
765: /* OTOH, XML 1.0 requires "character references to match the production for Char
766: * See <http://www.w3.org/TR/REC-xml/#NT-CharRef> */
767: return unicode_cp_is_allowed(uni_cp, document_type);
768: default:
769: return 1;
770: }
771: }
772: /* }}} */
773:
774: /* {{{ process_numeric_entity
775: * Auxiliary function to traverse_for_entities.
776: * On input, *buf should point to the first character after # and on output, it's the last
777: * byte read, no matter if there was success or insuccess.
778: */
779: static inline int process_numeric_entity(const char **buf, unsigned *code_point)
780: {
781: long code_l;
782: int hexadecimal = (**buf == 'x' || **buf == 'X'); /* TODO: XML apparently disallows "X" */
783: char *endptr;
784:
785: if (hexadecimal && (**buf != '\0'))
786: (*buf)++;
787:
788: /* strtol allows whitespace and other stuff in the beginning
789: * we're not interested */
790: if ((hexadecimal && !isxdigit(**buf)) ||
791: (!hexadecimal && !isdigit(**buf))) {
792: return FAILURE;
793: }
794:
795: code_l = strtol(*buf, &endptr, hexadecimal ? 16 : 10);
796: /* we're guaranteed there were valid digits, so *endptr > buf */
797: *buf = endptr;
798:
799: if (**buf != ';')
800: return FAILURE;
801:
802: /* many more are invalid, but that depends on whether it's HTML
803: * (and which version) or XML. */
804: if (code_l > 0x10FFFFL)
805: return FAILURE;
806:
807: if (code_point != NULL)
808: *code_point = (unsigned)code_l;
809:
810: return SUCCESS;
811: }
812: /* }}} */
813:
814: /* {{{ process_named_entity */
815: static inline int process_named_entity_html(const char **buf, const char **start, size_t *length)
816: {
817: *start = *buf;
818:
819: /* "&" is represented by a 0x26 in all supported encodings. That means
820: * the byte after represents a character or is the leading byte of an
821: * sequence of 8-bit code units. If in the ranges below, it represents
822: * necessarily a alpha character because none of the supported encodings
823: * has an overlap with ASCII in the leading byte (only on the second one) */
824: while ((**buf >= 'a' && **buf <= 'z') ||
825: (**buf >= 'A' && **buf <= 'Z') ||
826: (**buf >= '0' && **buf <= '9')) {
827: (*buf)++;
828: }
829:
830: if (**buf != ';')
831: return FAILURE;
832:
833: /* cast to size_t OK as the quantity is always non-negative */
834: *length = *buf - *start;
835:
836: if (*length == 0)
837: return FAILURE;
838:
839: return SUCCESS;
840: }
841: /* }}} */
842:
843: /* {{{ resolve_named_entity_html */
844: static inline int resolve_named_entity_html(const char *start, size_t length, const entity_ht *ht, unsigned *uni_cp1, unsigned *uni_cp2)
845: {
846: const entity_cp_map *s;
847: ulong hash = zend_inline_hash_func(start, length);
848:
849: s = ht->buckets[hash % ht->num_elems];
850: while (s->entity) {
851: if (s->entity_len == length) {
852: if (memcmp(start, s->entity, length) == 0) {
853: *uni_cp1 = s->codepoint1;
854: *uni_cp2 = s->codepoint2;
855: return SUCCESS;
856: }
1.1 misho 857: }
1.1.1.2 misho 858: s++;
859: }
860: return FAILURE;
861: }
862: /* }}} */
863:
864: static inline size_t write_octet_sequence(unsigned char *buf, enum entity_charset charset, unsigned code) {
865: /* code is not necessarily a unicode code point */
866: switch (charset) {
867: case cs_utf_8:
868: return php_utf32_utf8(buf, code);
869:
870: case cs_8859_1:
871: case cs_cp1252:
872: case cs_8859_15:
873: case cs_koi8r:
874: case cs_cp1251:
875: case cs_8859_5:
876: case cs_cp866:
877: case cs_macroman:
878: /* single byte stuff */
879: *buf = code;
880: return 1;
881:
882: case cs_big5:
883: case cs_big5hkscs:
884: case cs_sjis:
885: case cs_gb2312:
886: /* we don't have complete unicode mappings for these yet in entity_decode,
887: * and we opt to pass through the octet sequences for these in htmlentities
888: * instead of converting to an int and then converting back. */
889: #if 0
890: return php_mb2_int_to_char(buf, code);
891: #else
892: #ifdef ZEND_DEBUG
893: assert(code <= 0xFFU);
894: #endif
895: *buf = code;
896: return 1;
897: #endif
898:
899: case cs_eucjp:
900: #if 0 /* idem */
901: return php_mb2_int_to_char(buf, code);
902: #else
903: #ifdef ZEND_DEBUG
904: assert(code <= 0xFFU);
905: #endif
906: *buf = code;
907: return 1;
908: #endif
909:
910: default:
911: assert(0);
912: return 0;
1.1 misho 913: }
1.1.1.2 misho 914: }
915:
916: /* {{{ traverse_for_entities
917: * Auxiliary function to php_unescape_html_entities().
918: * - The argument "all" determines if all numeric entities are decode or only those
919: * that correspond to quotes (depending on quote_style).
920: */
921: /* maximum expansion (factor 1.2) for HTML 5 with ≫⃒ and ≪⃒ */
922: /* +2 is 1 because of rest (probably unnecessary), 1 because of terminating 0 */
923: #define TRAVERSE_FOR_ENTITIES_EXPAND_SIZE(oldlen) ((oldlen) + (oldlen) / 5 + 2)
924: static void traverse_for_entities(
925: const char *old,
926: size_t oldlen,
927: char *ret, /* should have allocated TRAVERSE_FOR_ENTITIES_EXPAND_SIZE(olden) */
928: size_t *retlen,
929: int all,
930: int flags,
931: const entity_ht *inv_map,
932: enum entity_charset charset)
933: {
934: const char *p,
935: *lim;
936: char *q;
937: int doctype = flags & ENT_HTML_DOC_TYPE_MASK;
938:
939: lim = old + oldlen; /* terminator address */
940: assert(*lim == '\0');
941:
942: for (p = old, q = ret; p < lim;) {
943: unsigned code, code2 = 0;
944: const char *next = NULL; /* when set, next > p, otherwise possible inf loop */
945:
946: /* Shift JIS, Big5 and HKSCS use multi-byte encodings where an
947: * ASCII range byte can be part of a multi-byte sequence.
948: * However, they start at 0x40, therefore if we find a 0x26 byte,
949: * we're sure it represents the '&' character. */
950:
951: /* assumes there are no single-char entities */
952: if (p[0] != '&' || (p + 3 >= lim)) {
953: *(q++) = *(p++);
954: continue;
955: }
1.1 misho 956:
1.1.1.2 misho 957: /* now p[3] is surely valid and is no terminator */
1.1 misho 958:
1.1.1.2 misho 959: /* numerical entity */
960: if (p[1] == '#') {
961: next = &p[2];
962: if (process_numeric_entity(&next, &code) == FAILURE)
963: goto invalid_code;
964:
965: /* If we're in htmlspecialchars_decode, we're only decoding entities
966: * that represent &, <, >, " and '. Is this one of them? */
967: if (!all && (code > 63U ||
968: stage3_table_be_apos_00000[code].data.ent.entity == NULL))
969: goto invalid_code;
970:
971: /* are we allowed to decode this entity in this document type?
972: * HTML 5 is the only that has a character that cannot be used in
973: * a numeric entity but is allowed literally (U+000D). The
974: * unoptimized version would be ... || !numeric_entity_is_allowed(code) */
975: if (!unicode_cp_is_allowed(code, doctype) ||
976: (doctype == ENT_HTML_DOC_HTML5 && code == 0x0D))
977: goto invalid_code;
978: } else {
979: const char *start;
980: size_t ent_len;
1.1 misho 981:
1.1.1.2 misho 982: next = &p[1];
983: start = next;
1.1 misho 984:
1.1.1.2 misho 985: if (process_named_entity_html(&next, &start, &ent_len) == FAILURE)
986: goto invalid_code;
1.1 misho 987:
1.1.1.2 misho 988: if (resolve_named_entity_html(start, ent_len, inv_map, &code, &code2) == FAILURE) {
989: if (doctype == ENT_HTML_DOC_XHTML && ent_len == 4 && start[0] == 'a'
990: && start[1] == 'p' && start[2] == 'o' && start[3] == 's') {
991: /* uses html4 inv_map, which doesn't include apos;. This is a
992: * hack to support it */
993: code = (unsigned) '\'';
1.1 misho 994: } else {
1.1.1.2 misho 995: goto invalid_code;
1.1 misho 996: }
997: }
1.1.1.2 misho 998: }
999:
1000: assert(*next == ';');
1001:
1002: if (((code == '\'' && !(flags & ENT_HTML_QUOTE_SINGLE)) ||
1003: (code == '"' && !(flags & ENT_HTML_QUOTE_DOUBLE)))
1004: /* && code2 == '\0' always true for current maps */)
1005: goto invalid_code;
1006:
1007: /* UTF-8 doesn't need mapping (ISO-8859-1 doesn't either, but
1008: * the call is needed to ensure the codepoint <= U+00FF) */
1009: if (charset != cs_utf_8) {
1010: /* replace unicode code point */
1011: if (map_from_unicode(code, charset, &code) == FAILURE || code2 != 0)
1012: goto invalid_code; /* not representable in target charset */
1013: }
1014:
1015: q += write_octet_sequence(q, charset, code);
1016: if (code2) {
1017: q += write_octet_sequence(q, charset, code2);
1018: }
1019:
1020: /* jump over the valid entity; may go beyond size of buffer; np */
1021: p = next + 1;
1022: continue;
1023:
1024: invalid_code:
1025: for (; p < next; p++) {
1026: *(q++) = *p;
1.1 misho 1027: }
1028: }
1.1.1.2 misho 1029:
1.1 misho 1030: *q = '\0';
1.1.1.2 misho 1031: *retlen = (size_t)(q - ret);
1032: }
1033: /* }}} */
1034:
1035: /* {{{ unescape_inverse_map */
1036: static const entity_ht *unescape_inverse_map(int all, int flags)
1037: {
1038: int document_type = flags & ENT_HTML_DOC_TYPE_MASK;
1039:
1040: if (all) {
1041: switch (document_type) {
1042: case ENT_HTML_DOC_HTML401:
1043: case ENT_HTML_DOC_XHTML: /* but watch out for '...*/
1044: return &ent_ht_html4;
1045: case ENT_HTML_DOC_HTML5:
1046: return &ent_ht_html5;
1047: default:
1048: return &ent_ht_be_apos;
1049: }
1050: } else {
1051: switch (document_type) {
1052: case ENT_HTML_DOC_HTML401:
1053: return &ent_ht_be_noapos;
1054: default:
1055: return &ent_ht_be_apos;
1056: }
1057: }
1058: }
1059: /* }}} */
1060:
1061: /* {{{ determine_entity_table
1062: * Entity table to use. Note that entity tables are defined in terms of
1063: * unicode code points */
1064: static entity_table_opt determine_entity_table(int all, int doctype)
1065: {
1066: entity_table_opt retval = {NULL};
1067:
1068: assert(!(doctype == ENT_HTML_DOC_XML1 && all));
1069:
1070: if (all) {
1071: retval.ms_table = (doctype == ENT_HTML_DOC_HTML5) ?
1072: entity_ms_table_html5 : entity_ms_table_html4;
1073: } else {
1074: retval.table = (doctype == ENT_HTML_DOC_HTML401) ?
1075: stage3_table_be_noapos_00000 : stage3_table_be_apos_00000;
1076: }
1077: return retval;
1078: }
1079: /* }}} */
1080:
1081: /* {{{ php_unescape_html_entities
1082: * The parameter "all" should be true to decode all possible entities, false to decode
1083: * only the basic ones, i.e., those in basic_entities_ex + the numeric entities
1084: * that correspond to quotes.
1085: */
1086: PHPAPI char *php_unescape_html_entities(unsigned char *old, size_t oldlen, size_t *newlen, int all, int flags, char *hint_charset TSRMLS_DC)
1087: {
1088: size_t retlen;
1089: char *ret;
1090: enum entity_charset charset;
1091: const entity_ht *inverse_map = NULL;
1092: size_t new_size = TRAVERSE_FOR_ENTITIES_EXPAND_SIZE(oldlen);
1093:
1094: if (all) {
1095: charset = determine_charset(hint_charset TSRMLS_CC);
1096: } else {
1097: charset = cs_8859_1; /* charset shouldn't matter, use ISO-8859-1 for performance */
1098: }
1099:
1100: /* don't use LIMIT_ALL! */
1101:
1102: if (oldlen > new_size) {
1103: /* overflow, refuse to do anything */
1104: ret = estrndup((char*)old, oldlen);
1105: retlen = oldlen;
1106: goto empty_source;
1107: }
1108: ret = emalloc(new_size);
1109: *ret = '\0';
1110: retlen = oldlen;
1111: if (retlen == 0) {
1112: goto empty_source;
1113: }
1114:
1115: inverse_map = unescape_inverse_map(all, flags);
1116:
1117: /* replace numeric entities */
1118: traverse_for_entities(old, oldlen, ret, &retlen, all, flags, inverse_map, charset);
1119:
1.1 misho 1120: empty_source:
1121: *newlen = retlen;
1122: return ret;
1123: }
1124: /* }}} */
1125:
1.1.1.2 misho 1126: PHPAPI char *php_escape_html_entities(unsigned char *old, size_t oldlen, size_t *newlen, int all, int flags, char *hint_charset TSRMLS_DC)
1.1 misho 1127: {
1.1.1.2 misho 1128: return php_escape_html_entities_ex(old, oldlen, newlen, all, flags, hint_charset, 1 TSRMLS_CC);
1.1 misho 1129: }
1130:
1.1.1.2 misho 1131: /* {{{ find_entity_for_char */
1132: static inline void find_entity_for_char(
1133: unsigned int k,
1134: enum entity_charset charset,
1135: const entity_stage1_row *table,
1136: const unsigned char **entity,
1137: size_t *entity_len,
1138: unsigned char *old,
1139: size_t oldlen,
1140: size_t *cursor)
1141: {
1142: unsigned stage1_idx = ENT_STAGE1_INDEX(k);
1143: const entity_stage3_row *c;
1144:
1145: if (stage1_idx > 0x1D) {
1146: *entity = NULL;
1147: *entity_len = 0;
1148: return;
1149: }
1150:
1151: c = &table[stage1_idx][ENT_STAGE2_INDEX(k)][ENT_STAGE3_INDEX(k)];
1152:
1153: if (!c->ambiguous) {
1154: *entity = (const unsigned char *)c->data.ent.entity;
1155: *entity_len = c->data.ent.entity_len;
1156: } else {
1157: /* peek at next char */
1158: size_t cursor_before = *cursor;
1159: int status = SUCCESS;
1160: unsigned next_char;
1161:
1162: if (!(*cursor < oldlen))
1163: goto no_suitable_2nd;
1164:
1165: next_char = get_next_char(charset, old, oldlen, cursor, &status);
1166:
1167: if (status == FAILURE)
1168: goto no_suitable_2nd;
1169:
1170: {
1171: const entity_multicodepoint_row *s, *e;
1172:
1173: s = &c->data.multicodepoint_table[1];
1174: e = s - 1 + c->data.multicodepoint_table[0].leading_entry.size;
1175: /* we could do a binary search but it's not worth it since we have
1176: * at most two entries... */
1177: for ( ; s <= e; s++) {
1178: if (s->normal_entry.second_cp == next_char) {
1179: *entity = s->normal_entry.entity;
1180: *entity_len = s->normal_entry.entity_len;
1181: return;
1182: }
1183: }
1184: }
1185: no_suitable_2nd:
1186: *cursor = cursor_before;
1187: *entity = (const unsigned char *)
1188: c->data.multicodepoint_table[0].leading_entry.default_entity;
1189: *entity_len = c->data.multicodepoint_table[0].leading_entry.default_entity_len;
1190: }
1191: }
1192: /* }}} */
1193:
1194: /* {{{ find_entity_for_char_basic */
1195: static inline void find_entity_for_char_basic(
1196: unsigned int k,
1197: const entity_stage3_row *table,
1198: const unsigned char **entity,
1199: size_t *entity_len)
1200: {
1201: if (k >= 64U) {
1202: *entity = NULL;
1203: *entity_len = 0;
1204: return;
1205: }
1206:
1207: *entity = table[k].data.ent.entity;
1208: *entity_len = table[k].data.ent.entity_len;
1209: }
1210: /* }}} */
1.1 misho 1211:
1212: /* {{{ php_escape_html_entities
1213: */
1.1.1.2 misho 1214: PHPAPI char *php_escape_html_entities_ex(unsigned char *old, size_t oldlen, size_t *newlen, int all, int flags, char *hint_charset, zend_bool double_encode TSRMLS_DC)
1.1 misho 1215: {
1.1.1.2 misho 1216: size_t cursor, maxlen, len;
1.1 misho 1217: char *replaced;
1218: enum entity_charset charset = determine_charset(hint_charset TSRMLS_CC);
1.1.1.2 misho 1219: int doctype = flags & ENT_HTML_DOC_TYPE_MASK;
1220: entity_table_opt entity_table;
1221: const enc_to_uni *to_uni_table = NULL;
1222: const entity_ht *inv_map = NULL; /* used for !double_encode */
1223: /* only used if flags includes ENT_HTML_IGNORE_ERRORS or ENT_HTML_SUBSTITUTE_DISALLOWED_CHARS */
1224: const unsigned char *replacement;
1225: size_t replacement_len;
1226:
1227: if (all) { /* replace with all named entities */
1228: if (CHARSET_PARTIAL_SUPPORT(charset)) {
1229: php_error_docref0(NULL TSRMLS_CC, E_STRICT, "Only basic entities "
1230: "substitution is supported for multi-byte encodings other than UTF-8; "
1231: "functionality is equivalent to htmlspecialchars");
1232: }
1233: LIMIT_ALL(all, doctype, charset);
1234: }
1235: entity_table = determine_entity_table(all, doctype);
1236: if (all && !CHARSET_UNICODE_COMPAT(charset)) {
1237: to_uni_table = enc_to_uni_index[charset];
1238: }
1239:
1240: if (!double_encode) {
1241: /* first arg is 1 because we want to identify valid named entities
1242: * even if we are only encoding the basic ones */
1243: inv_map = unescape_inverse_map(1, flags);
1244: }
1245:
1246: if (flags & (ENT_HTML_SUBSTITUTE_ERRORS | ENT_HTML_SUBSTITUTE_DISALLOWED_CHARS)) {
1247: if (charset == cs_utf_8) {
1248: replacement = (const unsigned char*)"\xEF\xBF\xBD";
1249: replacement_len = sizeof("\xEF\xBF\xBD") - 1;
1250: } else {
1251: replacement = (const unsigned char*)"�";
1252: replacement_len = sizeof("�") - 1;
1253: }
1254: }
1255:
1256: /* initial estimate */
1257: if (oldlen < 64) {
1258: maxlen = 128;
1259: } else {
1260: maxlen = 2 * oldlen;
1261: if (maxlen < oldlen) {
1262: zend_error_noreturn(E_ERROR, "Input string is too long");
1263: return NULL;
1264: }
1265: }
1.1 misho 1266:
1.1.1.2 misho 1267: replaced = emalloc(maxlen + 1); /* adding 1 is safe: maxlen is even */
1.1 misho 1268: len = 0;
1.1.1.2 misho 1269: cursor = 0;
1270: while (cursor < oldlen) {
1271: const unsigned char *mbsequence = NULL;
1272: size_t mbseqlen = 0,
1273: cursor_before = cursor;
1274: int status = SUCCESS;
1275: unsigned int this_char = get_next_char(charset, old, oldlen, &cursor, &status);
1276:
1277: /* guarantee we have at least 40 bytes to write.
1278: * In HTML5, entities may take up to 33 bytes */
1279: if (len > maxlen - 40) { /* maxlen can never be smaller than 128 */
1280: replaced = safe_erealloc(replaced, maxlen , 1, 128 + 1);
1281: maxlen += 128;
1282: }
1.1 misho 1283:
1.1.1.2 misho 1284: if (status == FAILURE) {
1.1 misho 1285: /* invalid MB sequence */
1.1.1.2 misho 1286: if (flags & ENT_HTML_IGNORE_ERRORS) {
1.1 misho 1287: continue;
1.1.1.2 misho 1288: } else if (flags & ENT_HTML_SUBSTITUTE_ERRORS) {
1289: memcpy(&replaced[len], replacement, replacement_len);
1290: len += replacement_len;
1291: continue;
1292: } else {
1293: efree(replaced);
1294: *newlen = 0;
1295: return STR_EMPTY_ALLOC();
1.1 misho 1296: }
1.1.1.2 misho 1297: } else { /* SUCCESS */
1298: mbsequence = &old[cursor_before];
1299: mbseqlen = cursor - cursor_before;
1.1 misho 1300: }
1301:
1.1.1.2 misho 1302: if (this_char != '&') { /* no entity on this position */
1303: const unsigned char *rep = NULL;
1304: size_t rep_len = 0;
1305:
1306: if (((this_char == '\'' && !(flags & ENT_HTML_QUOTE_SINGLE)) ||
1307: (this_char == '"' && !(flags & ENT_HTML_QUOTE_DOUBLE))))
1308: goto pass_char_through;
1309:
1310: if (all) { /* false that CHARSET_PARTIAL_SUPPORT(charset) */
1311: if (to_uni_table != NULL) {
1312: /* !CHARSET_UNICODE_COMPAT therefore not UTF-8; since UTF-8
1313: * is the only multibyte encoding with !CHARSET_PARTIAL_SUPPORT,
1314: * we're using a single byte encoding */
1315: map_to_unicode(this_char, to_uni_table, &this_char);
1316: if (this_char == 0xFFFF) /* no mapping; pass through */
1317: goto pass_char_through;
1.1 misho 1318: }
1.1.1.2 misho 1319: /* the cursor may advance */
1320: find_entity_for_char(this_char, charset, entity_table.ms_table, &rep,
1321: &rep_len, old, oldlen, &cursor);
1322: } else {
1323: find_entity_for_char_basic(this_char, entity_table.table, &rep, &rep_len);
1.1 misho 1324: }
1325:
1.1.1.2 misho 1326: if (rep != NULL) {
1.1 misho 1327: replaced[len++] = '&';
1.1.1.2 misho 1328: memcpy(&replaced[len], rep, rep_len);
1329: len += rep_len;
1.1 misho 1330: replaced[len++] = ';';
1.1.1.2 misho 1331: } else {
1332: /* we did not find an entity for this char.
1333: * check for its validity, if its valid pass it unchanged */
1334: if (flags & ENT_HTML_SUBSTITUTE_DISALLOWED_CHARS) {
1335: if (CHARSET_UNICODE_COMPAT(charset)) {
1336: if (!unicode_cp_is_allowed(this_char, doctype)) {
1337: mbsequence = replacement;
1338: mbseqlen = replacement_len;
1339: }
1340: } else if (to_uni_table) {
1341: if (!all) /* otherwise we already did this */
1342: map_to_unicode(this_char, to_uni_table, &this_char);
1343: if (!unicode_cp_is_allowed(this_char, doctype)) {
1344: mbsequence = replacement;
1345: mbseqlen = replacement_len;
1346: }
1.1 misho 1347: } else {
1.1.1.2 misho 1348: /* not a unicode code point, unless, coincidentally, it's in
1349: * the 0x20..0x7D range (except 0x5C in sjis). We know nothing
1350: * about other code points, because we have no tables. Since
1351: * Unicode code points in that range are not disallowed in any
1352: * document type, we could do nothing. However, conversion
1353: * tables frequently map 0x00-0x1F to the respective C0 code
1354: * points. Let's play it safe and admit that's the case */
1355: if (this_char <= 0x7D &&
1356: !unicode_cp_is_allowed(this_char, doctype)) {
1357: mbsequence = replacement;
1358: mbseqlen = replacement_len;
1.1 misho 1359: }
1360: }
1361: }
1.1.1.2 misho 1362: pass_char_through:
1.1 misho 1363: if (mbseqlen > 1) {
1364: memcpy(replaced + len, mbsequence, mbseqlen);
1365: len += mbseqlen;
1366: } else {
1.1.1.2 misho 1367: replaced[len++] = mbsequence[0];
1.1 misho 1368: }
1369: }
1.1.1.2 misho 1370: } else { /* this_char == '&' */
1371: if (double_encode) {
1372: encode_amp:
1373: memcpy(&replaced[len], "&", sizeof("&") - 1);
1374: len += sizeof("&") - 1;
1375: } else { /* no double encode */
1376: /* check if entity is valid */
1377: size_t ent_len; /* not counting & or ; */
1378: /* peek at next char */
1379: if (old[cursor] == '#') { /* numeric entity */
1380: unsigned code_point;
1381: int valid;
1382: char *pos = (char*)&old[cursor+1];
1383: valid = process_numeric_entity((const char **)&pos, &code_point);
1384: if (valid == FAILURE)
1385: goto encode_amp;
1386: if (flags & ENT_HTML_SUBSTITUTE_DISALLOWED_CHARS) {
1387: if (!numeric_entity_is_allowed(code_point, doctype))
1388: goto encode_amp;
1389: }
1390: ent_len = pos - (char*)&old[cursor];
1391: } else { /* named entity */
1392: /* check for vality of named entity */
1393: const char *start = &old[cursor],
1394: *next = start;
1395: unsigned dummy1, dummy2;
1396:
1397: if (process_named_entity_html(&next, &start, &ent_len) == FAILURE)
1398: goto encode_amp;
1399: if (resolve_named_entity_html(start, ent_len, inv_map, &dummy1, &dummy2) == FAILURE) {
1400: if (!(doctype == ENT_HTML_DOC_XHTML && ent_len == 4 && start[0] == 'a'
1401: && start[1] == 'p' && start[2] == 'o' && start[3] == 's')) {
1402: /* uses html4 inv_map, which doesn't include apos;. This is a
1403: * hack to support it */
1404: goto encode_amp;
1405: }
1406: }
1407: }
1408: /* checks passed; copy entity to result */
1409: /* entity size is unbounded, we may need more memory */
1410: /* at this point maxlen - len >= 40 */
1411: if (maxlen - len < ent_len + 2 /* & and ; */) {
1412: /* ent_len < oldlen, which is certainly <= SIZE_MAX/2 */
1413: replaced = safe_erealloc(replaced, maxlen, 1, ent_len + 128 + 1);
1414: maxlen += ent_len + 128;
1415: }
1416: replaced[len++] = '&';
1417: memcpy(&replaced[len], &old[cursor], ent_len);
1418: len += ent_len;
1419: replaced[len++] = ';';
1420: cursor += ent_len + 1;
1421: }
1.1 misho 1422: }
1423: }
1424: replaced[len] = '\0';
1425: *newlen = len;
1426:
1427: return replaced;
1428: }
1429: /* }}} */
1430:
1431: /* {{{ php_html_entities
1432: */
1433: static void php_html_entities(INTERNAL_FUNCTION_PARAMETERS, int all)
1434: {
1435: char *str, *hint_charset = NULL;
1436: int str_len, hint_charset_len = 0;
1.1.1.2 misho 1437: size_t new_len;
1438: long flags = ENT_COMPAT;
1.1 misho 1439: char *replaced;
1440: zend_bool double_encode = 1;
1441:
1.1.1.2 misho 1442: if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ls!b", &str, &str_len, &flags, &hint_charset, &hint_charset_len, &double_encode) == FAILURE) {
1.1 misho 1443: return;
1444: }
1445:
1.1.1.2 misho 1446: replaced = php_escape_html_entities_ex(str, str_len, &new_len, all, (int) flags, hint_charset, double_encode TSRMLS_CC);
1447: RETVAL_STRINGL(replaced, (int)new_len, 0);
1.1 misho 1448: }
1449: /* }}} */
1450:
1451: #define HTML_SPECIALCHARS 0
1452: #define HTML_ENTITIES 1
1453:
1454: /* {{{ register_html_constants
1455: */
1456: void register_html_constants(INIT_FUNC_ARGS)
1457: {
1458: REGISTER_LONG_CONSTANT("HTML_SPECIALCHARS", HTML_SPECIALCHARS, CONST_PERSISTENT|CONST_CS);
1459: REGISTER_LONG_CONSTANT("HTML_ENTITIES", HTML_ENTITIES, CONST_PERSISTENT|CONST_CS);
1460: REGISTER_LONG_CONSTANT("ENT_COMPAT", ENT_COMPAT, CONST_PERSISTENT|CONST_CS);
1461: REGISTER_LONG_CONSTANT("ENT_QUOTES", ENT_QUOTES, CONST_PERSISTENT|CONST_CS);
1462: REGISTER_LONG_CONSTANT("ENT_NOQUOTES", ENT_NOQUOTES, CONST_PERSISTENT|CONST_CS);
1463: REGISTER_LONG_CONSTANT("ENT_IGNORE", ENT_IGNORE, CONST_PERSISTENT|CONST_CS);
1.1.1.2 misho 1464: REGISTER_LONG_CONSTANT("ENT_SUBSTITUTE", ENT_SUBSTITUTE, CONST_PERSISTENT|CONST_CS);
1465: REGISTER_LONG_CONSTANT("ENT_DISALLOWED", ENT_DISALLOWED, CONST_PERSISTENT|CONST_CS);
1466: REGISTER_LONG_CONSTANT("ENT_HTML401", ENT_HTML401, CONST_PERSISTENT|CONST_CS);
1467: REGISTER_LONG_CONSTANT("ENT_XML1", ENT_XML1, CONST_PERSISTENT|CONST_CS);
1468: REGISTER_LONG_CONSTANT("ENT_XHTML", ENT_XHTML, CONST_PERSISTENT|CONST_CS);
1469: REGISTER_LONG_CONSTANT("ENT_HTML5", ENT_HTML5, CONST_PERSISTENT|CONST_CS);
1.1 misho 1470: }
1471: /* }}} */
1472:
1473: /* {{{ proto string htmlspecialchars(string string [, int quote_style[, string charset[, bool double_encode]]])
1474: Convert special characters to HTML entities */
1475: PHP_FUNCTION(htmlspecialchars)
1476: {
1477: php_html_entities(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
1478: }
1479: /* }}} */
1480:
1481: /* {{{ proto string htmlspecialchars_decode(string string [, int quote_style])
1482: Convert special HTML entities back to characters */
1483: PHP_FUNCTION(htmlspecialchars_decode)
1484: {
1.1.1.2 misho 1485: char *str;
1486: int str_len;
1487: size_t new_len = 0;
1.1 misho 1488: long quote_style = ENT_COMPAT;
1.1.1.2 misho 1489: char *replaced;
1.1 misho 1490:
1.1.1.2 misho 1491: if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|l", &str, &str_len, "e_style) == FAILURE) {
1.1 misho 1492: return;
1493: }
1494:
1.1.1.2 misho 1495: replaced = php_unescape_html_entities(str, str_len, &new_len, 0 /*!all*/, quote_style, NULL TSRMLS_CC);
1496: if (replaced) {
1497: RETURN_STRINGL(replaced, (int)new_len, 0);
1.1 misho 1498: }
1.1.1.2 misho 1499: RETURN_FALSE;
1.1 misho 1500: }
1501: /* }}} */
1502:
1503: /* {{{ proto string html_entity_decode(string string [, int quote_style][, string charset])
1504: Convert all HTML entities to their applicable characters */
1505: PHP_FUNCTION(html_entity_decode)
1506: {
1507: char *str, *hint_charset = NULL;
1.1.1.2 misho 1508: int str_len, hint_charset_len = 0;
1509: size_t new_len = 0;
1.1 misho 1510: long quote_style = ENT_COMPAT;
1511: char *replaced;
1512:
1513: if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ls", &str, &str_len,
1514: "e_style, &hint_charset, &hint_charset_len) == FAILURE) {
1515: return;
1516: }
1517:
1.1.1.2 misho 1518: replaced = php_unescape_html_entities(str, str_len, &new_len, 1 /*all*/, quote_style, hint_charset TSRMLS_CC);
1.1 misho 1519: if (replaced) {
1.1.1.2 misho 1520: RETURN_STRINGL(replaced, (int)new_len, 0);
1.1 misho 1521: }
1522: RETURN_FALSE;
1523: }
1524: /* }}} */
1525:
1526:
1527: /* {{{ proto string htmlentities(string string [, int quote_style[, string charset[, bool double_encode]]])
1528: Convert all applicable characters to HTML entities */
1529: PHP_FUNCTION(htmlentities)
1530: {
1531: php_html_entities(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
1532: }
1533: /* }}} */
1534:
1.1.1.2 misho 1535: /* {{{ write_s3row_data */
1536: static inline void write_s3row_data(
1537: const entity_stage3_row *r,
1538: unsigned orig_cp,
1539: enum entity_charset charset,
1540: zval *arr)
1541: {
1542: char key[9] = ""; /* two unicode code points in UTF-8 */
1543: char entity[LONGEST_ENTITY_LENGTH + 2] = {'&'};
1544: size_t written_k1;
1545:
1546: written_k1 = write_octet_sequence(key, charset, orig_cp);
1547:
1548: if (!r->ambiguous) {
1549: size_t l = r->data.ent.entity_len;
1550: memcpy(&entity[1], r->data.ent.entity, l);
1551: entity[l + 1] = ';';
1552: add_assoc_stringl_ex(arr, key, written_k1 + 1, entity, l + 2, 1);
1553: } else {
1554: unsigned i,
1555: num_entries;
1556: const entity_multicodepoint_row *mcpr = r->data.multicodepoint_table;
1557:
1558: if (mcpr[0].leading_entry.default_entity != NULL) {
1559: size_t l = mcpr[0].leading_entry.default_entity_len;
1560: memcpy(&entity[1], mcpr[0].leading_entry.default_entity, l);
1561: entity[l + 1] = ';';
1562: add_assoc_stringl_ex(arr, key, written_k1 + 1, entity, l + 2, 1);
1563: }
1564: num_entries = mcpr[0].leading_entry.size;
1565: for (i = 1; i <= num_entries; i++) {
1566: size_t l,
1567: written_k2;
1568: unsigned uni_cp,
1569: spe_cp;
1570:
1571: uni_cp = mcpr[i].normal_entry.second_cp;
1572: l = mcpr[i].normal_entry.entity_len;
1573:
1574: if (!CHARSET_UNICODE_COMPAT(charset)) {
1575: if (map_from_unicode(uni_cp, charset, &spe_cp) == FAILURE)
1576: continue; /* non representable in this charset */
1577: } else {
1578: spe_cp = uni_cp;
1579: }
1580:
1581: written_k2 = write_octet_sequence(&key[written_k1], charset, spe_cp);
1582: memcpy(&entity[1], mcpr[i].normal_entry.entity, l);
1583: entity[l + 1] = ';';
1584: entity[l + 1] = '\0';
1585: add_assoc_stringl_ex(arr, key, written_k1 + written_k2 + 1, entity, l + 1, 1);
1586: }
1587: }
1588: }
1589: /* }}} */
1590:
1591: /* {{{ proto array get_html_translation_table([int table [, int flags [, string charset_hint]]])
1.1 misho 1592: Returns the internal translation table used by htmlspecialchars and htmlentities */
1593: PHP_FUNCTION(get_html_translation_table)
1594: {
1.1.1.2 misho 1595: long all = HTML_SPECIALCHARS,
1596: flags = ENT_COMPAT;
1597: int doctype;
1598: entity_table_opt entity_table;
1599: const enc_to_uni *to_uni_table;
1.1 misho 1600: char *charset_hint = NULL;
1601: int charset_hint_len;
1602: enum entity_charset charset;
1603:
1.1.1.2 misho 1604: /* in this function we have to jump through some loops because we're
1605: * getting the translated table from data structures that are optimized for
1606: * random access, not traversal */
1607:
1.1 misho 1608: if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|lls",
1.1.1.2 misho 1609: &all, &flags, &charset_hint, &charset_hint_len) == FAILURE) {
1.1 misho 1610: return;
1611: }
1612:
1613: charset = determine_charset(charset_hint TSRMLS_CC);
1.1.1.2 misho 1614: doctype = flags & ENT_HTML_DOC_TYPE_MASK;
1615: LIMIT_ALL(all, doctype, charset);
1.1 misho 1616:
1617: array_init(return_value);
1.1.1.2 misho 1618:
1619: entity_table = determine_entity_table(all, doctype);
1620: if (all && !CHARSET_UNICODE_COMPAT(charset)) {
1621: to_uni_table = enc_to_uni_index[charset];
1622: }
1.1 misho 1623:
1.1.1.2 misho 1624: if (all) { /* HTML_ENTITIES (actually, any non-zero value for 1st param) */
1625: const entity_stage1_row *ms_table = entity_table.ms_table;
1626:
1627: if (CHARSET_UNICODE_COMPAT(charset)) {
1628: unsigned i, j, k,
1629: max_i, max_j, max_k;
1630: /* no mapping to unicode required */
1.1.1.3 ! misho 1631: if (CHARSET_SINGLE_BYTE(charset)) { /* ISO-8859-1 */
! 1632: max_i = 1; max_j = 4; max_k = 64;
1.1.1.2 misho 1633: } else {
1634: max_i = 0x1E; max_j = 64; max_k = 64;
1635: }
1.1 misho 1636:
1.1.1.2 misho 1637: for (i = 0; i < max_i; i++) {
1638: if (ms_table[i] == empty_stage2_table)
1.1 misho 1639: continue;
1.1.1.2 misho 1640: for (j = 0; j < max_j; j++) {
1641: if (ms_table[i][j] == empty_stage3_table)
1642: continue;
1643: for (k = 0; k < max_k; k++) {
1644: const entity_stage3_row *r = &ms_table[i][j][k];
1645: unsigned code;
1646:
1647: if (r->data.ent.entity == NULL)
1648: continue;
1649:
1650: code = ENT_CODE_POINT_FROM_STAGES(i, j, k);
1651: if (((code == '\'' && !(flags & ENT_HTML_QUOTE_SINGLE)) ||
1652: (code == '"' && !(flags & ENT_HTML_QUOTE_DOUBLE))))
1653: continue;
1654: write_s3row_data(r, code, charset, return_value);
1655: }
1.1 misho 1656: }
1657: }
1.1.1.2 misho 1658: } else {
1659: /* we have to iterate through the set of code points for this
1660: * encoding and map them to unicode code points */
1661: unsigned i;
1662: for (i = 0; i <= 0xFF; i++) {
1663: const entity_stage3_row *r;
1664: unsigned uni_cp;
1665:
1666: /* can be done before mapping, they're invariant */
1667: if (((i == '\'' && !(flags & ENT_HTML_QUOTE_SINGLE)) ||
1668: (i == '"' && !(flags & ENT_HTML_QUOTE_DOUBLE))))
1669: continue;
1.1 misho 1670:
1.1.1.2 misho 1671: map_to_unicode(i, to_uni_table, &uni_cp);
1672: r = &ms_table[ENT_STAGE1_INDEX(uni_cp)][ENT_STAGE2_INDEX(uni_cp)][ENT_STAGE3_INDEX(uni_cp)];
1673: if (r->data.ent.entity == NULL)
1674: continue;
1675:
1676: write_s3row_data(r, i, charset, return_value);
1.1 misho 1677: }
1678: }
1.1.1.2 misho 1679: } else {
1680: /* we could use sizeof(stage3_table_be_apos_00000) as well */
1681: unsigned j,
1682: numelems = sizeof(stage3_table_be_noapos_00000) /
1683: sizeof(*stage3_table_be_noapos_00000);
1684:
1685: for (j = 0; j < numelems; j++) {
1686: const entity_stage3_row *r = &entity_table.table[j];
1687: if (r->data.ent.entity == NULL)
1688: continue;
1.1 misho 1689:
1.1.1.2 misho 1690: if (((j == '\'' && !(flags & ENT_HTML_QUOTE_SINGLE)) ||
1691: (j == '"' && !(flags & ENT_HTML_QUOTE_DOUBLE))))
1692: continue;
1693:
1694: /* charset is indifferent, used cs_8859_1 for efficiency */
1695: write_s3row_data(r, j, cs_8859_1, return_value);
1696: }
1.1 misho 1697: }
1698: }
1699: /* }}} */
1700:
1701: /*
1702: * Local variables:
1703: * tab-width: 4
1704: * c-basic-offset: 4
1705: * End:
1706: * vim600: sw=4 ts=4 fdm=marker
1707: * vim<600: sw=4 ts=4
1708: */