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