libs/cpascal/GPTextFiles.cp

   1 FOREIGN MODULE GPTextFiles;
   2
   3 IMPORT GPFiles;
   4
   5 TYPE
   6   FILE* = POINTER TO RECORD (GPFiles.FILE) END;
   7
   8
   9 PROCEDURE findLocal*(IN fileName : ARRAY OF CHAR) : FILE;
  10 (** Find file with given name in current directory *)
  11
  12 PROCEDURE findOnPath*(IN pathName : ARRAY OF CHAR;
  13                       IN fileName : ARRAY OF CHAR) : FILE;
  14 (** Find file with given name on path given as property *)
  15
  16 PROCEDURE getFullPathName*(f : FILE) : GPFiles.FileNameArray;
  17 (** Return full name of file *)
  18
  19 PROCEDURE openFile*(IN fileName : ARRAY OF CHAR) : FILE;
  20 (** Open file with given absolute name *)
  21
  22 PROCEDURE openFileRO*(IN fileName : ARRAY OF CHAR) : FILE;
  23 (** Open file READ-ONLY with given absolute name *)
  24
  25 PROCEDURE CloseFile*(file : FILE);
  26
  27 PROCEDURE createFile*(IN fileName : ARRAY OF CHAR) : FILE;
  28 (** Create file and open for reading *)
  29
  30 PROCEDURE createPath*(IN pathName : ARRAY OF CHAR) : FILE;
  31 (** Create file and any necessary directories and opens file for reading *)
  32
  33 PROCEDURE readChar*(file : FILE) : CHAR;
  34
  35 PROCEDURE readNChars*(file : FILE; OUT buffPtr : ARRAY OF CHAR;
  36                      requestedChars : INTEGER) : INTEGER;
  37 (** Return value is number actually read *)
  38
  39 PROCEDURE WriteEOL*(file : FILE);
  40
  41 PROCEDURE WriteChar*(file : FILE; ch : CHAR);
  42
  43 PROCEDURE WriteNChars*(file : FILE; IN buffPtr : ARRAY OF CHAR;
  44                       requestedChars : INTEGER);
  45
  46 END GPTextFiles.