Re: Pointer

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Mon, 19 May 2008 09:38:08 +0000, S�bastien wrote:

> I'm getting from a C interfaces a char**data in a System.Address. I have 
> the following hypothesis:
> - data is an array of n elements where n is known
> - There is no memory issue (meaning data[i] with i < n is allocated)
> - I do not have to free the memory (memory is managed by the C library)
> 
> How can I retrieve all my values in the C arrays using a loop to create 
> some Ada String (Interfaces.C.Strings.Value)?

Suggesting, n is returned from the C program:

with Interfaces.C;  use Interfaces.C;
with Interfaces.C.Strings;  use Interfaces.C.Strings;

function Get_It return String is
   procedure Internal (N : out size_t; Data : out chars_ptr);
   pragma Import (C, Internal, "<C-name>");
   Data : chars_ptr;
   N : size_t;
begin
   Internal (Data);
   return Value (N, Data);
end Get_It;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de