home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os2pm / files.def < prev    next >
Text File  |  2020-01-01  |  940b  |  32 lines
  1. DEFINITION MODULE Files;   (* File I/O for Kermit *)
  2.  
  3.    FROM FileSystem IMPORT
  4.       File;
  5.  
  6.    EXPORT QUALIFIED
  7.       Status, FileType, Open, Create, CloseFile, Get, Put, DoWrite;
  8.  
  9.    TYPE
  10.       Status = (Done, Error, EOF);
  11.       FileType = (Input, Output);
  12.  
  13.    PROCEDURE Open (VAR f : File; name : ARRAY OF CHAR) : Status;
  14.    (* opens an existing file for reading, returns status *)
  15.  
  16.    PROCEDURE Create (VAR f : File; name : ARRAY OF CHAR) : Status;
  17.    (* creates a new file for writing, returns status *)
  18.  
  19.    PROCEDURE CloseFile (VAR f : File; Which : FileType) : Status;
  20.    (* closes a file after reading or writing *)
  21.  
  22.    PROCEDURE Get (VAR f : File; VAR ch : CHAR) : Status;
  23.    (* Reads one character from the file, returns status *)
  24.  
  25.    PROCEDURE Put (ch : CHAR);
  26.    (* Writes one character to the file buffer *)
  27.  
  28.    PROCEDURE DoWrite (VAR f : File) : Status;
  29.    (* Writes buffer to disk only if nearly full *)
  30.  
  31. END Files.
  32.