DIRECTORY
Basics,
YggDummyProcess,
YggEnvironment,
YggFile,
YggInternal,
YggInline,
YggFilePageMgr,
YggLog,
YggLogBasic,
YggLogInline,
YggLogBasicInternal,
YggLogRep;

YggLogBasicImpl: CEDAR MONITOR
IMPORTS
Basics, YggDummyProcess, YggFile, YggInline, YggFilePageMgr, YggLog, YggLogBasic, YggLogInline
EXPORTS
YggLogBasic,
YggLogBasicInternal =
BEGIN
PageCount: TYPE = YggEnvironment.PageCount;
PageNumber: TYPE = YggEnvironment.PageNumber;
PageRun: TYPE = YggEnvironment.PageRun;
VolumeID: TYPE = YggEnvironment.VolumeID;
WordNumber: TYPE = YggLogBasic.WordNumber;
WordCount: TYPE = YggLogBasic.WordCount;
RecordID: TYPE = YggLog.RecordID;
nullRecordID: RecordID = YggLog.nullRecordID;
Comparison: TYPE = YggLog.Comparison;

CallerProgrammingError: ERROR = CODE;
InternalProgrammingError: ERROR = CODE;

Header: PROC [p: LONG POINTER] RETURNS [LONG POINTER TO YggLogRep.Header] = INLINE {
RETURN [LOOPHOLE[p]] };
logFileHandle: YggInternal.FileHandle;
logFileSize: PageCount;
logFileLength: WordCount;
logChunkSize: INT = 4;
PageRunStartingWith: PROC [p: PageNumber] RETURNS [pr: PageRun] = INLINE {
RETURN [[firstPage: p, count: MIN[logFileSize-p, logChunkSize]]] };

PageFollowing: PROC [pr: PageRun] RETURNS [p: PageNumber] = INLINE {
p _ pr.firstPage+pr.count;
RETURN [IF p = logFileSize THEN 0 ELSE p] };

IsMemberOfPageRun: PROC [p: PageNumber, pr: PageRun] RETURNS [BOOL] = INLINE {
RETURN [p IN [pr.firstPage .. pr.firstPage+pr.count)] };

EstablishLogFile: PUBLIC PROC [
logFile: YggEnvironment.DID] = {
logFileHandle _ YggFile.FilesForDID[did: logFile].contents;
logFileSize _ YggFilePageMgr.GetSize[logFileHandle];
logFileLength _ YggInline.WordsFromPages[logFileSize, YggLog.logDeviceCharacteristics];
};

LogFileSize: PUBLIC PROC [] RETURNS [PageCount] = {
RETURN[logFileSize];
};

LogUsage: PUBLIC ENTRY PROC [] RETURNS [PageCount] ~ {
nPages: INT;
RETURN[IF (nPages _ (PageFollowing[chunkTable[tail].chunk.pageRun] - oldestFilePage)) >= 0 THEN nPages + nBufferPages ELSE nPages + nBufferPages + logFileSize];
};

ChunkTableSize: CARDINAL = 4;
ChunkTableIndex: TYPE = [0..ChunkTableSize);
ChunkTableRec: TYPE = RECORD [
chunk: YggFilePageMgr.VMPageSet _ YggFilePageMgr.nullVMPageSet,
recordID: YggLog.RecordID _ YggLog.nullRecordID,
forceInProgress: BOOL _ FALSE
];
NextChunkTableIndex: PROC [i: ChunkTableIndex] RETURNS [ChunkTableIndex] = INLINE {
RETURN [IF i = LAST[ChunkTableIndex] THEN FIRST[ChunkTableIndex] ELSE SUCC[i]] };

chunkTable: ARRAY ChunkTableIndex OF ChunkTableRec;
tail: ChunkTableIndex;
completion: CONDITION;
curVersion: YggLogRep.PageVersion;
nextTailChunkID: YggLog.RecordID;
oldestFilePage: PageNumber;
enforceBufferPages: BOOL;
nBufferPages: INT = 100;
AdvanceChunk: PUBLIC ENTRY PROC [] RETURNS [
version: YggLogRep.PageVersion, pagesInChunk: INT, firstPagePtr: LONG POINTER] = {

newTail: ChunkTableIndex;
nextPage: PageNumber;
runForNextPage: PageRun;
biasedOldestFilePage: PageNumber; 

chunkTable[tail].forceInProgress _ TRUE;
TRUSTED {YggDummyProcess.Detach[FORK ForceChunk[index: tail]]; };

DO
newTail _ NextChunkTableIndex[tail];
IF NOT chunkTable[newTail].forceInProgress THEN EXIT;
WAIT completion;
ENDLOOP;

nextPage _ PageFollowing[chunkTable[tail].chunk.pageRun];
runForNextPage _ PageRunStartingWith[nextPage];
biasedOldestFilePage _ oldestFilePage - nBufferPages;
IF biasedOldestFilePage < 0 THEN
biasedOldestFilePage _ biasedOldestFilePage + logFileSize;
IF (enforceBufferPages AND
IsMemberOfPageRun[biasedOldestFilePage, runForNextPage]) OR
IsMemberOfPageRun[oldestFilePage, runForNextPage]  THEN {
RETURN WITH ERROR YggLog.WriteFailed
};
IF chunkTable[newTail].chunk.pages # NIL THEN
YggFilePageMgr.ReleaseVMPageSet[
vMPageSet: chunkTable[newTail].chunk, releaseState: clean, keep: TRUE];

IF nextPage = 0 THEN curVersion _ 1 - curVersion;
tail _ newTail;
chunkTable[tail].recordID _ nextTailChunkID;
chunkTable[tail].chunk _ YggFilePageMgr.UseLogPages[
fileHandle: logFileHandle, pageRun: runForNextPage];
nextTailChunkID _ YggLogInline.AddC[r: nextTailChunkID,
words: YggInline.ShortWordsFromPages[chunkTable[tail].chunk.pageRun.count, YggLog.logDeviceCharacteristics]];

RETURN [
version: curVersion,
pagesInChunk: chunkTable[tail].chunk.pageRun.count,
firstPagePtr: chunkTable[tail].chunk.pages];

};

ForceChunk: PROC [index: ChunkTableIndex] = {
BroadcastCompletion: ENTRY PROC [] =  INLINE {
chunkTable[index].forceInProgress _ FALSE;
BROADCAST completion;
};
YggFilePageMgr.ForceOutVMPageSet[chunkTable[index].chunk];
BroadcastCompletion[];
};

