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, September 19, 1985 2:56:36 am PDT
DIRECTORY
CD USING [Design, Object],
Rope USING [ROPE];
CDDirectoryOps: CEDAR DEFINITIONS =
BEGIN
Higher level directory functions.
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.