From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 28 Dec 2023 08:00:18 +0000 (+0100)
Subject: keyboard/altgr: apl layout of common dyalog layout
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/12ed899f9f29468639a7a1462bd71fbe602d7510

keyboard/altgr: apl layout of common dyalog layout

Copied from <https://dfns.dyalog.com/n_keyboards.htm>.
---

diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
new file mode 100644
index 0000000..85d49ea
--- /dev/null
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -0,0 +1,100 @@
+use utf8;
+use strict;
+use warnings;
+our %rows = (
+	'~' => '⌺',
+	'!' => '⌶',
+	'@' => '⍫',
+	'#' => '⍒',
+	'$' => '⍋',
+	'%' => '⌽',
+	'^' => '⍉',
+	'&' => '⊖',
+	'*' => '⍟',
+	'(' => '⍱',
+	')' => '⍲',
+	'_' => '!',
+	'+' => '⌹',
+	'`' => '⋄',
+	'1' => '¨',
+	'2' => '¯',
+	'3' => '<',
+	'4' => '≤',
+	'5' => '=',
+	'6' => '≥',
+	'7' => '>',
+	'8' => '≠',
+	'9' => '∨',
+	'0' => '∧',
+	'-' => '×',
+	'=' => '÷',
+	'E' => '⍷',
+	'T' => '⍨',
+	'I' => '⍸',
+	'O' => '⍥',
+	'P' => '⍣',
+	'{' => '⍞',
+	'}' => '⍬',
+	'|' => '⊣',
+	'q' => '?',
+	'w' => '⍵',
+	'e' => '∊',
+	'r' => '⍴',
+	't' => '~',
+	'y' => '↑',
+	'u' => '↓',
+	'i' => '⍳',
+	'o' => '○',
+	'p' => '*',
+	'[' => '←',
+	']' => '→',
+	'\\'=> '⊢',
+	'J' => '⍤',
+	'K' => '⌸',
+	'L' => '⌷',
+	':' => '≡',
+	'"' => '≢',
+	'a' => '⍺',
+	's' => '⌈',
+	'd' => '⌊',
+	'f' => '_',
+	'g' => '∇',
+	'h' => '∆',
+	'j' => '∘',
+	'k' => "'",
+	'l' => '⎕',
+	';' => '⍎',
+	"'" => '⍕',
+	'Z' => '⊆',
+	'<' => '⍪',
+	'>' => '⍙',
+	'?' => '⍠',
+	'z' => '⊂',
+	'x' => '⊃',
+	'c' => '∩',
+	'v' => '∪',
+	'b' => '⊥',
+	'n' => '⊤',
+	'm' => '|',
+	',' => '⍝',
+	'.' => '⍀',
+	'/' => '⌿',
+);
+
++{
+	%{ do 'keyboard/altgr/groups.inc.pl' },
+	version => '1.0',
+	title => 'APL',
+	intro => join("\n",
+		'Resulting <a href="/charset">Unicode</a> characters',
+		'of a typical <a href="/apl">APL</a> keyboard layout',
+		'derived from IBM System/360 terminals.',
+		'Usually obtained by prefixing <code>`</code> (Dyalog)',
+		'and/or pressing AltGr (APLX).',
+	),
+	description => [
+		'Typical IBM-derived APL keyboard layout,',
+		'as found in APLX and Dyalog implementations.',
+	],
+	image => 'keyboard/altgr/unicomp-apl.jpg',
+}
diff --git a/keyboard/altgr/unicomp-apl.jpg b/keyboard/altgr/unicomp-apl.jpg
new file mode 100644
index 0000000..9cc674e
Binary files /dev/null and b/keyboard/altgr/unicomp-apl.jpg differ
diff --git a/tools/mksitemap b/tools/mksitemap
index 2288424..abfd8d0 100755
--- a/tools/mksitemap
+++ b/tools/mksitemap
@@ -19,7 +19,7 @@ my @pages = (
 	[qw(
 		apl less screen digits sc/bw sc/hots termcol/legacy mplayer
 		keyboard/altgr/macos-abc keyboard/altgr/msx keyboard/altgr/ukext
-		keyboard/altgr/eurkey
+		keyboard/altgr/eurkey keyboard/altgr/apl
 	)],
 	[qw( chars/table/html sample source plan )],
 );