paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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 Try
Engine1:=TSkelEngine.Create; Engine1:=TSkelEngine.Create;
Try Try
Engine1.SetPackageName('diff'); // do not localize try
ParseSource(Engine1, InputFile1, OSTarget, CPUTarget); Engine1.SetPackageName('diff'); // do not localize
Engine1.FList.Sorted:=True; ParseSource(Engine1, InputFile1, OSTarget, CPUTarget);
if (InputFile2<>'') then Engine1.FList.Sorted:=True;
begin if (InputFile2<>'') then
Engine2:=TSkelEngine.Create; begin
Try Engine2:=TSkelEngine.Create;
Engine2.SetPackageName('diff'); // do not localize Try
ParseSource(Engine2, InputFile2, OSTarget, CPUTarget); Engine2.SetPackageName('diff'); // do not localize
Engine2.FList.Sorted:=True; ParseSource(Engine2, InputFile2, OSTarget, CPUTarget);
If cmdLineAction=ActionList then Engine2.FList.Sorted:=True;
begin If cmdLineAction=ActionList then
ListIdentifiers(InputFile1,Engine1.FList); begin
ListIdentifiers(InputFile2,Engine2.FList); ListIdentifiers(InputFile1,Engine1.FList);
end ListIdentifiers(InputFile2,Engine2.FList);
else end
DiffIdentifiers(Engine1.Flist,Engine2.Flist); else
finally DiffIdentifiers(Engine1.Flist,Engine2.Flist);
Engine2.Free; finally
end; Engine2.Free;
end end;
else end
ListIdentifiers(InputFile1,Engine1.FList); 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 Finally
Engine1.Free; Engine1.Free;
end; end;
@ -336,7 +341,10 @@ end.
{ {
$Log$ $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 * truncate log
Revision 1.4 2005/01/01 19:56:29 armin 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 Revision 1.1 2003/03/17 23:03:20 michael
+ Initial import in CVS + Initial import in CVS
} }