From 1bb0a6373f41f10738dfe1fb2a243f3a7b13ed23 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 10 Feb 2005 20:57:02 +0000
Subject: [PATCH]   * implement tinputfile.getfiletime

---
 ide/fpcompil.pas | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas
index 2202b4ad56..cc16b02653 100644
--- a/ide/fpcompil.pas
+++ b/ide/fpcompil.pas
@@ -89,6 +89,7 @@ type
       function fileread(var databuf; maxsize: longint): longint; override;
       function fileeof: boolean; override;
       function fileclose: boolean; override;
+      procedure filegettime; override;
     private
       Editor: PFileEditor;
       S: PStream;
@@ -1253,6 +1254,17 @@ begin
   fileclose:=OK;
 end;
 
+procedure tfpinputfile.filegettime;
+var
+  dt : datetime;
+  hsec,wday : word;
+begin
+  { current time }
+  dos.getdate(dt.year,dt.month,dt.day,wday);
+  dos.gettime(dt.hour,dt.min,dt.sec,hsec);
+  packtime(dt,filetime);
+end;
+
 procedure RegisterFPCompile;
 begin
 {$ifndef NOOBJREG}
@@ -1265,7 +1277,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.34  2005-01-08 12:05:13  florian
+  Revision 1.35  2005-02-10 20:57:02  peter
+    * implement tinputfile.getfiletime
+
+  Revision 1.34  2005/01/08 12:05:13  florian
     * user screen parsing fixed
 
   Revision 1.33  2004/11/22 19:34:58  peter