ForceTo: PUBLIC PROC [followingRecord: RecordID] = {
TailForceRequired: ENTRY PROC []
RETURNS [doForce: BOOL, chunk: YggFilePageMgr.VMPageSet] = TRUSTED {
IF ConstArith.Compare[followingRecord, nextTailChunkID] = greater THEN
RETURN WITH ERROR CallerProgrammingError;
IF ConstArith.Compare[chunkTable[tail].recordID, followingRecord] = less THEN {
YggFilePageMgr.ShareVMPageSet[chunkTable[tail].chunk];
RETURN [TRUE, chunkTable[tail].chunk] }
ELSE RETURN [FALSE, YggFilePageMgr.nullVMPageSet]
};
AwaitForce: ENTRY PROC [] = {
FOR currentChunk: ChunkTableIndex IN ChunkTableIndex DO
TRUSTED {
IF ConstArith.Compare[chunkTable[currentChunk].recordID, followingRecord] = less THEN UNTIL NOT chunkTable[currentChunk].forceInProgress DO
WAIT completion;
ENDLOOP;
};
ENDLOOP;
};
doForce: BOOL;  chunk: YggFilePageMgr.VMPageSet;
[doForce, chunk] _ TailForceRequired[];
IF doForce THEN {
YggFilePageMgr.ForceOutVMPageSet[vMPageSet: chunk];
YggFilePageMgr.ReleaseVMPageSet[vMPageSet: chunk, releaseState: clean, keep: TRUE] };
AwaitForce[];
};

OpenBasicForPut: PUBLIC ENTRY PROC [
nextPage: PageNumber, version: YggLogRep.PageVersion, nextRecord: RecordID]
RETURNS [pagesInChunk: INT, firstPagePtr: LONG POINTER] = {
enforceBufferPages _ FALSE;
curVersion _ version;
tail _ FIRST[ChunkTableIndex];
chunkTable[tail].recordID _ nextRecord;
chunkTable[tail].chunk _ YggFilePageMgr.UseLogPages[
fileHandle: logFileHandle, pageRun: PageRunStartingWith[nextPage]];
nextTailChunkID _ YggLogInline.AddC[r: chunkTable[tail].recordID,
words: YggInline.ShortWordsFromPages[chunkTable[tail].chunk.pageRun.count, YggLog.logDeviceCharacteristics]];
RETURN [
pagesInChunk: chunkTable[tail].chunk.pageRun.count, 
firstPagePtr: chunkTable[tail].chunk.pages];
};

AssertNormalOperation: PUBLIC ENTRY PROC [] = {
enforceBufferPages _ TRUE;
};

CloseBasicForPut: PUBLIC ENTRY PROC [] = {
FOR i: ChunkTableIndex IN ChunkTableIndex DO
WHILE chunkTable[i].forceInProgress DO
WAIT completion;
ENDLOOP;
YggFilePageMgr.ForceOutVMPageSet[chunkTable[i].chunk];
YggFilePageMgr.ReleaseVMPageSet[
vMPageSet: chunkTable[i].chunk, releaseState: clean, keep: FALSE];
chunkTable[i] _ [];
ENDLOOP;
};

WordNumberFromRecordID: PUBLIC ENTRY PROC [thisRecord: RecordID]
RETURNS [result: WordNumber] = {
offsetFromNextTailChunk: WordCount;
TRUSTED {IF ConstArith.Compare[thisRecord, nextTailChunkID] = greater THEN GOTO tooLarge; };
offsetFromNextTailChunk _ YggLogInline.WordsFromSubtract[
larger: nextTailChunkID, smaller: thisRecord ! Basics.BoundsFault => GOTO tooSmall];
IF YggLogBasic.Compare[offsetFromNextTailChunk, logFileLength] # less THEN GOTO tooSmall;
result _ YggLogInline.SubNumberLessCount[
num: YggInline.WordsFromPages[
pages: PageFollowing[chunkTable[tail].chunk.pageRun], deviceCharacteristics: YggLog.logDeviceCharacteristics],
 words: offsetFromNextTailChunk];
RETURN [IF result.sign = negative THEN YggLogInline.AddNumberAndCount[result, logFileLength] ELSE result];
EXITS
tooLarge => ERROR CallerProgrammingError;
tooSmall => ERROR CallerProgrammingError;
};

VerifyGet: ENTRY PROC [page: PageCount, pagePtr: LONG POINTER] = {
TRUSTED {IF Header[pagePtr].valid THEN RETURN; };
IF IsMemberOfPageRun[page, chunkTable[tail].chunk.pageRun] THEN RETURN;
ERROR; 
};

Release: PUBLIC PROC [beforeRecord: RecordID] = {
AssignToOldestFilePage: ENTRY PROC [newOldestFilePage: PageNumber] = INLINE {
oldestFilePage _ newOldestFilePage };
AssignToOldestFilePage[YggInline.PagesFromWords[
WordNumberFromRecordID[beforeRecord], YggLog.logDeviceCharacteristics]];
};

nChunksReadAhead: CARDINAL = 4;

PageStreamObject: TYPE = RECORD [
chunk: YggFilePageMgr.VMPageSet _ YggFilePageMgr.nullVMPageSet,
savePageRun: PageRun,
pageInPageRun, savePageInPageRun: CARDINAL,
expectedVersion, saveExpectedVersion: YggLogRep.PageVersion,
pagePtr: LONG POINTER,
posSaved: BOOL,
nextReadAheadPage: PageNumber ];
pageStream: PageStreamObject;

OpenPageStream: PROC [p: PageNumber] RETURNS [endOfLog: BOOL] = {
pageStream.chunk _
YggFilePageMgr.ReadLogPages[
fileHandle: logFileHandle, pageRun: PageRunStartingWith[p]];
pageStream.pagePtr _ pageStream.chunk.pages;
pageStream.pageInPageRun _ 0;
pageStream.nextReadAheadPage _ PageFollowing[pageStream.chunk.pageRun];
THROUGH [1..nChunksReadAhead] DO ReadAhead[] ENDLOOP;
TRUSTED {
IF NOT Header[pageStream.pagePtr].valid THEN RETURN [TRUE];
pageStream.expectedVersion _ Header[pageStream.pagePtr].version;
};
pageStream.posSaved _ FALSE;
RETURN [FALSE];
};

ClosePageStream: PROC [] = {
YggFilePageMgr.ReleaseVMPageSet[
vMPageSet: pageStream.chunk, releaseState: clean, keep: FALSE];
pageStream.chunk _ YggFilePageMgr.nullVMPageSet;
};

