<> <> XFontCache: CEDAR DEFINITIONS ~ BEGIN FontCache: TYPE ~ REF FontCacheRep; FontCacheRep: TYPE; FontCode: TYPE ~ RECORD [key: CARDINAL]; Create: PROC RETURNS [FontCache]; <> GetFontCode: PROC [a, b, c, d: REAL, font: REF] RETURNS [FontCode]; <> InterpretFontCode: PROC [fontCode: FontCode] RETURNS [a, b, c, d: REAL, font: REF]; <> InvalidFontCode: ERROR; Flush: PROC [font: REF]; <> GetCharData: PROC [fontCache: FontCache, fontCode: FontCode, char: CHAR] RETURNS [REF]; <> CacheMiss: SIGNAL [fontCode: FontCode, char: CHAR] RETURNS [data: REF]; LoadCharData: PROC [fontCache: FontCache, fontCode: FontCode, char: CHAR, data: REF]; <> END.