CDSimpleCells2.mesa
by Ch. Jacobi, August 29, 1985 2:46:55 pm PDT
last edited Ch. Jacobi, August 29, 1985 6:04:52 pm PDT
This module might be recompiled outside the realease
DIRECTORY
CD, Rope;
CDSimpleCells2: CEDAR DEFINITIONS =
BEGIN
PartialCopy: PROC [ob: CD.Object, design: CD.Design, instances: LIST OF Rope.ROPE←NIL, remove: BOOL←TRUE, prop: ATOM ← $InstanceName, name: Rope.ROPE←NIL] RETURNS [CD.Object];
--copy the object; creates a cell
--remove TRUE:
--  all the instances with property prop are and a value in instances are removed
--remove FALSE:
--  only the instances with property prop are and a value in instances are copied
--interest rect:
--  if explicit, it will be copied,
--  if defaulted, a new one will be defaulted
--the origin will be inherited
END.