ReadAhead: PROC [] = {
YggFilePageMgr.ReadAheadLogPages[
logFileHandle, PageRunStartingWith[pageStream.nextReadAheadPage]];
pageStream.nextReadAheadPage _
IF pageStream.nextReadAheadPage < logFileSize - logChunkSize THEN
pageStream.nextReadAheadPage + logChunkSize
ELSE 0;
};

SavePageStreamPos: PROC [] = {
pageStream.savePageRun _ pageStream.chunk.pageRun;
pageStream.savePageInPageRun _ pageStream.pageInPageRun;
pageStream.saveExpectedVersion _ pageStream.expectedVersion;
pageStream.posSaved _ TRUE;
};

CurrentPageNumber: PROC [] RETURNS [PageNumber] = INLINE {
RETURN [pageStream.chunk.pageRun.firstPage + pageStream.pageInPageRun];
};

ForgetSavedPageStreamPos: PROC [] = {
IF NOT pageStream.posSaved THEN RETURN;
IF pageStream.savePageRun # pageStream.chunk.pageRun THEN
ERROR InternalProgrammingError;
pageStream.posSaved _ FALSE;
};

AdvancePageStream: PROC [] RETURNS [endOfLog: BOOL] = {
pageStream.pageInPageRun _ pageStream.pageInPageRun+1;
IF pageStream.pageInPageRun = pageStream.chunk.pageRun.count THEN {
p: PageNumber;
YggFilePageMgr.ReleaseVMPageSet[
vMPageSet: pageStream.chunk, releaseState: clean, keep: pageStream.posSaved];
p _ PageFollowing[pageStream.chunk.pageRun];
IF p = 0 THEN pageStream.expectedVersion _ 1 - pageStream.expectedVersion;
pageStream.chunk _
YggFilePageMgr.ReadLogPages[fileHandle: logFileHandle, pageRun: PageRunStartingWith[p]];
pageStream.pagePtr _ pageStream.chunk.pages;
pageStream.pageInPageRun _ 0;
IF NOT pageStream.posSaved THEN ReadAhead[];
}
ELSE
pageStream.pagePtr _ pageStream.pagePtr + YggLog.wordsPerPage;
TRUSTED {RETURN[ (NOT Header[pageStream.pagePtr].valid) OR
(pageStream.expectedVersion # Header[pageStream.pagePtr].version) ]; };
};

SetPageStreamPosFromSavedPos: PROC [] = {
IF NOT pageStream.posSaved THEN ERROR InternalProgrammingError;
IF pageStream.chunk.pageRun # pageStream.savePageRun THEN {
YggFilePageMgr.ReleaseVMPageSet[vMPageSet: pageStream.chunk, releaseState: clean, keep: TRUE];
pageStream.chunk _
YggFilePageMgr.ReadLogPages[fileHandle: logFileHandle, pageRun: pageStream.savePageRun];
pageStream.expectedVersion _ pageStream.saveExpectedVersion;
};
pageStream.pageInPageRun _ pageStream.savePageInPageRun;
pageStream.pagePtr _ pageStream.chunk.pages +
YggInline.ShortWordsFromPages[pageStream.pageInPageRun, YggLog.logDeviceCharacteristics];
};


RecordStreamObject: TYPE = RECORD [
id: RecordID
];
recordStream: RecordStreamObject;

OpenRecordStreamFromWord: PUBLIC PROC [firstWord: WordNumber]
RETURNS [notStartOfRecord: BOOL, currentRecord: RecordID] = {
notStartOfRecord _ OpenRecordStream[firstWord: firstWord,
firstRecord: YggLogInline.RecordIDFromWordNumber[firstWord]];
RETURN [notStartOfRecord, recordStream.id];
};

OpenRecordStreamFromCheckpoint: PUBLIC PROC [
checkpointWord: WordNumber, checkpointRecord: RecordID, firstRecord: RecordID]
RETURNS [notStartOfRecord: BOOL, currentRecord: RecordID] = {
offsetFromCheckpoint, firstWord: WordCount;
TRUSTED { IF ConstArith.Compare[checkpointRecord, firstRecord] = less THEN
ERROR CallerProgrammingError; };
offsetFromCheckpoint _ YggLogInline.WordsFromSubtract[
larger: checkpointRecord, smaller: firstRecord ! Basics.BoundsFault => GOTO tooSmall];
IF YggLogBasic.Compare[offsetFromCheckpoint, logFileLength] # less THEN GOTO tooSmall;
firstWord _ YggLogInline.SubNumberLessCount[checkpointWord, offsetFromCheckpoint];
IF firstWord.sign = negative THEN firstWord _ YggLogInline.AddNumberAndCount[firstWord,  logFileLength];
notStartOfRecord _ OpenRecordStream[firstWord: firstWord, firstRecord: firstRecord];
RETURN [notStartOfRecord, firstRecord];
EXITS
tooSmall => ERROR CallerProgrammingError;
};

OpenRecordStream: PROC [firstWord: WordNumber, firstRecord: RecordID]
RETURNS [notStartOfRecord: BOOL] = {
p: PageNumber;
w: CARDINAL;
[page: p, wordInPage: w] _ YggInline.DecomposeWords[firstWord, YggLog.logDeviceCharacteristics];
IF YggLogInline.WordInPageFromRecordID[firstRecord, YggLog.wordsPerPage] # w THEN
ERROR CallerProgrammingError;
IF OpenPageStream[p].endOfLog THEN GOTO invalidPage;
SavePageStreamPos[];
recordStream _ [id: firstRecord];
RETURN [VerifyCurrentRecordID[].notStartOfRecord];
EXITS
invalidPage => ERROR InvalidPage;
};

InvalidPage: PUBLIC ERROR = CODE;

CurrentWordNumber: PROC [] RETURNS [w: WordNumber] = {
TRUSTED {w _ ConstArith.Add[YggInline.WordsFromPages[CurrentPageNumber[], YggLog.logDeviceCharacteristics],
ConstArith.FromCard[YggLogInline.WordInPageFromRecordID[recordStream.id, YggLog.wordsPerPage]]]};
};

CloseRecordStream: PUBLIC PROC [] = {
ClosePageStream[];
};

VerifyCurrentRecordID: PROC [] RETURNS [notStartOfRecord: BOOL] = {
wordInPage: CARDINAL _ YggLogInline.WordInPageFromRecordID[recordStream.id, YggLog.wordsPerPage];
TRUSTED {
w: CARDINAL _ 0;
UNTIL w >= wordInPage DO
w _ w + Header[pageStream.pagePtr+w].nWords;
ENDLOOP;
IF w > wordInPage THEN RETURN [TRUE];
};
TRUSTED {RETURN [Header[pageStream.pagePtr+wordInPage].isContinuation]; };
};

CheckCurrentRecord: PUBLIC PROC [] RETURNS [truncated: BOOL] = TRUSTED {
wordInPage: CARDINAL _ YggLogInline.WordInPageFromRecordID[recordStream.id, YggLog.wordsPerPage];
IF VerifyCurrentRecordID[].notStartOfRecord THEN ERROR InternalProgrammingError;
IF Header[pageStream.pagePtr+wordInPage].hasContinuation THEN {
IF (Header[pageStream.pagePtr+wordInPage].nWords + wordInPage) # YggLog.wordsPerPage THEN
GOTO checkFailed;
DO
IF AdvancePageStream[].endOfLog THEN GOTO truncatedRecord;
IF NOT Header[pageStream.pagePtr].isContinuation
THEN GOTO truncatedRecord;
IF NOT Header[pageStream.pagePtr].hasContinuation THEN EXIT;
IF Header[pageStream.pagePtr].nWords # YggLog.wordsPerPage THEN GOTO checkFailed;
ENDLOOP;
IF Header[pageStream.pagePtr].nWords NOT IN [1 .. YggLog.wordsPerPage] THEN
GOTO checkFailed;
}
ELSE {
IF Header[pageStream.pagePtr+wordInPage].nWords
NOT IN [1 .. YggLog.wordsPerPage-wordInPage] THEN GOTO checkFailed;
};
SetPageStreamPosFromSavedPos[];
RETURN [FALSE];
EXITS
checkFailed => { SetPageStreamPosFromSavedPos[];  ERROR InternalProgrammingError };
truncatedRecord => { SetPageStreamPosFromSavedPos[];  RETURN [TRUE] };
}; 

GetCurrentRecord: PUBLIC PROC [currentRecord: RecordID, to: YggLog.Block]
RETURNS [status: YggLog.ReadProcStatus, wordsRead: CARDINAL] = {
wordInPage: CARDINAL _ YggLogInline.WordInPageFromRecordID[recordStream.id, YggLog.wordsPerPage];
wordsRead _ 0;
IF YggLogInline.Compare[currentRecord, recordStream.id] # equal THEN
ERROR CallerProgrammingError;
DO
wordsThisBlock, wordsThisCopy: CARDINAL;
hasContinuation, isContinuation: BOOL;
TRUSTED { [hasContinuation: hasContinuation, isContinuation: isContinuation, nWords: wordsThisBlock] _ Header[pageStream.pagePtr+wordInPage]^; };
IF wordsRead > 0 AND NOT isContinuation THEN GOTO truncatedRecord;
wordsThisBlock _ wordsThisBlock-SIZE[YggLogRep.Header];
wordInPage _ wordInPage+SIZE[YggLogRep.Header];
DO
wordsThisCopy _ MIN[to.length, wordsThisBlock];
IF to.base # NIL THEN TRUSTED {
Basics.Copy[
to: to.base, from: pageStream.pagePtr+wordInPage, nwords: wordsThisCopy];
to.base _ to.base+wordsThisCopy;
};
wordsRead _ wordsRead+wordsThisCopy;
IF wordsThisCopy # to.length THEN {
to.length _ to.length-wordsThisCopy;
IF NOT hasContinuation THEN GOTO sourceExhausted;
IF AdvancePageStream[].endOfLog THEN GOTO truncatedRecord;
wordInPage _ 0;
GOTO nextBlock;
}
ELSE IF to.rest # NIL THEN TRUSTED {
to _ to.rest^;
wordsThisBlock _ wordsThisBlock-wordsThisCopy;
wordInPage _ wordInPage + wordsThisCopy;
}
ELSE {
SetPageStreamPosFromSavedPos[];
RETURN [
IF (NOT hasContinuation AND wordsThisBlock = wordsThisCopy) THEN normal
ELSE destinationFull, wordsRead]
}
REPEAT
nextBlock => NULL;
ENDLOOP;
ENDLOOP;
EXITS
sourceExhausted => {
SetPageStreamPosFromSavedPos[];
RETURN [sourceExhausted, wordsRead]
};
truncatedRecord => {
SetPageStreamPosFromSavedPos[];
ERROR CallerProgrammingError;
};
};

