ImagerCache.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, August 22, 1986 11:17:39 am PDT
Doug Wyatt, May 19, 1985 4:06:38 pm PDT
DIRECTORY
IIMask USING [CharMask],
IIFont USING [XChar];
IICache: CEDAR DEFINITIONS
~
BEGIN
CharMask: TYPE ~ IIMask.CharMask;
XChar: TYPE ~ IIFont.XChar;
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.