<> <> <> <> DIRECTORY CD USING [Design, Object], Rope USING [ROPE]; CDDirectoryOps: CEDAR DEFINITIONS = BEGIN RemoveObjectFromDirectory: PROC [design: CD.Design, ob: CD.Object] RETURNS [done: BOOL_FALSE, msg: Rope.ROPE_NIL]; <<--succeeds only if the object is not used anywhere else in the design>> <<--uses CDMarks>> CleanUpDirectory: PROC [design: CD.Design, autoOnly: BOOL_FALSE, askFirst: BOOL_FALSE]; <<--askFirst makes it verbose>> <<--uses CDMarks>> <<>> RenameNCleanUp: PROC [design: CD.Design, ob: CD.Object, name: Rope.ROPE]; <<--tries hard to rename ob>> <<--removes conflicting ob from directory if possible>> <<--uses CDMarks>> END.