DIRECTORY 
Basics,
CardTab,
Xl,
XlDetails,
XlDispatch,
XlExtensions,
XlRecycleMotionEvents,
XlPrivate,
XlPrivateResources;

XlDispatchImpl: CEDAR MONITOR
IMPORTS Basics, CardTab, Xl, XlDetails, XlPrivate, XlPrivateResources 
EXPORTS Xl, XlDispatch, XlRecycleMotionEvents
SHARES XlPrivate, XlPrivateResources ~
BEGIN OPEN Xl, XlPrivate;

DispatchHandle: TYPE = REF DispatchHandleRec;
DispatchHandleRec: <<XlDispatch>>PUBLIC TYPE = RECORD [
wDataTab: CardTab.Ref м NIL,
priviledgeds: DispatchList м NIL, 
junkies: REF DispatchList м NIL, --REF to make type intersting only...
cache: REF XlRecycleMotionEvents.EventCache
];
DispatchStuffRep: <<Xl>>PUBLIC TYPE = DispatchHandleRec;

DispatchList: TYPE = REF DispatchListRep;
DispatchListRep: TYPE = RECORD [
currLength: NAT м 0,
s: SEQUENCE maxLength: NAT OF DispatchRec
]; 

DispatchRec: TYPE = RECORD [activate: EventCodes, tq: TQ, proc: EventProcType, data: REF, activateExtensions: LIST OF REF м NIL, events: SetOfEvent м unspecifiedEvents];

WindowData: TYPE = REF WindowDataRec;
WindowDataRec: PUBLIC TYPE = RECORD [
dl: DispatchList м NIL,
externalEvents: SetOfEvent м unspecifiedEvents, --best guess on what external clients want
actualEvents: SetOfEvent м unspecifiedEvents --believed server settings
];

NotYetDefined: EventProcType = {--prevent trapping if called before initialized--};
ProcRemoved: EventProcType = {--prevent trapping if called after removal--};

dummy: REF XlRecycleMotionEvents.EventCache м NEW[XlRecycleMotionEvents.EventCache];

GetCache: <<XlRecycleMotionEvents>>PUBLIC PROC [c: Xl.Connection, w: Xl.Window] RETURNS [cache: REF XlRecycleMotionEvents.EventCache м dummy] = {
h: DispatchHandle м GetDispatchHandle[c];
IF Xl.WindowId[w]=CARD.LAST THEN RETURN [h.cache]; --sentinell for allocator
WITH CardTab.Fetch[h.wDataTab, w.id].val SELECT FROM
wd: WindowData => {
dl: DispatchList м wd.dl;
IF dl#NIL THEN {
count: INT м 0;
FOR i: NAT IN [0..dl.currLength) DO
IF dl[i].activate[motionNotify] THEN count м count+1
ENDLOOP;
IF count=1 THEN cache м h.cache
};
};
ENDCASE => {};
};

GetDispatchHandle: PUBLIC PROC [c: Connection] RETURNS [DispatchHandle] = {
RETURN [c.dispatchStuff]
};

InlineDispatch: PROC [handle: DispatchHandle, event: Event] = INLINE {
WITH CardTab.Fetch[handle.wDataTab, event.dispatchDrawable.id].val SELECT FROM
wd: WindowData => DispatchOneList[event, wd.dl];
ENDCASE => DispatchOneList[event, handle.junkiesн];
IF handle.priviledgeds#NIL THEN DispatchOneList[event, handle.priviledgeds];
};

FindAndDispatch: PUBLIC PROC [event: Event] = {
InlineDispatch[event.connection.dispatchStuff, event];
};

