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

* got fed up with exceptions on file not found. Fileresolver now raises a

Browse Source 
EFileNotFound error, and makeskel catches and exists gracefully
This commit is contained in:
marco 2004-05-01 20:13:40 +00:00
parent d1070b6c6b
commit 27a71635fd
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
utils/fpdoc/makeskel.pp
View File

@ -20,7 +20,7 @@ program MakeSkel;
uses
SysUtils, Classes, Gettext,
dGlobals, PasTree, PParser;
dGlobals, PasTree, PParser,PScanner;
resourcestring
STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
@ -260,12 +260,21 @@ begin
begin
Engine := TSkelEngine.Create;
try
Engine.SetPackageName(PackageName);
Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget);
WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
try
Engine.SetPackageName(PackageName);
Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget);
WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
except
on e:EFileNotFoundError do
begin
Writeln(StdErr,' file ', e.message, ' not found');
close(f);
Halt(1);
end;
end;
finally
Engine.Free;
end;
Engine.Free;
end;
end;
WriteLn(f, '</package>');
@ -282,7 +291,11 @@ end.
{
$Log$
Revision 1.5 2003-11-28 12:51:37 sg
Revision 1.6 2004-05-01 20:13:40 marco
* got fed up with exceptions on file not found. Fileresolver now raises a
EFileNotFound error, and makeskel catches and exists gracefully
Revision 1.5 2003/11/28 12:51:37 sg
* Added support for source references
Revision 1.4 2003/09/02 13:26:47 mattias