-- AlpineUserOwnerBinderPacifierImpl.mesa
-- Last edited by
-- Kolling on April 27, 1983 3:16 pm

DIRECTORY
AlpineEnvironment,
AlpineOwner;

AlpineUserOwnerBinderPacifierImpl: PROGRAM
EXPORTS AlpineOwner =

BEGIN

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


ReadProperties: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID,
volumeGroupID: VolumeGroupID, owner: OwnerName, desiredProperties: OwnerPropertySet
← allOwnerProperties] RETURNS [properties: LIST OF OwnerPropertyValuePair] = BEGIN ERROR; END;

WriteProperties: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID,
volumeGroupID: VolumeGroupID, owner: OwnerName, properties: LIST OF
OwnerPropertyValuePair, enforceTotalQuota: BOOL ← FALSE] = BEGIN ERROR; END;

Create: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID, volumeGroupID:
VolumeGroupID, owner: OwnerName, properties: LIST OF OwnerPropertyValuePair,
enforceTotalQuota: BOOL ← FALSE] RETURNS [spaceLeftOnVolumeGroup: PageCount] = BEGIN ERROR; END;

Destroy: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID, volumeGroupID:
VolumeGroupID, owner: OwnerName] = BEGIN ERROR; END;

ReadNext: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID, volumeGroupID:
VolumeGroupID, previousOwner: OwnerName, desiredProperties: OwnerPropertySet ←
allOwnerProperties] RETURNS [owner: OwnerName, properties: LIST OF
OwnerPropertyValuePair] = BEGIN ERROR; END;

ReadDBProperties: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID,
volumeGroupID: VolumeGroupID] RETURNS [nOwners, nEntriesUsed, nEntries: NAT,
totalQuota, totalSpaceInUse, volumeGroupSize: PageCount] = BEGIN ERROR; END;

ReorganizeDB: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID,
volumeGroupID: VolumeGroupID, nEntries: NAT] = BEGIN ERROR; END;



END.