DIRECTORY Asserting, Atom, Basics, BasicTime, Buttons, Containers, FS, Icons, IO, LichenArrayStuff, Collections, LichenDataOps, LichenDataStructure, PairCollections, List, PieViewers, Process, ProcessProps, RedBlackTree, RefTab, RefText, Rope, RopeHash, ViewerClasses, ViewerOps, ViewerTools;

LichenFromExt: CEDAR MONITOR
LOCKS dr USING dr: DesignReading
IMPORTS Asserting, Atom, BasicTime, Buttons, Containers, FS, Icons, IO, LichenArrayStuff, Collections, LichenDataOps, LichenDataStructure, PairCollections, List, PieViewers, Process, ProcessProps, RedBlackTree, RefTab, RefText, Rope, RopeHash, ViewerOps, ViewerTools

=

BEGIN OPEN Asserting, LichenDataStructure, LichenArrayStuff, LichenDataOps, Sets:Collections, Fns:PairCollections;

REFTEXT: TYPE = REF TEXT;

Viewer: TYPE = ViewerClasses.Viewer;

SourceList: TYPE = LIST OF Source;
Source: TYPE = RECORD [stream: IO.STREAM _ NIL, name: ROPE _ NIL];

Reader: TYPE = REF ReaderRep;
ReaderRep: TYPE = RECORD [
keyword: ROPE,
read: PROC [s: Source, reader: Reader, cr: CellReading],
data: REF ANY];

readers: VarFunction _ Fns.CreateHashDictionary[TRUE];

DesignReading: TYPE = REF DesignReadingRep;
DesignReadingRep: TYPE = MONITORED RECORD [
design: Design,
wDir: ROPE,
cellTypesByName: VarFunction,
fetTypes: RefTab.Ref,
unkosherArrays: Set,
toMerge: RedBlackTree.Table,
mostRecentPathToMerge: Path _ NIL,
impossibleMerges: ImpossibleMergeList _ NIL,
buffer: REFTEXT,
pacifier, pie, label, pause: Viewer,
stop: BOOL _ FALSE,
stack: SourceList _ NIL,
curCellTypeName, suffix: ROPE _ NIL,
curArray: BOOL _ FALSE,
curCellFileLength: REAL _ 0,
change: CONDITION];

undefinedINT: INT = FIRST[INT];

ImpossibleMergeList: TYPE = LIST OF ImpossibleMerge;
ImpossibleMerge: TYPE = RECORD [
arrayInstance: CellInstance, path1, path2: Path];

CellReading: TYPE = REF CellReadingRep;
CellReadingRep: TYPE = RECORD [
dr: DesignReading,
ct: CellType,
name: ROPE,
firstMerge: BOOL _ TRUE,
resistClasses: INT _ undefinedINT,
rScale: REAL--ohms-- _ 1.0E-3,
cScale: REAL--farads-- _ 1.0E-18,
lUnits: REAL--meters-- _ 1.0E-8,
scalingDefined: BOOL _ FALSE,
fetCount: INT _ 0,
waitingMerges: PathPairList _ NIL
];

PathPairList: TYPE = LIST OF PathPair;

Path: TYPE = LIST OF REF ANY--UNION [ROPE, REF Range2]--;

VertexArray: TYPE = REF VertexArrayRep;
VertexArrayRep: TYPE = RECORD [
shape: Size2,
vertices: SEQUENCE length: NAT OF Vertex];

Use: TYPE = RECORD [childName: ROPE, as: ArraySpec];

ArraySpec: TYPE = RECORD [
variant: SELECT kind: * FROM
scalar => [],
array => [
range: Range2,
sep: Int2
]
ENDCASE];

FetTerminal: TYPE = RECORD [
name: SteppyName,
length: INT,
attrs: Assertions];

IntBox: TYPE = RECORD [xmin, ymin, xmax, ymax: INT];

TransformAsTerms: TYPE = Terms;

PathPair: TYPE = REF PathPairPrivate;
PathPairPrivate: TYPE = RECORD [p1, p2: Path];

pacifierIcon: Icons.IconFlavor _ Icons.NewIconFromFile["Lichen.icons", 0];

labelHeight: INTEGER _ 17;
pauseWidth: INTEGER _ 60;
pieDiameter: INTEGER _ 50;

ReadDesign: PROC [rootCellFileName: ROPE, oldDR: DesignReading _ NIL] RETURNS [dr: DesignReading] =
BEGIN
Doit: PROC = {
dr.stack _ NIL;
[] _ ReadCellType[dr.design, rootCellFileName, dr]};
IF oldDR = NIL THEN {
cp: FS.ComponentPositions;
fullFName, designName: ROPE;
[fullFName, cp, ] _ FS.ExpandName[rootCellFileName];
designName _ fullFName.Substr[start: cp.base.start, len: cp.base.length];
dr _ NEW [DesignReadingRep _ [
design: NEW [DesignPrivate _ [
cellTypes: Sets.CreateHashSet[],
other: Assert1[nameReln, designName, NIL]
]],
wDir: fullFName.Substr[len: cp.base.start],
cellTypesByName: Fns.CreateHashDictionary[TRUE],
fetTypes: RefTab.Create[hash: HashFetType, equal: CompareFetTypes],
unkosherArrays: Sets.CreateHashSet[],
toMerge: RedBlackTree.Create[Id, ComparePaths],
buffer: RefText.New[200],
pacifier: Containers.Create[info: [name: designName.Cat[" pacifier"], icon: pacifierIcon]],
pie: NIL,
label: NIL,
pause: NIL
]];
TRUSTED {
Process.InitializeCondition[@dr.change, Process.SecondsToTicks[60]];
Process.EnableAborts[@dr.change]};
dr.pause _ Buttons.Create[info: [name: "Pause", parent: dr.pacifier, wx: 0, wy: 0, ww: pauseWidth, wh: labelHeight], proc: TogglePause, clientData: dr];
dr.label _ ViewerTools.MakeNewTextViewer[info: [parent: dr.pacifier, wx: dr.pause.wx+dr.pause.ww, wy: 0, ww: 100, wh: labelHeight]];
Containers.ChildXBound[container: dr.pacifier, child: dr.label];
dr.pie _ PieViewers.Create[parent: dr.pacifier, x: 0, y: dr.label.wy+dr.label.wh, diameter: pieDiameter, total: 1.0, divisions: 100];
Containers.ChildXBound[container: dr.pacifier, child: dr.pie];
Containers.ChildYBound[container: dr.pacifier, child: dr.pie];
ViewerOps.SetOpenHeight[dr.pacifier, dr.pie.wy+dr.pie.wh];
TRUSTED {Process.Detach[FORK Pacify[dr]]};
}
ELSE {
dr _ oldDR;
};
ProcessProps.PushPropList[List.PutAssoc[$WorkingDirectory, dr.wDir, NIL], Doit];
END;

Pacify: PROC [dr: DesignReading] = {
lastStack: SourceList _ NIL;
lastIndex: INT _ 0;
ViewerOps.OpenIcon[icon: dr.pacifier, bottom: FALSE];
WHILE NOT dr.pacifier.destroyed DO
WithLock: ENTRY PROC [dr: DesignReading] = {
ENABLE UNWIND => NULL;
IF dr.stack = NIL THEN {
IF dr.stack # lastStack THEN {
lastStack _ dr.stack;
ViewerTools.SetContents[dr.label, "Idle"];
PieViewers.Set[dr.pie, 0];
};
}
ELSE {
index: INT = dr.stack.first.stream.GetIndex[];
IF dr.stack # lastStack OR index # lastIndex THEN {
lastStack _ dr.stack;
lastIndex _ index;
ViewerTools.SetContents[dr.label, IO.PutFR["%g%g[%g]%g", [rope[dr.curCellTypeName]], [rope[IF dr.curArray THEN ".aext" ELSE ""]], [integer[index]], [rope[dr.suffix]]]];
PieViewers.Set[dr.pie, index/dr.curCellFileLength];
};
};
};
Process.Pause[Process.MsecToTicks[pacifyPeriod]];
WithLock[dr];
ENDLOOP;
RETURN};

pacifyPeriod: Process.Milliseconds _ 2500;

TogglePause: Buttons.ButtonProc = {
dr: DesignReading = NARROW[clientData];
Flip: ENTRY PROC [dr: DesignReading] = {
ENABLE UNWIND => NULL;
dr.stop _ NOT dr.stop;
BROADCAST dr.change};
Flip[dr];
Buttons.ReLabel[dr.pause, IF dr.stop THEN "Continue" ELSE "Pause"];
};

PrintImpossibles: PROC [to: IO.STREAM, dr: DesignReading] = {
FOR ims: ImpossibleMergeList _ dr.impossibleMerges, ims.rest WHILE ims # NIL DO
im: ImpossibleMerge = ims.first;
to.PutF["%g: %g & %g\n", [rope[Describe[im.arrayInstance, dr.design]]], [rope[FmtPath[im.path1]]], [rope[FmtPath[im.path2]]]];
ENDLOOP;
};

fromExtClass: CellClass _ NEW [CellClassPrivate _ []];

DoPushed: PROC [dr: DesignReading, cellTypeName: ROPE, array: BOOL, s: Source, Proc: PROC [Source]] = {
cooler: SourceList = dr.stack;
oldCellTypeName: ROPE = dr.curCellTypeName;
oldArray: BOOL = dr.curArray;
oldSuffix: ROPE = dr.suffix;
oldCellFileLength: REAL = dr.curCellFileLength;
newSuffix: ROPE = FmtStack[cooler];
newCellFileLength: INT = MAX[s.stream.GetLength[], 1];
Push: ENTRY PROC [dr: DesignReading] = {
ENABLE UNWIND => NULL;
dr.stack _ CONS[s, dr.stack];
dr.curCellTypeName _ cellTypeName;
dr.curArray _ array;
dr.suffix _ newSuffix;
dr.curCellFileLength _ newCellFileLength;
};
Pop: ENTRY PROC [dr: DesignReading] = {
ENABLE UNWIND => NULL;
dr.stack _ cooler;
dr.curCellTypeName _ oldCellTypeName;
dr.curArray _ oldArray;
dr.suffix _ oldSuffix;
dr.curCellFileLength _ oldCellFileLength;
};
Push[dr];
Proc[s !UNWIND => Pop[dr]];
Pop[dr];
};

ReadCellType: PROC [design: Design, cellFileName: ROPE, dr: DesignReading] RETURNS [ct: CellType] = {
cp: FS.ComponentPositions;
fullFName, cellTypeName: ROPE;
from: IO.STREAM;
s: Source;
cr: CellReading;
Pushed: PROC [s: Source] = {PushedRead[dr, cr, s, FALSE]};
[fullFName, cp] _ ExpandName[cellFileName, "ext"];
cellTypeName _ fullFName.Substr[start: cp.base.start, len: cp.base.length];
ct _ LocalCreateCellType[design, dr, cellTypeName, TRUE, NIL, NIL];
cr _ NEW[CellReadingRep _ [dr: dr, ct: ct, name: cellTypeName]];
s _ [from _ FS.StreamOpen[fullFName], fullFName];
DoPushed[dr, cellTypeName, FALSE, s, Pushed];
from.Close[];
};

