DIRECTORY CD USING [undefLayer, Position, Rect, errorLayer, Layer, ObjectClass, Object, Technology], Rope USING [ROPE]; CDAtomicObjects: CEDAR DEFINITIONS = BEGIN IsAtomicOb: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ISTYPE[ob.specificRef, AtomicObsPtr]] }; CreateAtomicOb: PROC [classKey: ATOM, size: CD.Position, tech: CD.Technology, lev: CD.Layer_CD.undefLayer] RETURNS [CD.Object]; DrawRec: TYPE = RECORD [r: CD.Rect, lev: CD.Layer _ CD.errorLayer]; DrawList: TYPE = LIST OF DrawRec; AtomicObsPtr: TYPE = REF AtomicObsRec; AtomicObsRec: TYPE = RECORD [ --do not change directly rList: DrawList_NIL, ir: CD.Rect ]; FillObjectProc: TYPE = PROC [ob: CD.Object] RETURNS [mustFail: BOOL _ FALSE]; RegisterAtomicObClass: PROC [classKey: ATOM, fillProc: FillObjectProc, description: Rope.ROPE _ NIL, tech: CD.Technology _ NIL] RETURNS [type: CD.ObjectClass]; Incorporate: PROC [ob: CD.Object, r: CD.Rect, lev: CD.Layer, inside: BOOL _ TRUE]; END. .CDAtomicObjects.mesa (part of ChipNDale) Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. by Christian Jacobi, March 13, 1985 9:49:28 am PST last edited by Christian Jacobi, March 25, 1986 1:26:04 pm PST This module helps the implementation of a wide class of atomic ChipNDale objects, which do not have children and are shared between designs. Despite its name this are not the only atomic object classes. --common proc's and types --NIL if not done --Reuses objects in cache if possible --technology implementor's proc's and type's --read (and even rewrite) size, layer --calls IncorporateRect --do not read or write AtomicObsRec directly --rList will be initialized to NIL --drawMe, quickDrawMe are considered variables and should not --be changed by class implementor. Κ4˜codešœ/™/Kšœ Οmœ7™BKšœ4™4Kšœ?™?—K˜šΟk ˜ KšžœžœR˜ZKšœžœžœ˜—K˜KšΠblœžœž œ˜$Kšž˜K˜™ΜK˜—K™šΟb™K™—š Οn œžœžœ žœžœžœ˜:Kšžœžœ˜-K˜K˜—š‘Πbnœžœ žœžœžœžœžœ žœžœ ˜Kšœ™K™%—K˜Kš œ žœžœžœ žœ žœ ˜CKšœ žœžœžœ ˜!K˜Kšœžœžœ˜&šœžœžœΟc˜7Kšœžœ˜Kšœžœ˜ K˜K˜—K™š ,™,K™—š œžœžœžœ žœ žœžœ˜MKšœ%™%Kšœ™Kšœ,™,Kšœ"™"K˜—š‘œžœ žœ.žœžœžœ žœžœžœ˜ŸKšœ>™>Kšœ"™"K˜—Kš‘ œžœžœ žœ žœžœžœ˜RK˜Kšžœ˜K˜—…—Μ .