unicode: add kana tables

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 7c05183a474f58442e60cab54100955e1984175f..242253bd6481630101f09c2a31f1da36040a6887 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -142,6 +142,14 @@ sub table {
        return sprintf "<table>\n%s</table>\n", join '', map {"<tr>$_\n"} @rows;
 }
 
+print "<h2>Common</h2>\n\n";
+print table(@$_) for (
+       [ 3 => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]],
+       [ 3 => [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]],
+       [ 3 => [qw{. å ä ö ü ß . Å æ ø ű ſ}]],
+       [ 3 => [qw{. ¿ ç ñ é ê è}]],
+);
+
 print "<h2>Arrows</h2>\n\n";
 print table(@$_) for (
        [ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
@@ -223,3 +231,61 @@ print table(@$_) for (
        ],
 );
 
+print "<h2>Japanese</h2>\n\n";
+print table(@$_) for (
+       [
+               1 => [qw{
+                       . あ い う え お =
+                       . か き く け こ =
+                       . さ し す せ そ =
+                       . た ち つ て と =
+                       . な に ぬ ね の ん
+                       . は ひ ふ へ ほ =
+                       . ま み む め も =
+                       . や =  ゆ =  よ =
+                       . ら り る れ ろ =
+                       . わ ゐ =  ゑ を =
+               }],
+               ['', qw{K S T N H M Y R W}],
+               [qw{A I U E O}, ''],
+       ],
+       [
+               1 => [qw{
+                       . が ぎ ぐ げ ご
+                       . ざ じ ず ぜ ぞ
+                       . だ ぢ づ で ど
+                       . ば び ぶ べ ぼ
+                       . ぱ ぴ ぷ ぺ ぽ
+               }],
+               [qw{G Z D B P}],
+               [qw{A I U E O}],
+       ],
+       [
+               1 => [qw{
+                       . ア イ ウ エ オ ー
+                       . カ キ ク ケ コ =
+                       . サ シ ス セ ソ =
+                       . タ チ ツ テ ト =
+                       . ナ ニ ヌ ネ ノ ン
+                       . ハ ヒ フ ヘ ホ =
+                       . マ ミ ム メ モ =
+                       . ヤ -  ユ -  ヨ =
+                       . ラ リ ル レ ロ =
+                       . ワ ヰ -  ヱ ヲ =
+               }],
+               ['', qw{K S T N H M Y R W}],
+               [qw{A I U E O}, ''],
+       ],
+       [
+               1 => [qw{
+                       . ガ ギ グ ゲ ゴ
+                       . ザ ジ ズ ゼ ゾ
+                       . ダ ヂ ヅ デ ド
+                       . バ ビ ブ ベ ボ
+                       . パ ピ プ ペ ポ
+                       . ヷ ヸ ヴ ヹ ヺ
+               }],
+               [qw{G Z D B P V}],
+               [qw{A I U E O}],
+       ],
+);