paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-03 00:38:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@22806 -
This commit is contained in:
mattias 2009-11-26 18:59:49 +00:00
parent e82caa9908
commit a39ba22e7d
1 changed files with 0 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
components/codetools/expreval.pas
View File

@ -109,22 +109,6 @@ type
procedure IncreaseChangeStamp; inline;
end;
{ TExpressionSolver
Checks if expression is always true 1, always false 0, or something }
TExpressionSolver = class
public
//Defines: TStringToStringTree;
//Undefines: TStringToStringTree;
ErrorMsg: string; // last error message
ErrorPos: integer;// last error position
constructor Create;
destructor Destroy; override;
function Solve(const Expr: string; out ExprResult: string): boolean;
function Solve(const Src: string; StartPos, EndPos: integer;
out ExprResult: string): boolean;
end;
implementation
@ -1878,64 +1862,6 @@ begin
end;
{ TExpressionSolver }
constructor TExpressionSolver.Create;
begin
end;
destructor TExpressionSolver.Destroy;
begin
inherited Destroy;
end;
function TExpressionSolver.Solve(const Expr: string; out
ExprResult: string): boolean;
begin
Result:=Solve(Expr,1,length(Expr),ExprResult);
end;
function TExpressionSolver.Solve(const Src: string;
StartPos, EndPos: integer; out ExprResult: string): boolean;
{ '' -> ''
true = nonzero, false = zero
defined(name)
sizeof(type)
unary operators: not, !
binary operators: = <> >= <= > < and or xor shl shr
round brackets ()
}
var
AtomStart: LongInt;
SrcPos: LongInt;
function AtomIs(const s: shortstring): boolean;
var
len: Integer;
i: Integer;
begin
len:=length(s);
if (len<>SrcPos-AtomStart) then exit(false);
if SrcPos>EndPos then exit(false);
for i:=1 to len do
if Src[AtomStart+i-1]<>s[i] then exit(false);
Result:=true;
end;
begin
if StartPos>=EndPos then begin
ExprResult:='';
exit(true);
end;
SrcPos:=StartPos;
AtomStart:=SrcPos;
//ReadNextCAtom(Source,SrcPos,AtomStart);
if AtomIs('!') then begin
end;
end;
initialization
InternalInit;