<> <> <> <<>> DIRECTORY Core, CoreClasses, CoreFuns, Rope; CoreOpsImpl: CEDAR PROGRAM IMPORTS Rope EXPORTS CoreFuns = BEGIN FIOCT, FindInstanceOfCellType: PUBLIC PROC [cellType: Core.CellType, name: Core.ROPE] RETURNS [CoreClasses.CellInstance _ NIL] = { FOR i: CoreClasses.CellInstanceList _ NARROW[cellType.data, CoreClasses.RecordCellType].instances, i.rest UNTIL i=NIL DO IF Rope.Equal[i.first.type.name, name] THEN RETURN[i.first]; ENDLOOP; }; END.