paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 13:22:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: check fpc paths: show candidates for missing source files

Browse Source 
git-svn-id: trunk@26825 -
This commit is contained in:
mattias 2010-07-24 23:55:32 +00:00
parent 688eb04f0d
commit aa4b6036a5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/examples/testfpcsrcunitrules.lpr
View File

@ -265,9 +265,12 @@ var
aUnitName: String;
Cnt: Integer;
Filename: String;
SourceCache: TFPCSourceCache;
i: Integer;
begin
UnitToSrc:=UnitSet.GetUnitToSourceTree(false);
ConfigCache:=UnitSet.GetConfigCache(false);
SourceCache:=UnitSet.GetSourceCache(false);
if ConfigCache.Units<>nil then begin
Cnt:=0;
Node:=ConfigCache.Units.Tree.FindLowest;
@ -281,6 +284,11 @@ begin
inc(Cnt);
if Cnt=1 then writeln;
writeln('WARNING: no source found for PPU file: '+Filename);
for i:=0 to SourceCache.Files.Count-1 do begin
if SysUtils.CompareText(ExtractFileNameOnly(SourceCache.Files[i]),aUnitName)=0
then
writeln(' Candidate: ',SourceCache.Files[i]);
end;
end;
end;
Node:=ConfigCache.Units.Tree.FindSuccessor(Node);