Parent Directory
| 
Revision Log
++ ChangeLog 15 Aug 2008 12:10:51 -0000 * error-description-source.xml: Missing entries for Whatpm::ContentChecker and Whatpm::ContentChecker::HTML error types are added. Error entries used by these modules are marked as such. 2008-08-15 Wakaba <wakaba@suika.fam.cx> ++ html/WebHACC/Language/ChangeLog 15 Aug 2008 12:11:51 -0000 * DOM.pm: Use error's own "layer" parameter, if any. 2008-08-15 Wakaba <wakaba@suika.fam.cx> ++ html/WebHACC/ChangeLog 15 Aug 2008 12:11:25 -0000 * Output.pm (nl_text): New rule, <var>{value}</var>, is implemented. 2008-08-15 Wakaba <wakaba@suika.fam.cx>
| 1 | wakaba | 1.1 | package WebHACC::Output; |
| 2 | use strict; | ||
| 3 | wakaba | 1.3 | |
| 4 | wakaba | 1.1 | require IO::Handle; |
| 5 | wakaba | 1.3 | use Scalar::Util qw/refaddr/; |
| 6 | wakaba | 1.1 | |
| 7 | my $htescape = sub ($) { | ||
| 8 | my $s = $_[0]; | ||
| 9 | $s =~ s/&/&/g; | ||
| 10 | $s =~ s/</</g; | ||
| 11 | $s =~ s/>/>/g; | ||
| 12 | $s =~ s/"/"/g; | ||
| 13 | $s =~ s{([\x00-\x09\x0B-\x1F\x7F-\xA0\x{FEFF}\x{FFFC}-\x{FFFF}])}{ | ||
| 14 | sprintf '<var>U+%04X</var>', ord $1; | ||
| 15 | }ge; | ||
| 16 | return $s; | ||
| 17 | }; | ||
| 18 | |||
| 19 | wakaba | 1.10 | my $htescape_value = sub ($) { |
| 20 |