TryArrayFile: PROC [cr: CellReading] = {
fullFName: ROPE = ExpandName[cr.name, "aext"].fullFName;
s: Source = [FS.StreamOpen[fullFName], fullFName];
Pushed: PROC [s: Source] = {
PushedRead[cr.dr, cr, s, TRUE];
FinishWaitingMerges[cr];
};
IF cr.dr.toMerge.Size[] # 0 OR cr.waitingMerges # NIL THEN ERROR;
DoPushed[cr.dr, cr.name, TRUE, s, Pushed];
s.stream.Close[];
};

PushedRead: PROC [dr: DesignReading, cr: CellReading, s: Source, nested: BOOL] = {
from: IO.STREAM = s.stream;
ct: CellType = cr.ct;
DO
keyword: ROPE;
reader: Reader;
Process.CheckForAbort[];
[] _ from.SkipWhitespace[];
IF from.EndOf[] THEN EXIT;
IF dr.stop THEN Wait[dr];
keyword _ from.GetTokenRope[TokenBreak].token;
reader _ NARROW[readers.Apply[keyword].DVal];
IF reader # NIL
THEN reader.read[s, reader, cr]
ELSE {
terms: Terms _ GetLineTerms[from];
reln: ATOM _ Atom.MakeAtom[keyword];
ct.otherPublic _ Assert[reln, terms, ct.otherPublic];
};
ENDLOOP;
IF dr.toMerge.Size[] # 0 THEN {
IF cr.firstMerge THEN ERROR;
DoMerges[s, cr];
}
ELSE IF cr.firstMerge THEN {cr.firstMerge _ FALSE; TryArrayFile[cr]};
IF nested THEN RETURN;
ct.publicKnown _ TRUE;
ct.privateKnown _ TRUE;
{CleanupChild: PROC [ra: REF ANY] = {
ci: CellInstance = NARROW[ra];
childType: CellType = ci.type;
IF childType.asArray # NIL THEN {
IF childType.useCount # 1 THEN ERROR;
<<we should no longer have to do this:
RetractFalseHypotheses[childType];
Instead we only check:>> IF IsIncompleteArray[childType] THEN ERROR;
TrimArray[childType.asArray];
};
};
ct.asUnorganized.containedInstances.Enumerate[CleanupChild];
}};

FinishWaitingMerges: PROC [cr: CellReading] = {
DO
progress: BOOL _ FALSE;
wml: PathPairList _ cr.waitingMerges;
cr.waitingMerges _ NIL;
FOR wml _ wml, wml.rest WHILE wml # NIL DO
progress _ MergeWork[cr, wml.first.p1, wml.first.p2] OR progress;
ENDLOOP;
IF NOT progress THEN EXIT;
ENDLOOP;
IF cr.waitingMerges # NIL THEN ERROR;
};

Wait: ENTRY PROC [dr: DesignReading] = {
ENABLE UNWIND => NULL;
WHILE dr.stop DO WAIT dr.change ENDLOOP};

FmtStack: PROC [stack: SourceList] RETURNS [suffix: ROPE] = {
suffix _ NIL;
FOR stack _ stack, stack.rest WHILE stack # NIL DO
full: ROPE;
cp: FS.ComponentPositions;
[full, cp, ] _ FS.ExpandName[stack.first.name];
suffix _ IO.PutFR["%g, %g[%g]", [rope[suffix]], [rope[full.Substr[cp.base.start, cp.base.length]]], [integer[IO.GetIndex[stack.first.stream]]]];
ENDLOOP;
suffix _ suffix;
};

GetLineTerms: PROC [from: IO.STREAM] RETURNS [terms: Terms] = {
tail: Terms _ terms _ NIL;
WHILE NOT from.EndOf[] DO
peek: CHAR _ from.PeekChar[];
SELECT peek FROM
'\n => {IF from.GetChar[] # peek THEN ERROR; RETURN};
IN [0C .. ' ] => IF from.GetChar[] # peek THEN ERROR;
ENDCASE => {
this: LORA _ LIST[from.GetRefAny[]];
IF tail = NIL THEN terms _ this ELSE tail.rest _ this;
tail _ this};
ENDLOOP;
};

GetSteppyName: PROC [s: Source] RETURNS [name: SteppyName] ~ {
raw: ROPE ~ GetName[s];
name _ ParseSteppyName[raw];
};

GetName: PROC [s: Source] RETURNS [name: ROPE] = {
from: IO.STREAM = s.stream;
[] _ from.SkipWhitespace[];
SELECT from.PeekChar[] FROM
'" => name _ from.GetRopeLiteral[];
ENDCASE => name _ from.GetTokenRope[TokenBreak].token;
};

TokenBreak: PROC [char: CHAR] RETURNS [cc: IO.CharClass] =
{cc _ SELECT char FROM
'\n => break,
IN [0C .. ' ] => sepr,
ENDCASE => other};

EndLine: PROC [from: IO.STREAM, buffer: REFTEXT] = {
IF NOT from.EndOf[] THEN [] _ from.GetLine[buffer];
};

ReadTech: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
techname: ROPE _ GetName[s];
ct.otherPublic _ Assert1[$tech, techname, ct.otherPublic];
EndLine[from, cr.dr.buffer];
};

ReadTimestamp: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
unixTime: INT _ from.GetInt[];
time: BasicTime.GMT _ BasicTime.Update[unixOrigin, unixTime];
ct.otherPublic _ Assert[$Source, LIST[cr.name.Cat[".mag"], IO.PutFR["%g", IO.time[time]]], ct.otherPublic];
EndLine[from, cr.dr.buffer];
};
unixOrigin: BasicTime.GMT _ BasicTime.Pack[[
year: 1970,
month: January,
day: 1,
hour: 0,
minute: 0,
second: 0,
zone: 0--GMT, I hope--,
dst: no]];

ReadVersion: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
version: ROPE _ GetName[s];
deriver: ROPE = "UCB's Magic .extractor";
ct.otherPublic _ Assert[$DerivingProgram, LIST[deriver, version], ct.otherPublic];
EndLine[from, cr.dr.buffer];
};

ReadScale: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
rscale: INT _ from.GetInt[];
cscale: INT _ from.GetInt[];
lscale: INT _ from.GetInt[];
meters: ROPE = "meters";
IF cr.scalingDefined THEN Warn[s, "More than one scale statment"];
cr.scalingDefined _ TRUE;
cr.rScale _ rscale * cr.rScale;
cr.cScale _ cscale * cr.cScale;
cr.lUnits _ lscale * cr.lUnits;
ct.otherPublic _ AssertFn[$scale, LIST[NEW[REAL_cr.lUnits], meters], ct.otherPublic];
EndLine[from, cr.dr.buffer];
};

ReadResistClasses: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
n: INT _ 0;
IF cr.resistClasses # undefinedINT THEN Warn[s, "More than one resistclasses statment"];
DO
token: ROPE = from.GetTokenRope[TokenBreak].token;
IF token.Equal["\n"] THEN EXIT;
n _ n + 1;
ENDLOOP;
cr.resistClasses _ n;
};

keepCruft: BOOL _ FALSE;

ReadNode: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
fullName: SteppyName ~ GetSteppyName[s];
nodeName: NameStep ~ IF fullName.rest=NIL THEN fullName.first ELSE ERROR;
R: INT = from.GetInt[];
C: INT = from.GetInt[];
x: INT = from.GetInt[];
y: INT = from.GetInt[];
ok: BOOL = SkipNTokens[from, cr.resistClasses*2, cr.dr.buffer];
attrs: Assertions = ReadAttrs[s];
nv: Wire _ NARROW[LookupPart[ct, nodeName]];
IF nv = NIL THEN {
nv _ CreateWire[
containingCT: ct,
names: CreateSteppyNames[LIST[fullName]]
];
}
ELSE {
};
IF keepCruft THEN nv.other _ 
Assert1[$R, NEW[REAL _ R*cr.rScale],
Assert1[$C, NEW[REAL _ C*cr.cScale],
Assert[$locHint, LIST[NEW[INT_x], NEW[INT_y], $UnspecifiedLayer],
Asserting.Union[attrs, nv.other, TRUE]]]];
EndLine[from, cr.dr.buffer];
};

ReadAttrs: PROC [s: Source, zeroNIL: BOOL _ FALSE] RETURNS [allTogetherNow: Assertions] = {
from: IO.STREAM = s.stream;
toke: ROPE _ NIL;
allTogetherNow _ NIL;
IF zeroNIL THEN {
[] _ from.SkipWhitespace[];
IF from.PeekChar[] = '0 THEN {
IF from.GetChar[] # '0 THEN ERROR;
RETURN};
};
{DO
attr: ROPE _ NIL;
toke _ from.GetTokenRope[AttrBreak !IO.EndOfStream => EXIT].token;
IF toke.Equal[","] THEN {Warn[s, "Extra comma"]; LOOP};
IF NOT toke.Equal["\""] THEN GOTO Return;
from.Backup['"];
attr _ from.GetRopeLiteral[ !IO.Error, IO.EndOfStream => {Warn[s, "not a rope literal"]; CONTINUE}];
IF attr # NIL THEN allTogetherNow _ Assert1[$attr, attr, allTogetherNow];
toke _ from.GetTokenRope[AttrBreak !IO.EndOfStream => EXIT].token;
IF NOT toke.Equal[","] THEN GOTO Return;
ENDLOOP;
EXITS
Return => {
FOR i: INT DECREASING IN [0 .. toke.Length[]) DO
s.stream.Backup[toke.Fetch[i]];
ENDLOOP;
};
}};

AttrBreak: PROC [char: CHAR] RETURNS [cc: IO.CharClass] =
{cc _ SELECT char FROM ',, '\n, '" => break, ENDCASE => sepr};

ReadEquiv: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
name1: SteppyName = GetSteppyName[s];
name2: SteppyName = GetSteppyName[s];
v: Vertex _ LookupPart[ct, name1.first];
otherName: SteppyName _ name2;
IF name1.rest#NIL OR name2.rest#NIL THEN ERROR;
IF v=NIL THEN {v _ LookupPart[ct, name2.first]; otherName _ name1};
IF v=NIL THEN ERROR;
KnowVertexName[v, otherName];
EndLine[from, cr.dr.buffer];
};

