<> <> <> <> DIRECTORY NMosContacts, CD, CDCallSpecific, CDIO, CDBasics, CDLRUCache, CDOrient, CDStretchyExtras, NMos, Rope, TokenIO; NMosContactsImpl: CEDAR PROGRAM IMPORTS CDCallSpecific, CDBasics, CDIO, CDLRUCache, CDOrient, CDStretchyExtras, NMos, TokenIO EXPORTS NMosContacts = BEGIN OPEN NMos; lambda: CD.DesignNumber = CD.lambda; ContactType: TYPE = NMosContacts.ContactType; ContactPtr: TYPE = NMosContacts.ContactPtr; ContactRec: TYPE = NMosContacts.ContactRec; wXExtension: CD.DesignNumber = 2*lambda; lXExtension: CD.DesignNumber = 2*lambda; difCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; polyCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; dsCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; butCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; burCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; mmCache: CDLRUCache.LRUCache = CDLRUCache.Create[size: 5, aequivalenceProc: Aequivalent, newProc: NewCont]; ToPosition: PROC [x: REF] RETURNS [p: CD.DesignPosition] = <<--y field defaults to lambda, x field defaults to 0>> <<--[0, 0] if not done>> BEGIN IF x=NIL THEN p _ [0, lambda] ELSE WITH x SELECT FROM rp: REF CD.DesignPosition => p _ rp^; rn: REF CD.DesignNumber => p _ [0, rn^]; ENDCASE => p _ [0, 0]; END; Aequivalent: PROC[mySpecific, other: REF ANY] RETURNS [BOOL] = { WITH other SELECT FROM p2: ContactPtr => RETURN [NARROW[mySpecific, ContactPtr]^=p2^]; ENDCASE => RETURN [FALSE] }; NewCont: PROC [] RETURNS [CD.ObPtr] = { ob: CD.ObPtr _ NEW[CD.ObjectDefinition]; ob.specificRef _ NEW[ContactRec]; RETURN [ob] }; MatchContact: PROC [me: CD.ObPtr, r: CD.DesignRect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL] = BEGIN IF layer=me.layer THEN RETURN [TRUE] ELSE { cp: ContactPtr = NARROW[me.specificRef]; RETURN [ SELECT cp.typ FROM burr => (layer=NMos.pol), mDif => (layer=NMos.met), difShort => FALSE, butt => (layer=NMos.met OR layer=NMos.pol), mPol => (layer=NMos.met), mm2 => (layer=NMos.met2), ENDCASE => FALSE ] } END; Describe: PROC[me: CD.ObPtr] RETURNS [Rope.ROPE] = BEGIN RETURN [ SELECT NARROW[me.specificRef, ContactPtr].typ FROM burr => "buried contact", mDif => "dif contact", difShort => "dif-short contact", butt => "button contact", mPol => "poly contact", mm2 => "via", ENDCASE => "unknown contact" ] END; <<-- Dif and Pol -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- >> pForDifPolCon: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactDifAndPol]; difpolRimWidth: CD.DesignNumber = lambda; CreateDifCon: PUBLIC PROC [l: CD.DesignNumber] RETURNS [CD.ObPtr] = <<--connect diffusion with metal>> BEGIN cob: CD.ObPtr ~ difCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; l _ MAX[l, butConSX]; cp.typ _ mDif; cob.p _ pForDifPolCon; -- does not use specicRef ! cob.layer _ dif; cob.size _ [butConSX, l]; RETURN [difCache.ReplaceByAequivalent[cob]] END; CreatePolyCon: PUBLIC PROC [l: CD.DesignNumber] RETURNS [CD.ObPtr] = <<--connect poly with metal>> BEGIN cob: CD.ObPtr ~ polyCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; l _ MAX[l, butConSX]; cp.typ _ mPol; cob.p _ pForDifPolCon; -- does not use specicRef ! cob.size _ [butConSX, l]; cob.layer _ pol; RETURN [polyCache.ReplaceByAequivalent[cob]] END; LengthenDifPol: CDCallSpecific.CallProc = BEGIN amount: CD.DesignPosition = ToPosition[x]; IF amount.y=0 OR amount.x#0 THEN done _ FALSE ELSE { cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application _ aptr^]; sz: CD.DesignPosition _ CDBasics.AddPoints[aptr.ob.size, amount]; IF sz.x<=0 OR sz.y<=0 THEN {done _ FALSE; RETURN}; IF aptr.ob.layer=pol THEN ap.ob _ CreatePolyCon[sz.y] ELSE ap.ob _ CreateDifCon[sz.y]; include _ LIST[ap]; removeMe _ TRUE; repaintMe _ amount.y<0; repaintInclude _ amount.y>0; } END; DefaultenDifPol: CDCallSpecific.CallProc = BEGIN cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; IF aptr.ob.layer=pol THEN ap.ob _ CreatePolyCon[4*lambda] ELSE ap.ob _ CreateDifCon[4*lambda]; include _ LIST[ap]; removeMe _ TRUE; repaintMe _ TRUE; repaintInclude _ TRUE; END; ReadDifPolCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = BEGIN lev: CD.Layer = CDIO.ReadLayer[]; IF lev=pol THEN RETURN [ CreatePolyCon[TokenIO.ReadInt[]] ] ELSE RETURN [ CreateDifCon[TokenIO.ReadInt[]] ] END; WriteDifPolCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- = BEGIN CDIO.WriteLayer[me.layer]; TokenIO.WriteInt[me.size.y]; END; SetLengthDifPol: CDCallSpecific.CallProc = BEGIN newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^; oldLength: CD.DesignNumber _ aptr.ob.size.y; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; IF aptr.ob.layer=dif THEN ap.ob _ CreateDifCon[newLength] ELSE ap.ob _ CreatePolyCon[newLength]; include_LIST[ap]; removeMe_TRUE; IF newLength>oldLength THEN repaintInclude_TRUE ELSE repaintMe_TRUE; END; DrawDifAndPolContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation, pr: CD.DrawRef] = <<--does not read specificRef !!!!!!>> BEGIN IF CDBasics.Intersect[CDOrient.RectAt[pos, aptr.ob.size, orient], pr.interestClip] THEN BEGIN r: CD.DesignRect = CDOrient.RectAt[pos, aptr.ob.size, orient]; pr.drawRect[r, met, pr]; pr.drawRect[r, aptr.ob.layer, pr]; pr.saveRect[CDBasics.Extend[r, -difpolRimWidth], cut, pr]; END END; <<-- DifShort -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- >> pForDifShorts: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactDifShort]; difShortRimWidth: CD.DesignNumber = lambda; CreateDifShortCon: PUBLIC PROC [] RETURNS [CD.ObPtr] = BEGIN cob: CD.ObPtr ~ dsCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; cp.typ _ difShort; cob.p _ pForDifShorts; cob.layer _ dif; cob.size _ [butConSX, 8*lambda]; RETURN [dsCache.ReplaceByAequivalent[cob]] END; ReadDifShortCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = BEGIN RETURN [ CreateDifShortCon[] ] END; WriteDifShortCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- = BEGIN END; DrawDifShortContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation, pr: CD.DrawRef] = BEGIN Draw: PROC[r: CD.DesignRect, l: CD.Layer] = INLINE <> BEGIN pr.drawRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; Save: PROC[r: CD.DesignRect, l: CD.Layer] = INLINE <> BEGIN pr.saveRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; IF CDBasics.Intersect[CDOrient.RectAt[pos, aptr.ob.size, orient], pr.interestClip] THEN BEGIN r: CD.DesignRect = CDOrient.RectAt[[0, 0], aptr.ob.size]; mr: CD.DesignRect = CDBasics.Extend[r, -difShortRimWidth]; h: CD.DesignNumber = (r.y2-r.y1)/2; Draw[r, met]; Draw[[x1: r.x1, y1: r.y1, x2: r.x2, y2: r.y1+h], aptr.ob.layer]; Draw[[x1: r.x1, y1: r.y1+h, x2: r.x2, y2: r.y2], nwelCont]; Save[[x1: mr.x1, x2: mr.x2, y1: mr.y1, y2: mr.y1+2*lambda], cut]; Save[[x1: mr.x1, x2: mr.x2, y1: mr.y2-2*lambda, y2: mr.y2], cut]; END END; -- But -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- pForButContact: REF CD.ObjectProcs ~ RegisterObjectType[$NMosContactBut]; butConSX: CD.DesignNumber = 4*lambda; butConSY: CD.DesignNumber = 6*lambda; butContactPolyYS: CD.DesignNumber = 3*lambda; butContactDiffY: CD.DesignNumber = butContactPolyYS-lambda; butContactRimWidth: CD.DesignNumber = lambda; CreateButCon: PUBLIC PROC [] RETURNS [CD.ObPtr] = <<--connects metal with poly and diffusion>> BEGIN cob: CD.ObPtr ~ butCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; cp.typ _ butt; cob.p _ pForButContact; cob.layer _ dif; cob.size _ [butConSX, butConSY]; RETURN [butCache.ReplaceByAequivalent[cob]] END; ReadButCon: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = BEGIN RETURN [ CreateButCon[] ] END; WriteButCon: CD.InternalWriteProc -- PROC [me: ObPtr] -- = BEGIN END; DrawButContact: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation, pr: CD.DrawRef] = BEGIN Draw: PROC[r: CD.DesignRect, l: CD.Layer] = INLINE <<--uses outer stuff!!>> BEGIN pr.drawRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; Save: PROC[r: CD.DesignRect, l: CD.Layer] = INLINE <<--uses outer stuff!!>> BEGIN pr.drawRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; <<--DrawButContact>> Draw[[0, 0, butConSX, butConSY], met]; Draw[[0, 0, butConSX, butContactPolyYS], pol]; Draw[[0, butContactDiffY, butConSX, butConSY], aptr.ob.layer]; Save[[butContactRimWidth, butContactRimWidth, butConSX-butContactRimWidth, butConSY-butContactRimWidth], cut]; END; <<-- Bur -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- >> pForBurCon: REF CD.ObjectProcs ~ RegisterObjectType[$NMosBurContact]; <<>> CreateBurCon: PUBLIC PROC [w, l: CD.DesignNumber, wex: CD.DesignNumber_wXExtension, lex: CD.DesignNumber_lXExtension] RETURNS [CD.ObPtr] = <<-- connects diffusion with poly without accessing metal>> BEGIN cob: CD.ObPtr ~ burCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; burAct: CD.DesignNumber = 2*lambda; actWidth, xMargins: CD.DesignNumber; wex _ MAX[0, wex]; lex _ MAX[0, lex]; xMargins _ burAct + (IF wex< burAct THEN MAX[wex+lambda, burAct] ELSE wex); actWidth _ MAX[2*lambda, w-xMargins]; w _ actWidth+xMargins; l _ MAX[l, (IF lex> BEGIN pr.drawRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; Save: PROC[r: CD.DesignRect, l: CD.Layer] = INLINE <> BEGIN pr.saveRect[ CDOrient.MapRect[ itemInCell: r, cellSize: aptr.ob.size, cellInstOrient: orient, cellInstPos: pos], l, pr]; END; <<--DrawMeForBurrNMosContacts>> p: ContactPtr = NARROW[aptr.ob.specificRef]; dBur: CD.DesignNumber = lambda/2; burAct: CD.DesignNumber = lambda*2; diffBur: CD.DesignPosition = [ x: IF p.wExt0 OR amount.y>0; }; END; ChangeExtensionBur: CDCallSpecific.CallProc = BEGIN amount: CD.DesignPosition = ToPosition[x]; IF amount.y=0 AND amount.x=0 THEN done _ FALSE ELSE { cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateBurCon[ w: aptr.ob.size.x+amount.x, l: aptr.ob.size.y+amount.y, wex: cp.wExt+amount.x, lex: cp.lExt+amount.y ]; include _ LIST[ap]; removeMe _ TRUE; repaintMe _ amount.x<0 OR amount.y<0; repaintInclude _ amount.x>0 OR amount.y>0; } END; SetLengthBur: CDCallSpecific.CallProc = BEGIN newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^; oldLength: CD.DesignNumber _ aptr.ob.size.y; cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateBurCon[w: aptr.ob.size.x, l: newLength, wex: cp.wExt, lex: cp.lExt]; include _ LIST[ap]; removeMe _ TRUE; IF newLength>oldLength THEN repaintInclude _ TRUE ELSE repaintMe _ TRUE; END; DefaultenBur: CDCallSpecific.CallProc = BEGIN cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateBurCon[w: aptr.ob.size.x, l: 4*lambda, wex: cp.wExt, lex: cp.lExt]; include_LIST[ap]; removeMe_TRUE; repaintMe_TRUE; repaintInclude_TRUE; END; <<-- Mm -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- >> pForVia: REF CD.ObjectProcs ~ RegisterObjectType[$NMosMmContact]; mmRimWidth: CD.DesignNumber = lambda; cut2min: CD.DesignNumber = 3*lambda; CreateMmCon: PUBLIC PROC [l: CD.DesignNumber, wex: CD.DesignNumber_wXExtension, lex: CD.DesignNumber_lXExtension] RETURNS [CD.ObPtr] = <<-- ignores wex and lex in chipmonk, why???>> <<-- connects two layers of metal>> BEGIN cob: CD.ObPtr ~ mmCache.UnusedOrNew[]; cp: ContactPtr ~ NARROW[cob.specificRef]; mins: CD.DesignNumber = cut2min+2*mmRimWidth; oldMins: CD.DesignNumber = cut2min+2*--mmRimWidth--2*lambda; l _ MAX[l, mins]; cp.typ _ mm2; <<--cp.wExt _ ;>> <<--cp.wExt _ ;>> cob.p _ pForVia; IF l> RETURN [mmCache.ReplaceByAequivalent[cob]] END; ReadVia: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = BEGIN RETURN [ CreateMmCon[TokenIO.ReadInt[]] ] END; WriteVia: CD.InternalWriteProc -- PROC [me: ObPtr] -- = BEGIN TokenIO.WriteInt[me.size.y]; END; ShortenMm: CDCallSpecific.CallProc = BEGIN cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateMmCon[l: aptr.ob.size.y-lambda, wex: cp.wExt, lex: cp.lExt]; include_LIST[ap]; removeMe_TRUE; repaintMe_TRUE; END; LengthenVia: CDCallSpecific.CallProc = BEGIN amount: CD.DesignPosition = ToPosition[x]; IF amount.y=0 OR amount.x#0 THEN done _ FALSE ELSE { cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; sz: CD.DesignPosition _ CDBasics.AddPoints[aptr.ob.size, amount]; IF sz.x<=0 OR sz.y<=0 THEN {done_FALSE; RETURN}; ap.ob _ CreateMmCon[l: sz.y, wex: cp.wExt, lex: cp.lExt]; include _ LIST[ap]; removeMe _ TRUE; repaintMe _ amount.y<0; repaintInclude _ amount.y>0; } END; SetLengthVia: CDCallSpecific.CallProc = BEGIN newLength: CD.DesignNumber _ NARROW[x, REF CD.DesignNumber]^; oldLength: CD.DesignNumber _ aptr.ob.size.y; cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateMmCon[l: newLength, wex: cp.wExt, lex: cp.lExt]; include _ LIST[ap]; removeMe _ TRUE; IF newLength>oldLength THEN repaintInclude _ TRUE ELSE repaintMe _ TRUE; END; DefaultenVia: CDCallSpecific.CallProc = BEGIN cp: ContactPtr _ NARROW[aptr.ob.specificRef]; ap: CD.ApplicationPtr _ NEW[CD.Application_aptr^]; ap.ob _ CreateMmCon[l: 4*lambda, wex: cp.wExt, lex: cp.lExt]; include _ LIST[ap]; removeMe _ TRUE; repaintMe _ TRUE; repaintInclude _ TRUE; END; DrawVia: PROC [aptr: CD.ApplicationPtr, pos: CD.DesignPosition, orient: CD.Orientation, pr: CD.DrawRef] = <<--does not read specificRef !!!!!!>> BEGIN mins: CD.DesignNumber = cut2min+2*mmRimWidth; r: CD.DesignRect = CDOrient.RectAt[pos, aptr.ob.size, orient]; pr.drawRect[r, met, pr]; pr.drawRect[r, met2, pr]; IF aptr.ob.size.x>mins THEN --old technology-- pr.saveRect[CDBasics.Extend[r, -2*lambda --oldmmRimWidth-- ], cut2, pr] ELSE --new technology-- pr.saveRect[CDBasics.Extend[r, -mmRimWidth], cut2, pr]; END; <<-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- >> Init: PROC [] = BEGIN pForDifPolCon.drawMe _ pForDifPolCon.quickDrawMe _ DrawDifAndPolContact; <> <> <> pForDifPolCon.internalRead _ ReadDifPolCon; pForDifPolCon.internalWrite _ WriteDifPolCon; pForDifPolCon.describe _ Describe; CDStretchyExtras.InstallMatch[pForDifPolCon, MatchContact]; pForButContact.drawMe _ pForButContact.quickDrawMe _ DrawButContact; pForButContact.internalRead _ ReadButCon; pForButContact.internalWrite _ WriteButCon; pForButContact.describe _ Describe; CDStretchyExtras.InstallMatch[pForButContact, MatchContact]; pForBurCon.drawMe _ pForBurCon.quickDrawMe _ DrawMeForBurrNMosContacts; CDCallSpecific.Register[$Lengthen, pForBurCon, LengthenBur]; CDCallSpecific.Register[$Default, pForBurCon, DefaultenBur]; CDCallSpecific.Register[$SetLength, pForBurCon, SetLengthBur]; CDCallSpecific.Register[$ChangeExt, pForBurCon, ChangeExtensionBur]; pForBurCon.internalRead _ ReadBurCon; pForBurCon.internalWrite _ WriteBurCon; pForBurCon.describe _ Describe; CDStretchyExtras.InstallMatch[pForBurCon, MatchContact]; pForVia.drawMe _ pForVia.quickDrawMe _ DrawVia; <> <> <> pForVia.internalRead _ ReadVia; pForVia.internalWrite _ WriteVia; pForVia.describe _ Describe; CDStretchyExtras.InstallMatch[pForVia, MatchContact]; pForDifShorts.drawMe _ pForDifShorts.quickDrawMe _ DrawDifShortContact; pForDifShorts.internalRead _ ReadDifShortCon; pForDifShorts.internalWrite _ WriteDifShortCon; pForDifShorts.describe _ Describe; CDStretchyExtras.InstallMatch[pForDifShorts, MatchContact]; END; Init[]; END.