Dispatch: PUBLIC PROC [handle: DispatchHandle, event: Event] = {
InlineDispatch[handle, event];
};
DispatchExplicite: PUBLIC PROC [wd: WindowData, event: Event] = { 
DispatchOneList[event, wd.dl];
};
DispatchOneList: PROC [e: Event, dl: DispatchList] = {
IF dl=NIL THEN RETURN;
IF Basics.BITAND[e.originalCodeByte, 127]>=XlExtensions.firstExtension 
THEN {
WITH e SELECT FROM
xEvent: ExtensionEvent => {
FOR i: NAT IN [0..dl.currLength) DO
FOR xl: LIST OF REF ANY м dl[i].activateExtensions, xl.rest WHILE xl#NIL DO
IF xl.first=xEvent.match THEN {
p: EventProcType ~ dl[i].proc; --order!
Enqueue[dl[i].tq, p, dl[i].data, e]; EXIT --innermost loop
}
ENDLOOP
ENDLOOP
};
ENDCASE => {}
}
ELSE {
FOR i: NAT IN [0..dl.currLength) DO
IF dl[i].activate[e.type] THEN {
p: EventProcType ~ dl[i].proc; --order!
Enqueue[dl[i].tq, p, dl[i].data, e];
};
ENDLOOP;
};
};

RemoveWindowData: <<C-Lock>> PROC [c: Connection, w: Window] = {
h: DispatchHandle ~ c.dispatchStuff;
[] м CardTab.Delete[h.wDataTab, w.id];
};
GetWindowData: PUBLIC PROC [c: Connection, w: Window] RETURNS [WindowData] = {
h: DispatchHandle ~ c.dispatchStuff;
RETURN [NARROW[CardTab.Fetch[h.wDataTab, w.id].val]];
};
GetOrCreateWindowData: <<C-Lock>> PROC [c: Connection, w: Window] RETURNS [wd: WindowData] = {
h: DispatchHandle ~ c.dispatchStuff;
wd м NARROW[CardTab.Fetch[h.wDataTab, w.id].val];
IF wd=NIL THEN {
wd м NEW[WindowDataRec]; 
IF CardTab.Insert[h.wDataTab, w.id, wd] THEN RETURN [wd];
wd м GetOrCreateWindowData[c, w];
};
};

UsedLength: PROC [dl: DispatchList] RETURNS [n: CARD м 0] = {
IF dl#NIL THEN 
FOR i: NAT IN [0..dl.currLength) DO
IF dl[i].proc#ProcRemoved THEN n м n+1;
ENDLOOP;
};

SetDispatchList: INTERNAL PROC [container: REF, dl: DispatchList] = {
WITH container SELECT FROM
wd: WindowData => wd.dl м dl;
rdl: REF DispatchList => rdlн м dl;
h: REF DispatchHandleRec => h.priviledgeds м dl;
ENDCASE => ERROR;
};

GetDispatchList: INTERNAL PROC [container: REF] RETURNS [dl: DispatchList] = {
WITH container SELECT FROM
wd: WindowData => dl м wd.dl;
rdl: REF DispatchList => dl м rdlн;
h: REF DispatchHandleRec => dl м h.priviledgeds;
ENDCASE => ERROR;
};

EnsureEntry: INTERNAL PROC [container: REF] RETURNS [i: NAT, dl: DispatchList] = {
dl м GetDispatchList[container];
IF dl=NIL 
THEN {dl м NEW[DispatchListRep[4]]; SetDispatchList[container, dl]}
ELSE IF dl.currLength >= dl.maxLength THEN { 
use: NAT м UsedLength[dl];
IF use>=NAT.LAST-4 
THEN { 
dl.currLength м dl.currLength-1;
}
ELSE {
new: NAT м use+4;
dl2: DispatchList м NEW[DispatchListRep[new]];
dl2.currLength м 0;
IF dl#NIL THEN {
FOR i: NAT IN [0..dl.currLength) DO 
IF dl[i].proc#ProcRemoved THEN {
dl2[dl2.currLength] м dl[i]; dl2.currLength м dl2.currLength + 1;
};
ENDLOOP;
};
dl м dl2;
SetDispatchList[container, dl];
};
};
i м dl.currLength; 
dl[i].activate м ALL[FALSE];
dl[i].activateExtensions м NIL;
dl[i].proc м NotYetDefined;
dl.currLength м dl.currLength+1;
}; 

