-- CIFSPrivate.mesa
-- Private Interface to the Cedar Interim File System.
-- Mike Schroeder September 7, 1982 9:39 pm

DIRECTORY
  Ascii: TYPE USING [NUL],
  CIFS: TYPE USING [ErrorCode],
  Rope: TYPE USING [ROPE];


CIFSPrivate: CEDAR DEFINITIONS = {

  -- Error Handling Procedure
  
  HandleErrorProc: TYPE = PROC [code: CIFS.ErrorCode, error: Rope.ROPE,
    reply: CHARACTER ← Ascii.NUL] RETURNS [resume: BOOLEAN];
    
  SetHandleError: PROC [p: HandleErrorProc];
   
}..