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];PopToTopLevel: PROC [design: CD.Design];Cellize: PROC [design: CD.Design, name: Rope.ROPE_NIL] RETURNS [cell: CD.Object_NIL, pos: CD.Position];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, March 14, 1986 7:08:37 pm PST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.--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--enumerate all objects in directory of design--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Ê¯  ˜ codešœ"™"Kšœ
Ïmœ7™BKšœ(™(Kšœ8™8—K˜ šÏk	˜	Kšžœ˜—K˜ KšÐlnœžœžœ˜Kšžœ˜K˜ Kšœô™ôšœœ™œK˜ —K˜ š
Ïnœžœ	žœ	žœžœ	˜?Kšœ=™=KšœB™BKšœ™Kšœ2™2K˜ —š œžœžœ1žœ˜\Kšœ'™'K˜ —š œžœ
žœ1žœ˜^Kšœ.™.K˜ —š œžœ
žœž˜(KšœG™GKšœ'™'K˜ —š œžœ
žœžœžœžœžœžœžœ˜gKšœC™CKšœ]™]KšœG™GKšœ'™'K˜ —š
 œžœžœžœžœ˜>Kšœ/™/Kšœ™—K˜ Kšžœ˜K˜ — …—    &  	  