paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 04:00:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial-EPS: Finishes up inkscape errors by giving up in the end of the file

Browse Source 
git-svn-id: trunk@37184 -
This commit is contained in:
sekelsenmat 2012-05-06 08:00:53 +00:00
parent 1054e895c8
commit 19e4380062
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpvectorial/epsvectorialreader.pas
View File

@ -279,6 +279,7 @@ begin
begin
CommentToken := TCommentToken.Create;
CommentToken.Line := CurLine;
CommentToken.StrValue := '%';
State := ssInComment;
// {$ifdef FPVECTORIALDEBUG}
// WriteLn(Format('Starting Comment at Line %d', [CurLine]));
@ -500,6 +501,10 @@ begin
WriteLn(Format('[TvEPSVectorialReader.RunPostScript] Type: TCommentToken Token: %s', [CurToken.StrValue]));
{$endif}
// ProcessCommentToken(CurToken as TCommentToken, AData);
// Give up in the trailer to avoid errors in the very end of files
if (CurToken.StrValue = '%%Trailer') or (CurToken.StrValue = '%%Trailer'#10) then Exit;
Continue;
end;