Skip to content

extended $IF support #206

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
RomanYankovsky merged 2 commits into from
Aug 3, 2017
Merged

extended $IF support #206

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
1e619c7
extended $IF support
gabr42 Jul 26, 2017
1003149
$IF RTLVersion
gabr42 Jul 26, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
58 changes: 58 additions & 0 deletions Source/SimpleParser/SimpleParser.Lexer.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -279,6 +279,7 @@ TmwBasePasLex = class(TObject)
procedure DoProcTable(AChar: Char);
function IsIdentifiers(AChar: Char): Boolean; inline;
function HashValue(AChar: Char): Integer;
function EvaluateComparison(AValue1: Extended; const AOper: String; AValue2: Extended): Boolean;
function EvaluateConditionalExpression(const AParams: String): Boolean;
procedure IncludeFile;
function GetIncludeFileNameFromToken(const IncludeToken: string): string;
Expand Down Expand Up @@ -1615,15 +1616,72 @@ procedure TmwBasePasLex.BraceOpenProc;
end;
end;

function TmwBasePasLex.EvaluateComparison(AValue1: Extended; const AOper: String; AValue2: Extended): Boolean;
begin
if AOper = '=' then
Result := AValue1 = AValue2
else if AOper = '<>' then
Result := AValue1 <> AValue2
else if AOper = '<' then
Result := AValue1 < AValue2
else if AOper = '<=' then
Result := AValue1 <= AValue2
else if AOper = '>' then
Result := AValue1 > AValue2
else if AOper = '>=' then
Result := AValue1 >= AValue2
else
Result := False;
end;

function TmwBasePasLex.EvaluateConditionalExpression(const AParams: String): Boolean;
var
LParams: String;
LDefine: String;
LEvaluation: TmwPasLexExpressionEvaluation;
LIsComVer: Boolean;
LIsRtlVer: Boolean;
LOper: string;
LValue: Integer;
p: Integer;
begin
{ TODO : Expand support for <=> evaluations (complicated to do). Expand support for NESTED expressions }
LEvaluation := leeNone;
LParams := TrimLeft(AParams);
LIsComVer := Pos('COMPILERVERSION', LParams) = 1;
LIsRtlVer := Pos('RTLVERSION', LParams) = 1;
if LIsComVer or LIsRtlVer then //simple parser which covers most frequent use cases
begin
Result := False;
if LIsComVer then
Delete(LParams, 1, Length('COMPILERVERSION'));
if LIsRtlVer then
Delete(LParams, 1, Length('RTLVERSION'));
while (LParams <> '') and (LParams[1] = ' ') do
Delete(LParams, 1, 1);
p := Pos(' ', LParams);
if p > 0 then
begin
LOper := Copy(LParams, 1, p-1);
Delete(LParams, 1, p);
while (LParams <> '') and (LParams[1] = ' ') do
Delete(LParams, 1, 1);
p := Pos(' ', LParams);
if p = 0 then
p := Length(LParams) + 1;
if TryStrToInt(Copy(LParams, 1, p-1), LValue) then
begin
Delete(LParams, 1, p);
while (LParams <> '') and (LParams[1] = ' ') do
Delete(LParams, 1, 1);
if LParams = '' then
if LIsComVer then
Result := EvaluateComparison(CompilerVersion, LOper, LValue)
else if LIsRtlVer then
Result := EvaluateComparison(RTLVersion, LOper, LValue);
end;
end;
end else
if (Pos('DEFINED(', LParams) = 1) or (Pos('NOT DEFINED(', LParams) = 1) then
begin
Result := True; // Optimistic
Expand Down