-- OpenFileMapPrivate.mesa
 -- Last edited by
 --  Kolling on November 12, 1982 4:37 pm


DIRECTORY

    AlpineEnvironment
	    USING[AccessRights, Conversation, LockOption, OpenFileID, RecoveryOption,
	       ReferencePattern],
    FileInstance
	    USING[Handle];


OpenFileMapPrivate: CEDAR DEFINITIONS =

BEGIN


Handle: TYPE = REF OpenFileObject;

OpenFileObject: TYPE = MONITORED RECORD[
   openFileID: AlpineEnvironment.OpenFileID,
   conversation: AlpineEnvironment.Conversation,
   fileInsHandle: FileInstance.Handle,
   access: AlpineEnvironment.AccessRights,
   lockOption: AlpineEnvironment.LockOption, -- on GetLockOption the LockMode portion of this is ignored, and picked up instead from the FileInstanceObject.  SetLockOption sets the LockMode in both this and the FileInstanceObject.
   recoveryOption: AlpineEnvironment.RecoveryOption,
   referencePattern: AlpineEnvironment.ReferencePattern,
   next: Handle];
 


END.

					Edit Log

Initial: Kolling: October 28, 1982 11:41 am: private defs file for OpenFileMap.