DIRECTORY
Alloc: TYPE USING [AddNotify, Bounds, DropNotify, Handle, Notifier, Top],
BcdBindDefs: TYPE USING [RelocHandle],
BcdComData: TYPE USING [currentName, table, textIndex],
BcdControlDefs: TYPE USING [],
BcdDefs: TYPE USING [
CTIndex, cttype, cxtype, EXPIndex, EXPNull, exptype,
FTIndex, FTNull, fttype, IMPIndex, IMPNull, IMPRecord, imptype,
LFIndex, LFNull, lftype, Link, MTIndex, MTRecord, mttype,
NameRecord, NameString, NullLink, NullName, sstype, sttype, treetype, UnboundLink],
BcdErrorDefs: TYPE USING [
ErrorHti, ErrorInterface, ErrorSti, Error2Files, GetModule, GetSti],
BcdUtilDefs: TYPE USING [
EqVersions, GetDummyGfi, GetGfi, InstanceName, NameForSti],
ConvertUnsafe: TYPE USING [SubString],
HashOps: TYPE USING [FindString],
PrincOps: TYPE USING [EPRange, GFTIndex],
Symbols: TYPE USING [CXIndex, cxNull, HTIndex, htNull, STIndex, stNull, STRecord],
Table: TYPE USING [Base],
Tree: TYPE USING [Scan, null],
TreeOps: TYPE USING [ScanList];

