CDDirectoryOps.mesa (a ChipNDale module)
Copyright © 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, June 3, 1985 7:04:20 pm PDT
last edited Christian Jacobi, June 10, 1985 10:34:05 pm PDT
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.