', EscapeHTML($c1);
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
@@ -58,7 +53,7 @@ for my $c1group (@chars) {
next;
}
if (ref $di->{$mnem} ne 'ARRAY') {
- printf ' | ', quote($mnem);
+ printf ' | ', EscapeHTML($mnem);
next;
}
my ($codepoint, $name, $prop, $script, $string) = @{ $di->{$mnem} };
@@ -68,13 +63,13 @@ for my $c1group (@chars) {
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
- $glyph = quote($glyph);
+ $glyph = EscapeHTML($glyph);
$glyph = "$glyph" if $prop eq 'Zs';
printf "\n".' | %s',
- join(' ', @class), quote($desc), $glyph;
+ join(' ', @class), EscapeHTML($desc), $glyph;
}
- print "\n | ", quote($c1), "\n";
+ print "\n | ", EscapeHTML($c1), "\n";
}
}
print "\n";
|
---|