XCOMM APL support Geoff Streeter 2011-12-19

XCOMM Firstly: Circled alphabet support
XCOMM Traditional APL supported two alphabets a normal one and an underscored one.
XCOMM Some APLs (Dyalog's for instance) have always supported 3 alphabets: upper case, lower
XCOMM case and underscored. Unicode doesn't have an underscored alphabet so the underscored one
XCOMM was mapped to the circled one and the rendering treated as a font issue.

XCOMM Using the letter "O" has already been taken for "copyright", "registered" ...
XCOMM So use number "0" instead. Useful for normal users. Saves a layout switch for APL users.

<Multi_key> <0> <A>                     : "Ⓐ"   U24B6 # CIRCLED LATIN CAPITAL LETTER A
<Multi_key> <0> <B>                     : "Ⓑ"   U24B7 # CIRCLED LATIN CAPITAL LETTER B
<Multi_key> <0> <C>                     : "Ⓒ"   U24B8 # CIRCLED LATIN CAPITAL LETTER C
<Multi_key> <0> <D>                     : "Ⓓ"   U24B9 # CIRCLED LATIN CAPITAL LETTER D
<Multi_key> <0> <E>                     : "Ⓔ"   U24BA # CIRCLED LATIN CAPITAL LETTER E
<Multi_key> <0> <F>                     : "Ⓕ"   U24BB # CIRCLED LATIN CAPITAL LETTER F
<Multi_key> <0> <G>                     : "Ⓖ"   U24BC # CIRCLED LATIN CAPITAL LETTER G
<Multi_key> <0> <H>                     : "Ⓗ"   U24BD # CIRCLED LATIN CAPITAL LETTER H
<Multi_key> <0> <I>                     : "Ⓘ"   U24BE # CIRCLED LATIN CAPITAL LETTER I
<Multi_key> <0> <J>                     : "Ⓙ"   U24BF # CIRCLED LATIN CAPITAL LETTER J
<Multi_key> <0> <K>                     : "Ⓚ"   U24C0 # CIRCLED LATIN CAPITAL LETTER K
<Multi_key> <0> <L>                     : "Ⓛ"   U24C1 # CIRCLED LATIN CAPITAL LETTER L
<Multi_key> <0> <M>                     : "Ⓜ"   U24C2 # CIRCLED LATIN CAPITAL LETTER M
<Multi_key> <0> <N>                     : "Ⓝ"   U24C3 # CIRCLED LATIN CAPITAL LETTER N
<Multi_key> <0> <O>                     : "Ⓞ"   U24C4 # CIRCLED LATIN CAPITAL LETTER O
<Multi_key> <0> <P>                     : "Ⓟ"   U24C5 # CIRCLED LATIN CAPITAL LETTER P
<Multi_key> <0> <Q>                     : "Ⓠ"   U24C6 # CIRCLED LATIN CAPITAL LETTER Q
<Multi_key> <0> <R>                     : "Ⓡ"   U24C7 # CIRCLED LATIN CAPITAL LETTER R
<Multi_key> <0> <S>                     : "Ⓢ"   U24C8 # CIRCLED LATIN CAPITAL LETTER S
<Multi_key> <0> <T>                     : "Ⓣ"   U24C9 # CIRCLED LATIN CAPITAL LETTER T
<Multi_key> <0> <U>                     : "Ⓤ"   U24CA # CIRCLED LATIN CAPITAL LETTER U
<Multi_key> <0> <V>                     : "Ⓥ"   U24CB # CIRCLED LATIN CAPITAL LETTER V
<Multi_key> <0> <W>                     : "Ⓦ"   U24CC # CIRCLED LATIN CAPITAL LETTER W
<Multi_key> <0> <X>                     : "Ⓧ"   U24CD # CIRCLED LATIN CAPITAL LETTER X
<Multi_key> <0> <Y>                     : "Ⓨ"   U24CE # CIRCLED LATIN CAPITAL LETTER Y
<Multi_key> <0> <Z>                     : "Ⓩ"   U24CF # CIRCLED LATIN CAPITAL LETTER Z

XCOMM I see no reason not to do the numbers as well

<Multi_key> <0> <1>                     : "①"   U2460 # CIRCLED DIGIT 1
<Multi_key> <0> <2>                     : "②"   U2461 # CIRCLED DIGIT 2
<Multi_key> <0> <3>                     : "③"   U2462 # CIRCLED DIGIT 3
<Multi_key> <0> <4>                     : "④"   U2463 # CIRCLED DIGIT 4
<Multi_key> <0> <5>                     : "⑤"   U2464 # CIRCLED DIGIT 5
<Multi_key> <0> <6>                     : "⑥"   U2465 # CIRCLED DIGIT 6
<Multi_key> <0> <7>                     : "⑦"   U2466 # CIRCLED DIGIT 7
<Multi_key> <0> <8>                     : "⑧"   U2467 # CIRCLED DIGIT 8
<Multi_key> <0> <9>                     : "⑨"   U2468 # CIRCLED DIGIT 9

XCOMM For APL users who have ○ as a character we can code
<Multi_key> <U25cb> <A>                     : "Ⓐ"   U24B6 # CIRCLED LATIN CAPITAL LETTER A
<Multi_key> <U25cb> <B>                     : "Ⓑ"   U24B7 # CIRCLED LATIN CAPITAL LETTER B
<Multi_key> <U25cb> <C>                     : "Ⓒ"   U24B8 # CIRCLED LATIN CAPITAL LETTER C
<Multi_key> <U25cb> <D>                     : "Ⓓ"   U24B9 # CIRCLED LATIN CAPITAL LETTER D
<Multi_key> <U25cb> <E>                     : "Ⓔ"   U24BA # CIRCLED LATIN CAPITAL LETTER E
<Multi_key> <U25cb> <F>                     : "Ⓕ"   U24BB # CIRCLED LATIN CAPITAL LETTER F
<Multi_key> <U25cb> <G>                     : "Ⓖ"   U24BC # CIRCLED LATIN CAPITAL LETTER G
<Multi_key> <U25cb> <H>                     : "Ⓗ"   U24BD # CIRCLED LATIN CAPITAL LETTER H
<Multi_key> <U25cb> <I>                     : "Ⓘ"   U24BE # CIRCLED LATIN CAPITAL LETTER I
<Multi_key> <U25cb> <J>                     : "Ⓙ"   U24BF # CIRCLED LATIN CAPITAL LETTER J
<Multi_key> <U25cb> <K>                     : "Ⓚ"   U24C0 # CIRCLED LATIN CAPITAL LETTER K
<Multi_key> <U25cb> <L>                     : "Ⓛ"   U24C1 # CIRCLED LATIN CAPITAL LETTER L
<Multi_key> <U25cb> <M>                     : "Ⓜ"   U24C2 # CIRCLED LATIN CAPITAL LETTER M
<Multi_key> <U25cb> <N>                     : "Ⓝ"   U24C3 # CIRCLED LATIN CAPITAL LETTER N
<Multi_key> <U25cb> <O>                     : "Ⓞ"   U24C4 # CIRCLED LATIN CAPITAL LETTER O
<Multi_key> <U25cb> <P>                     : "Ⓟ"   U24C5 # CIRCLED LATIN CAPITAL LETTER P
<Multi_key> <U25cb> <Q>                     : "Ⓠ"   U24C6 # CIRCLED LATIN CAPITAL LETTER Q
<Multi_key> <U25cb> <R>                     : "Ⓡ"   U24C7 # CIRCLED LATIN CAPITAL LETTER R
<Multi_key> <U25cb> <S>                     : "Ⓢ"   U24C8 # CIRCLED LATIN CAPITAL LETTER S
<Multi_key> <U25cb> <T>                     : "Ⓣ"   U24C9 # CIRCLED LATIN CAPITAL LETTER T
<Multi_key> <U25cb> <U>                     : "Ⓤ"   U24CA # CIRCLED LATIN CAPITAL LETTER U
<Multi_key> <U25cb> <V>                     : "Ⓥ"   U24CB # CIRCLED LATIN CAPITAL LETTER V
<Multi_key> <U25cb> <W>                     : "Ⓦ"   U24CC # CIRCLED LATIN CAPITAL LETTER W
<Multi_key> <U25cb> <X>                     : "Ⓧ"   U24CD # CIRCLED LATIN CAPITAL LETTER X
<Multi_key> <U25cb> <Y>                     : "Ⓨ"   U24CE # CIRCLED LATIN CAPITAL LETTER Y
<Multi_key> <U25cb> <Z>                     : "Ⓩ"   U24CF # CIRCLED LATIN CAPITAL LETTER Z
<Multi_key> <U25cb> <1>                     : "①"   U2460 # CIRCLED DIGIT 1
<Multi_key> <U25cb> <2>                     : "②"   U2461 # CIRCLED DIGIT 2
<Multi_key> <U25cb> <3>                     : "③"   U2462 # CIRCLED DIGIT 3
<Multi_key> <U25cb> <4>                     : "④"   U2463 # CIRCLED DIGIT 4
<Multi_key> <U25cb> <5>                     : "⑤"   U2464 # CIRCLED DIGIT 5
<Multi_key> <U25cb> <6>                     : "⑥"   U2465 # CIRCLED DIGIT 6
<Multi_key> <U25cb> <7>                     : "⑦"   U2466 # CIRCLED DIGIT 7
<Multi_key> <U25cb> <8>                     : "⑧"   U2467 # CIRCLED DIGIT 8
<Multi_key> <U25cb> <9>                     : "⑨"   U2468 # CIRCLED DIGIT 9

XCOMM Secondly: APL overstrike support

XCOMM APL was initially an overstruck language. The original APL terrminal was an IBM golfball
XCOMM with a specially designed golfball. This meant that characters could be overstruck to
XCOMM produce other characters. This gave APL a richness of primitives which is still powerful
XCOMM today. Overstrikes were always independent of order. 

XCOMM APLs have extended this into a number of dialects. Let us try to support lots of them.
XCOMM Together with some that have not been used yet. Some traditional ones are not included.
XCOMM Original APLs produced ! by overstriking ' and . - seems unnecessary now.
XCOMM Easier for me to think of the requirements in terms of the Keyboard location - no other reasson for the order below.

XCOMM Unshifted top row of Dyalog keyboard

<Multi_key> <U003c> <U003e>         		: "⋄"   U22c4	# < > DIAMOND OPERATOR
<Multi_key> <U003e> <U003c>        		: "⋄"   U22c4	# > < DIAMOND OPERATOR
<Multi_key> <U2227> <U2228>			: "⋄"   U22c4	# ∧ ∨ DIAMOND OPERATOR
<Multi_key> <U2228> <U2227>        		: "⋄"   U22c4	# ∨ ∧ DIAMOND OPERATOR
<Multi_key> <U003c> <U005f>        		: "≤"   U2264	# < _ LESS-THAN OR EQUAL TO
<Multi_key> <U005f> <U003c>        		: "≤"   U2264	# _ < LESS-THAN OR EQUAL TO
<Multi_key> <U003e> <U005f>        		: "≥"   U2265	# > _ GREATER-THAN OR EQUAL TO
<Multi_key> <U005f> <U003c>        		: "≥"   U2265	# _ > GREATER-THAN OR EQUAL TO
<Multi_key> <U003d> <U002f>        		: "≠"   U2260	# = / NOT EQUAL TO
<Multi_key> <U002f> <U003d>        		: "≠"   U2260	# / = NOT EQUAL TO
<Multi_key> <U003a> <U002d>        		: "÷"   U00f7	# : - DIVIDE
<Multi_key> <U002d> <U003a>        		: "÷"   U00f7	# - : DIVIDE

XCOMM Shifted top row of Dyalog keyboard

<Multi_key> <U22a5> <U22a4>        		: "⌶"   U2336	# ⊥ ⊤ APL FUNCTIONAL SYMBOL I-BEAM
<Multi_key> <U22a4> <U22a5>        		: "⌶"   U2336	# ⊥ ⊤ APL FUNCTIONAL SYMBOL I-BEAM
<Multi_key> <U2207> <U007e>        		: "⍫"   U236b	# ∇ ~ APL FUNCTIONAL SYMBOL DEL TILDE
<Multi_key> <U007e> <U2207>        		: "⍫"   U236b	# ~ ∇ APL FUNCTIONAL SYMBOL DEL TILDE
<Multi_key> <U2207> <U007c>        		: "⍒"   U2352	# ∇ | APL FUNCTIONAL SYMBOL DEL STILE
<Multi_key> <U007c> <U2207>        		: "⍒"   U2352	# | ∇ APL FUNCTIONAL SYMBOL DEL STILE
<Multi_key> <U2206> <U007c>        		: "⍋"   U234b	# ∆ | APL FUNCTIONAL SYMBOL DELTA STILE
<Multi_key> <U007c> <U2206>        		: "⍋"   U234b	# | ∆ APL FUNCTIONAL SYMBOL DELTA STILE
<Multi_key> <U25cb> <U007c>        		: "⌽"   U233d	# ○ | APL FUNCTIONAL SYMBOL CIRCLE STILE
<Multi_key> <U007c> <U25cb>        		: "⌽"   U233d	# | ○ APL FUNCTIONAL SYMBOL CIRCLE STILE
<Multi_key> <U25cb> <U005c>        		: "⍉"   U2349	# ○ \ APL FUNCTIONAL SYMBOL CIRCLE SLOPE
<Multi_key> <U005c> <U25cb>        		: "⍉"   U2349	# \ ○ APL FUNCTIONAL SYMBOL CIRCLE SLOPE
<Multi_key> <U25cb> <U002d>        		: "⊖"   U2296	# ○ - CIRCLED MINUS
<Multi_key> <U002d> <U25cb>        		: "⊖"   U2296	# - ○ CIRCLED MINUS
<Multi_key> <U25cb> <U002a>        		: "⍟"   U235f	# ○ * APL FUNCTIONAL SYMBOL CIRCLE STAR
<Multi_key> <U002a> <U25cb>        		: "⍟"   U235f	# * ○ APL FUNCTIONAL SYMBOL CIRCLE STAR
<Multi_key> <U2227> <U007e>        		: "⍲"   U2371	# ∨ ~ APL FUNCTIONAL SYMBOL DOWN CARET TILDE
<Multi_key> <U007e> <U2227>        		: "⍱"   U2371	# ~ ∨ APL FUNCTIONAL SYMBOL DOWN CARET TILDE
<Multi_key> <U2228> <U007e>        		: "⍲"   U2372	# ∧ ~ APL FUNCTIONAL SYMBOL UP CARET TILDE
<Multi_key> <U007e> <U2228>        		: "⍲"   U2372	# ~ ∧ APL FUNCTIONAL SYMBOL UP CARET TILDE
<Multi_key> <U2395> <U00f7>        		: "⌹"   U2339	# ⎕ ÷ APL FUNCTIONAL SYMBOL QUAD DIVIDE
<Multi_key> <U00f7> <U2395>        		: "⌹"   U2339	# ÷ ⎕ APL FUNCTIONAL SYMBOL QUAD DIVIDE

XCOMM Shifted tab row

<Multi_key> <U220a> <U005f>        		: "⍷"   U2377	# ∊ _ APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
<Multi_key> <U005f> <U220a>        		: "⍷"   U2377	# _ ∊ APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
<Multi_key> <U00a8> <U007e>        		: "⍨"   U2368	# ¨ ~ APL FUNCTIONAL SYMBOL TILDE DIAERESIS
<Multi_key> <U007e> <U00a8>        		: "⍨"   U2368	# ~ ¨ APL FUNCTIONAL SYMBOL TILDE DIAERESIS
<Multi_key> <U2373> <U005f>        		: "⍸"   U2378	# ∊ _ APL FUNCTIONAL SYMBOL IOTA UNDERBAR
<Multi_key> <U005f> <U2373>        		: "⍸"   U2378	# _ ∊ APL FUNCTIONAL SYMBOL IOTA UNDERBAR
<Multi_key> <U25cb> <U00a8>        		: "⍥"   U2365	# ○ ¨ APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS
<Multi_key> <U00a8> <U25cb>        		: "⍥"   U2365	# ¨ ○ APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS
<Multi_key> <U002a> <U00a8>        		: "⍣"   U2363	# * ¨ APL FUNCTIONAL SYMBOL STAR DIAERESIS
<Multi_key> <U00a8> <U002a>        		: "⍣"   U2363	# ¨ * APL FUNCTIONAL SYMBOL STAR DIAERESIS
<Multi_key> <U2395> <U0027>        		: "⍞"   U235e	# * ¨ APL FUNCTIONAL SYMBOL QUOTE QUAD
<Multi_key> <U0027> <U2395>        		: "⍞"   U235e	# ¨ * APL FUNCTIONAL SYMBOL QUOTE QUAD
<Multi_key> <U0030> <U007e>        		: "⍬"   U236c	# 0 ~ APL FUNCTIONAL SYMBOL ZILDE
<Multi_key> <U007e> <U0030>        		: "⍬"   U236c	# ~ 0 APL FUNCTIONAL SYMBOL ZILDE

XCOMM Caps lock row unshifted

<Multi_key> <U2218> <U22a5>        		: "⍎"   U234e	# ∘ ⊥ APL FUNCTIONAL SYMBOL DOWN TACK JOT
<Multi_key> <U22a5> <U2218>        		: "⍎"   U234e	# ⊥ ∘ APL FUNCTIONAL SYMBOL DOWN TACK JOT
<Multi_key> <U2218> <U22a4>        		: "⍕"   U2355	# ∘ ⊤ APL FUNCTIONAL SYMBOL UP TACK JOT
<Multi_key> <U22a4> <U2218>        		: "⍕"   U2355	# ⊤ ∘ APL FUNCTIONAL SYMBOL UP TACK JOT
<Multi_key> <U0028> <U002d>        		: "⊢"   U22a2	# ( - RIGHT TACK
<Multi_key> <U002d> <U0028>        		: "⊢"   U22a2	# - ( RIGHT TACK

XCOMM Caps lock row shifted

<Multi_key> <U2218> <U00a8>        		: "⍤"   U2364	# ∘ ¨ APL FUNCTIONAL SYMBOL JOT DIAERESIS
<Multi_key> <U00a8> <U2218>        		: "⍤"   U2364	# ¨ ∘ APL FUNCTIONAL SYMBOL JOT DIAERESIS
<Multi_key> <U005b> <U005d>        		: "⌷"   U2337	# [ ] APL FUNCTIONAL SYMBOL SQUISH QUAD
<Multi_key> <U005d> <U005b>        		: "⌷"   U2337	# ] [ APL FUNCTIONAL SYMBOL SQUISH QUAD
<Multi_key> <U005f> <U003d>        		: "≡"   U2261	# _ = IDENTICAL TO
<Multi_key> <U003d> <U005f>        		: "≡"   U2261	# = _ IDENTICAL TO
<Multi_key> <U005f> <U2260>        		: "≢"   U2262	# _ ≠ NOT IDENTICAL TO
<Multi_key> <U2260> <U005f>        		: "≢"   U2262	# ≠ _ NOT IDENTICAL TO
<Multi_key> <U0029> <U002d>        		: "⊣"   U22a3	# ) - LEFT TACK
<Multi_key> <U002d> <U0029>        		: "⊣"   U22a3	# - ) LEFT TACK

XCOMM Shift row unshifted

<Multi_key> <U2218> <U2229>        		: "⍝"   U235d	# ∘ ∩ APL FUNCTIONAL SYMBOL UP SHOE JOT
<Multi_key> <U2229> <U2218>        		: "⍝"   U235d	# ∩ ∘ APL FUNCTIONAL SYMBOL UP SHOE JOT
<Multi_key> <U005c> <U002d>        		: "⍀"   U2340	# \ - APL FUNCTIONAL SYMBOL BACKSLASH BAR
<Multi_key> <U002d> <U005c>        		: "⍀"   U2340	# - \ APL FUNCTIONAL SYMBOL BACKSLASH BAR
<Multi_key> <U002f> <U002d>        		: "⌿"   U233f	# \ - APL FUNCTIONAL SYMBOL SLASH BAR
<Multi_key> <U002d> <U002f>        		: "⌿"   U233f	# - \ APL FUNCTIONAL SYMBOL SLASH BAR

XCOMM Shift row shifted

<Multi_key> <U002c> <U002d>        		: "⍪"   U236a	# , - APL FUNCTIONAL SYMBOL COMMA BAR
<Multi_key> <U002d> <U002c>        		: "⍪"   U236a	# - , APL FUNCTIONAL SYMBOL COMMA BAR
<Multi_key> <U003a> <U2395>        		: "⍠"   U2360	# : ⎕ APL FUNCTIONAL SYMBOL QUAD COLON
<Multi_key> <U2395> <U003a>        		: "⍠"   U2360	# ⎕ : APL FUNCTIONAL SYMBOL QUAD COLON
<Multi_key> <U2206> <U005f>        		: "⍙"   U2359	# ∆ _ APL FUNCTIONAL SYMBOL DELTA UNDERBAR
<Multi_key> <U005f> <U2206>        		: "⍙"   U2359	# _ ∆ APL FUNCTIONAL SYMBOL DELTA UNDERBAR

XCOMM Add extras from Sax keyboard

<Multi_key> <U2218> <U2395>        		: "⌻"   U233B	# : ⎕ APL FUNCTIONAL SYMBOL QUAD JOT
<Multi_key> <U2395> <U2218>        		: "⌻"   U233B	# ⎕ : APL FUNCTIONAL SYMBOL QUAD JOT

XCOMM Add extras from APL2 keyboard

<Multi_key> <U005c> <U2395>        		: "⍂"   U2342	# \ ⎕ APL FUNCTIONAL SYMBOL QUAD BACKSLASH
<Multi_key> <U2395> <U005c>        		: "⍂"   U2342	# ⎕ \ APL FUNCTIONAL SYMBOL QUAD BACKSLASH

XCOMM Add extras from MicroAPL keyboard 

<Multi_key> <U2190> <U2395>        		: "⍇"   U2347	# ← ⎕ APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
<Multi_key> <U2395> <U2190>        		: "⍇"   U2347	# ⎕ ← APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
<Multi_key> <U2192> <U2395>        		: "⍈"   U2348	# → ⎕ APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
<Multi_key> <U2395> <U2192>        		: "⍈"   U2348	# ⎕ → APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW

XCOMM end of APL support