paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: sql parser: fix failing STARTING WITH test committed in r27854

Browse Source 
git-svn-id: trunk@27867 -
This commit is contained in:
reiniero 2014-06-06 12:45:42 +00:00
parent 02014da511
commit 9ee1ec412f
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/sql/fpsqlparser.pas
View File

@ -55,10 +55,12 @@ Type
Function CreateElement(AElementClass : TSQLElementClass; APArent : TSQLElement) : TSQLElement; virtual;
function CreateLiteral(AParent: TSQLElement): TSQLLiteral;
Function CreateIdentifier(AParent : TSQLElement; Const AName : TSQLStringType) : TSQLIdentifierName;
// Verify that current token is the expect token; raise error if not
procedure Expect(aToken: TSQLToken);
procedure Expect(aTokens: TSQLTokens);
// Expects aToken and eats it
procedure Consume(aToken: TSQLToken);
Procedure Error(Msg : String);
procedure Error(Msg : String);
Procedure Error(Fmt : String; Args : Array of const);
// Expression support
function ParseExprLevel1(AParent: TSQLElement; EO : TExpressionOptions): TSQLExpression;
@ -156,6 +158,7 @@ Type
// Auxiliary stuff
Function CurrentToken : TSQLToken;
Function CurrentTokenString : String;
// Gets next token; also sets FCurrent to that token
Function GetNextToken : TSQLToken;
Function PeekNextToken : TSQLToken;
Function PreviousToken : TSQLToken;
@ -2135,10 +2138,15 @@ begin
if Not (tt in sqlInvertableComparisons) then
Error(SErrUnexpectedToken,[CurrentTokenString]);
GetNextToken;
// Step past expected STARTING WITH
If (tt=tsqlStarting) and (CurrentToken=tsqlWith) then
GetNextToken;
end
else
begin
// Step past expected STARTING WITH
If (tt=tsqlStarting) and (CurrentToken=tsqlWith) then
GetNextToken;
if (CurrentToken=tsqlNot) then
begin
GetNextToken;
@ -2146,7 +2154,7 @@ begin
UnexpectedToken;
I:=true;
end;
end;
bw:=False;
doin:=false;
@ -2158,7 +2166,7 @@ begin
tsqlEq : O:=boEq;
tsqlNE : O:=boNE;
tsqlLike : O:=boLike;
tsqlIn : doin:=true;
tsqlIn : doIn:=true;
tsqlis : O:=boIs;
tsqlContaining : O:=boContaining;
tsqlStarting : O:=boStarting;
@ -3833,7 +3841,7 @@ end;
function TSQLParser.GetNextToken: TSQLToken;
begin
FPrevious:=FCurrent;
If (FPeekToken<>tsqlunknown) then
If (FPeekToken<>tsqlUnknown) then
begin
FCurrent:=FPeekToken;
FCurrentString:=FPeekTokenString;