diff options
Diffstat (limited to 'mkatables.pl')
| -rw-r--r-- | mkatables.pl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/mkatables.pl b/mkatables.pl index 1eb3a08..f1a0865 100644 --- a/mkatables.pl +++ b/mkatables.pl @@ -84,6 +84,50 @@ 127 => "▶", ); +%magazine = ( + 0 => "{ctrl-,}", + 1 => "{ctrl-A}", + 2 => "{ctrl-B}", + 3 => "{ctrl-C}", + 4 => "{ctrl-D}", + 5 => "{ctrl-E}", + 6 => "{ctrl-F}", + 7 => "{ctrl-G}", + 8 => "{ctrl-H}", + 9 => "{ctrl-I}", + 10 => "{ctrl-J}", + 11 => "{ctrl-K}", + 12 => "{ctrl-L}", + 13 => "{ctrl-M}", + 14 => "{ctrl-N}", + 15 => "{ctrl-O}", + 16 => "{ctrl-P}", + 17 => "{ctrl-Q}", + 18 => "{ctrl-R}", + 19 => "{ctrl-S}", + 20 => "{ctrl-T}", + 21 => "{ctrl-U}", + 22 => "{ctrl-V}", + 23 => "{ctrl-W}", + 24 => "{ctrl-X}", + 25 => "{ctrl-Y}", + 26 => "{ctrl-Z}", + 27 => "{esc}", + 28 => "{up}", + 29 => "{down}", + 30 => "{left}", + 31 => "{right}", + 34 => "\\\"", + 92 => "\\\\", + 96 => "{ctrl-.}", + 123 => "{ctrl-;}", + 125 => "{clear}", + 126 => "{bksp}", + 127 => "{tab}", + # the remaining control characters (with high bit set) + # are special-cased in a8cat.c +); + sub getcharname { my $c = shift; if($c == 127) { @@ -114,3 +158,4 @@ EOF mktable("ata2utf", \%atascii); mktable("ics2utf", \%xl); +mktable("ata2mag", \%magazine); |