<> <> DIRECTORY UnifiedFonts USING [Key] ; ImagerFontCache: CEDAR DEFINITIONS ~ BEGIN FontCache: TYPE ~ REF FontCacheRep; FontCacheRep: TYPE; FontCode: TYPE ~ RECORD [key: CARDINAL]; FontFileCode: TYPE ~ UnifiedFonts.Key; Create: PROC RETURNS [FontCache]; <> GetFontCode: PROC [r0, r1, r2, r3, r4, r5: REAL, fontFileCode: FontFileCode] RETURNS [FontCode]; <> InterpretFontCode: PROC [fontCode: FontCode] RETURNS [r0, r1, r2, r3, r4, r5: REAL, fontFileCode: FontFileCode]; <> InvalidFontCode: ERROR; Flush: PROC [fontFileCode: FontFileCode]; <> GetCharData: PROC [fontCache: FontCache, fontCode: FontCode, char: CHAR] RETURNS [REF]; <> CacheMiss: SIGNAL; LoadCharData: PROC [fontCache: FontCache, fontCode: FontCode, char: CHAR, data: REF]; <> END.