
DIRECTORY KeyMappingTypes, KeyTypes;

KeyMapping: CEDAR DEFINITIONS ~
BEGIN

KeySym: TYPE = KeyTypes.KeySym;
KeyCode: TYPE = KeyTypes.KeyCode;
Mapping: TYPE ~ KeyMappingTypes.Mapping;

KeySyms: TYPE ~ REF READONLY KeySymsRep;
KeySymsRep: TYPE ~ RECORD [SEQUENCE n: BYTE OF KeySym];

KeyTable: TYPE ~ REF KeyTableRep;
KeyTableRep: TYPE ~ ARRAY KeyCode OF REF KeySymsRep;

KeyCodes: TYPE ~ REF READONLY KeyCodesRep;
KeyCodesRep: TYPE ~ RECORD [SEQUENCE n: NAT OF KeyCodeIndexPair];
KeyCodeIndexPair: TYPE ~ PACKED RECORD [keyCode: KeyCode, glyphIndex: BYTE];


CountKeySyms: PROC [mapping: Mapping, keyCode: KeyCode] RETURNS [count: NAT];
GetKeySym: PROC [mapping: Mapping, keyCode: KeyCode, i: NAT] RETURNS [keySym: KeySym];
GetKeySyms: PROC [mapping: Mapping, keyCode: KeyCode] RETURNS [keySyms: KeySyms];
KeyCodesFromKeySym: PROC [mapping: Mapping, keySym: KeySym] RETURNS [keyCodes: KeyCodes];

WalkKeySymsProc: TYPE ~ PROC [keySym: KeySym] RETURNS [done: BOOL ¬ FALSE];
WalkKeySyms: PROC [mapping: Mapping, walkProc: WalkKeySymsProc] RETURNS [aborted: BOOL ¬ FALSE];

NewMapping: PROC [keyTable: KeyTable, maxCode: KeyCode ¬ KeyCode.LAST] RETURNS [mapping: Mapping];

END.

  ²  KeyMapping.mesa
Copyright  Ó 1992 by Xerox Corporation.  All rights reserved.
Christian Jacobi, February 13, 1992 11:37 am PST
Christian Jacobi, February 19, 1992 9:47 am PST

Mapping between keycodes and keysyms.

Returns the number of glyphs on the key whose number is keyCode.  If there is no key numbered keyCode, count will be 0.

Returns the ith glyph on the key whose number is keyCode.

Returns the keysyms on the key whose number is keyCode.
May return empty sequence but never NIL.

Inverse of GetKeySym.
May return empty sequence but never NIL.
Find all of the KeySyms mentioned in mapping.
If the walkProc ever returns done=TRUE, WalkKeySyms will stop and return TRUE; otherwise it returns FALSE.
Creates a mapping between keyCodes and keySyms.  Client must not change keyTable data structures after they are passed in.  maxCode is the highest valid KeyCode; providing this value allows some internal performance optimizations.
ÊY  –(cedarcode) style•NewlineDelimiter
˜ code™Kšœ
Ïeœ2™=K™0K™/K™ K™%K™ —KšÏk	œ˜$K˜ KšÏn
œžœžœ˜Kšž˜K˜ Kšœžœ˜Kšœ	žœ˜!Kšœ	žœ˜(K˜ Kšœ	žœžœžœ˜(šœžœžœžœžœžœ	˜7K˜ —Kšœ
žœžœ˜!š	œžœžœ	žœžœ˜4K˜ —Kšœ
žœžœžœ˜*Kšœžœžœžœžœžœ˜Aš	œžœžœžœ žœ˜LK˜ —K˜ šŸœžœ&žœ	žœ˜MKšœw™wK™ —šŸ	œžœ)žœžœ˜VKšœÏuœ*™9K™ —šŸ
œžœ&žœ˜QKšœ7™7Kšœ(™(K™ —šŸœžœ$žœ˜YKšœ™Kšœ(™(K˜ —Kšœžœžœžœžœžœ˜Kš
Ÿœžœ/žœžœžœ˜`Kšœ-™-Kšœj™jK˜ —šŸ
œžœ1žœžœ˜bKšœæ™æK˜ —Kšžœ˜K˜ — …—    š  
¥  