ReadFet: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
type: ROPE _ GetName[s];
xl: INT _ from.GetInt[];
yl: INT _ from.GetInt[];
xh: INT _ from.GetInt[];
yh: INT _ from.GetInt[];
area: INT _ from.GetInt[];
perim: INT _ from.GetInt[];
sub: SteppyName _ GetSteppyName[s];
GATE: FetTerminal _ GetFetTerminal[s];
T1: FetTerminal _ GetFetTerminal[s];
T2: FetTerminal _ GetFetTerminal[s];
sct: CellType;
tv: CellInstance;
DoTerm: PROC [portIndex: INT, ft: FetTerminal] = {
nv: Wire = GetNet[s, ct, ft.name];
Connect[tv, nv, portIndex];
};
sct _ GetFetType[cr.dr, type, [xl, yl, xh, yh], area, perim, T1.length+T2.length];
tv _ Instantiate[sct, ct, CreateSteppyNames[LIST[LIST[IO.PutFR["Q%g#", IO.int[cr.fetCount _ cr.fetCount + 1]]]]]];
DoTerm[0, GATE];
DoTerm[1, T1];
DoTerm[2, T2];
EndLine[from, cr.dr.buffer];
};

Connect: PROC [ci: CellInstance, wire: Wire, portIndex: INT] = {
[] _ AddEdge[vs: [cellward: ci, wireward: wire], port: ci.type.port.SubPort[portIndex]];
};

GetFetTerminal: PROC [s: Source] RETURNS [ft: FetTerminal] = {
from: IO.STREAM = s.stream;
ft.name _ GetSteppyName[s];
ft.length _ from.GetInt[];
ft.attrs _ ReadAttrs[s, TRUE];
};

GetFetType: PROC [dr: DesignReading, className: ROPE, innerGate: IntBox, area, perim, sumChannelLengths: INT] RETURNS [ct: CellType] = {
design: Design = dr.design;
ft: FetType = NEW [FetTypeRep _ [className, area, perim, sumChannelLengths]];
rft: FetType;
rft _ NARROW[dr.fetTypes.Fetch[ft].val];
IF rft = NIL THEN {
cellTypeName: ROPE = IO.PutFR["%g[%g,%g,%g]", IO.rope[ft.className], IO.int[ft.area], IO.int[ft.perim], IO.int[ft.twiceLength]];
Set: PROC [type, mode: ATOM] = {
ft.ct.otherPublic _ AssertFn1[$MOSFETFlavor, LIST[type, mode], ft.ct.otherPublic];
ft.ct.otherPublic _ AssertFn1[$EquivClass, Rope.Cat["MOSFET", Atom.GetPName[type], Atom.GetPName[mode]], ft.ct.otherPublic];
};
rft _ ft;
ft.ct _ LocalCreateCellType[design, dr, cellTypeName, FALSE, AssertFn1[$MOSFETShape, LIST[NEW[REAL _ ft.twiceLength/2.0], NEW[REAL _ area*2.0/ft.twiceLength]], NIL], NIL];
FetPort[ft.ct.port];
SELECT TRUE FROM
className.Equal["nfet"] => Set[$n, $E];
className.Equal["pfet"] => Set[$p, $E];
ENDCASE => ERROR;
IF NOT dr.fetTypes.Insert[ft, ft] THEN ERROR;
};
ct _ rft.ct;
};

FetPort: PROC [fp: Port] = {
[] _ AddPort[[parent: fp, names: CreateSteppyNames[LIST[LIST[R["gate"]]]]]];
[] _ AddPort[[parent: fp, names: CreateSteppyNames[LIST[LIST[R["ch1"]]]]]];
[] _ AddPort[[parent: fp, names: CreateSteppyNames[LIST[LIST[R["ch2"]]]]]];
};

R: PROC [r: ROPE] RETURNS [r2: ROPE] = INLINE {r2 _ r}--stupid goddam anachronism--;

FetType: TYPE = REF FetTypeRep;
FetTypeRep: TYPE = RECORD [
className: ROPE,
area, perim, twiceLength: INT,
ct: CellType _ NIL];

HashFetType: PROC [ra: REF ANY] RETURNS [hash: CARDINAL] --RefTab.HashProc-- = {
ft: FetType = NARROW[ra];
hash _ RopeHash.FromRope[ft.className];
hash _ (hash + 3*ft.area + 11*ft.perim + 101*ft.twiceLength) MOD 65536;
};

CompareFetTypes: PROC [key1, key2: REF ANY] RETURNS [equal: BOOL] --RefTab.EqualProc-- = {
k1: FetType = NARROW[key1];
k2: FetType = NARROW[key2];
equal _ k1.className.Equal[k2.className] AND k1.area = k2.area AND k1.perim = k2.perim AND k1.twiceLength = k2.twiceLength;
};

ReadUse: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
typeName: ROPE = GetName[s];
useId: ROPE = GetName[s];
ok: BOOL = SkipNTokens[from, 6, cr.dr.buffer];
u: Use = ParseUseDef[useId];
type: CellType = EnsureType[cr.dr, typeName, u.as, ct, u.childName];
ci: CellInstance = FullyInstantiate[type, ct, CreateSteppyNames[LIST[LIST[u.childName]]]];
EndLine[from, cr.dr.buffer];
};

ParseUseDef: PROC [useId: ROPE] RETURNS [u: Use] = {
in: IO.STREAM = IO.RIS[useId];
u.childName _ in.GetTokenRope[UseNameBreak].token;
IF in.EndOf[] THEN {
in.Close[];
RETURN [[u.childName, [scalar[]]]]
}
ELSE {
as: ArraySpec.array _ [array[range: ALL[[0, 0]], sep: [0, 0]]];
Get: PROC [d: Dim] = {
IF in.GetChar[] # '[ THEN ERROR;
as.range[d].min _ in.GetInt[];
IF in.GetChar[] # ': THEN ERROR;
as.range[d].maxPlusOne _ in.GetInt[]+1;
IF in.GetChar[] # ': THEN ERROR;
as.sep[d] _ in.GetInt[];
IF in.GetChar[] # '] THEN ERROR;
};
Get[Foo];
Get[Bar];
IF NOT in.EndOf[] THEN ERROR;
in.Close[];
RETURN [[u.childName, as]];
};
};

UseNameBreak: PROC [char: CHAR] RETURNS [cc: IO.CharClass] --IO.BreakProc-- = {
cc _ SELECT char FROM
'[, '], ': => break,
ENDCASE => other;
};

EnsureType: PROC [dr: DesignReading, typeName: ROPE, as: ArraySpec, parent: CellType, childName: ROPE] RETURNS [ct: CellType] = {
design: Design = dr.design;
WITH as SELECT FROM
x: ArraySpec.scalar => {
ct _ NARROW[dr.cellTypesByName.Apply[typeName].DVal];
IF ct = NIL THEN ct _ ReadCellType[design, typeName, dr];
};
x: ArraySpec.array => {
ec: ROPE = typeName.Cat[FmtAS[as]];
cellTypeName: ROPE = IO.PutFR["%g(%g.%g)", IO.rope[ec], IO.rope[CTName[parent]], IO.rope[childName]];
eltType: CellType _ EnsureType[dr, typeName, [scalar[]], NIL, NIL];
size: Size2 = RangeShape[x.range];
ct _ LocalCreateArray[design, dr, cellTypeName, eltType, size, [1, 1], [[1, 1], [1, 1]], AssertFn1[$EquivClass, ec, NIL], AssertFn1[$ArraySpec, NEW [ArraySpec.array _ x], NIL]];
};
ENDCASE => ERROR;
};

EmptyRange2: PROC [r: Range2] RETURNS [empty: BOOL] = {
empty _ r[Foo].maxPlusOne<=r[Foo].min OR r[Bar].maxPlusOne<=r[Bar].min;
};

NameElt: PROC [i: INT] RETURNS [eltName: NameStep] ~
{eltName _ NewInt[i]};

FmtAS: PROC [as: ArraySpec] RETURNS [r: ROPE] = {
r _ WITH as SELECT FROM
scalar => "scalar",
array => IO.PutFLR["[%g:%g:%g][%g:%g:%g]", LIST[
IO.int[range[Foo].min],
IO.int[range[Foo].maxPlusOne-1],
IO.int[sep[Foo]],
IO.int[range[Bar].min],
IO.int[range[Bar].maxPlusOne-1],
IO.int[sep[Bar]]]],
ENDCASE => ERROR;
};

FmtShape: PROC [shape: Size2] RETURNS [r: ROPE] = {
r _ IO.PutFR["[Foo: %g, Bar: %g]", IO.int[shape[Foo]], IO.int[shape[Bar]]];
};

FmtPath: PROC [path: Path] RETURNS [r: ROPE] = {
r _ NIL;
FOR path _ path, path.rest WHILE path # NIL DO
step: ROPE _ WITH path.first SELECT FROM
x: ROPE => x,
x: REF Range2 => IO.PutFR["[%g:%g,%g:%g]", [integer[x[Foo].min]], [integer[x[Foo].maxPlusOne-1]], [integer[x[Bar].min]], [integer[x[Bar].maxPlusOne-1]]],
ENDCASE => ERROR;
r _ (IF r # NIL THEN r.Concat["/"] ELSE r).Concat[step];
ENDLOOP;
};

ReadMerge: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
IF cr.firstMerge THEN {cr.firstMerge _ FALSE; TryArrayFile[cr]};
{name1: ROPE = GetName[s];
name2: ROPE = GetName[s];
path1: Path = ParsePath[s, ct, name1];
path2: Path = ParsePath[s, ct, name2];
IF PathCompare[path1, cr.dr.mostRecentPathToMerge]#equal THEN {
DoMerges[s, cr];
cr.dr.toMerge.Insert[path1, path1];
};
cr.dr.toMerge.Insert[path2, path2];
cr.dr.mostRecentPathToMerge _ path2;
EndLine[from, cr.dr.buffer];
}};

DoMerges: PROC [s: Source, cr: CellReading] = {
from: CellType = cr.ct;
dr: DesignReading = cr.dr;
lastPath: Path _ NIL;
DoAMerge: PROC [data: REF ANY] RETURNS [stop: BOOL _ FALSE] --RedBlackTree.EachNode-- = {
path: Path = NARROW[data];
IF lastPath # NIL THEN [] _ MergeWork[cr, lastPath, path];
lastPath _ path;
};
dr.toMerge.EnumerateIncreasing[DoAMerge];
dr.toMerge.DestroyTable[];
dr.mostRecentPathToMerge _ NIL;
};

