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.