/* +----------------------------------------------------------------------+ | PHP Version 4 | +----------------------------------------------------------------------+ | Copyright (c) 1997-2008 The PHP Group | +----------------------------------------------------------------------+ | This source file is subject to version 3.01 of the PHP license, | | that is bundled with this package in the file LICENSE, and is | | available through the world-wide-web at the following url: | | http://www.php.net/license/3_01.txt | | If you did not receive a copy of the PHP license and are unable to | | obtain it through the world-wide-web, please send a note to | | license@php.net so we can mail you a copy immediately. | +----------------------------------------------------------------------+ | Authors: Rasmus Lerdorf | | Jaakko Hyvätti | | Wez Furlong | +----------------------------------------------------------------------+ */ /* $Id$ */ /* * HTML entity resources: * * http://msdn.microsoft.com/workshop/author/dhtml/reference/charsets/charset2.asp * http://msdn.microsoft.com/workshop/author/dhtml/reference/charsets/charset3.asp * http://www.unicode.org/Public/MAPPINGS/OBSOLETE/UNI2SGML.TXT * * http://www.w3.org/TR/2002/REC-xhtml1-20020801/dtds.html#h-A2 * */ #include "php.h" #if PHP_WIN32 #include "config.w32.h" #else #include #endif #include "reg.h" #include "html.h" #include "php_string.h" #include "SAPI.h" #if HAVE_LOCALE_H #include #endif #if HAVE_LANGINFO_H #include #endif #if HAVE_MBSTRING # include "ext/mbstring/mbstring.h" ZEND_EXTERN_MODULE_GLOBALS(mbstring) #endif enum entity_charset { cs_terminator, cs_8859_1, cs_cp1252, cs_8859_15, cs_utf_8, cs_big5, cs_gb2312, cs_big5hkscs, cs_sjis, cs_eucjp, cs_koi8r, cs_cp1251, cs_8859_5, cs_cp866 }; typedef const char *entity_table_t; /* codepage 1252 is a Windows extension to iso-8859-1. */ static entity_table_t ent_cp_1252[] = { "euro", NULL, "sbquo", "fnof", "bdquo", "hellip", "dagger", "Dagger", "circ", "permil", "Scaron", "lsaquo", "OElig", NULL, NULL, NULL, NULL, "lsquo", "rsquo", "ldquo", "rdquo", "bull", "ndash", "mdash", "tilde", "trade", "scaron", "rsaquo", "oelig", NULL, NULL, "Yuml" }; static entity_table_t ent_iso_8859_1[] = { "nbsp", "iexcl", "cent", "pound", "curren", "yen", "brvbar", "sect", "uml", "copy", "ordf", "laquo", "not", "shy", "reg", "macr", "deg", "plusmn", "sup2", "sup3", "acute", "micro", "para", "middot", "cedil", "sup1", "ordm", "raquo", "frac14", "frac12", "frac34", "iquest", "Agrave", "Aacute", "Acirc", "Atilde", "Auml", "Aring", "AElig", "Ccedil", "Egrave", "Eacute", "Ecirc", "Euml", "Igrave", "Iacute", "Icirc", "Iuml", "ETH", "Ntilde", "Ograve", "Oacute", "Ocirc", "Otilde", "Ouml", "times", "Oslash", "Ugrave", "Uacute", "Ucirc", "Uuml", "Yacute", "THORN", "szlig", "agrave", "aacute", "acirc", "atilde", "auml", "aring", "aelig", "ccedil", "egrave", "eacute", "ecirc", "euml", "igrave", "iacute", "icirc", "iuml", "eth", "ntilde", "ograve", "oacute", "ocirc", "otilde", "ouml", "divide", "oslash", "ugrave", "uacute", "ucirc", "uuml", "yacute", "thorn", "yuml" }; static entity_table_t ent_iso_8859_15[] = { "nbsp", "iexcl", "cent", "pound", "euro", "yen", "Scaron", "sect", "scaron", "copy", "ordf", "laquo", "not", "shy", "reg", "macr", "deg", "plusmn", "sup2", "sup3", NULL, /* Zcaron */ "micro", "para", "middot", NULL, /* zcaron */ "sup1", "ordm", "raquo", "OElig", "oelig", "Yuml", "iquest", "Agrave", "Aacute", "Acirc", "Atilde", "Auml", "Aring", "AElig", "Ccedil", "Egrave", "Eacute", "Ecirc", "Euml", "Igrave", "Iacute", "Icirc", "Iuml", "ETH", "Ntilde", "Ograve", "Oacute", "Ocirc", "Otilde", "Ouml", "times", "Oslash", "Ugrave", "Uacute", "Ucirc", "Uuml", "Yacute", "THORN", "szlig", "agrave", "aacute", "acirc", "atilde", "auml", "aring", "aelig", "ccedil", "egrave", "eacute", "ecirc", "euml", "igrave", "iacute", "icirc", "iuml", "eth", "ntilde", "ograve", "oacute", "ocirc", "otilde", "ouml", "divide", "oslash", "ugrave", "uacute", "ucirc", "uuml", "yacute", "thorn", "yuml" }; static entity_table_t ent_uni_338_402[] = { /* 338 */ "OElig", "oelig", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 352 */ "Scaron", "scaron", /* 354 */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 376 */ "Yuml", /* 377 */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 402 */ "fnof" }; static entity_table_t ent_uni_spacing[] = { /* 710 */ "circ", /* 711 - 730 */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 731 - 732 */ NULL, "tilde" }; static entity_table_t ent_uni_greek[] = { /* 913 */ "Alpha", "Beta", "Gamma", "Delta", "Epsilon", "Zeta", "Eta", "Theta", "Iota", "Kappa", "Lambda", "Mu", "Nu", "Xi", "Omicron", "Pi", "Rho", NULL, "Sigma", "Tau", "Upsilon", "Phi", "Chi", "Psi", "Omega", /* 938 - 944 are not mapped */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, "alpha", "beta", "gamma", "delta", "epsilon", "zeta", "eta", "theta", "iota", "kappa", "lambda", "mu", "nu", "xi", "omicron", "pi", "rho", "sigmaf", "sigma", "tau", "upsilon", "phi", "chi", "psi", "omega", /* 970 - 976 are not mapped */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, "thetasym", "upsih", NULL, NULL, NULL, "piv" }; static entity_table_t ent_uni_punct[] = { /* 8194 */ "ensp", "emsp", NULL, NULL, NULL, NULL, NULL, "thinsp", NULL, NULL, "zwnj", "zwj", "lrm", "rlm", NULL, NULL, NULL, "ndash", "mdash", NULL, NULL, NULL, "lsquo", "rsquo", "sbquo", NULL, "ldquo", "rdquo", "bdquo", NULL, "dagger", "Dagger", "bull", NULL, NULL, NULL, "hellip", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "permil", NULL, "prime", "Prime", NULL, NULL, NULL, NULL, NULL, "lsaquo", "rsaquo", NULL, NULL, NULL, "oline", NULL, NULL, NULL, NULL, NULL, "frasl" }; static entity_table_t ent_uni_euro[] = { "euro" }; static entity_table_t ent_uni_8465_8501[] = { /* 8465 */ "image", NULL, NULL, NULL, NULL, NULL, NULL, /* 8472 */ "weierp", NULL, NULL, NULL, /* 8476 */ "real", NULL, NULL, NULL, NULL, NULL, /* 8482 */ "trade", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8501 */ "alefsym", }; static entity_table_t ent_uni_8592_9002[] = { /* 8592 (0x2190) */ "larr", "uarr", "rarr", "darr", "harr", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8608 (0x21a0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8624 (0x21b0) */ NULL, NULL, NULL, NULL, NULL, "crarr", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8640 (0x21c0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8656 (0x21d0) */ "lArr", "uArr", "rArr", "dArr", "hArr", "vArr", NULL, NULL, NULL, NULL, "lAarr", "rAarr", NULL, "rarrw", NULL, NULL, /* 8672 (0x21e0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8704 (0x2200) */ "forall", "comp", "part", "exist", "nexist", "empty", NULL, "nabla", "isin", "notin", "epsis", "ni", "notni", "bepsi", NULL, "prod", /* 8720 (0x2210) */ "coprod", "sum", "minus", "mnplus", "plusdo", NULL, "setmn", "lowast", "compfn", NULL, "radic", NULL, NULL, "prop", "infin", "ang90", /* 8736 (0x2220) */ "ang", "angmsd", "angsph", "mid", "nmid", "par", "npar", "and", "or", "cap", "cup", "int", NULL, NULL, "conint", NULL, /* 8752 (0x2230) */ NULL, NULL, NULL, NULL, "there4", "becaus", NULL, NULL, NULL, NULL, NULL, NULL, "sim", "bsim", NULL, NULL, /* 8768 (0x2240) */ "wreath", "nsim", NULL, "sime", "nsime", "cong", NULL, "ncong", "asymp", "nap", "ape", NULL, "bcong", "asymp", "bump", "bumpe", /* 8784 (0x2250) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8800 (0x2260) */ "ne", "equiv", NULL, NULL, "le", "ge", "lE", "gE", "lnE", "gnE", "Lt", "Gt", "twixt", NULL, "nlt", "ngt", /* 8816 (0x2270) */ "nles", "nges", "lsim", "gsim", NULL, NULL, "lg", "gl", NULL, NULL, "pr", "sc", "cupre", "sscue", "prsim", "scsim", /* 8832 (0x2280) */ "npr", "nsc", "sub", "sup", "nsub", "nsup", "sube", "supe", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8848 (0x2290) */ NULL, NULL, NULL, NULL, NULL, "oplus", NULL, "otimes", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8864 (0x22a0) */ NULL, NULL, NULL, NULL, NULL, "perp", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8880 (0x22b0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8896 (0x22c0) */ NULL, NULL, NULL, NULL, NULL, "sdot", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8912 (0x22d0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8928 (0x22e0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8944 (0x22f0) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8960 (0x2300) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "lceil", "rceil", "lfloor", "rfloor", NULL, NULL, NULL, NULL, /* 8976 (0x2310) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* 8992 (0x2320) */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "lang", "rang" }; static entity_table_t ent_uni_9674[] = { /* 9674 */ "loz" }; static entity_table_t ent_uni_9824_9830[] = { /* 9824 */ "spades", NULL, NULL, "clubs", NULL, "hearts", "diams" }; static entity_table_t ent_koi8r[] = { "#1105", /* "jo "*/ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "#1025", /* "JO" */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "#1102", "#1072", "#1073", "#1094", "#1076", "#1077", "#1092", "#1075", "#1093", "#1080", "#1081", "#1082", "#1083", "#1084", "#1085", "#1086", "#1087", "#1103", "#1088", "#1089", "#1090", "#1091", "#1078", "#1074", "#1100", "#1099", "#1079", "#1096", "#1101", "#1097", "#1095", "#1098", "#1070", "#1040", "#1041", "#1062", "#1044", "#1045", "#1060", "#1043", "#1061", "#1048", "#1049", "#1050", "#1051", "#1052", "#1053", "#1054", "#1055", "#1071", "#1056", "#1057", "#1058", "#1059", "#1046", "#1042", "#1068", "#1067", "#1047", "#1064", "#1069", "#1065", "#1063", "#1066" }; static entity_table_t ent_cp_1251[] = { "#1026", "#1027", "#8218", "#1107", "#8222", "hellip", "dagger", "Dagger", "euro", "permil", "#1033", "#8249", "#1034", "#1036", "#1035", "#1039", "#1106", "#8216", "#8217", "#8219", "#8220", "bull", "ndash", "mdash", NULL, "trade", "#1113", "#8250", "#1114", "#1116", "#1115", "#1119", "nbsp", "#1038", "#1118", "#1032", "curren", "#1168", "brvbar", "sect", "#1025", "copy", "#1028", "laquo", "not", "shy", "reg", "#1031", "deg", "plusmn", "#1030", "#1110", "#1169", "micro", "para", "middot", "#1105", "#8470", "#1108", "raquo", "#1112", "#1029", "#1109", "#1111", "#1040", "#1041", "#1042", "#1043", "#1044", "#1045", "#1046", "#1047", "#1048", "#1049", "#1050", "#1051", "#1052", "#1053", "#1054", "#1055", "#1056", "#1057", "#1058", "#1059", "#1060", "#1061", "#1062", "#1063", "#1064", "#1065", "#1066", "#1067", "#1068", "#1069", "#1070", "#1071", "#1072", "#1073", "#1074", "#1075", "#1076", "#1077", "#1078", "#1079", "#1080", "#1081", "#1082", "#1083", "#1084", "#1085", "#1086", "#1087", "#1088", "#1089", "#1090", "#1091", "#1092", "#1093", "#1094", "#1095", "#1096", "#1097", "#1098", "#1099", "#1100", "#1101", "#1102", "#1103" }; static entity_table_t ent_iso_8859_5[] = { "#1056", "#1057", "#1058", "#1059", "#1060", "#1061", "#1062", "#1063", "#1064", "#1065", "#1066", "#1067", "#1068", "#1069", "#1070", "#1071", "#1072", "#1073", "#1074", "#1075", "#1076", "#1077", "#1078", "#1079", "#1080", "#1081", "#1082", "#1083", "#1084", "#1085", "#1086", "#1087", "#1088", "#1089", "#1090", "#1091", "#1092", "#1093", "#1094", "#1095", "#1096", "#1097", "#1098", "#1099", "#1100", "#1101", "#1102", "#1103", "#1104", "#1105", "#1106", "#1107", "#1108", "#1109", "#1110", "#1111", "#1112", "#1113", "#1114", "#1115", "#1116", "#1117", "#1118", "#1119" }; static entity_table_t ent_cp_866[] = { "#9492", "#9524", "#9516", "#9500", "#9472", "#9532", "#9566", "#9567", "#9562", "#9556", "#9577", "#9574", "#9568", "#9552", "#9580", "#9575", "#9576", "#9572", "#9573", "#9561", "#9560", "#9554", "#9555", "#9579", "#9578", "#9496", "#9484", "#9608", "#9604", "#9612", "#9616", "#9600", "#1088", "#1089", "#1090", "#1091", "#1092", "#1093", "#1094", "#1095", "#1096", "#1097", "#1098", "#1099", "#1100", "#1101", "#1102", "#1103", "#1025", "#1105", "#1028", "#1108", "#1031", "#1111", "#1038", "#1118", "#176", "#8729", "#183", "#8730", "#8470", "#164", "#9632", "#160" }; struct html_entity_map { enum entity_charset charset; /* charset identifier */ unsigned short basechar; /* char code at start of table */ unsigned short endchar; /* last char code in the table */ entity_table_t *table; /* the table of mappings */ }; static const struct html_entity_map entity_map[] = { { cs_cp1252, 0x80, 0x9f, ent_cp_1252 }, { cs_cp1252, 0xa0, 0xff, ent_iso_8859_1 }, { cs_8859_1, 0xa0, 0xff, ent_iso_8859_1 }, { cs_8859_15, 0xa0, 0xff, ent_iso_8859_15 }, { cs_utf_8, 0xa0, 0xff, ent_iso_8859_1 }, { cs_utf_8, 338, 402, ent_uni_338_402 }, { cs_utf_8, 710, 732, ent_uni_spacing }, { cs_utf_8, 913, 982, ent_uni_greek }, { cs_utf_8, 8194, 8260, ent_uni_punct }, { cs_utf_8, 8364, 8364, ent_uni_euro }, { cs_utf_8, 8465, 8501, ent_uni_8465_8501 }, { cs_utf_8, 8592, 9002, ent_uni_8592_9002 }, { cs_utf_8, 9674, 9674, ent_uni_9674 }, { cs_utf_8, 9824, 9830, ent_uni_9824_9830 }, { cs_big5, 0xa0, 0xff, ent_iso_8859_1 }, { cs_gb2312, 0xa0, 0xff, ent_iso_8859_1 }, { cs_big5hkscs, 0xa0, 0xff, ent_iso_8859_1 }, { cs_sjis, 0xa0, 0xff, ent_iso_8859_1 }, { cs_eucjp, 0xa0, 0xff, ent_iso_8859_1 }, { cs_koi8r, 0xa3, 0xff, ent_koi8r }, { cs_cp1251, 0x80, 0xff, ent_cp_1251 }, { cs_8859_5, 0xc0, 0xff, ent_iso_8859_5 }, { cs_cp866, 0xc0, 0xff, ent_cp_866 }, { cs_terminator } }; static const struct { const char *codeset; enum entity_charset charset; } charset_map[] = { { "ISO-8859-1", cs_8859_1 }, { "ISO8859-1", cs_8859_1 }, { "ISO-8859-15", cs_8859_15 }, { "ISO8859-15", cs_8859_15 }, { "utf-8", cs_utf_8 }, { "cp1252", cs_cp1252 }, { "Windows-1252", cs_cp1252 }, { "1252", cs_cp1252 }, { "BIG5", cs_big5 }, { "950", cs_big5 }, { "GB2312", cs_gb2312 }, { "936", cs_gb2312 }, { "BIG5-HKSCS", cs_big5hkscs }, { "Shift_JIS", cs_sjis }, { "SJIS", cs_sjis }, { "932", cs_sjis }, { "EUCJP", cs_eucjp }, { "EUC-JP", cs_eucjp }, { "KOI8-R", cs_koi8r }, { "koi8-ru", cs_koi8r }, { "koi8r", cs_koi8r }, { "cp1251", cs_cp1251 }, { "Windows-1251", cs_cp1251 }, { "win-1251", cs_cp1251 }, { "iso8859-5", cs_8859_5 }, { "iso-8859-5", cs_8859_5 }, { "cp866", cs_cp866 }, { "866", cs_cp866 }, { "ibm866", cs_cp866 }, { NULL } }; static const struct { unsigned short charcode; char *entity; int entitylen; int flags; } basic_entities[] = { { '"', """, 6, ENT_HTML_QUOTE_DOUBLE }, { '\'', "'", 6, ENT_HTML_QUOTE_SINGLE }, { '\'', "'", 5, ENT_HTML_QUOTE_SINGLE }, { '<', "<", 4, 0 }, { '>', ">", 4, 0 }, { '&', "&", 5, 0 }, /* this should come last */ { 0, NULL, 0, 0 } }; #define MB_RETURN { \ *newpos = pos; \ mbseq[mbpos] = '\0'; \ *mbseqlen = mbpos; \ return this_char; } #define MB_WRITE(mbchar) { \ mbspace--; \ if (mbspace == 0) { \ MB_RETURN; \ } \ mbseq[mbpos++] = (mbchar); } /* {{{ get_next_char */ inline static unsigned short get_next_char(enum entity_charset charset, unsigned char * str, int * newpos, unsigned char * mbseq, int * mbseqlen) { int pos = *newpos; int mbpos = 0; int mbspace = *mbseqlen; unsigned short this_char = str[pos++]; if (mbspace <= 0) { *mbseqlen = 0; return this_char; } MB_WRITE((unsigned char)this_char); switch (charset) { case cs_utf_8: { unsigned long utf = 0; int stat = 0; int more = 1; /* unpack utf-8 encoding into a wide char. * Code stolen from the mbstring extension */ do { if (this_char < 0x80) { more = 0; break; } else if (this_char < 0xc0) { switch (stat) { case 0x10: /* 2, 2nd */ case 0x21: /* 3, 3rd */ case 0x32: /* 4, 4th */ case 0x43: /* 5, 5th */ case 0x54: /* 6, 6th */ /* last byte in sequence */ more = 0; utf |= (this_char & 0x3f); this_char = (unsigned short)utf; break; case 0x20: /* 3, 2nd */ case 0x31: /* 4, 3rd */ case 0x42: /* 5, 4th */ case 0x53: /* 6, 5th */ /* penultimate char */ utf |= ((this_char & 0x3f) << 6); stat++; break; case 0x30: /* 4, 2nd */ case 0x41: /* 5, 3rd */ case 0x52: /* 6, 4th */ utf |= ((this_char & 0x3f) << 12); stat++; break; case 0x40: /* 5, 2nd */ case 0x51: utf |= ((this_char & 0x3f) << 18); stat++; break; case 0x50: /* 6, 2nd */ utf |= ((this_char & 0x3f) << 24); stat++; break; default: /* invalid */ more = 0; } } /* lead byte */ else if (this_char < 0xe0) { stat = 0x10; /* 2 byte */ utf = (this_char & 0x1f) << 6; } else if (this_char < 0xf0) { stat = 0x20; /* 3 byte */ utf = (this_char & 0xf) << 12; } else if (this_char < 0xf8) { stat = 0x30; /* 4 byte */ utf = (this_char & 0x7) << 18; } else if (this_char < 0xfc) { stat = 0x40; /* 5 byte */ utf = (this_char & 0x3) << 24; } else if (this_char < 0xfe) { stat = 0x50; /* 6 byte */ utf = (this_char & 0x1) << 30; } else { /* invalid; bail */ more = 0; break; } if (more) { this_char = str[pos++]; MB_WRITE((unsigned char)this_char); } } while (more); } break; case cs_big5: case cs_gb2312: case cs_big5hkscs: { /* check if this is the first of a 2-byte sequence */ if (this_char >= 0xa1 && this_char <= 0xfe) { /* peek at the next char */ unsigned char next_char = str[pos]; if ((next_char >= 0x40 && next_char <= 0x7e) || (next_char >= 0xa1 && next_char <= 0xfe)) { /* yes, this a wide char */ this_char <<= 8; MB_WRITE(next_char); this_char |= next_char; pos++; } } break; } case cs_sjis: { /* check if this is the first of a 2-byte sequence */ if ( (this_char >= 0x81 && this_char <= 0x9f) || (this_char >= 0xe0 && this_char <= 0xef) ) { /* peek at the next char */ unsigned char next_char = str[pos]; if ((next_char >= 0x40 && next_char <= 0x7e) || (next_char >= 0x80 && next_char <= 0xfc)) { /* yes, this a wide char */ this_char <<= 8; MB_WRITE(next_char); this_char |= next_char; pos++; } } break; } case cs_eucjp: { /* check if this is the first of a multi-byte sequence */ if (this_char >= 0xa1 && this_char <= 0xfe) { /* peek at the next char */ unsigned char next_char = str[pos]; if (next_char >= 0xa1 && next_char <= 0xfe) { /* yes, this a jis kanji char */ this_char <<= 8; MB_WRITE(next_char); this_char |= next_char; pos++; } } else if (this_char == 0x8e) { /* peek at the next char */ unsigned char next_char = str[pos]; if (next_char >= 0xa1 && next_char <= 0xdf) { /* JIS X 0201 kana */ this_char <<= 8; MB_WRITE(next_char); this_char |= next_char; pos++; } } else if (this_char == 0x8f) { /* peek at the next two char */ unsigned char next_char = str[pos]; unsigned char next2_char = str[pos+1]; if ((next_char >= 0xa1 && next_char <= 0xfe) && (next2_char >= 0xa1 && next2_char <= 0xfe)) { /* JIS X 0212 hojo-kanji */ this_char <<= 8; MB_WRITE(next_char); this_char |= next_char; pos++; this_char <<= 8; MB_WRITE(next2_char); this_char |= next2_char; pos++; } } break; } default: break; } MB_RETURN; } /* }}} */ /* {{{ entity_charset determine_charset * returns the charset identifier based on current locale or a hint. * defaults to iso-8859-1 */ static enum entity_charset determine_charset(char *charset_hint TSRMLS_DC) { int i; enum entity_charset charset = cs_8859_1; int len = 0; zval *uf_result = NULL; /* Guarantee default behaviour for backwards compatibility */ if (charset_hint == NULL) return cs_8859_1; if ((len = strlen(charset_hint)) != 0) { goto det_charset; } #if HAVE_MBSTRING #if !defined(COMPILE_DL_MBSTRING) /* XXX: Ugly things. Why don't we look for a more sophisticated way? */ switch (MBSTRG(current_internal_encoding)) { case mbfl_no_encoding_8859_1: return cs_8859_1; case mbfl_no_encoding_utf8: return cs_utf_8; case mbfl_no_encoding_euc_jp: case mbfl_no_encoding_eucjp_win: return cs_eucjp; case mbfl_no_encoding_sjis: case mbfl_no_encoding_sjis_win: case mbfl_no_encoding_sjis_mac: return cs_sjis; case mbfl_no_encoding_cp1252: return cs_cp1252; case mbfl_no_encoding_8859_15: return cs_8859_15; case mbfl_no_encoding_big5: return cs_big5; case mbfl_no_encoding_euc_cn: case mbfl_no_encoding_hz: case mbfl_no_encoding_cp936: return cs_gb2312; case mbfl_no_encoding_koi8r: return cs_koi8r; case mbfl_no_encoding_cp866: return cs_cp866; case mbfl_no_encoding_cp1251: return cs_cp1251; case mbfl_no_encoding_8859_5: return cs_8859_5; default: ; } #else { zval nm_mb_internal_encoding; ZVAL_STRING(&nm_mb_internal_encoding, "mb_internal_encoding", 0); if (call_user_function_ex(CG(function_table), NULL, &nm_mb_internal_encoding, &uf_result, 0, NULL, 1, NULL TSRMLS_CC) != FAILURE) { charset_hint = Z_STRVAL_P(uf_result); len = Z_STRLEN_P(uf_result); goto det_charset; } } #endif #endif charset_hint = SG(default_charset); if (charset_hint != NULL && (len=strlen(charset_hint)) != 0) { goto det_charset; } /* try to detect the charset for the locale */ #if HAVE_NL_LANGINFO && HAVE_LOCALE_H && defined(CODESET) charset_hint = nl_langinfo(CODESET); if (charset_hint != NULL && (len=strlen(charset_hint)) != 0) { goto det_charset; } #endif #if HAVE_LOCALE_H /* try to figure out the charset from the locale */ { char *localename; char *dot, *at; /* lang[_territory][.codeset][@modifier] */ localename = setlocale(LC_CTYPE, NULL); dot = strchr(localename, '.'); if (dot) { dot++; /* locale specifies a codeset */ at = strchr(dot, '@'); if (at) len = at - dot; else len = strlen(dot); charset_hint = dot; } else { /* no explicit name; see if the name itself * is the charset */ charset_hint = localename; len = strlen(charset_hint); } } #endif det_charset: if (charset_hint) { int found = 0; /* now walk the charset map and look for the codeset */ for (i = 0; charset_map[i].codeset; i++) { if (strncasecmp(charset_hint, charset_map[i].codeset, len) == 0) { charset = charset_map[i].charset; found = 1; break; } } if (!found) { php_error_docref(NULL TSRMLS_CC, E_WARNING, "charset `%s' not supported, assuming iso-8859-1", charset_hint); } } if (uf_result != NULL) { zval_ptr_dtor(&uf_result); } return charset; } /* }}} */ /* {{{ php_unescape_html_entities */ PHPAPI char *php_unescape_html_entities(unsigned char *old, int oldlen, int *newlen, int all, int quote_style, char *hint_charset TSRMLS_DC) { int retlen; int j, k; char *replaced, *ret; enum entity_charset charset = determine_charset(hint_charset TSRMLS_CC); unsigned char replacement[15]; ret = estrndup(old, oldlen); retlen = oldlen; if (!retlen) { goto empty_source; } if (all) { /* look for a match in the maps for this charset */ for (j = 0; entity_map[j].charset != cs_terminator; j++) { if (entity_map[j].charset != charset) continue; for (k = entity_map[j].basechar; k <= entity_map[j].endchar; k++) { unsigned char entity[32]; int entity_length = 0; if (entity_map[j].table[k - entity_map[j].basechar] == NULL) continue; entity[0] = '&'; entity_length = strlen(entity_map[j].table[k - entity_map[j].basechar]); strncpy(&entity[1], entity_map[j].table[k - entity_map[j].basechar], sizeof(entity) - 2); entity[entity_length+1] = ';'; entity[entity_length+2] = '\0'; entity_length += 2; /* When we have MBCS entities in the tables above, this will need to handle it */ if (k > 0xff) { zend_error(E_WARNING, "cannot yet handle MBCS in html_entity_decode()!"); } replacement[0] = k; replacement[1] = '\0'; replaced = php_str_to_str(ret, retlen, entity, entity_length, replacement, 1, &retlen); efree(ret); ret = replaced; } } } for (j = 0; basic_entities[j].charcode != 0; j++) { if (basic_entities[j].flags && (quote_style & basic_entities[j].flags) == 0) continue; replacement[0] = (unsigned char)basic_entities[j].charcode; replacement[1] = '\0'; replaced = php_str_to_str(ret, retlen, basic_entities[j].entity, basic_entities[j].entitylen, replacement, 1, &retlen); efree(ret); ret = replaced; } empty_source: *newlen = retlen; return ret; } /* }}} */ /* {{{ php_escape_html_entities */ PHPAPI char *php_escape_html_entities(unsigned char *old, int oldlen, int *newlen, int all, int quote_style, char *hint_charset TSRMLS_DC) { int i, j, maxlen, len; char *replaced; enum entity_charset charset = determine_charset(hint_charset TSRMLS_CC); int matches_map; maxlen = 2 * oldlen; if (maxlen < 128) maxlen = 128; replaced = emalloc (maxlen); len = 0; i = 0; while (i < oldlen) { unsigned char mbsequence[16]; /* allow up to 15 characters in a multibyte sequence */ int mbseqlen = sizeof(mbsequence); unsigned short this_char = get_next_char(charset, old, &i, mbsequence, &mbseqlen); matches_map = 0; if (len + 16 > maxlen) replaced = erealloc (replaced, maxlen += 128); if (all) { /* look for a match in the maps for this charset */ unsigned char *rep = NULL; for (j = 0; entity_map[j].charset != cs_terminator; j++) { if (entity_map[j].charset == charset && this_char >= entity_map[j].basechar && this_char <= entity_map[j].endchar) { rep = (unsigned char*)entity_map[j].table[this_char - entity_map[j].basechar]; if (rep == NULL) { /* there is no entity for this position; fall through and * just output the character itself */ break; } matches_map = 1; break; } } if (matches_map) { int l = strlen(rep); /* increase the buffer size */ if (len + 2 + l >= maxlen) { replaced = erealloc(replaced, maxlen += 128); } replaced[len++] = '&'; strcpy(replaced + len, rep); len += l; replaced[len++] = ';'; } } if (!matches_map) { int is_basic = 0; for (j = 0; basic_entities[j].charcode != 0; j++) { if ((basic_entities[j].charcode != this_char) || (basic_entities[j].flags && (quote_style & basic_entities[j].flags) == 0)) continue; memcpy(replaced + len, basic_entities[j].entity, basic_entities[j].entitylen); len += basic_entities[j].entitylen; is_basic = 1; break; } if (!is_basic) { if (mbseqlen > 1) { /* a wide char without a named entity; pass through the original sequence */ memcpy(replaced + len, mbsequence, mbseqlen); len += mbseqlen; } else { replaced[len++] = (unsigned char)this_char; } } } } replaced[len] = '\0'; *newlen = len; return replaced; } /* }}} */ /* {{{ php_html_entities */ static void php_html_entities(INTERNAL_FUNCTION_PARAMETERS, int all) { char *str, *hint_charset = NULL; int str_len, hint_charset_len = 0; int len; long quote_style = ENT_COMPAT; char *replaced; if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ls", &str, &str_len, "e_style, &hint_charset, &hint_charset_len) == FAILURE) { return; } replaced = php_escape_html_entities(str, str_len, &len, all, quote_style, hint_charset TSRMLS_CC); RETVAL_STRINGL(replaced, len, 0); } /* }}} */ #define HTML_SPECIALCHARS 0 #define HTML_ENTITIES 1 /* {{{ register_html_constants */ void register_html_constants(INIT_FUNC_ARGS) { REGISTER_LONG_CONSTANT("HTML_SPECIALCHARS", HTML_SPECIALCHARS, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("HTML_ENTITIES", HTML_ENTITIES, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("ENT_COMPAT", ENT_COMPAT, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("ENT_QUOTES", ENT_QUOTES, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("ENT_NOQUOTES", ENT_NOQUOTES, CONST_PERSISTENT|CONST_CS); } /* }}} */ /* {{{ proto string htmlspecialchars(string string [, int quote_style][, string charset]) Convert special characters to HTML entities */ PHP_FUNCTION(htmlspecialchars) { php_html_entities(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); } /* }}} */ /* {{{ proto string html_entity_decode(string string [, int quote_style][, string charset]) Convert all HTML entities to their applicable characters */ PHP_FUNCTION(html_entity_decode) { char *str, *hint_charset = NULL; int str_len, hint_charset_len, len; long quote_style = ENT_COMPAT; char *replaced; if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ls", &str, &str_len, "e_style, &hint_charset, &hint_charset_len) == FAILURE) { return; } replaced = php_unescape_html_entities(str, str_len, &len, 1, quote_style, hint_charset TSRMLS_CC); RETVAL_STRINGL(replaced, len, 0); } /* }}} */ /* {{{ proto string htmlentities(string string [, int quote_style][, string charset]) Convert all applicable characters to HTML entities */ PHP_FUNCTION(htmlentities) { php_html_entities(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1); } /* }}} */ /* {{{ proto array get_html_translation_table([int table [, int quote_style]]) Returns the internal translation table used by htmlspecialchars and htmlentities */ PHP_FUNCTION(get_html_translation_table) { long which = HTML_SPECIALCHARS, quote_style = ENT_COMPAT; int i, j; char ind[2]; enum entity_charset charset = determine_charset(NULL TSRMLS_CC); if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|ll", &which, "e_style) == FAILURE) { return; } array_init(return_value); ind[1] = 0; switch (which) { case HTML_ENTITIES: for (j=0; entity_map[j].charset != cs_terminator; j++) { if (entity_map[j].charset != charset) continue; for (i = 0; i <= entity_map[j].endchar - entity_map[j].basechar; i++) { char buffer[16]; if (entity_map[j].table[i] == NULL) continue; /* what about wide chars here ?? */ ind[0] = i + entity_map[j].basechar; sprintf(buffer, "&%s;", entity_map[j].table[i]); add_assoc_string(return_value, ind, buffer, 1); } } /* break thru */ case HTML_SPECIALCHARS: for (j = 0; basic_entities[j].charcode != 0; j++) { if (basic_entities[j].flags && (quote_style & basic_entities[j].flags) == 0) continue; ind[0] = (unsigned char)basic_entities[j].charcode; add_assoc_string(return_value, ind, basic_entities[j].entity, 1); } break; } } /* }}} */ /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * End: * vim600: sw=4 ts=4 fdm=marker * vim<600: sw=4 ts=4 */