github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-07 14:43:54 +00:00
Code Issues Projects Releases Wiki Activity

LLKEY: system keyactions with Meta and Function instead of 1, and 2,

Browse Source 
Keyaction lists have also been updated so that they contain only character specifications, not a mixture of character codes and specifications.

KEYACTION now tests its KEY argument for validity

New function \KEYNUMBERTONAME, potentially convenient for future keyboard work
This commit is contained in:
rmkaplan
2021-08-24 22:47:34 -07:00
parent b4c5b304c4
commit 9282681644
2 changed files with 203 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

398
sources/LLKEY
View File

@@ -1,7 +1,9 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Jun-2021 09:43:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 197710
(FILECREATED "24-Aug-2021 16:54:52" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 199507
previous date%: " 9-Jun-2021 20:18:50"
changes to%: (FNS KEYACTION)
previous date%: "24-Aug-2021 16:43:30"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5)
@@ -71,7 +73,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(COMS (* ; "Key interpretation")
(FNS KEYACTION KEYACTIONTABLE KEYBOARDTYPE RESETKEYACTION
\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS \KEYACTION1 KEYDOWNP KEYNUMBERP
\KEYNAMETONUMBER MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP)
\KEYNAMETONUMBER \KEYNUMBERTONAME MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP)
(* ;
 "To support office style 1108 & 1186 keyboards")
