paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 13:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: check fpc paths: show duplicate souce files with ppu files

Browse Source 
git-svn-id: trunk@26820 -
This commit is contained in:
mattias 2010-07-24 22:30:53 +00:00
parent 215d412d9d
commit fb3ccb1f50
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -285,18 +285,43 @@ var
Item: PStringToStringTreeItem;
aUnitName: String;
Files: String;
Units: TStringToStringTree;
PPUFile: string;
begin
SrcDuplicates:=UnitSet.GetSourceDuplicates(false);
if SrcDuplicates=nil then exit;
Units:=UnitSet.GetConfigCache(false).Units;
// first list all duplicates with a ppu file (important)
Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
if Cnt=0 then writeln;
inc(Cnt);
aUnitName:=Item^.Name;
Files:=Item^.Value;
writeln('WARNING: duplicate source files: unit=',aUnitName,' files=',Files);
PPUFile:=Units[aUnitName];
if CompareFileExt(PPUFile,'ppu',false)=0 then begin
if Cnt=0 then writeln;
inc(Cnt);
writeln('WARNING: duplicate source file for ppu ',aUnitName,' files=',Files);
end;
Node:=SrcDuplicates.Tree.FindSuccessor(Node);
end;
if Cnt>0 then writeln;
// then list all duplicates without a ppu file (unimportant)
Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
aUnitName:=Item^.Name;
Files:=Item^.Value;
PPUFile:=Units[aUnitName];
if PPUFile='' then begin
if Cnt=0 then writeln;
inc(Cnt);
writeln('HINT: duplicate source files: unit=',aUnitName,' files=',Files);
end;
Node:=SrcDuplicates.Tree.FindSuccessor(Node);
end;
if Cnt>0 then writeln;