Pathify: PROC [s: Source, from: CellType, steppy: SteppyName] RETURNS [p: Path] ~ {
t: Path _ p _ NIL;
Append: PROC [ra: REF ANY] = {
this: Path _ LIST[ra];
IF t = NIL THEN p _ this ELSE t.rest _ this;
t _ this};
WHILE steppy#NIL DO
ras: REF ArraySpec.array = NARROW[FnVal[$ArraySpec, from.otherPrivate]];
WITH steppy.first SELECT FROM
x: REF INT => {
food: BOOL ~ ras.range[Foo].min # ras.range[Foo].maxPlusOne-1;
bard: BOOL ~ ras.range[Bar].min # ras.range[Bar].maxPlusOne-1;
r2: Range2 _ ras.range;
IF food=bard THEN ERROR;
r2[IF food THEN Foo ELSE Bar] _ [min: x^, maxPlusOne: x^+1];
Append[NEW [Range2 _ r2]];
from _ from.asArray.eltType;
steppy _ steppy.rest};
x: ROPE => {
Append[x];
WITH LookupPart[from, x] SELECT FROM
ci: CellInstance => from _ ci.type;
w: Wire => {IF steppy.rest#NIL THEN ERROR; from _ NIL};
ENDCASE => ERROR;
steppy _ steppy.rest};
ENDCASE => ERROR;
ENDLOOP;
RETURN};

ParsePath: PROC [s: Source, from: CellType, asRope: ROPE] RETURNS [p: Path] = {
in: IO.STREAM = IO.RIS[asRope];
t: Path _ p _ NIL;
Append: PROC [ra: REF ANY] = {
this: Path _ LIST[ra];
IF t = NIL THEN p _ this ELSE t.rest _ this;
t _ this};
GetRange: PROC RETURNS [x: Range] = {
x.maxPlusOne _ (x.min _ in.GetInt[]) + 1;
SELECT in.PeekChar[] FROM
': => {
IF in.GetChar[] # ': THEN ERROR;
x.maxPlusOne _ in.GetInt[] + 1;
};
',, '] => NULL;
ENDCASE => ERROR;
};
WHILE NOT in.EndOf[] DO
toke: ROPE _ in.GetTokenRope[PathNameBreak].token;
ras: REF ArraySpec.array = NARROW[FnVal[$ArraySpec, from.otherPrivate]];
SELECT TRUE FROM
toke.Equal["/"] => LOOP;
toke.Equal["["] => {
food: BOOL = ras.range[Foo].min # ras.range[Foo].maxPlusOne-1;
bard: BOOL = ras.range[Bar].min # ras.range[Bar].maxPlusOne-1;
r2: Range2 _ ras.range;
twoD: BOOL _ FALSE;
IF NOT (food OR bard) THEN ERROR;
IF bard THEN r2[Bar] _ GetRange[] ELSE r2[Foo] _ GetRange[];
toke _ in.GetTokenRope[PathNameBreak].token;
SELECT TRUE FROM
toke.Equal["]"] => NULL;
toke.Equal[","] => {
twoD _ TRUE;
r2[Foo] _ GetRange[];
toke _ in.GetTokenRope[PathNameBreak].token;
IF NOT toke.Equal["]"] THEN ERROR;
};
ENDCASE => ERROR;
IF twoD # (food AND bard) THEN ERROR;
Append[NEW [Range2 _ r2]];
from _ from.asArray.eltType;
};
toke.Equal["]"] => ERROR;
toke.Equal[":"] => ERROR;
toke.Equal[","] => ERROR;
ENDCASE => {
Append[toke];
WITH LookupPart[from, toke] SELECT FROM
ci: CellInstance => from _ ci.type;
w: Wire => {IF NOT in.EndOf[] THEN ERROR; from _ NIL};
ENDCASE => ERROR;
};
ENDLOOP;
in.Close[];
};

PathNameBreak: PROC [char: CHAR] RETURNS [cc: IO.CharClass] --IO.BreakProc-- = {
cc _ SELECT char FROM
'[, '], ':, '/, ', => break,
ENDCASE => other;
};

SubType: PROC [ct: CellType, subscript: INT] RETURNS [sct: CellType] = {
ci: CellInstance = NARROW[LookupPart[ct, NameElt[subscript]]];
sct _ ci.type};

MergeWork: PROC [cr: CellReading, path1, path2: Path] RETURNS [success: BOOL] = {
ct: CellType = cr.ct;
IF ct.asArray # NIL THEN ERROR;
IF path1.rest # NIL AND path2.rest # NIL THEN WITH path1.first SELECT FROM
x: ROPE => WITH path2.first SELECT FROM
y: ROPE => IF x.Equal[y] THEN {
ci: CellInstance = NARROW[LookupPart[ct, x]];
IF ci.type.asArray # NIL THEN {
IF ci.type.useCount # 1 THEN ERROR;
success _ ArrayMerge[cr, ci, x, path1.rest, path2.rest, cr.dr.curArray];
IF cr.dr.curArray AND NOT success THEN cr.waitingMerges _ CONS[NEW [PathPairPrivate _ [path1, path2]], cr.waitingMerges];
IF cr.dr.curArray OR success THEN RETURN;
};
};
y: REF Range2 => ERROR;
ENDCASE => ERROR;
x: REF Range2 => ERROR;
ENDCASE => ERROR;
MergeFinal[ct, path1, path2];
success _ TRUE;
};

flg1: BOOL _ TRUE;	--do we avoid making some self-connections because of edge conditions?
flg2: BOOL _ FALSE;	--do we look only at the critical edge?

ArrayMerge: PROC [cr: CellReading, arrayInstance: CellInstance, instanceName: ROPE, path1, path2: Path, may: BOOL] RETURNS [merged: BOOL] = {
act: CellType = arrayInstance.type;
a: Array = act.asArray;
ras: REF ArraySpec.array = NARROW[FnVal[$ArraySpec, act.otherPrivate]];
et: CellType = a.eltType;
rr1: REF Range2 = NARROW[path1.first];
rr2: REF Range2 = NARROW[path2.first];
r1: Range2 = rr1^;
r2: Range2 = rr2^;
size: Size2 = RangeShape[r2];
xlate: Int2 = [-ras.range[Foo].min, -ras.range[Bar].min];
s1: Range2 = Range2Off[r1, xlate];
s2: Range2 = Range2Off[r2, xlate];
mai1: ArrayIndex = Range2Min[r1];
mai2: ArrayIndex = Range2Min[r2];
D: Int2 = Int2Sub[mai2, mai1];
p1: Port = PortGet[et, path1.rest, may];
p2: Port = PortGet[et, path2.rest, may];
IF RangeShape[r1] # size THEN ERROR;
IF p1=NIL OR p2=NIL THEN {IF may THEN ERROR ELSE RETURN [FALSE]};
merged _ TRUE;
SELECT TRUE FROM
D = [0, 0] => IF NOT PathEquiv[et, path1.rest, path2.rest] THEN {
IF a.size[Foo] < 2 AND a.size[Bar] < 2 THEN ERROR nyet--the following won't work because there are no joints--;
merged _ FALSE;
FOR d: Dim IN Dim DO
FOR side: End IN End DO
lowRange: Range2 _ s1;
tooMuch: BOOL;
SELECT side FROM
low => lowRange[d].maxPlusOne _ MIN[lowRange[d].maxPlusOne, a.size[d]-1];
high => lowRange[d] _ RangeOffClip[lowRange[d], -1];
ENDCASE => ERROR;
tooMuch _ flg1 AND (SELECT side FROM
low =>  lowRange[d].min = 1 AND (flg2 OR lowRange[d].maxPlusOne = a.size[d]-1),
high => lowRange[d].maxPlusOne = a.size[d]-2 AND (flg2 OR lowRange[d].min = 0),
ENDCASE => ERROR);
IF NOT (tooMuch OR EmptyRange2[lowRange]) THEN merged _ MakeArrayConnection[act, d, lowRange, [side, p1], [side, p2], may] OR merged;
ENDLOOP;
ENDLOOP;
};
ABS[D[Foo]]=1 AND ABS[D[Bar]]=1 => {
merged _ FALSE;
FOR d: Dim IN Dim DO
o: Dim = OtherDim[d];
lowRange: Range2 _ s1;
highRange: Range2 _ s2;
lowPort, midPort, highPort, pf, pt: Port;
Do: INT _ D[o];
SELECT D[d] FROM
 1 => {lowPort _ p1; highPort _ p2};
-1 => {lowPort _ p2; highPort _ p1; lowRange _ s2; highRange _ s1; Do _ -Do};
ENDCASE => ERROR;
midPort _ CrossATie[act, d, lowPort, low];
IF midPort # NIL THEN {
lowRange[d] _ RangeOff[lowRange[d], 1];
SELECT Do FROM
 1 => {pf _ midPort; pt _ highPort};
-1 => {pf _ highPort; pt _ midPort; lowRange[o] _ RangeOff[lowRange[o], -1]};
ENDCASE => ERROR;
merged _ MakeArrayConnection[act, o, lowRange, [low, pf], [high, pt], may];
IF merged THEN EXIT;
};
midPort _ CrossATie[act, d, highPort, high];
IF midPort # NIL THEN {
lowRange _ highRange;
lowRange[d] _ RangeOff[lowRange[d], -1];
SELECT Do FROM
 1 => {pf _ lowPort; pt _ midPort; lowRange[o] _ RangeOff[lowRange[o], -1]};
-1 => {pf _ midPort; pt _ lowPort};
ENDCASE => ERROR;
merged _ MakeArrayConnection[act, o, lowRange, [low, pf], [high, pt], may];
IF merged THEN EXIT;
};
ENDLOOP;
};
ABS[D[Foo]] + ABS[D[Bar]] = 1 => {
merged _ SELECT TRUE FROM
D=[-1, 0]=> MakeArrayConnection[act,Foo, s2,[low,p2], [high,p1], may],
D=[ 1, 0]=> MakeArrayConnection[act,Foo, s1,[low,p1], [high,p2], may],
D=[0, -1]=> MakeArrayConnection[act,Bar, s2,[low,p2], [high,p1], may],
D=[0,  1]=> MakeArrayConnection[act,Bar, s1,[low,p1], [high,p2], may],
ENDCASE=> ERROR;
};
may => {
--might as well give up now, it will never get easier--cr.dr.impossibleMerges _ CONS[[arrayInstance, path1, path2], cr.dr.impossibleMerges];
merged _ TRUE;--maybe "merged" isn't exactly the right word for it--
};
ENDCASE => {
IF size # [1, 1] THEN ERROR;
merged _ ArrayEltPortsConnected[a, mai1, mai2, p1, p2];
};
merged _ merged;
};

MergeFinal: PROC [ct: CellType, path1, path2: Path] = {
w1, w2, nw: Wire;
w1 _ PathGet[ct, path1, TRUE];
w2 _ PathGet[ct, path2, TRUE];
nw _ MergeNets[w1, w2].merged;
RETURN};

VAFetch: PROC [va: VertexArray, f, b: NAT] RETURNS [v: Vertex] = {
v _ va[f*va.shape[Bar]+b];
};

VAStore: PROC [va: VertexArray, f, b: NAT, v: Vertex] = {
va[f*va.shape[Bar]+b] _ v;
};

