-- 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. ʘJšuÏccœÏk œ0Ðbl!œžœžœžœßžÏnœžœŸžœžœžœžœžœ œžœnžœ/žœžœžœžœžœ œžœnžœžœ/žœžœžœ'žœžœžœ œžœdžœžœžœ œžœ§žœ žœžœžœžœžœ œžœPžœ#žœ@žœžœžœ   œžœZžœžœžœžœž œ˜œ—…—  5