<> <> <> <> <> <> <> <> DIRECTORY Camelot, Rope, YggEnvironment, YggInternal, YggLog; YggLogRep: DEFINITIONS = BEGIN RecordID: TYPE = YggLog.RecordID; RecordType: TYPE = YggLog.RecordType; PageVersion: TYPE = [0..1]; Header: TYPE = MACHINE DEPENDENT RECORD [ valid: BOOL, version: PageVersion, hasContinuation: BOOL, isContinuation: BOOL, unused1: [0..7777B] _ 0, unused2: CARD16 _ 0, nWords: INT < in machine dependent words>> ]; <> RecordTypeHeader: TYPE = MACHINE DEPENDENT RECORD [ pad: [0..1] _ 0, type: RecordType ]; NoopRecord: TYPE = MACHINE DEPENDENT RECORD [ pad: [0..1] _ 0, type: RecordType _ noop, fillPage: ARRAY [0..fillCount) OF WORD _ ALL[0] ]; fillCount: CARDINAL = 512-SIZE[Header]-SIZE[RecordTypeHeader]; CheckpointCompleteRecord: TYPE = MACHINE DEPENDENT RECORD [ pad: [0..1] _ 0, type: RecordType _ checkpointComplete, thisRecordID: RecordID _ TRASH, startAnalysisRecordID: RecordID, keepRecordID: RecordID, checkPointEphocNumber: CARD32 _ 0, blockArrayOfWords: ARRAY[0..32) OF CARD32 _ ALL[0] ]; TransactionHeader: TYPE = MACHINE DEPENDENT RECORD [ pad: [0..1] _ 0, type: RecordType, transID: YggEnvironment.TransID, optr: Camelot.optrT ]; RestartRecord: TYPE = MACHINE DEPENDENT RECORD [ wordNumberForCheckpointCompleteRecord: YggEnvironment.WordNumber, recordIDForCheckpointCompleteRecord: RecordID ]; <> END. CHANGE LOG Created by MBrown on May 24, 1982 10:16 pm <> <> <> <>