home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / filesyst.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  2.5 KB  |  59 lines
  1. (************************************************************************
  2. *                                                                       *
  3. *                  D E F I N I T I O N   M O D U L                      *
  4. *                                                                       *
  5. *    Projekt     :   Modula Einpass Compiler (m1pc)                     *
  6. *    Hauptmodul  :                                                      *
  7. *    Modul       :   FileSystem                                         *
  8. *    Beginn      :   15.02.87                                           *
  9. *                                                                       *
  10. *    Bearbeitung                                                        *
  11. *    Freigegeben     <----                                              *
  12. *                                                                       *
  13. ************************************************************************)
  14.  
  15.  
  16.  
  17. DEFINITION MODULE FileSystem;  (* W. Heiz, 19-Dec-85 / 4-Feb-86 *)
  18.  
  19.   FROM SYSTEM   IMPORT  WORD;
  20.  
  21.   TYPE
  22.    
  23.     Response = (done, notdone);
  24.  
  25.     File     = RECORD
  26.                  refNum,
  27.                  volRef:     INTEGER;
  28.                  firstPos,
  29.                  lastPos,
  30.                  curPos:     LONGINT;
  31.                  res:        Response;
  32.                  eof:        BOOLEAN;
  33.                  dirty:      BOOLEAN;
  34.                  nameString: ARRAY [0..31] OF CHAR;
  35.                  buffer:     ARRAY [0..1024-1] OF CHAR;
  36.                  fdesc:      INTEGER;
  37.                  blocknr:    LONGINT;
  38.                  lim:        INTEGER;
  39.                  index:      INTEGER;
  40.                  length:     LONGINT;
  41.                  errorno:    INTEGER;
  42.                END;
  43.  
  44.   PROCEDURE Lookup    (VAR f: File; VAR filename: ARRAY OF CHAR; new: BOOLEAN); 
  45.   (*  Lookup loescht ein bereits vorhandenes file, wenn new = TRUE ist  *)
  46.  
  47.   PROCEDURE Close     (VAR f: File);
  48.   PROCEDURE Delete    (VAR f: File);
  49.   PROCEDURE Rename    (VAR f: File; VAR filename: ARRAY OF CHAR);
  50.   PROCEDURE SetPos    (VAR f: File; pos: LONGINT);
  51.   PROCEDURE GetPos    (VAR f: File; VAR pos: LONGINT);    (* 0..x-1 *)
  52.   PROCEDURE Length    (VAR f: File; VAR pos: LONGINT);    (* 1..x   *)
  53.   PROCEDURE ReadWord  (VAR f: File; VAR w: WORD);
  54.   PROCEDURE WriteWord (VAR f: File; w: WORD);
  55.   PROCEDURE ReadChar  (VAR f: File; VAR ch: CHAR);
  56.   PROCEDURE WriteChar (VAR f: File; ch: CHAR);
  57.  
  58. END FileSystem.
  59.