DIRECTORY CD, CDCells, CDDirectory, CDIO, CDOps, Rope, Route, RouteUtil, TerminalIO; RouteTestD: CEDAR PROGRAM IMPORTS CD, CDCells, CDDirectory, CDIO, CDOps, Rope, Route, RouteUtil, TerminalIO SHARES Route = BEGIN c1, c2, d1, d2: Route.Pin; c1cd, c2cd, d1cd, d2cd: CD.Instance; result: Route.RoutingResult; design: CD.Design; object: CD.Object; technology: CD.Technology _ CD.FetchTechnology[$cmos]; metal: Route.Layer _ CD.FetchLayer[technology, $met]; metal2: Route.Layer _ CD.FetchLayer[technology, $met2]; rules: Route.DesignRules _ Route.CreateDesignRules[$cmos, metal, metal2, vertical]; routingArea: Route.RoutingArea _ Route.CreateRoutingArea["RouteTestD", rules]; Route.IncludeRoutingAreaSide[routingArea, left, [26, 0]]; Route.IncludeRoutingAreaSide[routingArea, right, [0, 0]]; c1cd _ RouteUtil.CreateCDPin["c1", [26, 90, 22, 110], metal]; c1 _ Route.CreatePin[c1cd, left]; c2cd _ RouteUtil.CreateCDPin["c2", [0, 134, 4, 138], metal]; c2 _ Route.CreatePin[c2cd, right]; Route.IncludeNet[routingArea, "c", LIST[c1, c2]]; d1cd _ RouteUtil.CreateCDPin["d1", [26, 134, 22, 138], metal]; d1 _ Route.CreatePin[d1cd, left]; d2cd _ RouteUtil.CreateCDPin["d2", [0, 100, 4, 104], metal]; d2 _ Route.CreatePin[d2cd, right]; Route.IncludeNet[routingArea, "d", LIST[d1, d2]]; result _ Route.ChannelRoute[routingArea, [[0, 0], [40, 0], [0, 200], [0, 0]], [0, 0, 40, 150], full]; design _ CDOps.CreateDesign[technology]; object _ Route.RetrieveRouting[result, result.routingArea.name, NIL, NIL].object; [ ] _ CDCells.IncludeOb[design: design, ob: object]; IF CDIO.WriteDesign[design, result.routingArea.name] THEN BEGIN newCellName: Rope.ROPE _ CDDirectory.Name[object]; IF ~Rope.Equal[result.routingArea.name, newCellName] THEN TerminalIO.PutRope[Rope.Cat["cell name changed to: ", newCellName, "\n"]]; END ELSE TerminalIO.PutRope["Error: design not written\n"]; END. ΐ///route/RouteTestD.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by: Preas, July 17, 1985 11:44:46 am PDT Bryan Preas December 18, 1986 2:30:04 pm PST ΚΑ˜Jšœ™Jšœ Οmœ1™<™4Icode™,—J™šΟk œ˜ Jšžœžœ,˜J—J˜šœ žœž˜J˜Jšžœžœžœ+˜QJšžœ˜—˜Jšž˜Jšœ˜Jšœ$˜$Jšœ˜Jšœžœ˜Jšœžœ˜J˜Jšœ žœžœ˜6Jšœ5˜5Jšœ7˜7JšœS˜SJšœN˜NJšœ9˜9Jšœ9˜9Jšœ=˜=Jšœ!˜!Jšœ<˜˜>Jšœ!˜!Jšœ<˜