GetCurrentPageAndVersion: PUBLIC PROC []
RETURNS [PageNumber, YggLogRep.PageVersion] = {
RETURN[CurrentPageNumber[], pageStream.expectedVersion];
};

AdvanceRecordStream: PUBLIC PROC []
RETURNS [endOfLog, truncatedRecord: BOOL, currentRecord: RecordID] = TRUSTED {
wordsInRecord: CARDINAL _ 0;
endOfLog _ truncatedRecord _ FALSE;
{ -- block for EXITS
wordInPage: CARDINAL _ YggLogInline.WordInPageFromRecordID[recordStream.id, YggLog.wordsPerPage];
ForgetSavedPageStreamPos[];
WHILE Header[pageStream.pagePtr+wordInPage].hasContinuation DO
wordsInRecord _ wordsInRecord + Header[pageStream.pagePtr+wordInPage].nWords;
wordInPage _ 0;
IF AdvancePageStream[].endOfLog THEN {
endOfLog _ truncatedRecord _ TRUE;  GOTO return };
IF NOT Header[pageStream.pagePtr].isContinuation THEN {
truncatedRecord _ TRUE;  GOTO return };
ENDLOOP;
{ wordsInLastBlock: CARDINAL _ Header[pageStream.pagePtr+wordInPage].nWords;
wordInPage _ wordInPage + wordsInLastBlock;
wordsInRecord _ wordsInRecord + wordsInLastBlock };
IF wordInPage < YggLog.wordsPerPage AND
Header[pageStream.pagePtr+wordInPage].nWords = 0 THEN {
wordsInRecord _ wordsInRecord + (YggLog.wordsPerPage-wordInPage);
wordInPage _ YggLog.wordsPerPage;
};
IF wordInPage = YggLog.wordsPerPage AND AdvancePageStream[].endOfLog THEN {
endOfLog _ TRUE;
};
GOTO return
EXITS return => {
SavePageStreamPos[];
recordStream.id _ YggLogInline.AddC[recordStream.id, wordsInRecord];
RETURN[endOfLog, truncatedRecord, recordStream.id] };
}};


nTransitionPages: INT = 10 * logChunkSize;

