IFUExtract.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bertrand Serlet August 23, 1987 3:20:46 am PDT
Statistics on
← CedarProcess.SetPriority[background]
Install RawExtract
← &mode ← SinixCMosB.mode
TakeHeapstats
← &design ← PW.OpenDesign["IFULayout.dale"]
← CDViewer.CreateViewer[&design, FALSE]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "PadBlank"], $CMosBExtractProc, $ExtractCellAsWire]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "LogoJune87.icon"], $CMosBExtractProc, $ExtractNull]
← &obj ← CDDirectory.Fetch[&design, "IFU"]
TakeHeapstats -d
date
← &ct ← Sinix.Extract[&obj, &mode].result
date
TakeHeapstats -d
← CoreIO.ReportSaveCellType[&ct]
← &padsDesign ← PW.OpenDesign["IFUPadFrame.dale"]
← &source ← Sisyph.ES["IFUPadFrame.icon", Sisyph.Create[&padsDesign]]
← &new ← ExtractUtilities.MatchSourceToExtracted[Sisyph.mode.decoration, &mode.decoration, CD.commentLayer, CMosB.ovg, &source, &ct, "NewIFU"]
← CoreIO.ReportSaveCellType[&new]
← &ct ← CoreIO.RestoreCellType["IFU"]
← &ct ← CoreOps.Recast[&ct]
← &mode ← SinixCMosB.mode
← &obj ← CoreGeometry.GetObject[&mode.decoration, &ct]
← &design ← PW.Draw[&obj]
← TestHighlight.StaticCheckReportGeometrically[&mode.decoration, &design, &obj, &ct]
← ExtractUtilities.CleanUpDecorations[&mode.decoration, &new]
← CoreOps.SetCellTypeName[&new, "SmallNewIFU"]
← CoreIO.ReportSaveCellType[&new]
Copy -c IFU.core ← SmallNewIFU.core
RollBackAnd ClusterIFU