PathGet: PROC [from: CellType, path: Path, mayAdd: BOOL] RETURNS [w: Wire] = {
WITH path.first SELECT FROM
r: ROPE => {
child: Vertex = LookupPart[from, r];
WITH child SELECT FROM
x: Wire => w _ x;
ci: CellInstance => {
childPort: Port = PortGet[ci.type, path.rest, mayAdd];
IF childPort # NIL THEN {
w _ FindTransitiveConnection[ci, childPort];
IF w=NIL THEN ERROR;
};
};
ENDCASE => ERROR;
};
x: REF Range2 => ERROR;
ENDCASE => ERROR;
};

PortGet: PROC [from: CellType, path: Path, mayAdd: BOOL] RETURNS [port: Port] = {
WITH path.first SELECT FROM
x: REF Range2 => {
ras: REF ArraySpec.array = NARROW[FnVal[$ArraySpec, from.otherPrivate]];
a: Array = from.asArray;
eltPort: Port = PortGet[a.eltType, path.rest, mayAdd];
IF eltPort=NIL THEN port _ NIL ELSE {
index: ArrayIndex = Int2Sub[Range2Min[x^], Range2Min[ras.range]];
IF NOT Range2IsSingleton[x^] THEN ERROR;
port _ GetArrayPortForPort[from, a, index, eltPort, mayAdd];
};
};
x: ROPE => {
child: Vertex = LookupPart[from, x];
WITH child SELECT FROM
w: Wire => IF path.rest # NIL THEN ERROR ELSE {
port _ PortForWire[from, w, NIL, mayAdd].port;
};
ci: CellInstance => IF path.rest = NIL THEN ERROR ELSE {
childPort: Port = PortGet[ci.type, path.rest, mayAdd];
IF childPort = NIL THEN port _ NIL ELSE {
w: Wire = FindTransitiveConnection[ci, childPort];
IF w=NIL THEN ERROR;
port _ PortForWire[from, w, NIL, mayAdd].port;
};
};
ENDCASE => ERROR;
};
ENDCASE => ERROR;
port _ port;
};

WithTestRA: PROC [x: REF ANY] RETURNS [kind: ROPE] = {
WITH x SELECT FROM
ci: CellInstance => RETURN ["CellInstance"];
v: Vertex => RETURN ["Vertex"];
ENDCASE => RETURN ["ENDCASE"];
};

WithTestV: PROC [x: Vertex] RETURNS [kind: ROPE] = {
WITH x SELECT FROM
ci: CellInstance => RETURN ["CellInstance"];
v: Vertex => RETURN ["Vertex"];
ENDCASE => RETURN ["ENDCASE"];
};

GetNet: PROC [s: Source, from: CellType, name: SteppyName] RETURNS [w: Wire] = {
path: Path ~ Pathify[s, from, name];
w _ PathGet[from, path, TRUE];
};

ReadCap: PROC [s: Source, reader: Reader, cr: CellReading] = {
ct: CellType = cr.ct;
from: IO.STREAM = s.stream;
EndLine[from, cr.dr.buffer];
};

SkipNTokens: PROC [from: IO.STREAM, n: INT, buffer: REFTEXT] RETURNS [ok: BOOL] = {
WHILE n > 0 DO
token: REFTEXT = from.GetToken[TokenBreak, buffer].token;
IF RefText.Equal[token, "\n"] THEN RETURN [FALSE];
n _ n - 1;
ENDLOOP;
ok _ TRUE;
};

Warn: PROC [s: Source, msg: ROPE, v1, v2, v3, v4, v5: IO.Value _ [null[]]] = {
IF s.name # NIL THEN msg _ IO.PutFR["At %g[%g]: %g", [rope[s.name]], [integer[s.stream.GetIndex[]]], [rope[msg]]];
msg _ IO.PutFR[msg, v1, v2, v3, v4, v5];
Log["%g", LIST[msg]];
};

LocalCreateArray: PROC [design: Design, dr: DesignReading, cellTypeName: ROPE, eltType: CellType, size, jointsPeriod: Size2, borders: ARRAY Dim OF ARRAY End OF NAT, otherPublic, otherPrivate: Assertions _ NIL] RETURNS [ct: CellType] = {
ct _ CreateArray[design, cellTypeName, fromExtClass, eltType, size, jointsPeriod, borders, otherPublic, otherPrivate];
IF NOT dr.cellTypesByName.Store[[cellTypeName, ct]] THEN ERROR;
};

LocalCreateCellType: PROC [design: Design, dr: DesignReading, cellTypeName: ROPE, internals: BOOL, otherPublic, otherPrivate: Assertions _ NIL] RETURNS [ct: CellType] = {
ct _ CreateCellType[design, cellTypeName, fromExtClass, internals, otherPublic, otherPrivate];
IF NOT dr.cellTypesByName.Store[[cellTypeName, ct]] THEN ERROR;
};

LookupPart: PROC [ct: CellType, step: NameStep] RETURNS [v: Vertex] = {
pbn: VarFunction = Fns.DeRef[FnVal[partsByNameKey, ct.otherPrivate]].AsVar;
v _ NARROW[pbn.Apply[LIST[step]].DVal];
};

CTName: PROC [cellType: CellType] RETURNS [name: ROPE] = {
name _ NARROW[FnVal[nameReln, cellType.otherPublic]];
};

PathEquiv: PROC [from: CellType, path1, path2: Path] RETURNS [equiv: BOOL] = {
Work: PROC [from: CellType, path1, path2: Path] RETURNS [equiv: BOOL, p1, p2: Port] = {
WITH path1.first SELECT FROM
r1: ROPE => WITH path2.first SELECT FROM
r2: ROPE => {
v1: Vertex = LookupPart[from, r1];
v2: Vertex = LookupPart[from, r2];
IF ISTYPE[v1, Wire] # (path1.rest=NIL) OR ISTYPE[v2, Wire] # (path2.rest=NIL) THEN ERROR;
IF path1.rest=NIL OR path2.rest=NIL THEN {
w1: Wire = WITH v1 SELECT FROM
w: Wire => w,
ci: CellInstance => PathGet[from, path1, FALSE],
ENDCASE => ERROR;
w2: Wire = WITH v2 SELECT FROM
w: Wire => w,
ci: CellInstance => PathGet[from, path2, FALSE],
ENDCASE => ERROR;
p1 _ PortForWire[from, w1, NIL, FALSE].port;
p2 _ PortForWire[from, w2, NIL, FALSE].port;
equiv _ w1=w2;
}
ELSE {
ci1: CellInstance = NARROW[v1];
ci2: CellInstance = NARROW[v2];
w1, w2: Wire;
IF ci1=ci2 THEN {
[equiv, p1, p2] _ Work[ci1.type, path1.rest, path2.rest];
IF equiv OR p1=NIL OR p2=NIL THEN RETURN;
w1 _ NARROW[FindTransitiveConnection[ci1, p1]];
w2 _ NARROW[FindTransitiveConnection[ci2, p2]];
IF w1=NIL OR w2=NIL THEN ERROR;
}
ELSE {
w1 _ PathGet[from, path1, FALSE];
w2 _ PathGet[from, path2, FALSE];
};
p1 _ PortForWire[from, w1, NIL, FALSE].port;
p2 _ PortForWire[from, w2, NIL, FALSE].port;
equiv _ w1=w2;
};
};
x2: REF Range2 => RETURN [FALSE, NIL, NIL];
ENDCASE => ERROR;
s1: REF Range2 => WITH path2.first SELECT FROM
r2: ROPE => RETURN [FALSE, NIL, NIL];
s2: REF Range2 => {
a: Array = from.asArray;
IF RangeShape[s1^] # [1, 1] OR RangeShape[s2^] # [1, 1] THEN RETURN [s1^ = s2^, NIL, NIL];
{ep1: Port = PortGet[a.eltType, path1.rest, FALSE];
ep2: Port = PortGet[a.eltType, path1.rest, FALSE];
D: Int2 = Int2Sub[Range2Min[s2^], Range2Min[s1^]];
Try: PROC [d: Dim, lowIndex: ArrayIndex, rp1, rp2: SidedPort] RETURNS [connected: BOOL] = {
equiv _ connected _ ArrayEltPortsConnectedByJoint[a, d, lowIndex, rp1, rp2].really};
p1 _ GetArrayPortForPort[from, a, Range2Min[s1^], ep1, FALSE];
p2 _ GetArrayPortForPort[from, a, Range2Min[s2^], ep2, FALSE];
SELECT TRUE FROM
D = [0, 0] => {
FOR d: Dim IN Dim DO
FOR side: End IN End DO
lowIndex: ArrayIndex _ Range2Min[s1^];
IF side = high THEN lowIndex[d] _ lowIndex[d] - 1;
IF Try[d, lowIndex, [side, ep1], [side, ep2]] THEN RETURN;
ENDLOOP;
ENDLOOP;
};
ABS[D[Foo]] + ABS[D[Bar]] = 1 => {
d: Dim = IF ABS[D[Foo]] = 1 THEN Foo ELSE Bar;
lowPort, highPort: Port;
lowS: REF Range2;
SELECT D[d] FROM
 1 => {lowS _ s1; lowPort _ ep1; highPort _ ep2};
-1 => {lowS _ s2; lowPort _ ep2; highPort _ ep1};
ENDCASE => ERROR;
[] _ Try[d, Range2Min[lowS^], [low, lowPort], [high, highPort]];
};
ENDCASE => ERROR nyet;
}};
ENDCASE => ERROR;
ENDCASE => ERROR;
};
IF path1 = NIL OR path2 = NIL THEN ERROR;
RETURN [Work[from, path1, path2].equiv];
};

Id: PROC [data: REF ANY] RETURNS [ans: REF ANY] = {
ans _ data};

ComparePaths: PROC [k, data: REF ANY] RETURNS [c: Basics.Comparison] = {
k1: Path = NARROW[k];
k2: Path = NARROW[data];
c _ PathCompare[k1, k2]};

PathCompare: PROC [path1, path2: Path] RETURNS [c: Basics.Comparison] = {
DO
IF path1 = path2 THEN RETURN [equal];
IF path1 = NIL THEN RETURN [less];
IF path2 = NIL THEN RETURN [greater];
WITH path1.first SELECT FROM
r1: ROPE => WITH path2.first SELECT FROM
r2: ROPE => c _ r1.Compare[r2];
x2: REF Range2 => c _ less;
ENDCASE => ERROR;
s1: REF Range2 => WITH path2.first SELECT FROM
r2: ROPE => c _ greater;
s2: REF Range2 =>
IF (c _ IntCompare[s1[Foo].min, s2[Foo].min]) = equal THEN
IF (c _ IntCompare[s1[Foo].maxPlusOne, s2[Foo].maxPlusOne]) = equal THEN
IF (c _ IntCompare[s1[Bar].min, s2[Bar].min]) = equal THEN
c _ IntCompare[s1[Bar].maxPlusOne, s2[Bar].maxPlusOne];
ENDCASE => ERROR;
ENDCASE => ERROR;
IF c # equal THEN RETURN;
path1 _ path1.rest;
path2 _ path2.rest;
ENDLOOP;
};