LocateFirstRecord: PUBLIC PROC [] RETURNS [firstRecord: WordNumber] = {
notStartOfRecord: BOOL;
endOfLog: BOOL _ FALSE;
[notStartOfRecord: notStartOfRecord] _ OpenRecordStreamFromWord[
YggInline.WordsFromPages[LocateStartingPage[], YggLog.logDeviceCharacteristics]];
IF notStartOfRecord THEN [endOfLog: endOfLog] _ AdvanceRecordStream[];
IF endOfLog THEN ERROR InternalProgrammingError;
firstRecord _ CurrentWordNumber[];
CloseRecordStream[];
RETURN [firstRecord];
};

LocateStartingPage: PROC [] RETURNS [PageNumber] = {
SkipAhead: PROC [] = {
nextPage: PageNumber = CurrentPageNumber[] + nTransitionPages;
ClosePageStream[];
IF OpenPageStream[nextPage].endOfLog THEN ERROR InternalProgrammingError;
};
startPage, beginPage: PageNumber;
{ -- Read to find a page in a "clean" area.
IF OpenPageStream[0].endOfLog THEN GOTO skip;
THROUGH [0 .. nTransitionPages) DO
IF AdvancePageStream[].endOfLog THEN GOTO skip;
ENDLOOP;
EXITS
skip => SkipAhead[];
};
startPage _ CurrentPageNumber[];
DO  IF AdvancePageStream[].endOfLog THEN EXIT  ENDLOOP;
SkipAhead[];
beginPage _ CurrentPageNumber[];
UNTIL CurrentPageNumber[] = startPage DO
IF AdvancePageStream[].endOfLog THEN ERROR InternalProgrammingError;
ENDLOOP;
ClosePageStream[];
RETURN [beginPage];
};



Get: PUBLIC PROC [thisRecord: YggLog.RecordID, to: YggLog.Block]
RETURNS [status: YggLog.ReadProcStatus, wordsRead: CARDINAL] = {

chunk: YggFilePageMgr.VMPageSet;
pagePtr: LONG POINTER;
pagesLeftInChunk: CARDINAL;

GetChunk: PROC [nextPage: PageNumber]  = {
chunk _
YggFilePageMgr.ReadLogPages[
fileHandle: logFileHandle, pageRun: PageRunStartingWith[nextPage]];
pagePtr _ chunk.pages;
pagesLeftInChunk _ chunk.pageRun.count - 1;
};

ReleaseChunk: PROC [] = INLINE {
YggFilePageMgr.ReleaseVMPageSet[vMPageSet: chunk, releaseState: clean, keep: FALSE];
};

AdvancePage: PROC [] = INLINE {
IF pagesLeftInChunk = 0 THEN {
nextPage: PageNumber _ PageFollowing[chunk.pageRun];
ReleaseChunk[];
IF nextPage = 0 THEN pageVersion _ 1-pageVersion;
GetChunk[nextPage];
}
ELSE {
pagePtr _ pagePtr + YggLog.wordsPerPage;
pagesLeftInChunk _ pagesLeftInChunk - 1;
};
};

isFirstPage: BOOL _ TRUE;
pageVersion: YggLogRep.PageVersion _ 0;
wordInPage: CARDINAL;

Verify: PROC [] = {
w: CARDINAL _ 0;
UNTIL w = wordInPage DO
TRUSTED {w _ w + Header[pagePtr+w].nWords; };
IF w > wordInPage THEN ERROR InternalProgrammingError;
ENDLOOP;
};

{
firstPage: PageNumber;
[page: firstPage, wordInPage: wordInPage] _ YggInline.DecomposeWords[
WordNumberFromRecordID[thisRecord], YggLog.logDeviceCharacteristics];
GetChunk[firstPage];
};
Verify[];
wordsRead _ 0;
DO
wordsThisBlock, wordsThisCopy: CARDINAL;
hasContinuation, isContinuation: BOOL;
version: YggLogRep.PageVersion;
TRUSTED { IF NOT Header[pagePtr].valid THEN VerifyGet[ chunk.pageRun.firstPage+(chunk.pageRun.count-(1+pagesLeftInChunk)), pagePtr]; };
TRUSTED {[version: version, hasContinuation: hasContinuation, isContinuation: isContinuation, nWords: wordsThisBlock] _ Header[pagePtr+wordInPage]^; };
wordsThisBlock _ wordsThisBlock-YggLogRep.Header.SIZE;
wordInPage _ wordInPage+YggLogRep.Header.SIZE;
IF isFirstPage THEN {
IF isContinuation THEN ERROR InternalProgrammingError;
pageVersion _ version;
isFirstPage _ FALSE }
ELSE {
IF NOT isContinuation OR (version # pageVersion) THEN
ERROR InternalProgrammingError
};
DO
wordsThisCopy _ MIN[to.length, wordsThisBlock];
IF to.base # NIL THEN TRUSTED {
Basics.Copy[
to: to.base, from: pagePtr+wordInPage, nwords: wordsThisCopy];
to.base _ to.base+wordsThisCopy;
};
wordsRead _ wordsRead+wordsThisCopy;
IF wordsThisCopy # to.length THEN {
to.length _ to.length-wordsThisCopy;
IF NOT hasContinuation THEN {
ReleaseChunk[];
RETURN[sourceExhausted, wordsRead]
};
AdvancePage[];
wordInPage _ 0;
GOTO nextBlock;
}
ELSE IF to.rest # NIL THEN TRUSTED {
to _ to.rest^;
wordsThisBlock _ wordsThisBlock-wordsThisCopy;
wordInPage _ wordInPage + wordsThisCopy;
}
ELSE {
ReleaseChunk[];
RETURN [
IF (NOT hasContinuation AND wordsThisBlock = wordsThisCopy) THEN normal
ELSE destinationFull, wordsRead]
}
REPEAT
nextBlock => NULL;
ENDLOOP;
ENDLOOP;
};


END.




OPEN PROBLEMS
Need a way to get the log chunk size from FilePageMgr (see logChunkSize constant above).

CHANGE LOG

Created by MBrown on June 15, 1982 3:38 pm

Changed by MBrown on September 10, 1982 9:45 pm

Changed by MBrown on September 25, 1982 3:27 pm

Changed by MBrown on November 16, 1982 10:10 pm

Changed by MBrown on April 3, 1983 4:17 pm

Changed by MBrown on June 27, 1983 9:56 am

Changed by MBrown on January 30, 1984 10:18:19 am PST

