Parent Directory
| 
Revision Log
++ ChangeLog 11 Dec 2008 05:09:03 -0000 * cc-about.en.html: Added links to Regexp modules. * cc-script.js: Adds a class name to |iframe| element used instead of XHR such that non-Ajax |iframe| element can be distinguished by style sheets. * cc-style.css: Displays non-Ajax |iframe| element. * error-description-source.en.xml: Added catalog entries for regexp graph sections. * standards.en.html: s/WDCC/WebHACC/g. Added a subsection on regular expressions. 2008-12-11 Wakaba <wakaba@suika.fam.cx> ++ html/WebHACC/Language/ChangeLog 11 Dec 2008 05:11:06 -0000 * Table.pm: Bug fix: Subsections are no longer associated with tabs. * RegExpJS.pm: Implemented graphization of regular expressions. 2008-12-11 Wakaba <wakaba@suika.fam.cx> ++ html/WebHACC/ChangeLog 11 Dec 2008 05:10:00 -0000 * Output.pm (start_section): Don't output |script| element for tab control if not desired. 2008-12-11 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 | wakaba | 1.25 | # $s =~ s/>/>/g; |
| 12 | wakaba | 1.1 | $s =~ s/"/"/g; |
| 13 | wakaba | 1.25 | # $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 | wakaba | 1.1 | return $s; |
| 17 | }; | ||