Copyright © 1984 by Xerox Corporation. All rights reserved.

Created by: Bob Mayo, June 8, 1984 12:40:57 pm PDT

Last Edited by: Mayo, August 6, 1984 5:35:06 pm PDT

Rope USING [ROPE],

CD USING [Design, ApplicationPtr, Position];

markAtom: READONLY ATOM; -- Contains the atom that alignment marks are tagged with.

-- Place mark.

PlaceMark: PROC [into: CD.Design, markName: Rope.ROPE, markPos: CD.Position];

-- Given a ChipNDale application that points to an alignment mark, return it's position.

-- Returns some unspecified value if the application contains a different type of object.

FindOrigin: PROC [aptr: CD.ApplicationPtr] RETURNS [CD.Position];

-- Given a ChipNDale application that points to an alignment mark, return it's name.

-- Returns some unspecified value if the application contains a different type of object.

FindName: PROC [aptr: CD.ApplicationPtr] RETURNS [Rope.ROPE];