SCExprTestSmall.mesa
Copyright Ó 1985, 1987 by Xerox Corporation. All rights reserved.
Last Edited by: Preas, September 5, 1985 10:39:21 am PDT
Christian Le Cocq December 10, 1987 10:21:57 am PST
Jean-Marc Frailong October 14, 1987 6:12:00 pm PDT
Cong, August 27, 1987 2:58:46 pm PDT
Frank Bowers December 20, 1985 2:38:20 pm PST
Bryan Preas March 26, 1988 2:07:49 pm PST
To test the standard cell test package: SCTestSmall.cm
DIRECTORY
CD, CDIO, CDOps, Core, Rope, RTCoreUtil, RTTestUtil, SC, SCExprGlobalRoute, SCNewWidth, SCPrivate, SCUtil;
SCExprTestSmall:
CEDAR
PROGRAM
IMPORTS CDIO, CDOps, -- RTCoreUtil, -- RTTestUtil, Rope, SC, SCExprGlobalRoute, SCNewWidth, SCUtil -- SCPrivate, --
SHARES SC = BEGIN
result: SC.Result;
libName: Rope.ROPE ←"SCLibCMOSB.dale";
hMaterial: Rope.ROPE ← "metal";
vMaterial: Rope.ROPE ← "metal2";
libDesign: CD.Design ← CDIO.ReadDesign[libName, NIL, CDIO.GetWorkingDirectory[]];
cellType: Core.CellType ← RTTestUtil.CreateCore[libName];
cdDesign: CD.Design ← CDOps.CreateDesign[libDesign.technology];
rules: SC.DesignRules ← SC.CreateDesignRules[cdDesign.technology.key, hMaterial, vMaterial, horizontal];
handle: SC.Handle ← SC.CreateHandle[cellType: cellType, flattenCellType: NIL, libName: libName, designRules: rules, name: "SCExprTestSmall"];
SC.InitialPlace[handle, 5];
SCUtil.WriteTWFiles[handle];
IF SCUtil.TWIt[handle.name]#NIL THEN SC.Error[callingError, Rope.Cat["Problem on Unix Placement Server. Check file ", handle.name, ".out"]];
SCUtil.ReadTWPlace[handle: handle];
SC.InitialPlace[handle, 5];
SCExprGlobalRoute.GlobalRouteAllNets[handle];
SCPrivate.NewPosImprove[handle, areaFom, 2];
SCNewWidth.ComputeAllChanDW[handle, areaFom];
result ← SCExprGlobalRoute.DetailRoute[handle];
RTTestUtil.WriteLayout[result.object, handle.name, cdDesign];
SC.Destroy[handle];
END.