PathPairEqual: PROC [k1, k2: REF ANY] RETURNS [equal: BOOL] = {
pp1: PathPair = NARROW[k1];
pp2: PathPair = NARROW[k2];
equal _ (PathCompare[pp1.p1, pp2.p1] = equal AND PathCompare[pp1.p2, pp2.p2] = equal) OR (PathCompare[pp1.p1, pp2.p2] = equal AND PathCompare[pp1.p2, pp2.p1] = equal);
};

HashPathPair: PROC [key: REF ANY] RETURNS [hash: CARDINAL] = {
pp: PathPair = NARROW[key];
hash _ HashPath[pp.p1] + HashPath[pp.p2];
};

HashPath: PROC [path: Path] RETURNS [hash: CARDINAL] = {
hash _ 0;
FOR path _ path, path.rest WHILE path # NIL DO
WITH path.first SELECT FROM
r: ROPE => hash _ hash + RopeHash.FromRope[r];
x: REF Range2 => hash _ hash + Sets.HashIntI[x[Foo].min] + Sets.HashIntI[x[Foo].maxPlusOne] + Sets.HashIntI[x[Bar].min] + Sets.HashIntI[x[Bar].maxPlusOne];
ENDCASE => ERROR;
ENDLOOP;
};

IntCompare: PROC [i1, i2: INT] RETURNS [c: Basics.Comparison] = {
c _ SELECT i1 - i2 FROM
>0 => greater,
=0 => equal,
<0 => less,
ENDCASE => ERROR;
};

Lg: PROC [i: INT] RETURNS [lg: CARDINAL] = {
IF i < 0 THEN ERROR;
IF i = 0 THEN RETURN [0];
lg _ 1 + (SELECT i FROM
<=00000001H => 00,
<=00000002H => 01,
<=00000004H => 02,
<=00000008H => 03,
<=00000010H => 04,
<=00000020H => 05,
<=00000040H => 06,
<=00000080H => 07,
<=00000100H => 08,
<=00000200H => 09,
<=00000400H => 10,
<=00000800H => 11,
<=00001000H => 12,
<=00002000H => 13,
<=00004000H => 14,
<=00008000H => 15,
<=00010000H => 16,
<=00020000H => 17,
<=00040000H => 18,
<=00080000H => 19,
<=00100000H => 20,
<=00200000H => 21,
<=00400000H => 22,
<=00800000H => 23,
<=01000000H => 24,
<=02000000H => 25,
<=04000000H => 26,
<=08000000H => 27,
<=10000000H => 28,
<=20000000H => 29,
<=40000000H => 30,
ENDCASE => 31);
};

Register: PROC [keyword: ROPE, read: PROC [s: Source, reader: Reader, cr: CellReading], data: REF ANY _ NIL] = {
r: Reader _ NEW [ReaderRep _ [keyword, read, data]];
IF NOT readers.Store[[keyword, r]] THEN ERROR;
};

Start: PROC = {
Register["tech", ReadTech];
Register["timestamp", ReadTimestamp];
Register["version", ReadVersion];
Register["scale", ReadScale];
Register["resistclasses", ReadResistClasses];
Register["node", ReadNode];
Register["equiv", ReadEquiv];
Register["fet", ReadFet];
Register["use", ReadUse];
Register["merge", ReadMerge];
Register["cap", ReadCap];
};

Start[];

END.
θLichenFromExt.Mesa
Last tweaked by Mike Spreitzer on August 28, 1987 11:45:21 am PDT
Consumes newline at end of line.
name1: ROPE _ GetName[s];
name2: ROPE _ GetName[s];
C: INT _ from.GetInt[];
Register["adjust", ReadAdjust];
Κ;Ϋ–

"cedar" style˜
code™K™A—K˜KšΟk	œ:œ	œΤ
˜€K˜šΠbx
œœ
˜Kšœœ˜ Kšœ2œ	œΔ
˜ŠK˜Kš
œ
˜
—K˜Kšœ
œBΟnœŸœ˜rK˜Kšœœœ
œ
˜K˜Kšœœ˜$K˜Kšœœœ
œ˜"Kšœœœ
œ
œœœœ˜BK˜Kšœœœ˜šœœœ˜Kšœ	œ
˜šœœ.˜8K™ —Kšœœ
œ˜—K˜Kšœ0œ˜6K˜Kšœœœ˜+šœœ	œ
œ˜+K˜Kšœœ
˜K˜Kš
œ˜K˜K˜Kšœœ
˜"Kšœ(œ
˜,Kšœœ
˜Kš
œ$˜$Kšœœœ
˜Kšœœ
˜Kšœœœ
˜$Kšœ
œœ
˜Kšœœ˜Kšœ	œ˜—K˜Kšœœœ
œ˜K˜Kšœœœ
œ˜4šœœœ˜ Kš
œ1˜1—K˜Kšœ
œœ˜'šœœœ˜K˜K˜
Kšœœ
˜Kšœœœ
˜Kšœœ˜"KšœΟcœ
˜Kšœ 
œ˜!Kšœ 
œ
˜ Kšœœœ
˜Kšœ
œ˜Kšœ˜!Kš
œ˜—K˜Kšœœœ
œ
˜&K˜Kšœœœ
œ
œ
 œ
