<<>> <> <> <> <<>> DIRECTORY Char USING [XCHAR]; CharCodeConvert: CEDAR DEFINITIONS ~ BEGIN OPEN Char; <> <> NameFromXChar: PROC [XCHAR] RETURNS [ATOM]; -- returns the "preferred" name NamesFromXChar: PROC [XCHAR] RETURNS [LIST OF ATOM]; -- returns all names XCharFromName: PROC [ATOM] RETURNS [XCHAR]; -- Assigns a "Private Use" code, if necessary (but that better not happen too often) PrivateUseFull: ERROR; Enumerate: PROC [PROC [XCHAR, LIST OF ATOM]]; <> <> Define: PROC [XCHAR, ATOM]; Redefine: PROC [XCHAR, LIST OF ATOM]; Conflict: ERROR [xChar: XCHAR, name: ATOM]; -- raised when an attempt is made to assign more than one XCHAR to the same name, or name is NIL, or xChar is nullXChar END.