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. 8ImagerCache.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass, May 16, 1985 5:42:43 pm PDT Doug Wyatt, May 19, 1985 4:06:38 pm PDT Returns FALSE if the cache is full. Makes the cache empty. In case somebody wants to save the cache somewhere else. For sharing caches by name. Κs˜code™Kšœ Οmœ1™