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

* fcl-db: cosmetic

Browse Source 
git-svn-id: trunk@27924 -
This commit is contained in:
reiniero 2014-06-10 10:34:56 +00:00
parent 81548f0e9c
commit 95a1a2552c
1 changed files with 4 additions and 5 deletions

9
packages/fcl-db/src/sql/fpsqlscanner.pp
View File

@ -160,7 +160,6 @@ Type
soReturnWhiteSpace,
soBackslashEscapes,
soNoDoubleDelimIsChar,
soNoSetTerm {if set, do not allow changing terminator with SET TERM commands as used in Firebird},
soDoubleQuoteStringLiteral, // Default: single quote is string literal
soSingleQuoteIdentifier, // Default: double quote is identifier. Ignored if soDoubleQuoteStringLiteral is not specified
soBackQuoteIdentifier // Default: double quote is identifier
@ -186,9 +185,9 @@ Type
function CommentDiv: TSQLToken;
// Used to parse out an identifier/name and store it in the list of identifiers
function DoIdentifier : TSQLToken;
// Used to parse out a literal containing symbols
// Used to parse out a string containing symbols
// Also looks for tsqlStatementTerminator
function DoSymbolLiteral : TSQLToken;
function DoSymbolString : TSQLToken;
function DoMultiLineComment: TSQLToken;
function DoNumericLiteral: TSQLToken;
function DoSingleLineComment: TSQLToken;
@ -671,7 +670,7 @@ begin
end;}
end;
function TSQLScanner.DoSymbolLiteral : TSQLToken;
function TSQLScanner.DoSymbolString : TSQLToken;
Var
Len : Integer;
@ -887,7 +886,7 @@ begin
Result:=DoIdentifier;
else
// Symbol of some sort
Result:=DoSymbolLiteral;
Result:=DoSymbolString;
//Error(SErrUnknownToken,[TokenStr[0]]);
end; // Case
Until (Not (Result in [tsqlComment,tsqlWhitespace])) or