paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 12:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better error message in case of parser error

Browse Source 
git-svn-id: trunk@7272 -
This commit is contained in:
florian 2007-05-05 14:51:26 +00:00
parent e074f9383c
commit 0e429065e8
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
utils/fpdoc/makeskel.pp
View File

@ -59,7 +59,7 @@ var
DisableProtected,
DisablePrivate,
DisableFunctionResults: Boolean;
EmitClassSeparator: Boolean;
PackageName, OutputName: String;
f: Text;
@ -87,14 +87,14 @@ function TSkelEngine.CreateElement(AClass: TPTreeElement; const AName: String;
If (PT<>Nil) and ((PT is TPasProcedure) or (PT is TPasProcedure)) then
PP:=PT.Parent
else
PP:=Nil;
PP:=Nil;
If (PP<>Nil) and (PP is TPasClassType) then
begin
ParentVisible:=((not DisablePrivate or (PT.Visibility<>visPrivate)) and
(not DisableProtected or (PT.Visibility<>visProtected)));
end;
end;
end;
end;
end;
Result:=Assigned(AParent) and (Length(AName) > 0) and
(ParentVisible and (not DisableArguments or (APasElement.ClassType <> TPasArgument))) and
(ParentVisible and (not DisableFunctionResults or (APasElement.ClassType <> TPasResultElement))) and
@ -380,13 +380,20 @@ begin
WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
WriteLn(f, '');
except
on e:EFileNotFoundError do
on e:EFileNotFoundError do
begin
Writeln(StdErr,' file ', e.message, ' not found');
close(f);
Halt(1);
end;
end;
on e:EParserError do
begin
Writeln(StdErr,'', e.filename,'(',e.row,',',e.column,') Fatal: ',e.message);
close(f);
Halt(1);
end;
end;
finally
Engine.Free;
end;