From 9282681644a9d9e83a23d8f6a959b6c44a6fdb43 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Tue, 24 Aug 2021 22:47:34 -0700 Subject: [PATCH] LLKEY: system keyactions with Meta and Function instead of 1, and 2, 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 --- sources/LLKEY | 398 +++++++++++++++++++++++---------------------- sources/LLKEY.LCOM | Bin 64148 -> 65859 bytes 2 files changed, 203 insertions(+), 195 deletions(-) diff --git a/sources/LLKEY b/sources/LLKEY index 896277ea..930c038a 100644 --- a/sources/LLKEY +++ b/sources/LLKEY @@ -1,7 +1,9 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Jun-2021 09:43:22" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 197710 +(FILECREATED "24-Aug-2021 16:54:52" {DSK}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}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 diff --git a/sources/LLKEY.LCOM b/sources/LLKEY.LCOM index 118d7adb94d115d2dd74ce100c7fc1c9b2b601a6..be7ba76b816cc0ef3326f28ee12cf888e8af31f6 100644 GIT binary patch delta 5664 zcmb7ITTC0-84e{WFl-YNY;!S5PR3y~Zot9D_yT*u*kj@_cpPK0jY18CkSqxS8c5rR zwqEsRrG06`U#(QB56xR&*h}d}m8y1E`%txN6|!LoyJ^#19;~A=Rg1D`@Zv=AN;-iz3=Y){wbT!-x|4kq1D&s^Ac~Mv%}xn;k$M*lQX^d z`#XJJk(|9UJ~n-MW@2*u91+I9Idf&Uxs&wCrz6o!LQRs1DI&%P6@{?7Jsyup&W+CD z7Lk3Ar%|s#(Je^vgd#`NawH?i@l4#gXSMTi-Ev@iXM3AS1W?PKU;J0uug>g#^$R<8ly_I{z@ML2cEfMJ`bw_d zONR8Euqxhm?m3Lh2}O~6BZ?=I?j<2V8R}8gXkRRniKIx7e+=MeX4UT_LoWR}Dl5tW zq37wZQY2kCFB$2VGiq|Mzei4!4w_~Da|-L_^>vU$Z&FRm#EUg4e8d(GMF-PqIhoPp zM`O3JST_8Y{S-|q?*iSTbJ7_L36esjHp98wO?K2^Ey_k{MY=Do3iNMT%?>=0Bs0g+ z9p*YKHERv*3`#Nwu5zn{<3~3;v;^|^mM!TNz$w{bQIb!(lnPs<2@cfE1r~8hu zYookt^xUH=F*cMQ*8Hr+Tu5XhN+OE&F{0M_Jwr{}Fs2L@AedLWuk zq%y4IK6cwBsDFQdLU*aKYm=Ny>>`mAWC+5S3G+C+<7K$`ep9#Zt)E@H%z1OW1tNvp z(UUxj$r)(}{36t>+3Jip*)+2b*YDd7BEuwsF`)g^4{dISAFnx#PGz}P9Wq5hq);30 zj4RJki+Nm4a@9P+o_$d_hs5$en7b9#&@4XL2cD%WQ2$U1o42aF1Qv)`Rj(iGpwM=X z=ngcH;##{=BU&l=?VsGBE*~tigz(G6?79PnKXSm*^3G=qh1SY#IzNc@6p!HX%_69e z>`u0}88*LwAJ*4ucZJYAPskTP*ne1v_4KtKmlaASy$hzQ!`D8rcMuf7NKAbxNj%!e z!4&2fPb4{}P*yYNYqW0Kj@I)x>z*?xjGIl#$*~02FpcecoQM`AeS`i?NzWWFfpW94 zS6}6z^gpql@pTqnTX7n`O7XiWPFR;{WI$#Midx3_ItQyO`|I?$I0B5L5;iq3#=K5I z>urYcy=;3gSkPDGJLAnn_}p#hX+4ev>utj7O;!6);}~a8VNVhKuy&gma*`QE&TF{`j z5TI0WVMwCIvmoKMnu^52?A9pNvaq(bnv&ktg3lP@XRD2S^(tnQ__9M3=*iUqYK0S* z7|2ILscKlNxZu?mp7GJbx{l!sU*3``gJGG%g?4Shfr7^@oWuofhPt+DhZ`SOmWv+E z47NV3C>L8aHFh%gm;qCtfDgKt4?ysvM5A#Q!jUmSighnH!tmOjy+o1%Gy&tr&8;~M zN|J z5;!Mq|PB3Rq{r09J_c#;ZNO%c1RW zJL9?oUfV6PnMNg(+Rxv$LFdLnNt@?NjTu6KPV)JA4}ZhV?`?2@qZ_|1{OInppxpN~ z;~>P$2m<}A4GG$SqM;st{kQROx3`U+GlZ4-777s@dtARbyyh$urtyup1u-hXtM^7K zL|=>7hbp_Y*#H&my>Mo$3ifO@!Z#iU;o_f##h}7*h$rj z@p{S(lF>jHQm*^DpRrmK3ptN8MxV=w4_v!!o^ZM9s0Yk#rVGfZKNa$Zx!&mT3g40grF z@utUOB(LIs2nv#EjNZIt()B7`edaf8POb+W2`*7%Cr2uUjb?Iwquw}&|1OPN>qf9K z^jgdRF@f9by*G1#W`K$tsZR&;%Vg3X1d~pg!9xMBf%^kkzntw+G?72aa_N?WvgWr hB%2@B3B0pqV`yF)?%H%^gv3D%8!aq;zV&+5e*kFOtY!cJ delta 3235 zcmb7GU2GiH6~=bf>mA#eirw}4Z@FGmWgNWr+?l!aA0c<4ikWLiQJi0mfWU9Usb)(LT|3W=UO zyLP;@y!64|nS0K;_q*qO=X~@2PqzK$PRq$}`6-P)dTcH#OEM*rIj$<>vi9nC^Dj~9 z?z$|EE9$r^Maa`H9DL^R_m9jzfA9bio;mc?+;azyetn$G9e(l9?A&u?c8)|Q3#k;@ z8a+BX8X*UsdJ#h+Ti2_*G9@xBh?B{b70+6+yp=#Fgw*B21gRz~s_RrDM_xGi!`Z{f zjyhZ7*%4yaA*IGRL!<)OO%E@Gn%~?j{IvO=ds-ej;A#3JEI;w`OR`S(O6BH3{&_j{@-Ye0OkP-kQn8?abr(=qKDkGw)!L|=) zN8}MDLL%~ria%+aXDYWlIhp7C7t#rvh}>57P~qyO`$INv&xr1J7T}*3gRraE4`Y{n zpss{r|0SaR2qO6}Pb$bL=CnD^+G0>$@ zCyZ6^!{E_kAN;%+>_V1^0$!9>vB4{q`~8!4I$t|PuHs`dy!X*}JWM5#%9CICDYS$i8+y)GRP~`Fs$@R(pIpVo^+@sIY4( zAj%_h^(q?vxRXF7gV&2tS%Y^!jwla?f?PncH(kd7cT+j?av>W1n01(*-ChO%C@JG z>W+D{7IBof#t8$n) zM8~t+fKI^Vi85(eH=GNp@Ih&;hX>;sUoqIa%i$J=t+%rr7F}nW&Y3z<&3ZHf{H#n6 ziGdZWw_qbEsnIYq|3Ts#Svx3j;)GaI?Hid=- zbe+lvC^HzEbckK>hwx4f1wtYyKv%o@^lRgEQHhEBU-O5MGp3t1qN1TD;uKY{546^1 z-+x!PZ^JPwK<5oQ#E@1@Yq$rMxVB;U$|_k{yRI~KQfD5}5#5Xk1V&5yTb=PDgS6ZW z^Q9@TGrkRF;fvBCkH;Ve9&q}0Km78uM5~B(!nyM6&%5E~XGSO&$H`*x|8@5l;K%2C zpm1}%gSTaMKxs0(bvp_l-z0GCbAKOxX^4C#36Y0g!36q?;YTzXON?yija?N2wO$DL zfYXp|d}26broOl^vf2-x$`HJ^;t#t=vBnR_xGh8Lba?;&IDAvs!L7TWN2Cr!h`Drn3S5L>{<8sprRn(g@(K`RF{4qUZbWgXV(K