<> <> <> <> <> <> <<>> DIRECTORY UserPineDefs USING [Transaction], Rope USING [ROPE]; Juniper: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; <<1. Types and Errors>> Transaction: TYPE = REF TransactionObject; TransactionObject: TYPE; <> LFH: TYPE [8]; <> Error: ERROR [ec: JuniperErrorType]; JuniperErrorType: TYPE = MACHINE DEPENDENT {transactionReset, notDone, (LAST[CARDINAL]) }; <> <> <<2. Starting Pine>> StartPine: PROC []; <> InitializePine: PROC []; <> FinalizePine: PROC []; <> <<3. Juniper Files>> LookupFile: PROC [t: Transaction, name: ROPE] RETURNS [success: BOOLEAN, file: LFH]; <> CreateFile: PROC [t: Transaction, name: ROPE] RETURNS [LFH]; <> <<4. Juniper Transactions>> BeginTransaction: PROC [server, user, password: ROPE _ NIL] RETURNS [t: Transaction, welcomeText: ROPE]; <> <<>> CommitTransaction: PROC [t: Transaction]; <> AbortTransaction: PROC [t: Transaction]; <> EndTransaction: PROC [t: Transaction]; <> <> TransactionFromUserPineDefsTrans: UNSAFE PROC [u: UserPineDefs.Transaction] RETURNS [t: Transaction]; UserPineDefsTransFromTransaction: UNSAFE PROC [t: Transaction] RETURNS [u: UserPineDefs.Transaction]; END. <> Created by MBrown on January 27, 1981 1:29 PM Changed by MBrown on 29-Jan-81 12:07:08 <> Changed by Russ Atkinson on 26-May-81 14:48:11 < Rope>> Changed by MBrown on 7-Dec-81 9:46:20 < ROPE.>> Changed by MBrown on August 20, 1982 11:17 am <>