DIRECTORYCD, Rope;CDPinObjects: CEDAR DEFINITIONS =   BEGINpinLayer: READONLY CD.Layer;CreatePinOb: PROC [size: CD.Position] RETURNS [CD.Object];IsPinOb: PROC [ob: CD.Object] RETURNS [BOOL];CreatePinInstance: PROC [name: Rope.ROPE, rect: CD.Rect, lev: CD.Layer_CD.combined, owner: ATOM_NIL] RETURNS [CD.Instance];IsPinApp: PROC [inst: CD.Instance] RETURNS [BOOL] = INLINE {RETURN [IsPinOb[inst.ob]]};SetOwner: PROC [pinInstance: CD.Instance, owner: ATOM_NIL];GetOwner: PROC [pinInstance: CD.Instance] RETURNS [ATOM];SetName: PROC [pinInstance: CD.Instance, name: Rope.ROPE];GetName: PROC [pinInstance: CD.Instance] RETURNS [Rope.ROPE];SetLayer: PROC [pinInstance: CD.Instance, lev: CD.Layer];GetLayer: PROC [pinInstance: CD.Instance] RETURNS [CD.Layer];InstanceEnumerator: TYPE = PROC [inst: CD.Instance] RETURNS [quit: BOOL_FALSE];EnumeratePins: PROC [ob: CD.Object_NIL, eachPin: InstanceEnumerator] RETURNS [quit: BOOL];FindPins: PROC [ob: CD.Object_NIL, pinName: Rope.ROPE] RETURNS [CD.InstanceList];END.    ˆ  CDPinObjects.mesa  (part of ChipNDale)Copyright c 1984, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi,  August 8, 1984 12:41:50 pm PDT last edited Christian Jacobi,  May 28, 1985 2:24:21 pm PDT--Pins are objects to associate names and properties to rectangular areas.--All the actual pins properties like name, layer, propertylist --and its semantics are bound to the InstanceRep.--In general, the meaning of a pin is not known, but it is assumed some--client program knows it.  NIL owner means: --		At this area, connection in the particaular layer can be made.--Pin objects will NOT have an special interrest-rect specified, their interrest --area is the real rect.  It is common to have several pins with the same name.--if owner is not NIL it must be registered with CDProperties--if layer=CD.combined means: not yet determined, or either: pin has more complex functionality--Random order; changes on pins while the enumeration may or may not be seen. --Returns all pins with name "name"--For rect: use CDInstances.ARectO or ARectI--For size: use object size --		(Interestrects for pins must not be set).Ê  ˜ šœ&™&Jšœ
Ïmœ7™BJšœ5™5Jšœ:™:—J˜ šÏk	˜	Jšžœ˜	—JšÏbœžœžœ˜$Jšž˜J˜ JšœJ™JJ™ Jšœ@™@Jšœ1™1J™ JšœG™GJšœ-™-JšœB™BJšœQ™QJšœO™OJ˜ Jšœ
žœžœ˜J˜ Jš
Ïnœžœžœžœžœ	˜:Jš
 œžœžœ	žœžœ˜-J˜ J˜ Jš œžœžœžœžœžœžœžœžœžœ˜{š œžœžœžœžœžœ˜<Jšžœ˜Jšœ˜J˜ —Jš
 œžœžœžœžœ˜;š
 œžœžœžœžœ˜9Jšœ=™=—J˜ Jš œžœžœžœ˜:Jš
 œžœžœžœžœ˜=J˜ Jš œžœžœžœ˜9š
 œžœžœžœžœ˜=Jšœ_™_—J™ J˜ Jšœžœžœžœžœžœžœ˜OJ˜ š œžœžœžœžœžœ˜ZJšœN™N—J˜ š œžœžœžœžœžœžœ˜QJšœ#™#—J™ J™ Jšœ,™,Jšœ™Jšœ-™-J˜ Jšžœ˜J˜— …—      ;  