AddMatchToList: ENTRY PROC [container: REF, match: Match, events: SetOfEvent м unspecifiedEvents] = {
IF match#NIL THEN {
activate: EventCodes;
tq: TQ м match.tq;
handles: EventFilter м match.handles;
proc: EventProcType м match.proc;
IF tq=NIL THEN tq м CreateTQ[];
IF handles=NIL OR proc=NIL OR (handles.activate=ALL[FALSE] AND handles.activateExtensions=NIL) THEN RETURN; 
BEGIN
n: NAT; dl: DispatchList;
[n, dl] м EnsureEntry[container];
dl[n].data м match.data; 
dl[n].tq м tq; 
dl[n].events м events; 
dl[n].proc м proc; 
dl[n].activateExtensions м handles.activateExtensions; 
dl[n].activate м handles.activate; 
END;
};
};

RemoveMatchFromList: ENTRY PROC [container: REF, proc: EventProcType, tq: Xl.TQ, data: REF] = {
dl: DispatchList м GetDispatchList[container];
IF dl#NIL THEN
FOR i: NAT IN [0..dl.currLength) DO
IF dl[i].proc = proc AND dl[i].tq=tq AND dl[i].data=data THEN {
dl[i].activate м ALL[FALSE];
dl[i].activateExtensions м NIL;
dl[i].proc м ProcRemoved;
};
ENDLOOP
};

GetInternalEvents: PROC [dl: DispatchList] RETURNS [events: SetOfEvent м unspecifiedEvents] = {
IF dl#NIL THEN
FOR i: NAT IN [0..dl.currLength) DO 
IF dl[i].proc#ProcRemoved THEN 
events м Xl.ORSetOfEvents[events, dl[i].events];
ENDLOOP;
};
PrivateChangeEvents: <<C-Lock>> PROC [c: Connection, w: Window, e: SetOfEvent, details: Details м NIL] = {
IF w=Xl.nullWindow THEN ERROR;  
BInit[c, 2, 0, 3+1]; --ChangeWindowAttributes
BPutDrawable[c, w]; 
BPut32[c, 0800H];  --use event-mask field
BPut32[c, LOOPHOLE[e]];
FinishWithDetails[c, details];
IF details=NIL THEN {
XlPrivate.HardFlushBuffer[c: c, delay: XlPrivateResources.ValidID[c, w]];
};
};

InternalAddMatch: PUBLIC <<C-Lock>> PROC [c: Connection, w: Window, match: Match, generate: SetOfEvent] = {
wd: WindowData м GetOrCreateWindowData[c, w];
generate.structureNotify м TRUE;
wd.actualEvents м Xl.ORSetOfEvents[generate, wd.actualEvents]; --trust the caller to actually set it
AddMatchToList[wd, match, generate];
};
AddMatches: PUBLIC PROC [c: Connection, w: Window, matchList: MatchList, generate: SetOfEvent, details: Details м NIL] = {
FOR l: MatchList м matchList, l.rest WHILE l#NIL DO
AddMatch[c, w, l.first, generate, details];
ENDLOOP
};

