DIRECTORY
BasicTime USING [GMT],
FS USING [ExpandName, FileInfo, GetInfo, OpenFileFromStream, StreamOpen],
IO,
MobDefs USING [NullVersion, VersionStamp],
Mobery USING [EnumerateStampProc, StampTable, StampTableRep, VersionStamp],
MoberyPrivate, 
RefText USING [ObtainScratch, ReleaseScratch, TrustTextAsRope],
Rope,
SymTab;

MoberyImpl: CEDAR MONITOR
IMPORTS FS, IO, RefText, Rope, SymTab
EXPORTS Mobery, MoberyPrivate =

BEGIN

ROPE: TYPE = Rope.ROPE;
VersionStamp: TYPE = Mobery.VersionStamp;

NoStamp: PUBLIC ERROR = CODE;

StampPatterns: LIST OF ROPE = LIST["mob_version", "c2c_time", "c_stamp"];
hashMark: ROPE = "@(#)";

CacheEntry: TYPE ~ REF CacheEntryRep; CacheEntryRep: TYPE ~ RECORD [
list: LIST OF ROPE,
created: BasicTime.GMT
];
sourceStampByteLimit: INT м 8000;

StopOnQuoteOrNull: IO.BreakProc = {
RETURN [IF char = '\000 OR char = '" THEN break ELSE other]
};

cache: SymTab.Ref ~ SymTab.Create[];

FlushCache: PUBLIC PROC ~ {
cache.Erase[]; 
};

objRegs: LIST OF MoberyPrivate.ObjectFileTypeMatcherProc м NIL;

RegisterObjectFileType: PUBLIC PROC[p: MoberyPrivate.ObjectFileTypeMatcherProc] ~ {
objRegs м CONS[p, objRegs];
};

GetStamps: ENTRY PROC [fileName: ROPE] RETURNS [LIST OF ROPE] ~ {
ENABLE UNWIND => {};
fullName: ROPE ~ FS.ExpandName[fileName].fullFName;
list: LIST OF ROPE;
created: BasicTime.GMT;
WITH cache.Fetch[fullName].val SELECT FROM
x: CacheEntry => {
created м FS.FileInfo[fileName].created;
IF created = x.created THEN RETURN [x.list];
};
ENDCASE => NULL;
[list: list, created: created] м GetCOStamps[fullName];
{
ce: CacheEntry ~ NEW [CacheEntryRep м [list: list, created: created]];
[] м cache.Insert[fullName, ce];
RETURN [ce.list];
};
};

GetCOStamps: PUBLIC PROC [fileName: ROPE] RETURNS [list: LIST OF ROPE, created: BasicTime.GMT] = {
head: LIST OF ROPE = LIST[NIL];
last: LIST OF ROPE м head;
stream: IO.STREAM = FS.StreamOpen[fileName: fileName, accessOptions: $read];
buf: REF TEXT = RefText.ObtainScratch[nChars: 512];
hashMarkSize: INT = Rope.Length[hashMark];
hashStartChar: CHAR = Rope.Fetch[hashMark, 0];
smallBuf: REF TEXT = NEW[TEXT[hashMarkSize]];
start: INT м 0;
end: INT м sourceStampByteLimit;
match: BOOL;
index: INT м 0;
created м FS.GetInfo[FS.OpenFileFromStream[stream]].created;
FOR r: LIST OF MoberyPrivate.ObjectFileTypeMatcherProc м objRegs, r.rest WHILE r # NIL DO
[match, start, end] м r.first[stream];
IF match THEN EXIT;
IO.SetIndex[self: stream, index: 0];
ENDLOOP;
IF NOT match THEN {
start м 0;
end м sourceStampByteLimit;
};
IO.SetIndex[self: stream, index: start];
index м start;
WHILE index < end DO
bytes: INT м IO.GetBlock[self: stream, block: buf];
i: NAT м 0;
needSetIndex: BOOL м FALSE;
IsHashMark: PROC [pos: INT] RETURNS [BOOL] ~ {
IF buf[pos] # hashStartChar THEN RETURN [FALSE];
IF pos+hashMarkSize <= bytes
THEN {
FOR j: INT м 1, j+1 WHILE j < hashMarkSize DO
IF hashMark.Fetch[j] # buf[pos+j] THEN RETURN [FALSE];
ENDLOOP;
IO.SetIndex[stream, index+pos+hashMarkSize];
needSetIndex м TRUE;
RETURN [TRUE];
}
ELSE {
IO.SetIndex[stream, index+pos];
needSetIndex м TRUE;
[] м IO.GetBlock[self: stream, block: smallBuf];
RETURN [Rope.Equal[hashMark, RefText.TrustTextAsRope[smallBuf]]];
}
};
IF bytes = 0 THEN EXIT;
WHILE i < bytes DO
IF IsHashMark[pos: i] THEN {
{
token: ROPE = IO.GetTokenRope[stream: stream, breakProc: StopOnQuoteOrNull ! IO.EndOfStream => EXIT].token;
newIndex: INT = index + i + hashMarkSize + Rope.Length[token];
last м last.rest м LIST[token];
IF newIndex > index + bytes THEN{
index м newIndex;
IO.SetIndex[stream, index];
GOTO GetNextBlock;
};
i м newIndex - index;
};
};
i м i + 1;
REPEAT
GetNextBlock => LOOP; -- the enclosing WHILE --
ENDLOOP;
index м index + bytes;
IF needSetIndex THEN IO.SetIndex[stream, index];
ENDLOOP;
RefText.ReleaseScratch[buf];
IO.Close[stream];
RETURN [head.rest, created]
};

StampTable: TYPE = Mobery.StampTable;
StampTableRep: PUBLIC TYPE = RECORD [
name: ROPE, -- name of the current file --
stamps: SymTab.Ref
];

StampPair: TYPE = RECORD [
stampClass: ROPE, -- the stamp class --
stamp: VersionStamp -- its version stamp --
];

UserData: TYPE = REF UserDataRep;
UserDataRep: TYPE = RECORD [
name: ROPE, -- name of the file --
stampList: LIST OF StampPair -- all the stamps --
];

EnumerateStampTable: PUBLIC PROC [stampTable: StampTable, to: Mobery.EnumerateStampProc] =
BEGIN
DoInner: PROC [key: ROPE, val: REF ANY] RETURNS [stop: BOOL м FALSE] --SymTab.EachPairAction-- ~ {
myData: UserData = NARROW[val];
FOR stampList: LIST OF StampPair м myData.stampList, stampList.rest WHILE stampList # NIL AND NOT stop DO
stamp: StampPair ~ stampList.first;
stop м to[myData.name, stamp.stampClass, stamp.stamp];
ENDLOOP;
RETURN [stop: stop];
};
[] м stampTable.stamps.Pairs[DoInner];
END;

InsertInStampTable: PROC [table: StampTable, name, class: ROPE, stamp: VersionStamp] RETURNS [previously: BOOL м FALSE] ~ {
userData: UserData м NARROW[table.stamps.Fetch[name].val];
IF userData = NIL THEN {
userData м NEW [UserDataRep];
userData.name м name;
userData.stampList м LIST[[stampClass: class, stamp: stamp]];
IF NOT table.stamps.Insert[name, userData] THEN ERROR;
RETURN [previously: FALSE]
};
{
FOR stampList: LIST OF StampPair м userData.stampList, stampList.rest WHILE stampList # NIL AND NOT previously DO
stampPair: StampPair ~ stampList.first;
IF stamp = stampPair.stamp AND Rope.Equal[class, stampPair.stampClass]
THEN RETURN [previously: TRUE];
ENDLOOP;
userData.stampList м CONS[StampPair[stampClass: class, stamp: stamp], userData.stampList];
};
RETURN [previously: FALSE];
};

StampFromStampTable: PUBLIC PROC [stampTable: StampTable, fileName: ROPE] RETURNS [stampClass: ROPE, stamp: VersionStamp] =
BEGIN
data: UserData = NARROW [stampTable.stamps.Fetch[fileName].val];
IF data = NIL THEN ERROR NoStamp;
FOR stampList: LIST OF StampPair м data.stampList, stampList.rest WHILE stampList # NIL DO 
stamp: StampPair ~ stampList.first;
RETURN [stamp: stamp.stamp, stampClass: stamp.stampClass];
ENDLOOP;
RETURN [stampClass: NIL, stamp: MobDefs.NullVersion]
END;

Has: PUBLIC PROC [stampTable: StampTable, name: ROPE, class: ROPE м NIL, stamp: VersionStamp м MobDefs.NullVersion] RETURNS [found: BOOL м FALSE] =
BEGIN
data: UserData = NARROW [stampTable.stamps.Fetch[name].val];
IF data = NIL THEN RETURN [found: FALSE];
FOR stampList: LIST OF StampPair м data.stampList, stampList.rest WHILE stampList # NIL DO 
stampPair: StampPair ~ stampList.first;
IF (class = NIL OR Rope.Equal[class, stampPair.stampClass]) AND
(stamp = MobDefs.NullVersion OR stamp = stampPair.stamp) THEN RETURN [found: TRUE];
ENDLOOP;
RETURN [found: FALSE]
END;

ReadStampTable: PUBLIC PROC [fileName: ROPE] RETURNS [stampTable: StampTable] ~ {
listOfStamps: LIST OF ROPE ~ GetStamps[fileName: fileName];
stampTable м NEW [StampTableRep м [
name: fileName,
stamps: SymTab.Create[case: TRUE]
]];
FOR stampList: LIST OF ROPE м listOfStamps, stampList.rest WHILE stampList # NIL DO
aStamp: ROPE ~ stampList.first;
FOR patternList: LIST OF ROPE м StampPatterns, patternList.rest WHILE patternList # NIL DO
pattern: ROPE ~ patternList.first;
patternLen: INT ~ pattern.Length[];
IF pattern.Equal[aStamp.Substr[len: patternLen]] THEN {
restOfString: ROPE ~ aStamp.Substr[start: patternLen+1];
name: ROPE;
stamp: MobDefs.VersionStamp;
[stamp: stamp, name: name] м VersionAndNameFromString[restOfString];
IF name = NIL THEN RETURN [stampTable: NIL];
[] м InsertInStampTable[table: stampTable, name: name, class: pattern, stamp: stamp];
};
ENDLOOP;
ENDLOOP;
RETURN [stampTable: stampTable];
};

StampTableSubset: PUBLIC PROC [tab1, tab2: StampTable] RETURNS [BOOL] = {
subset: BOOL м TRUE;
SeeDiff: PROC [name, stampClass: ROPE, stamp: Mobery.VersionStamp] RETURNS [BOOL]
~ {subset м FALSE; RETURN [TRUE]};
EnumerateStampTableDifference[tab1, tab2, SeeDiff];
RETURN [subset]};

EnumerateStampTableDifference: PUBLIC PROC [tab1, tab2: StampTable, to: Mobery.EnumerateStampProc] = {
CheckOne: PROC [name, stampClass: ROPE, stamp: Mobery.VersionStamp] RETURNS [BOOL] --Mobery.EnumerateStampProc-- ~ {
IF NOT Has[tab2, name, stampClass, stamp] THEN RETURN to[name, stampClass, stamp];
RETURN [FALSE];
};
EnumerateStampTable[tab1, CheckOne];
RETURN};

StampAndNameFromFile: PUBLIC PROC [fileName: ROPE] RETURNS [stamp: MobDefs.VersionStamp м MobDefs.NullVersion, name: ROPE м NIL] ~ {
listOfStamps: LIST OF ROPE ~ GetStamps[fileName: fileName];
FOR stampList: LIST OF ROPE м listOfStamps, stampList.rest WHILE stampList # NIL DO
aStamp: ROPE ~ stampList.first;
FOR patternList: LIST OF ROPE м StampPatterns, patternList.rest WHILE patternList # NIL DO
pattern: ROPE ~ patternList.first;
patternLen: INT ~ pattern.Length[];
IF pattern.Equal[aStamp.Substr[len: patternLen]] THEN {
restOfString: ROPE ~ aStamp.Substr[start: patternLen+1];
[stamp: stamp, name: name] м VersionAndNameFromString[restOfString !IO.EndOfStream, IO.Error => GOTO NotThisOne];
RETURN;
EXITS NotThisOne => name м name};
ENDLOOP;
ENDLOOP;
};

VersionAndNameFromString: PUBLIC PROC [aRope: ROPE] RETURNS [stamp: MobDefs.VersionStamp, name: ROPE] ~ {
MyBreakProc: IO.BreakProc ~ {
RETURN[SELECT char FROM
IN [IO.NUL .. IO.SP] => sepr,
'[, '], '(, '), '{, '}, '", '+, '-, '*, '/, '@, '_, ',, ':,  '; => break,
ENDCASE => other]
};
aStream: IO.STREAM ~ IO.RIS[aRope];
token: ROPE;
[] м aStream.SkipWhitespace[];
[token: token] м aStream.GetTokenRope[MyBreakProc];
IF NOT token.Equal["["] THEN ERROR; -- this should not happen --
stamp[0] м aStream.GetCard[];
[token: token] м aStream.GetTokenRope[MyBreakProc];
IF NOT token.Equal[","] THEN ERROR; -- this should not happen --
stamp[1] м aStream.GetCard[];
[token: token] м aStream.GetTokenRope[MyBreakProc];
IF NOT token.Equal["]"] THEN ERROR; -- this should not happen --
name м aStream.GetID[!
IO.EndOfStream, IO.Error => { name м NIL; CONTINUE };
];
RETURN [stamp: stamp, name: name];
};


