<:
my $diinfo = do 'digraphs.inc.pl';
@@ -112,8 +40,8 @@ sub quote {
return $_;
}
-sub table {
- my ($width, $digraphs, $rowheads, $colheads) = @_;
+sub glyph_table {
+ my ($digraphs, $rowheads, $colheads) = @_;
my @rows;
@@ -173,64 +101,70 @@ sub table {
@$colheads
}
- return sprintf "
$_\n"} @rows;
}
-print "Common
\n\n";
-print table(@$_) for (
- [ 3 => [qw{. « » . ⹠⺠. â â . â â . â â}]],
- [ 3 => [qw{. â ⡠⢠. § ¶ # . © ® ⢠. â à ÷ . ± ² â}]],
- [ 3 => [qw{. Ã¥ ä ö ü à . Ã
æ ø ű ſ}]],
- [ 3 => [qw{. ¿ ç ñ é ê è}]],
+print "\n", "
Popular
\n\n";
+print glyph_table(@$_) for (
+ [ [qw{. « » . ⹠⺠. â â . â â . â â}]],
+ [ [qw{. â ⡠⢠. § ¶ # . © ® ⢠. â à ÷ . ± ² â}]],
+ [ [qw{. Ã¥ ä ö ü à . Ã
æ ø ű ſ}]],
+ [ [qw{. ¿ ç ñ é ê è}]],
);
-
-print "Arrows
\n\n";
-print table(@$_) for (
- [ 4 => [qw{. â â â â . â - â â . â â â -}]],
- [ 4 => [qw{. â â â â . â - â â . â â â -}]],
- [ 3 => [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠â¢}]],
- [ 3 => [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠â¿}]],
+print "\n\n";
+
+print "\n", "
Arrows
\n\n";
+print glyph_table(@$_) for (
+ [ [qw{. â â â â . â - â â . â â â -}]],
+ [ [qw{. â â â â . â - â â . â â â -}]],
+ [ [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠â¢}]],
+ [ [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠â¿}]],
);
-
-print "Line drawing
\n\n";
-print table(@$_) for (
- [ 4 => [qw{. â ⬠â . â ⼠⤠. â â´ â}]],
- [ 4 => [qw{. â â³ â . ⣠â â« . â â» â}]],
- [ 3 => [qw{. â ⯠â . â ⿠⥠. â â· â}]],
- [ 3 => [qw{. â â° â . â â ⨠. â ⸠â}]],
- [ 4 => [qw{
+print "\n\n";
+
+print "\n", "
Line drawing
\n\n";
+print glyph_table(@$_) for (
+ [ [qw{. â ⬠â . â ⼠⤠. â â´ â}]],
+ [ [qw{. â â³ â . ⣠â â« . â â» â}]],
+ [ [qw{. â ⯠â . â ⿠⥠. â â· â}]],
+ [ [qw{. â â° â . â â ⨠. â ⸠â}]],
+ [ [qw{
. â´ â â â â ⶠâ¾
. ⸠â â â
â ⺠â¼
. âµ â â â â â· â¿
. â¹ â â â â â» â½
}]],
- [ 1 => [qw{. â± â³ â² }]],
- [ 4 => [qw{. â ⦠â â . â ⬠⣠â . â â© â - }]],
- [ 3 => [qw{. â ⤠â . â ⪠⡠. â ⧠â }]],
- [ 3 => [qw{. â ⥠â . â ⫠⢠. â ⨠â }]],
+ [ [qw{. â± â³ â² }]],
+ [ [qw{. â ⦠â â . â ⬠⣠â . â â© â - }]],
+ [ [qw{. â ⤠â . â ⪠⡠. â ⧠â }]],
+ [ [qw{. â ⥠â . â ⫠⢠. â ⨠â }]],
);
-
-print "Blocks
\n\n";
-print table(@$_) for (
- [ 3 => [qw{. â â â . â â â . â â â }]],
- [ 3 => [qw{. â . â . â }]],
- [ 2 => [qw{. â â â . â â â }]],
- [ 2 => [qw{. â â â â â
â â â . â â â â â â â â }]],
- [ 3 => [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}]],
+print "\n\n";
+
+print "\n", "
Blocks
\n\n";
+print glyph_table(@$_) for (
+ [ [qw{. â â â . â â â . â â â }]],
+ [ [qw{. â . â . â }]],
+ [ [qw{. â â â . â â â }]],
+ [ [qw{. â â â â â
â â â . â â â â â â â â }]],
+ [ [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}]],
);
-
-print "Signs
\n\n";
-print table(@$_) for (
- [ 8 => [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}]],
- [ 4 => [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}]],
- [ 5 => [qw{. â â¿ â â â â â â
â â}]], # solar
- [12 => [qw{. â â â â â â â â â â â â}]], # zodiac
+print "\n\n";
+
+print "\n", "
Signs
\n\n";
+print glyph_table(@$_) for (
+ [ [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}]],
+ [ [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}]],
+ [ [qw{. â â¿ â â â â â â
â â}]], # solar
+ [ [qw{. â â â â â â â â â â â â}]], # zodiac
);
+print "\n\n";
-print "IPA
\n\n";
-print table(@$_) for (
+print "\n", "
IPA
\n\n";
+print glyph_table(@$_) for (
[
- 12 => [qw{
+ [qw{
. p p̪ > > t Ê c k q = Ê¡ Ê
. b b̪ > > d É É É¡ É¢ = - =
. m ɱ > > n ɳ ɲ Šɴ = = =
@@ -265,7 +199,7 @@ print table(@$_) for (
],
],
[
- 6 => [qw{
+ [qw{
. i y ɨ Ê É¯ u
. - ɪ Ê - Ê -
. e ø É Éµ ɤ o
@@ -278,9 +212,10 @@ print table(@$_) for (
[map {substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded"} qw{Front Central Back}]
],
);
+print "\n\n";
-print "Alphabetics
\n\n";
-print table(1,
+print "\n", "
Alphabetics
\n\n";
+print glyph_table(
[ map { ('.', split //, $_->[1]) } @$_ ],
[ map { $_->[0] } @$_ ],
) for [
@@ -289,11 +224,12 @@ print table(1,
[Greek => 'αίÏηÏÏÏÏÏθξΩ'],
[Hebrew => '×ײ××¢×× ×סש×צץ'],
];
+print "\n\n";
-print "Japanese
\n\n";
-print table(@$_) for (
+print "\n", "
Japanese
\n\n";
+print glyph_table(@$_) for (
[
- 1 => [qw{
+ [qw{
. ã ã ã ã ã =
. ã ã ã ã ã =
. ã ã ã ã ã =
@@ -309,7 +245,7 @@ print table(@$_) for (
[qw{A I U E O}, ''],
],
[
- 1 => [qw{
+ [qw{
. ã ã ã ã ã
. ã ã ã ã ã
. ã 㢠㥠㧠ã©
@@ -320,7 +256,7 @@ print table(@$_) for (
[qw{A I U E O}],
],
[
- 1 => [qw{
+ [qw{
. 㢠㤠㦠㨠㪠ã¼
. ã« ã 㯠㱠㳠=
. ãµ ã· ã¹ ã» ã½ =
@@ -336,7 +272,7 @@ print table(@$_) for (
[qw{A I U E O}, ''],
],
[
- 1 => [qw{
+ [qw{
. 㬠㮠㰠㲠ã´
. 㶠㸠㺠㼠ã¾
. ã ã ã
ã ã
@@ -348,6 +284,7 @@ print table(@$_) for (
[qw{A I U E O}],
],
);
+print "\n\n";
:>