MODULE GPFiles;

TYPE

  FileNameArray* = POINTER TO ARRAY OF CHAR;

  FILE* = POINTER TO ABSTRACT RECORD
          END;


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


PROCEDURE isOlder*(p0 : FILE;
                   p1 : FILE) : BOOLEAN;

PROCEDURE MakeDirectory*(p0 : ARRAY OF CHAR);

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


END GPFiles.