paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 21:40:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: expreval: readoperand

Browse Source 
git-svn-id: trunk@22778 -
This commit is contained in:
mattias 2009-11-25 23:12:34 +00:00
parent f0afca08f5
commit 5f2cf12f1f
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/expreval.pas
View File

@ -972,6 +972,13 @@ var
ExprEnd: Pointer;
p, AtomStart: PChar;
function GetAtom: string;
begin
Setlength(Result,p-AtomStart);
if Result<>'' then
System.Move(AtomStart^,Result[1],length(Result));
end;
procedure ReadNextAtom;
begin
// skip space
@ -1005,6 +1012,7 @@ var
else
inc(p);
end;
DebugLn(['ReadNextAtom ',GetAtom]);
end;
procedure Error(NewErrorPos: PChar; const NewErrorMsg: string);
@ -1014,6 +1022,7 @@ var
else
FErrorPos:=0;
ErrorMsg:=NewErrorMsg;
DebugLn(['Error ',ErrorMsg,' at ',ErrorPosition]);
end;
procedure ExpressionMissing(NewErrorPos: PChar);
@ -1048,16 +1057,19 @@ var
NeedBracketClose: Boolean;
begin
Result:=false;
DebugLn(['ParseDefinedParams AAA1 ',GetAtom]);
ReadNextAtom;
if AtomStart>=ExprEnd then begin
IdentifierMissing(AtomStart);
exit;
end;
NeedBracketClose:=false;
if p^='(' then begin
DebugLn(['ParseDefinedParams AAA2 ',GetAtom]);
if AtomStart^='(' then begin
// defined(
NeedBracketClose:=true;
ReadNextAtom;
DebugLn(['ParseDefinedParams AAA3 ',GetAtom]);
// skip space
if AtomStart>=ExprEnd then begin
IdentifierMissing(AtomStart);
@ -1099,8 +1111,7 @@ var
i: LongInt;
begin
Result:=false;
ReadNextAtom;
if AtomStart>=ExprEnd then exit;
DebugLn(['ReadOperand ',GetAtom]);
case UpChars[AtomStart^] of
'N':
if CompareIdentifiers(AtomStart,'NOT')=0 then begin
@ -1165,7 +1176,10 @@ begin
Operand:=CleanOperandValue;
ReadOperand(Operand);
ReadNextAtom;
// set result
SetLength(Result,Operand.Len);
if Result<>'' then
System.Move(Operand.Value^,Result[1],length(Result));
FreeOperandValue(Operand);
end;