-- AlpDebug.mesa
-- Last edited by
-- Kolling on April 22, 1983 3:15 pm


DIRECTORY

AlpineEnvironment
USING[allOwnerProperties, LockFailure, NeededAccess, OperationFailure, OwnerName,
OwnerPropertySet, OwnerPropertyValuePair, PageCount, UniversalFile,
UnknownType, VolumeGroupID],
AlpTransaction
USING[Handle, Object];


AlpDebug: DEFINITIONS =

BEGIN

allOwnerProperties: OwnerPropertySet = AlpineEnvironment.allOwnerProperties;
OwnerName: TYPE = AlpineEnvironment.OwnerName;
OwnerPropertySet: TYPE = AlpineEnvironment.OwnerPropertySet;
OwnerPropertyValuePair: TYPE = AlpineEnvironment.OwnerPropertyValuePair;
PageCount: TYPE = AlpineEnvironment.PageCount;
UniversalFile: TYPE = AlpineEnvironment.UniversalFile;
VolumeGroupID: TYPE = AlpineEnvironment.VolumeGroupID;

AccessFailed: ERROR [missingAccess: AlpineEnvironment.NeededAccess];
LockFailed: ERROR [why: AlpineEnvironment.LockFailure];
OperationFailed: ERROR [why: AlpineEnvironment.OperationFailure];
StaticallyInvalid: ERROR;
Unknown: ERROR [what: AlpineEnvironment.UnknownType];
PossiblyDamaged: SIGNAL;


Handle: TYPE = AlpTransaction.Handle;

Object: TYPE = AlpTransaction.Object;

-- in addition to the errors documented for the corresponding Alpine procedures, all of the procedures defined in this interface can also error RPC.CallFailed[RPC.CallFailure].

ReadOwnerFileHeader: PROCEDURE[handle: Handle, volumeGroupID: VolumeGroupID]
RETURNS[version: NAT, recordedVolGroupID: VolumeGroupID, totalQuota, quotaLeft:
PageCount, numberOfOwners, numberOfOwnerSlotsInUse, maxNumberOfOwnersAllowed: NAT];

ReadNextOwnerRecord: PROCEDURE[handle: Handle, volumeGroupID: VolumeGroupID,
contRecNum: INT ← 0, desiredProperties: OwnerPropertySet ← allOwnerProperties]
RETURNS[entryEmpty, entryValid: BOOLEAN, owner: OwnerName, properties: LIST OF
OwnerPropertyValuePair, nextContRecNum: INT];

ChangeSpaceForOwner: PROCEDURE [handle: Handle, volumeGroupID: VolumeGroupID,
ownerName: OwnerName, nPages: PageCount];

ReadDBFileID: PROCEDURE[handle: Handle, volumeGroupID: VolumeGroupID]
RETURNS[dBID: UniversalFile];

ReportAccessCacheStats: PROCEDURE[handle: Handle] RETURNS [nCacheEntries: NAT,
statsCacheHit, statsGrapevineAuthorized, statsGrapevineNotAuthorized, statsRegServersDown,
statsIndivGrapeNotAuthorized: INT];

ReportAccessVolatileStats: PROCEDURE[handle: Handle] RETURNS [nRegs, nInits,
nUnRegs, nReorganizes, nEnumAlls, nAllocReqsWin, nAllocReqsLose, nDeallocReqs,
nRemoveOwner, nEnumFindWin, nEnumFindLose, nSetEnums, nActions, nPhaseOnes,
nPhaseTwos, nAborts: INT];

CrashSystem: PROCEDURE [handle: Handle];

END.

Edit Log

Initial: Kolling: March 8, 1983 1:10 pm: implementors interface.