<> <> <> <> DIRECTORY ImagerDevice USING [CharMask], ImagerFont USING [XChar]; ImagerCache: CEDAR DEFINITIONS ~ BEGIN CharMask: TYPE ~ ImagerDevice.CharMask; XChar: TYPE ~ ImagerFont.XChar; Ref: TYPE ~ REF Rep; Rep: TYPE; Create: PROC [size: NAT] RETURNS [Ref]; Size: PROC [x: Ref] RETURNS [NAT]; Fetch: PROC [x: Ref, font: REF, char: XChar] RETURNS [CharMask]; Store: PROC [x: Ref, charMask: CharMask] RETURNS [ok: BOOL]; <> Flush: PROC [x: Ref]; <> GetList: PROC [x: Ref] RETURNS [LIST OF CharMask]; <> GetNamedCache: PROC [atom: ATOM, createSize: NAT] RETURNS [Ref]; <> END.