paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +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

37
components/fpvectorial/epsvectorialreader.pas
View File

@ -79,7 +79,7 @@ type
end; end;
TETType = (ettNamedElement, ettOperand, ettOperator, ettDictionary, TETType = (ettNamedElement, ettOperand, ettOperator, ettDictionary,
ettVirtualMemorySnapshot, ettLiteralString); ettVirtualMemorySnapshot, ettLiteralString, ettRawData);
{ TExpressionToken } { TExpressionToken }
@ -101,7 +101,8 @@ type
end; end;
TPostScriptScannerState = (ssSearchingToken, ssInComment, ssInDefinition, TPostScriptScannerState = (ssSearchingToken, ssInComment, ssInDefinition,
ssInGroup, ssInExpressionElement, ssInArray, ssInDictionary); ssInGroup, ssInExpressionElement, ssInArray, ssInDictionary,
ssReadingRawDataStart, ssReadingRawData);
{ TGraphicState } { TGraphicState }
@ -409,6 +410,7 @@ var
lCommentStateReturn: TPostScriptScannerState = ssSearchingToken; lCommentStateReturn: TPostScriptScannerState = ssSearchingToken;
lIsEndOfLine: Boolean; lIsEndOfLine: Boolean;
lIsExpressionFinished: Boolean; lIsExpressionFinished: Boolean;
lTmpStr: string;
begin begin
// Check if the EPS file starts with a TIFF preview // Check if the EPS file starts with a TIFF preview
// See http://www.graphicsgroups.com/12-corel/f851f798a0e1ca7a.htm // See http://www.graphicsgroups.com/12-corel/f851f798a0e1ca7a.htm
@ -656,7 +658,10 @@ begin
else else
begin begin
Tokens.Add(ExpressionToken); Tokens.Add(ExpressionToken);
State := ssSearchingToken; if ExpressionToken.StrValue = 'image' then
State := ssReadingRawDataStart
else
State := ssSearchingToken;
end; end;
if (CurChar = '{') then AStream.Seek(-1, soFromCurrent) if (CurChar = '{') then AStream.Seek(-1, soFromCurrent)
else if (CurChar = '[') then AStream.Seek(-1, soFromCurrent); else if (CurChar = '[') then AStream.Seek(-1, soFromCurrent);
@ -664,7 +669,33 @@ begin
else else
ExpressionToken.StrValue := ExpressionToken.StrValue + CurChar; ExpressionToken.StrValue := ExpressionToken.StrValue + CurChar;
end; 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; // case
end; // while end; // while