AddMatch: PUBLIC PROC [c: Connection, w: Window, match: Match, generate: SetOfEvent, details: Details] = {
action: PROC [c: Connection] = {
wd: WindowData м GetOrCreateWindowData[c, w];
newEvents: Xl.SetOfEvent м Xl.ORSetOfEvents[wd.externalEvents, wd.actualEvents];
newEvents м Xl.ORSetOfEvents[newEvents, generate];
newEvents.structureNotify м TRUE;
AddMatchToList[wd, match, generate];
IF newEvents#wd.actualEvents THEN {
wd.actualEvents м newEvents;
IF w#Xl.nullWindow THEN PrivateChangeEvents[c, w, wd.actualEvents, details];
};
};
generate.structureNotify м TRUE;
DoWithLocks[c, action, details];
};
RemoveMatch: PUBLIC PROC [c: Connection, w: Window, match: Match, details: Details] = {
action: PROC [c: Connection] = { --Need C-Lock to protect wd.dl and wd.externalEvents
RemoveMatchFromList[wd, proc, match.tq, match.data];
IF ~XlPrivateResources.ValidID[c, w] THEN {--other connection owns this w
n: NAT м UsedLength[wd.dl];
IF n=0 THEN RemoveWindowData[c, w];
};
BEGIN
internal: SetOfEvent м GetInternalEvents[wd.dl]; --necessary structureNotifies are embedded
new: SetOfEvent м ORSetOfEvents[internal, wd.externalEvents];
IF new#wd.actualEvents THEN {
wd.actualEvents м new;
IF w#Xl.nullWindow THEN PrivateChangeEvents[c, w, new, details];
};
END;
};
proc: EventProcType м match.proc;
wd: WindowData = GetWindowData[c, w];
IF wd#NIL AND match#NIL THEN DoWithLocks[c, action, details];
};
AddMatchForUnregistered: PUBLIC PROC [c: Connection, match: Match] = {
action: PROC [c: Connection] = {
h: DispatchHandle ~ c.dispatchStuff;
AddMatchToList[h.junkies, match];
};
DoWithLocks[c, action, XlDetails.ignoreErrors];
};
EnforcedSetOfEvent: PUBLIC <<C-Lock>> PROC [c: Connection, w: Window, external: SetOfEvent] RETURNS [SetOfEvent м unspecifiedEvents] = {
IF external#unspecifiedEvents THEN {
wd: WindowData = GetOrCreateWindowData[c, w];
internal: SetOfEvent м GetInternalEvents[wd.dl];
wd.externalEvents м external;
external м Xl.ORSetOfEvents[internal, external];
external.structureNotify м TRUE; --enforce future removal of WindowData
RETURN [external];
};
};

AddPriviledgedMatch: PUBLIC PROC  [c: Connection, match: Match] = {
action: PROC [c: Connection] = {
h: DispatchHandle ~ c.dispatchStuff;
AddMatchToList[h, match];
};
DoWithLocks[c, action, XlDetails.ignoreErrors];
};
RemovePriviledgedMatch: PUBLIC PROC [c: Connection, match: Match] = {
action: PROC [c: Connection] = {
CheckForEmpty: ENTRY PROC [h: DispatchHandle] = {
IF UsedLength[h.priviledgeds]=0 THEN h.priviledgeds м NIL
};
h: DispatchHandle ~ c.dispatchStuff;
RemoveMatchFromList[h, proc, match.tq, match.data];
CheckForEmpty[h]; 
};
proc: EventProcType м match.proc;
DoWithLocks[c, action, XlDetails.ignoreErrors];
};

InitWindow: PUBLIC PROC [c: Connection, w: Window] = {
h: DispatchHandle ~ c.dispatchStuff;
[] м CardTab.Delete[h.wDataTab, w.id];
};
RemoveWindow: PUBLIC PROC [c: Connection, w: Window] = {
h: DispatchHandle ~ c.dispatchStuff;
IF w#nullWindow THEN {
deleted: BOOL м CardTab.Delete[h.wDataTab, w.id]; 
IF deleted AND XlPrivateResources.ValidID[c, w.id] THEN XlPrivateResources.EntryFreeResourceID[c, w.id];
}
};

InitConnection: PUBLIC PROC [c: Connection] = {
c.dispatchStuff м NEW[DispatchHandleRec м [
wDataTab: CardTab.Create[],
junkies: NEW[DispatchList],
cache: NEW[XlRecycleMotionEvents.EventCache]
]];
[] м GetOrCreateWindowData[c, Xl.nullWindow];
FOR i: NAT IN [0..Xl.ScreenCount[c]) DO
[] м GetOrCreateWindowData[c, Xl.NthScreen[c, i].root];
ENDLOOP
};

END.
   
Z  
XlDispatchImpl.mesa
Copyright ╙ 1990, 1991, 1992, 1993 by Xerox Corporation.  All rights reserved.
Christian Jacobi, November 12, 1990 5:42 pm PST
Christian Jacobi, September 14, 1993 4:16 pm PDT

All fields protected with C-Lock
internalEvents: SetOfEvent _ unspecifiedEvents, --All events required by matchlists (removed because computed)


