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 (file)
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 (file)
index 0000000..9cc674e
Binary files /dev/null and b/keyboard/altgr/unicomp-apl.jpg differ

diff --git a/tools/mksitemap b/tools/mksitemap
index 22884244664d1b61c827c038c4cee16b44a1cfa4..abfd8d09f549a8648506507b4b162e2c206108ef 100755 (executable)
--- 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 )],
 );