From 6768e4315973c67f7466c19a0e1e314c550d0039 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sat, 29 Jun 2024 05:29:07 -0400
Subject: a8cat: add -m and -s options, fix tabs in -t mode.

---
 mkatables.pl | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

(limited to 'mkatables.pl')

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);
-- 
cgit v1.2.3