checks event against dispatch list and queues calls on match 
--extension event
--normal case: standard event


C-Lock to prevent interference of removing and creating WindowData
Returns number of used entries in DispatchList
Convention
container: REF DispatchList => use DispatchList (for junkies)
container: WindowData => use wd.dl (for normal events)
container: REF DispatchHandleRec => use h.priviledged (for priviledged events)
In languages with VAR parameters this would be easy.
With trace and sweep garbage collection using the ADDRESS would work.
Using this convention allows reference counted runtime of Dorado.

Returns index in DispatchList ready to be filled in (fields reasonably initialized)
Also returns dl; but only reason is to be optimizer proof
--silly error too long dispatch list, 
--wedge or crash the connection but not inside global monitor please
--order of (dl.currLength) !
--get order right as dispatching is not monitored
--makes entry a noop; still needs external removing
--entry and indirection to safe against allocating a new list
order optional !

Thoughts about damage if destroy happens in small not yet active time:
If w is owned by this connection no immediate flush is required as the worst case behaviour is either only a memory leak, or a very fast re-creation of the window.  Re-creation will however remove the dispatchlist first so no old events are dispatched.   
If the window was owned by a different connection we can not do this test.  We hope that clients requesting events on different connections do an extra test themselves using details#NIL.
XError ought to be caught. 

--You wouldn't believe it, but the nullWindow is ok (used for mapping changes)
--Make sure the right events are requested.
--Can ignore internalEvents as (except for generate) they are included in actualEvents.

--local copy prevents troubles inside monitor


--speed up normal case of no priviledgeds; normally there aren't any
Paranoia: remove previous dispatchlist just in case due to errors it would be still around

