PWRouteTest.mesa
Copyright © 1984 by Xerox Corporation. All rights reversed.
Last Edited by: Monier, June 21, 1985 11:52:00 am PDT
Bertrand Serlet September 10, 1985 10:20:33 am PDT
Louis Monier August 22, 1985 1:11:41 pm PDT
DIRECTORY
PW, PWRoute, Rope;
PWRouteTest: CEDAR PROGRAM 
IMPORTS PW, PWRoute =
BEGIN
ROPE: TYPE = Rope.ROPE;
TestRouter: PW.UserProc =
BEGIN
Cells
left, right, top, bottom, test: PW.Object;
examples: PW.Design ← PW.OpenDesign["///PWTest.dale"];
left ← PW.Get[examples, "left"];
right ← PW.Get[examples, "right"];
top ← PW.Get[examples, "top"];
bottom ← PW.Get[examples, "bottom"];
test ← PWRoute.AbutRouteListX[design, LIST[left, right], LIST[top], LIST[bottom]];
RETURN[test];
END;
PW.Register[TestRouter, "TestRouter"];
END.