ImagerCache.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, May 16, 1985 5:42:43 pm PDT
DIRECTORY
ImagerDev USING [CharMask],
ImagerFont USING [XChar];
ImagerCache: CEDAR DEFINITIONS
~
BEGIN
OPEN ImagerDev, ImagerFont;
Ref: TYPE ~ REF Rep;
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];
Returns FALSE if the cache is full.
Flush:
PROC [x: Ref];
Makes the cache empty.
GetList:
PROC [x: Ref]
RETURNS [
LIST
OF CharMask];
In case somebody wants to save the cache somewhere else.
GetNamedCache:
PROC [atom:
ATOM, createSize:
NAT]
RETURNS [Ref];
For sharing caches by name.
END.