home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / FileSup.def < prev    next >
Text File  |  1995-05-11  |  320b  |  15 lines
  1. DEFINITION MODULE FileSup;
  2.  
  3. (* (C) Copyright 1995 Marcel Timmermans. All rights reserved. *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6. IMPORT DosD;
  7.  
  8. PROCEDURE GetFileDate(Name:ARRAY OF CHAR; VAR date:DosD.Date):BOOLEAN;
  9.  
  10. PROCEDURE FileExists(Name:ADDRESS):BOOLEAN;
  11.  
  12. PROCEDURE GetFileLen(Name:ARRAY OF CHAR):LONGINT;
  13.  
  14. END FileSup.mod
  15.