END.


  .  
MoberyImpl.Mesa
Copyright ╙ 1986, 1991, 1992 by Xerox Corporation.  All rights reserved.
Mike Spreitzer September 3, 1986 10:32:43 am PDT
Andy Litman March 3, 1988 6:08:18 pm PST
Eduardo Pelegri-Llopart, December 21, 1989 8:27:57 pm PST
Michael Plass, June 29, 1989
JKF January 11, 1989 10:23:16 am PST
Last tweaked by Mike Spreitzer on August 14, 1990 8:26 am PDT
Willie-s, May 13, 1992 3:06 pm PDT

Types
a.out know-how
(thanks to Michael Plass)
[char: CHAR] RETURNS [IO.CharClass]
fileName refers to either a .c file or a .o file.  Action is called with those strings delimited by hashMark at the front and either a double quote or a null at the end.  For source files, only the first sourceStampByteLimit bytes are examined; for object files, the search is confined to the initialized data region.
if not found then search in a "reasonable" area 
Stamp Tables
Enumerate all the files in stampTable
Get the stamp of a given name; gives an error if none is present.
Test if a particular stamp is in the table
Get all the version stamps from an C or O File.  Save them so they can be enumerated afterwards.
Extract the version stamp from fileName.  If there is none, return MobDefs.NullVersion.
It uses the prefixes "@(#)pattern", where pattern is in StampPatterns.

