libs/cpascal/GPFiles.cp

   1 FOREIGN MODULE GPFiles;
   2   TYPE
   3         FILE* = POINTER TO ABSTRACT RECORD END;
   4         FileNameArray* = POINTER TO ARRAY OF CHAR;
   5
   6   VAR
   7         pathSep- : CHAR; (* path separator on this platform *)
   8         fileSep- : CHAR; (* filename separator character    *)
   9         optChar- : CHAR; (* option introduction character   *)
  10
  11 PROCEDURE isOlder*(first : FILE; second : FILE) : BOOLEAN;
  12
  13 PROCEDURE MakeDirectory*(dirName : ARRAY OF CHAR);
  14
  15 PROCEDURE CurrentDirectory*(): FileNameArray;
  16
  17 PROCEDURE exists*(fName : ARRAY OF CHAR) : BOOLEAN;
  18
  19 END GPFiles.