paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better error reporting

Browse Source
This commit is contained in:
florian 2005-05-06 19:31:36 +00:00
parent 11eefecc8c
commit 4af99ad8ec
1 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
utils/fpdoc/unitdiff.pp
View File

@ -301,29 +301,34 @@ begin
Try
Engine1:=TSkelEngine.Create;
Try
Engine1.SetPackageName('diff'); // do not localize
ParseSource(Engine1, InputFile1, OSTarget, CPUTarget);
Engine1.FList.Sorted:=True;
if (InputFile2<>'') then
begin
Engine2:=TSkelEngine.Create;
Try
Engine2.SetPackageName('diff'); // do not localize
ParseSource(Engine2, InputFile2, OSTarget, CPUTarget);
Engine2.FList.Sorted:=True;
If cmdLineAction=ActionList then
begin
ListIdentifiers(InputFile1,Engine1.FList);
ListIdentifiers(InputFile2,Engine2.FList);
end
else
DiffIdentifiers(Engine1.Flist,Engine2.Flist);
finally
Engine2.Free;
end;
end
else
ListIdentifiers(InputFile1,Engine1.FList);
try
Engine1.SetPackageName('diff'); // do not localize
ParseSource(Engine1, InputFile1, OSTarget, CPUTarget);
Engine1.FList.Sorted:=True;
if (InputFile2<>'') then
begin
Engine2:=TSkelEngine.Create;
Try
Engine2.SetPackageName('diff'); // do not localize
ParseSource(Engine2, InputFile2, OSTarget, CPUTarget);
Engine2.FList.Sorted:=True;
If cmdLineAction=ActionList then
begin
ListIdentifiers(InputFile1,Engine1.FList);
ListIdentifiers(InputFile2,Engine2.FList);
end
else
DiffIdentifiers(Engine1.Flist,Engine2.Flist);
finally
Engine2.Free;
end;
end
else
ListIdentifiers(InputFile1,Engine1.FList);
except
on e: eparsererror do
writeln(format('%s(%d,%d): Error: %s',[e.Filename,e.Row,e.Column,e.Message]));
end;
Finally
Engine1.Free;
end;
@ -336,7 +341,10 @@ end.
{
$Log$
Revision 1.5 2005-02-14 17:13:39 peter
Revision 1.6 2005-05-06 19:31:36 florian
* better error reporting
Revision 1.5 2005/02/14 17:13:39 peter
* truncate log
Revision 1.4 2005/01/01 19:56:29 armin
@ -390,4 +398,4 @@ end.
Revision 1.1 2003/03/17 23:03:20 michael
+ Initial import in CVS
}
}