pYggLogBasicImpl.mesa
Copyright Σ 1985, 1987, 1988 by Xerox Corporation.  All rights reserved.
Implements stream log reading, log tail management, random log reading.
Last edited by
MBrown on January 30, 1984 5:50:24 pm PST
Hauser, May 2, 1985 9:49:19 am PDT
Bob Hagmann May 12, 1988 3:11:46 pm PDT
Static log file state 
Utilities 
The log as a whole 
YggLogBasic.EstablishLogFile
YggLog tail.
This data structure keeps status information about log chunks near the log tail. 
Specifically, any chunk that may be dirty but which has not yet been forced out
must be present in the table.  The table is managed as a queue which always has
at least one element in it.  When any chunk completes a forceout, its slot in the
table is marked free.  A slot is reused if it is free and corresponds to the earliest
log page in the table.
Types
Contains a PageRun (PageNumber, Count) and the LONG POINTER to the mapped pages.
ID of first word of first page of chunk.
Set TRUE before forking process to force final update to the chunk; set FALSE when
this process finishes.  So if chunk is not the tail and NOT forceInProgress, it is eligible
for re-use.
State
Variables below are only updated by AdvanceChunk, except that the TRUE -> FALSE
transition of forceInProgress for a chunk is made by ForceChunk
(forked by AdvanceChunk), and oldestFilePage is updated by Release.
Wait here for a forceInProgress = FALSE in chunkTable.
Version bit for pages in tail chunk
RecordID of first word of first page of NEXT tail chunk.  Used to bounds-check RecordIDs
presented to Force and Get.  Redundant; can be computed from chunkTable[tail] .
The least-recently written page of the log file that cannot be overwritten.
If enforceBufferPages, then do not allow writing within nBufferPages pages
of oldestFilePage
Operations on the log tail.
YggLogBasicInternal.AdvanceChunk
Caller must hold the log tail monitor; hence only one caller at a time.
	Fork a process to write the current tail chunk.
	Wait, if necessary, for room in the chunk table to allocate the next tail chunk.
	Now make sure that the write will not overwrite, or even get too close to, log pages that are still needed.
 
	About to start updating global data structures;  from here on it's do or die--no more recoverable errors allowed;

	On entry, chunkTable[index].forceInProgress.
	Force the chunk, and set forceInProgress _ false.
	Note: do NOT hold monitor during force out.
YggLogBasicInternal.ForceTo
If the word before followingRecord is in the current tail chunk, force that chunk
(using this process).  Then wait for other chunks that precede followingRecord to
go out.
followingRecord must not be later than page about to be written.
Return when all chunks that precede followingRecord are out.
YggLogBasicInternal.OpenCoreForPut
YggLogBasicInternal.CloseCoreForPut
YggLogBasic.WordNumberFromRecordID
Called from Get if it encounters a page marked invalid.
YggLogBasic.Release
Readonly page stream the log 
A readonly page stream on the log.
This stream has a limited capability for backup: it can save one page position that
MUST be returned to later.
End of log is determined at the page level.
The initial stream position is NOT saved.
It is only valid to forget when positioned at the saved position.
A readonly log record stream. 
YggLog reading during recovery is significantly different than log reading for carrying out intentions.  In the case of recovery, we expect to encounter the log end while reading; in carrying out intentions we expect all log records to be perfectly formed.  Also, log reading for recovery is sequential, while log reading for intentions is more random.  In the case of recovery we need the ability to first "peek" and then read; for intentions, reading is enough.
of current log record, whose first word is on the current page stream page.
Read one log block from this page.
Read the header for the log block.
Copy a run of words to "to".
Now what?
to.length > wordsThisCopy = wordsThisBlock; go read next log block.
wordsThisCopy = to.length AND to.rest # NIL, so not done copying.
wordsThisCopy = to.length AND to.rest = NIL, so destination full; return.
It is ok to call Advance when recordStream is in a bad state, e.g. not pointing to the start
of a record.  It should be pointing to the start of a block, however.  Note that
wordInPage = 0 is sufficient.
Recovering from loss of the restart record. 
This code checks several invariants of the log that are not checked when the restart record is used.  In particular, a log with more than one "end" will be discovered by this code, but not when the restart record is used.  So it may be useful to run this code during debugging of the system.
Scans the log once.
A scan is in progress, but EndOfLog has been seen.
Move forward nTransitionPages pages.
Next EndOfLog really IS the end of the log!
Skip past any junk that might follow the EndOfLog, then save the page number.
Now read back to startPage.  Should see no more EndOfLogs.
Random log reading. 
YggLogBasic.Get
Enable UNWIND => ReleaseChunk[]
Ensure that wordInPage points to a YggLogRep.Header, assuming that page
is properly formatted.
Read one log block from this page.
Read valid bit from the header for first block on this page.
Read the header for this log block.
Copy a run of words to "to".
Now what?
to.length > wordsThisCopy = wordsThisBlock; go read next log block.
wordsThisCopy = to.length AND to.rest # NIL, so not done copying.
wordsThisCopy = to.length AND to.rest = NIL, so destination full; return.
Introduce a separate monitor for "core" log data structures.
Bug: attempted to release an uninitialized chunk, in AdvanceChunk.
Now runs simple log read/write test.
First "complete" implementation of LogBasic.
Revised Get to be more closely analogous to GetCurrentRecord.
Test "checkpointRecord <= firstRecord" changed to checkpointRecord < firstRecord",
since equality is now ok.
Added AssertNormalOperation proc.  Now, if enforceBufferPages, log write
fails if within nBufferPages pages of wrap-around (in AdvanceChunk).
Cedar 5.0: use PrincOpsUtils.
Hauser, March 8, 1985 10:44:53 am PST
Nodified, added copyright.
Carl Hauser, May 2, 1985 9:48:22 am PDT
changes to: LocateFirstRecord: Initialized endOfLog.
Carl Hauser, July 12, 1985 9:56:24 am PDT
changes to: LogBasicCoreImpl nBufferPages depends on number of coordinators to insure better chance for successful warmstart following a filling-up of the log.
Carl Hauser, October 4, 1985 1:31:01 pm PDT
Change "Log" to "AlpineLog"

