DIRECTORY Core; CoreTypeCache: CEDAR DEFINITIONS = BEGIN OPEN Core; TypeCache: TYPE = REF TypeCacheRec; TypeCacheRec: TYPE; Narrow: PROC [asAny: REF ANY] RETURNS [typeCache: TypeCache]; MakeProc: TYPE = PROC [design: Design, args: REF ANY] RETURNS [cellType: CellType]; CompareProc: TYPE = PROC [args1, args2: REF ANY] RETURNS [BOOL]; CreateCache: PROC [make: MakeProc, compare: CompareProc] RETURNS [typeCache: TypeCache]; Ensure: PROC [design: Design, typeCache: TypeCache, args: REF ANY] RETURNS [cellType: CellType]; END. jCoreTypeCache.mesa Barth, July 24, 1985 4:54:08 pm PDT Theory For sharing similiar items. Practice Κ2– "cedar" style˜Icode™K™#K˜KšΟk œ˜K˜š Οb œœ œœœ˜3K˜—head™Ibody™—™Kšœ œœ˜#Kšœœ˜K˜Kš Οnœœ œœœ˜=K˜š Ÿœœœœœœ˜SK˜—šŸ œœœœœœœ˜@K˜—šŸ œœ(œ˜XK˜—š Ÿœœ.œœœ˜`K˜——Kšœ˜—…—΄