<> <> <> <> <> DIRECTORY AlpineEnvironment; AlpineTransaction: DEFINITIONS = BEGIN Conversation: TYPE = AlpineEnvironment.Conversation; TransID: TYPE = AlpineEnvironment.TransID; FileStore: TYPE = AlpineEnvironment.FileStore; Create: PROC [conversation: Conversation, createLocalWorker: BOOL _ TRUE] RETURNS [transID: TransID]; <> <], and is guaranteed not to raise any of the errors raised by CreateWorker.>> CreateWorker: PROC [conversation: Conversation, transID: TransID, coordinator: FileStore]; <> <> AssertAlpineWheel: PROC [conversation: Conversation, transID: TransID, enable: BOOL _ TRUE]; <> <> RequestedOutcome: TYPE = AlpineEnvironment.CommitOrAbort; Outcome: TYPE = AlpineEnvironment.Outcome; Finish: PROC [conversation: Conversation, transID: TransID, requestedOutcome: RequestedOutcome --{abort, commit}--, continue: BOOL _ FALSE] RETURNS [outcome: Outcome --{abort, commit, unknown}--, newTrans: TransID]; <> <> Unknown: ERROR [what: AlpineEnvironment.UnknownType]; OperationFailed: ERROR [why: AlpineEnvironment.OperationFailure]; END. CHANGE LOG Changed by MBrown on January 21, 1983 10:28 pm < transID to be consistent with AlpineFile.>> Changed by MBrown on March 1, 1983 3:29 pm <>