From bc861b97679e0c226011c6abf97f01f6f405a170 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 29 Jul 2010 10:03:17 +0000
Subject: [PATCH] codetools: check if ppu path exists

git-svn-id: trunk@26898 -
---
 .../examples/testfpcsrcunitrules.lpr          | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/components/codetools/examples/testfpcsrcunitrules.lpr b/components/codetools/examples/testfpcsrcunitrules.lpr
index 2acea84e4d..080207439e 100644
--- a/components/codetools/examples/testfpcsrcunitrules.lpr
+++ b/components/codetools/examples/testfpcsrcunitrules.lpr
@@ -48,6 +48,7 @@ type
     procedure WriteHelp; virtual;
     procedure Error(Msg: string; DoWriteHelp: Boolean);
     procedure WriteCompilerInfo(ConfigCache: TFPCTargetConfigCache);
+    procedure WriteNonExistingPPUPaths(ConfigCache: TFPCTargetConfigCache);
     procedure WriteDuplicatesInPPUPath(ConfigCache: TFPCTargetConfigCache);
     procedure WriteMissingPPUSources(UnitSet: TFPCUnitSetCache);
     procedure WriteDuplicateSources(UnitSet: TFPCUnitSetCache);
@@ -126,6 +127,7 @@ begin
   ConfigCache:=UnitSet.GetConfigCache(false);
   writeln('FPCSrcDir=',UnitSet.FPCSourceDirectory);
   WriteCompilerInfo(ConfigCache);
+  WriteNonExistingPPUPaths(ConfigCache);
   WriteDuplicatesInPPUPath(ConfigCache);
   WriteMissingPPUSources(UnitSet);
   WriteDuplicateSources(UnitSet);
@@ -207,6 +209,23 @@ begin
     writeln('Number of PPU search paths=',ConfigCache.UnitPaths.Count);
 end;
 
+procedure TTestFPCSourceUnitRules.WriteNonExistingPPUPaths(
+  ConfigCache: TFPCTargetConfigCache);
+var
+  SearchPaths: TStrings;
+  i: Integer;
+  Dir: String;
+begin
+  SearchPaths:=ConfigCache.UnitPaths;
+  if SearchPaths=nil then exit;
+  for i:=0 to SearchPaths.Count-1 do begin
+    Dir:=CleanAndExpandDirectory(SearchPaths[i]);
+    if not DirPathExists(Dir) then begin
+      writeln('WARNING: ppu search path does not exist: ',SearchPaths[i]);
+    end;
+  end;
+end;
+
 procedure TTestFPCSourceUnitRules.WriteDuplicatesInPPUPath(
   ConfigCache: TFPCTargetConfigCache);
 var