CDCellsInteractions.mesa (a ChipNDale module)
Copyright © 1983, 1986 by Xerox Corporation. All rights reserved.
by Christian Jacobi, 23-Aug-83
Last Edited by: Jacobi July 5, 1986 12:27:27 pm PDT
DIRECTORY
Rope USING [ROPE],
CD USING [Instance, Design, Object];
CDCellsInteractions: CEDAR DEFINITIONS =
BEGIN
CreateCellSelected:
PROC [design:
CD.Design, name: Rope.
ROPE←
NIL]
RETURNS [done:
BOOL, cellOb:
CD.Object];
--name=NIL: interactive read for name.
--name#NIL: hint for name; may be modified.
--If done: cell is included in directory of design.
PushInCellInstance:
PROC [design:
CD.Design, inst:
CD.Instance, convertIfNecessary:
BOOL ←
TRUE]
RETURNS [done:
BOOL];
--inst must be an instance of the currently toplevel pushed in cell of design
--message of problem if not done
PopFromCell:
PROC [design:
CD.Design, m: Method←interactive, name: Rope.
ROPE←
NIL]
RETURNS [done:
BOOL];
--message of problem if not done
Method: TYPE = {flush, newcell, replace, interactive};
PushedCellName:
PROC [design:
CD.Design]
RETURNS [Rope.
ROPE];
END.