Re: Pointer

[Sébastien <seb.morand@gmail.com>]

> with Interfaces.C.Pointers;
> with Interfaces.C.Strings;  use Interfaces.C.Strings;
> with Interfaces.C; use Interfaces.C;
> 
> type Chars_Ptr_Array is array (size_t range <>) of aliased chars_ptr;
> pragma Convention (C, Chars_Ptr_Array);
> package Pointers_To_String is
>    new Interfaces.C.Pointers (size_t, chars_ptr, chars_ptr_array, null);
> use Pointers_To_String;
> ...   
> Data : Pointers_To_String.Pointer := MyCFunctionReturninCharStarStar;
> N: Natural := MYCFunctionTellingMeHowManyStrings;
> ...
> for Index in 1..N loop
>    declare
>       Element : String := Value (Data.all);
>    begin
>       ... -- Use the element
>    end;
>    Increment (Data); -- Move to the next one
> end loop;

Ok I didn't know Interfaces.C.Pointer, it's looks like exaclty what I 
need and it's a replacement for pointer arithmetic operations.