MODULE GPFiles;

IMPORT
    RTS;

TYPE

  FILE* = POINTER TO ABSTRACT RECORD
          END;

  FileNameArray* = POINTER TO ARRAY OF CHAR;


VAR
  fileSep- : CHAR;
  pathSep- : CHAR;
  optChar- : CHAR;


PROCEDURE CurrentDirectory*() : FileNameArray;

PROCEDURE isOlder*(first  : FILE;
                   second : FILE) : BOOLEAN;

PROCEDURE MakeDirectory*(dirName : ARRAY OF CHAR);

PROCEDURE exists*(fName : ARRAY OF CHAR) : BOOLEAN;


END GPFiles.