apl revision 0412cded
1bfd7cbc1Smrg// EXTRAS:
2bfd7cbc1Smrg//
3bfd7cbc1Smrg// APL Keyboard Layouts
4bfd7cbc1Smrg
5bfd7cbc1Smrg// This file supports:
6bfd7cbc1Smrg// -	The Sharp APL for Unix (SAX) layout
7bfd7cbc1Smrg// -	The IBM APL2 layout
8bfd7cbc1Smrg// -	The Manugistics APL*PLUS II (Version 5.1, 1993) keyboard layout
90412cdedSmrg// -	The Dyalog APL layout - with additions for box drawing and commands
10bfd7cbc1Smrg
11bfd7cbc1Smrg// Unicode APL table: http://aplwiki.com/UnicodeAplTable
12bfd7cbc1Smrg// ...and another: http://publibfp.boulder.ibm.com/epubs/pdf/h2110611.pdf (appendix A)
13bfd7cbc1Smrg// Generic Unicode stuff: http://www.fileformat.info/info/unicode/category/index.htm
14bfd7cbc1Smrg
15bfd7cbc1Smrg// Tim Nelson (this file's creator) says:
16bfd7cbc1Smrg
17bfd7cbc1Smrg// This file doesn't deal with all the combining stuff -- I'm not an APL programmer,
18bfd7cbc1Smrg// and am not quite sure what's needed here.  However, it may be possible to get this
19bfd7cbc1Smrg// working with dead keys and the like.  Patches gratefully accepted.  
20bfd7cbc1Smrg
21bfd7cbc1Smrg// Some of the shift-key assignments may differ from the APL tradition.  If
22bfd7cbc1Smrg// that's not considered acceptable, it should be possible to remap the 
23bfd7cbc1Smrg// shift keys.  I have striven, however, to ensure that the use of shift keys
24bfd7cbc1Smrg// in these maps is at least self-consistent.  
25bfd7cbc1Smrg
26bfd7cbc1Smrg// I'm assuming that this will be used with another keyboard layout (ie. for 
27bfd7cbc1Smrg// your language), with a special shift key to use these maps.  
28bfd7cbc1Smrg
290412cdedSmrg// 2011-12-22 Geoff Streeter: geoff@dyalog.com
300412cdedSmrg// Added the Dyalog support.
310412cdedSmrg// Corrected (what he thinks) are some errors.
320412cdedSmrg// 	Resolving the confusion between APL's and Unicode's concept of Left and Right tacks.
330412cdedSmrg// 	Unsure about some of the inheritance from APL2 into APLPLUS. Patches welcome.
340412cdedSmrg// Complied with freedesktop.org requirement that the keycodes be in sorted order. Which
350412cdedSmrg// leads to the bottom to top (roughly) definitions.
360412cdedSmrg
370412cdedSmrg// default layout seems to have to be the first one. Choosing the basic Dyalog layout is definitely
380412cdedSmrg// better than using the "common" one. Choosing the complete Dyalog layout is not useful to non-Dyalog
390412cdedSmrg// users.
400412cdedSmrg
410412cdedSmrgdefault partial alphanumeric_keys
420412cdedSmrgxkb_symbols "basic" {
430412cdedSmrg	include "apl(dyalog_base)"	// forward reference good APL keyboard without Dyalogs extras
440412cdedSmrg
450412cdedSmrg	name[Group1]= "APL keyboard symbols";
460412cdedSmrg};
470412cdedSmrg
480412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
490412cdedSmrg// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃         ┃
500412cdedSmrg// │     │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │     │     ┃         ┃
510412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
520412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
530412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │     ┃       ┃
540412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
550412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃      ┃
560412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │     │     │     ┃      ┃
570412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
580412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
590412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │     │     │     ┃             ┃
600412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
610412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
620412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
630412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
640412cdedSmrg
650412cdedSmrgpartial hidden alphanumeric_keys
66bfd7cbc1Smrgxkb_symbols "common" {
670412cdedSmrg
680412cdedSmrg	key <AB01> { [	U2282		] }; // Z: ⊂ -- Subset Of
690412cdedSmrg	key <AB02> { [	U2283		] }; // X: ⊃ -- Superset Of
700412cdedSmrg	key <AB03> { [	U2229		] }; // C: ∩ -- Intersection
710412cdedSmrg	key <AB04> { [	U222A		] }; // V: ∪ -- Union
720412cdedSmrg	key <AB05> { [	U22A5		] }; // B: ⊥ -- Up Tack
730412cdedSmrg	key <AB06> { [	U22A4		] }; // N: ⊤ -- Down Tack
740412cdedSmrg	key <AB07> { [	U007C		] }; // M: | -- Vertical Line
750412cdedSmrg
760412cdedSmrg	key <AC01> { [	U237A		] }; // A: ⍺ -- APL Functional Symbol Alpha
770412cdedSmrg	key <AC02> { [	U2308		] }; // S: ⌈ -- Left Ceiling
780412cdedSmrg	key <AC03> { [	U230A		] }; // D: ⌊ -- Left Floor
790412cdedSmrg	key <AC04> { [	underscore	] }; // F:
800412cdedSmrg	key <AC05> { [	U2207		] }; // G: ∇ -- Nabla
810412cdedSmrg	key <AC06> { [	U2206		] }; // H: ∆ -- Increment
820412cdedSmrg	key <AC07> { [	U2218		] }; // J: ∘ -- Ring Operator
830412cdedSmrg	key <AC08> { [	apostrophe 	] }; // K:
840412cdedSmrg	key <AC09> { [	U2395		] }; // L: ⎕ -- APL Functional Symbol Quad
850412cdedSmrg
860412cdedSmrg	key <AD01> { [	question	] }; // Q:
870412cdedSmrg	key <AD02> { [	U2375		] }; // W: ⍵ -- APL Functional Symbol Omega
880412cdedSmrg	key <AD03> { [	U220A		] }; // E: ∊ -- Small Element Of
890412cdedSmrg	key <AD04> { [	U2374		] }; // R: ⍴ -- APL Functional Symbol Rho
900412cdedSmrg	key <AD05> { [	asciitilde	] }; // T:
910412cdedSmrg	key <AD06> { [	U2191		] }; // Y: ↑ -- Upwards Arrow
920412cdedSmrg	key <AD07> { [	U2193		] }; // U: ↓ -- Downwards Arrow
930412cdedSmrg	key <AD08> { [	U2373		] }; // I: ⍳ -- APL Functional Symbol Iota
940412cdedSmrg	key <AD09> { [	U25CB		] }; // O: ○ -- White Circle
950412cdedSmrg	key <AD10> { [	asterisk	] }; // P: * -- asterisk
960412cdedSmrg	key <AD11> { [	U2190		] }; // [: ← -- Leftwards Arrow
97bfd7cbc1Smrg
98bfd7cbc1Smrg	key <AE01> { [	diaeresis	] };
990412cdedSmrg	key <AE02> { [	U00AF		] }; // ¯ -- Macron
1000412cdedSmrg	key <AE03> { [	less		] };
1010412cdedSmrg	key <AE04> { [	U2264		] }; // ≤ -- Less-than Or Equal To
1020412cdedSmrg	key <AE05> { [	equal		] };
1030412cdedSmrg	key <AE06> { [	U2265		] }; // ≥ -- Greater-than Or Equal To
1040412cdedSmrg	key <AE07> { [	greater		] };
1050412cdedSmrg	key <AE08> { [	U2260		] }; // ≠ -- Not Equal To
1060412cdedSmrg	key <AE09> { [	U2228		] }; // ∨ -- Logical Or
1070412cdedSmrg	key <AE10> { [	U2227		] }; // ∧ -- Logical And
108bfd7cbc1Smrg};
109bfd7cbc1Smrg
110bfd7cbc1Smrg// Keys common to a number of keyboards that allow normal language usage alongside APL
1110412cdedSmrg
1120412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
1130412cdedSmrg// │     │     │     │     │     │     │     │     │     │ ⍱   │ ⍲   │     │  ⌹  ┃         ┃
1140412cdedSmrg// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
1150412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
1160412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
1170412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
1180412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
1190412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃      ┃
1200412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │     │     │     ┃      ┃
1210412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
1220412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
1230412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │     │     │     ┃             ┃
1240412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
1250412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
1260412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
1270412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
1280412cdedSmrg
1290412cdedSmrgpartial alphanumeric_keys
130bfd7cbc1Smrgxkb_symbols "unified" {
1310412cdedSmrg	name[Group1]= "APL keyboard symbols (unified)";
132bfd7cbc1Smrg
133bfd7cbc1Smrg	include "apl(common)"
134bfd7cbc1Smrg
1350412cdedSmrg	key <AD12> { [ U2192			] }; // ]: → -- Rightwards Arrow
1360412cdedSmrg	key <AE09> { [ NoSymbol,	U2371	] }; // 9: ⍱ -- APL Functional Symbol Down Caret Tilde
1370412cdedSmrg	key <AE10> { [ NoSymbol,	U2372	] }; // 0: ⍲ -- APL Functional Symbol Up Caret Tilde
1380412cdedSmrg	key <AE11> { [ U00D7			] }; // -: × -- Multiplication Sign
1390412cdedSmrg	key <AE12> { [ U00F7,		U2339	] }; // =: ÷ ⌹ -- Division Sign / APL Functional Symbol Quad Divide
1400412cdedSmrg	key <TLDE> { [ U22C4			] }; // `: ⋄ -- Diamond Operator
141bfd7cbc1Smrg};
142bfd7cbc1Smrg
143bfd7cbc1Smrg// Layout: http://www.wickensonline.co.uk/apl-unicomp.html
1440412cdedSmrg
1450412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
1460412cdedSmrg// │     │ ¡   │     │     │ ¢   │     │     │     │ ⍂   │ ⍱   │ ⍲   │  ≡  │  ⌹  ┃         ┃
1470412cdedSmrg// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
1480412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
1490412cdedSmrg// ┃       ┃ ¿   │ ⌽   │ ⍷   │     │ ⍉   │     │     │ ⍸   │ ⍥   │ ⍣   │     │     ┃       ┃
1500412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
1510412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
1520412cdedSmrg// ┃        ┃ ⊖   │     │     │ ⍫   │ ⍒   │ ⍋   │ ⍤   │ ⌻   │ ⍞   │     │     │  ⍀  ┃      ┃
1530412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  ⊢  │  ⊣  │  ⍝  ┃      ┃
1540412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
1550412cdedSmrg// ┃       ┃     │     │     │ ⍝   │     │  ⍎  │  ⍕  │ ⌶   │  ⍪  │  ⍙  │  ⌿  ┃             ┃
1560412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ⍞  │  ⍎  │  ⍕  ┃             ┃
1570412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
1580412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
1590412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
1600412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
1610412cdedSmrg
1620412cdedSmrgpartial alphanumeric_keys
163bfd7cbc1Smrgxkb_symbols "sax" {
1640412cdedSmrg	name[Group1]= "APL keyboard symbols (sax)";
165bfd7cbc1Smrg
166bfd7cbc1Smrg	include "apl(unified)"
167bfd7cbc1Smrg
1680412cdedSmrg	key <AB03> { [	NoSymbol,	U235D	] }; // C: ⍝ -- APL Functional Symbol Up Shoe Jot
1690412cdedSmrg	key <AB05> { [	NoSymbol,	U234E	] }; // B: ⍎ -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack")
1700412cdedSmrg	key <AB06> { [	NoSymbol,	U2355	] }; // N: ⍕ -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack")
1710412cdedSmrg	key <AB07> { [	NoSymbol,	U2336	] }; // M: ⌶ -- APL Functional Symbol I-Beam
1720412cdedSmrg	key <AB08> { [	U235E,		U236A	] }; // ,: ⍞ ⍪ -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar
1730412cdedSmrg	key <AB09> { [	U234E,		U2359	] }; // .: ⍎ ⍙ -- [See B key] / APL Functional Symbol Delta Underbar
1740412cdedSmrg	key <AB10> { [	U2355,		U233F	] }; // /: ⍕ ⌿ -- [See N key] / APL Functional Symbol Slash Bar
1750412cdedSmrg
1760412cdedSmrg	key <AC01> { [	NoSymbol,	U2296	] }; // A: ⊖ -- Circled Minus
1770412cdedSmrg	key <AC04> { [	NoSymbol,	U236B	] }; // F: ⍫ -- APL Functional Symbol Del Tilde
1780412cdedSmrg	key <AC05> { [	NoSymbol,	U2352	] }; // G: ∇ ⍒ -- APL Functional Symbol Del Stile
1790412cdedSmrg	key <AC06> { [	NoSymbol,	U234B	] }; // H: ∆ ⍋ -- APL Functional Symbol Delta Stile
1800412cdedSmrg	key <AC07> { [	NoSymbol,	U2364	] }; // J: ⍤ -- APL Functional Symbol Jot Diaeresis
1810412cdedSmrg	key <AC08> { [	NoSymbol,	U233B	] }; // K: ⌻
1820412cdedSmrg	key <AC09> { [	NoSymbol,	U235E	] }; // L: ⍞ -- APL Functional Symbol Quote Quad
1830412cdedSmrg	key <AC10> { [	U22A2			] }; // ;: ⊢ -- Right Tack
1840412cdedSmrg	key <AC11> { [	U22A3			] }; // ': ⊣ -- Left Tack
1850412cdedSmrg
1860412cdedSmrg	key <AD01> { [	NoSymbol,	U00BF	] }; // Q: ¿ -- Inverted Question Mark
1870412cdedSmrg	key <AD02> { [	NoSymbol,	U233D	] }; // W: ⌽ -- APL Functional Symbol Circle Stile
1880412cdedSmrg	key <AD03> { [	NoSymbol,	U2377	] }; // E: ⍷ -- APL Functional Symbol Epsilon Underbar
1890412cdedSmrg	key <AD05> { [	NoSymbol,	U2349	] }; // T: ⍉ -- APL Functional Symbol Circle Backslash
1900412cdedSmrg	key <AD08> { [	NoSymbol,	U2378	] }; // I: ⍸ -- APL Functional Symbol Iota Underbar
1910412cdedSmrg	key <AD09> { [	NoSymbol,	U2365	] }; // O: ⍥ -- APL Functional Symbol Circle Diaeresis
1920412cdedSmrg	key <AD10> { [	NoSymbol,	U235F	] }; // P: ⍟ -- APL Functional Symbol Circle Star
1930412cdedSmrg	key <AE01> { [	NoSymbol,	U00A1	] }; // 1: ¡ -- Inverted Exclamation Mark
1940412cdedSmrg	key <AE04> { [	NoSymbol,	cent	] }; // 4:
1950412cdedSmrg	key <AE08> { [	NoSymbol,	U2342	] }; // 8: ⍂ -- APL Functional Symbol Quad Backslash
1960412cdedSmrg	key <AE11> { [	NoSymbol,	U2261	] }; // -: ≡ -- Identical To
1970412cdedSmrg
1980412cdedSmrg	key <BKSL> { [	U235D,		U2340	] }; // \: ⍝ ⍀ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar
199bfd7cbc1Smrg};
200bfd7cbc1Smrg
201bfd7cbc1Smrg// Layout: http://www.wickensonline.co.uk/apl-unicomp.html
2020412cdedSmrg
2030412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
2040412cdedSmrg// │  ⍂  │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
2050412cdedSmrg// │  ⌻  │     │     │     │     │     │     │     │     │     │     │  -  │  ÷  ┃         ┃
2060412cdedSmrg// │     │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  +  │  ×  ┃         ┃
2070412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
2080412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍞   │  ⍙  ┃       ┃
2090412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │ →   │  ⍸  ┃       ┃
2100412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  ⌷  ┃       ┃
2110412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
2120412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │  ⍎  │  ⍕  │  ⍤  ┃      ┃
2130412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │  (  │  )  │  ⍷  ┃      ┃
2140412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  [  │  ]  │  ≡  ┃      ┃
2150412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
2160412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │  ⍝  │  ⍀  │  ⌿  ┃             ┃
2170412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │  ;  │  :  │  \  ┃             ┃
2180412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ,  │  .  │  /  ┃             ┃
2190412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
2200412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
2210412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
2220412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
2230412cdedSmrg
2240412cdedSmrgpartial alphanumeric_keys
225bfd7cbc1Smrgxkb_symbols "apl2" {
2260412cdedSmrg	name[Group1]= "APL keyboard symbols (IBM APL2)";
227bfd7cbc1Smrg
228bfd7cbc1Smrg	include "apl(common)"
229bfd7cbc1Smrg
230bfd7cbc1Smrg	// The first column is NoSymbol because it inherits.  The second is NoSymbol because those keys don't do anything
2310412cdedSmrg	// AFS - short for APL Functional Symbol
232bfd7cbc1Smrg
2330412cdedSmrg	key <AB08> { [	comma,		semicolon,	U235D	] }; // ,: ⍝ -- AFS Up Shoe Jot
2340412cdedSmrg	key <AB09> { [	period,		colon,		U2340	] }; // .: ⍀ -- AFS Backslash Bar
2350412cdedSmrg	key <AB10> { [	slash,		backslash,	U233F	] }; // /: ⌿ -- AFS Slash Bar
236bfd7cbc1Smrg
2370412cdedSmrg	key <AC10> { [	bracketleft, 	parenleft,	U234E	] }; // ;: ⍎ -- [See B key in SAX layout]
2380412cdedSmrg	key <AC11> { [	bracketright, 	parenright, 	U2355	] }; // ': ⍕ -- [See N key in SAX layout] 
239bfd7cbc1Smrg
2400412cdedSmrg	key <AD11> { [	NoSymbol,	U2192,		U235E	] }; // [: (←) → ⍞ -- Rightwards Arrow / AFS Quote Quad
2410412cdedSmrg	key <AD12> { [	U2337,		U2378,		U2359	] }; // ]: ⌷ ⍸ ⍙ -- AFS Squish Quad / AFS Iota Underbar / AFS Delta Underbar
242bfd7cbc1Smrg
2430412cdedSmrg	key <AE01> { [	NoSymbol, 	NoSymbol,	U2336	] }; // 1: ⌶ -- AFS I-Beam
2440412cdedSmrg	key <AE02> { [	NoSymbol, 	NoSymbol,	U236B	] }; // 2: ⍫ -- AFS Del Tilde
2450412cdedSmrg	key <AE03> { [	NoSymbol, 	NoSymbol,	U2353	] }; // 3: ⍒ -- AFS Del Stile
2460412cdedSmrg	key <AE04> { [	NoSymbol, 	NoSymbol,	U234B	] }; // 4: ⍋ -- AFS Delta Stile
2470412cdedSmrg	key <AE05> { [	NoSymbol, 	NoSymbol,	U233D	] }; // 5: ⌽ -- AFS Circle Stile
2480412cdedSmrg	key <AE06> { [	NoSymbol, 	NoSymbol,	U2349	] }; // 6: ⍉ -- AFS Circle Backslash
2490412cdedSmrg	key <AE07> { [	NoSymbol, 	NoSymbol,	U2296	] }; // 7: ⊖ -- Circled Minus
2500412cdedSmrg	key <AE08> { [	NoSymbol, 	NoSymbol,	U235F	] }; // 8: ⍟ -- AFS Circle Star
2510412cdedSmrg	key <AE09> { [	NoSymbol, 	NoSymbol,	U2371	] }; // 9: ⍱ -- AFS Down Caret Tilde
2520412cdedSmrg	key <AE10> { [	NoSymbol, 	NoSymbol,	U2372	] }; // 0: ⍲ -- AFS Up Caret Tilde
2530412cdedSmrg	key <AE11> { [	plus,		minus,		exclam	] }; // -:
2540412cdedSmrg	key <AE12> { [	U00D7,		U00F7,		U2339	] }; // =: × ÷ ⌹ -- Multiplication Sign / Division Sign / AFS Quad Divide
255bfd7cbc1Smrg
2560412cdedSmrg	key <BKSL> { [	U2261,		U2377,		U2364	] }; // \: ≡ ⍷ ⍤ -- Identical To / AFS Epsilon Underbar / AFS Jot Diaeresis
257bfd7cbc1Smrg
2580412cdedSmrg	key <TLDE> { [	NoSymbol,	U233B,		U2342	] }; // `: ⌻ ⍂ -- 
259bfd7cbc1Smrg
2600412cdedSmrg	include "level3(ralt_switch)"
2610412cdedSmrg};
2620412cdedSmrg
2630412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
2640412cdedSmrg// │  ⍪  │ ≡   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
2650412cdedSmrg// │  ⋄  │     │     │     │     │     │     │     │     │     │     │  -  │  ÷  ┃         ┃
2660412cdedSmrg// │  $  │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  +  │  ×  ┃         ┃
2670412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
2680412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍞   │  ⍬  ┃       ┃
2690412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │ →   │  ⍸  ┃       ┃
2700412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
2710412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
2720412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │  ⍎  │  ⍕  │  ⍙  ┃      ┃
2730412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │  (  │  )  │  ⊣  ┃      ┃
2740412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  [  │  ]  │  ⊢  ┃      ┃
2750412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
2760412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │  ⍝  │  ⍀  │  ⌿  ┃             ┃
2770412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │  ;  │  :  │  \  ┃             ┃
2780412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ,  │  .  │  /  ┃             ┃
2790412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
2800412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
2810412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
2820412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
2830412cdedSmrg
2840412cdedSmrgpartial alphanumeric_keys
2850412cdedSmrgxkb_symbols "aplplusII" {
2860412cdedSmrg	// AFS - short for APL Functional Symbol
2870412cdedSmrg
2880412cdedSmrg	include "apl(apl2)"
2890412cdedSmrg	name[Group1]= "APL keyboard symbols (Manugistics APL*PLUS II)";
2900412cdedSmrg
2910412cdedSmrg	key <AC10> { [	bracketleft,	parenleft,	U234E	] }; // ;: ⍎ -- [See B key in SAX layout]
2920412cdedSmrg	key <AC11> { [	bracketright,	parenright,	U2355	] }; // ': ⍕ -- [See N key in SAX layout] 
2930412cdedSmrg	key <AD11> { [	U2190,		NoSymbol,	U235E	] }; // [: ← ⍞ -- Leftwards Arrow / AFS Quote Quad
2940412cdedSmrg	key <AD12> { [	U2192,		NoSymbol,	U236C	] }; // ]: → ⍬ -- Rightwards Arrow / AFS Zilde
2950412cdedSmrg	key <AE01> { [	NoSymbol, 	NoSymbol, 	U2261	] }; // 1: ≡ -- Identical To
2960412cdedSmrg	key <BKSL> { [	U22A2,		U22A3,		U2359	] }; // \: ⊢ ⊣ ⍙ -- Left Tack / Right Tack / AFS Delta Underbar
2970412cdedSmrg	key <TLDE> { [	dollar,		U22C4,		U236A	] }; // `: ⋄ ⍪ -- Diamond Operator / AFS Comma Bar
298bfd7cbc1Smrg};
299bfd7cbc1Smrg
300bfd7cbc1Smrg
301bfd7cbc1Smrg// MicroAPL layout: http://aplwiki.com/APLXKeyboardLayouts
302bfd7cbc1Smrg// I didn't do the old-style MicroAPL layout; patches gratefully accepted
303bfd7cbc1Smrg
3040412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
3050412cdedSmrg// │ ⍞   │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
3060412cdedSmrg// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
3070412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
3080412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍇   │  ⍈  ┃       ┃
3090412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
3100412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
3110412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │  ≡  │  ≢  │  ⊣  ┃      ┃
3120412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  ⍎  │  ⍕  │  ⊢  ┃      ┃
3130412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
3140412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │  ⍪  │  ⍤  │     ┃             ┃
3150412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ⍝  │  ⍀  │  ⌿  ┃             ┃
3160412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
3170412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
3180412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
3190412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
3200412cdedSmrg
3210412cdedSmrgpartial alphanumeric_keys
3220412cdedSmrgxkb_symbols "aplx" {
323bfd7cbc1Smrg	include "apl(unified)"
324bfd7cbc1Smrg
3250412cdedSmrg	name[Group1]= "APL keyboard symbols (APLX unified)";
3260412cdedSmrg
3270412cdedSmrg	key <AB08> { [	U235D,		U236A	] }; // ,: ⍝ ⍪ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar
3280412cdedSmrg	key <AB09> { [	U2340,		U2364	] }; // .: ⍀ ⍤ -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis
3290412cdedSmrg	key <AB10> { [	U233F 			] }; // /: ⌿ -- APL Functional Symbol Slash Bar
3300412cdedSmrg
3310412cdedSmrg	key <AC10> { [	U234E,		U2261	] }; // ;: ⍎ ≡ -- [See B key in SAX layout] / Identical To
3320412cdedSmrg	key <AC11> { [	U2355,		U2262	] }; // ': ⍕ ≢ -- [See N key in SAX layout] / Not Identical To
3330412cdedSmrg
3340412cdedSmrg	key <AD11> { [	NoSymbol,	U2347	] }; // [: ⍇ -- Box With Left Arrow
3350412cdedSmrg	key <AD12> { [	NoSymbol,	U2348	] }; // ]: ⍈ -- Box With Right Arrow
3360412cdedSmrg
3370412cdedSmrg	key <AE01> { [	NoSymbol,	U2336	] }; // 1: ⌶ -- APL Functional Symbol I-Beam
3380412cdedSmrg	key <AE02> { [	NoSymbol,	U236B	] }; // 2: ⍫ -- APL Functional Symbol Del Tilde
3390412cdedSmrg	key <AE03> { [	NoSymbol,	U2353	] }; // 3: ⍒ -- APL Functional Symbol Del Stile
3400412cdedSmrg	key <AE04> { [	NoSymbol,	U234B	] }; // 4: ⍋ -- APL Functional Symbol Delta Stile
3410412cdedSmrg	key <AE05> { [	NoSymbol,	U233D	] }; // 5: ⌽ -- APL Functional Symbol Circle Stile
3420412cdedSmrg	key <AE06> { [	NoSymbol,	U2349	] }; // 6: ⍉ -- APL Functional Symbol Circle Backslash
3430412cdedSmrg	key <AE07> { [	NoSymbol,	U2296	] }; // 7: ⊖ -- Circled Minus
3440412cdedSmrg	key <AE08> { [	NoSymbol,	U235F	] }; // 8: ⍟ -- APL Functional Symbol Circle Star
3450412cdedSmrg	key <AE11> { [	NoSymbol,	exclam 	] }; // -:
3460412cdedSmrg
3470412cdedSmrg	key <BKSL> { [	U22A2,		U22A3	] }; // \: ⊢ ⊣ -- Right Tack / Left Tack
3480412cdedSmrg
3490412cdedSmrg	key <TLDE> { [	NoSymbol,	U235E	] }; // `: ⍞ -- APL Functional Symbol Quote Quad
3500412cdedSmrg};
3510412cdedSmrg
3520412cdedSmrg// APL language support for the Dyalog keyboard.
3530412cdedSmrg// Dyalog Ltd sell this keyboard with APL engravings. The current model is 
3540412cdedSmrg// engraved on a Cherry G80. Base languages for US, UK and DK are availible.
3550412cdedSmrg
3560412cdedSmrg// Geoff Streeter, Dyalog Ltd. 2007-09-03
3570412cdedSmrg// geoff@dyalog.com
3580412cdedSmrg// extended for APL special actions 2008-09-09
3590412cdedSmrg// add variant 2010-11-26
3600412cdedSmrg
3610412cdedSmrg// The intention is that this keyboard layout overlays a base keyboard that provides 
3620412cdedSmrg// the alphabet and similar. If this keyboard is placed as the 2nd layout then it can
3630412cdedSmrg// be reached with a latching shift to increase group by one.
3640412cdedSmrg
3650412cdedSmrgpartial hidden alphanumeric_keys
3660412cdedSmrgxkb_symbols "dyalog_base" {
3670412cdedSmrg
3680412cdedSmrg
3690412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
3700412cdedSmrg// │     │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │ !   │ ⌹   ┃         ┃
3710412cdedSmrg// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │ ×   │ ÷   ┃         ┃
3720412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
3730412cdedSmrg// ┃       ┃     │     │ ⍷   │     │ ⍨   │     │     │ ⍸   │ ⍥   │ ⍣   │ ⍞   │ ⍬   ┃       ┃
3740412cdedSmrg// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │ →   ┃       ┃
3750412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
3760412cdedSmrg// ┃        ┃     │     │     │     │     │     │ ⍤   │     │ ⌷   │ ≡   │ ≢   │ ⊣   ┃      ┃
3770412cdedSmrg// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │ ⍎   │ ⍕   │ ⊢   ┃      ┃
3780412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
3790412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │ ⍪   │ ⍙   │ ⍠   ┃             ┃
3800412cdedSmrg// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │ ⍝   │ ⍀   │ ⌿   ┃             ┃
3810412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
3820412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
3830412cdedSmrg// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
3840412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
3850412cdedSmrg
3860412cdedSmrg
3870412cdedSmrg	key <AB01> { [ U2282			] };	// subset of
3880412cdedSmrg	key <AB02> { [ U2283			] };	// superset of
3890412cdedSmrg	key <AB03> { [ U2229			] };	// intersection
3900412cdedSmrg	key <AB04> { [ U222A			] };	// union
3910412cdedSmrg	key <AB05> { [ U22a5			] };	// up tack
3920412cdedSmrg	key <AB06> { [ U22a4			] };	// down tack
3930412cdedSmrg	key <AB07> { [ U007c			] };	// vertical line
3940412cdedSmrg	key <AB08> { [ U235d,		U236a	] };	// up shoe jot, comma bar
3950412cdedSmrg	key <AB09> { [ U2340,		U2359	] };	// backslash bar, delta underbar
3960412cdedSmrg	key <AB10> { [ U233f,		U2360	] };	// slash bar, quad colon
3970412cdedSmrg	key <AC01> { [ U237a			] };	// alpha
3980412cdedSmrg	key <AC02> { [ U2308			] };	// left ceiling
3990412cdedSmrg	key <AC03> { [ U230a			] };	// left floor
4000412cdedSmrg	key <AC04> { [ underscore		] };	// low line
4010412cdedSmrg	key <AC05> { [ U2207			] };	// nabla
4020412cdedSmrg	key <AC06> { [ U2206			] };	// increment
4030412cdedSmrg	key <AC07> { [ U2218,		U2364	] };	// ring operator, jot diaeresis
4040412cdedSmrg	key <AC08> { [ apostrophe		] };
4050412cdedSmrg	key <AC09> { [ U2395,		U2337	] };	// quad, squish quad
4060412cdedSmrg	key <AC10> { [ U234e,		U2261	] };	// up tack jot, identical to
4070412cdedSmrg	key <AC11> { [ U2355,		U2262	] };	// down tack jot,  not identical to
4080412cdedSmrg	key <AD01> { [ question			] };
4090412cdedSmrg	key <AD02> { [ U2375			] };	// omega
4100412cdedSmrg	key <AD03> { [ U220a,		U2377	] };	// small element of, epsilon underbar
4110412cdedSmrg	key <AD04> { [ U2374			] };	// rho
4120412cdedSmrg	key <AD05> { [ asciitilde,	U2368	] };	// tilde, tilde diaeresis
4130412cdedSmrg	key <AD06> { [ U2191			] };	// upwards arrow
4140412cdedSmrg	key <AD07> { [ U2193			] };	// downwards arrow
4150412cdedSmrg	key <AD08> { [ U2373,		U2378	] };	// iota, iota underbar
4160412cdedSmrg	key <AD09> { [ U25cb,		U2365	] };	// circle, circle diaeresis
4170412cdedSmrg	key <AD10> { [ asterisk,	U2363	] };	// asterisk, star diaeresis
4180412cdedSmrg	key <AD11> { [ U2190,		U235e	] };	// left arrow, quote quad
4190412cdedSmrg	key <AD12> { [ U2192,		U236c	] };	// right arrow, zilde
4200412cdedSmrg	key <AE01> { [ diaeresis,	U2336	] };	// i-beam
4210412cdedSmrg	key <AE02> { [ overbar,		U236B	] };	// deltilde
4220412cdedSmrg	key <AE03> { [ less,		U2352	] };	// downgrade
4230412cdedSmrg	key <AE04> { [ U2264,		U234b	] };	// lesseq upgrade
4240412cdedSmrg	key <AE05> { [ equal,		U233d	] };	// circlestile
4250412cdedSmrg	key <AE06> { [ U2265,		U2349	] };	// greatereq circleslope
4260412cdedSmrg	key <AE07> { [ greater,		U2296	] };	// circlebar
4270412cdedSmrg	key <AE08> { [ U2260,		U235f	] };	// notequal, circlestar
4280412cdedSmrg	key <AE09> { [ U2228,		U2371	] };	// logical or, down caret tilde
4290412cdedSmrg	key <AE10> { [ U2227,		U2372	] };	// logical and, up caret tilde
4300412cdedSmrg	key <AE11> { [ multiply,	exclam	] };
4310412cdedSmrg	key <AE12> { [ division,	U2339	] };	//  quad divide
4320412cdedSmrg	key <BKSL> { [ U22a2,		U22a3	] };	// right tack, left tack
4330412cdedSmrg	key <TLDE> { [ U22c4			] };	// diamond
434bfd7cbc1Smrg};
4350412cdedSmrg
4360412cdedSmrgpartial hidden keypad_keys
4370412cdedSmrgxkb_symbols "dyalog_box" {
4380412cdedSmrg
4390412cdedSmrg// ┌───┬───┬───┬───┐
4400412cdedSmrg// │   │   │   │   │
4410412cdedSmrg// ├───┼───┼───┼───┤
4420412cdedSmrg// │ ┌ │ ┬ │ ┐ │   │
4430412cdedSmrg// ├───┼───┼───┤   │
4440412cdedSmrg// │ ├ │ ┼ │ ┤ │   │
4450412cdedSmrg// ├───┼───┼───┼───┤
4460412cdedSmrg// │ └ │ ┴ │ ┘ │   │
4470412cdedSmrg// ├───┴───┼───┤   │
4480412cdedSmrg// │   ─   │ │ │   │
4490412cdedSmrg// └───────┴───┴───┘
4500412cdedSmrg
4510412cdedSmrg	key <KP0>  { [ U2500 ] };	// box drawing light horizontal
4520412cdedSmrg	key <KP1>  { [ U2514 ] };	// box drawing light up and right
4530412cdedSmrg	key <KP2>  { [ U2534 ] };	// box drawing light up and horizontal
4540412cdedSmrg	key <KP3>  { [ U2518 ] };	// box drawing light up and left
4550412cdedSmrg	key <KP4>  { [ U251c ] };	// box drawing light veritcal and right
4560412cdedSmrg	key <KP5>  { [ U253c ] };	// box drawing light veritcal and horizontal
4570412cdedSmrg	key <KP6>  { [ U2524 ] };	// box drawing light veritcal and left
4580412cdedSmrg	key <KP7>  { [ U250c ] };	// box drawing light down and right
4590412cdedSmrg	key <KP8>  { [ U252c ] };	// box drawing light down and horizontal
4600412cdedSmrg	key <KP9>  { [ U2510 ] };	// box drawing light down and left
4610412cdedSmrg	key <KPDL> { [ U2502 ] };	// box drawing light vertical
4620412cdedSmrg
4630412cdedSmrg}; 
4640412cdedSmrg
4650412cdedSmrgpartial hidden
4660412cdedSmrgxkb_symbols "dyalog_codes" {
4670412cdedSmrg
4680412cdedSmrg//	Layout of private use area for this. In the style of the Unicode book
4690412cdedSmrg//
4700412cdedSmrg//				APL special actions		F800-F88F
4710412cdedSmrg//
4720412cdedSmrg//	│F800 F810 F820 F830 F840 F850 F860 F870 F880
4730412cdedSmrg//	├────┬────┬────┬────┬────┬────┬────┬────┬────┐
4740412cdedSmrg//     0│QT  │LL  │BK  │FX  │Rc  │BP  │PA  │    │    │
4750412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4760412cdedSmrg//     1│ER  │HO  │ZM  │LN  │LW  │AB  │    │    │    │
4770412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4780412cdedSmrg//     2│TB  │CT  │SC  │MC  │RW  │HT  │    │    │    │
4790412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4800412cdedSmrg//     3│BT  │PT  │RP  │MR  │Lw  │TH  │    │    │    │
4810412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4820412cdedSmrg//     4│EP  │IN  │NX  │JP  │Rw  │RM  │    │    │    │
4830412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4840412cdedSmrg//     5│UC  │II  │PV  │D1  │Uc  │CB  │    │    │    │
4850412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4860412cdedSmrg//     6│DC  │DI  │RT  │D2  │Dc  │PR  │    │    │TO  │
4870412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4880412cdedSmrg//     7│RC  │DP  │RA  │D3  │Ll  │SR  │    │    │MO  │
4890412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4900412cdedSmrg//     8│LC  │DB  │ED  │D4  │Rl  │    │    │    │    │
4910412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4920412cdedSmrg//     9│US  │RD  │TC  │D5  │Ul  │TL  │    │    │    │
4930412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4940412cdedSmrg//     A│DS  │TG  │NB  │U1  │Dl  │UA  │    │    │    │
4950412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4960412cdedSmrg//     B│RS  │DK  │NS  │U2  │Us  │AO  │    │    │    │
4970412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
4980412cdedSmrg//     C│LS  │OP  │ST  │U3  │Ds  │DO  │    │    │    │
4990412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
5000412cdedSmrg//     D│UL  │CP  │EN  │U4  │DD  │GL  │    │    │S1  │
5010412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
5020412cdedSmrg//     E│DL  │MV  │IF  │U5  │DH  │CH  │    │    │S2  │
5030412cdedSmrg//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
5040412cdedSmrg//     F│RL  │FD  │HK  │Lc  │BH  │PU  │    │    │OS  │
5050412cdedSmrg//	└────┴────┴────┴────┴────┴────┴────┴────┴────┘
5060412cdedSmrg//
5070412cdedSmrg//				APL Function Keys		F700-F7FF
5080412cdedSmrg//
5090412cdedSmrg//	│F700 ...                           ...  F7F0
5100412cdedSmrg//	├────┬────┬────┬────┬....┬────┬────┬────┬────┐
5110412cdedSmrg//     0│F0  │F16 │F32 │F48 │    │F192│F208│F224│F240│
5120412cdedSmrg//	.
5130412cdedSmrg//	.
5140412cdedSmrg//	.
5150412cdedSmrg//     F│F15 │F31 │F47 │F63 │    │F207│F223│F239│F255│
5160412cdedSmrg//	└────┴────┴────┴────┴....┴────┴────┴────┴────┘
5170412cdedSmrg//	
5180412cdedSmrg//	whilst these locations are defined. Dyalog's "aplkeys/xterm" file copes with
5190412cdedSmrg//	normal function keys from the base keyboard rather than this overlay
5200412cdedSmrg
5210412cdedSmrg// ┌─────┐                                                                       ┌───┐
5220412cdedSmrg// │     │                                                                       │ZM │
5230412cdedSmrg// │ QT  │                                                                       │ZM │
5240412cdedSmrg// └─────┘                                                                       └───┘
5250412cdedSmrg
5260412cdedSmrg// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
5270412cdedSmrg// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃   CB    ┃
5280412cdedSmrg// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃   BP    ┃
5290412cdedSmrg// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
5300412cdedSmrg// ┃ BT    ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
5310412cdedSmrg// ┃ TB    ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
5320412cdedSmrg// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
5330412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃ TC   ┃
5340412cdedSmrg// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃ ED   ┃
5350412cdedSmrg// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
5360412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
5370412cdedSmrg// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
5380412cdedSmrg// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
5390412cdedSmrg// ┃       ┃       ┃       ┃              MO                   ┃       ┃       ┃       ┃
5400412cdedSmrg// ┃       ┃       ┃       ┃              TO                   ┃       ┃       ┃       ┃
5410412cdedSmrg// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
5420412cdedSmrg
5430412cdedSmrg
5440412cdedSmrg	key <BKSP> { [ Uf850,	Uf855	] };	// BP CB
5450412cdedSmrg	key <ESC>  { [ Uf800		] };	// QT
5460412cdedSmrg	key <FK11> { [ Uf821,	Uf821	] };	// ZM, ZM put this on both, the unshifted one sometimes gets lost
5470412cdedSmrg	key <RTRN> { [ Uf828,	Uf829	] };	// ED, TC
5480412cdedSmrg	key <SPCE> { [ Uf886,	Uf887	] };	// TO, MO
5490412cdedSmrg	key <TAB>  { [ Uf802,	Uf803	] };	// TB, BT
5500412cdedSmrg
5510412cdedSmrg//      ┌─────┐
5520412cdedSmrg//      │     │
5530412cdedSmrg//      │ BK  │
5540412cdedSmrg// ┌────┼─────┼────┐
5550412cdedSmrg// │ BH │     │ RM │
5560412cdedSmrg// │ PV │ FD  │ NX │
5570412cdedSmrg// └────┴─────┴────┘
5580412cdedSmrg
5590412cdedSmrg	key <DOWN> { [ Uf81f		] };	// FD
5600412cdedSmrg	key <LEFT> { [ Uf825,	Uf84f	] };	// PV, BH
5610412cdedSmrg	key <RGHT> { [ Uf824,	Uf854	] };	// NX, RM
5620412cdedSmrg	key <UP>   { [ Uf820		] };	// BK
5630412cdedSmrg
5640412cdedSmrg
5650412cdedSmrg// ┌───┬───┬───┐
5660412cdedSmrg// │PT │LL │UL │
5670412cdedSmrg// │CP │LS │US │
5680412cdedSmrg// ├───┼───┼───┤
5690412cdedSmrg// │CT │RL │DL │
5700412cdedSmrg// │DK │RS │DS │
5710412cdedSmrg// └───┴───┴───┘
5720412cdedSmrg
5730412cdedSmrg	key <DELE> { [ Uf81b, Uf812 ] };	// DK, CT
5740412cdedSmrg	key <END>  { [ Uf80b, Uf80f ] };	// RS, RL
5750412cdedSmrg	key <HOME> { [ Uf80c, Uf810 ] };	// LS, LL
5760412cdedSmrg	key <INS>  { [ Uf81d, Uf813 ] };	// CP, PT
5770412cdedSmrg	key <PGDN> { [ Uf80a, Uf80e ] };	// DS, DL
5780412cdedSmrg	key <PGUP> { [ Uf809, Uf80d ] };	// US, UL
5790412cdedSmrg
5800412cdedSmrg// ┌───┬───┬───┬───┐
5810412cdedSmrg// │   │RD │TG │LN │
5820412cdedSmrg// ├───┼───┼───┼───┤
5830412cdedSmrg// │   │   │   │   │
5840412cdedSmrg// ├───┼───┼───┤TL │
5850412cdedSmrg// │   │   │   │   │
5860412cdedSmrg// ├───┼───┼───┼───┤
5870412cdedSmrg// │   │   │   │   │
5880412cdedSmrg// ├───┴───┼───┤   │
5890412cdedSmrg// │       │   │   │
5900412cdedSmrg// └───────┴───┴───┘
5910412cdedSmrg
5920412cdedSmrg
5930412cdedSmrg	key <KPAD> { [ Uf859 ] };	// TL
5940412cdedSmrg	key <KPDV> { [ Uf819 ] };	// RD
5950412cdedSmrg	key <KPMU> { [ Uf81a ] };	// TG
5960412cdedSmrg	key <KPSU> { [ Uf831 ] };	// LN
5970412cdedSmrg};
5980412cdedSmrg
5990412cdedSmrgxkb_symbols "dyalog" {
6000412cdedSmrg	include "apl(dyalog_base)"
6010412cdedSmrg	include "apl(dyalog_box)"
6020412cdedSmrg	include "apl(dyalog_codes)"
6030412cdedSmrg	name[Group1] = "APL keyboard symbols (Dyalog)";
6040412cdedSmrg};
6050412cdedSmrg
606