Compatibility between MySQL and SQLite (escape chars)

In gnoga-database-server-sqlite.adb, the Escape_String function was outputting nonsense.

Below is the corrected version, which is consistent with the version of gnoga-database-server-mysql.adb gnoga-database-server-mysql.adb using an internal function of libmysql/libmariadb.I confess I didn't look to see if it handles more cases than I did and which correspond to the Ada example...

Example before/after correction with the db_sqlite.adb test

V.Put_Line (Connection.Escape_String ("I've been thinking.. ""escaped"" \ is it?"));I''ve been thinking.. "escaped" \ is it? < NoI\'ve been thinking.. \"escaped\" \ is it? < Yes

-- Escape_String --
-- overriding function Escape_String
-- (C : Connection;
-- S : String)
-- return String
-- is
-- pragma Unreferenced (C);
--
-- New_String : String;
-- begin
-- for J in S loop
-- if S (J) = ''' then
-- New_String := New_String & "''";
-- else
-- New_String := New_String & S (J);
-- end if;
-- end loop;
--
-- return New_String;
-- end Escape_String;

overriding function Escape_String
(C : Connection;
S : String)
return String
is
pragma Unreferenced (C);

  New_String : String;
begin
for J in S loop
if S (J) = ''' then
New_String := New_String & "\" & S (J);
elsif S (J) = '"' then
New_String := New_String & "\" & S (J);
elsif S (J) = '\' then
New_String := New_String & "\" & S (J);
else
New_String := New_String & S (J);
end if;
end loop;

  return New_String;
end Escape_String;

Blady-Com / gnoga

Compatibility between MySQL and SQLite (escape chars) #4