DIRECTORY 
CD, CDIO, CDOps, Core, CoreProperties, Rope, RTCoreUtil,  RTTestUtil, SC, -- SCNewGlobalRoute, SCNewWidth, SCPrivate, -- SCUtil; 

SCTestSmall: CEDAR PROGRAM

IMPORTS CDIO, CDOps, CoreProperties, RTCoreUtil, RTTestUtil, Rope, SC, -- SCPrivate, SCNewGlobalRoute, SCNewWidth, -- SCUtil
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];
handle: SC.Handle;
saParms: SC.SAParms;
initialResult: SC.SAInitialResult;

cdDesign: CD.Design _ CDOps.CreateDesign[libDesign.technology];
rules: SC.DesignRules _ SC.CreateDesignRules[cdDesign.technology.key, hMaterial, vMaterial, horizontal];
RTCoreUtil.PutCoreBoolProp[cellType, SC.usePublicPositionsProp, TRUE];
handle _ SC.CreateHandle[cellType: cellType, flattenCellType: NIL, libName: libName, designRules: rules, name: "SCTestSmall"];
CoreProperties.PutCellTypeProp[cellType, SC.investmentProp, SC.veryLongValue];
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];
initialResult _ SC.SAInitialPlace[handle];
saParms _ SC.SAGetParms[handle, initialResult, cellType];
SC.SAPlaceImprove[handle: handle, saParms: saParms, widthFactor: 1.1];
SC.GlobalRoute[handle];
-- SCNewGlobalRoute.GlobalRouteAllNets[handle];
-- SCPrivate.NewPosImprove[handle, areaFom, 2];
-- SCPrivate.NewPosImprove[handle, areaFom, 10];
-- SCNewWidth.ComputeAllChanDW[handle, areaFom];
result _ SC.DetailRoute[handle];
RTTestUtil.WriteLayout[result.object, handle.name, cdDesign];
SC.Destroy[handle];

END.
�����SCTestSmall.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:22:19 am PST
Jean-Marc Frailong October 14, 1987 6:14:10 pm PDT
Cong, August 27, 1987 2:58:46 pm PDT
Frank Bowers December 20, 1985 2:38:20 pm PST
Bryan Preas August 25, 1987 10:40:01 am PDT

To test the standard cell test package: SCTestSmall.cm

RTCoreUtil.PutCoreRealProp[cellType,  SC.t0SA, 300000.0];
RTCoreUtil.PutCoreRealProp[cellType,  SC.maxTStepSA, 0.985];
RTCoreUtil.PutCoreRealProp[cellType,  SC.lambdaSA, 0.1];
RTCoreUtil.PutCoreIntProp[cellType,  SC.tableSizeSA, 500];
RTCoreUtil.PutCoreIntProp[cellType,  SC.limitSA, 900];
SC.SAPlaceImproveM[handle: handle, saParms: saParms, widthFactor: 1.3];
SC.PlaceImprove[handle: handle, maxCycles: 6];
SC.PlaceImprove[handle, 1];
SC.PlaceImprove[handle, 5];
SC.PosImproveWL[handle, 1];
SC.OrientImproveWL[handle, 1];
SC.PosImprove[handle, 1];
SC.OrientImprove[handle, 1];
SC.FTImprove[handle, 10];
�Êu��˜�codešœ™KšœB™BKšœ5Ïk™8K™3K™2šœ$™$Kšœ*™-Kšœ+™+K™�—K™6—K™�š	œ˜
Kšœœ>œÏc.œ	˜—K˜�šÏnœœ˜K˜�Kšœœ7œž.œ˜|Kšœœ˜K˜�—Kšœœ˜Kšœœ˜&Kšœœ˜Kšœœ˜ Kš	œœ
œœœ˜QKšœ9˜9Kšœœ˜Kšœ	œ	˜Kšœœ˜"K˜�Kšœ
œ3˜?KšœœœN˜hKšœ%œœ˜FKšœ	œ3œ=˜~Kšœ)œœ˜NKšœ9™9Kšœ<™<Kšœ8™8Kšœ:™:Kšœ6™6Kšœ˜Kšœ˜Jšœœœœe˜Kšœ&˜&Kšœ˜Kšœœ˜*Kšœ
œ-˜9KšœD˜FKšœG™GKšœ.™.Kšœ™Kšœ˜Kšœ/˜/Jšœ/˜/Kšœ™Kšœ™Kšœ™Kšœ™Kšœ™Kšœ™K˜0KšœŸœ˜0Kšœ	œ˜ Kšœ=˜=Kšœ˜K˜�Kšœ˜—�…—����^��
ã��