DIRECTORY CD, Core, CoreFrame, CoreLibrary, CoreName, CoreWire, CoreXform, IFUCoreCells, IFUCoreData, CoreInstCell, PWCore, Rope;IFUCoreDataGPRowImpl: CEDAR PROGRAMIMPORTS CoreFrame, CoreLibrary, CoreName, CoreWire, CoreXform, IFUCoreCells, IFUCoreData, CoreInstCell, PWCore, Rope =BEGINROPE:	TYPE = Core.ROPE;Signal: SIGNAL = CODE;ExpandDataGPRowFrame: CoreFrame.ExpandProc = {	-- frameCTspecificBit: Core.CellType;obj:				CD.Object;nil:				ROPE							_ CoreName.RopeNm["nil"];data:				IFUCoreData.DpCellData	_ NARROW[frameCT.data];out0:				CoreWire.CWire				_ CoreWire.CWire[frameCT.public].f["out"].i[0];frame:				REF CoreFrame.FrameRec	_ NEW[CoreFrame.FrameRec _ [first: left]];domain:			INT _ CoreXform.XformSize[CoreXform.GetXform[out0]];frame.seq											_ NEW[CoreFrame.FrameSeq[domain*2]];FOR ii: INT DECREASING IN [0..domain) DOcwire:		CoreWire.CWire	_ [frameCT.public];renameProc: CoreInstCell.RenameProc = {new _ TranslateGenericName[cwire, ii, old]};in0: ROPE		_ cwire.f["in"].i[0].x[ii].n;in1: ROPE		_ cwire.f["in"].i[1].x[ii].n;gName: ROPE	_ data.type.x[ii].n;genCell:		Core.CellType _ IF out0.x[ii].n[]#nilTHEN		IFUCoreData.ConstantInputVariant[ gName, in0, in1 ]ELSE		CoreLibrary.Get[IFUCoreCells.library,		gName.Cat["Blank"]];IF genCell=NIL THEN Signal[];specificBit	_ CoreInstCell.SpecificGeneric[genCell, renameProc];frame.seq[ii*2+0] _ IFUCoreData.DpBitRoute[specificBit, genCell, cwire, ii, data.channels];frame.seq[ii*2+1] _ CoreFrame.NewFrameCell[0, NIL, [first: left, cell: specificBit]];ENDLOOP;frameCT.class	_ CoreFrame.frameCellClass;frameCT.data		_ frame;frame.cell			_ CoreFrame.RecastFrameHard[frameCT];IFUCoreData.BlockSides[frame.cell, [frameCT.public]];frame.seq			_ NEW[CoreFrame.FrameSeq[0]];	-- free the childrenobj _ PWCore.Layout[frame.cell];	-- Make sure PWCore is happy with constructionCoreFrame.SetFrameExpandProc[soft, frameCT, NIL];CoreFrame.SetFrameExpandProc[hard, frameCT, NIL] };VDD:		ROPE _ CoreName.RopeNm["VDD"];GND:		ROPE _ CoreName.RopeNm["GND"];inRp:		ROPE _ CoreName.RopeNm["in"];outRp:	ROPE _ CoreName.RopeNm["out"];ctl:		ROPE _ CoreName.RopeNm[""];TranslateGenericName: PROC[cwire: CoreWire.CWire, ii: INT, pinName: ROPE]RETURNS[name: ROPE_NIL] = {sig: CoreName.SigRec _ CoreName.NameSig[pinName];digit: INT _ IF sig.cy#-1 THEN sig.cy ELSE 0;SELECT sig.root FROMNIL		=> RETURN[cwire.f[	"in"	].i[ digit ].x[ii].n];inRp		=> RETURN[cwire.f[	"in"	].i[ digit ].x[ii].n];outRp		=> RETURN[cwire.f[	"out"	].i[ digit ].x[ii].n];GND		=> RETURN[cwire.f[	"pwr"	].i[ 0 ].x[ii].n];VDD		=> RETURN[cwire.f[	"pwr"	].i[ 1 ].x[ii].n];ctl			=> {IF name = NIL THEN name _ cwire.f[ "left"		].i[ digit ].x[ii].n;IF name = NIL THEN name _ cwire.f[ "right"	].i[ digit ].x[ii].n;IF name=NIL THEN Signal[]; RETURN[name]};ENDCASE => Signal[]; RETURN[name]};IFUCoreData.RegisterSubClassExpand	[hard,	"GPRow", ExpandDataGPRowFrame];IFUCoreData.RegisterSubClassExpand	[soft,	"GPRow", ExpandDataGPRowFrame];END.    –  IFUCoreDataGPRowImpl.mesa, Copyright c 1986 by Xerox Corporation.  All rights reserved.Last Edited by Curry, June 10, 1986 11:44:07 am PDT ‌ت  ک ڑœ™Jڑœ<™<Jڑœ3™3—J™ Jڑدk	œ‌œuکپJک ڑدnœ‌œ‌ک#Jڑ‌œoکvJڑ‌کJک Jڑ‌œ‌œ‌œکJ™ Jڑ‍œ‌œ‌œکJک ڑ‍œدc
ک9JڑœکJڑœکJڑœ‌œ ک,Jڑœ"‌œک7JڑœJکJJڑœ
‌œ‌œ%کKJڑœ
‌œ1ک>Jڑœ‌œک8ڑ	‌œ‌œ‌
œ‌œ‌ک(Jڑœ*ک*JڑœSکSJڑœ‌œک(Jڑœ‌œک(Jڑœ‌œک ڑœ‌œک/Jڑ‌œ5ک9Jڑ‌œ=کA—Jڑ‌œ	‌œ‌œ
کJڑœ@ک@Jڑœ[ک[Jڑœ.‌œ$کUJڑ‌œک—Jڑœ)ک)JڑœکJڑœ2ک2Jڑœ5ک5Jڑœ‌œںک>Jڑœ!ں.کOJڑœ,‌œک1Jڑœ,‌œک3—Jک Jڑ‌œ‌œک$Jڑ‌œ‌œک$Jڑœ‌œک$Jڑœ‌œک%Jڑœ‌œک!Jک Jک ڑ‍œ‌œ‌œ‌œکIJڑ‌œ‌œ‌œکJڑœ1ک1Jڑ	œ‌œ‌œ‌œ‌œک-ڑ‌œ
‌کJڑ‌œ‌œ%ک3Jڑœ	‌œ%ک4Jڑœ
‌œ&ک6Jڑ‌œ‌œ"ک0Jڑ‌œ‌œ"ک0ڑœ
ک
Jڑ‌œ‌œ‌œ.ک@Jڑ‌œ‌œ‌œ.ک@Jڑ‌œ‌œ‌œ‌œک)—Jڑ‌œ‌œک#Jک ——JڑœIکIJڑœIکIIcodeک Jک Jڑ‌œک—— …—    آ  h  