home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / DEF / filesys.def < prev    next >
Text File  |  1994-12-22  |  610b  |  20 lines
  1. (* Copyright (c) 1994 xTech Ltd, Russia. All Rights Reserved. *)
  2. <*+ M2ADDTYPES *>
  3. DEFINITION MODULE FileSys; (* Ned 13-Feb-94. *)
  4.  
  5. PROCEDURE Exists(fname: ARRAY OF CHAR): BOOLEAN;
  6. (* Returns TRUE, if file "fname" exists. *)
  7.  
  8. PROCEDURE ModifyTime(fname: ARRAY OF CHAR;
  9.                   VAR time: LONGCARD;
  10.                 VAR exists: BOOLEAN);
  11. (* Returns file modification time *)
  12.  
  13. PROCEDURE Rename(fname,newname: ARRAY OF CHAR; VAR done: BOOLEAN);
  14. (* Renames file "fname" to "newname" *)
  15.  
  16. PROCEDURE Remove(fname: ARRAY OF CHAR; VAR done: BOOLEAN);
  17. (* Removes file "fname" *)
  18.  
  19. END FileSys.
  20.