DIRECTORYIPParams,IPConstants,Imager USING [Context],IP;IPPinNets: CEDAR DEFINITIONS IMPORTS IPParams = BEGINComponent: TYPE = REF IP.ComponentRep;PinNets: TYPE = LIST OF PinNet;PinNet: TYPE = REF PinNetRep;PinNetRep: TYPE = IP.PinNetRep;PhysicalPins: TYPE = LIST OF PhysicalPin;PhysicalPin: TYPE = REF PhysicalPinRep;PhysicalPinRep: TYPE = IP.PhysicalPinRep;Net: TYPE = REF IP.NetRep;EachPhysicalPinAction: TYPE = PROC[phyPin: PhysicalPin] RETURNS [quit: BOOL _ FALSE];PaintPinNets: PROC[pNetsOwner: Component, context: Imager.Context, xOffset, yOffset: REAL _ 0.0, scaleFactor: REAL _ 1.0, showNames: BOOL _ TRUE, size: INT _ IPParams.PhyPinRectSize, activeStipple: CARDINAL _ IPConstants.Black, nonActiveStipple: CARDINAL _ IPConstants.White];OrientPinNets: PROC [pNetsOwner: Component, operation: IP.Orientation];MirrorPinNets: PROC[pNetsOwner: Component, mirrorOrient: IP.OrientationTypes];Rotate90PinNets: PROC [pNetsOwner: Component, numberOfRot: INT _ 1];NilPinNetsNet: PROC[pinNets: PinNets] = INLINE {WHILE pinNets # NIL DOpinNets.first.net _ NIL;pinNets _ pinNets.rest;ENDLOOP;};--NilPinNetsNetRemPinNetsFromNets: PROC [pinNets: PinNets];AddPinNetsToNets: PROC [pinNets: PinNets];SetPinNetsOwner: PROC[pinNets: PinNets, owner: REF IP.ComponentRep] = INLINE {WHILE pinNets # NIL DOpinNets.first.owner _ owner; pinNets _ pinNets.restENDLOOP;};--SetPinNetOwnerEnumPhysicalPins: PROC[pinNets: PinNets, action: EachPhysicalPinAction];END.   Ü  --File: IPPinNets.mesaLast Edited by: CSChow, February 2, 1985 2:20:03 am PSTPreas, August 2, 1986 0:02:56 am PDTchanged definition for PaintPinNets November 30, 1987 2:55:20 pm PST-- Intro: IP.PinNetRep is the structure shared between nets and instances.--Orientation Operations on PinNets--mirrorOrient = ver <=> MirrorX--mirrorOrient = hor <=> MirrorY--Book Keeping Operations on PinNets-- Used for Cleaning up circular garbage. See IPCoTabImpl.DestroySelfÊ®  ˜ J™™7Icode™$KšœÏnœ!™D—J™ šÏk	˜	Jšœ	˜	J˜Jšœžœ
˜Jšžœ˜—J˜ šœžœžœ˜Jšžœž˜Jšœ
žœ>™JJ˜ Jšœžœžœžœ˜&J˜ Jšœ	žœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜J˜ Jšœžœžœžœ˜)Jšœžœžœ˜'Jšœžœžœ˜)J˜ Jšœžœžœžœ˜J˜ Kšœžœžœžœžœžœ˜UJ˜ JšœžœCžœžœžœžœžœ+žœ(žœ˜”K˜ J™#Jšœžœ$žœ˜GJ˜ šœžœ&žœ˜NJšœ ™ Jšœ ™ —J˜ Jšœžœ&žœ˜DJ˜ J˜ J™$K˜ šœžœžœ˜0Kšœ:™Ešžœžœž˜Kšœžœ˜Kšœ˜Kšžœ˜—KšœÏc˜—K˜ Kšœžœ˜,K˜ Kšœžœ˜*K˜ š
œžœžœžœžœ˜N–"Cedar" stylešžœžœž˜Kšœ˜Kšœ˜Kšžœ˜—KšœŸ˜—J˜ Jšœžœ2˜HJ˜ Jšžœ˜—J˜— …—    Þ  
h  