1 ------------------------------------------------------------------------------
4 -- Copyright (C) 2006-2007 --
5 -- Pascal Obry - Olivier Ramonat --
7 -- This library is free software; you can redistribute it and/or modify --
8 -- it under the terms of the GNU General Public License as published by --
9 -- the Free Software Foundation; either version 2 of the License, or (at --
10 -- your option) any later version. --
12 -- This library is distributed in the hope that it will be useful, but --
13 -- WITHOUT ANY WARRANTY; without even the implied warranty of --
14 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
15 -- General Public License for more details. --
17 -- You should have received a copy of the GNU General Public License --
18 -- along with this library; if not, write to the Free Software Foundation, --
19 -- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. --
20 ------------------------------------------------------------------------------
22 package body DB
.Tools
is
28 function F
(F
: in Float) return String is
30 return Float'Image (F
);
37 function I
(Int
: in Integer) return String is
39 return Integer'Image (Int
);
46 function Q
(Str
: in String) return String is
47 S
: String (1 .. 2 + Str
'Length * 2);
48 J
: Positive := S
'First;
56 for K
in Str
'Range loop
71 function Q
(Str
: in Unbounded_String
) return String is
73 return Q
(To_String
(Str
));
76 function Q
(Bool
: in Boolean) return String is
78 return Q
(Boolean'Image (Bool
));