DIRECTORY CD USING [Design, Object, ObjectClass, Position], CDDirectory USING [EnumerateChildObjectsProc, ExpandProc, ReplaceDChildsProc]; PWObjects: CEDAR DEFINITIONS = BEGIN abutXClass: CD.ObjectClass; abutYClass: CD.ObjectClass; CreateAbutProc: TYPE = PROC [subObjects: LIST OF CD.Object _ NIL] RETURNS [newAbut: CD.Object]; CreateNewAbutX: CreateAbutProc; CreateNewAbutY: CreateAbutProc; GetAbutSubObjects: PROC [abut: CD.Object] RETURNS [subObjects: LIST OF CD.Object]; GetLocationOfFirstInstance: PROC [abut: CD.Object] RETURNS [location: CD.Position _ [0, 0]]; indirectClass: CD.ObjectClass; CreateIndirect: PROC [sourceObject: CD.Object] RETURNS [indirectObject: CD.Object]; lazyClass: CD.ObjectClass; CreateProc: TYPE = PROC [info: REF] RETURNS [obj: CD.Object]; CreateLazy: PROC [info: REF, createProc: CreateProc] RETURNS [newLazy: CD.Object]; RegisterClass: PROC [objectType: ATOM, expand: CDDirectory.ExpandProc, enumerateChildObjects: CDDirectory.EnumerateChildObjectsProc _ NIL, replaceDirectChilds: CDDirectory.ReplaceDChildsProc _ NIL] RETURNS [objectClass: CD.ObjectClass]; END. :PWObjects.mesa Copyright c 1983, 1984 by Xerox Corporation. All rights reversed. Created by Bertrand Serlet, October 3, 1985 2:14:24 pm PDT Bertrand Serlet, March 25, 1986 11:05:58 pm PST This file defines new classes of objects: $AbutX and $AbutY, used by PW as low-weight abuts, $Indirect, used by PW as low-weight imports, $Lazy, used by all clients who want objects with lazy evaluation. Abuts Abuts differ from cells by the fact they contain a list of subObjects abutted one next to the other, and not a list of instances. There is more information in an AbutX (resp. Y): the order of subObjects is important and the leftmost (resp. bottommost) is the first one. Not all cells can be described with Abuts: for example the ones which have overlapping instances. There is no check that the cells abutted have compatible sizes (this check is made in PW). Abut classes Creating a new Abut object. Getting subobjects from an Abut. NARROW error if not an Abut For solving coordinate system problems The location is relative to the [0, 0] of the abut in the CD coordinate system. Indirect Indirect objects introduce one level of indirection, so that users can store properties both on indirect objects and their source. No new code is necessary for Indirects since they use the expand mechanism. The result of the expansion is never included in the directory, for the expanded cell might be already in another directory. They are used to implement low weight imports in PW. Indirect class Creating a new Indirect object. Creates a new IndirectObject. Returns NIL if sourceObject is NIL. Lazy Lazy objects are basically a way of avoiding the static creation of huge cells, by expanding them on demand. All the data structure contained in a Lazy object is a CreateProc returning an CD.Object, and the necessary parameters to apply to this proc, when it is really needed to expand this fake object into an ordinary CD object. Lazy objects will permit the construction of huge circuits, if they are used so to generate basic bricks. They open the space/time compromise when generating geometry. It is assumed that the info field contains no CD object, so that changing a cell has no consequence on the Lazy object. It is also supposed that the createProc computing the geometry of the object is fast enough, so that there is no need to cache it. If it is not the case, the client can use a cache inside the createProc. Lazy class Creating a new Lazy object. Creates a new Lazy object. Implementors goodie Yes, it is perfectly legal to run this proc twice! All the defaults are the one you dream Κm˜šœ™Jšœ Οmœ7™BJšœ:™:Jšœ/™/—J™J™ΜJ™šΟk ˜ Jšžœžœ)˜1Jšœ žœ=˜NJ˜—šΟb œžœž œ˜Jšž˜—head™JšœΛ™ΛJ™™ Jšœ žœ ˜Jšœ žœ ˜—J™šœ™JšΟnœžœžœžœžœžœ žœžœ žœ ˜_Jšœ˜Jšœ˜—J™šœ ™ š œžœžœ žœžœžœžœ ˜RJšœ™——J™™&š  œžœžœ žœ žœ˜\J™O———™Jšœƒ™ƒJ™™Jšœžœ ˜—J™šœ™š  œžœžœ žœžœ ˜SJšœ'žœžœ™D———™Jšœ€  œžœŒ™ΚJšœ¨™¨J™J™wJšœΛ™ΛJ™™ Jšœ žœ ˜—J™šœ™Jš   œžœžœžœžœžœ ˜=š   œžœžœžœ žœ ˜RJšœ™———™codeš  œžœžœažœ8žœžœžœ˜νL™2L™&—J˜Jšžœ˜—J˜J™—…—Pχ