Zeoslib Portal

Code: Select all

{**
  Checks whether escape syntax is used.

  @return a True if escape syntax is used.
}
function TZPostgreSQLQuoteState.CheckEscapeSyntax(Stream: TStream): Boolean;
var
  ReadChar: Char;
begin
  Result := not FStandardConformingStrings;
  if FStandardConformingStrings then
  begin
    Stream.Seek(-SizeOf(Char), soFromCurrent);
    if Stream.Position >= SizeOf(Char) then
    begin
      Stream.Seek(-SizeOf(Char), soFromCurrent);
      Stream.Read(ReadChar, SizeOf(Char));
      Result := UpperCase(ReadChar) = 'E';
      Stream.Seek(SizeOf(Char), soFromCurrent);
    end;
  end;
end;

{**
  Return a quoted string token from a reader. This method
  will collect characters until it sees a match to the
  character that the tokenizer used to switch to this state.

  @return a quoted string token from a reader
}
function TZPostgreSQLQuoteState.NextToken(Stream: TStream;
  FirstChar: Char; Tokenizer: TZTokenizer): TZToken;
const BackSlash = Char('\');
var
  ReadChar: Char;
  LastChar: Char;
  QuoteCount: Integer;
  EscapeSyntax: Boolean;
begin
  Result.Value := FirstChar;
  QuoteCount := 1;
  EscapeSyntax := False;
  if FirstChar = '"' then
  begin
    Result.TokenType := ttWord;
  end
  else
  begin
    Result.TokenType := ttQuoted;
    EscapeSyntax := CheckEscapeSyntax(Stream);
  end;

  LastChar := #0;

  while Stream.Read(ReadChar, SizeOf(Char)) > 0 do
  begin
    if ReadChar = FirstChar then
      Inc(QuoteCount);

    if (LastChar = FirstChar) and (ReadChar <> FirstChar) then
    begin
      if QuoteCount mod 2 = 0 then
      begin
        Stream.Seek(-SizeOf(Char), soFromCurrent);
        Break;
      end;
    end;
    Result.Value := Result.Value + ReadChar;
    if (LastChar = BackSlash) and EscapeSyntax then
      LastChar := #0
    else if (LastChar = FirstChar) and (ReadChar = FirstChar) then
      LastChar := #0
    else LastChar := ReadChar;
  end;
end;

Code: Select all

select $$Test string$$

Code: Select all

select $Nice_name_for_tag$Test string 2$Nice_name_for_tag$

Code: Select all

select *,null as typ_upustu_tmp, null as czas_trwania_tmp,null as thumb  from (SELECT * from data.klienci
)q WHERE (imie ~* 'ed') AND (usr_status >= 0)

Code: Select all

2012-08-18 13:52:01 CEST [127.0.0.1(49731)]/prosalon prosalon_apo STATEMENT:  select *,null as typ_upustu_tmp, null as czas_trwania_tmp,null as thumb  from (SELECT * from data.klienci
	)q WHERE (imie ~ 'ed') AND (usr_status >= 0)