--Check for deleted; "openwin-3.0-beta" used to send multiple DestroyNotify events!
--A window id leak for windows without not beeing included in the table is benign enough to accept for the benefit of not debugging openwin-3.0-beta again and again. 
Э╩C  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩIcodeЪЬ
╧eЬCЩNKЩ/KЩ0KЩ ЧЪ╧k	ЬШ
KЪЬШKЪЬШKЪЬШKШ
KЪЬШKШKЪЬШKЪЬ
Ш
KЪЬШKШ ЧЪ╧nЬЮЬЮШKЪЮЬ?ШFKЪЮЬ&Ш-KЪЮЬ Ш&ЧKЪЮЬЮЬШKШ KЪЬЮЬЮЬШ-ЪЬ!ЮЬЮЬЮЬШ7KЪЬЮЬШKЪЬЮЬШ"KЪЬ	ЮЬЮЬ╧c%ШFKЪЬЮЬ!Ш+KЪЬШЧKЪЬЮЬЮЬШ8KШ KЪЬЮЬЮЬШ)ЪЬЮЬЮЬШ KЪЬЮЬШKЪЬЮЬЮЬЮЬШ)KЪЬШЧKШ KЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ*ШйKШ KЪЬЮЬЮЬШ%ЪЬЮЬЮЬЮЬШ%KЪЬ Щ KЪЬЮЬШKЪЬ0а*ШZKЪЬ0а>ЩnKЪЬ-аШGKЪЬШЧKШ KЪЯЬа1ЬШSKЪЯЬа,ЬШLKШ KЪЬЮЬ$ЮЬ#ШTKШ Ъ
ЯЬЮЬЮЬ"ЮЬ	ЮЬ.ШСKЪЬ)Ш)KЪЮЬЮЬЮЬЮЬЮЬаШLЪЮЬ%ЮЬЮШ4ЪЬШKЪЬШЪЮЬЮЬЮЬШKЪЬЮЬШЪЮЬЮЬЮЬЮШ#KЪЮЬЮЬШ4KЪЮЬШЧKЪЮЬ	ЮЬШKШЧKЪЬШЧKЪЮЬШЧKШЧKШ ЪЯЬЮЬЮЬЮЬШKKЪЮЬШKШKШ ЧЪЯЬЮЬ*ЮЬШFЪЮЬ?ЮЬЮШNKЪЬ0Ш0KЪЮЬ,Ш3ЧKЪЮЬЮЬЮЬ-ШLKШKШ ЧЪЯЬЮЬЮЬШ/KЪЬ6Ш6KШKШ ЧЪЯЬЮЬЮЬ+Ш@KЪЬШKЪЬШKЩ ЧЪЯЬЮЬЮЬ$ШBKЪЬШKШKЩ ЧЪЯЬЮЬ!Ш6KЪЬ=Щ=KЪЮЬЮЬЮЬЮЬШЪЮЬЮЬ7ШGЪЮЬШKЩЪЮЬЮЬЮШЪЬШЪЮЬЮЬЮЬЮШ#ЪЮЬЮЬЮЬЮЬЮЬ%ЮЬЮЬЮШKЪЮЬЮЬШKЪЬаШ'KЪЬ%ЮЬаШ:KШЧKЪЮШЧKЪЮШЧKШЧKЪЮЬШЧKШЧЪЮЬШKЪЬЩЪЮЬЮЬЮЬЮШ#ЪЮЬЮЬШ KЪЬаШ'KЪЬ$Ш$KШЧKЪЮЬШЧKШЧЧKШЧKШ ЪЯЬЮЬШ@KЪЬ$Ш$KЪЬ&Ш&KШKЩ ЧЪЯЬЮЬЮЬЮЬШNKЪЬ$Ш$KЪЮЬЮЬ'Ш5KШKЩ ЧЪЯЬЮЬЮЬШ^KЪЬBЩBKЪЬ$Ш$KЪЬЮЬ&Ш1ЪЮЬЮЬЮЬШKЪЬЮЬШKЪЮЬ&ЮЬЮЬШ9KЪЬ!Ш!KЪЬШЧKШЧKШ ЪЯ
ЬЮЬЮЬЮЬ	Ш=KЪЬ.Щ.ЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮШ#KЪЮЬЮЬ	Ш'KЪЮЬШЧЧKШKШ ЧЪЬ
Щ
KЪЬ=Щ=KЪЬ6Щ6KЪЬЮЬ@ЩNKЩ4KЩEKЩAKЩ ЧЪЯЬЮЬЮЬЮЬШEЪЮЬЮЬЮШKЪЬШKЪЬЮЬШ#KЪЬЮЬ*Ш0KЪЮЬЮЬШЧKШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШNЪЮЬЮЬЮШKЪЬШKЪЬЮЬШ#KЪЬЮЬ*Ш0KЪЮЬЮЬШЧKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШRKЪЬSЩSKЩ9KЪЬ Ш ЪЮЬЮЬШ
KЪЮЬЮЬ5ШCЪЮЬЮЬЮЬШ-KЪЬЮЬШЪЮЬЮЬЮЬШЪЮЬШKЪЬ&Щ&KЪЬDЩDKЪЬ Ш KШЧЪЮЬШKЪЬЮЬ	ШKЪЬЮЬШ.KЪЬШЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШ$ЪЮЬЮЬШ KЪЬAШAKШЧKЪЮЬШЧKШЧKЪЬ	Ш	KЪЬШKШЧЧKЪЬШЧЧKЪЬЩKЪЬШKЪЬЮЬЮЬШKЪЬЮЬШKШKЪЬ Ш KЪЬШЧKШ ЪЯЬЮЬЮЬЮЬ;ШeЪЮЬЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬ%Ш%KЪЬ!Ш!KЪЮЬЮЬЮЬШKЪЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШlЪЮШKЪЬЮЬШKЪЬ!Ш!KЪЬ1Щ1KЪЬШKЪЬШKЪЬШKЪЬ╨bfЬ	ШKЪЬбЬШ7KЪЬбЬШ#KЪЮЬШЧKШЧKЪЬШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШ_JЪЬ3Щ3JЪЬ=Щ=KЪЬ.Ш.ЪЮЬЮЬЮШЪЮЬЮЬЮЬЮШ#ЪЮЬЮЬЮЬЮЬШ?JЪЬЩKЪЬЮЬЮЬШKЪЬЮЬШKЪЬШKЪЬШЧKЪЮШЧЧKШKШ ЧЪЯЬЮЬЮЬ-Ш_ЪЮЬЮЬЮШЪЮЬЮЬЮЬЮЬШ$ЪЮЬЮЬШKЪЬ0Ш0ЧKЪЮЬШЧЧKЪЬШKЩ ЧЪЯЬЮЬ>ЮЬШjKЪЮЬЮЬЮЬШ KЪЬаШ-KЪЬШKЪЬаШ)KЪЬ
ЮЬШKЪЬШЪЮЬ	ЮЬЮЬШKШIKЪЬFЩFKЪЬ Щ KЪЬ║Щ║KЪЬЩKШЧKШKШ ЧЪЯЬЮЬЮЬCШkKЪЬ-Ш-KЪЬЮЬШ KЪЬ?а%ШdKЪЬ$Ш$KЪЬШKЩ ЧЪЯ
ЬЮЬЮЬ[ЮЬШzЪЮЬ"ЮЬЮЬЮШ3KЪЬ+Ш+KЪЮШЧKШKШ ЧЪЯЬЮЬЮЬUШjKЪЬNЩNЪЬЮЬШ KЪЬ-Ш-KЪЬPШPKЪЬ2Ш2KЪЬЮЬШ!KЪЬ$Ш$KЪа+Щ+KЪаЬа/ЬЩWЪЮЬЮЬШ#KЪЬШKЪЮЬЮЬ5ШLKШЧKШЧKЪЬЮЬШ KЪЬ Ш KЪЬШKЩ ЧЪЯЬЮЬЮЬ?ШWЪЬЮЬа4ШUKЪЬ4Ш4ЪЮЬ#ЮЬаШIKЪЬЮЬШKЪЮЬЮЬШ#KШЧЪЮШKЪЬ1а*Ш[KЪЬ=Ш=ЪЮЬЮЬШKЪЬШKЪЮЬЮЬ)Ш@KШЧKЪЮЬШЧKШЧKЪЬ-Щ-KЪЬ!Ш!KЪЬ%Ш%KЪ
ЮЬЮЬЮЬЮЬЮЬ!Ш=KШKЩ ЧЪЯЬЮЬЮЬ"ШFЪЬЮЬШ KЪЬ$Ш$KЪЬ!Ш!KШЧKШ/KШKЩ ЧЪЯЬЮЬЮЬ2ЮЬ%ШИЪЮЬЮЬШ$KЪЬ╧bЬШ-KЪЬ0Ш0KЪЬШKЪЬ0Ш0KЪЬЮЬа&ШGKЪЮЬШKШЧKШЧKШ ЪЯЬЮЬЮЬ#ШCЪЬЮЬШ KЪЬ$Ш$KЪЬШKШЧKШ/KЪЬШKЩ ЧЪЯЬЮЬЮЬ"ШEЪЬЮЬШ ЪЯЬЮЬЮЬШ1KЪЬDЩDKЪЮЬЮЬЮШ9KЪЬШЧKЪЬ$Ш$KЪЬ3Ш3KЪЬШKШЧKЪЬ!Ш!KШ/ШKШ ЧЧЪЯ
ЬЮЬЮЬШ6KЩZKЪЬ$Ш$KЪЬ&Ш&KШKЩ ЧЪЯЬЮЬЮЬШ8KЪЬ$Ш$ЪЮЬЮЬШKЪЬ	ЮЬ%Ш2KЪЬSЩSKЪЬжЩжKЪЮЬ	ЮЬ%ЮЬ1ШhKЪЬШЧKШKШ ЧЪЯЬЮЬЮЬШ/ЪЬЮЬШ+KЪЬШKЪЬ	ЮЬШKЪЬЮЬ"Ш,KЪЬШЧKЪЬ-Ш-ЪЮЬЮЬЮЬЮШ'KЪЬ7Ш7KЪЮШЧKШKШ ЧKЪЮЬШЧ ЕЧ    +─  Ea  