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

DIRECTORY
AlpineEnvironment,
AlpineVolume;

AlpineUserVolumeBinderPacifierImpl: PROGRAM
EXPORTS AlpineVolume =

BEGIN

Conversation: TYPE = AlpineEnvironment.Conversation;
LockOption: TYPE = AlpineEnvironment.LockOption;
nullTransID: TransID = AlpineEnvironment.nullTransID;
nullVolumeGroupID: VolumeGroupID = AlpineEnvironment.nullVolumeGroupID;
TransID: TYPE = AlpineEnvironment.TransID;
VolumeGroupID: TYPE = AlpineEnvironment.VolumeGroupID;
VolumeID: TYPE = AlpineEnvironment.VolumeID;



GetNextGroup: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID ←
nullTransID, previousGroup: VolumeGroupID ← nullVolumeGroupID, lock: LockOption ←
[none, wait]] RETURNS [volumeGroupID: VolumeGroupID] = BEGIN ERROR; END;

GetGroup: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID ← nullTransID,
volumeGroupID: VolumeGroupID, lock: LockOption ← [none, wait]] RETURNS [volumes:
LIST OF VolumeID] = BEGIN ERROR; END;

GetEnclosingGroup: PUBLIC PROCEDURE[conversation: Conversation, transID: TransID ←
nullTransID, volumeID: VolumeID, lock: LockOption ← [none, wait]] RETURNS
[volumeGroupID: VolumeGroupID] = BEGIN ERROR; END;


END.