2 package body Iface_Test
is
3 protected SQLite_Safe
is
4 function Prepare_Select
6 Iter
: Standard
.Iface_Test
.Iface_2
'Class)
7 return Standard
.Iface_Test
.Iface_2
'Class;
10 overriding
procedure Prepare_Select
12 Iter
: in out Standard
.Iface_Test
.Iface_2
'Class)
15 Iter
:= SQLite_Safe
.Prepare_Select
(DB
, Iter
); -- test
18 protected body SQLite_Safe
is
19 function Prepare_Select
21 Iter
: Standard
.Iface_Test
.Iface_2
'Class)
22 return Standard
.Iface_Test
.Iface_2
'Class