DIRECTORYCD, CMosB, Core, CoreOps, HashTable, IO, OnionCore, OnionCoreArc, PW, PWCore, Rope, Sinix, SinixCMos, TerminalIO;OnionCoreTest: CEDAR PROGRAM IMPORTS CD, CMosB, CoreOps, HashTable, IO, OnionCore, PW, PWCore, Rope, Sinix, SinixCMos, TerminalIO = BEGIN OPEN Core, OnionCore;OnionTest: PW.UserProc = {innerCT: CellType _  PWCore.FromLayoutWithoutPublic[PW.Get[design, "inner.mask"]];outerCT: CellType _  PWCore.FromLayoutWithoutPublic[PW.Get[design, "outer.mask"]];inner: CD.Object _ PWCore.Layout[innerCT];outer: CD.Object _ PWCore.Layout[outerCT];nets: HashTable.Table _ HashTable.Create[5, HashTable.RopeEqual, HashTable.HashRope];innerPos: CD.Position _ [74*CMosB.lambda, 69*CMosB.lambda];innerPinsEnumeration: BOOL;AddPinsToNets: CoreOps.EachWireProc = {EachPin: PWCore.EachPinProc = {seg: Seg;IF layer#CMosB.met THEN {TerminalIO.WriteF["*** %g pin %g not made of met but of %g discarded\n", IO.rope[IF innerPinsEnumeration THEN "Inner" ELSE "Outer"], IO.rope[name],  IO.atom[CD.LayerKey[layer]]];RETURN;};IF innerPinsEnumeration THEN SELECT side FROMtop, bottom		=> {min _ min + innerPos.x; max _ max + innerPos.x};left, right		=> {min _ min + innerPos.y; max _ max + innerPos.y};ENDCASE					=> ERROR;seg _ SELECT side FROMtop, left		=> NEW [OnionCoreArc.SegRec _ [max, min, side, side]],bottom, right	=> NEW [OnionCoreArc.SegRec _ [min, max, side, side]],ENDCASE					=> ERROR;IF innerPinsEnumeration THEN net.innerSegs _ CONS [seg, net.innerSegs] ELSE net.outerSegs _ CONS [seg, net.outerSegs];};name: ROPE _ CoreOps.GetShortWireName[wire];net: Net _ NARROW [HashTable.Fetch[nets, name].value];IF wire.size#0 THEN RETURN;IF NOT Rope.Match[pattern: "Net*", object: name] THEN RETURN;IF net=NIL THEN net _ NEW [NetRec _ [name: name]];IF Rope.Equal[name, "Net2"] THEN {net.width _ 8*CMosB.lambda; net.routeEveryOuterSeg _ FALSE};IF Rope.Equal[name, "Net3"] THEN {net.routeEveryOuterSeg _ FALSE};[] _ PWCore.EnumeratePins[IF innerPinsEnumeration THEN innerCT ELSE outerCT, wire, EachPin];[] _ HashTable.Store[nets, name, net];};ob _ PW.CreateEmptyCell[];innerPinsEnumeration _ TRUE; [] _ CoreOps.VisitWire[innerCT.public, AddPinsToNets];innerPinsEnumeration _ FALSE; [] _ CoreOps.VisitWire[outerCT.public, AddPinsToNets];[] _ PW.IncludeInCell[ob, inner, innerPos];[] _ PW.IncludeInCell[ob, outer];IF NOT IncludeInOuter[ob, nets, innerPos, CD.InterestSize[inner], CD.InterestSize[outer]] THEN TerminalIO.WriteF["*** Did not finish properly!\n"];PW.RepositionCell[ob];CoreOps.Print[Sinix.Extract[ob, SinixCMos.extractBMode].result, TerminalIO.TOS[]];};PW.Register[OnionTest, "OnionTest"];END.    H  OnionCoreTest.mesaBertrand Serlet June 1, 1986 11:56:03 pm PDT Ê±  ˜ ™Icode™,—J™ šÏk	˜	Kšœ#œœ-˜q—K˜ šÏbœœœ˜Kšœœœœ/˜gKšœœ˜K˜ šž	œœ˜JšœR˜RJšœR˜RJšœœ!˜*Jšœœ!˜*JšœU˜UJšœ
œ/˜;Jšœœ˜šžœ˜'šžœ˜J˜	šœœ˜JšœIœœœ	œœœœ˜²Jšœ˜J˜—šœœœ˜-JšœA˜AJšœA˜AJšœœ˜—šœœ˜Jšœœ0˜AJšœœ0˜DJšœœ˜—Jš
œœœœœ˜vJ˜—Jšœœ"˜,Jšœœ%˜6Jšœœœ˜Jšœœ+œœ˜=Jšœœœœ˜2Jšœœ7œ˜^Jšœœœ˜BJšœœœ	œ˜\Jšœ&˜&J˜—Jšœœ˜Jšœœ8˜SJšœœ8˜TJšœœ$˜+Jšœœ˜!Jš
œœ$œœœ5˜“Jšœ˜JšœKœ˜RJšœ˜—K˜ Jšœ"˜$—K˜ Kšœ˜— …—    
`  Y  