ΚΙ˜š
œ™Icodeš
œH™H—Jš
œG™Gš
œ™Jš
œ)™)K™"K™'—˜š
Οk	˜	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œœœ
œœœ
œ
œœ˜TJšœœ˜——
headš
œ™Jš
œ&˜&J˜J˜Jšœœ˜—š
œ
™
šžœœœœ˜JJšœœ"˜CJ˜—šž
œœœœ˜DJ˜Jšœœœœ˜,J˜—š
žœœœœœ˜NJšœœ,˜8J˜——š
œ™šžœœ
œ˜Jš
œ ˜ Jš
œ™Jš
œ;˜;Jš
œ4˜4Jš
œW˜WJ˜J˜—šžœœ
œœ˜3Jšœ˜J˜J˜—šžœœœ˜6K˜Kšœ
œRœœ&˜ 
K˜——š
œ™Jš
œQ™QJš
œO™OJš
œO™OJš
œQ™QJš
œU™UJš
œ™J˜Jš
œ™Jšœœ˜Jšœœ˜,šœœœ˜š
œ?˜?Jš
œP™P—š
œ0˜0Jš
œ(™(—šœœ˜Jš
œR™RJš
œ[™[Jš
œ™—J˜—šžœœœœ˜SJšœœœœ
œœ
œ˜QJ˜—Jš
œ™Jš
œO™OJš
œ?™?Jš
œC™CJšœœœ˜3J˜šœ	œ
˜Jš
œ6™6—š
œ"˜"Jš
œ#™#—š
œ!˜!Jš
œX™XJš
œO™O—˜Jš
œK™K—Jšœœ
˜šœœ˜Jš
œJ™JJš
œ™——š
œ™š
žœœ
œ
œœ˜,Jšœ.œœ
œ˜RJ˜Jš
œ ™ Jš
œG™GJ˜J˜J˜J˜"J˜Jš
œ0™0Jšœ#œ
˜(Jšœ œ˜AJ˜Jš
œQ™Qš
˜J˜$Jšœ
œ%œ
œ
˜5Jšœ˜Jšœ
˜J˜—J™lJ˜9J˜/Jš
œ5˜5šœ˜ J˜:—šœ˜Jšœ9˜;šœ3œ˜9Jšœ˜$J˜—J™
—J™rJ™šœ#œ
˜-š
œ ˜ JšœAœ˜GJ˜——Jšœœ˜1J˜J˜,š
œ4˜4J˜4—š
œ7˜7Jš
œm˜mJ˜—šœ˜J˜J˜3J˜,—J˜J˜J˜—šž
œœ˜-Jš
œ-™-Jš
œ2™2Jš
œ,™,šžœœ
œœ˜.Jšœ$œ
˜*Jš	œ˜J˜—Jš
œ:˜:J˜J˜J˜—šžœœ
œ ˜4Jš
œ™Jš
œQ™QJš
œQ™QJš
œ™šžœœ
œ˜ Jšœœ.˜DJš
œ@™@šœ@˜FJšœ
œ
œ˜)—šœGœ˜OJš
œ6˜6Jšœœ˜'—Jšœ
œœ˜1J˜—šž
œœ
œ˜Jš
œ<™<šœœ˜7š
	˜	šœO
œ
œ*˜‹
šœ˜Jšœ
˜—J˜——Jšœ
˜—J˜—Jšœ	œ#˜0J˜'šœ	œ˜Jš
œ3˜3JšœMœ˜U—J˜
J˜J˜—šžœœ
œ
œ˜$Jš
œK˜KJšœœœ
œ˜;Jš
œ"™"Jšœœ
˜J˜Jšœœ˜J˜'š
œ4˜4J˜C—š
œA˜AJš
œm˜m—šœ˜J˜4J˜,—J˜J˜—šžœœ
œ
œ˜/Jšœœ
˜J˜J˜—šžœœ
œ
œ˜*Jš
œ#™#šœœ˜,šœ˜&Jšœ˜Jšœ
˜—Jš
œ6˜6š
œ ˜ Jšœ;œ˜B—J˜Jšœ
˜—J˜J˜—šžœœ
œ
œ˜@Jšœ˜ Jš
œ"™"J˜#Jšœ;œ
œ
˜\š
œ9˜9JšœEœ˜T—JšœDœ
œ
˜Yš
œH˜HJš
œn˜n—Jš
œ!˜!Jšœœœ7œ	˜jš
˜Jšœœ˜)Jšœœ˜)—J˜J˜—š
ž	œœ
œœ
œ˜BJš
œ7™7Jšœœ
œ˜1Jšœ9œ
œ
˜GJšœ˜J˜J˜—šžœœ
œ˜1Jš
œ™šžœœ
œ#œ˜MJ˜%—š
œ0˜0Jš
œH˜H—J˜——š
œ™Jš
œ"™"Jš
œS™SJš
œ™Jš
œ+™+J˜Jšœœ˜J˜šœœœ˜!Jš
œ?˜?J˜Jšœ"œ
˜+Jš
œ<˜<Jšœ	œ
œ
˜Jšœ
œ
˜J˜ —J˜J˜šžœœœœ˜AJš
œ)™)˜š
œ˜J˜<——J˜,J˜J˜GJšœœ
œ
˜5š
	˜	Jš
