MODULE GPTextFiles;

IMPORT
    RTS,
    GPFiles;

TYPE

  FILE* = POINTER TO RECORD (GPFiles.FILE)
          END;



PROCEDURE WriteEOL*(file : FILE);

PROCEDURE WriteChar*(file : FILE;
                     ch   : CHAR);

PROCEDURE readNChars*(    file           : FILE;
                      OUT buffPtr        : ARRAY OF CHAR;
                          requestedChars : INTEGER) : INTEGER;

PROCEDURE getFullPathName*(f : FILE) : GPFiles.FileNameArray;

PROCEDURE readChar*(file : FILE) : CHAR;

PROCEDURE openFile*(IN  fileName : ARRAY OF CHAR) : FILE;

PROCEDURE findLocal*(IN  fileName : ARRAY OF CHAR) : FILE;

PROCEDURE CloseFile*(file : FILE);

PROCEDURE WriteNChars*(    file           : FILE;
                       IN  buffPtr        : ARRAY OF CHAR;
                           requestedChars : INTEGER);

PROCEDURE openFileRO*(IN  fileName : ARRAY OF CHAR) : FILE;

PROCEDURE findOnPath*(IN  pathName : ARRAY OF CHAR;
                      IN  fileName : ARRAY OF CHAR) : FILE;

PROCEDURE createFile*(IN  fileName : ARRAY OF CHAR) : FILE;

PROCEDURE createPath*(IN  pathName : ARRAY OF CHAR) : FILE;


END GPTextFiles.