DIRECTORY CD, CDCells, CDIO, CDOps, Convert, DABasics, Rope, Route, RoutePrivate; RouteTest8: CEDAR PROGRAM IMPORTS CD, CDCells, CDIO, CDOps, Convert, Rope, Route = BEGIN EnumerateChannelNets: Route.EnumerateChannelNetsProc ~ { nets: LIST OF NetDef _ NARROW[channelData]; UNTIL nets = NIL DO net: NetDef _ nets.first; eachNet[net.name, EnumerateChannelPins, net.exitLeftOrBottom, net.exitRightOrTop, net.mayExit, net.trunkSize, NIL, net.netData]; nets _ nets.rest; ENDLOOP}; EnumerateChannelPins: Route.EnumerateChannelPinsProc ~ { pins: LIST OF Route.Pin _ NARROW[netData]; UNTIL pins = NIL DO pin: Route.Pin _ pins.first; bottomOrLeft: BOOL _ pin.side = bottom; eachPin[bottomOrLeft, pin.min, pin.max, pin.depth, pin.layer]; pins _ pins.rest; ENDLOOP}; BrokenNet: Route.BrokenNetProc ~ { newLabel _ Rope.Cat[sourceNet, "-", Convert.RopeFromInt[regionNumber], "/", Convert.RopeFromInt[numberOfRegions]]}; NetDef: TYPE = REF NetDefRec; NetDefRec: TYPE = RECORD [ name: Rope.ROPE, exitLeftOrBottom, exitRightOrTop: BOOL _ FALSE, mayExit: BOOL _ TRUE, trunkSize: CD.Number _ 0, netData: LIST OF Route.Pin _ NIL]; name: Rope.ROPE _ "RouteTest8"; technology: CD.Technology _ CD.FetchTechnology[$cmosB]; metal: CD.Layer _ CD.FetchLayer[technology, $met]; metal2: CD.Layer _ CD.FetchLayer[technology, $met2]; rules: Route.DesignRulesParameters _ Route.DefaultDesignRulesParameters[technology, metal, metal2, horizontal]; a1: Route.Pin _ NEW[Route.PinRec _ [56944, 57744, 0, metal2, bottom]]; a2: Route.Pin _ NEW[Route.PinRec _ [57596, 57636, 0, metal2, top]]; a3: Route.Pin _ NEW[Route.PinRec _ [13916, 13956, 0, metal2, top]]; a: NetDef _ NEW[NetDefRec _ ["a", FALSE, FALSE, FALSE, 0, LIST[a1, a2, a3 ]]]; b1: Route.Pin _ NEW[Route.PinRec _ [57676, 58636, 0, metal2, top]]; b2: Route.Pin _ NEW[Route.PinRec _ [62212, 63012, 0, metal2, bottom]]; b: NetDef _ NEW[NetDefRec _ ["b", FALSE, FALSE, FALSE, 0, LIST[b1, b2]]]; nets: LIST OF NetDef _ LIST[a, b]; object: CD.Object _ Route.Channel[EnumerateChannelNets, 0, 71552, rules, name, BrokenNet, NIL, nets].object; design: CD.Design _ CDOps.CreateDesign[technology]; [ ] _ CDCells.IncludeOb[design: design, ob: object]; [ ] _ CDIO.WriteDesign[design, name]; END. tRouteTest8.mesa Copyright Ó 1985, 1987, 1988 by Xerox Corporation. All rights reserved. Last Edited by: Preas, May 2, 1988 2:43:22 pm PDT PROC [channelData: REF, eachNet: EachChannelNetProc]; PROC [channelData, netData: REF, eachPin: EachChannelPinProc]; [channelData, netData: REF, sourceNet: Label, regionNumber, numberOfRegions: NAT] RETURNS [newLabel: Label] ÊטJšœ™JšœH™HJšœ1™1J™šÏk œ˜ Jšœ œ6˜G—J˜šÐln œœ˜J˜Jšœœ œ˜6Jšœ˜J˜—šÏnœ$˜8Jšœœ™5Jšœœœ œ˜+codešœœ˜Jšœ˜Kšœnœ˜€Kšœ˜Kšœ˜ K˜——šŸœ$˜8Jšœœ™>Jšœœœ œ ˜*šœœ˜Jšœ˜Kšœœ˜'Kšœ>˜>Kšœ˜Kšœ˜ K˜——šŸ œ˜"Kšœœ3œœ™kKšœs˜sK˜—Jšœœœ ˜šœ œœ˜Jšœ œ˜Jšœ"œœ˜/Jšœ œœ˜Jšœ œ ˜Jšœ œœ œ˜"—J˜Jšœ˜Jšœ œœ˜7Jšœœ œ˜2Jšœœ œ˜4Jšœo˜oJšœœ3˜FJšœœ0˜CJšœœ0˜CJš œ œœœœœ˜NJšœœ0˜CJšœœ3˜FJš œ œœœœœ ˜IJšœœœ œ˜"JšœœPœ˜lJšœœ)˜3Jšœ4˜4J˜šœœ˜'J˜—Jšœ˜J˜J˜—…—® ù