˜9K˜Kšœ
œœ˜'šœœœ˜Kš
œ
˜
Kšœ
œ	œ
œ	˜*—K˜Kšœœœ
œ˜4K˜šœœœ˜šœ	œ	˜K˜
š
œ
˜
K˜K˜	Kš
œ
˜
—Kšœ˜	——K˜šœ
œœ˜Kš
œ˜Kšœœ
˜K˜—K˜Kšœœœœ˜4K˜Kšœœ	˜K˜Kšœ
œœ˜%Kšœœœ˜.K˜K˜JK˜Kšœ
œ˜Kšœœ˜Kšœ
œ˜K˜š
Ÿ
œœœœœ˜cKš
˜šŸœœ˜Kšœœ
˜Kš
œ4˜4—šœ	œ
œ˜Kšœœ˜Kšœœ
˜Kšœœ˜4Kš
œI˜Išœœ˜šœœ˜Kš
œ ˜ Kšœ%œ
˜)Kš
œ˜—Kš
œ+˜+Kšœ*œ˜0Kš
œC˜CKš
œ%˜%Kš
œ/˜/K˜K•StartOfExpansionΔ[info: 
ViewerClasses.ViewerRec _ [class: 
NIL, wx: 
0, wy: 
0, ww: 
0, wh: 
0, cx: 
0, cy: 
0, cw: 
0, ch: 
0, lock: 
[process: 
PROCESS#0B, count: 
0B (0)], tipTable: 
NIL, name: 
NIL, file: 
NIL, label: 
NIL, menu: 
NIL, icon: 
177777B?, column: 
left, caption: 
FALSE, scrollable: 
TRUE, hscrollable: 
FALSE, iconic: 
TRUE, border: 
TRUE, newVersion: 
FALSE, newFile: 
FALSE, visible: 
TRUE, offDeskTop: 
FALSE, destroyed: 
FALSE, init: 
FALSE, saveInProgress: 
FALSE, inhibitDestroy: 
FALSE, guardDestroy: 
FALSE, paintingWedged: 
FALSE, spare0: 
FALSE, spare1: 
FALSE, spare2: 
FALSE, spare3: 
FALSE, spare4: 
FALSE, spare5: 
FALSE, spare6: 
FALSE, position: 
0, openHeight: 
0, link: 
NIL, parent: 
NIL, sibling: 
NIL, child: 
NIL, props: 
NIL, data: 
NIL], paint: 
BOOL _ TRUE]˜[Kšœœ
˜	Kšœœ
˜Kšœ˜
Kš
œ˜—šœ˜	Kš
œD˜DK˜"—K–κ[info: 
ViewerClasses.ViewerRec _ [class: 
NIL, wx: 
0, wy: 
0, ww: 
0, wh: 
0, cx: 
0, cy: 
0, cw: 
0, ch: 
0, lock: 
[process: 
PROCESS#0B, count: 
0B (0)], tipTable: 
NIL, name: 
NIL, file: 
NIL, label: 
NIL, menu: 
NIL, icon: 
177777B?, column: 
left, caption: 
FALSE, scrollable: 
TRUE, hscrollable: 
FALSE, iconic: 
TRUE, border: 
TRUE, newVersion: 
FALSE, newFile: 
FALSE, visible: 
TRUE, offDeskTop: 
FALSE, destroyed: 
FALSE, init: 
FALSE, saveInProgress: 
FALSE, inhibitDestroy: 
FALSE, guardDestroy: 
FALSE, paintingWedged: 
FALSE, spare0: 
FALSE, spare1: 
FALSE, spare2: 
FALSE, spare3: 
FALSE, spare4: 
FALSE, spare5: 
FALSE, spare6: 
FALSE, position: 
0, openHeight: 
0, link: 
NIL, parent: 
NIL, sibling: 
NIL, child: 
NIL, props: 
NIL, data: 
NIL], proc: 
Buttons.ButtonProc, clientData: 
REF ANY _ NIL, fork: 
BOOL _ TRUE, font: 
ImagerFont.Font _ NIL, documentation: 
REF ANY _ NIL, guarded: 
BOOL _ FALSE, paint: 
BOOL _ TRUE]š
œ˜
˜˜
Kš
œ„
˜„
K–B[container: 
Containers.Container, child: 
ViewerClasses.Viewer]˜@Kš
œ…
˜…
K–B[container: 
Containers.Container, child: 
ViewerClasses.Viewer]˜>K–B[container: 
Containers.Container, child: 
ViewerClasses.Viewer]˜>K˜:Kšœœ˜*K˜
—šœ˜K˜K˜—KšœDœ	˜PKšœ
˜—K˜šŸœœ˜$Kšœœ
˜Kšœœ˜K–h[icon: 
ViewerClasses.Viewer, closeOthers: 
BOOL _ FALSE, bottom: 
BOOL _ TRUE, paint: 
BOOL _ TRUE]šœ.œ˜5šœ
œ˜"šŸœœ
œ˜,Kšœ
œœ
˜šœœ
œ˜šœœ˜Kš
œ˜Kš
œ*˜*Kš
œ˜K˜—K˜
—šœ˜Kšœœ$˜.šœœœ˜3Kš
œ˜K˜Kš	œ"œ7œ
œ	œ-˜¨
Kš
œ3˜3K˜—K˜—K˜—Kš
œ1˜1Kš
œ
˜
Kšœ
˜—Kšœ˜—K˜Kš
œ*˜*K˜šŸœ˜#Kšœœ
˜'šŸœœ
œ˜(Kšœ
œœ
˜Kšœ
œ	˜Kš	œ˜—K˜	Kšœœ	œœ
˜CK˜—K˜šŸœœœ
œ˜=šœ:œœ
˜OKš
œ ˜ Kš
œ~˜~Kšœ
˜—K˜—K˜Kšœœ˜6K˜šŸœœ#œ	œ
Ÿœœ˜gK˜Kšœœ˜+Kšœ
œ˜Kšœœ
˜Kšœœ˜/Kšœœ˜#Kšœœœ˜6šŸœœ
œ˜(Kšœ
œœ
˜Kšœœ˜Kš
œ"˜"Kš
œ˜Kš
œ˜Kš
œ)˜)K˜—šŸœœ
œ˜'Kšœ
œœ
˜K˜Kš
œ%˜%Kš
œ˜Kš
œ˜Kš
œ)˜)K˜—K˜	Kšœœ
˜K˜K˜—K˜šŸœœ œœ˜eKšœœ˜Kšœœ
˜Kšœœ
œ
˜K˜
Kš
œ˜KšŸœœ&œ˜:Kš
œ2˜2Kš
œK˜KKšœ3œœœ˜CKšœœ8˜@Kšœœ#˜1Kšœœ
˜-K˜
Kš
œ˜—K˜šŸœœ˜(Kšœœ)˜8Kšœ
œ#˜2šŸœœ˜Kšœœ˜K˜Kš
œ˜—Kš
œœœ
œ
œ
˜AKšœœ
˜*K˜K˜—K˜šŸ
œœ9œ˜RKšœœ
œ˜K˜š
˜Kšœ	œ
˜K˜Kš
œ˜K˜Kšœœ
œ
˜Kšœ	œ
˜K˜.Kšœ	œ˜-šœ
˜Kšœ˜šœ˜K˜"Kšœœ˜$Kš
œ5˜5K˜——Kšœ
˜—šœœ˜Kšœœ
œ
˜Kš
œ˜K˜
—Kšœ
œœœ˜EKšœœ
œ
˜Kšœœ
˜Kšœœ
˜š	œ
Ÿœœœ
œ˜%Kšœœ˜K˜šœœ
œ˜!Kšœœ
œ
˜%š
œ&˜&Kš
œ"˜"—Kšœœœ
œ
˜DKš
œ˜Kš
œ˜—K˜—Kš
œ<˜<K˜—K˜šŸœœ˜/š
˜Kšœ
œœ
˜Kš
œ%˜%Kšœœ
˜šœœœ
˜*Kšœ5œ
˜AKšœ
˜—Kšœ
œ
œ
œ
˜Kšœ
˜—Kšœœ
œ
œ
˜%K˜—K˜šŸœœ
œ˜(Kšœ
œœ
˜Kšœ	œ
œœ˜)—K˜šŸœœœ
œ˜=Kšœ	œ
˜
šœœ	œ
˜2Kšœœ
˜Kšœœ˜Kšœœ˜/Kšœ	œbœ!˜
Kšœ
˜—K˜K˜—K˜š
Ÿœœœ
œœ˜?Kšœœ
˜šœ
œ˜Kšœœ˜šœ˜Kš	œœœ
œœ˜5Kšœœœ
œ
˜5šœ˜Kšœœœ˜$Kšœœ
œœ˜6K˜
——Kšœ
˜—K˜—K˜šŸ
œœ
œ˜>Kšœœ˜K˜K˜—K˜šŸœœ
œœ˜2Kšœœ
œ˜K˜šœ˜K˜#Kšœ/˜6—K˜—K˜š
Ÿ
œœœœœ
˜:šœœ˜K˜
Kšœ˜Kšœ˜——K˜š
Ÿœœœ
œ
œ˜4Kšœ
œœ˜3K˜—K˜šŸœœ1˜?K˜Kšœœ
œ˜Kšœ
œ˜Kš
œ:˜:K˜K˜—K˜šŸ
œœ1˜DK˜Kšœœ
œ˜Kšœ
œ˜Kšœœ*˜=Kšœ!œœ
œ˜kK˜K˜šœœ˜,Kš
œ˜K˜K˜K˜K˜
K˜
Kšœ œ
˜K˜
——K˜šŸœœ1˜BK˜Kšœœ
œ˜Kšœ	œ˜Kšœ	œ˜)Kšœ*œ$˜RK˜Kš
œ˜—K˜šŸ	œœ1˜@K˜Kšœœ
œ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ)˜BKšœœ
˜Kš
œ˜Kš
œ˜Kš
œ˜Kšœ"œ
œ
œ&˜UK˜Kš
œ˜—K˜šŸœœ1˜HK˜Kšœœ
œ˜Kšœœ˜Kšœ!œ1˜Xš
˜Kšœœ'˜2Kšœœ
œ
˜K˜
Kšœ
˜—Kš
œ˜Kš
œ˜—K˜Kšœœœ
˜K˜šŸœœ1˜?K˜Kšœœ
œ˜Kš
œ(˜(Kšœœœ
œœ
œ
˜IKš
œœ˜Kš
œœ˜Kšœœ˜Kšœœ˜Kšœœ7˜?Kš
œ!˜!Kšœœ˜,šœœ
œ˜˜K˜Kšœœ˜(K˜—K˜
—šœ˜K˜—šœœ˜Kšœœ
œ˜$Kšœœ
œ˜$Kšœœ
œ
œœ
œ˜AKšœ!œ˜*—K˜K˜—K˜š
Ÿ	œœœœœ!˜[Kšœœ
œ˜Kšœœœ
˜Kšœœ
˜šœ	œ˜K˜šœœ˜Kšœœ
œ
˜"Kšœ˜—K˜—šœ
˜Kšœœœ
˜Kšœ$œœ˜BKšœœœ˜7Kšœ
œœ
œ˜)K˜Kšœœœ0œ˜dKšœœ
œ7˜IKšœ$œœ˜BKšœ
œœ
œ˜(Kšœ
˜—š
˜š
œ˜š	œœ

œ
œ˜0Kš
œ˜Kšœ
˜—Kš
œ˜——K˜—K˜š
Ÿ	œœœœœ
˜9Kšœœœœ
˜>—K˜šŸ	œœ1˜@K˜Kšœœ
œ˜Kš
œ%˜%Kš
œ%˜%K˜(Kš
œ˜Kšœœ
œœ
œ
œ
˜/Kšœœ
œ6˜CKšœœ
œ
œ
˜Kš
œ˜K˜K˜—K˜šŸœœ1˜>K˜Kšœœ
œ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜Kšœœ˜Kš
œ#˜#Kšœ"˜&K˜$K˜$K˜Kš
œ˜šŸœœ
œ˜2K˜"Kš
œ˜K˜—K˜RKš	œ,œ
œ
œœ)˜rKšœ
œ˜Kš
œ˜Kš
œ˜K˜K˜—K˜šŸœœ+œ˜@Kš
œX˜XK˜—K˜šŸœœ
œ˜>Kšœœ
œ˜K˜K˜Kšœœ˜K˜—K˜š
Ÿ
œœ œ5œœ˜ˆ
K˜Kšœœ<˜MK˜
Kšœœ˜(šœœ
œ˜Kš
œœœœœœœ˜€
šŸœœœ˜ Kšœ-œ!˜RKš
œ|˜|Kš
œ˜—K˜	Kšœ6œœ
œ
œœ
œœœ˜«
K˜šœ
œ
˜K˜'K˜'Kšœœ
˜—Kšœ
œœ
œ
˜-K˜—K˜K˜—K˜šŸœœ˜Kšœ3œ
œ˜LKšœ3œ
œ˜KKšœ3œ
œ˜KK˜—K˜KšŸ
œœœœœœ	 œ
˜TK˜Kšœ	œœ˜šœœœ˜Kšœœ
˜Kšœœ
˜Kšœœ˜—K˜šŸœœœ
œœœ œ˜PKšœœ˜Kš
œ'˜'Kšœ=œ˜GK˜—K˜šŸœœœ
œœ	œ œ˜ZKšœœ˜Kšœœ˜Kšœ)œœœ!˜{K˜—K˜šŸœœ1˜>K˜Kšœœ
œ˜Kšœ
œ˜Kšœœ˜Kšœœ&˜.Kš
œ˜Kš
œD˜DKšœ@œ
œ˜ZK˜K˜—K˜šŸœœ	œœ
˜4Kš	œœ
œœ
œ˜K˜2šœœ˜K˜Kšœ˜"Kš
œ
˜
—šœ˜Kšœ$œ˜?šŸœœ
˜Kšœœ
œ
˜ K˜Kšœœ
œ
˜ K˜'Kšœœ
œ
˜ Kš
œ˜Kšœœ
œ
˜ K˜—Kš
œ	˜	Kš
œ	˜	Kšœ
œœ
œ
˜K˜Kšœ˜K˜—K˜—K˜šŸœœœœœ œ˜Ošœœ˜Kš
œ˜Kšœ
˜—K˜—K˜š
Ÿ
œœœ.œœ˜
K˜šœœ
˜š
œ˜Kšœœ*˜5Kšœœ
œ)˜9K˜—š
œ˜Kšœœ˜#Kšœœœœœœ˜eKšœ9œœ˜CKš
œ"˜"Kšœtœœœ˜±
K˜—Kšœœ
˜—K˜—K˜šŸœœ
œ	œ˜7Kšœ&œ˜GK˜—K˜šŸœœœœ˜4Kš
œ˜—K˜šŸœœœœ˜1šœœœ
˜K˜šœ	œ œ
˜0Kšœ˜Kšœ˜ Kšœ˜Kšœ˜Kšœ˜ Kšœ˜—Kšœœ
˜—K˜—K˜šŸœœœœ˜3Kšœœœœ˜KK˜—K˜šŸœœœœ˜0Kšœœ
˜šœœœ
˜.šœœœœ
˜(Kšœœ˜
Kšœœœ†
˜™
Kšœœ
˜—Kš	œœœ
œœ˜8Kšœ
˜—K˜—K˜šŸ	œœ1˜@K˜Kšœœ
œ˜Kšœœœ˜@Kšœœ˜Kšœœ˜K˜&K˜&šœ7œ˜?Kš
œ˜Kš
œ#˜#K˜—K˜#Kš
œ$˜$K˜K˜—K˜šŸœœ!˜/Kš
œ˜Kš
œ˜Kšœœ
˜šŸœœœ
œœœœ œ˜YKšœ
œ˜Kšœœ
œ$˜:Kš
œ˜K˜—Kš
œ)˜)Kš
œ˜Kšœœ
˜K˜—K˜šŸœœ1œ˜SKšœœ
˜šŸœœœ
œ˜Kšœ
œ˜Kšœœ
œ
œ˜,K˜
—šœœ
˜Kšœœœ'˜Hšœœ
˜šœœ
œ˜Kšœœ4˜>Kšœœ4˜>K˜Kšœœ
œ
˜Kšœœœœ$˜<Kšœœ˜K˜K˜—šœœ˜Kš
œ
˜
šœœ
˜$K˜#Kšœœ
œ
œ
œ	œ˜7Kšœœ
˜—K˜—Kšœœ
˜—Kšœ
˜—Kšœ˜—K˜šŸ	œœ%œœ˜OKš	œœ
œœ
œ	˜Kšœœ
˜šŸœœœ
œ˜Kšœ
œ˜Kšœœ
œ
œ˜,K˜
—šŸœœ
œ˜%K˜)šœ˜˜Kšœœ
œ
˜ K˜K˜—Kšœ
œ
˜Kšœœ
˜—K˜—šœ
œ˜Kšœœ(˜2Kšœœœ'˜Hšœ
œ
˜Kšœœ
˜˜Kšœœ4˜>Kšœœ4˜>K˜Kšœœœ
˜Kš
œ
œœœ
œ
˜!Kšœœœ˜<Kš
œ,˜,šœ
œ
˜Kšœœ
˜˜Kšœœ
˜Kš
œ˜Kš
œ,˜,Kšœ
œœ
œ
˜"K˜—Kšœœ
˜—Kšœœœ
œ
˜%Kšœœ˜K˜K˜—Kšœœ
˜Kšœœ
˜Kšœœ
˜šœ˜K˜
šœœ
˜'K˜#Kšœœ
œœ
œ	œ˜6Kšœœ
˜—K˜——Kšœ
˜—K˜K˜—K˜šŸ
œœœœœ œ˜Pšœœ˜Kš
œ˜Kšœ
˜—K˜—K˜šŸœœœœ˜HKšœœ%˜>K˜—K˜šŸ	œœ'œœ˜QK˜Kšœœ
œ
œ
˜šœœ
œœ
œ
œ
œ
˜Jšœœœ
œ
˜'šœœœœ˜Kšœœ˜-šœœ
œ˜Kšœœ
œ
˜#Kš
œH˜HKšœœ
œ	œœ
œ7˜yKšœœ	œ
œ
˜)K˜—K˜—Kšœœœ
˜Kšœœ
˜—Kšœœœ
˜Kšœœ
˜—K˜Kšœ
œ
˜K˜—K˜Kšœœœ F˜YKšœœœ '˜;K˜šŸ
œœ>œœœ
œ˜
K˜#K˜Kšœœœ&˜GK˜Kšœœ
œ˜&Kšœœ
œ˜&Kš
œ˜Kš
œ˜Kš
œ˜K˜9K˜"K˜"Kš
œ!˜!Kš
œ!˜!KšΠgn
œ˜Kš
œ(˜(Kš
œ(˜(Kšœœ
œ
˜$Kšœœ
œœ
œœœ
œ
œ
œœ˜AKšœ	œ
˜šœ
œ
˜šΟg
œ
œ
œ'œ˜AKš
œœœ
œ 8œ
˜oKšœ	œ
˜šœœ˜šœœ˜K˜Kšœ	œ
˜šœ˜Kšœ œ&˜IKš
œ4˜4Kšœœ
˜—šœœ
œ˜$Kšœœœ'˜OKšœ-œœ˜OKšœœ
˜—Kš
œ
œ
œœMœ˜…
Kšœ
˜—Kšœ
˜—Kš
œ˜—š
œ
’
œ	œ
œ
’
œ
˜$Kšœ	œ
˜šœœ˜K˜K˜K˜K˜)Kš‘
Πdn
œœ’
œ˜šœ
’
œ˜K˜$KšœC’
Οd
œ’
€
œ˜MKšœœ
˜—Kš
œ*˜*šœœ
œ˜K˜'šœ
’
€
œ
˜K˜$K˜MKšœœ
˜—Kš
œK˜KKšœœ
œ
˜K˜—K˜,šœœ
œ˜K˜K˜(šœ
’
€
œ
˜K˜LK˜#Kšœœ
˜—Kš
œK˜KKšœœ
œ
˜K˜—Kšœ
˜—K˜—šœ
’
œ	œ
’
œ˜"šœ	œ
œ
˜Kš’
œE˜FKš’
œE˜FKš’
œE˜FKš’
œE˜FKšœœ
˜—K˜—š
œ˜Kš 7œœ8˜Œ
Kšœ	œ
 6˜DKš
œ˜—šœ˜Kšœœ
œ
˜Kš
œ7˜7Kš
œ˜——Kš
œ˜K˜—K˜šŸ
œœ'˜7K˜Kšœœ˜Kšœœ˜Kš
œ˜Kšœ˜—K˜šŸœœœœ˜BK˜K˜—K˜šŸœœœ˜9Kš
œ˜K˜—K˜šŸœœ&œœ˜Nšœœ
˜šœœ˜Kš
œ$˜$šœœ
˜K˜˜K˜6šœ
œ
œ˜Kš
œ,˜,Kšœœ
œ
œ
˜K˜—K˜—Kšœœ
˜—K˜—Kšœœœ
˜Kšœœ
˜—K˜—K˜šŸœœ&œœ˜Qšœœ
˜šœœ˜Kšœœœ'˜HK˜K˜6š
œ	œ
œœ
œ˜%K˜AKšœ
œœ
œ
˜(K˜<K˜—K˜—šœœ˜Kš
œ$˜$šœœ
˜šœœ
œ
œ
œ
œ˜/Kšœœ˜.K˜—šœœ
œ
œ
œ
œ˜8Kš
œ6˜6š
œ
œ
œœ
œ˜)Kš
œ2˜2Kšœœ
œ
œ
˜Kšœœ˜.K˜—K˜—Kšœœ
˜—K˜—Kšœœ
˜—K˜K˜—K˜šŸ
œœœ
œœœ˜6šœœ
˜Kšœœ˜,Kšœ
œ˜Kšœœ
˜—K˜—K˜šŸ	œœ
œœ˜4šœœ
˜Kšœœ˜,Kšœ
œ˜Kšœœ
˜—K˜—K˜šŸœœ/œ˜PK˜$Kšœœ˜K˜—K˜šŸœœ1˜>K˜Kšœœ
œ˜Kšœœ™Kšœœ™Kš
œœ™K˜K˜—K˜šŸœœœ
œœ
œœœ˜Sšœ˜Kšœœ+˜9Kšœœ
œœ˜2K˜
Kšœ
˜—Kšœœ
˜
K˜—K˜šŸœœœœ˜NKšœ
œ
œœU˜rKšœœ ˜(Kšœ
œ˜K˜—K˜šŸœœ3œ9œœ
œœ
œ*œœ˜μ
Kš
œv˜vKšœ
œ.œ
œ
˜?K˜—K˜šŸœœ3œ
œ*œœ˜ͺ
Kš
œ^˜^Kšœ
œ.œ
œ
˜?K˜—K˜šŸ
œœ œ˜GKš
œK˜KKšœœœ˜'K˜—K˜šŸœœœœ˜:Kšœœ(˜5K˜—K˜šŸ	œœ&œ	œ˜NšŸœœ&œ	œ˜Wšœ
œ
˜šœœœ
œ
˜(šœœ˜
K˜"K˜"Kšœ
œœœ
œœœ
œ
˜Yš
œœ
œœ
œ˜*šœœœ
˜Kš
œ
˜
Kšœ)œ˜0Kšœœ
˜—šœœœ
˜K˜
Kšœ)œ˜0Kšœœ
˜—Kšœœœ˜,Kšœœœ˜,K˜K˜
—šœ˜Kšœœ˜Kšœœ˜K˜
šœ	œ˜K˜9Kšœœœ
œœ
œ
œ
˜)Kšœœ$˜/Kšœœ$˜/Kšœœ
œœ
œ
œ
˜K˜
—šœ˜Kšœœ˜!Kšœœ˜!K˜—Kšœœœ˜,Kšœœœ˜,K˜K˜—Kš
œ˜—Kšœœœœœœ˜+Kšœœ
˜—šœœœ
œ
˜.Kšœœœœœœ˜%šœœ˜K˜Kšœœœ
œ
œœ˜ZKšœ,œ˜3Kšœ+œ˜2Kš‘
œ1˜2šŸœœ5œ
œ˜[Kš
œT˜T—Kšœ7œ˜>Kšœ7œ˜>šœ
œ
˜š’
œ˜šœœ˜šœœ˜K˜&Kšœ
œ˜2Kšœ,œ
œ
˜:Kšœ
˜—Kšœ
˜—K˜—šœ
’
œ	œ
’
œ˜"Kšœ	œ
œ
’
œœœ˜.K˜Kšœœ˜šœ
’
œ˜Kš
œ1˜1Kš
œ1˜1Kšœœ
˜—Kš
œ@˜@K˜—Kšœœ˜—K˜—Kšœœ
˜—Kšœœ
˜—K˜—Kšœ	œ
œ	œ
œ
œ
˜)Kšœ"˜(K˜—K˜šŸœœœ
œœœ
œ˜3K˜—K˜š
Ÿœœœ
œœ˜HKšœœ˜Kšœœ˜Kš
œ˜—K˜šŸœœœ˜Iš
˜Kšœœ
œ	˜%Kšœ	œ
œ
œ˜"Kšœ	œ
œ
œ˜%šœ
œ
˜šœœœ
œ
˜(Kšœœ˜Kšœœ˜Kšœœ
˜—šœœœ
œ
˜.Kšœœ˜šœœ
˜Kšœ4˜:KšœB˜HKšœ4˜:K˜7—Kšœœ
˜—Kšœœ
˜—Kšœœ
œ
˜K˜K˜Kšœ
˜—K˜—K˜šŸ
œœ
œ
œœ	œ˜?Kšœœ˜Kšœœ˜Kšœ-œ&œ&œ&˜§
K˜—K˜šŸœœœ
œœœ˜>Kšœœ˜K˜)K˜—K˜šŸœœœœ˜8K˜	šœœœ
˜.šœœ
˜Kšœœ'˜.Kšœœ•
˜›
Kšœœ
˜—Kšœ
˜—K˜—K˜šŸ
œœ
œœ˜Ašœœ	˜K˜K˜K˜Kšœœ
˜—K˜—K˜š
Ÿœœœœœ˜,Kšœœ
œ
˜Kšœœ
œ˜šœ
œ˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜Kšœ˜—K˜—K˜šŸœœœœ5œ
œœ˜pKšœœ%˜4Kšœ
œœ
œ
˜.Kš
œ˜—K˜šŸœœ˜K˜Kš
œ%˜%Kš
œ!˜!K˜Kš
œ-˜-K˜K˜Kš
œ˜K˜K˜K™Kš
œ˜Kš
œ˜—K˜K˜K˜Kšœ
˜—…—œ€Ωg