+
<:
my $diinfo = do 'digraphs.inc.pl';
my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
@@ -109,16 +57,29 @@ sub table {
$colspan++;
next;
}
- elsif ($cell =~ s/^-//) {
- $class = 'empty';
+
+ my $code = join '', map { $di{ord $_} || '' } split //, $cell;
+ my $name = $diinfo->{$code}->[1];
+
+ if ($cell =~ s/^-//) {
+# $class = 'Empty';
}
elsif ($cell eq '=') {
- $class = 'reserved';
+ $class = 'Reserved';
$cell = '';
}
-
- my $code = join '', map { $di{ord $_} || '' } split //, $cell;
- my $name = $diinfo->{$code}->[1];
+ elsif ($cell =~ /[ -~]/) {
+ $class = 'Ascii';
+ }
+ elsif (not $code) {
+ $class = 'DiNone';
+ }
+ elsif ($diinfo->{$code}->[2] =~ /\bXz\b/) {
+ $class = 'DiProp';
+ }
+ else {
+ $class = 'Di';
+ }
$rows[-1] .= sprintf('
$_\n"} @rows;
}
-print "Common
\n\n";
+print "\n", "
Popular
\n\n";
print table(@$_) for (
[ 3 => [qw{. « » . ⹠⺠. â â . â â . â â}]],
[ 3 => [qw{. â ⡠⢠. § ¶ # . © ® ⢠. â à ÷ . ± ² â}]],
[ 3 => [qw{. Ã¥ ä ö ü à . Ã
æ ø ű ſ}]],
[ 3 => [qw{. ¿ ç ñ é ê è}]],
);
+print "\n\n";
-print "Arrows
\n\n";
+print "\n", "
Arrows
\n\n";
print table(@$_) for (
[ 4 => [qw{. â â â â . â - â â . â â â -}]],
[ 4 => [qw{. â â â â . â - â â . â â â -}]],
[ 3 => [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠â¢}]],
[ 3 => [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠â¿}]],
);
+print "\n\n";
-print "Line drawing
\n\n";
+print "\n", "
Line drawing
\n\n";
print table(@$_) for (
[ 4 => [qw{. â ⬠â . â ⼠⤠. â â´ â}]],
[ 4 => [qw{. â â³ â . ⣠â â« . â â» â}]],
@@ -176,8 +140,9 @@ print table(@$_) for (
[ 3 => [qw{. â ⤠â . â ⪠⡠. â ⧠â }]],
[ 3 => [qw{. â ⥠â . â ⫠⢠. â ⨠â }]],
);
+print "\n\n";
-print "Blocks
\n\n";
+print "\n", "
Blocks
\n\n";
print table(@$_) for (
[ 3 => [qw{. â â â . â â â . â â â }]],
[ 3 => [qw{. â . â . â }]],
@@ -185,16 +150,18 @@ print table(@$_) for (
[ 2 => [qw{. â â â â â
â â â . â â â â â â â â }]],
[ 3 => [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}]],
);
+print "\n\n";
-print "Signs
\n\n";
+print "\n", "
Signs
\n\n";
print table(@$_) for (
[ 8 => [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}]],
[ 4 => [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}]],
[ 5 => [qw{. â â¿ â â â â â â
â â}]], # solar
[12 => [qw{. â â â â â â â â â â â â}]], # zodiac
);
+print "\n\n";
-print "IPA
\n\n";
+print "\n", "
IPA
\n\n";
print table(@$_) for (
[
12 => [qw{
@@ -245,8 +212,21 @@ print table(@$_) for (
[map {substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded"} qw{Front Central Back}]
],
);
+print "\n\n";
+
+print "\n", "
Alphabetics
\n\n";
+print table(1,
+ [ map { ('.', split //, $_->[1]) } @$_ ],
+ [ map { $_->[0] } @$_ ],
+) for [
+ [Latin => 'aīıÄôɳÅṡšÄðƷ'],
+ [Cyrillic => 'аÑйÑÑнÑÑÑÑÑЯ'],
+ [Greek => 'αίÏηÏÏÏÏÏθξΩ'],
+ [Hebrew => '×ײ××¢×× ×סש×צץ'],
+];
+print "\n\n";
-print "Japanese
\n\n";
+print "\n", "
Japanese
\n\n";
print table(@$_) for (
[
1 => [qw{
@@ -304,3 +284,20 @@ print table(@$_) for (
[qw{A I U E O}],
],
);
+print "\n\n";
+
+:>
+
+
+
+