<> <> <<>> DIRECTORY AlpineDirectory, AlpineEnvironment, AlpTransaction USING [Handle], Rope USING [ROPE]; AlpDirectoryExtras: CEDAR DEFINITIONS = BEGIN OPEN AE: AlpineEnvironment; <<>> <> <<>> GetKeep: PROC [fileName: Rope.ROPE, transHandle: AlpTransaction.Handle _ NIL] RETURNS[fullPathName: Rope.ROPE, keep: CARDINAL]; GetDefaultKeep: PROC [volume: Rope.ROPE, owner: AE.OwnerName, transHandle: AlpTransaction.Handle _ NIL] RETURNS[defaultKeep: CARDINAL]; <<>> <<>> END. <<>>