œ
œ"œ
œœ˜;J˜C—Jšœœ
˜Jšœœ˜J˜J˜—šžœœ˜š
œ ˜ Jšœ8œ˜?—Jš
œ0˜0J˜J˜—šž	œœ˜š
œ!˜!J˜B—˜šœ;˜AJ˜+—Jšœ˜—J˜J˜—šžœœ˜J˜2J˜8J˜<Jšœœ
˜J˜J˜—šžœœœœ˜:JšœA˜GJ˜J˜—šžœœ˜%Jš
œA™AJšœ
œœ
œ
˜'šœ3˜9Jšœ˜—Jšœœ
˜J˜J˜—šžœœœœ˜7J˜6šœ;œ˜CJ˜š
œ ˜ J˜M—J˜,Jšœœ=˜J˜Jš
œX˜X—J˜,J˜Jšœ
œœ
˜,J˜
—š
˜Jš
œ>˜>—šœœ#˜:J˜G—J˜J˜—šžœœ˜)Jšœ
œœ
œ˜?šœ3œ˜;JšœXœ˜^˜Jš
œX˜X—J˜<J˜—J˜8˜-Jš
œY˜Y—J˜——š
œ™J˜Jš
œΟ™ΟJ˜šœœœ˜#˜Jš
œK™K—J˜—J˜!J˜šžœœ
œ˜=Jšœœ˜=˜9Jš
œ=˜=—Jšœ%˜+J˜J˜—šžœœ
œ˜-J˜NJšœœ˜=J˜+šœ:˜JJšœ˜ —š
œ6˜6JšœGœ˜V—JšœAœ
œ
˜VJš
œR˜RJšœœG˜hJ˜TJšœ!˜'š
˜Jšœœ˜)—J˜J˜—šžœœ/˜EJšœœ˜$J˜Jšœœ
˜Jš
œ`˜`šœK˜QJšœ˜—Jšœœ
œ
˜4J˜J˜!Jšœ,˜2š
˜Jšœœ
˜!—J˜J˜—Jšœ
œ
œœ
˜!J˜šžœœœ˜6š
œk˜kJš
œa˜a—J˜J˜—šžœœ
œ˜%J˜J˜J˜—šžœœœœ˜CJšœœM˜ašœ˜	Jšœœ˜šœ˜J˜,Jšœ
˜—Jšœœ
œœ˜%J˜—Jšœ;˜JJ˜J˜—š
žœœ
œœ
œ
˜HJšœœM˜aJšœ*œ
œ˜Pšœ7œ˜?šœS˜YJšœ
˜—š
˜Jšœœ
œ˜:šœ
œ*˜0Jšœ
œ˜—Jšœ
œ,œ
œ
˜<Jšœ9œ
œ
˜QJšœ
˜—šœ#œ
œ˜KJšœ
˜—J˜
—šœ˜šœ-˜/Jšœ
œ'œ
œ
˜C—J˜—J˜Jšœœ˜š
˜Jšœ2œ˜SJšœ6œœ˜F—J˜J˜—šžœœ
œ,˜IJšœ,œ˜@JšœœM˜aJ˜šœ>˜DJšœ˜—š
˜Jš
œ"™"Jšœœ
˜(Jšœ!œ
˜&Jš
œ"™"J˜‘
Jš
œœ
œœ
œ˜BJšœ œ˜7Jšœœ˜/š
˜Jš
œ™Jšœœ˜/šœœ
œ
˜˜J˜I—J˜ J˜—J˜$Jš
œ	™	šœœ˜#Jš
œC™CJ˜$Jšœ
œœ
œ˜1Jšœœ
œ˜:J˜Jšœ˜J˜
—šœ
œœ
œ
˜$Jš
œA™AJ˜J˜.J˜(J˜
—šœ˜Jš
œI™IJ˜šœ˜Jšœœœ!œ˜GJšœ˜ —J˜
—š
˜Jšœ
œ
˜—Jšœ
˜—Jšœ
˜—š
˜˜J˜Jšœ˜#J˜—˜J˜Jšœ˜J˜——J˜J˜—šžœœ
œ˜(Jšœ(˜/Jšœ2˜8J˜J˜—šžœœ
œ˜#Jšœœ&˜NJš
œ\™\Jš
œP™PJš
œ™Jšœœ˜Jšœœ
˜#JšœΟc˜JšœœM˜aJ˜šœ7˜>J˜MJ˜šœœ˜&Jšœœœ
˜2—šœ
œ+œ˜7Jšœœœ
˜'—Jšœ
˜—Jšœœ0˜LJ˜+J˜3šœ"˜'Jšœ1œ˜7Jš
œA˜AJš
œ!˜!J˜—šœ"œœ˜KJšœœ
˜J˜—Jšœ˜šœ˜J˜Jš
œD˜DJšœ/˜5—J˜——š
œ,™,J˜Jš
œ£™£J˜Jšœœ˜*J˜šžœœ
œœ˜GJšœœ
˜Jšœ
œœ
˜˜@Jš
œQ˜Q—Jšœœ.˜FJšœ
œ
œ˜0J˜"J˜Jšœ˜J˜J˜—šžœœœ˜4Jš
œ™šž	œœ˜Jš
œ2™2Jš
œ$™$J˜>J˜Jšœ#œ
œ˜IJ˜—J˜!JšœŸ)˜+Jšœœ
œ˜-šœ˜"Jšœœ
œ˜/Jšœ
˜—š
˜J˜—J˜J˜ Jš
œ+™+Jš
œœœ
œœ
˜7Jš
œM™MJ˜J˜ Jš
œ:™:šœ!˜(Jšœœ
œ˜DJšœ
˜—J˜Jšœ
˜J˜J˜——š
œ™J˜J˜šžœœ
œ0˜@Jšœ,œ˜@Jš
œ™Jš
œ™J˜Jš
œ ˜ Jšœ	œ
œ
˜Jšœœ
˜J˜šžœœ˜*˜š
œ˜J˜C——J˜J˜+J˜J˜—šžœœœ˜ JšœMœ˜TJ˜J˜—šžœœœ˜šœœ˜J˜4J˜Jšœœ˜1J˜J˜
—šœ˜Jš
œ(˜(J˜(J˜—J˜J˜—Jšœ
œœ
˜Jš
œ'˜'Jšœœ
˜J˜šžœœ˜Jš
œG™GJš
œ™Jšœœ˜šœ˜Jšœ&˜-Jšœœ
œ˜6Jšœ
˜—J˜J˜J˜
J˜š
œE˜EJš
œE˜E—J˜J˜—J˜	J˜š
˜Jš
œ"™"Jšœœ
˜(Jšœ!œ
˜&Jš
œ˜Jš
œ<™<Jšœ
œœ\˜‡
Jš
œ#™#J˜—
Jšœ1œ
˜6Jšœ)œ
˜.šœ
œ˜Jšœœ
œ˜6J˜Jšœœ˜—šœ˜šœ
œœ˜5Jšœ˜—J˜—š
˜Jš
œ™Jšœœ˜/šœœ
œ
˜˜J˜>—J˜ J˜—J˜$Jš
œ	™	šœœ˜#Jš
œC™CJ˜$šœ
œœ˜J˜Jšœ˜"J˜—J˜J˜Jšœ˜J˜
—šœ
œœ
œ
˜$Jš
œA™AJ˜J˜.J˜(J˜
—šœ˜Jš
œI™IJ˜šœ˜Jšœœœ!œ˜GJšœ˜ —J˜
—š
˜Jšœ
œ
˜—Jšœ
˜—Jšœ
˜—J˜J˜—J˜Jšœ
˜J˜J˜—J˜J˜Jšœ
˜
J˜XJ˜Jšœ
˜
J˜J˜*Jš
œ<™<J˜J˜/Jš
œB™BJš
œ$™$J˜J˜/Jš
œ,™,J˜J˜/Jš
œ=™=J˜J˜*Jš
œR™RJš
œ™J˜J˜*Jš
œH™HJš
œD™DJ˜Jšœ2˜5Jš
œ™™%K™—™'KšœΟrœ™4—™)Kšœ œƒ
™Ÿ
—™+K™—K™J˜—…—Yώ7