SmallCachePmCodeTest.mesa
Don Curry January 21, 1988 1:24:34 pm PST
DIRECTORY
CD, CDDirectory, CDIO, CDOps, CDViewer, Core, CoreProperties, IO, PWCore, Rope, Sisyph;
SmallCachePmCodeTest:
CEDAR
PROGRAM
IMPORTS CDDirectory, CDIO, CDOps, CDViewer, CoreProperties, PWCore, Rope, Sisyph =
BEGIN
design: CD.Design ← CDViewer.FindDesign["SmallCachePmCodeTest"];
cx: Sisyph.Context ← Sisyph.Create[design];
nms:
LIST
OF
IO.
ROPE ←
LIST[
"SCPnPCnRegPLA",
"SCPPCnRegPLA",
"SCPnPCnRegSC",
"SCPPCnRegSC",
"SCPnPCRegSC",
"SCPPCRegSC"];
FOR nms ← nms, nms.rest
WHILE nms#
NIL
DO
nm: IO.ROPE ← nms.first.Cat[".icon"];
ct: Core.CellType ← Sisyph.ES[nm, cx];
obj: CD.Object;
subDes: CD.Design ← CDOps.CreateDesign[design.technology];
IF nm.Find["RegSC"]#-1 THEN CoreProperties.PutCellTypeProp[ct, $Layout, $SC];
obj ← PWCore.Layout[ct];
[] ← CDDirectory.Include [subDes, obj, nms.first.Cat[".mask"]];
[] ← CDOps.IncludeObject [subDes, obj];
[] ← CDOps.RenameDesign [subDes, nms.first];
[] ← CDIO.WriteDesign [subDes, nms.first];
ENDLOOP;
END.