[JVCL-Checkins] SF.net SVN: jvcl:[12408] trunk/jvcl/devtools/PackagesGenerator/ GenerateUtils.pas

[<ou...@us...>]

Revision: 12408
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12408&view=rev
Author:   outchy
Date:     2009-07-24 12:41:48 +0000 (Fri, 24 Jul 2009)

Log Message:
-----------
output a message when a generated file is not needed anymore.

Modified Paths:
--------------
    trunk/jvcl/devtools/PackagesGenerator/GenerateUtils.pas

Modified: trunk/jvcl/devtools/PackagesGenerator/GenerateUtils.pas
===================================================================
--- trunk/jvcl/devtools/PackagesGenerator/GenerateUtils.pas	2009-07-24 12:40:16 UTC (rev 12407)
+++ trunk/jvcl/devtools/PackagesGenerator/GenerateUtils.pas	2009-07-24 12:41:48 UTC (rev 12408)
@@ -1641,7 +1641,10 @@
         CopyFile(PChar(templateName), PChar(OutFileName), False);
         FileSetDate(OutFileName, DateTimeToFileDate(Now)); // adjust file time
       end;
-    end;
+    end
+    else
+    if FileExists(OutFileName) and not containsSomething then
+      SendMsg(SysUtils.Format(#9#9'File %s should be removed', [ExtractFileName(OutFileName)]));
   finally
     tmpLines.Free;
     repeatLines.Free;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.