-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- MStreamNoDisk.mesa, HGM, 12-Mar-83 22:18:16

DIRECTORY
  File USING [PageNumber],
  MFile USING [Handle],
  MStream USING [ErrorCode, Handle, ReleaseData],
  Stream USING [defaultInputOptions, InputOptions];

MStreamNoDisk: PROGRAM EXPORTS MStream =
  BEGIN OPEN MStream;

  -- Keep CMFilesA happy.
  
  Error: PUBLIC ERROR [stream: Handle, code: ErrorCode] = CODE;
  
  ReadOnly: PUBLIC PROCEDURE [name: LONG STRING, release: ReleaseData] 
    RETURNS [Handle] = BEGIN ERROR; END;

  GetFile: PUBLIC PROCEDURE [stream: Handle] RETURNS [file: MFile.Handle] = BEGIN ERROR; END;
  
  Create: PUBLIC PROCEDURE [
      file: MFile.Handle, release: ReleaseData,
      options: Stream.InputOptions ← Stream.defaultInputOptions,
      streamBase: File.PageNumber ← 0]
    RETURNS [stream: Handle] = BEGIN ERROR; END;

  END.