
DIRECTORY 
Ascii,
KeyChars,
KeySymsKB,
KeyMapping,
Xl,
XlAscii;

XlAsciiImpl: CEDAR MONITOR 
IMPORTS Ascii, KeyChars, KeyMapping, Xl
EXPORTS XlAscii ~
BEGIN 

nullKeySym: Xl.KeySym ~ [0];

AsciiFromKeySym: PUBLIC PROC [keysym: Xl.KeySym] RETURNS [char: CHAR м 0C] = {
char м KeyChars.CharFromKeySym[keysym];
IF char>VAL[127] THEN char м 0C;
}; 

KeySymFromAscii: PUBLIC PROC [char: CHAR] RETURNS [keysym: Xl.KeySym] = {
keysym м KeyChars.KeySymFromChar[char];
};

Convert: PUBLIC PROC [connection: Xl.Connection, keyCode: Xl.KeyCode, state: Xl.SetOfKeyButMask м [], matchKeys: LIST OF Xl.KeySym м NIL] RETURNS [char: CHAR м 0C, keysym: Xl.KeySym м [0], matched: Xl.KeySym м [0], isModifier: BOOL м FALSE] = {
modmap: Xl.ModifierMapping м Xl.GetModifierMapping[connection];
mapping: Xl.KeyboardMapping м Xl.GetKeyboardMapping[connection];
FOR m: Xl.KeyBut IN [shift..mod5] DO
IF modmap[0][m]=keyCode THEN {isModifier м TRUE; EXIT};
ENDLOOP; 
IF isModifier 
THEN {
keysym м KeyMapping.GetKeySym[mapping, keyCode, 0];
char м AsciiFromKeySym[keysym];
}
ELSE {
ks0: Xl.KeySym м KeyMapping.GetKeySym[mapping, keyCode, 0];
ks1: Xl.KeySym м KeyMapping.GetKeySym[mapping, keyCode, 1];
ks2: Xl.KeySym м KeyMapping.GetKeySym[mapping, keyCode, 2];
ks3: Xl.KeySym м KeyMapping.GetKeySym[mapping, keyCode, 3];
FOR list: LIST OF Xl.KeySym м matchKeys, list.rest WHILE list #NIL DO
SELECT list.first FROM
ks0, ks1, ks2, ks3 => {matched м list.first; EXIT};
ENDCASE => {};
ENDLOOP; 
SELECT TRUE FROM
state.control AND state.shift => {
keysym м ks3;
IF keysym=nullKeySym THEN {
keysym м ks1;
IF keysym=nullKeySym THEN keysym м ks0;
};
char м AsciiFromKeySym[ks1];
char м Ascii.Control[char];
};
state.control => {
keysym м ks2;
IF keysym=nullKeySym THEN keysym м ks0;
char м AsciiFromKeySym[ks0];
char м Ascii.Control[char];
};
state.shift => {
keysym м ks1;
IF keysym#nullKeySym 
THEN char м AsciiFromKeySym[ks1] 
ELSE {
char м AsciiFromKeySym[ks0];
char м Ascii.Upper[char];
keysym м KeySymFromAscii[char];
};
};
state.lock => {
char1: CHAR м AsciiFromKeySym[ks0];
char м Ascii.Upper[char1];
keysym м IF char1=char THEN ks0 ELSE ks1;
};
ENDCASE => {
char1: CHAR м AsciiFromKeySym[ks0];
keysym м ks0;
char м Ascii.Lower[char1];
IF char#char1 THEN {
keysym м KeySymFromAscii[char];
};
};
};
};

END.
 
    ╝  
XlAsciiImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Christian Jacobi, March 29, 1991 1:12:40 pm PST
Christian Jacobi, February 27, 1992 1:23 pm PST
 Э╩С  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЪЬ/Щ/KЪЬ/Щ/ЧKШ Ъ╧k	ЬШ
KЪЬШKЪЬ	Ш	KЪЬ
Ш
KЪЬШKЪЬШKЪЬШKШ ЧЪ╧nЬЮЬЮЬШKЪЮЬ Ш'KЪЮЬ
ШЧЪЮЬШKШ ЧKЪЬШKШ Ъ
ЯЬЮЬЮЬЮЬЮЬ
ШNKЪЬ'Ш'KЪЮЬЮЬЮЬШ KШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШIKЪЬ'Ш'KШЧKШ ЪЯЬЮЬЮЬ]ЮЬЮЬЮЬЮЬЮЬFЮЬЮЬШЇKЪЬ?Ш?KЪЬ@Ш@ЪЮЬЮЬЮШ$KЪЮЬЮЬЮЬЮЬШ7KЪЮЬШ	ЧЪЮЬШЪЮЬШKЪЬ3Ш3KЪЬШKШЧЪЮЬШKЪЬ;Ш;KЪЬ;Ш;KЪЬ;Ш;KЪЬ;Ш;ЪЮЬЮЬЮЬ"ЮЬЮЬЮШEЪЮЬЮШKЪЬ-ЮЬШ3KЪЮЬШЧKЪЮЬШ	ЧЪЮЬЮЬЮШЪЬЮЬШ"KЪЬШЪЮЬЮЬШKЪЬШKЪЮЬЮЬШ'KШЧKЪЬШKЪЬШKШЧЪЬШKЪЬШKЪЮЬЮЬШ'KЪЬШKЪЬШKШЧЪЬШKЪЬШЪЮЬШKЪЮЬШ!ЪЮЬШKЪЬШKЪЬШKЪЬШKШЧЧKШЧЪЬШKЪЬЮЬШ#KЪЬШKЪЬ	ЮЬЮЬЮЬШ)KШЧЪЮЬШKЪЬЮЬШ#KЪЬШKЪЬШЪЮЬЮЬШKЪЬШKШЧKШЧЧKЪЬШЧЧKЪЬШKШ ЧKЪЮЬШKШЧ ЕЧ    ю  ;  