paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial-eps: Starts raw data reading support

Browse Source 
git-svn-id: trunk@42057 -
This commit is contained in:
sekelsenmat 2013-07-11 07:32:45 +00:00
parent 0ea1dbdc97
commit 08edea2463
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/fpvectorial/epsvectorialreader.pas
View File

@ -79,7 +79,7 @@ type
end;
TETType = (ettNamedElement, ettOperand, ettOperator, ettDictionary,
ettVirtualMemorySnapshot, ettLiteralString);
ettVirtualMemorySnapshot, ettLiteralString, ettRawData);
{ TExpressionToken }
@ -101,7 +101,8 @@ type
end;
TPostScriptScannerState = (ssSearchingToken, ssInComment, ssInDefinition,
ssInGroup, ssInExpressionElement, ssInArray, ssInDictionary);
ssInGroup, ssInExpressionElement, ssInArray, ssInDictionary,
ssReadingRawDataStart, ssReadingRawData);
{ TGraphicState }
@ -409,6 +410,7 @@ var
lCommentStateReturn: TPostScriptScannerState = ssSearchingToken;
lIsEndOfLine: Boolean;
lIsExpressionFinished: Boolean;
lTmpStr: string;
begin
// Check if the EPS file starts with a TIFF preview
// See http://www.graphicsgroups.com/12-corel/f851f798a0e1ca7a.htm
@ -656,6 +658,9 @@ begin
else
begin
Tokens.Add(ExpressionToken);
if ExpressionToken.StrValue = 'image' then
State := ssReadingRawDataStart
else
State := ssSearchingToken;
end;
if (CurChar = '{') then AStream.Seek(-1, soFromCurrent)
@ -664,7 +669,33 @@ begin
else
ExpressionToken.StrValue := ExpressionToken.StrValue + CurChar;
end;
// Raw data reading
ssReadingRawDataStart:
begin
if IsPostScriptSpace(Byte(CurChar)) then Continue;
ExpressionToken := TExpressionToken.Create;
ExpressionToken.Line := CurLine;
ExpressionToken.StrValue := CurChar;
ExpressionToken.ETType := ettRawData;
State := ssReadingRawData;
end;
// ASCII85 and Flate (compressed) go on until this appears: ~>
// ToDo: Check if this is valid for all raw data
ssReadingRawData:
begin
if IsPostScriptSpace(Byte(CurChar)) then Continue;
ExpressionToken.StrValue := ExpressionToken.StrValue + CurChar;
// Check if we are in the end of the raw data
lTmpStr := Copy(ExpressionToken.StrValue, Length(ExpressionToken.StrValue)-1, 2);
if lTmpStr = '~>' then
begin
Tokens.Add(ExpressionToken);
State := ssSearchingToken;
end;
end;
end; // case
end; // while