Re: Pointer

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

> procedure To_String (Pointer : in System.Address; Length : in Natural)
> return String is
>    Result : String (1 .. Length);
>    for Result'Address use Pointer;
>    pragma Import (Ada, Result); -- suppress default initialization
> begin
>    return Result;
> end To_String;
> 
> But Dmitryi's solution is safer, of course. HTH

Ok, I was not clear enough. Converting char* to String is not an issue, 
I'm using Interfaces.C.String with no problem. My problem is to convert 
all the strings in the char** in string one by one.

Something like this:
CharPtrPtr: System.Address := MyCFunctionReturninCharStarStar;
N: Natural := MYCFunctionTellingMeHowManyStrings;

for i in Natural range 0 .. N loop
    -- Some ada code to convert CharPtrPtr[i] to String
end loop;

Of course I can do somthing like that:

Compile this using
gcc -O2 -g3 -ansi -pedantic -W -Wall -c mybind.c -o mybind.o:

char* get_nth(char** data, unsigned int n) {
   return data[i];
}

Ada binding:
function get_nth(data: System.Address; n: Int) return Char_Ptr;
pragma Import(C, get_nth, "get_nth");

Then:
for i in Natural range 0 .. N loop
    MyString := Interfaces.C.Strings.Value(get_nth(CharPtrPtr, i));
end loop;

I know it's working, but I have to code a C function in order to do 
that, is there a way to replace get_nth by an ada code function?

Hope it's a better explanation ;-)