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