-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- MFileNoDisk.mesa, HGM, 12-Mar-83 22:05:52

DIRECTORY
  MFile USING [ByteCount, ErrorCode, Handle, ReleaseData, Type],
  Time USING [Packed];

MFileNoDisk: PROGRAM EXPORTS MFile =
  BEGIN OPEN MFile;

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

  Release: PUBLIC PROCEDURE [file: Handle] = BEGIN ERROR; END;
  
  GetProperties: PUBLIC PROCEDURE [file: Handle, name: LONG STRING ¬ NIL]
    RETURNS [
      create, write, read: Time.Packed,
      length: ByteCount, type: Type, 
      deleteProtected, writeProtected, readProtected: BOOLEAN] = BEGIN ERROR; END;

  END.