DIRECTORYCD, CDDirectory, Rope;CDExtras: CEDAR DEFINITIONS =BEGIN CreateDummyObject: PROC[design: CD.Design] RETURNS [CD.Object];EnumerateChildrenObjects: PROC [me: CD.Object, p: CDDirectory.EnumerateObjectsProc, x: REF];EnumerateDesignObjects: PROC [design: CD.Design, p: CDDirectory.EnumerateObjectsProc, x: REF];BoundingBox: PROC [design: CD.Design] RETURNS [CD.Rect];PushedCellName: PROC [design: CD.Design] RETURNS [Rope.ROPE];RemoveProperties: PROC [design: CD.Design, key: REF];ToLambda: PROC [n: CD.Number] RETURNS [Rope.ROPE];PopToTopLevel: PROC [design: CD.Design];Cellize: PROC [design: CD.Design, name: Rope.ROPE_NIL] RETURNS [cell: CD.Object_NIL, pos: CD.Position];ToRope: PROC [x: REF, whenFailed: REF_NIL] RETURNS [Rope.ROPE];GetTechnology: PROC [name: Rope.ROPE] RETURNS [CD.Technology];END.   œ  CDExtras.mesa  (part of ChipNDale)Copyright c 1983, 1984 by Xerox Corporation.  All rights reserved.by Ch. Jacobi, October 24, 1983 11:48 amlast edited by Ch. Jacobi, June 29, 1985 5:36:51 pm PDT--create a dummy cell object which contains the whole design.--On future changes of the design, the dummy object may or may not--get obsolete.--the cell object is NOT put into any cell library--enumerate me and its children objects--tries to remove the propertiy "key" from all objects of "design";--may be delayed or incomplete--(only from objects, not instances...)--if "design" is pushed in, it will be popped out, either by flushing, --replacing cells or creating new cells--makes a single "cell" of of the "design", removes all instances; --pos: if "cell" is included at position "pos" in an empty design we would get "design" again--if "design" is pushed in, it will be popped out, either by flushing, --replacing cells or creating new cells--far more friendly version of CD.GetTechnology--NIL if not foundThis module contains procedures which I think could be of general usebut are not used by my own code. Therefore: Each use of these procedure should be reported to me, so I can see their value.  Sometimes the procedures arenot too good tested.This module contains further procedures which are not yet put into the rightmodule; The procedures might change their module without further notifications.Ê^  ˜ šœ"™"Jšœ
Ïmœ7™BJšœ(™(Jšœ7™7—J˜ šÏk	˜	Jšžœ˜J˜ —šÏnœžœžœ˜Jšžœ˜J˜ š
Ÿœžœ	žœ	žœžœ	˜?Jšœ=™=JšœB™BJšœ™Jšœ2™2J˜ —šŸœžœžœ1žœ˜\Jšœ'™'J˜ —JšŸœžœ
žœ1žœ˜^J˜ Jš
Ÿœžœ
žœ	žœžœ˜8J˜ Jš
Ÿœžœ
žœ	žœžœ˜=J˜ šŸœžœ
žœžœ˜5JšœC™CJšœ™Jšœ'™'—J˜ Jš
Ÿœžœžœ	žœžœ˜2J˜ šŸœžœ
žœž˜(JšœG™GJšœ'™'J˜ —šŸœžœ
žœžœžœžœžœžœžœ˜gJšœC™CJšœ]™]JšœG™GJšœ'™'—J˜ JšŸœžœžœžœžœžœžœ˜?J˜ š
Ÿœžœžœžœžœ˜>Jšœ/™/Jšœ™—J˜ Jšžœ˜J˜ —JšœE™EJšœO™OJšœJ™JJšœ™J˜ JšœL™LJšœO™OJ˜ — …—    J  D  