EURawExtract.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bertrand Serlet September 17, 1987 4:00:47 pm PDT
Assertions on the file EUCompleteLayout are that it contains the cells RamControl, SCControl, DPControl, DataPath, PadBlank, Name.pict, Logo2, CopyRight.pict, EU (top level one)
Statistics on
Install RawExtract
← &mode ← SinixRawCMosB.mode
← SinixRawCMosBImpl.justKeepOne ← TRUE
TakeHeapstats
← &design ← PW.OpenDesign["EUCompleteLayout"]
← CDViewer.CreateViewer[&design, FALSE]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "PadBlank"], $RawCMosBExtractProc, $ExtractCellAsWireWithPins]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "Name.pict"], $RawCMosBExtractProc, $ExtractNull]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "Logo2"], $RawCMosBExtractProc, $ExtractNull]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "CopyRight.pict"], $RawCMosBExtractProc, $ExtractNull]
← SinixRawCMosBImpl.Mark[&design]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "RamControl"], $RawFlatten, NIL]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "SCControl"], $RawFlatten, NIL]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "DPControl"], $RawFlatten, NIL]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "DataPath"], $RawFlatten, NIL]
← &obj ← CDDirectory.Fetch[&design, "EU"]
TakeHeapstats -d
date
← &ct ← Sinix.Extract[&obj, &mode, NIL, NEW [INT ← 0]].result
date
TakeHeapstats -d
← CoreIO.ReportSaveCellType[&ct]
← &padsDesign ← PW.OpenDesign["EU4Top"]
← &source ← Sisyph.ES["EUTop.sch", Sisyph.Create[&padsDesign]]
← &new ← ExtractUtilities.MatchSourceToExtracted[Sisyph.mode.decoration, &mode.decoration, CD.commentLayer, CMosB.ovg, &source, &ct, "RawEU"]
← CoreIO.ReportSaveCellType[&new]
Install Rosemary PWCore
← RosemaryImpl.sizeHackEnable ← TRUE
Run -a EUUtilsImpl EUArithImpl
run -a EUSim
← &tester ← EUSim.ExerciseRose[&new, NIL]
← &sim ← &tester.display.simulation
← Rosemary.Initialize[simulation: &sim, steady: FALSE]
← EUSim.Register[usingTester: FALSE]
← RosemaryUser.StartTest[&tester]