<> <> <> <<>> <> <> <> << U Keep all the reference designators starting with U >> <<>> DIRECTORY Rope USING [ROPE], SymTab USING [Ref]; ExpertKeepRead: CEDAR DEFINITIONS ~ BEGIN RefDesTable: TYPE = SymTab.Ref; <> ReadKeepFile: PROC [file: Rope.ROPE] RETURNS [refDesTable: RefDesTable]; <> <> KeepRefDes: PROC [refDesTable: RefDesTable, refDes: Rope.ROPE] RETURNS [found: BOOLEAN]; <> END.