Blame | Letzte Änderung | Log anzeigen | RSS feed
<?php// $Header: /cvsroot/html2ps/xhtml.utils.inc.php,v 1.35 2007/03/15 18:37:36 Konstantin Exp $function close_tag($tag, $sample_html) {return preg_replace("!(<{$tag}(\s[^>]*[^/>])?)>!si","\\1/>",$sample_html);};function make_attr_value($attr, $html) {return preg_replace("#(<[^>]*\s){$attr}(\s|>|/>)#si","\\1{$attr}=\"{$attr}\"\\2",$html);};function mk_open_tag_regexp($tag) { return "<\s*{$tag}(\s+[^>]*)?>"; };function mk_close_tag_regexp($tag) { return "<\s*/\s*{$tag}\s*>"; };function process_html($html) {$open = mk_open_tag_regexp("html");$close = mk_close_tag_regexp("html");if (!preg_match("#{$open}#is",$html)) {$html = "<html>".$html;};/*** Let's check if there's more than one <html> tags inside the page text* If there are, remove everything except the first one and content between the first and second <html>*/while (preg_match("#{$open}(.*?){$open}#is", $html)) {$html = preg_replace("#{$open}(.*?){$open}#is", "<html>\\2", $html);};if (!preg_match("#{$close}#is", $html)) {$html = $html."</html>";};// PHP 5.2.0 compatilibty issue// preg_replace may accidentally return NULL on large files not matching this$html = preg_replace("#.*({$open})#is","\\1",$html);// PHP 5.2.0 compatilibty issue// preg_replace may accidentally return NULL on large files not matching this// Cut off all data before and after 'html' tag; unless we'll do it,// the XML parser will die violently$html = preg_replace("#^.*<html#is","<html",$html);$html = preg_replace("#</html\s*>.*$#is","</html>",$html);return $html;}function process_head($html) {$open = mk_open_tag_regexp("head");$close = mk_close_tag_regexp("head");$ohtml = mk_open_tag_regexp("html");$chtml = mk_close_tag_regexp("html");$obody = mk_open_tag_regexp("body");if (!preg_match("#{$open}#is",$html)) {$html = preg_replace("#({$ohtml})(.*)({$obody})#is","\\1<head>\\3</head>\\4",$html);} elseif (!preg_match("#{$close}#is",$html)) {if (preg_match("#{$obody}#is",$html)) {$html = preg_replace("#({$obody})#is","</head>\\1",$html);} else {$html = preg_replace("#({$chtml})#is","</head>\\1",$html);};};return $html;}function process_body($html) {$open = mk_open_tag_regexp("body");$close = mk_close_tag_regexp("body");$ohtml = mk_open_tag_regexp("html");$chtml = mk_close_tag_regexp("html");$chead = mk_close_tag_regexp("head");if (!preg_match("#{$open}#is",$html)) {if (preg_match("#{$chead}#is",$html)) {$html = preg_replace("#({$chead})#is","\\1<body>",$html);} else {$html = preg_replace("#({$ohtml})#is","\\1<body>",$html);};};if (!preg_match("#{$close}#is",$html)) {$html = preg_replace("#({$chtml})#is","</body>\\1",$html);};// Now check is there any data between </head> and <body>.$html = preg_replace("#({$chead})(.+)({$open})#is","\\1\\3\\2",$html);// Check if there's any data between </body> and </html>$html = preg_replace("#({$close})(.+)({$chtml})#is","\\2\\1\\3",$html);return $html;}// Hmmm. May be we'll just write SAX parser on PHP? ;-)function fix_tags($html) {$result = "";$tag_stack = array();// these corrections can simplify the regexp used to parse tags// remove whitespaces before '/' and between '/' and '>' in autoclosing tags$html = preg_replace("#\s*/\s*>#is","/>",$html);// remove whitespaces between '<', '/' and first tag letter in closing tags$html = preg_replace("#<\s*/\s*#is","</",$html);// remove whitespaces between '<' and first tag letter$html = preg_replace("#<\s+#is","<",$html);while (preg_match("#(.*?)(<([a-z\d]+)[^>]*/>|<([a-z\d]+)[^>]*(?<!/)>|</([a-z\d]+)[^>]*>)#is",$html,$matches)) {$result .= $matches[1];$html = substr($html, strlen($matches[0]));// Closing tagif (isset($matches[5])) {$tag = $matches[5];if ($tag == $tag_stack[0]) {// Matched the last opening tag (normal state)// Just pop opening tag from the stackarray_shift($tag_stack);$result .= $matches[2];} elseif (array_search($tag, $tag_stack)) {// We'll never should close 'table' tag such way, so let's check if any 'tables' found on the stack$no_critical_tags = !array_search('table',$tag_stack);if (!$no_critical_tags) {$no_critical_tags = (array_search('table',$tag_stack) >= array_search($tag, $tag_stack));};if ($no_critical_tags) {// Corresponding opening tag exist on the stack (somewhere deep)// Note that we can forget about 0 value returned by array_search, becaus it is handled by previous 'if'// Insert a set of closing tags for all non-matching tags$i = 0;while ($tag_stack[$i] != $tag) {$result .= "</{$tag_stack[$i]}> ";$i++;};// close current tag$result .= "</{$tag_stack[$i]}> ";// remove it from the stackarray_splice($tag_stack, $i, 1);// if this tag is not "critical", reopen "run-off" tags$no_reopen_tags = array("tr","td","table","marquee","body","html");if (array_search($tag, $no_reopen_tags) === false) {while ($i > 0) {$i--;$result .= "<{$tag_stack[$i]}> ";};} else {array_splice($tag_stack, 0, $i);};};} else {// No such tag found on the stack, just remove it (do nothing in out case, as we have to explicitly// add things to result};} elseif (isset($matches[4])) {// Opening tag$tag = $matches[4];array_unshift($tag_stack, $tag);$result .= $matches[2];} else {// Autoclosing tag; do nothing specific$result .= $matches[2];};};// Close all tags leftwhile (count($tag_stack) > 0) {$tag = array_shift($tag_stack);$result .= "</".$tag.">";}return $result;}/*** This function adds quotes to attribute values; it attribute values already have quotes, no changes are made*/function quote_attrs($html) {while (preg_match("!(<[^>]*)\s([^=>]+)=([^'\"\r\n >]+)([\r\n >])!si",$html, $matches)) {$html = preg_replace("#(<[^>]*)\s([^=>]+)=([^'\"\r\n >]+)([\r\n >])#si","\\1 \\2='\\3'\\4",$html);};return $html;};function escape_attr_value_entities($html) {$html = str_replace("<","<",$html);$html = str_replace(">",">",$html);// Replace all character references by their decimal codesprocess_character_references($html);$html = escape_amp($html);return $html;}/*** Updates attribute values: if there's any unescaped <, > or & symbols inside an attribute value,* replaces them with corresponding entity. Also note that & should not be escaped if it is already the part* of entity reference** @param String $html source HTML code* @return String updated HTML code*/function escape_attrs_entities($html) {$result = "";// Regular expression may be described as follows:// (<[^>]*) - something starting with < (i.e. tag name and, probably, some attribute name/values pairs// \s([^\s=>]+)= - space after "something", followed by attribute name (which may contain anything except spaces, = and > signs// (['\"])([^\3]*?)\3 - quoted attribute value; (@todo won't work with escaped quotes inside value, by the way).while (preg_match("#^(.*)(<[^>]*)\s([^\s=>]+)=(['\"])([^\\4]*?)\\4(.*)$#si", $html, $matches)) {$new_value = escape_attr_value_entities($matches[5]);$result .= $matches[1].$matches[2]." ".$matches[3]."=".$matches[4].$new_value.$matches[4];$html = $matches[6];};return $result.$html;};function fix_attrs_spaces(&$html) {while (preg_match("#(<[^>]*)\s([^\s=>]+)=\"([^\"]*?)\"([^\s])#si", $html)) {$html = preg_replace("#(<[^>]*)\s([^\s=>]+)=\"([^\"]*?)\"([^\s])#si","\\1 \\2=\"\\3\" \\4",$html);};while (preg_match("#(<[^>]*)\s([^\s=>]+)='([^']*?)'([^\s])#si", $html)) {$html = preg_replace("#(<[^>]*)\s([^\s=>]+)='([^']*?)'([^\s])#si","\\1 \\2='\\3' \\4",$html);};}function fix_attrs_tag($tag) {if (preg_match("#(<)(.*?)(/\s*>)#is",$tag, $matches)) {$prefix = $matches[1];$suffix = $matches[3];$content = $matches[2];} elseif (preg_match("#(<)(.*?)(>)#is",$tag, $matches)) {$prefix = $matches[1];$suffix = $matches[3];$content = $matches[2];} else {return;};if (preg_match("#^\s*(\w+)\s*(.*)\s*/\s*\$#is", $content, $matches)) {$tagname = $matches[1];$raw_attrs = isset($matches[2]) ? $matches[2] : "";} elseif (preg_match("#^\s*(\w+)\s*(.*)\$#is", $content, $matches)) {$tagname = $matches[1];$raw_attrs = isset($matches[2]) ? $matches[2] : "";} else {// A strange tag occurred; just remove everything$tagname = "";$raw_attrs = "";};$attrs = array();while (!empty($raw_attrs)) {if (preg_match("#^\s*(\w+?)\s*=\s*\"(.*?)\"(.*)$#is",$raw_attrs,$matches)) {$attr = strtolower($matches[1]);$value = $matches[2];if (!isset($attrs[$attr])) {$attrs[$attr] = $value;};$raw_attrs = $matches[3];} elseif (preg_match("#^\s*(\w+?)\s*=\s*'(.*?)'(.*)$#is",$raw_attrs,$matches)) {$attr = strtolower($matches[1]);$value = $matches[2];if (!isset($attrs[$attr])) {$attrs[$attr] = $value;};$raw_attrs = $matches[3];} elseif (preg_match("#^\s*(\w+?)=(\w+)(.*)$#is",$raw_attrs,$matches)) {$attr = strtolower($matches[1]);$value = $matches[2];if (!isset($attrs[$attr])) {$attrs[$attr] = $value;};$raw_attrs = $matches[3];} elseif (preg_match("#^\s*\S+\s+(.*)$#is",$raw_attrs,$matches)) {// Just a junk at the beginning; skip till the first space$raw_attrs = $matches[1];} else {$raw_attrs = "";};};$str = "";foreach ($attrs as $key => $value) {// In theory, if the garbage have been found inside the attrs section, we could get// and invalid attribute name here; just ignore them in this caseif (HTML2PS_XMLUtils::valid_attribute_name($key)) {if (strpos($value,'"') !== false) {$str .= " ".$key."='".$value."'";} else {$str .= " ".$key."=\"".$value."\"";};};};return $prefix.$tagname.$str.$suffix;}function fix_attrs($html) {$result = "";while (preg_match("#^(.*?)(<[^/].*?>)#is",$html,$matches)) {$result .= $matches[1].fix_attrs_tag($matches[2]);$html = substr($html, strlen($matches[0]));};return $result.$html;}function fix_closing_tags($html) {return preg_replace("#</\s*(\w+).*?>#","</\\1>",$html);}function process_pagebreak_commands(&$html) {$html = preg_replace("#<\?page-break>|<!--NewPage-->#","<pagebreak/>",$html);}function xhtml2xhtml($html) {process_pagebreak_commands($html);// Remove STYLE tags for the same reason and store them in the temporary variable// later they will be added back to HEAD section$styles = process_style($html);// Do HTML -> XML (XHTML) conversion// Convert HTML character references to their Unicode analoguesprocess_character_references($html);remove_comments($html);// Convert all tags to lower case$html = lowercase_tags($html);$html = lowercase_closing_tags($html);// Remove SCRIPT tags$html = process_script($html);$html = insert_styles($html, $styles);return $html;}function html2xhtml($html) {process_pagebreak_commands($html);// Remove SCRIPT tags from the page being processed, as script content may// mess the firther html-parsing utilities$html = process_script($html);// Remove STYLE tags for the same reason and store them in the temporary variable// later they will be added back to HEAD section$styles = process_style($html);// Convert HTML character references to their Unicode analoguesprocess_character_references($html);remove_comments($html);fix_attrs_spaces($html);$html = quote_attrs($html);$html = escape_attrs_entities($html);$html = lowercase_tags($html);$html = lowercase_closing_tags($html);$html = fix_closing_tags($html);$html = close_tag("area",$html);$html = close_tag("base",$html);$html = close_tag("basefont",$html);$html = close_tag("br",$html);$html = close_tag("col",$html);$html = close_tag("embed",$html);$html = close_tag("frame",$html);$html = close_tag("hr",$html);$html = close_tag("img",$html);$html = close_tag("input",$html);$html = close_tag("isindex",$html);$html = close_tag("link",$html);$html = close_tag("meta",$html);$html = close_tag("param",$html);$html = make_attr_value("checked",$html);$html = make_attr_value("compact",$html);$html = make_attr_value("declare",$html);$html = make_attr_value("defer",$html);$html = make_attr_value("disabled",$html);$html = make_attr_value("ismap",$html);$html = make_attr_value("multiple",$html);$html = make_attr_value("nohref",$html);$html = make_attr_value("noresize",$html);$html = make_attr_value("noshade",$html);$html = make_attr_value("nowrap",$html);$html = make_attr_value("readonly",$html);$html = make_attr_value("selected",$html);$html = process_html($html);$html = process_body($html);$html = process_head($html);$html = process_p($html);$html = escape_amp($html);$html = escape_lt($html);$html = escape_gt($html);$html = escape_textarea_content($html);process_tables($html,0);process_lists($html,0);process_deflists($html,0);process_selects($html,0);$html = fix_tags($html);$html = fix_attrs($html);$html = insert_styles($html, $styles);return $html;}function escape_textarea_content($html) {preg_match_all('#<textarea(.*)>(.*)<\s*/\s*textarea\s*>#Uis', $html, $matches, PREG_OFFSET_CAPTURE | PREG_SET_ORDER);// Why cycle from the last to first match?// It will keep unprocessed matches offsets valid,// as escaped content may differ from original content in length,for ($i = count($matches)-1; $i>=0; $i--) {$match = $matches[$i];$match_offset = $match[2][1];$match_content = $match[2][0];$match_length = strlen($match_content);$escaped_content = preg_replace('/&([^#])/', '&\1',str_replace('>', '>',str_replace('<', '<', $match_content)));$html = substr_replace($html, $escaped_content, $match_offset, $match_length);};return $html;}function lowercase_tags($html) {$result = "";while (preg_match("#^(.*?)(</?)([a-zA-z0-9]+)([\s>])#is",$html,$matches)) {// Drop extracted part$html = substr($html,strlen($matches[0]));// Move extracted part to the result$result .= $matches[1].$matches[2].strtolower($matches[3]).$matches[4];};return $result.$html;};function lowercase_closing_tags($html) {$result = "";while (preg_match("#^(.*?)(<)([a-zA-z0-9]+)(\s*/\s*>)#is",$html,$matches)) {// Drop extracted part$html = substr($html,strlen($matches[0]));// Move extracted part to the result$result .= $matches[1].$matches[2].strtolower($matches[3]).$matches[4];};return $result.$html;};?>