keyboard/altgr/apl.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 our %rows = (
   5         '~' => '⌺',
   6         '!' => '⌶',
   7         '@' => '⍫',
   8         '#' => '⍒',
   9         '$' => '⍋',
  10         '%' => '⌽',
  11         '^' => '⍉',
  12         '&' => '⊖',
  13         '*' => '⍟',
  14         '(' => '⍱',
  15         ')' => '⍲',
  16         '_' => '!',
  17         '+' => '⌹',
  18         '`' => '⋄',
  19         '1' => '¨',
  20         '2' => '¯',
  21         '3' => '<',
  22         '4' => '≤',
  23         '5' => '=',
  24         '6' => '≥',
  25         '7' => '>',
  26         '8' => '≠',
  27         '9' => '∨',
  28         '0' => '∧',
  29         '-' => '×',
  30         '=' => '÷',
  31         'E' => '⍷',
  32         'T' => '⍨',
  33         'I' => '⍸',
  34         'O' => '⍥',
  35         'P' => '⍣',
  36         '{' => '⍞',
  37         '}' => '⍬',
  38         '|' => '⊣',
  39         'q' => '?',
  40         'w' => '⍵',
  41         'e' => '∊',
  42         'r' => '⍴',
  43         't' => '~',
  44         'y' => '↑',
  45         'u' => '↓',
  46         'i' => '⍳',
  47         'o' => '○',
  48         'p' => '*',
  49         '[' => '←',
  50         ']' => '→',
  51         '\\'=> '⊢',
  52         'J' => '⍤',
  53         'K' => '⌸',
  54         'L' => '⌷',
  55         ':' => '≡',
  56         '"' => '≢',
  57         'a' => '⍺',
  58         's' => '⌈',
  59         'd' => '⌊',
  60         'f' => '_',
  61         'g' => '∇',
  62         'h' => '∆',
  63         'j' => '∘',
  64         'k' => "'",
  65         'l' => '⎕',
  66         ';' => '⍎',
  67         "'" => '⍕',
  68         'Z' => '⊆',
  69         '<' => '⍪',
  70         '>' => '⍙',
  71         '?' => '⍠',
  72         'z' => '⊂',
  73         'x' => '⊃',
  74         'c' => '∩',
  75         'v' => '∪',
  76         'b' => '⊥',
  77         'n' => '⊤',
  78         'm' => '|',
  79         ',' => '⍝',
  80         '.' => '⍀',
  81         '/' => '⌿',
  82 );
  83
  84 +{
  85         %{ do 'keyboard/altgr/groups.inc.pl' },
  86         version => '1.0',
  87         title => 'APL',
  88         intro => join("\n",
  89                 'Resulting <a href="/charset">Unicode</a> characters',
  90                 'of a typical <a href="/apl">APL</a> keyboard layout',
  91                 'derived from IBM System/360 terminals.',
  92                 'Usually obtained by prefixing <code>`</code> (Dyalog)',
  93                 'and/or pressing AltGr (APLX).',
  94         ),
  95         description => [
  96                 'Typical IBM-derived APL keyboard layout,',
  97                 'as found in APLX and Dyalog implementations.',
  98         ],
  99         image => 'keyboard/altgr/unicomp-apl.jpg',
 100 }