PWRouteTestB.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reversed.
Bryan Preas March 26, 1986 6:06:29 pm PST
Use with the file PWRouteTestB.dale to test routing:
CDCmosB
PWRoute.load
cdread PWRouteTest -- NOTE: PWRouteTest.dale must be in the /// directory
run PWRouteTest
middle click P in the ChipNDale viewer
select the appropriate generator
DIRECTORY
CD, CDBasics, PW, PWRoute, Rope;
PWRouteTestB: CEDAR PROGRAM
IMPORTS CD, CDBasics, PW, PWRoute, Rope =
BEGIN
IRSize: PROC [obj: PW.Object] RETURNS [size: CD.Position] =
{size ← CDBasics.SizeOfRect[CD.InterestRect[obj]]};
TestIFUA: PW.UserProc =
BEGIN
routerParams: PWRoute.RouterParams ← NEW[PWRoute.RouterParamsRec ← ["metal", "metal2", design.technology.key]];
left: PW.Object ← PW.Get[design, "IFUALeft"];
right: PW.Object ← PW.Get[design, "IFUARight"];
top: PW.Object ← NIL;
bottom: PW.Object ← PW.Get[design, "IFUABottom"];
test: PW.Object ← PWRoute.MakeChannel[bottom, top, left, right, NIL -- rect --, routerParams, FALSE, channel];
test: PW.Object ← PWRoute.AbutChRouteListY[LIST[bottom, top], LIST[left], LIST[right], routerParams];
RETURN[test];
END;
EUWireWidth: PWRoute.WireWidthProc ~ {
IF Rope.Equal[netName, "Vdd"] OR Rope.Equal[netName, "Gnd"] THEN wireWidth ← 736
ELSE wireWidth ← 32};
TestEURightChannel: PW.UserProc =
BEGIN
use design RightChannel.dale
routerParams: PWRoute.RouterParams ← NEW[PWRoute.RouterParamsRec ← [trunkLayer: "metal2", branchLayer: "metal", technologyKey: design.technology.key, wireWidthProc: EUWireWidth]];
left: PW.Object ← PW.Get[design, "EUALeft"];
right: PW.Object ← PW.Get[design, "EUARight"];
top: PW.Object ← PW.Get[design, "EUATop"];
bottom: PW.Object ← PW.Get[design, "EUABottom"];
test: PW.Object ← PWRoute.AbutChRouteListX[LIST[left, right], LIST[bottom], LIST[top], routerParams];
RETURN[test];
END;
TestEUControl: PW.UserProc =
BEGIN
use design EUControl.dale
routerParams: PWRoute.RouterParams ← NEW[PWRoute.RouterParamsRec ← [trunkLayer: "metal", branchLayer: "metal2", technologyKey: design.technology.key]];
left: PW.Object ← PW.Get[design, "EULeft"];
right: PW.Object ← PW.Get[design, "EURight"];
top: PW.Object ← PW.Get[design, "EUTop"];
bottom: PW.Object ← PW.Get[design, "EUBottom"];
test: PW.Object ← PWRoute.AbutChRouteListY[LIST[bottom, top], LIST[left], LIST[right], routerParams];
RETURN[test];
END;
TestSb2SidesB: PW.UserProc =
BEGIN
routerParams: PWRoute.RouterParams ← NEW[PWRoute.RouterParamsRec ← [trunkLayer: "metal", branchLayer: "metal2", signalSinglePinNets: TRUE]];
vertical: PW.Object ← PW.Get[design, "Vertical"];
horizontal: PW.Object ← PW.Get[design, "Horizontal"];
sb: PW.Object ← PWRoute.AbutSbRoute[NIL, vertical, horizontal, NIL, horizontal, routerParams];
row: PW.Object ← PW.AbutListX[LIST[sb, vertical]];
test: PW.Object ← PW.CreateEmptyCell[];
dy: INT ← IRSize[row].y;
[] ← PW.IncludeInCell[test, horizontal, [0, dy]];
[] ← PW.IncludeInCell[test, row, [0 , 0]];
PW.RepositionCell[test];
RETURN[test];
END;
TestIFULeftColumn: PW.UserProc =
BEGIN
use design IFULeftColumn.dale
routerParams: PWRoute.RouterParams ← NEW[PWRoute.RouterParamsRec ← [trunkLayer: "metal2", branchLayer: "metal", technologyKey: design.technology.key, opt: noIncompletes]];
left: PW.Object ← PW.Get[design, "IFULtColumnLeft"];
right: PW.Object ← PW.Get[design, "IFULtColumnRight"];
bottom: PW.Object ← PW.Get[design, "IFULtColumnBottom"];
test: PW.Object ← PWRoute.AbutChRouteListX[LIST[left, right], LIST[bottom], NIL, routerParams];
RETURN[test];
END;
PW.Register[TestIFULeftColumn, "TestIFULeftColumn"];
PW.Register[TestEURightChannel, "TestEURightChannel"];
PW.Register[TestEUControl, "TestEUControl"];
PW.Register[TestIFUA, "TestIFUControl"];
PW.Register[TestSb2SidesB, "TestSb2SidesB"];
END.