<> <> <> <> <> <> <> <> DIRECTORY OldAlpineEnvironment; OldAlpineVolume: DEFINITIONS = BEGIN Conversation: TYPE = OldAlpineEnvironment.Conversation; LockOption: TYPE = OldAlpineEnvironment.LockOption; TransID: TYPE = OldAlpineEnvironment.TransID; nullTransID: TransID = OldAlpineEnvironment.nullTransID; VolumeID: TYPE = OldAlpineEnvironment.VolumeID; VolumeGroupID: TYPE = OldAlpineEnvironment.VolumeGroupID; nullVolumeGroupID: VolumeGroupID = OldAlpineEnvironment.nullVolumeGroupID; <<>> <<>> <> GetNextGroup: PROC [conversation: Conversation, transID: TransID _ nullTransID, previousGroup: VolumeGroupID _ nullVolumeGroupID, lock: LockOption _ [none, wait]] RETURNS [volumeGroupID: VolumeGroupID]; <> <> <> GetGroup: PROC [conversation: Conversation, transID: TransID _ nullTransID, volumeGroupID: VolumeGroupID, lock: LockOption _ [none, wait]] RETURNS [volumes: LIST OF VolumeID]; <> <> GetEnclosingGroup: PROC [conversation: Conversation, transID: TransID _ nullTransID, volumeID: VolumeID, lock: LockOption _ [none, wait]] RETURNS [volumeGroupID: VolumeGroupID]; <> <> <> AccessFailed: ERROR [missingAccess: OldAlpineEnvironment.NeededAccess]; Unknown: ERROR [what: OldAlpineEnvironment.UnknownType]; StaticallyInvalid: ERROR; END. <> <> <<>>