OnionImpl.mesa 
Copyright © 1985 by Xerox Corporation. All rights reversed.
Created by Bertrand Serlet, March 26, 1986 2:35:33 pm PST
Last Edited by: Serlet, July 6, 1985 12:58:24 pm PDT
Last Edited by: Sindhu, July 7, 1985 1:40:04 am PDT
DIRECTORY
CD, CDBasics, CDCells, CDOrient, CDSymbolicObjects, CDProperties, CDRects, CDSimpleRules,
CMosB,
IO,
Onion, OnionArc,
PW, PWPins,
SymTab, TerminalIO;
OnionImpl: CEDAR PROGRAM
IMPORTS CD, CDBasics, CDCells, CDOrient, CDSymbolicObjects, CDProperties, CDRects, CDSimpleRules, CMosB, OnionArc, IO, PW, PWPins, SymTab, TerminalIO
EXPORTS Onion =
BEGIN OPEN Onion;
defaultLayersParameters: PUBLIC LayersParameters = NEW [LayersParametersRec ← [
radialLayer: CMosB.met,
ringLayer: CMosB.met2,
ringWidth: RingWidthIs4l,
wireExtendProc: WireExtendMetToMet
]];
channelDefaultParameters: PUBLIC LayersParameters = NEW [LayersParametersRec ← [
radialLayer: CMosB.met,
ringLayer: CMosB.met2,
ringWidth: RingWidthIs4l,
wireExtendProc: WireExtendMetToMet
]];
WireExtendMetToMet: PUBLIC WireExtendProc = {
wire ← CDRects.CreateRect[[length, width], CMosB.met];
};
WireExtendPolToMetForPads: PUBLIC WireExtendProc = {
nb: INTMAX[8, width]; -- for computing how many!
wire ← CDCells.CreateEmptyCell[];
[] ← PW.IncludeInCell[wire, CDRects.CreateRect[[length-14, width], CMosB.met], [0, 0]];
FOR i: INT IN [0 .. nb/8) DO
[] ← PW.IncludeInCell[wire, CDSimpleRules.Contact[CMosB.pol, CMosB.met], [length-14, 8*i]]
ENDLOOP;
[] ← PW.IncludeInCell[wire, CDRects.CreateRect[[6, width], CMosB.pol], [length-6, 0]];
CDCells.SetInterestRect[wire, [0, 0, length, width]];
[] ← CDCells.RepositionCell[wire, NIL];
};
RingWidthIs4l: PUBLIC RingWidthProc = {ringWidth ← 4 * CMosB.lambda};
Arc: TYPE = OnionArc.Arc;
RotateSide: PROC [side: PWPins.Side] RETURNS [PWPins.Side] = {
RETURN [SELECT side FROM
bottom => right,
right  => top,
top  => left,
left  => bottom,
ENDCASE => ERROR];
};
This type is internally used by the implementation and so does not instear in the interface
Net: TYPE = REF NetRec;
NetRec: TYPE = RECORD [
chosen: BOOLFALSE,           -- chosen for being routed
eval: INT ← 0,              -- evaluation function
arc: Arc ← NIL,             -- arc used by this net
innerPins, outerPins: LIST OF CD.Instance ← NIL  -- pins of the net
];
FetchNet: PROC [nets: SymTab.Ref, name: ROPE] RETURNS [net: Net] = {
found: BOOL; val: SymTab.Val;
[found, val] ← SymTab.Fetch[nets,name];
net ← IF found THEN NARROW[val] ELSE NEW[NetRec];
};
StoreNet: PROC [nets: SymTab.Ref, name: ROPE, net: Net] = {
[] ← SymTab.Store[nets, name, net];
};
IncludePin: PUBLIC PROC [cell: CD.Object, name: ROPE, layer: CD.Layer, size, position: CD.Position, orientation: CD.Orientation ← 0] RETURNS [newInst: CD.Instance] = {
newInst ← PW.IncludeInCell[cell: cell, obj: CDSymbolicObjects.CreatePin[size], position: position, orientation: orientation].newInst;
CDSymbolicObjects.SetName[newInst, name];
CDSymbolicObjects.SetLayer[newInst, layer];
};
IncludeContact: PUBLIC PROC [cell: CD.Object, side: PWPins.Side, layer1, layer2: CD.Layer, size: INT, position: CD.Position, orientation: CD.Orientation ← 0] = {
contact: CD.Object ← CDSimpleRules.Contact[layer1, layer2];
contactSize: INT ← contact.size.x; -- **** WRONG
nb: INTMAX[contactSize, size]; -- **** WRONG
FOR i: INT IN [0..nb/contactSize) DO
[] ← PW.IncludeInCell[
cell, contact,
SELECT side FROM
left   => [position.x, position.y+i*contactSize],
right   => [position.x-contactSize, position.y+i*contactSize],
bottom  => [position.x+i*contactSize, position.y],
top   => [position.x+i*contactSize, position.y-contactSize],
ENDCASE => ERROR];
ENDLOOP;
};
Returns the innerPos needed for centering the inner in the outer
Center: PUBLIC PROC [inner, outer: CD.Object] RETURNS [innerPos: CD.Position] = {
innerPos ← CDBasics.SubPoints[
CDBasics.SizeOfRect[CD.InterestRect[outer]],
CDBasics.SizeOfRect[CD.InterestRect[inner]]];
innerPos.x ← innerPos.x/2; innerPos.y ← innerPos.y/2;
};
Extends the wires of obj to make an proper inner. The extension takes into account the layer of outside pins.
MakeInner: PUBLIC PROC [obj: CD.Object] RETURNS [inner: CD.Object] = {
dist: INT ← 18; ---????
ExtendPinOnEdge: PWPins.InstanceEnumerator -- [inst: CD.Instance] RETURNS [quit: BOOL ← FALSE] -- = {
newInst: CD.Instance;
location: CD.Position ← CDBasics.SubPoints[
inst.location, CDBasics.BaseOfRect[CD.InterestRect[obj]]];
realSize: CD.Position ← CDOrient.OrientedSize[inst.ob.size, inst.orientation];
side: PWPins.Side ← PWPins.GetSide[obj, inst].side;
newInst ← IncludePin[
inner, CDSymbolicObjects.GetName[inst], CMosB.met, realSize,
SELECT side FROM
right    => [location.x+dist, location.y],
left    => [location.x-dist, location.y],
top    => [location.x, location.y+dist],
bottom   => [location.x, location.y-dist],
ENDCASE => ERROR];
newApclass.properties ← CDProperties.CopyProps[inst.properties]; -- drole de stuff on layer
[] ← PW.IncludeInCell[
inner,
CDRects.CreateRect[
SELECT side FROM
left, right   => [dist, realSize.y],
top, bottom   => [realSize.x, dist],
ENDCASE   => ERROR,
CDSymbolicObjects.GetLayer[inst]],
SELECT side FROM
left   => [location.x-dist, location.y],
right   => [location.x+realSize.x, location.y],
bottom  => [location.x, location.y-dist],
top   => [location.x, location.y+realSize.y],
ENDCASE => ERROR];
Now the contact(s)!
SELECT CDSymbolicObjects.GetLayer[inst] FROM
CMosB.met    => {};
CMosB.met2   => {
IncludeContact[inner, side, CMosB.met, CMosB.met2, (SELECT side FROM
left, right   => realSize.y,
bottom, top   => realSize.x,
ENDCASE => ERROR),
SELECT side FROM
left   => [location.x-dist, location.y],
right   => [location.x+realSize.x+dist, location.y],
bottom  => [location.x, location.y-dist],
top   => [location.x, location.y+realSize.y+dist],
ENDCASE => ERROR];
};
CMosB.pol    => {
IncludeContact[inner, side, CMosB.met, CMosB.pol, (SELECT side FROM
left, right   => realSize.y,
bottom, top   => realSize.x,
ENDCASE => ERROR),
SELECT side FROM
left   => [location.x-dist, location.y],
right   => [location.x+realSize.x+dist, location.y],
bottom  => [location.x, location.y-dist],
top   => [location.x, location.y+realSize.y+dist],
ENDCASE => ERROR];
};
ENDCASE    => TerminalIO.WriteF["**** MakeInner: Layer unknown for extending pin %g. Extension WRONG!!!\n", IO.rope[CDSymbolicObjects.GetName[inst]]];
};
inst: CD.Instance;
inner ← CDCells.CreateEmptyCell[];
inst ← PW.IncludeInCell[inner, obj];
CDProperties.PutInstanceProp[inst, $StopEnumerateDeepPins, $StopEnumerateDeepPins];
[] ← PWPins.EnumerateEdgePins[obj, ExtendPinOnEdge];
CDCells.SetInterestRect[inner, CDBasics.Extend[
CDBasics.RectAt[[0, 0], CDBasics.SizeOfRect[CD.InterestRect[obj]]], dist]];
[] ← CDCells.RepositionCell[inner, NIL];
};
-- innerPos is the location of the origin of inner in the coord system of outer
LRSRouteOnce: PUBLIC PROC [inner, outer: CD.Object, innerPos: CD.Position, params: LayersParameters ← defaultLayersParameters] RETURNS [cell: CD.Object, newInnerPos: CD.Position, status: Status] = {
contactWidth: INT;
innerRect: CD.Rect = CDBasics.MoveRect[CDBasics.RectAt[[0, 0], CDBasics.SizeOfRect[CD.InterestRect[inner]]], innerPos]; -- in the outer coord system
Returns the position of the innerPin in the coordinate system of the interestRect of the outer
InnerPinLocation: PROC [pin: CD.Instance] RETURNS [location: CD.Position] = {
location ← CDBasics.AddPoints[CDBasics.SubPoints[pin.location, CDBasics.BaseOfRect[CD.InterestRect[inner]]], innerPos];
};
Returns the position of the outerPin in the coordinate system of the interestRect of the outer
OuterPinLocation: PROC [pin: CD.Instance] RETURNS [location: CD.Position] = {
location ← CDBasics.SubPoints[pin.location, CDBasics.BaseOfRect[CD.InterestRect[outer]]];
};
Returns the bi-projection on the correct side of the innerPin in the coordinate system of the interestRect of the outer. Size of the pin is taken into account so that the pin always represent an extension in the direct rotation.
InnerPinBiProjection: PROC [pin: CD.Instance] RETURNS [min, max: INT] = {
rect: CD.Rect ← CDOrient.RectAt[InnerPinLocation[pin], pin.ob.size, pin.orientation];
SELECT PWPins.GetSide[inner, pin].side FROM
bottom, top  => {min ← rect.x1; max ← rect.x2};
left, right  => {min ← rect.y1; max ← rect.y2};
ENDCASE   => ERROR;
};
Returns the bi-projection on the correct side of the outerPin in the coordinate system of the interestRect of the outer. Size of the pin is taken into account so that the pin always represent an extension in the direct rotation.
OuterPinBiProjection: PROC [pin: CD.Instance] RETURNS [min, max: INT] = {
rect: CD.Rect ← CDOrient.RectAt[OuterPinLocation[pin], pin.ob.size, pin.orientation];
SELECT PWPins.GetSide[outer, pin].side FROM
bottom, top  => {min ← rect.x1; max ← rect.x2};
left, right  => {min ← rect.y1; max ← rect.y2};
ENDCASE   => ERROR;
};
OuterCoordsToCellCoords: PROC [outerPos: CD.Position] RETURNS [cellPos: CD.Position] = {
cellPos ← CDBasics.SubPoints[outerPos, CDBasics.BaseOfRect[assignedArc.rect]];
};
-- Procs for parsing the pins into nets
AddInnerPinToNets: PWPins.InstanceEnumerator -- [inst: CD.Instance] RETURNS [quit: BOOL ← FALSE] -- = {
name: ROPE ← CDSymbolicObjects.GetName[inst];
net: Net ← FetchNet[nets, name];
IF CDSymbolicObjects.GetLayer[inst]#params.radialLayer
THEN TerminalIO.WriteF["*** Pin %g discarded: not of radialLayer material.\n", IO.rope[name]]
ELSE net.innerPins ← CONS[inst, net.innerPins];
StoreNet[nets, name, net];
};
AddOuterPinToNets: PWPins.InstanceEnumerator -- [inst: CD.Instance] RETURNS [quit: BOOL ← FALSE] -- = {
name: ROPE ← CDSymbolicObjects.GetName[inst];
net: Net ← FetchNet[nets, name];
net.outerPins ← CONS[inst, net.outerPins];
StoreNet[nets, name, net];
};
-- Choice of possible nets
Computation of the Arc of a Net
ComputeArc: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
net: Net ← NARROW [val];
pitch: INT = MAX[contactWidth, params.ringWidth[key]]+CDSimpleRules.MinDist[params.ringLayer, params.ringLayer];
net.arc ← OnionArc.EmptyArc[CDBasics.Extend[innerRect, pitch]];
FOR innerPins: LIST OF CD.Instance ← net.innerPins, innerPins.rest WHILE innerPins#NIL DO
side: PWPins.Side ← PWPins.GetSide[inner, innerPins.first].side;
min, max: INT;
[min, max] ← InnerPinBiProjection[innerPins.first];
SELECT side FROM
bottom, right  => max ← MAX[max, min+contactWidth];
top, left    => min ← MIN[min, max-contactWidth];
ENDCASE   => ERROR;
net.arc ← OnionArc.ConnectSegBitToArc[min, max, side, net.arc];
ENDLOOP;
FOR outerPins: LIST OF CD.Instance ← net.outerPins, outerPins.rest WHILE outerPins#NIL DO
side: PWPins.Side ← PWPins.GetSide[outer, outerPins.first].side;
min, max: INT;
[min, max] ← OuterPinBiProjection[outerPins.first];
SELECT side FROM
bottom, right  => max ← MAX[max, min+contactWidth];
top, left    => min ← MIN[min, max-contactWidth];
ENDCASE   => ERROR;
net.arc ← OnionArc.ConnectSegBitToArc[min, max, side, net.arc];
ENDLOOP;
quit ← FALSE;
};
-- Computation of the evaluation function of a Net, i.e. LAST[INT]/2+Length if there is an innerPin roughly (less than design rules) in front of some outerPin of the net, LAST[INT] if all pins of the net are matching some pins of the same net, Length else. Length is OnionArc.Length[arc]+ Perimeter[Arc.rect].
ComputeEval: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
net: Net ← NARROW [val];
allOuterPinsMatchSomeInnerPin: BOOLTRUE;
quit ← FALSE;
FOR outerPins: LIST OF CD.Instance ← net.outerPins, outerPins.rest WHILE outerPins#NIL DO
matches: BOOLFALSE;
FOR innerPins: LIST OF CD.Instance ← net.innerPins, innerPins.rest WHILE innerPins#NIL DO
IF Faces[innerPins.first, outerPins.first] THEN {matches ← TRUE; EXIT};
ENDLOOP;
IF ~matches THEN {allOuterPinsMatchSomeInnerPin ← FALSE; EXIT};
ENDLOOP;
IF allOuterPinsMatchSomeInnerPin THEN {net.eval ← LAST[INT]; RETURN};
net.eval ← OnionArc.Length[net.arc] + net.arc.rect.x2 - net.arc.rect.x1 + net.arc.rect.y2 - net.arc.rect.y1;
FOR outerPins: LIST OF CD.Instance ← net.outerPins, outerPins.rest WHILE outerPins#NIL DO
FindDifferentNetFacing: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
thisNet: Net ← NARROW[val];
quit ← FALSE;
IF thisNet=net THEN RETURN;
FOR innerPins: LIST OF CD.Instance ← thisNet.innerPins, innerPins.rest WHILE innerPins#NIL DO
IF RoughlyFaces[innerPins.first, outerPins.first] THEN {quit ← TRUE; RETURN};
ENDLOOP;
};
We look if a different net is facing
IF SymTab.Pairs[nets, FindDifferentNetFacing]
THEN {net.eval ← net.eval + LAST [INT] /2; RETURN};
ENDLOOP;
};
-- Given two pins, checks if they faces each other
Faces: PROC [innerPin, outerPin: CD.Instance] RETURNS [faces: BOOL] = {
side: PWPins.Side ← PWPins.GetSide[inner, innerPin].side;
faces ← side=PWPins.GetSide[outer, outerPin].side AND OuterPinBiProjection[outerPin]=InnerPinBiProjection[innerPin];
};
-- Given two pins, checks if they faces each other, taking into account design rules
RoughlyFaces: PROC [innerPin, outerPin: CD.Instance] RETURNS [faces: BOOL] = {
side: PWPins.Side ← PWPins.GetSide[inner, innerPin].side;
innerMin, innerMax, outerMin, outerMax: INT;
[innerMin, innerMax] ← InnerPinBiProjection[innerPin];
[outerMin, outerMax] ← OuterPinBiProjection[outerPin];
innerMax ← MAX [innerMax, innerMin + contactWidth] + CDSimpleRules.MinDist[params.ringLayer, params.ringLayer];
outerMax ← MAX [outerMax, outerMin + contactWidth] + CDSimpleRules.MinDist[params.ringLayer, params.ringLayer];
faces ← side=PWPins.GetSide[outer, outerPin].side AND (innerMin IN [outerMin .. outerMax] OR outerMin IN [innerMin .. innerMax]);
};
ChooseMinEval: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
net: Net ← NARROW [val];
quit ← FALSE;
IF net.chosen OR net.eval>minEval OR net.eval=LAST[INT] THEN RETURN;
IF assignedArc#NIL AND (net.eval>=LAST[INT]/2 OR ~CDBasics.Inside[net.arc.rect, assignedArc.rect] OR ~OnionArc.NotOverlinsting[assignedArc, net.arc, CDSimpleRules.MinDist[params.ringLayer, params.ringLayer]+contactWidth] OR params.ringWidth[key]#netRingWidth) THEN RETURN;
minEval ← net.eval; minNetName ← key;
};
-- Generation of the geometry
Same as PW.IncludeInCell, but takes into account the size of the object and the side in which they are inserted. Also converts position which is given in the outer cell coord system.
IncludeInCellSide: PROC [ob: CD.Object, side: PWPins.Side, position: CD.Position, orientation: CD.Orientation ← 0] = {
position ← OuterCoordsToCellCoords[position];
SELECT side FROM
left  => position.y ← position.y-ob.size.y;
right  => position.x ← position.x-ob.size.x;
bottom => {};
top  => {position.x ← position.x-ob.size.x; position.y ← position.y-ob.size.y};
ENDCASE => ERROR;
[] ← PW.IncludeInCell[cell: cell, obj: ob, position: position, orientation: orientation];
};
IncludePinSide: PROC [name: ROPE, side: PWPins.Side, size, position: CD.Position] = {
pinDeep: INT ← 2;
position ← OuterCoordsToCellCoords[position];
SELECT side FROM
left  => position.y ← position.y-size.y;
right  => position.x ← position.x-size.x;
bottom => {};
top  => {position.x ← position.x-size.x; position.y ← position.y-size.y};
ENDCASE => ERROR;
[] ← IncludePin[cell, name, params.radialLayer, size, position];
};
IncludeContactSide: PROC [side: PWPins.Side, size: INT, position: CD.Position] = {
nb: INTMAX[contactWidth, size];
FOR i: INT IN [0..nb/contactWidth) DO
IncludeInCellSide[CDSimpleRules.Contact[params.radialLayer, params.ringLayer], side,
SELECT side FROM
left   => [position.x, position.y-contactWidth*i],
right   => [position.x, position.y+contactWidth*i],
bottom  => [position.x+contactWidth*i, position.y],
top   => [position.x-contactWidth*i, position.y],
ENDCASE => ERROR];
ENDLOOP
};
DrawRingBit: OnionArc.EachSegBitProc -- [min: D2Basic.Number, max: D2Basic.Number, side: Onion.PWPins.Side] -- = {
SELECT side FROM
bottom => [] ← PW.IncludeInCell[cell, CDRects.CreateRect[[max-min, netRingWidth], params.ringLayer], [min-assignedArc.rect.x1, 0]];
right  => [] ← PW.IncludeInCell[cell, CDRects.CreateRect[[netRingWidth, max-min], params.ringLayer], [assignedArc.rect.x2-assignedArc.rect.x1-netRingWidth, min-assignedArc.rect.y1]];
top  => [] ← PW.IncludeInCell[cell, CDRects.CreateRect[[max-min, netRingWidth], params.ringLayer], [min-assignedArc.rect.x1, assignedArc.rect.y2-assignedArc.rect.y1-netRingWidth]];
left  => [] ← PW.IncludeInCell[cell, CDRects.CreateRect[[netRingWidth, max-min], params.ringLayer], [0, min-assignedArc.rect.y1]];
ENDCASE => ERROR;
};
DepositOuterContacts: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
DrawOuterPin: PROC [inst: CD.Instance, name: ROPE] = {
Add a contact and a pin
side: PWPins.Side ← PWPins.GetSide[outer, inst].side;
size: CD.Position ← CDOrient.OrientedSize[inst.ob.size, inst.orientation];
position: CD.Position ← OuterPinLocation[inst];
pos: CD.Position ← SELECT side FROM
left   => [assignedArc.rect.x1, position.y + size.y],
right   => [assignedArc.rect.x2, position.y],
bottom  => [position.x, assignedArc.rect.y1],
top   => [position.x + size.x, assignedArc.rect.y2],
ENDCASE => ERROR;
IncludeContactSide[side, (SELECT side FROM
left, right   => size.y,
bottom, top   => size.x,
ENDCASE => ERROR), pos];
IncludePinSide[name, side, size, pos];
};
net: Net ← NARROW [val];
quit ← FALSE;
IF ~net.chosen THEN {IF net.eval#LAST[INT] THEN TerminalIO.WriteF["%g ", IO.rope[key]]; RETURN};
FOR outerPins: LIST OF CD.Instance ← net.outerPins, outerPins.rest WHILE outerPins#NIL DO
DrawOuterPin[outerPins.first, key];
ENDLOOP;
};
Draws wires in metal for inner pins, and if the pin belongs to the net, then add a contact, else add a pin.
DepositInnerWiresEtAl: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
DrawInnerPin: PROC [inst: CD.Instance, chosen: BOOL, name: ROPE] = {
side: PWPins.Side ← PWPins.GetSide[inner, inst].side;
size: CD.Position ← CDOrient.OrientedSize[inst.ob.size, inst.orientation];
rectSize: CD.Position ← size;
pos: CD.Position; -- base of wire in the outer coord system
position: CD.Position ← InnerPinLocation[inst];
SELECT side FROM
left => {
pos ← [assignedArc.rect.x1, position.y + size.y]; -- origin of wire and Al in the outer coord system
rectSize.x ← innerRect.x1-assignedArc.rect.x1;
};
right => {
pos ← [assignedArc.rect.x2, position.y]; -- origin of wire and Al in the outer coord system
rectSize.x ← assignedArc.rect.x2-innerRect.x2;
};
bottom => {
pos ← [position.x, assignedArc.rect.y1]; -- origin of wire and Al in the outer coord system
rectSize.y ← innerRect.y1-assignedArc.rect.y1;
};
top => {
pos ← [position.x + size.x, assignedArc.rect.y2]; -- origin of wire and Al in the outer coord system
rectSize.y ← assignedArc.rect.y2-innerRect.y2;
};
ENDCASE => ERROR;
IF rectSize.x#0 AND rectSize.y#0 THEN IncludeInCellSide[CDRects.CreateRect[rectSize, params.radialLayer], side, pos];
IF chosen
THEN -- add contact(s)
IncludeContactSide[side, (SELECT side FROM
left, right   => size.y,
bottom, top   => size.x,
ENDCASE => ERROR), pos]
ELSE -- add a pin -- IncludePinSide[name, side, size, pos];
};
net: Net ← NARROW [val];
quit ← FALSE;
FOR innerPins: LIST OF CD.Instance ← net.innerPins, innerPins.rest WHILE innerPins#NIL DO
DrawInnerPin[innerPins.first, net.chosen, key];
ENDLOOP;
};
ExtendAllWires: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
net: Net ← NARROW [val];
quit ← FALSE;
IF net.outerPins#NIL AND net.outerPins.rest=NIL AND net.innerPins=NIL
THEN RETURN; -- only 1 outerPin and 0 innerPin
FOR outerPins: LIST OF CD.Instance ← net.outerPins, outerPins.rest WHILE outerPins#NIL DO
FOR innerPins: LIST OF CD.Instance ← net.innerPins, innerPins.rest WHILE innerPins#NIL DO
IF Faces[innerPins.first, outerPins.first] THEN {
innerPos: CD.Position ← InnerPinLocation[innerPins.first];
outerPos: CD.Position ← OuterPinLocation[outerPins.first];
innerSize: CD.Position ← CDOrient.OrientedSize[innerPins.first.ob.size, innerPins.first.orientation];
outerSize: CD.Position ← CDOrient.OrientedSize[outerPins.first.ob.size, outerPins.first.orientation];
side: PWPins.Side ← PWPins.GetSide[inner, innerPins.first].side;
length: INTSELECT side FROM
left  => innerPos.x - outerPos.x - outerSize.x,
right  => outerPos.x - innerPos.x - innerSize.x,
bottom => innerPos.y - outerPos.y - outerSize.y,
top  => outerPos.y - innerPos.y - innerSize.y,
ENDCASE => ERROR;
width: INTSELECT side FROM
left, right  => MIN[innerSize.y, outerSize.y],
bottom, top  => MIN[innerSize.x, outerSize.x],
ENDCASE => ERROR;
wire: CD.Object ← params.wireExtendProc[width, length];
[] ← PW.IncludeInCell[
cell: cell, obj: wire,
position: SELECT side FROM
left  => [outerPos.x + outerSize.x, outerPos.y],
right  => [outerPos.x - length, outerPos.y],
bottom => [outerPos.x, outerPos.y + outerSize.y],
top  => [outerPos.x, outerPos.y - length],
ENDCASE => ERROR,
orientation: SELECT side FROM
left  => CDOrient.rotate180,
right  => CDOrient.original,
bottom => CDOrient.rotate270,
top  => CDOrient.rotate90,
ENDCASE => ERROR
];
EXIT;
};
ENDLOOP;
ENDLOOP;
};
assignedArc: Arc ← NIL;
nets: SymTab.Ref ← SymTab.Create[];
minEval: INT; minNetName: ROPE; -- for choosing the nets
netRingWidth: INT ← 0; -- all nets on the same track have the same width
can we find the minimal size of a contact
IF CDSimpleRules.Contact[params.radialLayer, params.ringLayer]=NIL THEN {
TerminalIO.WriteF["ImpossibleTechnology: I do not know how to contact radialLayer and ringLayer!\n"]; ERROR;
};
contactWidth ← CDBasics.SizeOfRect[CD.InterestRect[CDSimpleRules.Contact[params.radialLayer, params.ringLayer]]].x; -- ****** ??W?!?!?!?? WRONG!
-- Emergency break
IF ~CDBasics.Inside[innerRect, CDBasics.RectAt[[0, 0], CDBasics.SizeOfRect[CD.InterestRect[outer]]]] THEN {TerminalIO.WriteF["**** Routing Impossible (Too big) ****\n**** Current state returned! ****\n"]; RETURN[inner, innerPos, impossible];};
-- Parsing all the pins to sort them by nets
[] ← PWPins.EnumerateEdgePins[inner, AddInnerPinToNets];
[] ← PWPins.EnumerateEdgePins[outer, AddOuterPinToNets];
-- We delete all nets containing only 1 pin
BEGIN
deletedNets: LIST OF ROPENIL;
ToBeDeleted: SymTab.EachPairAction -- [key: SymTab.Key, val: SymTab.Val] RETURNS [quit: BOOL] -- = {
net: Net ← NARROW [val];
quit ← FALSE;
IF (net.innerPins#NIL AND net.innerPins.rest=NIL AND net.outerPins=NIL) OR (net.outerPins#NIL AND net.outerPins.rest=NIL AND net.innerPins=NIL) THEN deletedNets ← CONS[key, deletedNets];
};
[] ← SymTab.Pairs[nets, ToBeDeleted];
WHILE deletedNets#NIL DO
TerminalIO.WriteF["*** Net: %g has only 1 pin. Not routed\n", IO.rope[deletedNets.first]];
[] ← SymTab.Delete[nets, deletedNets.first]; deletedNets ← deletedNets.rest;
ENDLOOP;
END;
-- We compute the Arc necessited by the net for being routed
[] ← SymTab.Pairs[nets, ComputeArc];
We compute evaluation function, i.e. LAST[INT]/2+Length[Arc] if there is an innerPin in front of some outerPin of the net, LAST[INT] if all pins of the net are matching some pins of the same net, Length[Arc] else.
[] ← SymTab.Pairs[nets, ComputeEval];
We choose the mininum of this evaluation function over each non-chosen net non intersecting (using the design rules) assignedArc and being inside assignedArc.rect (only if someNetAssigned), set assignedArc to the corresponding value, and set the chosen bit of the chosen net. We start again and again until no more net is found.
TerminalIO.WriteF["Allocating a new track\n"];
DO
Count: PROC [pins: LIST OF CD.Instance] RETURNS [rope: ROPE] = {
count: INT ← 0;
WHILE pins#NIL DO count ← count+1; pins ← pins.rest ENDLOOP;
rope ← IO.PutR[IO.int[count]];
};
minNet: Net;
minEval ← LAST[INT]; minNetName ← NIL;
[] ← SymTab.Pairs[nets, ChooseMinEval];
IF minEval=LAST[INT] THEN EXIT;
IF minEval>=LAST[INT]/2 THEN TerminalIO.WriteF["****** ROUTING IS WRONG: at least 2 different nets are facing each other. No cure possible until Dogleg is introduced in Onion!\n"];
minNet ← FetchNet[nets, minNetName];
IF assignedArc=NIL THEN netRingWidth ← params.ringWidth[minNetName];
assignedArc ← IF assignedArc=NIL THEN minNet.arc ELSE OnionArc.Union[assignedArc, minNet.arc];
minNet.chosen ← TRUE;
TerminalIO.WriteF["Routing the net : %g innerPins: %g outerPins: %g Cost: %g\n", IO.rope[minNetName], IO.rope[Count[minNet.innerPins]], IO.rope[Count[minNet.outerPins]], IO.int[minNet.eval]];
ENDLOOP;
-- We now generate geometry
cell ← CDCells.CreateEmptyCell[];
IF assignedArc=NIL THEN {
Finished: now we extend all the wires using the wireExtendProc
IF params.wireExtendProc#NIL THEN [] ← SymTab.Pairs[nets, ExtendAllWires];
And we position the inner cell
[] ← PW.IncludeInCell[cell, inner, innerPos];
IF params.wireExtendProc#NIL THEN [] ← PW.IncludeInCell[cell, outer, [0, 0]];
[] ← CDCells.RepositionCell[cell, NIL];
RETURN[cell, [0, 0], finishedAll];
}
ELSE {
-- We shrink the assignedArc.rect if some sides are unused
IF OnionArc.NotOverlinsting[assignedArc, NEW[OnionArc.ArcRec ← [rect: assignedArc.rect, segs: LIST [NEW[OnionArc.SegRec ← [assignedArc.rect.y2, assignedArc.rect.y1, left, left]]]]],
CDSimpleRules.MinDist[params.ringLayer, params.ringLayer]+contactWidth] THEN assignedArc.rect.x1 ← innerRect.x1;
IF OnionArc.NotOverlinsting[assignedArc, NEW[OnionArc.ArcRec ← [rect: assignedArc.rect, segs: LIST [NEW[OnionArc.SegRec ← [assignedArc.rect.y1, assignedArc.rect.y2, right, right]]]]], CDSimpleRules.MinDist[params.ringLayer, params.ringLayer]+contactWidth] THEN assignedArc.rect.x2 ← innerRect.x2;
IF OnionArc.NotOverlinsting[assignedArc, NEW[OnionArc.ArcRec ← [rect: assignedArc.rect, segs: LIST [NEW[OnionArc.SegRec ← [assignedArc.rect.x1, assignedArc.rect.x2, bottom, bottom]]]]], CDSimpleRules.MinDist[params.ringLayer, params.ringLayer]+contactWidth] THEN assignedArc.rect.y1 ← innerRect.y1;
IF OnionArc.NotOverlinsting[assignedArc, NEW[OnionArc.ArcRec ← [rect: assignedArc.rect, segs: LIST [NEW[OnionArc.SegRec ← [assignedArc.rect.x2, assignedArc.rect.x1, top, top]]]]], CDSimpleRules.MinDist[params.ringLayer, params.ringLayer]+contactWidth] THEN assignedArc.rect.y2 ← innerRect.y2;
-- We position the inner cell
CDProperties.PutInstanceProp[
PW.IncludeInCell[cell, inner, CDBasics.SubPoints[
CDBasics.BaseOfRect[innerRect],
CDBasics.BaseOfRect[assignedArc.rect]]],
$StopEnumerateDeepPins, $StopEnumerateDeepPins];
-- We place the sides of the routing (in metal2)
OnionArc.EnumerateSegBits[assignedArc, DrawRingBit];
-- We deposit contacts facing the outer pins which touch the routing ring. By the way we print the names of non-chosen nets
TerminalIO.WriteF["Non routed nets: "];
[] ← SymTab.Pairs[nets, DepositOuterContacts];
TerminalIO.WriteF["\n"];
-- We deposit wires in metal for inner pins and if the pin belongs to the net, then add a contact, else add a pin.
[] ← SymTab.Pairs[nets, DepositInnerWiresEtAl];
-- We reposition and include in the design
CDCells.SetInterestRect[cell, [0, 0, assignedArc.rect.x2-assignedArc.rect.x1, assignedArc.rect.y2-assignedArc.rect.y1]];
[] ← CDCells.RepositionCell[cell, NIL];
RETURN[cell, CDBasics.BaseOfRect[assignedArc.rect], doneOnce];
};
};
LRSRoute: PUBLIC PROC [inner, outer: CD.Object, innerPos: CD.Position, params: LayersParameters ← defaultLayersParameters] RETURNS [cell: CD.Object, status: Status] = {
status ← doneOnce;
WHILE status=doneOnce DO
[inner, innerPos, status] ← LRSRouteOnce[inner, outer, innerPos, params];
ENDLOOP;
cell ← inner;
};
END.