IFURawExtract.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bertrand Serlet August 3, 1987 5:33:48 pm PDT
Statistics on
← CedarProcess.SetPriority[background]
Install RawExtract
← &mode ← SinixRawCMosB.mode
← SinixRawCMosBImpl.justKeepOne ← TRUE
TakeHeapstats
← &design ← PW.OpenDesign["IFUCompleteLayout.dale"]
← CDViewer.CreateViewer[&design, FALSE]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "PadBlank"], $RawCMosBExtractProc, $ExtractCellAsWire]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "LogoJune87.icon"], $RawCMosBExtractProc, $ExtractNull]
← SinixRawCMosBImpl.Mark[&design]
← &DataColumn ← CDDirectory.Fetch[&design, "DataColumn"]
← &LeftColumn ← CDDirectory.Fetch[&design, "LeftColumn"]
← &RightColumn ← CDDirectory.Fetch[&design, "RightColumn"]
← CDProperties.PutProp[&DataColumn, $RawFlatten, NIL]
← CDProperties.PutProp[&LeftColumn, $RawFlatten, NIL]
← CDProperties.PutProp[&RightColumn, $RawFlatten, NIL]
-- We generate bits of it!
← &ct ← Sinix.Extract[&DataColumn, &mode, NIL, NEW [INT ← 40]].result
← CoreIO.ReportSaveCellType[&ct]
← CDProperties.PutProp[&DataColumn, $RawCMosBExtractProc, $PreExtracted]
← &ct ← Sinix.Extract[&LeftColumn, &mode, NIL, NEW [INT ← 40]].result
← CoreIO.ReportSaveCellType[&ct]
← CDProperties.PutProp[&LeftColumn, $RawCMosBExtractProc, $PreExtracted]
← &ct ← Sinix.Extract[&RightColumn, &mode, NIL, NEW [INT ← 40]].result
← CoreIO.ReportSaveCellType[&ct]
← CDProperties.PutProp[&RightColumn, $RawCMosBExtractProc, $PreExtracted]
← &obj ← CDDirectory.Fetch[&design, "IFU"]
TakeHeapstats -d
date
← &ct ← Sinix.Extract[&obj, &mode, NIL, NEW [INT ← 0]].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, "RawIFU"]
← CoreIO.ReportSaveCellType[&new]
ClusterIFURaw.cm