LLKEY: Do the Meta/Function abstraction for \ORIGKEYACTIONS and \MAIKOKEYACTIONST4
With all the back and forth in the last branch I forgot to commit these particular changes
This commit is contained in:
rmkaplan
184
sources/LLKEY
184
sources/LLKEY
@@ -1,10 +1,8 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "24-Aug-2021 16:54:52" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 199507
|
||||
(FILECREATED "27-Aug-2021 16:18:18" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9 199890
|
||||
|
||||
changes to%: (FNS KEYACTION)
|
||||
|
||||
previous date%: "24-Aug-2021 16:43:30"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5)
|
||||
previous date%: "24-Aug-2021 16:54:52"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1582,29 +1580,29 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
|
||||
|
||||
(RPAQQ \ORIGKEYACTIONS
|
||||
((0 (53 "%%" NOLOCKSHIFT))
|
||||
(1 (52 "$" NOLOCKSHIFT))
|
||||
(2 (54 "~" NOLOCKSHIFT))
|
||||
((0 ("5" "%%" NOLOCKSHIFT))
|
||||
(1 ("4" "$" NOLOCKSHIFT))
|
||||
(2 ("6" "~" NOLOCKSHIFT))
|
||||
(3 ("e" "E" LOCKSHIFT))
|
||||
(4 (55 "&" NOLOCKSHIFT))
|
||||
(4 ("7" "&" NOLOCKSHIFT))
|
||||
(5 ("d" "D" LOCKSHIFT))
|
||||
(6 ("u" "U" LOCKSHIFT))
|
||||
(7 ("v" "V" LOCKSHIFT))
|
||||
(8 (48 ")" NOLOCKSHIFT))
|
||||
(8 ("0" ")" NOLOCKSHIFT))
|
||||
(9 ("k" "K" LOCKSHIFT))
|
||||
(10 ("-" "-" NOLOCKSHIFT))
|
||||
(11 ("p" "P" LOCKSHIFT))
|
||||
(12 ("/" "?" NOLOCKSHIFT))
|
||||
(13 ("\" "|" NOLOCKSHIFT))
|
||||
(14 (10 96 NOLOCKSHIFT))
|
||||
(15 (8 8 NOLOCKSHIFT))
|
||||
(16 (51 "#" NOLOCKSHIFT))
|
||||
(17 (50 "@" NOLOCKSHIFT))
|
||||
(14 ("LF" "`" NOLOCKSHIFT))
|
||||
(15 ("Bs" "Bs" NOLOCKSHIFT))
|
||||
(16 ("3" "#" NOLOCKSHIFT))
|
||||
(17 ("2" "@" NOLOCKSHIFT))
|
||||
(18 ("w" "W" LOCKSHIFT))
|
||||
(19 ("q" "Q" LOCKSHIFT))
|
||||
(20 ("s" "S" LOCKSHIFT))
|
||||
(21 ("a" "A" LOCKSHIFT))
|
||||
(22 (57 "(" NOLOCKSHIFT))
|
||||
(22 ("9" "(" NOLOCKSHIFT))
|
||||
(23 ("i" "I" LOCKSHIFT))
|
||||
(24 ("x" "X" LOCKSHIFT))
|
||||
(25 ("o" "O" LOCKSHIFT))
|
||||
@@ -1612,11 +1610,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(27 ("," "<" NOLOCKSHIFT))
|
||||
(28 ("'" "%"" NOLOCKSHIFT))
|
||||
(29 ("]" "}" NOLOCKSHIFT))
|
||||
(30 (194 194 NOLOCKSHIFT))
|
||||
(31 (193 193 NOLOCKSHIFT))
|
||||
(32 (49 "!" NOLOCKSHIFT))
|
||||
(33 (27 27 NOLOCKSHIFT))
|
||||
(34 (9 9 NOLOCKSHIFT))
|
||||
(30 ("#B" "#B" NOLOCKSHIFT))
|
||||
(31 ("#A" "#A" NOLOCKSHIFT))
|
||||
(32 ("1" "!" NOLOCKSHIFT))
|
||||
(33 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(34 ("Tab" "Tab" NOLOCKSHIFT))
|
||||
(35 ("f" "F" LOCKSHIFT))
|
||||
(36 CTRLDOWN . CTRLUP)
|
||||
(37 ("c" "C" LOCKSHIFT))
|
||||
@@ -1626,24 +1624,24 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(41 1SHIFTDOWN . 1SHIFTUP)
|
||||
(42 ("." ">" NOLOCKSHIFT))
|
||||
(43 (";" ":" NOLOCKSHIFT))
|
||||
(44 (13 13 NOLOCKSHIFT))
|
||||
(44 ("CR" "CR" NOLOCKSHIFT))
|
||||
(45 ("_" "^" NOLOCKSHIFT))
|
||||
(46 (127 535 NOLOCKSHIFT))
|
||||
(46 ("Del" "Function,^W" NOLOCKSHIFT))
|
||||
(47 ("(" "[" NOLOCKSHIFT))
|
||||
(48 ("r" "R" LOCKSHIFT))
|
||||
(49 ("t" "T" LOCKSHIFT))
|
||||
(50 ("g" "G" LOCKSHIFT))
|
||||
(51 ("y" "Y" LOCKSHIFT))
|
||||
(52 ("h" "H" LOCKSHIFT))
|
||||
(53 (56 "*" NOLOCKSHIFT))
|
||||
(53 ("8" "*" NOLOCKSHIFT))
|
||||
(54 ("n" "N" LOCKSHIFT))
|
||||
(55 ("m" "M" LOCKSHIFT))
|
||||
(56 LOCKDOWN . LOCKUP)
|
||||
(57 (32 32 NOLOCKSHIFT))
|
||||
(57 ("Sp" "Sp" NOLOCKSHIFT))
|
||||
(58 ("[" "{" NOLOCKSHIFT))
|
||||
(59 ("=" "+" NOLOCKSHIFT))
|
||||
(60 2SHIFTDOWN . 2SHIFTUP)
|
||||
(61 (195 195 NOLOCKSHIFT))
|
||||
(61 ("#C" "#C" NOLOCKSHIFT))
|
||||
(63 (")" "]" NOLOCKSHIFT))
|
||||
(77 EVENT . EVENT)
|
||||
(78 EVENT . EVENT)
|
||||
@@ -1792,50 +1790,50 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(105 ("\" "|" NOLOCKSHIFT))))
|
||||
|
||||
(RPAQQ \MAIKOKEYACTIONST4
|
||||
((61 ("^E" "^G" NOLOCKSHIFT))
|
||||
(91 ("2,10" "2,50" NOLOCKSHIFT))
|
||||
(92 ("2,1" "2,41" NOLOCKSHIFT))
|
||||
(30 ("2,1" "2,41" NOLOCKSHIFT))
|
||||
(109 ("2,25" "2,65" NOLOCKSHIFT))
|
||||
(63 ("2,4" "2,44" NOLOCKSHIFT))
|
||||
((61 ("^E" "Bell" NOLOCKSHIFT))
|
||||
(91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
|
||||
(92 ("Function,^A" "Function,!" NOLOCKSHIFT))
|
||||
(30 ("Function,^A" "Function,!" NOLOCKSHIFT))
|
||||
(109 ("Function,^U" "Function,65" NOLOCKSHIFT))
|
||||
(63 ("Function,^D" "Function,$" NOLOCKSHIFT))
|
||||
(14 METADOWN . METAUP)
|
||||
(93 ("2,24" "2,64" NOLOCKSHIFT))
|
||||
(93 ("Function,^T" "Function,64" NOLOCKSHIFT))
|
||||
(62)
|
||||
(111 ("1,o" "1,O" NOLOCKSHIFT))
|
||||
(111 ("Meta,o" "Meta,O" NOLOCKSHIFT))
|
||||
(89)
|
||||
(90 ("2,3" "2,43" NOLOCKSHIFT))
|
||||
(73 ("2,11" "2,11" NOLOCKSHIFT))
|
||||
(74 ("2,12" "2,12" NOLOCKSHIFT))
|
||||
(90 ("Function,^C" "Function,#" NOLOCKSHIFT))
|
||||
(73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
|
||||
(74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
|
||||
(75 ("^B" "^B" NOLOCKSHIFT))
|
||||
(81 ("2,14" 55 NOLOCKSHIFT))
|
||||
(82 (173 56 NOLOCKSHIFT))
|
||||
(83 ("2,15" 57 NOLOCKSHIFT))
|
||||
(84 (172 52 NOLOCKSHIFT))
|
||||
(85 ("2,16" 53 NOLOCKSHIFT))
|
||||
(87 (174 54 NOLOCKSHIFT))
|
||||
(94 ("2,17" 49 NOLOCKSHIFT))
|
||||
(69 (175 50 NOLOCKSHIFT))
|
||||
(70 ("2,20" 51 NOLOCKSHIFT))
|
||||
(98 ("2,21" 48 NOLOCKSHIFT))
|
||||
(76 ("2,13" "2,13" NOLOCKSHIFT))
|
||||
(110 ("2,53" "2,53" NOLOCKSHIFT))
|
||||
(81 ("Function,FF" "7" NOLOCKSHIFT))
|
||||
(82 ("#-" "8" NOLOCKSHIFT))
|
||||
(83 ("Function,CR" "9" NOLOCKSHIFT))
|
||||
(84 ("#," "4" NOLOCKSHIFT))
|
||||
(85 ("Function,^N" "5" NOLOCKSHIFT))
|
||||
(87 ("#." "6" NOLOCKSHIFT))
|
||||
(94 ("Function,^O" "1" NOLOCKSHIFT))
|
||||
(69 ("#/" "2" NOLOCKSHIFT))
|
||||
(70 ("Function,^P" "3" NOLOCKSHIFT))
|
||||
(98 ("Function,^Q" "0" NOLOCKSHIFT))
|
||||
(76 ("Function,^K" "Function,^K" NOLOCKSHIFT))
|
||||
(110 ("Function,+" "Function,+" NOLOCKSHIFT))
|
||||
(72 LOCKTOGGLE)
|
||||
(97 ("2,101" "2,141" NOLOCKSHIFT))
|
||||
(99 ("2,102" "2,142" NOLOCKSHIFT))
|
||||
(100 ("2,103" "2,143" NOLOCKSHIFT))
|
||||
(67 ("2,104" "2,144" NOLOCKSHIFT))
|
||||
(68 ("2,105" "2,145" NOLOCKSHIFT))
|
||||
(101 ("2,106" "2,146" NOLOCKSHIFT))
|
||||
(66 ("2,107" "2,147" NOLOCKSHIFT))
|
||||
(104 ("2,110" "2,150" NOLOCKSHIFT))
|
||||
(80 ("2,111" "2,151" NOLOCKSHIFT))
|
||||
(106 ("2,113" "2,153" NOLOCKSHIFT))
|
||||
(107 ("2,114" "2,154" NOLOCKSHIFT))
|
||||
(108 ("2,115" "2,155" NOLOCKSHIFT))
|
||||
(97 ("Function,A" "Function,a" NOLOCKSHIFT))
|
||||
(99 ("Function,B" "Function,b" NOLOCKSHIFT))
|
||||
(100 ("Function,C" "Function,c" NOLOCKSHIFT))
|
||||
(67 ("Function,D" "Function,d" NOLOCKSHIFT))
|
||||
(68 ("Function,E" "Function,e" NOLOCKSHIFT))
|
||||
(101 ("Function,F" "Function,f" NOLOCKSHIFT))
|
||||
(66 ("Function,G" "Function,g" NOLOCKSHIFT))
|
||||
(104 ("Function,H" "Function,h" NOLOCKSHIFT))
|
||||
(80 ("Function,I" "Function,i" NOLOCKSHIFT))
|
||||
(106 ("Function,K" "Function,k" NOLOCKSHIFT))
|
||||
(107 ("Function,L" "Function,l" NOLOCKSHIFT))
|
||||
(108 ("Function,M" "Function,m" NOLOCKSHIFT))
|
||||
(13 ("^W" "^U" NOLOCKSHIFT))
|
||||
(33 ("ESC" "ESC" NOLOCKSHIFT))
|
||||
(33 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(64 IGNORE . IGNORE)
|
||||
(65 (27 27 NOLOCKSHIFT))
|
||||
(65 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(95 IGNORE . IGNORE)
|
||||
(96 IGNORE . IGNORE)
|
||||
(102 IGNORE . IGNORE)
|
||||
@@ -1845,8 +1843,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(56 LOCKTOGGLE . IGNORE)
|
||||
(45 ("`" "~" NOLOCKSHIFT))
|
||||
(31 METADOWN . METAUP)
|
||||
(71 (10 10 NOLOCKSHIFT))
|
||||
(47 ("2,22" "2,62" NOLOCKSHIFT))
|
||||
(71 ("LF" "LF" NOLOCKSHIFT))
|
||||
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))
|
||||
(86 IGNORE . IGNORE)
|
||||
(88 IGNORE . IGNORE)
|
||||
(105 ("\" "|" NOLOCKSHIFT))))
|
||||
@@ -3924,33 +3922,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990
|
||||
1992 1999 1920 2000 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (14733 22049 (BKSYSCHARCODE 14743 . 15092) (\CLEARSYSBUF 15094 . 15652) (\GETKEY 15654
|
||||
. 16829) (\NSYSBUFCHARS 16831 . 17573) (\SAVESYSBUF 17575 . 19184) (\SYSBUFP 19186 . 19490) (
|
||||
\GETSYSBUF 19492 . 19672) (\PUTSYSBUF 19674 . 20887) (\PEEKSYSBUF 20889 . 22047)) (23346 60180 (
|
||||
\KEYBOARDINIT 23356 . 25076) (\KEYBOARDEVENTFN 25078 . 29778) (\ALLOCLOCKED 29780 . 30370) (
|
||||
\SETIOPOINTERS 30372 . 34908) (\KEYBOARDOFF 34910 . 35324) (\KEYBOARDON 35326 . 35705) (\KEYHANDLER
|
||||
35707 . 35838) (\KEYHANDLER1 35840 . 43286) (\RESETKEYBOARD 43288 . 44936) (\DOMOUSECHORDING 44938 .
|
||||
48758) (\DOTRANSITIONS 48760 . 49437) (\DECODETRANSITION 49439 . 56128) (MOUSECHORDWAIT 56130 . 56794)
|
||||
(\TRACKCURSOR 56796 . 60178)) (95464 117014 (KEYACTION 95474 . 96327) (KEYACTIONTABLE 96329 . 97511)
|
||||
(KEYBOARDTYPE 97513 . 98615) (RESETKEYACTION 98617 . 100376) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
||||
100378 . 102280) (\KEYACTION1 102282 . 112398) (KEYDOWNP 112400 . 112735) (KEYNUMBERP 112737 . 112935)
|
||||
(\KEYNAMETONUMBER 112937 . 113631) (\KEYNUMBERTONAME 113633 . 113823) (MODIFY.KEYACTIONS 113825 .
|
||||
114686) (METASHIFT 114688 . 115632) (SHIFTDOWNP 115634 . 117012)) (117077 117373 (
|
||||
SETUP.OFFICE.KEYBOARD 117087 . 117371)) (120076 121788 (\INIT.KEYBOARD.STREAM 120086 . 121786)) (
|
||||
122053 138430 (\DOBUFFEREDTRANSITIONS 122063 . 137493) (\TIMER.INTERRUPTFRAME 137495 . 138220) (
|
||||
\PERIODIC.INTERRUPTFRAME 138222 . 138428)) (138684 142761 (\HARDCURSORUP 138694 . 140576) (
|
||||
\HARDCURSORPOSITION 140578 . 142614) (\HARDCURSORDOWN 142616 . 142759)) (142762 166822 (CURSOR.INIT
|
||||
142772 . 146472) (\CURSORDESTINATION 146474 . 148792) (\SOFTCURSORUP 148794 . 154048) (
|
||||
\SOFTCURSORUPCURRENT 154050 . 161086) (\SOFTCURSORPOSITION 161088 . 161853) (\SOFTCURSORDOWN 161855 .
|
||||
162563) (CURSORPROP 162565 . 162907) (GETCURSORPROP 162909 . 163097) (PUTCURSORPROP 163099 . 164254) (
|
||||
\CURSORBITSPERPIXEL 164256 . 166372) (\CURSORIMAGEPROPNAME 166374 . 166598) (\CURSORMASKPROPNAME
|
||||
166600 . 166820)) (166823 184773 (CURSORCREATE 166833 . 169508) (CURSOR 169510 . 171322) (
|
||||
\CURSOR-VALID-P 171324 . 172411) (\CURSORUP 172413 . 174128) (\CURSORPOSITION 174130 . 176658) (
|
||||
\CURSORDOWN 176660 . 176893) (ADJUSTCURSORPOSITION 176895 . 177473) (CURSORPOSITION 177475 . 179017) (
|
||||
CURSORSCREEN 179019 . 179675) (CURSOREXIT 179677 . 181068) (FLIPCURSOR 181070 . 182196) (FLIPCURSORBAR
|
||||
182198 . 183178) (LASTMOUSEX 183180 . 183434) (LASTMOUSEY 183436 . 183690) (CREATEPOSITION 183692 .
|
||||
183898) (POSITIONP 183900 . 184184) (CURSORHOTSPOT 184186 . 184771)) (186011 187559 (GETMOUSESTATE
|
||||
186021 . 186680) (\EVENTKEYS 186682 . 187557)) (193986 194782 (MACHINETYPE 193996 . 194396) (
|
||||
SETMAINTPANEL 194398 . 194780)) (194812 195951 (BEEPON 194822 . 195475) (BEEPOFF 195477 . 195949)) (
|
||||
196402 196665 (WITHOUT-INTERRUPTS 196412 . 196663)))))
|
||||
(FILEMAP (NIL (14696 22012 (BKSYSCHARCODE 14706 . 15055) (\CLEARSYSBUF 15057 . 15615) (\GETKEY 15617
|
||||
. 16792) (\NSYSBUFCHARS 16794 . 17536) (\SAVESYSBUF 17538 . 19147) (\SYSBUFP 19149 . 19453) (
|
||||
\GETSYSBUF 19455 . 19635) (\PUTSYSBUF 19637 . 20850) (\PEEKSYSBUF 20852 . 22010)) (23309 60143 (
|
||||
\KEYBOARDINIT 23319 . 25039) (\KEYBOARDEVENTFN 25041 . 29741) (\ALLOCLOCKED 29743 . 30333) (
|
||||
\SETIOPOINTERS 30335 . 34871) (\KEYBOARDOFF 34873 . 35287) (\KEYBOARDON 35289 . 35668) (\KEYHANDLER
|
||||
35670 . 35801) (\KEYHANDLER1 35803 . 43249) (\RESETKEYBOARD 43251 . 44899) (\DOMOUSECHORDING 44901 .
|
||||
48721) (\DOTRANSITIONS 48723 . 49400) (\DECODETRANSITION 49402 . 56091) (MOUSECHORDWAIT 56093 . 56757)
|
||||
(\TRACKCURSOR 56759 . 60141)) (95847 117397 (KEYACTION 95857 . 96710) (KEYACTIONTABLE 96712 . 97894)
|
||||
(KEYBOARDTYPE 97896 . 98998) (RESETKEYACTION 99000 . 100759) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
||||
100761 . 102663) (\KEYACTION1 102665 . 112781) (KEYDOWNP 112783 . 113118) (KEYNUMBERP 113120 . 113318)
|
||||
(\KEYNAMETONUMBER 113320 . 114014) (\KEYNUMBERTONAME 114016 . 114206) (MODIFY.KEYACTIONS 114208 .
|
||||
115069) (METASHIFT 115071 . 116015) (SHIFTDOWNP 116017 . 117395)) (117460 117756 (
|
||||
SETUP.OFFICE.KEYBOARD 117470 . 117754)) (120459 122171 (\INIT.KEYBOARD.STREAM 120469 . 122169)) (
|
||||
122436 138813 (\DOBUFFEREDTRANSITIONS 122446 . 137876) (\TIMER.INTERRUPTFRAME 137878 . 138603) (
|
||||
\PERIODIC.INTERRUPTFRAME 138605 . 138811)) (139067 143144 (\HARDCURSORUP 139077 . 140959) (
|
||||
\HARDCURSORPOSITION 140961 . 142997) (\HARDCURSORDOWN 142999 . 143142)) (143145 167205 (CURSOR.INIT
|
||||
143155 . 146855) (\CURSORDESTINATION 146857 . 149175) (\SOFTCURSORUP 149177 . 154431) (
|
||||
\SOFTCURSORUPCURRENT 154433 . 161469) (\SOFTCURSORPOSITION 161471 . 162236) (\SOFTCURSORDOWN 162238 .
|
||||
162946) (CURSORPROP 162948 . 163290) (GETCURSORPROP 163292 . 163480) (PUTCURSORPROP 163482 . 164637) (
|
||||
\CURSORBITSPERPIXEL 164639 . 166755) (\CURSORIMAGEPROPNAME 166757 . 166981) (\CURSORMASKPROPNAME
|
||||
166983 . 167203)) (167206 185156 (CURSORCREATE 167216 . 169891) (CURSOR 169893 . 171705) (
|
||||
\CURSOR-VALID-P 171707 . 172794) (\CURSORUP 172796 . 174511) (\CURSORPOSITION 174513 . 177041) (
|
||||
\CURSORDOWN 177043 . 177276) (ADJUSTCURSORPOSITION 177278 . 177856) (CURSORPOSITION 177858 . 179400) (
|
||||
CURSORSCREEN 179402 . 180058) (CURSOREXIT 180060 . 181451) (FLIPCURSOR 181453 . 182579) (FLIPCURSORBAR
|
||||
182581 . 183561) (LASTMOUSEX 183563 . 183817) (LASTMOUSEY 183819 . 184073) (CREATEPOSITION 184075 .
|
||||
184281) (POSITIONP 184283 . 184567) (CURSORHOTSPOT 184569 . 185154)) (186394 187942 (GETMOUSESTATE
|
||||
186404 . 187063) (\EVENTKEYS 187065 . 187940)) (194369 195165 (MACHINETYPE 194379 . 194779) (
|
||||
SETMAINTPANEL 194781 . 195163)) (195195 196334 (BEEPON 195205 . 195858) (BEEPOFF 195860 . 196332)) (
|
||||
196785 197048 (WITHOUT-INTERRUPTS 196795 . 197046)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user