git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: fix html (escape index chars; thead syntax)
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index b62b57774b9f85a425dc9b84ed6b3b26e2c62c0f..ab9aab583ee0549e68de3df80bb1f54b27aa64fa 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-42,24
+42,29
@@
my @chars2 = (@chars, ['_']); # trailing character (extended set)
print '<table><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print '<table><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
-print "\n";
+print "
</colgroup><col>
\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
- print "<th>$_" for map {@$_} @chars2;
+ print '<th>', quote($_) for map {@$_} @chars2;
+ print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
- print
"<tr><th>$c1"
;
+ print
'<tr><th>', quote($c1)
;
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
print '<td>';
next;
}
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
print '<td>';
next;
}
- my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+ if (ref $di->{$mnem} ne 'ARRAY') {
+ printf '<td class="X Xr" title="%s">', quote($mnem);
+ next;
+ }
+ my ($codepoint, $name, $prop, $script, $string) = @{ $di->{$mnem} };
- my $glyph = chr $codepoint;
+ my $glyph =
$string ||
chr $codepoint;
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
@@
-70,7
+75,7
@@
for my $c1group (@chars) {
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
- print "\n<th>
$c1
\n";
+ print "\n<th>
", quote($c1), "
\n";
}
}
print "</table>\n";
}
}
print "</table>\n";
@@
-92,6
+97,7
@@
print "</table>\n";
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
+ <td class="X Hangul">korean
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>