DIRECTORY
AMBridge, AMModel, AMTypes, Basics, Commander, CommandTool, Convert, RefTab, Interpreter, IO, PrincOpsUtils, REFBit, Rope, RopeList, RTTypesPrivate, WorldVM;

REFBitImpl: CEDAR PROGRAM
IMPORTS AMModel, AMTypes, AMBridge, Basics, Commander, CommandTool, Convert, RefTab, Interpreter, IO, PrincOpsUtils, Rope, RopeList, RTTypesPrivate, WorldVM
EXPORTS REFBit =
BEGIN OPEN REFBit;

Error: PUBLIC ERROR [msg: ROPE] = CODE;

Size: PUBLIC PROC[ref: REF] RETURNS [size: INT] = {RETURN[Desc[ref].bitForm.size]};

Get: PUBLIC PROC[ref: REF, index: INT] RETURNS [val: BOOL] = {
wdSz:	CARDINAL	= Basics.bitsPerWord;
desc:	REFBitDesc	_ Desc[ref];
idx:	CARDINAL	_ desc.bitForm[index].firstBit;
TVToDescWds[desc];
val _ Basics.BITAND[desc.wds[idx/wdSz], Basics.BITSHIFT[1, wdSz - (idx MOD wdSz)-1]]#0};

Set: PUBLIC PROC[ref: REF, index: INT, val: BOOL] = {
word:	WORD;
wdSz:	CARDINAL	= Basics.bitsPerWord;
desc:	REFBitDesc	_ Desc[ref];
idx:	CARDINAL	_ desc.bitForm[index].firstBit;
bit:	CARDINAL	_ idx MOD wdSz;
wd:	CARDINAL	_ idx/wdSz;
TVToDescWds[desc];
word		_ desc.wds[wd];
desc.wds[wd] _ IF val
THEN	Basics.BITOR		[word, 					Basics.BITSHIFT[1, wdSz-bit-1]]
ELSE	Basics.BITAND	[word, Basics.BITNOT[	Basics.BITSHIFT[1, wdSz-bit-1]]];
DescWdsToTV[desc]};


refDescCache: RefTab.Ref _ RefTab.Create[];

ResetCache: PUBLIC PROC = {refDescCache _ RefTab.Create[]};

Desc: PUBLIC PROC[ref: REF] RETURNS [desc: REFBitDesc] = {
found:	BOOL;
value:		REF;
IF ISTYPE[ref, ROPE] THEN  ref _ NEWFromName[NARROW[ref]];
[found, value] _ RefTab.Fetch[refDescCache, ref];
IF found
THEN desc _ NARROW[value]
ELSE TRUSTED {
desc				_ NEW[REFBitDescRec _ [ ] ];
desc.tv			_ AMBridge.TVForReferent[ref];
desc.wds			_ AMBridge.TVToWordSequence[desc.tv];
desc.typeName	_ AMTypes.TVToName[desc.tv];
desc.fieldForm	_ FieldFormatFromTV[desc.tv, NIL];
desc.bitForm		_ FlattenFormat[desc.fieldForm]};
[] _ RefTab.Store[refDescCache, ref, desc]};

BitNameList: PUBLIC PROC[ref: REF, both: BOOL] RETURNS[list: LIST OF ROPE] = {
desc: REFBitDesc _ Desc[ref];
FOR i: CARDINAL DECREASING IN [0..desc.bitForm.size) DO
IF both THEN list _ CONS[(IF desc.bitForm[i].nameInv#NIL
THEN desc.bitForm[i].nameInv
ELSE Rope.Cat["not.", desc.bitForm[i].name]), list];
list _ CONS[(IF desc.bitForm[i].name#NIL
THEN desc.bitForm[i].name
ELSE Rope.Cat["not.", desc.bitForm[i].nameInv]), list] ENDLOOP };

FormatListing: PUBLIC PROC[record: REF, bitLevel: BOOL_FALSE] RETURNS[listing: ROPE] = {
rope:		IO.STREAM	_ IO.ROS[];
current:	CARDINAL	_ 0;
total:		CARDINAL	_ 0;
form:		Format;
desc:		REFBitDesc _ Desc[record];
form		_ IF bitLevel THEN desc.bitForm ELSE desc.fieldForm;
IF form=NIL THEN RETURN[NIL];
rope.PutF["\nBit Format: %g", IO.rope[desc.typeName]];
rope.PutRope["\n  Index First  Size    Name"];
FOR i: CARDINAL IN [0..form.size) DO
name: ROPE _ NIL;
IF form[i].name#NIL
THEN name _ Rope.Cat[name, "     ", form[i].name];
IF form[i].nameInv#NIL
THEN name _ Rope.Cat[name, " not.", form[i].nameInv];
IF current # form[i].firstBit THEN {current _ form[i].firstBit; rope.PutRope["\n"]};
rope.PutRope["\n"];
rope.PutF["  %4g  %4g  %4g%g",
IO.card[i],
IO.card[form[i].firstBit],
IO.card[form[i].bitSize],
IO.rope[name]];
total _ total + form[i].bitSize;
current _ current + form[i].bitSize;
ENDLOOP;
rope.PutF["\n               ---\n  BitTotal:   %4g\n", IO.card[total]];
listing _ IO.RopeFromROS[rope] };

NEWFromName: PUBLIC PROC[record: ROPE] RETURNS[ref: REF] =  {
tv:			TV;
errorRope: ROPE;
noResult:	BOOL; 
type:	AMTypes.Type;
IF Rope.Find[record, "LIST"]#-1 THEN RETURN[ NewFromNameList[record] ];
[tv, errorRope, noResult] _ Interpreter.Evaluate[record, originalContext];
IF noResult OR errorRope#NIL THEN ERROR Error[errorRope];
type	_ AMTypes.TVType[tv];
WHILE AMTypes.TypeClass[type]=type DO
type	_ AMTypes.UnderType[AMTypes.TVToType[tv]];
tv		_ AMTypes.New[type] ENDLOOP;
TRUSTED {ref_ AMBridge.SomeRefFromTV[tv]};
Desc[ref].typeName _ record };

Rec1:		TYPE = RECORD[i0:				INT];
Rec2:		TYPE = RECORD[i0, i1:			INT];
Rec3:		TYPE = RECORD[i0, i1, i2:		INT];
Rec4:		TYPE = RECORD[i0, i1, i2, i3:	INT];
boolRef:	REF BOOL		_ NEW[BOOL _ TRUE];

NewFromNameList: PROC[record: ROPE] RETURNS[ref: REF] =  {
names:	LIST OF ROPE _ NIL;
inStm:		IO.STREAM _ IO.RIS[record];
rope:		IO.ROPE;
size:		INT;
desc:		REFBitDesc _ NEW[REFBitDescRec _ [ ] ];
boolType:	AMTypes.Type;
DO
ENABLE IO.EndOfStream => EXIT;
rope _ IO.GetTokenRope[inStm].token;
SELECT TRUE FROM
Rope.Equal[rope, "LIST"]	=>	LOOP;
Rope.Equal[rope, "["]		=>	LOOP;
Rope.Equal[rope, "]"]		=>	EXIT;
ENDCASE						=>	names _ CONS[rope, names];
ENDLOOP;
names		_ RopeList.Reverse[names];
size		_ RopeList.Length[names];
ref		_ SELECT (size-1)/16 +1 FROM
1			=> NEW[Rec1],
2			=> NEW[Rec2],
3			=> NEW[Rec3],
4			=> NEW[Rec4],
ENDCASE	=> ERROR;
TRUSTED{
boolRef:	REF BOOL _ NEW[BOOL _ TRUE];
boolType	_ AMTypes.UnderType[AMTypes.TVType[AMBridge.TVForReferent[boolRef]]];
desc.tv			_ AMBridge.TVForReferent[ref];
desc.wds			_ AMBridge.TVToWordSequence[desc.tv];
desc.typeName	_ record;
desc.fieldForm	_ NEW[FormatSeq[size]];
desc.bitForm		_ NEW[FormatSeq[size]]};
FOR i: INT IN [0..size) DO
desc.fieldForm[i] _ desc.bitForm[i] _ [
type:		boolType,
name:		names.first,
nameInv:	NIL,
firstBit:	i,
bitSize:	1 ];
names _ names.rest ENDLOOP;
[] _ RefTab.Store[refDescCache, ref, desc]};

DescWdsToTV: PUBLIC PROC[desc: REFBitDesc] =
TRUSTED {AMBridge.SetTVFromWordSequence[desc.tv, desc.wds]};


TVToDescWds: PUBLIC PROC[desc: REFBitDesc] =
TRUSTED {
CardPointer:		TYPE = LONG POINTER TO CARD; 
ValueAddress:	TYPE = RTTypesPrivate.ValueAddress;
Pointer:			TYPE = LONG POINTER; 
ptr:				Pointer;
words: CARDINAL _ desc.wds.size;
SELECT words FROM
0 => { 																				RETURN};
1 => {desc.wds[0] _ AMBridge.TVToLC[desc.tv];								RETURN};
2 => {LOOPHOLE[@desc.wds[0], CardPointer]^_AMBridge.TVToLC[desc.tv];	RETURN};
ENDCASE => {
a: ValueAddress _ RTTypesPrivate.GetValueAddress[desc.tv];
WITH t: a SELECT FROM
constant				=> {--desc.wds _ t.value;-- RETURN};
pointer				=> ptr _ t.ptr;
copiedRemoteObject	=> ptr _ t.ptr;
ENDCASE				=> ERROR;
PrincOpsUtils.LongCopy[from: ptr, nwords: words, to: @desc.wds[0]] } };

FieldFormatFromTV: PROC[toptv: TV, topName: ROPE] RETURNS[format: Format] = {
FieldFormatRecList: PROC[list: FormatList, tv: TV, name: ROPE] RETURNS [FormatList] = {
type:		AMTypes.Type _ AMTypes.TVType[tv];
utype:	AMTypes.Type _ AMTypes.UnderType[type];
uClass:	AMTypes.Class _ AMTypes.TypeClass[ utype];
SELECT uClass FROM
record, structure			=> {
nofFlds:	NAT _ AMTypes.NComponents[utype];
IF name#NIL AND name.Length[]>0 THEN name _ name.Cat["."];
FOR fldIndex: CARDINAL DECREASING IN [0..nofFlds) DO
fldTV:	TV		_ AMTypes.IndexToTV[tv, fldIndex+1];
fldName:	ROPE	_ AMTypes.IndexToName[utype, fldIndex+1];
list _ FieldFormatRecList[list, fldTV, name.Cat[fldName]];
ENDLOOP};
cardinal, longCardinal, integer, longInteger, real, character,
enumerated,
subrange					=> {
firstBit, bitSize: INT;
[firstBit, bitSize] _ FieldBitsFromTV[tv];
list _ CONS[[
type:		utype,
name:		name,
nameInv:	NIL,
firstBit:	firstBit,
bitSize:	bitSize
], list] };
ENDCASE 	=> ERROR Error["I can't deal with this TYPE"];
RETURN[list]};
formlist:	FormatList _ FieldFormatRecList[NIL, toptv, topName];
index:		INT _ 0;
FOR lst: FormatList _ formlist, lst.rest WHILE lst#NIL DO index _ index+1 ENDLOOP;
format _ NEW[FormatSeq[index]];
index _ 0;
FOR lst: FormatList _ formlist, lst.rest WHILE lst#NIL
DO format[index] _ lst.first; index _ index+1 ENDLOOP};

FieldBitsFromTV: PROC[fieldTV: TV] RETURNS[firstBit, bitSize: CARDINAL] = TRUSTED {
tvRef: REF RTTypesPrivate.TypedVariableRec _ NARROW[fieldTV];
WITH tv: tvRef SELECT FROM
entire => RETURN[0, AMTypes.TVSize[fieldTV]*16];
embedded => {
WITH fld: tv.fd SELECT FROM
small => RETURN[16*fld.wordOffset+fld.field.bitFirst, fld.field.bitCount];
large => RETURN[16*fld.wordOffset, fld.size*16];
ENDCASE => ERROR };
constant => RETURN[0, tv.value.size*16];
ENDCASE => ERROR };

FlattenFormat: PROC[format: Format] RETURNS[new: Format] = {
bitIdx, bitFrmIdx, fldFrmIdx, bitsum: CARDINAL _ 0;
FOR fldFrmIdx IN [0..format.size) DO bitsum _ bitsum + format[fldFrmIdx].bitSize ENDLOOP;
new _ NEW[ FormatSeq[bitsum]];
FOR fldFrmIdx IN [0..format.size) DO
decoded: BOOL;
names: LIST OF ROPE _ NIL;
[decoded, names] _
DecodedEnumTypeCheck[format[fldFrmIdx].type, format[fldFrmIdx].bitSize];
FOR bitIdx IN [0..format[fldFrmIdx].bitSize) DO
name, nameInv: IO.ROPE;
IF decoded
THEN {
name _ format[fldFrmIdx].name.Cat[".", names.first];
IF (bitIdx+1) = format[fldFrmIdx].bitSize THEN {
name		_ IF names.first=NIL THEN NIL ELSE name;
nameInv	_ format[fldFrmIdx].name.Cat[".", names.rest.first] };
names		_ names.rest}
ELSE	name _ IF format[fldFrmIdx].bitSize > 1
THEN	format[fldFrmIdx].name.Cat[".", Convert.RopeFromInt[bitIdx]]
ELSE	format[fldFrmIdx].name;
new[bitFrmIdx] _ [
type:		CODE[BOOL],
name:		name,
nameInv:	nameInv,
firstBit:	format[fldFrmIdx].firstBit + bitIdx,
bitSize:	1 ];
bitFrmIdx _ bitFrmIdx+1;
ENDLOOP ENDLOOP};

DecodedEnumTypeCheck: PROC[type: Type, size: CARDINAL]
RETURNS[isDET: BOOL, names: LIST OF ROPE] = {
zeroHot, oneHot:	BOOL _ FALSE;
biPwr:	CARDINAL _ 2;
tv:			TV;
index:		CARDINAL;
bitName:	ROPE;
NextEnum: PROC  = {
bitName _ NIL;
FOR tv _ tv, AMTypes.Next[tv] WHILE tv#NIL DO
TRUSTED {index _ AMBridge.TVToCardinal[tv]};
bitName	_ AMTypes.TVToName[tv ! AMTypes.Error => CONTINUE];
IF bitName # NIL THEN EXIT ENDLOOP };
IF AMTypes.TypeClass[type] # enumerated THEN RETURN[FALSE, NIL];
tv _ AMTypes.First[type]; NextEnum[];
IF bitName = NIL OR Rope.Equal[bitName,"FALSE"] THEN RETURN[FALSE, NIL];
IF index # 0 THEN names _ CONS[NIL, names] ELSE
{zeroHot _ TRUE; names _ CONS[bitName, names]; tv _ AMTypes.Next[tv]; NextEnum[]};
IF index # 1 THEN names _ CONS[NIL, names] ELSE
{oneHot _ TRUE; names _ CONS[bitName, names]; tv _ AMTypes.Next[tv]; NextEnum[]};
THROUGH [1..size) DO
check: INT _ IF oneHot THEN biPwr ELSE biPwr+1;
IF bitName = NIL OR index # check THEN RETURN[FALSE, NIL];
names _ CONS[bitName, names];
tv _ AMTypes.Next[tv]; NextEnum[];
biPwr _ biPwr*2;
ENDLOOP;
IF bitName # NIL
THEN	RETURN[FALSE,	NIL]	-- leftovers
ELSE	RETURN[TRUE,	names]};

FlattenFormatOld: PROC[format: Format] RETURNS[new: Format] = {
bitIdx, bitFrmIdx, fldFrmIdx, bitsum: CARDINAL _ 0;
FOR fldFrmIdx IN [0..format.size) DO bitsum _ bitsum + format[fldFrmIdx].bitSize ENDLOOP;
new _ NEW[ FormatSeq[bitsum]];
FOR fldFrmIdx IN [0..format.size) DO
FOR bitIdx IN [0..format[fldFrmIdx].bitSize) DO
name: IO.ROPE _ IF format[fldFrmIdx].bitSize > 1
THEN	format[fldFrmIdx].name.Cat[".", Convert.RopeFromInt[bitIdx]]
ELSE	format[fldFrmIdx].name;
new[bitFrmIdx] _ [
type:		CODE[BOOL],
name:		name,
nameInv:	NIL,
firstBit:	format[fldFrmIdx].firstBit + bitIdx,
bitSize:	1 ];
bitFrmIdx _ bitFrmIdx+1;
ENDLOOP ENDLOOP };

BitFormat: Commander.CommandProc = {
bitLevel:		BOOL _ FALSE;
list:		LIST OF ROPE;
length:	NAT;
[list, length] _ CommandTool.ParseToList[cmd];
FOR list _ list, list.rest WHILE list#NIL DO
IF list.first.Fetch[0]='-
THEN	SELECT list.first.Fetch[1] FROM
'b,'B	=>	bitLevel	_ TRUE;
ENDCASE
ELSE	cmd.out.PutRope[FormatListing[list.first, bitLevel]];
ENDLOOP };

bitFormatDoc: ROPE = "[nameOfSomeType]   -b => bit level";

originalContext: AMModel.Context;
TRUSTED {originalContext _ AMModel.RootContext[WorldVM.LocalWorld[]]};

Commander.Register[key:"REFBitFormat",	proc: BitFormat,		doc: bitFormatDoc];

END. 


REFBitImpl.mesa
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Last edited by Curry, October 13, 1986 11:38:20 am PDT
Don Curry April 30, 1987 9:55:35 pm PDT
Last Edited by: Don Curry July 18, 1987 10:58:18 am PDT

This package provides bit level access to the values behind Cedar REFs.  `Error' will be raised if you try to twiddle refs or pointers in this way.

Procs handy for format access, names, printing, speed etc.
TVToDescWds: PUBLIC PROC[desc: REFBitDesc] =
TRUSTED {desc.wds	_ AMBridge.TVToWordSequence[desc.tv]};
words: CARDINAL = TVSize[tv];
remotePointer		=> {
desc.wds _ RTTypesRemotePrivate.GetRemoteWords
[remotePointer: t.ptr, nWords: words];
RETURN};

Private

array, sequence		=> {
ispacked:	BOOL				_ AMTypes.IsPacked								[utype];
dType:	AMTypes.Type	_ AMTypes.UnderType	[AMTypes.Domain	[utype]];
rType:	AMTypes.Type	_ AMTypes.UnderType	[ AMTypes.Range	[utype]];
length:	INT				_ AMTypes.Length									[tv];
rtv:		TV					_ AMTypes.New									[rType];
bitsUsed:		INT			_ 1;
bitsForType:	INT;
TRUSTED {bitsForType	_ RTTypesPrivate.BitsForType[rType].bft};
[		]  _ FieldBitsFromTV [rtv];
IF length <=0 THEN ERROR;
IF ispacked AND bitsForType > 16
THEN	WHILE bitsForType > bitsUsed DO bitsUsed _ bitsUsed*2 ENDLOOP
ELSE	bitsUsed _ 16*((bitsForType-1)/16 +1);
format _ NEW[FormatSeq[length]];
FOR i: INT IN [0..length) DO
format[i].format	_ NIL;
format[i].name	_ IO.PutFR["seq.%g", IO.int[i]];
format[i].firstBit	_ i*bitsUsed;
format[i].bitSize	_ bitsForType;
ENDLOOP;
ERROR Error["I can't deal with this TYPE"]};	-- Yet
A decoded enumerated type can be used to directly generate multiplex controls.
The type can be coded as {0, 1} or {0, 1, 2, 4, 8 ...} or {0, 3, 5, 9, 17 ...}.
The first and last cases have the advantage that zero can be used a default multiplex control (lsb = 0 => no other bit is true).
In all cases it's possible to name the bits and/or their inverses using the enumerated type element names.
MyType:		TYPE = INT[0..125];
MySeq:		TYPE = REF MySeqRec;
MySeqRec:	TYPE = RECORD[SEQUENCE size: CARDINAL OF MyType];
MyPSeq:		TYPE = REF MyPSeqRec;
MyPSeqRec:	TYPE = RECORD[PACKED SEQUENCE size: CARDINAL OF MyType];
MyArray:	TYPE = ARRAY [-2..7) OF MyType;
MyPArray:	TYPE = PACKED ARRAY [-1..9) OF MyType;

Test: Commander.CommandProc = {
aref: 	REF	_ NEW[MyArray];
apref:	REF	_ NEW[MyPArray];
ref:		MySeq	_ NEW[MySeqRec[7]];
packed:	MyPSeq	_ NEW[MyPSeqRec[9]];
[] _ Size[aref];
[] _ Size[apref];
[] _ Size[ref];
[] _ Size[packed] };

Commander.Register[key:"Test",				proc: Test,			doc: bitFormatDoc];
Κ1˜š
Πbl™Jšœ
Οm
œ1™<Jšœ3Οk™6Icodeš
œ'™'K™7J™Jš
œ“
™“
J™—š
Ÿ	˜	JšœYŸœA˜
—J˜šΡbln
œŸœ
Ÿ˜JšŸœ[Ÿœ8˜œ
JšŸœ	˜JšŸœ
Ÿœ˜J˜Jš
ΠbnœŸœ
ŸœŸœŸœ
˜'J˜JšΟnœŸœ
ŸœŸœŸœŸœŸœ˜SJ˜š’œŸœ
ŸœŸœ	ŸœŸœŸœ˜>JšœŸœ˜$Jš
œ˜JšœŸœ ˜-Jš
œ˜Jšœ
ŸœŸœŸœ˜X—J˜š’œŸœ
ŸœŸœ	ŸœŸœ˜5JšœŸœ
˜JšœŸœ˜$Jš
œ˜JšœŸœ ˜-JšœŸœŸœ˜JšœŸœ˜Jš
œ˜Jš
œ˜šœŸœ˜JšŸœŸœŸœ˜>JšŸœŸœŸœ	Ÿœ˜J—Jš
œ˜—J˜—š
œ:™:J˜JšΟbœ˜+J˜Jš’
œŸœ
Ÿœ$˜;J˜š
’œŸœ
ŸœŸœŸœ˜:JšœŸœ
˜JšœŸœ
˜Jš
Ÿœ
ŸœŸœŸœŸœ˜:Jš
œ1˜1šŸœ˜JšŸœŸœ˜šŸœ
Ÿœ˜Jšœ
Ÿœ˜$Jš
œ(˜(Jš
œ0˜0Jš
œ*˜*Jšœ,Ÿœ˜1Jš
œ/˜/——Jšœ’œ!˜,—J˜š‘œŸœ
ŸœŸœŸœŸœŸœ
Ÿœ
Ÿœ˜NJš
œ˜š	ŸœŸœ
Ÿ
œ
ŸœŸ˜7š	ŸœŸœŸœŸœŸ˜8JšŸœ˜JšŸœ0˜4—šœŸœŸœŸ˜(JšŸœ˜JšŸœ3Ÿœ˜B———š‘
œŸœ
Ÿœ	ŸœŸœ
ŸœŸœ
Ÿœ˜XJš	œŸœ
ŸœŸœ
Ÿœ˜Jšœ	Ÿœ˜JšœŸœ˜Jš
œ˜Jš
œ!˜!JšœŸœ
ŸœŸœ˜:Jš
ŸœŸœ
Ÿœ
Ÿœ
Ÿœ˜JšœŸœ˜6Jš
œ.˜.šŸœŸœ
ŸœŸ˜$JšœŸœŸœ
˜šŸœŸ˜JšŸœ.˜2—šŸœŸ˜JšŸœ1˜5—JšŸœŸœ2˜TJš
œ˜š
œ˜JšŸœ	˜JšŸœ˜JšŸœ˜JšŸœ
˜—Jš
œ ˜ Jš
œ$˜$JšŸœ
˜—Jšœ7Ÿœ˜GJšœ
Ÿœ˜!—J˜š‘œŸœ
Ÿœ	ŸœŸœŸœ˜=JšœŸœ
˜	JšœŸœ
˜Jšœ
Ÿœ˜Jš
œ˜JšŸœŸœ
Ÿœ˜GJš
œJ˜JJš
Ÿœ
ŸœŸœ
Ÿœ
Ÿœ˜9Jš
œ˜šŸœŸ˜%Jšœ#£œ
˜/JšœŸœ
˜ —JšŸœ#˜*Jš
œ˜—JšœŸœŸœŸœ˜!JšœŸœŸœŸœ˜$JšœŸœŸœŸœ˜'JšœŸœŸœŸœ˜*Jšœ	Ÿœ
ŸœŸœ
ŸœŸœ˜&J˜š
’œŸœ	ŸœŸœŸœ˜:Jš	œŸœ
Ÿœ
ŸœŸœ
˜JšœŸœ
Ÿœ	˜#JšœŸ˜JšœŸ˜JšœŸœ˜.Jš
œ˜š
Ÿ˜JšŸœ
ŸœŸœ
˜JšœŸœ˜$šŸœ
Ÿœ
Ÿ˜JšœŸœ
˜!JšœŸœ
˜JšœŸœ
˜JšŸœŸœ˜*—JšŸœ
˜—Jš
œ!˜!Jš
œ˜šœŸœŸ˜!JšœŸœ˜JšœŸœ˜JšœŸœ˜JšœŸœ˜JšŸœŸœ
˜—šŸœ
˜Jšœ	Ÿœ
ŸœŸœ
ŸœŸœ˜%Jš
œN˜NJš
œ(˜(Jš
œ0˜0Jš
œ˜JšœŸœ˜&JšœŸœ˜&—šŸœŸœ
ŸœŸ˜š
œ'˜'Jš
œ˜Jš
œ˜Jšœ	Ÿœ
˜
Jš
œ˜Jš
œ
˜
—JšœŸœ
˜—Jšœ’œ!˜,J˜—š’œŸœ
Ÿœ˜,JšŸœ5˜<—J˜š’œŸœ
Ÿœ™,JšŸœ1™8—J˜š’œŸœ
Ÿœ˜,šŸœ˜	JšœŸœŸœ
Ÿœ
Ÿœ
Ÿœ˜+JšœŸœ˜1JšœŸœŸœ
Ÿœ˜ Jš
œ˜JšœŸœ™JšœŸœ˜ šŸœŸ˜JšœŸœ˜#Jšœ5Ÿœ˜=JšœŸœ7Ÿœ˜MšŸœ˜Jš
œ:˜:šŸœŸœ
Ÿ˜JšœΟcœ
Ÿœ˜0J˜š
œ™š
œ.™.Jš
œ&™&—JšŸœ™—J˜"JšŸœŸœ
˜—Jš
œG˜G—————J™š
œ™J˜š
’œŸœŸœŸœŸœ˜Mš
’œŸœŸœŸœŸœ˜WJš
œ)˜)Jš
œ.˜.Jš
œ2˜2šŸœŸ˜š
œ˜Jšœ	Ÿœ˜*JšŸœŸœ
ŸœŸœ˜:š	ŸœŸœ
Ÿ
œ
ŸœŸ˜4JšœŸœ&˜/Jšœ	Ÿœ*˜7Jš
œ:˜:JšŸœ˜	——Jš
œ>˜>Jš
œ˜š
œ˜JšœŸœ
˜Jš
œ*˜*šœŸœ˜
Jš
œ
˜
Jš
œ˜Jšœ	Ÿœ
˜
Jš
œ˜Jš
œ˜Jš
œ˜——JšŸœŸœ&˜7—JšŸœ˜Jšœ*Ÿœ˜?JšœŸœ˜Jš
Ÿœ&ŸœŸœ
ŸœŸœ
˜RJšœ	Ÿœ˜Jš
œ
˜
šŸœ&ŸœŸ˜6JšŸœ,Ÿœ˜7——™š
œ™Jšœ
Ÿœ&™4Jš
œA™AJš
œA™AJšœŸœ"™-JšœŸœ#™+JšœŸœ™Jšœ
Ÿœ
™JšŸœ7™>Jš
œ™JšŸœŸœ
Ÿœ
™šŸœ
Ÿœ™ JšŸœ
ŸœŸœŸ™BJšŸœ'™+—Jšœ	Ÿœ™ šŸœŸœ
Ÿœ
Ÿ™JšœŸœ
™JšœŸœŸœ	™/Jš
œ ™ Jš
œ ™ JšŸœ
™—JšŸœ(€™3———J˜š’œŸœ
ŸœŸœŸœŸœ˜SJšœŸœ#Ÿœ
˜=šŸœŸœ
Ÿ˜Jšœ
Ÿœ ˜0š
œ
˜
šŸœŸœ
Ÿ˜Jšœ	Ÿœ;˜JJšœ	Ÿœ!˜0JšŸœŸœ˜——JšœŸœ˜(JšŸœŸœ˜——š‘
œŸœŸœ˜<Jšœ&Ÿœ˜3JšŸœŸœŸœ-Ÿœ
˜YJšœŸœ˜šŸœŸœŸ˜$Jšœ	Ÿœ
˜Jš	œŸœ
Ÿœ
ŸœŸœ
˜š
œ˜Jš
œH˜H—šŸœŸœ Ÿ˜/JšœŸœ
Ÿœ
˜šŸœ˜
šŸœ˜Jš
œ4˜4šŸœ(Ÿœ˜0JšœŸœ
Ÿœ
Ÿœ
Ÿœ
Ÿœ˜.Jš
œ>˜>—Jš
œ˜—šŸœŸœ˜,JšŸœ=˜AJšŸœ˜——š
œ˜JšœŸœ
Ÿœ˜Jš
œ˜Jš
œ˜Jš
œ.˜.Jš
œ
˜
—Jš
œ˜JšŸœ
Ÿœ˜——J˜—š’œŸœŸœ
˜6Jš
ŸœŸœ	Ÿœ
Ÿœ
Ÿœ˜-š
œN™NJš
œO™OJš
œ€
™€
Jš
œj™j—JšœŸœŸœ
˜JšœŸœ˜JšœŸœ
˜	JšœŸœ
˜Jšœ	Ÿœ
˜š’œŸœ˜Jšœ
Ÿœ
˜šŸœŸœŸœ
Ÿ˜-JšŸœ%˜,Jšœ1Ÿœ˜;Jš
ŸœŸœ
Ÿœ
Ÿœ
Ÿœ˜%——Jš
Ÿœ&Ÿœ
Ÿœ
ŸœŸœ˜@Jš
œ%˜%JšŸœŸœ
ŸœΟsœŸœ
Ÿœ
ŸœŸœ˜Hš	ŸœŸœ	Ÿœ
Ÿœ	Ÿ˜/JšœŸœ
Ÿœ5˜R—š	ŸœŸœ	Ÿœ
Ÿœ	Ÿ˜/Jšœ
Ÿœ
Ÿœ5˜Q—šŸœŸ˜Jš	œŸœŸœŸœŸœ	˜/JšŸœŸœ
ŸœŸœ
Ÿœ
ŸœŸœ˜:JšœŸœ˜Jš
œ"˜"Jš
œ˜JšŸœ
˜—šŸœŸ˜Jš	Ÿœ
Ÿœ
ŸœŸœ€˜$JšŸœ
Ÿœ
Ÿœ
˜—J˜—š‘œŸœŸœ˜?Jšœ&Ÿœ˜3JšŸœŸœŸœ-Ÿœ
˜YJšœŸœ˜šŸœŸœŸ˜$šŸœŸœ Ÿ˜/šœŸœ
ŸœŸœ˜0JšŸœ=˜AJšŸœ˜—š
œ˜JšœŸœ
Ÿœ˜Jš
œ˜Jšœ	Ÿœ
˜
Jš
œ.˜.Jš
œ
˜
—Jš
œ˜JšŸœ
Ÿœ˜——J˜—š‘	œ˜$JšœŸœŸœ
˜JšœŸœ
Ÿœ
Ÿœ
˜JšœŸœ
˜Jš
œ.˜.šŸœŸœŸœ
Ÿ˜,šŸœ˜šŸœ
ŸœŸ˜$JšœŸœ
˜Jš
Ÿ˜—JšŸœ6˜:—JšŸœ˜
——J˜Jšœ	ŸœŸœ	™JšœŸœŸœ
™Jšœ
ŸœŸœ
ŸœŸœ
Ÿœ	™;Jšœ	ŸœŸœ™Jš
œŸœŸœ
Ÿœ
ŸœŸœ
Ÿœ	™CJšœ	ŸœŸœ	Ÿœ™(Jš	œ
ŸœŸœ
Ÿœ	Ÿœ™0J™š‘œ™JšœŸœŸœ
™JšœŸœŸœ™JšœŸœ™JšœŸœ™#Jš
œ™Jš
œ™Jš
œ™Jš
œ™—JšœŸœ(˜:J˜Jš
œ!˜!JšŸœ>˜FJ˜Jš
œL˜LJš
œC™CJ˜JšŸœ˜—J˜—…—,tH§