<<>> <> <> <> <<>> <> <<>> DIRECTORY KeyTypes; KeyChars: CEDAR DEFINITIONS = BEGIN KeySym: TYPE ~ KeyTypes.KeySym; NoSym: KeySym ~ [0]; CharFromKeySym: PROC [keySym: KeySym] RETURNS [char: CHAR]; <> <> <<>> KeySymFromChar: PROC [char: CHAR] RETURNS [keySym: KeySym]; <> END.