-- 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.