(FNS SETUP.OFFICE.KEYBOARD)
@@ -1650,144 +1652,144 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(103 LOCKUP)))
(RPAQQ \DLIONKEYACTIONS
((2 (54 "^" NOLOCKSHIFT))
((2 ("6" "^" NOLOCKSHIFT))
(10 ("-" "_" NOLOCKSHIFT))
(33 ("\" "|" NOLOCKSHIFT))
(45 (96 "~" NOLOCKSHIFT))
(45 ("`" "~" NOLOCKSHIFT))
(OPEN METADOWN . METAUP)
(PROP'S CTRLDOWN . CTRLUP)
(SAME METADOWN . METAUP)
(FIND ("2,3" "2,43" NOLOCKSHIFT))
(UNDO ("2,4" "2,44" NOLOCKSHIFT))
(STOP (5 7 NOLOCKSHIFT))
(FIND ("Function,^C" "Function,#" NOLOCKSHIFT))
(UNDO ("Function,^D" "Function,$" NOLOCKSHIFT))
(STOP ("^E" "Bell" NOLOCKSHIFT))
(MOVE)
(COPY)
(AGAIN ("2,10" "2,50" NOLOCKSHIFT))
(CENTER ("2,101" "2,141" NOLOCKSHIFT))
(BOLD ("2,102" "2,142" NOLOCKSHIFT))
(ITALICS ("2,103" "2,143" NOLOCKSHIFT))
(UNDERLINE ("2,106" "2,146" NOLOCKSHIFT))
(SUPERSCRIPT ("2,113" "2,153" NOLOCKSHIFT))
(SUBSCRIPT ("2,114" "2,154" NOLOCKSHIFT))
(LARGER ("2,110" "2,150" NOLOCKSHIFT))
(DEFAULTS ("2,115" "2,155" NOLOCKSHIFT))
(93 (27 "2,64" NOLOCKSHIFT))
(47 ("2,22" "2,62" NOLOCKSHIFT))
(31 ("2,5" "2,45" NOLOCKSHIFT))
(92 ("2,1" "2,41" NOLOCKSHIFT))
(80 ("2,13" "2,53" NOLOCKSHIFT))
(FONT ("2,112" "2,152" NOLOCKSHIFT))))
(AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT))
(CENTER ("Function,A" "Function,a" NOLOCKSHIFT))
(BOLD ("Function,B" "Function,b" NOLOCKSHIFT))
(ITALICS ("Function,C" "Function,c" NOLOCKSHIFT))
(UNDERLINE ("Function,F" "Function,f" NOLOCKSHIFT))
(SUPERSCRIPT ("Function,K" "Function,k" NOLOCKSHIFT))
(SUBSCRIPT ("Function,L" "Function,l" NOLOCKSHIFT))
(LARGER ("Function,H" "Function,h" NOLOCKSHIFT))
(DEFAULTS ("Function,M" "Function,m" NOLOCKSHIFT))
(93 ("Esc" "Function,64" NOLOCKSHIFT))
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))
(31 ("Function,^E" "Function,%%" NOLOCKSHIFT))
(92 ("Function,^A" "Function,!" NOLOCKSHIFT))
(80 ("Function,^K" "Function,+" NOLOCKSHIFT))
(FONT ("Function,J" "Function,j" NOLOCKSHIFT))))
(RPAQQ \DLIONOSDKEYACTIONS ((56 LOCKTOGGLE)))
(RPAQQ \DORADOKEYACTIONS
((2 (54 "~" NOLOCKSHIFT))
((2 ("6" "~" NOLOCKSHIFT))
(10 ("-" "-" NOLOCKSHIFT))
(13 ("\" "|" NOLOCKSHIFT))
(14 (10 96 NOLOCKSHIFT))
(33 (27 27 NOLOCKSHIFT))
(14 ("LF" "`" NOLOCKSHIFT))
(33 ("Esc" "Esc" NOLOCKSHIFT))
(45 ("_" "^" NOLOCKSHIFT))))
(RPAQQ \DOVEKEYACTIONS
((2 (54 "^" NOLOCKSHIFT))
((2 ("6" "^" NOLOCKSHIFT))
(10 ("-" "_" NOLOCKSHIFT))
(33 (27 27 NOLOCKSHIFT))
(33 ("Esc" "Esc" NOLOCKSHIFT))
(56 CTRLDOWN . CTRLUP)
(65 (27 27 NOLOCKSHIFT))
(71 (39 34 NOLOCKSHIFT))
(93 ("2,24" "2,64" NOLOCKSHIFT))
(108 (96 126 NOLOCKSHIFT))
(65 ("Esc" "Esc" NOLOCKSHIFT))
(71 ("'" "%"" NOLOCKSHIFT))
(93 ("Function,^T" "Function,64" NOLOCKSHIFT))
(108 ("`" "~" NOLOCKSHIFT))
(DBK-META METADOWN . METAUP)
(DBK-HELP ("2,1" "2,41" NOLOCKSHIFT))
(DBK-HELP ("Function,^A" "Function,!" NOLOCKSHIFT))
(SAME METADOWN . METAUP)
(FIND ("2,3" "2,43" NOLOCKSHIFT))
(UNDO ("2,4" "2,44" NOLOCKSHIFT))
(STOP (5 7 NOLOCKSHIFT))
(EDIT ("2,5" "2,45" NOLOCKSHIFT))
(FIND ("Function,^C" "Function,#" NOLOCKSHIFT))
(UNDO ("Function,^D" "Function,$" NOLOCKSHIFT))
(STOP ("^E" "Bell" NOLOCKSHIFT))
(EDIT ("Function,^E" "Function,%%" NOLOCKSHIFT))
(MOVE)
(COPY)
(AGAIN ("2,10" "2,50" NOLOCKSHIFT))
(CENTER ("2,101" "2,141" NOLOCKSHIFT))
(BOLD ("2,102" "2,142" NOLOCKSHIFT))
(ITALICS ("2,103" "2,143" NOLOCKSHIFT))
(CASE ("2,104" "2,144" NOLOCKSHIFT))
(STRIKEOUT ("2,105" "2,145" NOLOCKSHIFT))
(UNDERLINE ("2,106" "2,146" NOLOCKSHIFT))
(SUPER/SUB ("2,107" "2,147" NOLOCKSHIFT))
(LARGER ("2,110" "2,150" NOLOCKSHIFT))
(MARGINS ("2,111" "2,151" NOLOCKSHIFT))
(LOOKS ("2,112" "2,152" NOLOCKSHIFT))
(AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT))
(CENTER ("Function,A" "Function,a" NOLOCKSHIFT))
(BOLD ("Function,B" "Function,b" NOLOCKSHIFT))
(ITALICS ("Function,C" "Function,c" NOLOCKSHIFT))
(CASE ("Function,D" "Function,d" NOLOCKSHIFT))
(STRIKEOUT ("Function,E" "Function,e" NOLOCKSHIFT))
(UNDERLINE ("Function,F" "Function,f" NOLOCKSHIFT))
(SUPER/SUB ("Function,G" "Function,g" NOLOCKSHIFT))
(LARGER ("Function,H" "Function,h" NOLOCKSHIFT))
(MARGINS ("Function,I" "Function,i" NOLOCKSHIFT))
(LOOKS ("Function,J" "Function,j" NOLOCKSHIFT))
(CAPSLOCK LOCKTOGGLE)
(NUMLOCK ("2,11" "-" NOLOCKSHIFT))
(SCROLLLOCK ("2,12" 180 NOLOCKSHIFT))
(BREAK (2 184 NOLOCKSHIFT))
(DOIT ("2,13" "2,53" NOLOCKSHIFT))
(KEYPAD7 ("2,14" 55 NOLOCKSHIFT))
(KEYPAD8 (173 56 NOLOCKSHIFT))
(KEYPAD9 ("2,15" 57 NOLOCKSHIFT))
(KEYPAD4 (172 52 NOLOCKSHIFT))
(KEYPAD5 ("2,16" 53 NOLOCKSHIFT))
(KEYPAD6 (174 54 NOLOCKSHIFT))
(KEYPAD1 ("2,17" 49 NOLOCKSHIFT))
(KEYPAD2 (175 50 NOLOCKSHIFT))
(KEYPAD3 ("2,20" 51 NOLOCKSHIFT))
(KEYPAD0 ("2,21" 48 NOLOCKSHIFT))
(KEYPAD%| ("|" 46 NOLOCKSHIFT))
(KEYPAD\ ("\" 44 NOLOCKSHIFT))
(47 ("2,22" "2,62" NOLOCKSHIFT))))
(NUMLOCK ("Function,Tab" "-" NOLOCKSHIFT))
(SCROLLLOCK ("Function,LF" "#4" NOLOCKSHIFT))
(BREAK ("^B" "#8" NOLOCKSHIFT))
(DOIT ("Function,^K" "Function,+" NOLOCKSHIFT))
(KEYPAD7 ("Function,FF" "7" NOLOCKSHIFT))
(KEYPAD8 ("#-" "8" NOLOCKSHIFT))
(KEYPAD9 ("Function,CR" "9" NOLOCKSHIFT))
(KEYPAD4 ("#," "4" NOLOCKSHIFT))
(KEYPAD5 ("Function,^N" "5" NOLOCKSHIFT))
(KEYPAD6 ("#." "6" NOLOCKSHIFT))
(KEYPAD1 ("Function,^O" "1" NOLOCKSHIFT))
(KEYPAD2 ("#/" "2" NOLOCKSHIFT))
(KEYPAD3 ("Function,^P" "3" NOLOCKSHIFT))
(KEYPAD0 ("Function,^Q" "0" NOLOCKSHIFT))
(KEYPAD%| ("|" "." NOLOCKSHIFT))
(KEYPAD\ ("\" "," NOLOCKSHIFT))
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))))
(RPAQQ \DOVEOSDKEYACTIONS ((56 LOCKDOWN . LOCKUP)
(36 CTRLDOWN . CTRLUP)
(CAPSLOCK ("2,5" "2,45" NOLOCKSHIFT))))
(CAPSLOCK ("Function,^E" "Function,%%" NOLOCKSHIFT))))
(RPAQQ \MAIKOKEYACTIONS
((61 (5 7 NOLOCKSHIFT))
(91 (520 552 NOLOCKSHIFT))
(92 (513 545 NOLOCKSHIFT))
(30 (513 545 NOLOCKSHIFT))
(63 (516 548 NOLOCKSHIFT))
(93 (532 564 NOLOCKSHIFT))
((61 ("^E" "Bell" NOLOCKSHIFT))
(91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
(92 ("Function,^A" "Function,!" NOLOCKSHIFT))
(30 ("Function,^A" "Function,!" NOLOCKSHIFT))
(63 ("Function,^D" "Function,$" NOLOCKSHIFT))
(93 ("Function,^T" "Function,64" NOLOCKSHIFT))
(62)
(111 (329 263 NOLOCKSHIFT))
(111 ("Meta,I" "Meta,Bell" NOLOCKSHIFT))
(89)
(90 (515 547 NOLOCKSHIFT))
(73 (521 521 NOLOCKSHIFT))
(74 (522 522 NOLOCKSHIFT))
(75 (2 2 NOLOCKSHIFT))
(81 (524 55 NOLOCKSHIFT))
(82 (173 56 NOLOCKSHIFT))
(83 (525 57 NOLOCKSHIFT))
(84 (172 52 NOLOCKSHIFT))
(85 (526 53 NOLOCKSHIFT))
(87 (174 54 NOLOCKSHIFT))
(94 (527 49 NOLOCKSHIFT))
(69 (175 50 NOLOCKSHIFT))
(70 (528 51 NOLOCKSHIFT))
(98 (529 48 NOLOCKSHIFT))
(76 (523 555 NOLOCKSHIFT))
(90 ("Function,^C" "Function,#" NOLOCKSHIFT))
(73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
(74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
(75 ("^B" "^B" 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,+" NOLOCKSHIFT))
(72 LOCKTOGGLE)
(97 (577 609 NOLOCKSHIFT))
(99 (578 610 NOLOCKSHIFT))
(100 (579 611 NOLOCKSHIFT))
(67 (580 612 NOLOCKSHIFT))
(68 (581 613 NOLOCKSHIFT))
(101 (582 614 NOLOCKSHIFT))
(66 (583 615 NOLOCKSHIFT))
(104 (584 616 NOLOCKSHIFT))
(80 (585 617 NOLOCKSHIFT))
(13 (23 21 NOLOCKSHIFT))
(33 (27 27 NOLOCKSHIFT))
(65 (27 27 NOLOCKSHIFT))
(2 (54 94 NOLOCKSHIFT))
(10 (45 95 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))
(13 ("^W" "^U" NOLOCKSHIFT))
(33 ("Esc" "Esc" NOLOCKSHIFT))
(65 ("Esc" "Esc" NOLOCKSHIFT))
(2 ("6" "^" NOLOCKSHIFT))
(10 ("-" "_" NOLOCKSHIFT))
(36 CTRLDOWN . CTRLUP)
(56 LOCKTOGGLE . IGNORE)
(45 (96 126 NOLOCKSHIFT))
(45 ("`" "~" NOLOCKSHIFT))
(31 METADOWN . METAUP)
(14 METADOWN . METAUP)
(71 (10 10 NOLOCKSHIFT))
(47 (530 562 NOLOCKSHIFT))
(105 (92 124 NOLOCKSHIFT))))
(71 ("LF" "LF" NOLOCKSHIFT))
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))
(105 ("\" "|" NOLOCKSHIFT))))
(RPAQQ \MAIKOKEYACTIONST4
((61 ("^E" "^G" NOLOCKSHIFT))
@@ -1799,7 +1801,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(14 METADOWN . METAUP)
(93 ("2,24" "2,64" NOLOCKSHIFT))
(62)
(111 ("1,111" "1,79" NOLOCKSHIFT))
(111 ("1,o" "1,O" NOLOCKSHIFT))
(89)
(90 ("2,3" "2,43" NOLOCKSHIFT))
(73 ("2,11" "2,11" NOLOCKSHIFT))
@@ -1856,63 +1858,63 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(10 ("\" "_" NOLOCKSHIFT))
(13 ("^W" "^U" NOLOCKSHIFT))
(14 METADOWN . METAUP)
(15 (8 8 NOLOCKSHIFT))
(15 ("Bs" "Bs" NOLOCKSHIFT))
(17 ("2" "%"" NOLOCKSHIFT))
(22 ("9" ")" NOLOCKSHIFT))
(28 (":" "*" NOLOCKSHIFT))
(29 ("[" "{" NOLOCKSHIFT))
(30 ("]" "}" NOLOCKSHIFT))
(31 METADOWN . METAUP)
(33 ("ESC" "ESC" NOLOCKSHIFT))
(33 ("Esc" "Esc" NOLOCKSHIFT))
(36 CTRLDOWN . CTRLUP)
(43 (";" "+" NOLOCKSHIFT))
(45 ("^" "~" NOLOCKSHIFT))
(47 ("2,22" "2,62" NOLOCKSHIFT))
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))
(53 ("8" "(" NOLOCKSHIFT))
(56 LOCKTOGGLE . IGNORE)
(58 ("@" "`" NOLOCKSHIFT))
(59 ("-" "=" NOLOCKSHIFT))
(61 ("^E" "^G" NOLOCKSHIFT))
(61 ("^E" "Bell" NOLOCKSHIFT))
(62)
(63 ("2,4" "2,44" NOLOCKSHIFT))
(64 ("2,14" 55 NOLOCKSHIFT))
(65 (27 27 NOLOCKSHIFT))
(66 ("2,107" "2,147" NOLOCKSHIFT))
(67 ("2,104" "2,144" NOLOCKSHIFT))
(69 ("2,13" "2,53" NOLOCKSHIFT))
(70 ("2,20" 51 NOLOCKSHIFT))
(71 (10 10 NOLOCKSHIFT))
(72 (766 766 NOLOCKSHIFT))
(73 ("2,11" "2,11" NOLOCKSHIFT))
(74 ("2,12" "2,12" NOLOCKSHIFT))
(63 ("Function,^D" "Function,$" NOLOCKSHIFT))
(64 ("Function,FF" "7" NOLOCKSHIFT))
(65 ("Esc" "Esc" NOLOCKSHIFT))
(66 ("Function,G" "Function,g" NOLOCKSHIFT))
(67 ("Function,D" "Function,d" NOLOCKSHIFT))
(69 ("Function,^K" "Function,+" NOLOCKSHIFT))
(70 ("Function,^P" "3" NOLOCKSHIFT))
(71 ("LF" "LF" NOLOCKSHIFT))
(72 ("Function,#~" "Function,#~" NOLOCKSHIFT))
(73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
(74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
(75 ("^B" "^B" NOLOCKSHIFT))
(80 ("2,111" "2,151" NOLOCKSHIFT))
(81 ("2,14" 55 NOLOCKSHIFT))
(82 (173 56 NOLOCKSHIFT))
(83 ("2,15" 57 NOLOCKSHIFT))
(84 (172 52 NOLOCKSHIFT))
(85 ("2,16" 53 NOLOCKSHIFT))
(86 (765 765 NOLOCKSHIFT))
(87 (174 54 NOLOCKSHIFT))
(88 (770 771 NOLOCKSHIFT))
(90 ("2,3" "2,43" NOLOCKSHIFT))
(91 ("2,10" "2,50" NOLOCKSHIFT))
(92 ("2,1" "2,41" NOLOCKSHIFT))
(93 ("2,24" "2,64" NOLOCKSHIFT))
(80 ("Function,I" "Function,i" NOLOCKSHIFT))
(81 ("Function,FF" "7" NOLOCKSHIFT))
(82 ("#-" "8" NOLOCKSHIFT))
(83 ("Function,CR" "9" NOLOCKSHIFT))
(84 ("#," "4" NOLOCKSHIFT))
(85 ("Function,^N" "5" NOLOCKSHIFT))
(86 ("Function,#}" "Function,#}" NOLOCKSHIFT))
(87 ("#." "6" NOLOCKSHIFT))
(88 ("3,^B" "3,^C" NOLOCKSHIFT))
(90 ("Function,^C" "Function,#" NOLOCKSHIFT))
(91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
(92 ("Function,^A" "Function,!" NOLOCKSHIFT))
(93 ("Function,^T" "Function,64" NOLOCKSHIFT))
(96 IGNORE . IGNORE)
(98 ("2,21" 48 NOLOCKSHIFT))
(99 ("2,102" "2,142" NOLOCKSHIFT))
(101 ("2,106" "2,146" NOLOCKSHIFT))
(98 ("Function,^Q" "0" NOLOCKSHIFT))
(99 ("Function,B" "Function,b" NOLOCKSHIFT))
(101 ("Function,F" "Function,f" NOLOCKSHIFT))
(102 IGNORE . IGNORE)
(103 (767 768 NOLOCKSHIFT))
(104 ("2,110" "2,150" NOLOCKSHIFT))
(103 ("Function,#Del" "3,Null" NOLOCKSHIFT))
(104 ("Function,H" "Function,h" NOLOCKSHIFT))
(105 ("\" "|" NOLOCKSHIFT))
(106 ("2,113" "2,153" NOLOCKSHIFT))
(107 ("2,114" "2,154" NOLOCKSHIFT))
(108 ("2,115" "2,155" NOLOCKSHIFT))
(109 (769 769 NOLOCKSHIFT))
(110 ("2,53" "2,53" NOLOCKSHIFT))
(111 ("1,111" "1,79" NOLOCKSHIFT))))
(106 ("Function,K" "Function,k" NOLOCKSHIFT))
(107 ("Function,L" "Function,l" NOLOCKSHIFT))
(108 ("Function,M" "Function,m" NOLOCKSHIFT))
(109 ("3,^A" "3,^A" NOLOCKSHIFT))
(110 ("Function,+" "Function,+" NOLOCKSHIFT))
(111 ("Meta,o" "Meta,O" NOLOCKSHIFT))))
(RPAQQ \TOSHIBA-KEYACTIONS
((2 ("6" "&" NOLOCKSHIFT))
@@ -1929,26 +1931,26 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(105 ("]" "}" NOLOCKSHIFT))
(43 (";" "+" NOLOCKSHIFT))
(28 (":" "*" NOLOCKSHIFT))
(15 (23 95 NOLOCKSHIFT))
(13 (8 8 NOLOCKSHIFT))
(15 ("^W" "_" NOLOCKSHIFT))
(13 ("Bs" "Bs" NOLOCKSHIFT))
(86 METADOWN . METAUP)
(73 (530 562 NOLOCKSHIFT))
(88 ("2,24" "2,64" NOLOCKSHIFT))
(73 ("Function,^R" "Function,62" NOLOCKSHIFT))
(88 ("Function,^T" "Function,64" NOLOCKSHIFT))
(98 IGNORE . IGNORE)
(75 ("2,11" "2,11" NOLOCKSHIFT))
(110 ("2,12" "2,12" NOLOCKSHIFT))
(75 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
(110 ("Function,LF" "Function,LF" NOLOCKSHIFT))
(74 ("^B" "^B" NOLOCKSHIFT))
(64 ("2,14" 55 NOLOCKSHIFT))
(65 (173 56 NOLOCKSHIFT))
(95 ("2,15" 57 NOLOCKSHIFT))
(81 (172 52 NOLOCKSHIFT))
(82 ("2,16" 53 NOLOCKSHIFT))
(83 (174 54 NOLOCKSHIFT))
(84 ("2,17" 49 NOLOCKSHIFT))
(85 (175 50 NOLOCKSHIFT))
(87 ("2,20" 51 NOLOCKSHIFT))
(94 ("2,21" 48 NOLOCKSHIFT))
(69 ("2,13" "2,53" NOLOCKSHIFT))
(64 ("Function,FF" "7" NOLOCKSHIFT))
(65 ("#-" "8" NOLOCKSHIFT))
(95 ("Function,CR" "9" NOLOCKSHIFT))
(81 ("#," "4" NOLOCKSHIFT))
(82 ("Function,^N" "5" NOLOCKSHIFT))
(83 ("#." "6" NOLOCKSHIFT))
(84 ("Function,^O" "1" NOLOCKSHIFT))
(85 ("#/" "2" NOLOCKSHIFT))
(87 ("Function,^P" "3" NOLOCKSHIFT))
(94 ("Function,^Q" "0" NOLOCKSHIFT))
(69 ("Function,^K" "Function,+" NOLOCKSHIFT))
(70 LOCKTOGGLE)))
(RPAQQ KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS NIL)
@@ -1975,13 +1977,13 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
(DEFINEQ
(KEYACTION
[LAMBDA (KEYNAME ACTIONS TABLE) (* ; "Edited 19-Nov-87 16:19 by Snow")
(LET ((NUMB (OR (SMALLP KEYNAME)
[LAMBDA (KEYNAME ACTIONS TABLE) (* ; "Edited 24-Aug-2021 16:54 by rmk:")
(LET ((NUMB (OR (KEYNUMBERP KEYNAME)
(\KEYNAMETONUMBER KEYNAME)))
(TABLE (OR TABLE \CURRENTKEYACTION)))
(OR (TYPE? KEYACTION TABLE)
(\ILLEGAL.ARG TABLE)) (* ;
 "Make sure he supplied a valid TABLE argument.")
(\ILLEGAL.ARG TABLE)) (* ;
 "Make sure he supplied a valid TABLE argument.")
(CONS (\KEYACTION1 (\TRANSINDEX NUMB T)
(AND ACTIONS (OR (CAR ACTIONS)
'IGNORE))
@@ -2318,6 +2320,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
when (EQMEMB N Y) do (RETURN I)))
(\ILLEGAL.ARG KEYNAME])
(\KEYNUMBERTONAME
[LAMBDA (KEYNUMBER)
(DECLARE (GLOBALVARS \KEYNAMES)) (* ; "Edited 24-Aug-2021 16:03 by rmk:")
(CAR (NTH \KEYNAMES (ADD1 KEYNUMBER])
(MODIFY.KEYACTIONS
[LAMBDA (KeyActions SaveCurrent?) (* ; "Edited 2-Feb-89 15:38 by GADENER")
(PROG1 [if SaveCurrent?
@@ -3917,32 +3924,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 (14679 21995 (BKSYSCHARCODE 14689 . 15038) (\CLEARSYSBUF 15040 . 15598) (\GETKEY 15600
. 16775) (\NSYSBUFCHARS 16777 . 17519) (\SAVESYSBUF 17521 . 19130) (\SYSBUFP 19132 . 19436) (
\GETSYSBUF 19438 . 19618) (\PUTSYSBUF 19620 . 20833) (\PEEKSYSBUF 20835 . 21993)) (23292 60126 (
\KEYBOARDINIT 23302 . 25022) (\KEYBOARDEVENTFN 25024 . 29724) (\ALLOCLOCKED 29726 . 30316) (
\SETIOPOINTERS 30318 . 34854) (\KEYBOARDOFF 34856 . 35270) (\KEYBOARDON 35272 . 35651) (\KEYHANDLER
35653 . 35784) (\KEYHANDLER1 35786 . 43232) (\RESETKEYBOARD 43234 . 44882) (\DOMOUSECHORDING 44884 .
48704) (\DOTRANSITIONS 48706 . 49383) (\DECODETRANSITION 49385 . 56074) (MOUSECHORDWAIT 56076 . 56740)
(\TRACKCURSOR 56742 . 60124)) (93868 115217 (KEYACTION 93878 . 94722) (KEYACTIONTABLE 94724 . 95906)
(KEYBOARDTYPE 95908 . 97010) (RESETKEYACTION 97012 . 98771) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
98773 . 100675) (\KEYACTION1 100677 . 110793) (KEYDOWNP 110795 . 111130) (KEYNUMBERP 111132 . 111330)
(\KEYNAMETONUMBER 111332 . 112026) (MODIFY.KEYACTIONS 112028 . 112889) (METASHIFT 112891 . 113835) (
SHIFTDOWNP 113837 . 115215)) (115280 115576 (SETUP.OFFICE.KEYBOARD 115290 . 115574)) (118279 119991 (
\INIT.KEYBOARD.STREAM 118289 . 119989)) (120256 136633 (\DOBUFFEREDTRANSITIONS 120266 . 135696) (
\TIMER.INTERRUPTFRAME 135698 . 136423) (\PERIODIC.INTERRUPTFRAME 136425 . 136631)) (136887 140964 (
\HARDCURSORUP 136897 . 138779) (\HARDCURSORPOSITION 138781 . 140817) (\HARDCURSORDOWN 140819 . 140962)
) (140965 165025 (CURSOR.INIT 140975 . 144675) (\CURSORDESTINATION 144677 . 146995) (\SOFTCURSORUP
146997 . 152251) (\SOFTCURSORUPCURRENT 152253 . 159289) (\SOFTCURSORPOSITION 159291 . 160056) (
\SOFTCURSORDOWN 160058 . 160766) (CURSORPROP 160768 . 161110) (GETCURSORPROP 161112 . 161300) (
PUTCURSORPROP 161302 . 162457) (\CURSORBITSPERPIXEL 162459 . 164575) (\CURSORIMAGEPROPNAME 164577 .
164801) (\CURSORMASKPROPNAME 164803 . 165023)) (165026 182976 (CURSORCREATE 165036 . 167711) (CURSOR
167713 . 169525) (\CURSOR-VALID-P 169527 . 170614) (\CURSORUP 170616 . 172331) (\CURSORPOSITION 172333
. 174861) (\CURSORDOWN 174863 . 175096) (ADJUSTCURSORPOSITION 175098 . 175676) (CURSORPOSITION 175678
. 177220) (CURSORSCREEN 177222 . 177878) (CURSOREXIT 177880 . 179271) (FLIPCURSOR 179273 . 180399) (
FLIPCURSORBAR 180401 . 181381) (LASTMOUSEX 181383 . 181637) (LASTMOUSEY 181639 . 181893) (
CREATEPOSITION 181895 . 182101) (POSITIONP 182103 . 182387) (CURSORHOTSPOT 182389 . 182974)) (184214
185762 (GETMOUSESTATE 184224 . 184883) (\EVENTKEYS 184885 . 185760)) (192189 192985 (MACHINETYPE
192199 . 192599) (SETMAINTPANEL 192601 . 192983)) (193015 194154 (BEEPON 193025 . 193678) (BEEPOFF
193680 . 194152)) (194605 194868 (WITHOUT-INTERRUPTS 194615 . 194866)))))
(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)))))
STOP

BIN
sources/LLKEY.LCOM
View File

Binary file not shown.