Skip over blanks, then construct a version stamp;
 Э╩  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ	╧eЬ<ЩHKЩ0KЩ(KЩ9KЩKЩ$KЩ=KЩ"KЩ ЧЪ╧k	Ш	KЪЬ
ЮЬЮЬШKЪЮЬЮЬAШIKЪЮЬШKЪЬЮЬШ*KЪЬЮЬ?ШKKЪЬШKЪЬЮЬ2Ш?KЪЬШKШЧKШ Ъ╤bnx
ЬЮЬЮШKЪЮ
ЬЮЬШ%KЪЮЬШЧKШ KЪЮШKШ headЩKЪЮЬЮЬЮЬШKЪЬЮЬШ)KШ KЪ╧nЬЮЬЮЬЮЬШKШ KЪ
аЬЮЬЮЬЮЬЮЬ'ШIKЪаЬЮЬ
ШKШ Ъ	ЬЮЬЮЬЮЬЮЬШDKЪЬЮЬЮЬЮЬШKЪЬЮШKШЧЧЩLЩKЪЬЮЬШ!KШ ХStartOfExpansion' -- [char: CHAR] RETURNS [IO.CharClass]ЪаЬЮЬШ#KЪЬЮЬЮЬЮЬЩ#KЪ
ЮЬЮЬЮЬЮЬЮЬШ;KШKШ ЧKШ$KШ Ъа
ЬЮЬЮЬШKШKШKШ ЧKЪЬ	ЮЬЮЬ/Ш?KШ ЪаЬЮЬ0ШSKШKШЧKШ Ъа	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШAKЪЮЬЮЬШKЪЬ
ЮЬЮЬ Ш3KЪЬЮЬЮЬЮЬШKЪЬЮЬШЪЮЬЮЬЮШ*ЪЬЮШKЪЬ
ЮЬШ(KЪЮЬЮЬЮЬ
Ш,KШЧKЪЮЬ	ШЧKЪЬ7Ш7ШKЪЬЮЬ2ШFKЪЬ Ш KЪЮЬШKШЧKШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШbKЪЬdаЬ╤Щ╜KЪЬЮЬЮЬЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬШKЦ╩[fileName: ROPE, accessOptions: FS.AccessOptions _ read, streamOptions: FS.StreamOptions _ (3)[TRUE, TRUE, TRUE], keep: CARDINAL _ 1B (1), createByteCount: FS.ByteCount _ 2560, streamBufferParms: FS.StreamBufferParms _ [vmPagesPerBuffer: 8, nBuffers: 2], extendFileProc: FS.ExtendFileProc, wantedCreatedTime: GMT _ nullGMT, remoteCheck: BOOL _ TRUE, wDir: ROPE _ NIL, checkFileType: BOOL _ FALSE, fileType: FS.FileType _ [0B (0)]]ЪЬЮЬЮЬЮЬ6ШLKЦ[nChars: NAT]ЪЬЮЬЮЬ&Ш3KЪЬЮЬШ*KЪЬЮЬШ.KЪ	Ь
ЮЬЮЬЮЬЮЬШ-KЪЬЮЬШKЪЬЮЬШ KЪЬЮЬШKЦ[self: STREAM]ЪЬЮЬШKЪЬ
ЮЬ	ЮЬ%Ш<ЪЮЬЮЬЮЬ;ЮЬЮЬЮШYKШ&KЪЮЬЮЬЮЬШKЪЮЬ"Ш$KЪЮЬШЧЪЮЬЮЬЮЬШKЪЬ0Щ0KШ
KШKШЧKЪЮЬ&Ш(KЪЬШЪЮЬЮШKЦP[self: STREAM, block: REF TEXT, startIndex: NAT _ 0, count: NAT _ 32767]ЪЬЮЬЮЬ$Ш3KЪЬЮЬШKЪЬЮЬЮЬШЪ
а
ЬЮЬЮЬЮЬЮЬШ.KЪЮЬЮЬЮЬЮЬШ0ЪЮЬШЪЮЬШЪЮЬЮЬ
ЮЬЮШ-KЪЮЬ ЮЬЮЬЮЬШ6KЪЮЬШЧKЪЮЬ*Ш,KЪЬЮЬШKЪЮЬЮЬШKЪЬШЧЪЮЬШKЪЮЬШKЦP[self: STREAM, block: REF TEXT, startIndex: NAT _ 0, count: NAT _ 32767]ЪЬЮЬШKЪЬЮЬ)Ш0KЪЮЬ;ШAKШЧЧKШЧKЪЮЬЮЬЮЬШЪЮЬЮШЪЮЬЮШKЪЬШKЪ	ЬЮЬЮЬ=ЮЬЮЬШkKЪЬ
ЮЬ1Ш>KЪЬЮЬШЪЮЬЮЬШ!KЪЬШKЪЮЬШKЪЮЬШKЪЬШЧKЪЬШKЪЬШKШЧKЪЬ
Ш
ЪЮШKЪЬЮЬ╧cШ/ЧKЪЮЬШЧKЪЬШKЪЮЬЮЬЮЬШ0KЪЮЬШЧKЪЬШKЪЮЬШKЪЮЬШKЪЬШKШ ЧЧЩKЪЬЮЬШ%ЪЬЮЬЮЬШ%KЪЬЮЬбШ*KЪЬШKЪЬШKШ ЧЪЬЮЬЮЬШKЪЬЮЬбШ'KЪЬбШ+KШKШ ЧKЪЬ
ЮЬЮЬШ!ЪЬЮЬЮЬШKЪЬЮЬбШ"KЪЬЮЬЮЬбШ1KШЧKШ ЪаЬЮЬЮЬ:ШZKЪЮШKЪЬ%Щ%ЪаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬбЬШbKЪЬЮЬШЪЮЬЮЬЮЬ.ЮЬЮЬЮЬЮЬЮШiKШ#KЪЬ6Ш6KЪЮЬШЧKЪЮЬШKШЧKЪЬ&Ш&KЪЮЬШЧKШ ЪаЬЮЬ"ЮЬЮЬЮЬЮЬШ{KЪЬЮЬШ:ЪЮЬЮЬЮЬШKЪЬЮЬШKШKЪЬЮЬ$Ш=KЪЮЬЮЬ%ЮЬЮЬШ6KЪЮЬЮЬШKШЧЪЬШKЪЮЬЮЬЮЬ0ЮЬЮЬЮЬЮЬЮШqKШ'ЪЮЬЮЬ(ШFKЪЮЬЮЬЮЬШЧKЪЮЬШKЪЬЮЬAШZЧKШKЪЮЬЮЬШKЪЬШKШ ЧЪаЬЮЬЮЬ$ЮЬЮЬЮЬШ{KЪЮШKЪЬAЩAKЪЬЮЬ)Ш@KЪЮЬЮЬЮЬЮЬ	Ш!ЪЮЬЮЬЮЬ,ЮЬЮЬЮЬШ[KШ#KЪЮЬ4Ш:KЪЮЬШЧKЪЮЬЮЬШ4KЪЮЬШЧKШ ЪаЬЮЬЮЬ ЮЬ	ЮЬЮЬ-ЮЬ	ЮЬЮЬШУKЪЮШKЩ*KЪЬЮЬ%Ш<KЪ
ЮЬЮЬЮЬЮЬ	ЮЬШ)ЪЮЬЮЬЮЬ,ЮЬЮЬЮЬШ[KШ'ЪЮЬ
ЮЬЮЬ*ЮШ?KЪ	ЬЮЬЮЬЮЬ	ЮЬШSЧKЪЮЬШЧKЪЮЬ	ЮЬШKЪЮЬШKШ ЧЪаЬЮЬЮЬЮЬШQKЩ`KЪЬЮЬ!Ш;ЪЬЮЬШ#KШKЪЬЮЬШ!KШЧЪЮЬЮЬЮЬЮЬ ЮЬЮЬЮШSKЪЬЮЬШЪЮЬЮЬЮЬЮЬ#ЮЬЮЬЮШZKЪЬ	ЮЬШ"KЪЬЮЬШ#ЪЮЬ/ЮЬШ7KЪЬЮЬ&Ш8KЪЬЮЬШKЪЬШKЪЬDШDKЪ
ЮЬЮЬЮЬЮЬЮЬШ,KЪЬUШUKШЧKЪЮЬШЧKЪЮЬШЧKЪЮЬШ KШKШ ЧЪаЬЮЬЮЬЮЬШIKЪЬЮЬЮЬШЪ
аЬЮЬЮЬЮЬЮЬШQKЪЬЮЬЮЬЮЬШ"ЧKЪЬ3Ш3KЪЮЬШЧKШ ЪаЬЮЬЮЬ<ШfЪаЬЮЬЮЬЮЬЮЬбЬШtKЪЮЬЮЬ$ЮЬЮЬШRKЪЮЬЮЬШKШЧKЪЬ$Ш$KЪЮЬШKШ ЧЪаЬЮЬЮЬЮЬЮЬ;ЮЬЮЬШДKЪЬWЩWKЪЬ8╧bЬЩFKЪЬЮЬ!Ш;Ъ	ЮЬЮЬ ЮЬЮЬЮШSKЪЬЮЬШЪЮЬЮЬЮЬЮЬ#ЮЬЮЬЮШZKЪЬ	ЮЬШ"KЪЬЮЬШ#ЪЮЬ/ЮЬШ7KЪЬЮЬ&Ш8KЪЬDЮЬЮЬ
ЮЬШqKЪЮЬШKЪЮЬШ!ЧKЪЮЬШЧKЪЮЬШЧKШKШ KЩ ЧЪаЬЮЬЮЬ	ЮЬЮЬ%ЮЬШiKЩ1ЪаЬШЪЮЬЮЬЮШKЪЮЬЮЬЮЬ
ШKЪЬIШIKЪЬШЧKШЧKЪЬ	ЮЬЮЬЮЬШ#KЪЬЮЬШKШKЪЬ3Ш3KЪ	ЮЬЮЬЮЬЮЬбШ@KЪЬШKЪЬ3Ш3KЪ	ЮЬЮЬЮЬЮЬбШ@KЪЬШKЪЬ3Ш3KЪ	ЮЬЮЬЮЬЮЬбШ@ЪЬШKЪЮЬЮЬЮЬЮЬШ5KЪЬШЧKЪЮЬШ"KШЧKШ ЧKШ KЪЮЬШKШ KШ KШ KШ KШ KШ KШ Ч ЕЧ    &h  <░  