LichenDataImplArrays4.Mesa
Last tweaked by Mike Spreitzer on August 30, 1988 3:11:54 pm PDT
DIRECTORY AbSets, BiRelBasics, BiRels, IntStuff, IO, LichenArrayPrivate, LichenDataOps, LichenDataStructure, LichenIntBasics, Rope, SetBasics;
LichenDataImplArrays4:
CEDAR
PROGRAM
IMPORTS AbSets, BiRels, IO, LichenArrayPrivate, LichenDataOps, LichenDataStructure, LichenIntBasics, SetBasics
EXPORTS LichenDataStructure, LichenDataOps, LichenArrayPrivate
=
BEGIN OPEN IS:IntStuff, Sets:AbSets, LIB:LichenIntBasics, LIB, LichenArrayPrivate, LichenDataStructure, LichenDataOps;
DeleteWires:
PUBLIC
PROC [ct: CellType, wires: Set, visitConns:
BOOL] ~ {
d: Design ~ ct.d;
FixInst:
PROC [civ: Sets.Value]
RETURNS [
BOOL] ~ {
ci: CellInstance ~ NARROW[civ.VA];
[] ← ci.conns.DeleteSet[wires, right];
RETURN [FALSE]};
[] ← d.sub.DeleteSet[wires];
[] ← d.parent.DeleteSet[wires, right];
[] ← d.cct[w].DeleteSet[wires];
[] ← ct.fullName[w].DeleteSet[wires];
[] ← ct.asu.exports.DeleteSet[wires, right];
IF visitConns AND d.cct[i].ScanMapping[AV[ct], FixInst, rightToLeft].found THEN ERROR;
RETURN};
DeletePorts:
PUBLIC
PROC [ct: CellType, ports: Set, visitInsts, deleteWires:
BOOL, log:
IO.
STREAM ←
NIL] ~ {
d: Design ~ ct.d;
FixWire:
PROC [wv: Sets.Value]
RETURNS [
BOOL] ~ {
w: Wire ~ NARROW[wv.VA];
[] ← w.conns.DeleteSet[ports];
RETURN [FALSE]};
FixInst:
PROC [civ: Sets.Value]
RETURNS [
BOOL] ~ {
ci: CellInstance ~ NARROW[civ.VA];
wires: Set ← ci.conns.Image[ports];
Connected:
PROC [wv: Sets.Value]
RETURNS [
BOOL] ~ {
w: Wire ~ NARROW[wv.VA];
RETURN [NOT w.conns.Empty]};
IF deleteWires THEN wires ← wires.CreateHashCopy[];
IF wires.Scan[FixWire].found THEN ERROR;
[] ← ci.conns.DeleteSet[ports];
IF deleteWires
AND wires.NonEmpty
THEN {
cct: CellType ~ d.CiCct[ci];
IF wires.Scan[Connected].found THEN ERROR;
IF log#NIL THEN log.PutF["DelW %g in %g conlos.\n", [rope[wires.FormatSet[length: INT.LAST, order: cct.nameOrder[w]]]], [rope[ACtName[cct]]]];
DeleteWires[cct, wires, FALSE]};
RETURN [FALSE]};
[] ← d.sub.DeleteSet[ports];
[] ← d.parent.DeleteSet[ports, right];
[] ← d.cct[p].DeleteSet[ports];
[] ← ct.fullName[p].DeleteSet[ports];
IF ct.asu#
NIL
THEN {
IF ct.asu.exports.Image[ports].Scan[FixWire].found THEN ERROR;
[] ← ct.asu.exports.DeleteSet[ports]};
IF ct.asArray#
NIL
THEN {
a: Array ~ ct.asArray;
[] ← a.statrep.apToPAI.DeleteSet[ports];
IF a.dumrep#NIL THEN [] ← a.dumrep.apToWire.DeleteSet[ports]};
IF visitInsts
THEN {
NoteExEltPorts[ct, ports, TRUE, log];
IF d.ciType.ScanMapping[AV[ct], FixInst, rightToLeft].found THEN ERROR};
RETURN};
EltCtr:
PUBLIC
PROC [a: Array, ect: CellType, ai: Int2]
RETURNS [Int2] ~ {
qr: QuotRem ~ LIB.DivMod[ai, a.basePeriod];
{xfm: Transform ~ VXfm[a.fXfm.Apply[I2V[qr.r]].Val];
cf: NATURAL ~ ComposePhase[a, qr.r];
offset: Int2 ~ LIB.Mul[qr.q, a.offsets[cf].o1, a.offsets[cf].o0];
RETURN xfm.TransOffPos[offset, Range2Mid[ect.bbox]]}};
SomePAI:
PUBLIC
PROC [act: CellType, dw: DumbWire]
RETURNS [PortAtIndex] ~ {
mpc: BiRels.MaybePair ~ dw.eps.APair[[[Sets.alleq, Sets.fwd], right]];
IF mpc.found
THEN {
ep: Port ~ NARROW[mpc.it[left].VA];
cai: CompositeArrayIndex ~ mpc.it[right].VI;
ai: Int2 ~ act.asArray.DecomposeAI[cai];
RETURN [[ep, ai]]}
ELSE RETURN [[NIL, [0, 0]]]};
FindStatEdge:
PUBLIC
PROC [sr: StatRep, sep: StatEdgeSpec, careAboutOthers:
BOOL]
RETURNS [fse: StatEdge ←
NIL, others:
BOOL ←
FALSE] ~ {
TestEdge:
PROC [se: StatEdge, ob:
BOOL]
RETURNS [
BOOL] ~ {
IF ob AND se.SeRSv[sr, TRUE]=sep.vs[TRUE] AND sep.d=se.d THEN {fse ← se; RETURN [NOT careAboutOthers]};
others ← TRUE;
RETURN [FALSE]};
[] ← ScanStatEdgesFrom[sr, sep.vs[FALSE], ALL[TRUE], TestEdge];
RETURN};
GetDumbWires:
PUBLIC
PROC [a: Array, ep: Port, mayAdd:
BOOL]
RETURNS [dws: RefBiRel
--cai
b DumbWire--] ~ {
dws ← NARROW[a.dumrep.epToWire.ApplyA[ep].MDA];
IF dws=
NIL
AND mayAdd
THEN {
dws ← BiRels.CreateVector[bounds: [0, a.size-1], rightSpace: a.dumrep.dwSpace].Refify;
a.dumrep.epToWire.AddNewAA[ep, dws]};
RETURN};
EnsureStatEdge:
PUBLIC
PROC [d: Design, sr: StatRep, sep: StatEdgeSpec, mayHaveParent, mayHaventParent, close:
BOOL]
RETURNS [se: StatEdge] ~ {
se ← FindStatEdge[sr, sep, FALSE].fse;
IF se=NIL THEN se ← AddStatEdge[d, sr, sep];
IF (sep.vs[FALSE] ← ParentSV[d, sep.vs[FALSE]]).port = NIL THEN GOTO Istop;
IF (sep.vs[TRUE] ← ParentSV[d, sep.vs[TRUE]]).port = NIL THEN GOTO Istop;
{width: NATURAL ~ d.Width[sep.vs[FALSE].port];
IF width # d.Width[sep.vs[TRUE].port] THEN GOTO Istop;
FOR i:
NATURAL
IN [0 .. width)
DO
IF FindStatEdge[sr, ChildSEP[d, sep, i], FALSE].fse=NIL THEN GOTO Istop;
ENDLOOP;
IF NOT mayHaveParent THEN ERROR;
IF close THEN [] ← EnsureStatEdge[d, sr, sep, mayHaveParent, mayHaventParent, close];
RETURN};
EXITS Istop => IF NOT mayHaventParent THEN ERROR;
};
AddStatEdge:
PUBLIC
PROC [d: Design, sr: StatRep, sep: StatEdgeSpec]
RETURNS [se: StatEdge] ~ {
se ← NEW [StatEdgePrivate ← [d.PWRank[sep.vs[FALSE].port], sep.d]];
IF se.rank # d.PWRank[sep.vs[TRUE].port] THEN ERROR;
IF NOT sr.edges.AddA[se] THEN ERROR;
sr.portEdge[FALSE].AddNewAA[sep.vs[FALSE].port, se];
sr.portEdge[TRUE].AddNewAA[sep.vs[TRUE].port, se];
sr.svEdge[FALSE].AddNewPair[[SvV[sep.vs[FALSE]], AV[se]]];
sr.svEdge[TRUE].AddNewPair[[SvV[sep.vs[TRUE]], AV[se]]];
RETURN};
RemLowerStateEdges:
PROC [d: Design, sr: StatRep, sep: StatEdgeSpec] ~ {
kidPortsA: Seq ~ d.SubSeq[sep.vs[FALSE].port];
IF kidPortsA=nilBiRel
THEN {
IF NOT d.Atomic[sep.vs[TRUE].port] THEN ERROR;
RETURN};
{width: LNAT ~ kidPortsA.Size.EN;
IF width # d.Width[sep.vs[TRUE].port] THEN ERROR;
FOR i:
LNAT
IN [0 .. width)
DO
csep: StatEdgeSpec ~ ChildSEP[d, sep, i];
RemStatEdge[d, sr, csep];
RemLowerStateEdges[d, sr, csep];
ENDLOOP;
RETURN}};
RemStatEdge:
PUBLIC
PROC [d: Design, sr: StatRep, sep: StatEdgeSpec] ~ {
se: StatEdge ~ FindStatEdge[sr, sep, FALSE].fse;
IF se=NIL THEN ERROR;
IF NOT sr.edges.RemA[se] THEN ERROR;
IF NOT sr.portEdge[FALSE].DeleteA[se, right] THEN ERROR;
IF NOT sr.portEdge[TRUE].DeleteA[se, right] THEN ERROR;
IF NOT sr.svEdge[FALSE].DeleteA[se, right] THEN ERROR;
IF NOT sr.svEdge[TRUE].DeleteA[se, right] THEN ERROR;
RETURN};
ChildSEP:
PUBLIC
PROC [d: Design, sep: StatEdgeSpec, i:
NATURAL]
RETURNS [StatEdgeSpec] ~ {
RETURN [[
vs: [
FALSE: ChildSV[d, sep.vs[FALSE], i],
TRUE: ChildSV[d, sep.vs[TRUE], i] ],
d: sep.d]]};
ChildSV:
PROC [d: Design, sv: StatVertex, i:
NATURAL]
RETURNS [StatVertex] ~ {
RETURN [[NARROW[d.Sub[sv.port, i]], sv.phase]]};
ParentSEP:
PUBLIC
PROC [d: Design, sep: StatEdgeSpec]
RETURNS [StatEdgeSpec] ~ {
RETURN [[
vs: [
FALSE: ParentSV[d, sep.vs[FALSE]],
TRUE: ParentSV[d, sep.vs[TRUE]] ],
d: sep.d]]};
ParentSV:
PROC [d: Design, sv: StatVertex]
RETURNS [StatVertex] ~ {
RETURN [[d.PParent[sv.port], sv.phase]]};
SeP:
PUBLIC
PROC [se: StatEdge, a: Array, b:
BOOL]
RETURNS [Port] ~ {
RETURN [NARROW[a.statrep.portEdge[b].InvApplyA[se].MA]]};
END.