BcdBind: PROGRAM
IMPORTS
Alloc, BcdErrorDefs, BcdUtilDefs, HashOps, TreeOps,
data: BcdComData
EXPORTS BcdControlDefs = {
OPEN BcdDefs, Symbols;

BindError: PUBLIC ERROR ~ CODE;

table: Alloc.Handle;
tb, stb, ctb, cxb, mtb, lfb, etb, itb, ftb: Table.Base;
ssb: BcdDefs.NameString;

Notifier: Alloc.Notifier ~ {
tb  _ base[treetype];  stb _ base[sttype];  cxb _ base[cxtype];
ctb _ base[cttype];    mtb _ base[mttype];  lfb _ base[lftype];
etb _ base[exptype];   itb _ base[imptype];
ftb _ base[fttype];
ssb _ base[sstype]};


Error: PROC ~ {ERROR BindError};

ItiToIndex: PROC [impi: IMPIndex] RETURNS [CARDINAL] ~ INLINE {
RETURN [LOOPHOLE[impi, CARDINAL]/IMPRecord.SIZE]};


relocationHead: BcdBindDefs.RelocHandle;
rel: BcdBindDefs.RelocHandle;

BindRoot: PUBLIC PROC [relocationRoot: BcdBindDefs.RelocHandle] ~ {
table _ data.table; table.AddNotify[Notifier];
relocationHead _ relocationRoot;
SetupGFMap[];
AssignImports[
! BcdErrorDefs.GetSti => {
IF rel # NIL THEN
RESUME [StiForContext[
IF rel.type = $inner THEN rel.parentcx ELSE rel.context]]}];
BindModules[];
ReleaseGFMap[];
table.DropNotify[Notifier];  table _ NIL};

LinkType: TYPE ~ RECORD [
SELECT tag:* FROM
gfi => [gfi: PrincOps.GFTIndex],
import => [impi: IMPIndex],
ENDCASE];

GFMapItem: TYPE ~ RECORD [
linkItem: LinkType,
expi: EXPIndex,
offset: [0..4)];

GFMap: TYPE ~ RECORD [SEQUENCE length: CARDINAL OF GFMapItem];
RelMap: TYPE ~ RECORD [SEQUENCE length: CARDINAL OF CARDINAL];

finalFirstDummy: PrincOps.GFTIndex;
gfMap: REF GFMap _ NIL;
relMap: REF RelMap _ NIL;

SetupGFMap: PROC ~ {
nDummies: CARDINAL _ BcdUtilDefs.GetDummyGfi[0]-1;
nImports: CARDINAL ~ table.Bounds[imptype].size/IMPRecord.SIZE;
finalFirstDummy _ BcdUtilDefs.GetGfi[0];
IF nDummies # 0 THEN nDummies _ nDummies + 1;
gfMap _ NEW[GFMap[nDummies]];
FOR i: CARDINAL IN [0..nDummies) DO gfMap[i] _ [[gfi[0]], EXPNull, 0] ENDLOOP;
relMap _ NEW[RelMap[nImports]];
FOR rel: BcdBindDefs.RelocHandle _ relocationHead, rel.link UNTIL rel = NIL DO
FOR iti: IMPIndex _ IMPIndex.FIRST+rel.import, iti+IMPRecord.SIZE
UNTIL iti = rel.importLimit DO
relMap[ItiToIndex[iti]] _ itb[iti].gfi + rel.dummygfi-rel.originalfirstdummy;
ENDLOOP;
ENDLOOP};

RelocatedGfi: PROC [iti: IMPIndex] RETURNS [CARDINAL] ~ {
RETURN [IF iti = IMPNull THEN 0 ELSE relMap[ItiToIndex[iti]]]};

ReleaseGFMap: PROC ~ {
gfMap _ NIL;
relMap _ NIL};


NameToHti: PROC [name: NameRecord] RETURNS [hti: HTIndex] ~ {
ss: ConvertUnsafe.SubString _ [base~@ssb.string, offset~name, length~ssb.size[name]];
hti _ HashOps.FindString[ss];
IF hti = htNull THEN Error[]};

ExpiForSti: PROC [sti: STIndex] RETURNS [EXPIndex] ~ {
RETURN [IF sti = stNull
THEN EXPNull
ELSE
WITH s~~stb[sti] SELECT FROM
external => WITH m~~s.map SELECT FROM interface => m.expi, ENDCASE => EXPNull,
ENDCASE => EXPNull]};


AssignImports: PROC ~ {
saveIndex: CARDINAL ~ data.textIndex;
saveName: NameRecord ~ data.currentName;
FOR rel _ relocationHead, rel.link UNTIL rel = NIL DO
data.textIndex _ rel.textIndex;
data.currentName _ BcdUtilDefs.NameForSti[StiForContext[rel.context]];
SELECT TRUE FROM
(rel.type = $outer) =>  AssignOuter[rel];
(rel.parameters # Tree.null) =>  AssignByPosition[rel];
ENDCASE =>  AssignByName[rel];
ENDLOOP;
data.textIndex _ saveIndex;  data.currentName _ saveName};

AssignOuter: PROC [rel: BcdBindDefs.RelocHandle] ~ {
FOR iti: IMPIndex _ IMPIndex.FIRST+rel.import, iti+IMPRecord.SIZE 
UNTIL iti = rel.importLimit DO
sti: STIndex ~ LookupInstance[iti, rel.context];
IF sti = stNull THEN LOOP;
IF stb[sti].impi # IMPNull
THEN {
OPEN imp~~itb[stb[sti].impi];
stb[sti].impgfi _ imp.gfi _ BcdUtilDefs.GetGfi[imp.ngfi]}
ELSE BcdErrorDefs.ErrorSti[$error, "is not imported by any module"L, sti];
ENDLOOP};

AssignByName: PROC [rel: BcdBindDefs.RelocHandle] ~ {
iti, import: IMPIndex;
export: EXPIndex;
defgfi: CARDINAL;
sti, parentSti: STIndex;
FOR iti _ IMPIndex.FIRST+rel.import, iti+IMPRecord.SIZE UNTIL iti = rel.importLimit DO
sti _ IF rel.type = $inner
THEN LookupInstance[iti, rel.context]
ELSE LookupInterface[iti, rel.context];
IF sti = stNull THEN LOOP;
defgfi _ stb[sti].impgfi;
IF stb[sti].impi # IMPNull
THEN
SELECT rel.type FROM
$inner => {
IF (parentSti _ LookupInterface[iti, rel.parentcx]) = stNull
THEN LOOP;
import _ stb[parentSti].impi;  export _ ExpiForSti[parentSti];
defgfi _ stb[parentSti].impgfi;
sti _ parentSti};
ENDCASE => {import _ stb[sti].impi; export _ ExpiForSti[sti]}
ELSE {import _ IMPNull; export _ ExpiForSti[sti]};
WITH s~~stb[sti] SELECT FROM
external =>
WITH m~~s.map SELECT FROM
module => AssignModule[defgfi, m.mti, iti];
interface => AssignInterface[defgfi, import, export, iti];
unknown => AssignImport[defgfi, import, iti];
ENDCASE => Error[];
unknown => AssignImport[defgfi, import, iti];
ENDCASE => Error[];
ENDLOOP};

LookupInstance: PROC [iti: IMPIndex, cxi: CXIndex] RETURNS [STIndex] ~ {
RETURN [IF cxi = cxNull
THEN stNull
ELSE Lookup[
hti~NameToHti[IF itb[iti].namedInstance
THEN BcdUtilDefs.InstanceName[[import[iti]]]
ELSE itb[iti].name],
cxi~rel.context]]};

LookupInterface: PROC [iti: IMPIndex, cxi: CXIndex] RETURNS [STIndex] ~ {
RETURN [IF cxi = cxNull THEN stNull ELSE Lookup[NameToHti[itb[iti].name], cxi]]};


AssignByPosition: PROC [rel: BcdBindDefs.RelocHandle] ~ {
iti: IMPIndex;
TooManyParameters: ERROR ~ CODE;

AssignPosition: Tree.Scan ~ {
sti: STIndex ~ WITH t SELECT FROM symbol => index, ENDCASE => ERROR;
import: IMPIndex ~ stb[sti].impi;
export: EXPIndex ~ ExpiForSti[sti];
defgfi: CARDINAL ~ stb[sti].impgfi;
IF iti = rel.importLimit THEN ERROR TooManyParameters;
WITH s~~stb[sti] SELECT FROM
external =>
WITH m~~s.map SELECT FROM
module => AssignModule[defgfi, m.mti, iti];
interface => AssignInterface[defgfi, import, export, iti];
unknown => AssignImport[defgfi, import, iti];
ENDCASE => Error[];
ENDCASE => BcdErrorDefs.ErrorSti[$error, "is undeclared"L, sti];
iti _ iti + BcdDefs.IMPRecord.SIZE};

iti _ IMPIndex.FIRST + rel.import;
TreeOps.ScanList[rel.parameters, AssignPosition
! TooManyParameters => {GOTO tooMany}];
IF iti # rel.importLimit THEN GOTO tooFew;
EXITS
tooMany =>  BcdErrorDefs.ErrorHti[$error,
"has too many parameters"L, HtiForRelocation[rel]];
tooFew =>  BcdErrorDefs.ErrorHti[$error,
"has too few parameters"L, HtiForRelocation[rel]]};

MakeLink: PROC [defgfi: CARDINAL, import: IMPIndex, offset: CARDINAL]
RETURNS [LinkType] ~ {
RETURN [SELECT TRUE FROM
(defgfi # 0) => [gfi[defgfi+offset]],
(import = IMPNull) => [gfi[0]],
ENDCASE => [import[import]]]};

AssignModule: PROC [defgfi: PrincOps.GFTIndex, mti: MTIndex, iti: IMPIndex] ~ {
OPEN imp~~itb[iti];
gfi: CARDINAL ~ RelocatedGfi[iti];
IF imp.port # $module OR ~BcdUtilDefs.EqVersions[imp.file, mtb[mti].file] THEN
BcdErrorDefs.Error2Files[
class~$error,
s~"is required for import, but available version is"L,
ft1~imp.file, ft2~mtb[mti].file];
gfMap[gfi] _ [
linkItem~[gfi[IF defgfi # 0 THEN defgfi ELSE mtb[mti].gfi]],
expi~EXPNull, offset~0]};

AssignInterface: PROC [defgfi: PrincOps.GFTIndex, import: IMPIndex, expi: EXPIndex, iti: IMPIndex] ~ {
OPEN exp~~etb[expi], imp~~itb[iti];
gfi: CARDINAL ~ RelocatedGfi[iti];
IF expi # EXPNull AND
(imp.port # exp.port OR ~BcdUtilDefs.EqVersions[imp.file, exp.file]) THEN
BcdErrorDefs.Error2Files[
class~$error,
s~"is required for import, but available version is"L,
ft1~imp.file, ft2~exp.file];
IF imp.port = $module THEN
gfMap[gfi] _ [
linkItem~[gfi[etb[expi].links[0].gfi]],
expi~EXPNull, offset~0]
ELSE FOR i: [0..4) IN [0..imp.ngfi) DO
gfMap[gfi+i] _ [
linkItem~MakeLink[defgfi, import, i],
expi~expi, offset~i];
ENDLOOP};

AssignImport: PROC [defgfi: PrincOps.GFTIndex, import: IMPIndex, iti: IMPIndex] ~ {
OPEN imp~~itb[iti];
gfi: CARDINAL ~ RelocatedGfi[iti];
IF import # IMPNull AND
(imp.port # itb[import].port OR
~BcdUtilDefs.EqVersions[imp.file, itb[import].file]) THEN
BcdErrorDefs.Error2Files[
class~$error,
s~"is required for import, but available version is"L,
ft1~imp.file, ft2~itb[import].file];
FOR i: [0..4) IN [0..imp.ngfi) DO
gfMap[gfi+i] _ [
linkItem~MakeLink[defgfi, import, i],
expi~EXPNull, offset~i];
ENDLOOP};

Lookup: PROC [hti: HTIndex, cxi: CXIndex] RETURNS [sti: STIndex] ~ {
FOR sti _ cxb[cxi].link, stb[sti].link UNTIL sti = stNull DO
IF stb[sti].hti = hti THEN RETURN ENDLOOP;
RETURN [stNull]};

StiForContext: PROC [cxi: CXIndex] RETURNS [sti: STIndex] ~ {
stLimit: STIndex ~ table.Top[sttype];
FOR sti _ STIndex.FIRST, sti+STRecord.SIZE UNTIL sti = stLimit DO
WITH s~~stb[sti] SELECT FROM
local => IF s.context = cxi THEN RETURN;
ENDCASE;
ENDLOOP;
RETURN [stNull]};

HtiForRelocation: PROC [rel: BcdBindDefs.RelocHandle] RETURNS [HTIndex] ~ {
sti: STIndex;
mti: MTIndex;
cti: CTIndex;
IF rel.type # $file THEN {
sti _ StiForContext[rel.context];  RETURN [stb[sti].hti]};
mti _ MTIndex.FIRST + rel.module;  cti _ CTIndex.FIRST + rel.config;
RETURN [NameToHti[IF mtb[mti].config = cti THEN ctb[cti].name ELSE mtb[mti].name]]};

BindModules: PROC ~ {
saveIndex: CARDINAL ~ data.textIndex;
saveName: NameRecord ~ data.currentName;
mtLimit: MTIndex ~ table.Top[mttype];
rel _ relocationHead;
FOR mti: MTIndex _ MTIndex.FIRST,
mti + (WITH m~~mtb[mti] SELECT FROM
direct => MTRecord.direct.SIZE + m.length*Link.SIZE,
indirect => MTRecord.indirect.SIZE,
multiple => MTRecord.multiple.SIZE,
ENDCASE => ERROR)
UNTIL mti = mtLimit DO
SetRelocationForModule[mti];
WITH m~~mtb[mti] SELECT FROM
direct =>
FOR i: CARDINAL IN [0 .. m.length) DO
m.frag[i] _ RelocateLink[m.frag[i]
! BcdErrorDefs.GetModule => {RESUME [mti, i]}];
ENDLOOP;
indirect => BindFragment[mti, m.links];
multiple => BindFragment[mti, m.links];
ENDCASE => ERROR;
ENDLOOP;
data.textIndex _ saveIndex;  data.currentName _ saveName};

SetRelocationForModule: PROC [mti: MTIndex] ~ {
gfi: PrincOps.GFTIndex ~ mtb[mti].gfi;
FOR rel _ rel, rel.link UNTIL rel = NIL DO
IF gfi IN [rel.firstgfi..rel.lastgfi] THEN GOTO found ENDLOOP;
FOR rel _ relocationHead, rel.link UNTIL rel = NIL DO
IF gfi IN [rel.firstgfi..rel.lastgfi] THEN GOTO found ENDLOOP;
Error[];
EXITS found => {
data.textIndex _ rel.textIndex;
data.currentName _ BcdUtilDefs.NameForSti[StiForContext[rel.context]]}};

BindFragment: PROC [mti: MTIndex, lfi: LFIndex] ~ {
IF lfi # LFNull THEN
FOR i: CARDINAL IN [0 .. lfb[lfi].length) DO
lfb[lfi].frag[i] _ RelocateLink[lfb[lfi].frag[i]
! BcdErrorDefs.GetModule => {RESUME [mti, i]}];
ENDLOOP};

RelocateLink: PROC [cl: BcdDefs.Link] RETURNS [BcdDefs.Link] ~ {
SELECT TRUE FROM
(cl.vtag = $type) => ERROR;
(cl.gfi = 0) => NULL;
(cl.gfi < rel.originalfirstdummy) =>  cl.gfi _ cl.gfi + rel.firstgfi-1;
ENDCASE => {
gfi: CARDINAL;
expi: EXPIndex;
map: LONG POINTER TO GFMapItem;
gfi _ cl.gfi + rel.dummygfi-rel.originalfirstdummy;
DO
map _ @gfMap[gfi];
IF (expi_map.expi) # EXPNull THEN {
newCl: BcdDefs.Link ~ etb[expi].links[cl.ep + map.offset*PrincOps.EPRange];
IF newCl # NullLink THEN RETURN [newCl]};
WITH map.linkItem SELECT FROM
m: LinkType.gfi => {
IF (gfi_m.gfi) = 0 THEN GOTO unbindable;
IF gfi < finalFirstDummy AND cl.ep = 0 THEN 
cl _ [variable[vgfi~0, var~0, vtag~$var]];
EXIT};
m: LinkType.import => gfi _ RelocatedGfi[m.impi]+map.offset;
ENDCASE;
REPEAT
unbindable => {
importName: NameRecord;
offset: CARDINAL;
importFti: FTIndex;
[importName, offset, importFti] _ LookupImport[cl.gfi];
BcdErrorDefs.ErrorInterface[
class~$warning, s~"is unbindable"L, 
import~[name~importName, fti~importFti], ep~(cl.ep + offset)];
RETURN [IF cl.vtag = $var THEN NullLink ELSE UnboundLink]};
ENDLOOP;
cl.gfi _ gfi};
RETURN [cl]};

LookupImport: PROC [gfi: PrincOps.GFTIndex] 
RETURNS [importName: NameRecord, offset: CARDINAL, importFti: FTIndex] ~ {
FOR iti: IMPIndex _ (IMPIndex.FIRST + rel.import), 
(iti + IMPRecord.SIZE) UNTIL iti = rel.importLimit DO  
OPEN imp~~itb[iti];
IF gfi IN [imp.gfi..imp.gfi+imp.ngfi) THEN
RETURN[
importName~imp.name, offset~(gfi-imp.gfi)*PrincOps.EPRange, 
importFti~imp.file];
ENDLOOP;
RETURN [importName~NullName, offset~0, importFti~FTNull]};

}.

âBcdBind.mesa
Last edited by Satterthwaite on December 22, 1982 12:38 pm
Last edited by Lewis on 16-Dec-80 10:12:01
Last Edited by: Maxwell, August 4, 1983 10:58 am
Last Edited by: Paul Rovner, September 8, 1983 5:30 pm
�ʘJš
œ™Jš
œ:™:Jš
œ*™*J™0J™6J˜š
Ïk	˜	Jšœ�œ
�œ8˜IJšœ
�œ
�œ˜&Jšœ�œ
�œ!˜7Jšœ�œ
�œ˜šœ	�œ
�œ˜J˜4J˜?J˜9Jš
œS˜S—šœ�œ
�œ˜J˜D—šœ
�œ
�œ˜J˜;—Jšœ�œ
�œ
˜&Jšœ	�œ
�œ˜!Jšœ
�œ
�œ˜)Jšœ	�œ
�œ?˜RJšœ�œ
�œ˜Jšœ�œ
�œ˜Jšœ	�œ
�œ˜J˜—šœ	�˜š
�˜J˜3J˜—Jš�œ˜Jš�œ˜J˜Jšœ�œ
�œ�œ
˜J˜J˜J˜7J˜J˜˜J˜?J˜?J˜+J˜J˜J˜J˜—JšÏnœ�œ�œ˜ J˜š
ž
œ�œ�œ�œ�œ˜?Jš�œ�œ�œ�œ˜2J˜J˜—J˜(J˜J˜šžœ�œ
�œ.˜CJ˜.J˜ J˜
˜˜š�œ�œ
�˜š�œ˜Jš�œ�œ�œ˜<————J˜J˜Jšœ%�œ˜*J˜—šœ
�œ�œ˜š�œ�˜J˜ J˜Jš�œ˜	J˜——šœ�œ�œ˜J˜J˜J˜J˜—Jšœ�œ�œ�œ	�œ
�œ˜>Jš
œ�œ�œ�œ	�œ
�œ
�œ˜>J˜J˜#Jšœ�œ	�œ
˜Jšœ�œ
�œ
˜J˜šž
œ�œ˜Jšœ
�œ ˜2Jšœ
�œ(�œ
˜?J˜(Jš�œ�œ˜-Jšœ�œ˜Jš
�œ�œ
�œ�œ#�œ
˜NJšœ	�œ˜š�œ9�œ�œ
�˜Nš�œ�œ�˜Aš�œ�˜J˜MJš�œ
˜——Jš�œ˜	J˜——šžœ�œ�œ�œ˜9Jš�œ�œ�œ�œ˜?J˜—šžœ�œ˜Jšœ�œ
˜Jšœ	�œ˜J˜J˜—šž	œ�œ�œ˜=J˜UJ˜Jš�œ�œ
˜J˜—šž
œ�œ�œ˜6š�œ�œ
˜Jš�œ˜š
�˜š�œ
�œ
�˜Jš	œ�œ
�œ
�œ�œ˜NJš�œ˜J˜J˜————šž
œ�œ˜Jšœ�œ˜%J˜(š�œ �œ�œ
�˜5J˜J˜Fš�œ
�œ
�˜J˜)J˜7Jš�œ˜—Jš�œ
˜—J˜:J˜—šžœ�œ#˜4š�œ�œ�œ
˜Bš�œ�˜J˜0Jš�œ�œ
�œ
˜š�œ˜š�œ˜Jš�œ˜J˜9—Jš�œF˜J—Jš�œ˜	J˜———šžœ�œ#˜5J˜J˜Jšœ�œ
˜J˜š	�œ�œ�œ
�œ�˜Všœ�œ˜Jš�œ!˜%Jš�œ#˜'—Jš�œ�œ
�œ
˜J˜š�œ˜š
�˜š�œ
�˜˜š�œ:˜<Jš�œ
�œ
˜
—J˜>J˜J˜—Jš�œ6˜=——Jš�œ.˜2—š�œ
�œ
�˜˜š�œ
�œ
�˜J˜+J˜:J˜-Jš�œ˜——J˜-Jš�œ˜—Jš�œ˜	J˜——šžœ�œ�œ˜Hš�œ�œ
˜Jš�œ˜š�œ˜šœ�œ˜'Jš�œ(˜,Jš�œ˜—J˜J˜———šžœ�œ�œ˜IJš�œ�œ�œ�œ)˜QJ˜J˜—šžœ�œ#˜9J˜Jšœ�œ�œ
˜ J˜˜Jšœ�œ�œ
�œ�œ�œ
˜DJ˜!J˜#Jšœ�œ˜#Jš�œ�œ
�œ˜6š�œ
�œ
�˜˜š�œ
�œ
�˜J˜+J˜:J˜-Jš�œ˜——Jš�œ9˜@—Jšœ�œ˜$J˜—Jšœ�œ˜"˜/Jšœ�œ˜'—Jš�œ�œ
�œ˜*š
�˜˜)J˜3—˜(J˜3J˜———šžœ�œ
�œ�œ
˜EJš�œ˜š�œ�œ
�œ
�˜J˜%J˜Jš�œ˜J˜——šžœ�œ=˜OJš�œ˜Jšœ�œ˜"š�œ�œ2�˜N˜J˜
J˜6J˜!——˜Jšœ�œ�œ�œ˜<J˜J˜——šžœ�œQ˜fJš�œ˜#Jšœ�œ˜"š�œ�˜šœ�œ.�˜I˜J˜
J˜6J˜———š�œ�˜˜J˜'J˜——š�œ
�œ�œ�˜&˜J˜%J˜—Jš�œ˜	J˜——šžœ�œA˜SJš�œ˜Jšœ�œ˜"š�œ�˜šœ�˜šœ5�˜9˜J˜
J˜6J˜$————š�œ�œ�˜!˜J˜%J˜—Jš�œ˜	J˜——šžœ�œ�œ˜Dš�œ$�œ�˜<Jš�œ�œ
�œ
�œ
˜*—Jš�œ˜J˜—šž
œ�œ�œ˜=J˜%š	�œ�œ�œ
�œ�˜Aš�œ
�œ
�˜Jšœ	�œ�œ
�œ
˜(Jš�œ
˜—Jš�œ
˜—Jš�œ˜J˜—šžœ�œ �œ˜KJ˜
J˜
J˜
š�œ�œ˜Jšœ#�œ˜:—Jšœ�œ�œ˜DJš�œ�œ�œ�œ˜TJ˜—šžœ�œ˜Jšœ�œ˜%J˜(J˜%J˜š�œ�œ
˜!šœ�œ
�œ
�˜#Jšœ�œ�œ
˜4Jšœ�œ
˜#Jšœ�œ
˜#Jš�œ�œ
˜—Jš�œ�˜J˜š�œ
�œ
�˜˜	š�œ�œ
�œ�˜%˜"Jšœ�œ˜/—Jš�œ
˜——J˜'J˜'Jš�œ�œ
˜—Jš�œ
˜—J˜:J˜—šžœ�œ˜/J˜&š�œ�œ�œ
�˜*Jš
�œ�œ�œ
�œ�œ
˜>—š�œ �œ�œ
�˜5Jš
�œ�œ�œ
�œ�œ
˜>—J˜š�œ˜J˜J˜HJ˜——šžœ�œ!˜3š�œ�˜š�œ�œ
�œ�˜,˜0Jšœ�œ˜/—Jš�œ˜	J˜———šžœ�œ�œ˜@š�œ
�œ
�˜Jšœ�œ
˜Jšœ�œ
˜J˜Gš�œ˜Jšœ�œ
˜J˜Jšœ�œ
�œ
�œ˜J˜3š
�˜J˜š�œ�œ˜#J˜KJš�œ�œ
�œ
˜)—š�œ�œ
�˜˜Jš�œ�œ
�œ˜(š�œ�œ�œ
˜,J˜*—Jš�œ˜—J˜<Jš�œ
˜—š
�˜˜J˜Jšœ�œ
˜J˜J˜7˜J˜$J˜>—Jš�œ�œ�œ
�œ˜;——Jš�œ
˜—J˜——Jš�œ˜
J˜—šžœ�œ˜,Jš�œ"�œ˜Jš�œ�œ˜3šœ�œ�œ�œ˜7Jš�œ˜š�œ�œ�˜*š�œ
˜J˜<J˜——Jš�œ
˜——Jš�œ4˜:J˜—J˜J˜——…—2,A