apl revision 1.1.1.6 1 // EXTRAS:
2 //
3 // APL Keyboard Layouts
4
5 // This file supports:
6 // - The Sharp APL for Unix (SAX) layout
7 // - The IBM APL2 layout
8 // - The Manugistics APL*PLUS II (Version 5.1, 1993) keyboard layout
9 // - The Dyalog APL layout - with additions for box drawing and commands
10
11 // Unicode APL table: http://aplwiki.com/UnicodeAplTable
12 // ...and another: http://publibfp.boulder.ibm.com/epubs/pdf/h2110611.pdf (appendix A)
13 // Generic Unicode stuff: http://www.fileformat.info/info/unicode/category/index.htm
14
15 // Tim Nelson (this file's creator) says:
16
17 // This file doesn't deal with all the combining stuff -- I'm not an APL programmer,
18 // and am not quite sure what's needed here. However, it may be possible to get this
19 // working with dead keys and the like. Patches gratefully accepted.
20 // [Geoff Streeter: What has been done to is to support all of the APL overstrikes in the compose table]
21
22 // Some of the shift-key assignments may differ from the APL tradition. If
23 // that's not considered acceptable, it should be possible to remap the
24 // shift keys. I have striven, however, to ensure that the use of shift keys
25 // in these maps is at least self-consistent.
26
27 // I'm assuming that this will be used with another keyboard layout (ie. for
28 // your language), with a special shift key to use these maps.
29
30 // 2018-07-02 added some codes to the Unicode Private Use page.
31 // 2017-02-27 changed to , added
32 // 2012-09-26 changed "overbar" to macron which fixed some strangeness in xterm
33
34 // 2011-12-22 Geoff Streeter: geoff (a] dyalog.com
35 // Added the Dyalog support.
36 // Corrected (what he thinks) are some errors.
37 // Resolving the confusion between APL's and Unicode's concept of Left and Right tacks.
38 // Unsure about some of the inheritance from APL2 into APLPLUS. Patches welcome.
39 // Complied with freedesktop.org requirement that the keycodes be in sorted order. Which
40 // leads to the bottom to top (roughly) definitions.
41
42 // default layout seems to have to be the first one. Choosing the basic Dyalog layout is definitely
43 // better than using the "common" one. Choosing the complete Dyalog layout is not useful to non-Dyalog
44 // users.
45
46 default partial alphanumeric_keys
47 xkb_symbols "basic" {
48
49 name[Group1]="APL";
50
51 include "apl(dyalog_base)" // forward reference good APL keyboard without Dyalogs extras
52 };
53
54 //
55 //
56 // < = >
57 //
58 //
59 // ? ~ *
60 //
61 //
62 // _ '
63 //
64 //
65 // |
66 //
67 //
68 //
69 //
70
71 partial hidden alphanumeric_keys
72 xkb_symbols "common" {
73
74 key <AB01> { [ U2282 ] }; // Z: -- Subset Of
75 key <AB02> { [ U2283 ] }; // X: -- Superset Of
76 key <AB03> { [ U2229 ] }; // C: -- Intersection
77 key <AB04> { [ U222A ] }; // V: -- Union
78 key <AB05> { [ U22A5 ] }; // B: -- Up Tack
79 key <AB06> { [ U22A4 ] }; // N: -- Down Tack
80 key <AB07> { [ U007C ] }; // M: | -- Vertical Line
81
82 key <AC01> { [ U237A ] }; // A: -- APL Functional Symbol Alpha
83 key <AC02> { [ U2308 ] }; // S: -- Left Ceiling
84 key <AC03> { [ U230A ] }; // D: -- Left Floor
85 key <AC04> { [ underscore ] }; // F:
86 key <AC05> { [ U2207 ] }; // G: -- Nabla
87 key <AC06> { [ U2206 ] }; // H: -- Increment
88 key <AC07> { [ U2218 ] }; // J: -- Ring Operator
89 key <AC08> { [ apostrophe ] }; // K:
90 key <AC09> { [ U2395 ] }; // L: -- APL Functional Symbol Quad
91
92 key <AD01> { [ question ] }; // Q:
93 key <AD02> { [ U2375 ] }; // W: -- APL Functional Symbol Omega
94 key <AD03> { [ U220A ] }; // E: -- Small Element Of
95 key <AD04> { [ U2374 ] }; // R: -- APL Functional Symbol Rho
96 key <AD05> { [ asciitilde ] }; // T:
97 key <AD06> { [ U2191 ] }; // Y: -- Upwards Arrow
98 key <AD07> { [ U2193 ] }; // U: -- Downwards Arrow
99 key <AD08> { [ U2373 ] }; // I: -- APL Functional Symbol Iota
100 key <AD09> { [ U25CB ] }; // O: -- White Circle
101 key <AD10> { [ asterisk ] }; // P: * -- asterisk
102 key <AD11> { [ U2190 ] }; // [: -- Leftwards Arrow
103
104 key <AE01> { [ diaeresis ] };
105 key <AE02> { [ macron ] }; // -- Macron
106 key <AE03> { [ less ] };
107 key <AE04> { [ U2264 ] }; // -- Less-than Or Equal To
108 key <AE05> { [ equal ] };
109 key <AE06> { [ U2265 ] }; // -- Greater-than Or Equal To
110 key <AE07> { [ greater ] };
111 key <AE08> { [ U2260 ] }; // -- Not Equal To
112 key <AE09> { [ U2228 ] }; // -- Logical Or
113 key <AE10> { [ U2227 ] }; // -- Logical And
114 };
115
116 // Keys common to a number of keyboards that allow normal language usage alongside APL
117
118 //
119 //
120 // < = >
121 //
122 //
123 // ? ~ *
124 //
125 //
126 // _ '
127 //
128 //
129 // |
130 //
131 //
132 //
133 //
134
135 partial alphanumeric_keys
136 xkb_symbols "unified" {
137 name[Group1]= "APL Keyboard Symbols: Unified Layout";
138
139 include "apl(common)"
140
141 key <AD12> { [ U2192 ] }; // ]: -- Rightwards Arrow
142 key <AE09> { [ NoSymbol, U2371 ] }; // 9: -- APL Functional Symbol Down Caret Tilde
143 key <AE10> { [ NoSymbol, U2372 ] }; // 0: -- APL Functional Symbol Up Caret Tilde
144 key <AE11> { [ U00D7 ] }; // -: -- Multiplication Sign
145 key <AE12> { [ U00F7, U2339 ] }; // =: -- Division Sign / APL Functional Symbol Quad Divide
146 key <TLDE> { [ U22C4 ] }; // `: -- Diamond Operator
147 };
148
149 // Layout: http://www.wickensonline.co.uk/apl-unicomp.html
150
151 //
152 //
153 // < = >
154 //
155 //
156 // ? ~ *
157 //
158 //
159 // _ '
160 //
161 //
162 // |
163 //
164 //
165 //
166 //
167
168 partial alphanumeric_keys
169 xkb_symbols "sax" {
170 name[Group1]= "APL Keyboard Symbols: sax";
171
172 include "apl(unified)"
173
174 key <AB03> { [ NoSymbol, U235D ] }; // C: -- APL Functional Symbol Up Shoe Jot
175 key <AB05> { [ NoSymbol, U234E ] }; // B: -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack")
176 key <AB06> { [ NoSymbol, U2355 ] }; // N: -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack")
177 key <AB07> { [ NoSymbol, U2336 ] }; // M: -- APL Functional Symbol I-Beam
178 key <AB08> { [ U235E, U236A ] }; // ,: -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar
179 key <AB09> { [ U234E, U2359 ] }; // .: -- [See B key] / APL Functional Symbol Delta Underbar
180 key <AB10> { [ U2355, U233F ] }; // /: -- [See N key] / APL Functional Symbol Slash Bar
181
182 key <AC01> { [ NoSymbol, U2296 ] }; // A: -- Circled Minus
183 key <AC04> { [ NoSymbol, U236B ] }; // F: -- APL Functional Symbol Del Tilde
184 key <AC05> { [ NoSymbol, U2352 ] }; // G: -- APL Functional Symbol Del Stile
185 key <AC06> { [ NoSymbol, U234B ] }; // H: -- APL Functional Symbol Delta Stile
186 key <AC07> { [ NoSymbol, U2364 ] }; // J: -- APL Functional Symbol Jot Diaeresis
187 key <AC08> { [ NoSymbol, U233B ] }; // K:
188 key <AC09> { [ NoSymbol, U235E ] }; // L: -- APL Functional Symbol Quote Quad
189 key <AC10> { [ U22A2 ] }; // ;: -- Right Tack
190 key <AC11> { [ U22A3 ] }; // ': -- Left Tack
191
192 key <AD01> { [ NoSymbol, U00BF ] }; // Q: -- Inverted Question Mark
193 key <AD02> { [ NoSymbol, U233D ] }; // W: -- APL Functional Symbol Circle Stile
194 key <AD03> { [ NoSymbol, U2377 ] }; // E: -- APL Functional Symbol Epsilon Underbar
195 key <AD05> { [ NoSymbol, U2349 ] }; // T: -- APL Functional Symbol Circle Backslash
196 key <AD08> { [ NoSymbol, U2378 ] }; // I: -- APL Functional Symbol Iota Underbar
197 key <AD09> { [ NoSymbol, U2365 ] }; // O: -- APL Functional Symbol Circle Diaeresis
198 key <AD10> { [ NoSymbol, U235F ] }; // P: -- APL Functional Symbol Circle Star
199 key <AE01> { [ NoSymbol, U00A1 ] }; // 1: -- Inverted Exclamation Mark
200 key <AE04> { [ NoSymbol, cent ] }; // 4:
201 key <AE08> { [ NoSymbol, U2342 ] }; // 8: -- APL Functional Symbol Quad Backslash
202 key <AE11> { [ NoSymbol, U2261 ] }; // -: -- Identical To
203
204 key <BKSL> { [ U235D, U2340 ] }; // \: -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar
205 };
206
207 // Layout: http://www.wickensonline.co.uk/apl-unicomp.html
208
209 //
210 // !
211 // -
212 // < = > +
213 //
214 //
215 //
216 // ? ~ *
217 //
218 //
219 // ( )
220 // _ ' [ ]
221 //
222 //
223 // ; : \
224 // | , . /
225 //
226 //
227 //
228 //
229
230 partial alphanumeric_keys
231 xkb_symbols "apl2" {
232 name[Group1]= "APL Keyboard Symbols: IBM APL2";
233
234 include "apl(common)"
235
236 // The first column is NoSymbol because it inherits. The second is NoSymbol because those keys don't do anything
237 // AFS - short for APL Functional Symbol
238
239 key <AB08> { [ comma, semicolon, U235D ] }; // ,: -- AFS Up Shoe Jot
240 key <AB09> { [ period, colon, U2340 ] }; // .: -- AFS Backslash Bar
241 key <AB10> { [ slash, backslash, U233F ] }; // /: -- AFS Slash Bar
242
243 key <AC10> { [ bracketleft, parenleft, U234E ] }; // ;: -- [See B key in SAX layout]
244 key <AC11> { [ bracketright, parenright, U2355 ] }; // ': -- [See N key in SAX layout]
245
246 key <AD11> { [ NoSymbol, U2192, U235E ] }; // [: () -- Rightwards Arrow / AFS Quote Quad
247 key <AD12> { [ U2337, U2378, U2359 ] }; // ]: -- AFS Squish Quad / AFS Iota Underbar / AFS Delta Underbar
248
249 key <AE01> { [ NoSymbol, NoSymbol, U2336 ] }; // 1: -- AFS I-Beam
250 key <AE02> { [ NoSymbol, NoSymbol, U236B ] }; // 2: -- AFS Del Tilde
251 key <AE03> { [ NoSymbol, NoSymbol, U2353 ] }; // 3: -- AFS Del Stile
252 key <AE04> { [ NoSymbol, NoSymbol, U234B ] }; // 4: -- AFS Delta Stile
253 key <AE05> { [ NoSymbol, NoSymbol, U233D ] }; // 5: -- AFS Circle Stile
254 key <AE06> { [ NoSymbol, NoSymbol, U2349 ] }; // 6: -- AFS Circle Backslash
255 key <AE07> { [ NoSymbol, NoSymbol, U2296 ] }; // 7: -- Circled Minus
256 key <AE08> { [ NoSymbol, NoSymbol, U235F ] }; // 8: -- AFS Circle Star
257 key <AE09> { [ NoSymbol, NoSymbol, U2371 ] }; // 9: -- AFS Down Caret Tilde
258 key <AE10> { [ NoSymbol, NoSymbol, U2372 ] }; // 0: -- AFS Up Caret Tilde
259 key <AE11> { [ plus, minus, exclam ] }; // -:
260 key <AE12> { [ U00D7, U00F7, U2339 ] }; // =: -- Multiplication Sign / Division Sign / AFS Quad Divide
261
262 key <BKSL> { [ U2261, U2377, U2364 ] }; // \: -- Identical To / AFS Epsilon Underbar / AFS Jot Diaeresis
263
264 key <TLDE> { [ NoSymbol, U233B, U2342 ] }; // `: --
265
266 include "level3(ralt_switch)"
267 };
268
269 //
270 // !
271 // -
272 // $ < = > +
273 //
274 //
275 //
276 // ? ~ *
277 //
278 //
279 // ( )
280 // _ ' [ ]
281 //
282 //
283 // ; : \
284 // | , . /
285 //
286 //
287 //
288 //
289
290 partial alphanumeric_keys
291 xkb_symbols "aplplusII" {
292 name[Group1]= "APL Keyboard Symbols: Manugistics APL*PLUS II";
293 // AFS - short for APL Functional Symbol
294
295 include "apl(apl2)"
296
297 key <AC10> { [ bracketleft, parenleft, U234E ] }; // ;: -- [See B key in SAX layout]
298 key <AC11> { [ bracketright, parenright, U2355 ] }; // ': -- [See N key in SAX layout]
299 key <AD11> { [ U2190, NoSymbol, U235E ] }; // [: -- Leftwards Arrow / AFS Quote Quad
300 key <AD12> { [ U2192, NoSymbol, U236C ] }; // ]: -- Rightwards Arrow / AFS Zilde
301 key <AE01> { [ NoSymbol, NoSymbol, U2261 ] }; // 1: -- Identical To
302 key <BKSL> { [ U22A2, U22A3, U2359 ] }; // \: -- Left Tack / Right Tack / AFS Delta Underbar
303 key <TLDE> { [ dollar, U22C4, U236A ] }; // `: -- Diamond Operator / AFS Comma Bar
304 };
305
306
307 // MicroAPL layout: http://aplwiki.com/APLXKeyboardLayouts
308 // I didn't do the old-style MicroAPL layout; patches gratefully accepted
309
310 //
311 // !
312 // < = >
313 //
314 //
315 // ? ~ *
316 //
317 //
318 // _ '
319 //
320 //
321 // |
322 //
323 //
324 //
325 //
326
327 partial alphanumeric_keys
328 xkb_symbols "aplx" {
329 name[Group1]= "APL Keyboard Symbols: APLX Unified APL Layout";
330
331 include "apl(unified)"
332
333 key <AB08> { [ U235D, U236A ] }; // ,: -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar
334 key <AB09> { [ U2340, U2364 ] }; // .: -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis
335 key <AB10> { [ U233F ] }; // /: -- APL Functional Symbol Slash Bar
336
337 key <AC10> { [ U234E, U2261 ] }; // ;: -- [See B key in SAX layout] / Identical To
338 key <AC11> { [ U2355, U2262 ] }; // ': -- [See N key in SAX layout] / Not Identical To
339
340 key <AD11> { [ NoSymbol, U2347 ] }; // [: -- Box With Left Arrow
341 key <AD12> { [ NoSymbol, U2348 ] }; // ]: -- Box With Right Arrow
342
343 key <AE01> { [ NoSymbol, U2336 ] }; // 1: -- APL Functional Symbol I-Beam
344 key <AE02> { [ NoSymbol, U236B ] }; // 2: -- APL Functional Symbol Del Tilde
345 key <AE03> { [ NoSymbol, U2353 ] }; // 3: -- APL Functional Symbol Del Stile
346 key <AE04> { [ NoSymbol, U234B ] }; // 4: -- APL Functional Symbol Delta Stile
347 key <AE05> { [ NoSymbol, U233D ] }; // 5: -- APL Functional Symbol Circle Stile
348 key <AE06> { [ NoSymbol, U2349 ] }; // 6: -- APL Functional Symbol Circle Backslash
349 key <AE07> { [ NoSymbol, U2296 ] }; // 7: -- Circled Minus
350 key <AE08> { [ NoSymbol, U235F ] }; // 8: -- APL Functional Symbol Circle Star
351 key <AE11> { [ NoSymbol, exclam ] }; // -:
352
353 key <BKSL> { [ U22A2, U22A3 ] }; // \: -- Right Tack / Left Tack
354
355 key <TLDE> { [ NoSymbol, U235E ] }; // `: -- APL Functional Symbol Quote Quad
356 };
357
358 // APL language support for the Dyalog keyboard.
359 // Dyalog Ltd sell this keyboard with APL engravings. The current model is
360 // engraved on a Cherry G80. Base languages for US, UK and DK are availible.
361
362 // Geoff Streeter, Dyalog Ltd. 2007-09-03
363 // geoff (a] dyalog.com
364 // extended for APL special actions 2008-09-09
365 // add variant 2010-11-26
366 // made BKSL and LTGT keys the same to remove a compatibility issue with the UK physical keyboard
367 // add key (quad equals) 2013-03-12
368 // add currency 2014-05-23
369 // add parallel 2014-05-23
370 // add circle jot 2014-05-23
371 // add t diaeresis 2014-05-23
372 // add del diaerisis 2014-05-23
373 // add quad query 2014-05-23
374 // add dagger 2014-05-23
375 // correct spelling of key name LTGTLSGT 2016-05-26
376 // add enclose underbar 2017-02-27
377 // add alpha underbar 2019-03-22
378 // add omega underbar 2019-03-22
379
380 // The intention is that this keyboard layout overlays a base keyboard that provides
381 // the alphabet and similar. If this keyboard is placed as the 2nd layout then it can
382 // be reached with a latching shift to increase group by one.
383
384 partial hidden alphanumeric_keys
385 xkb_symbols "dyalog_base" {
386
387 //
388 // !
389 // < = >
390 //
391 //
392 // ? ~ *
393 //
394 //
395 // _ '
396 //
397 //
398 // |
399 //
400 //
401 //
402 //
403
404
405 key <AB01> { [ U2282, U2286 ] }; // subset of, enclose if simple
406 key <AB02> { [ U2283 ] }; // superset of
407 key <AB03> { [ U2229 ] }; // intersection
408 key <AB04> { [ U222A ] }; // union
409 key <AB05> { [ U22a5, U236d ] }; // up tack, stile tide
410 key <AB06> { [ U22a4, U2361 ] }; // down tack, down tack diaeresis
411 key <AB07> { [ bar, U2225 ] }; // vertical line, parallel to
412 key <AB08> { [ U235d, U236a ] }; // up shoe jot, comma bar
413 key <AB09> { [ U2340, U2359 ] }; // backslash bar, delta underbar
414 key <AB10> { [ U233f, U2360 ] }; // slash bar, quad colon
415 key <AC01> { [ U237a, U2376 ] }; // alpha, alpha underscore
416 key <AC02> { [ U2308 ] }; // left ceiling
417 key <AC03> { [ U230a ] }; // left floor
418 key <AC04> { [ underscore ] }; // low line
419 key <AC05> { [ U2207, U2362 ] }; // nabla, del diaerisis
420 key <AC06> { [ U2206 ] }; // increment
421 key <AC07> { [ U2218, U2364 ] }; // ring operator, jot diaeresis
422 key <AC08> { [ apostrophe, U2338 ] }; // quote, key
423 key <AC09> { [ U2395, U2337 ] }; // quad, squish quad
424 key <AC10> { [ U234e, U2261 ] }; // up tack jot, identical to
425 key <AC11> { [ U2355, U2262 ] }; // down tack jot, not identical to
426 key <AD01> { [ question, U2370 ] }; // ?, quad question
427 key <AD02> { [ U2375, U2379 ] }; // omega, omega underscore
428 key <AD03> { [ U220a, U2377 ] }; // small element of, epsilon underbar
429 key <AD04> { [ U2374, U233E ] }; // rho, circle jot
430 key <AD05> { [ asciitilde, U2368 ] }; // tilde, tilde diaeresis
431 key <AD06> { [ U2191 ] }; // upwards arrow
432 key <AD07> { [ U2193 ] }; // downwards arrow
433 key <AD08> { [ U2373, U2378 ] }; // iota, iota underbar
434 key <AD09> { [ U25cb, U2365 ] }; // circle, circle diaeresis
435 key <AD10> { [ asterisk, U2363 ] }; // asterisk, star diaeresis
436 key <AD11> { [ U2190, U235e ] }; // left arrow, quote quad
437 key <AD12> { [ U2192, U236c ] }; // right arrow, zilde
438 key <AE01> { [ diaeresis, U2336 ] }; // i-beam
439 key <AE02> { [ macron, U236B ] }; // deltilde
440 key <AE03> { [ less, U2352 ] }; // downgrade
441 key <AE04> { [ U2264, U234b ] }; // lesseq upgrade
442 key <AE05> { [ equal, U233d ] }; // circlestile
443 key <AE06> { [ U2265, U2349 ] }; // greatereq circleslope
444 key <AE07> { [ greater, U2296 ] }; // circlebar
445 key <AE08> { [ U2260, U235f ] }; // notequal, circlestar
446 key <AE09> { [ U2228, U2371 ] }; // logical or, down caret tilde
447 key <AE10> { [ U2227, U2372 ] }; // logical and, up caret tilde
448 key <AE11> { [ multiply, exclam ] };
449 key <AE12> { [ division, U2339 ] }; // quad divide
450 key <BKSL> { [ U22a2, U22a3 ] }; // right tack, left tack
451 key <LSGT> { [ U22a2, U22a3 ] }; // right tack, left tack
452 key <TLDE> { [ U22c4, U233a ] }; // diamond, quad diamond
453 };
454
455 partial hidden keypad_keys
456 xkb_symbols "dyalog_box" {
457
458 //
459 //
460 //
461 //
462 //
463 //
464 //
465 //
466 //
467 //
468 //
469
470 key <KP0> { [ U2500 ] }; // box drawing light horizontal
471 key <KP1> { [ U2514 ] }; // box drawing light up and right
472 key <KP2> { [ U2534 ] }; // box drawing light up and horizontal
473 key <KP3> { [ U2518 ] }; // box drawing light up and left
474 key <KP4> { [ U251c ] }; // box drawing light vertical and right
475 key <KP5> { [ U253c ] }; // box drawing light vertical and horizontal
476 key <KP6> { [ U2524 ] }; // box drawing light vertical and left
477 key <KP7> { [ U250c ] }; // box drawing light down and right
478 key <KP8> { [ U252c ] }; // box drawing light down and horizontal
479 key <KP9> { [ U2510 ] }; // box drawing light down and left
480 key <KPDL> { [ U2502 ] }; // box drawing light vertical
481
482 };
483
484 xkb_symbols hidden "dyalog_codes" {
485
486 // Layout of private use area for this. In the style of the Unicode book
487 //
488 // APL special actions F800-F88F
489 //
490 // F800 F810 F820 F830 F840 F850 F860 F870 F880
491 //
492 // 0QT LL BK FX Rc BP PA
493 //
494 // 1ER HO ZM LN LW AB SA
495 //
496 // 2TB CT SC MC RW HT RZ
497 //
498 // 3BT PT RP MR Lw TH AC
499 //
500 // 4EP IN NX JP Rw RM MA
501 //
502 // 5UC II PV D1 Uc CB OF
503 //
504 // 6DC DI RT D2 Dc PR FS TO
505 //
506 // 7RC DP RA D3 Ll SR FA MO
507 //
508 // 8LC DB ED D4 Rl IS TT
509 //
510 // 9US RD TC D5 Ul TL FT
511 //
512 // ADS TG NB U1 Dl UA PL
513 //
514 // BRS DK NS U2 Us AO CA
515 //
516 // CLS OP ST U3 Ds DO
517 //
518 // DUL CP EN U4 DD GL S1
519 //
520 // EDL MV IF U5 DH CH S2
521 //
522 // FRL FD HK Lc BH PU OS
523 //
524 //
525 // APL Function Keys F700-F7FF
526 //
527 // F700 ... ... F7F0
528 // ....
529 // 0F0 F16 F32 F48 F192F208F224F240
530 // .
531 // .
532 // .
533 // FF15 F31 F47 F63 F207F223F239F255
534 // ....
535 //
536 // whilst these locations are defined. Dyalog's "aplkeys/xterm" file copes with
537 // normal function keys from the base keyboard rather than this overlay
538
539 //
540 // CA ZM
541 // QT ZM
542 //
543
544 //
545 // CB
546 // BP
547 //
548 // BT
549 // TB
550 //
551 // TC
552 // ED
553 //
554 //
555 //
556 //
557 // MO
558 // TO
559 //
560
561
562 key <BKSP> { [ Uf850, Uf855 ] }; // BP CB
563 key <ESC> { [ Uf800, Uf86b ] }; // QT CA
564 key <FK11> { [ Uf821, Uf821 ] }; // ZM, ZM put this on both, the unshifted one sometimes gets lost
565 key <RTRN> { [ Uf828, Uf829 ] }; // ED, TC
566 key <SPCE> { [ Uf886, Uf887 ] }; // TO, MO
567 key <TAB> { [ Uf802, Uf803 ] }; // TB, BT
568
569 //
570 //
571 // BK
572 //
573 // BH RM
574 // PV FD NX
575 //
576
577 key <DOWN> { [ Uf81f ] }; // FD
578 key <LEFT> { [ Uf825, Uf84f ] }; // PV, BH
579 key <RGHT> { [ Uf824, Uf854 ] }; // NX, RM
580 key <UP> { [ Uf820 ] }; // BK
581
582
583 //
584 // PT LL UL
585 // CP LS US
586 //
587 // CT RL DL
588 // DK RS DS
589 //
590
591 key <DELE> { [ Uf81b, Uf812 ] }; // DK, CT
592 key <END> { [ Uf80b, Uf80f ] }; // RS, RL
593 key <HOME> { [ Uf80c, Uf810 ] }; // LS, LL
594 key <INS> { [ Uf81d, Uf813 ] }; // CP, PT
595 key <PGDN> { [ Uf80a, Uf80e ] }; // DS, DL
596 key <PGUP> { [ Uf809, Uf80d ] }; // US, UL
597
598 //
599 // RD TG LN
600 //
601 //
602 // TL
603 //
604 //
605 //
606 //
607 //
608 //
609
610
611 key <KPAD> { [ Uf859 ] }; // TL
612 key <KPDV> { [ Uf819 ] }; // RD
613 key <KPMU> { [ Uf81a ] }; // TG
614 key <KPSU> { [ Uf831 ] }; // LN
615 };
616
617 xkb_symbols "dyalog" {
618
619 include "apl(dyalog_base)"
620 include "apl(dyalog_box)"
621 include "apl(dyalog_codes)"
622 name[Group1] = "Dyalog APL complete";
623 };
624
625