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: NAT _ 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 -- 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™$—J™šΟk ˜ Jšœ ˜ J˜ Jšœœ ˜Jšœ˜—J˜šœ œ œ˜Jšœ ˜Jšœ œ>™JJ˜Jšœ œœœ˜&J˜Jšœ œœœ˜Jšœœœ ˜Jšœ œœ ˜J˜Jšœœœœ ˜)Jšœ œœ˜'Jšœœœ˜)J˜Jšœœœœ˜J˜Kš Οnœœœœœœ˜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˜—…—ή