<<>> <> <> <> <> DIRECTORY CD USING [Design, Object, Instance]; CDHierarchyMarks: CEDAR DEFINITIONS = BEGIN <<>> <> <<[It is only marginaly usefull for ChipNDale's own drawing hierarchy where a natural>> <> <> <<>> <> <> <> <> <> <<>> <> <<>> <<>> <> GetHierarchyMark: PROC [design: CD.Design_NIL, ob: CD.Object_NIL] RETURNS [inst: CD.Instance]; <> <> <> <> <> <> <> <> SetHierarchyMark: PROC [design: CD.Design, ob: CD.Object_NIL, inst: CD.Instance]; <> <> <> <> <> <> <> <<>> <> RegisterHierarchyMarker: PROC [setHierarchyMark: SetHierarchyMarkProc]; <> <> <> <> <<>> SetHierarchyMarkProc: TYPE = PROC [design: CD.Design, ob: CD.Object, inst: CD.Instance]; <> <> <> <<>> <<>> <> <<>> <> <> <> <> <> <> <<>> <> <> <> <> <<>> <> <> <> END.