TSQLParser unsupported firebird syntax.
Original Reporter info from Mantis: taazz
-
Reporter name: John Kozikopoulos
Original Reporter info from Mantis: taazz
- Reporter name: John Kozikopoulos
Description:
The following script has syntax unsupport from the sql parser.
Steps to reproduce:
function parserScript(const aFilename:TFilename):TStringList;
var
i: integer;
Parser: TSQLParser;
ResultList: TSQLElementList;
ScriptStream: TMemoryStream;
begin
ScriptStream:=TFileStream.Create(aFilename, fmopenreadwrite or fmshareexclusive);
try
ScriptStream.Position:=0;
try
Result := TStringList.Create;
try
Parser := TSQLParser.Create(ScriptStream);
ResultList := Parser.ParseScript();
for i:=0 to ResultList.Count-1 do begin
Result.Add(ResultList[i].GetAsSQL([sfoDoubleQuoteIdentifier]));
end;
except
result.free;
raise;
end;
finally
Parser.Free;
end;
finally
ScriptStream.Free;
ResultList.Free;
end;
end;
Mantis conversion info:
- Mantis ID: 32625
- OS: all
- OS Build: all
- Platform: all
- Version: 3.0.0
- Fixed in version: 3.3.1
- Fixed in revision: 43139 (#01b94670)
- Target version: 3.2.0