-- AccessControlTransMap.mesa
 -- Last edited by
 -- Kolling on January 4, 1983 11:46 am    


DIRECTORY

      AlpineEnvironment
         USING[Conversation],
      TransactionMap
         USING[EnableAlpineWheel, GetTransID, Handle, IsAlpineWheel, TransID];


AccessControlTransMap: CEDAR DEFINITIONS IMPORTS TransactionMap=

BEGIN

Handle: TYPE = TransactionMap.Handle;
nullHandle: Handle = NIL;


EnableAlpineWheel: PROCEDURE [self: Handle, conversation: AlpineEnvironment.Conversation,
  enable: BOOLEAN] = TRUSTED INLINE
    BEGIN TransactionMap.EnableAlpineWheel[self, conversation, enable]; END;
 
GetTransID: PROCEDURE [self: Handle] RETURNS [TransactionMap.TransID] = TRUSTED INLINE
   BEGIN RETURN[TransactionMap.GetTransID[self]]; END;

IsAlpineWheel: PROCEDURE [self: Handle, conversation: AlpineEnvironment.Conversation]
  RETURNS[enabled: BOOLEAN] = TRUSTED INLINE
    BEGIN RETURN[TransactionMap.IsAlpineWheel[self, conversation]]; END;


END.