DIRECTORY CDRects, CMosB, PW, PWObjects, Rope; TestPW: CEDAR PROGRAM IMPORTS CDRects, CMosB, PW, PWObjects = BEGIN l: INT = CMosB.cmosB.lambda; ROPE: TYPE = Rope.ROPE; examples: PW.Design _ PW.OpenDesign["TestPW.dale"]; TestPWX: PW.UserProc = BEGIN a, b, test: PW.Object; a _ PW.Get[examples, "a"]; b _ PW.Get[examples, "b"]; test _ PW.AbutX[a, b]; RETURN[test]; END; TestPWSharedY: PW.UserProc = BEGIN a, b, test: PW.Object; a _ PW.Rot90[PW.Get[examples, "a"]]; b _ PW.Rot90[PW.Get[examples, "b"]]; test _ PW.SharedAbutListY[LIST[a, b, a, b, a]]; RETURN[test]; END; TestMapFunction: PW.UserProc = BEGIN contact, noContact, edge, test: PW.Object; BinaryCount: PW.XYFunction = {RETURN[ SELECT TRUE FROM y=0 => edge, PW.XthBitOfN[y-1, x] => contact, ENDCASE => noContact]}; contact _ PW.Get[examples, "contact"]; edge _ PW.Get[examples, "edge"]; noContact _ PW.Inst[contact, LIST["contact"]]; test _ PW.MapFunction[BinaryCount, 0, 16, 0, 4]; RETURN[test]; END; TestRoutingCell: PW.UserProc = { node: PWObjects.Node _ PWObjects.CreateNode[LIST[[CDRects.CreateRect[[10 * l, 4 * l], CMosB.met], [0, 5 * l]]]]; RETURN [PWObjects.CreateRouting[[0, 0, 10 * l, 13 * l], LIST [node]]]; }; PW.Register[TestPWX, "TestPWX"]; PW.Register[TestPWSharedY, "TestPWSharedY"]; PW.Register[TestMapFunction, "TestMapFunction"]; PW.Register[TestRoutingCell, "TestRoutingCell"]; END. TestPW.mesa Copyright c 1984, 1985, 1986 by Xerox Corporation. All rights reversed. Last Edited by: Monier, June 21, 1985 11:52:00 am PDT Bertrand Serlet December 7, 1986 10:01:13 pm PST Louis Monier August 22, 1985 1:11:41 pm PDT -- Cells n: INT; -- Cells n: INT; Cells ΚΜ˜– "Cedar" stylešœ ™ Jšœ Οmœ=™HJšœ2Οk™5Icodešœ0™0Kšœ(ž™+J˜—šž œ˜ Jšœžœ˜$—J˜š Οnœžœžœžœžœžœ˜DJ˜—JšΟgœžœ˜šžœžœžœ˜J˜—šœ žœ žœ˜3J˜—šŸœžœ ˜Jšž˜JšΟc ™ Jšœ žœ˜Jšœžœ™Jšœžœ˜Jšœžœ˜Jšœžœ ˜Jšžœ˜ Jšžœ˜J™—šŸ œžœ ˜Jšž˜Jš‘ ™ Jšœ žœ˜Jšœžœ™Jšœžœžœ˜$Jšœžœžœ˜$Jšœžœžœ˜/Jšžœ˜ Jšžœ˜J™—šΠbnœžœ ˜Jšž˜Jšœ™Jšœ žœ˜*šŸ œžœ˜šœžœ˜šžœžœž˜Jšœ ˜ Jšžœ˜ Jšžœ˜———J˜Jšœ žœ˜&Jšœžœ˜ Jšœ žœžœ ˜.Jšœžœ'˜0Jšžœ˜ Jšžœ˜J˜—šŸœžœ ˜ Jšœ,žœ  œ œ˜pJšžœ& œ œžœ ˜FJ˜J˜—Jšžœ˜ Jšžœ*˜,Jšžœ.˜0Jšžœ.˜0Jšžœ˜J™—…—^ F