From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e940dc253695e939
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news1.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!inka.de!rz.uni-karlsruhe.de!news.belwue.de!newsfeed.arcor.de!newsspool2.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Pointer
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
References: <g0rhmd$dq7$1@registered.motzarella.org>
 <2rjq6ys3fang$.1ir8q3892mjwo$.dlg@40tude.net> 	<483152DC.4040607@gmail.com>
 <93f38d4d-b34f-4858-a818-7dc5d65cbb0b@m36g2000hse.googlegroups.com>
 <4831652D.3020507@gmail.com>
Date: Mon, 19 May 2008 14:09:57 +0200
Message-ID: <1qai6h2r4nqaq.ni9tpon7mnav.dlg@40tude.net>
NNTP-Posting-Date: 19 May 2008 14:09:57 CEST
NNTP-Posting-Host: 21e0090c.newsspool4.arcor-online.net
X-Trace: 
 DXC=KYV3hQCkF6Jj7E:bke<5HF4IUK<Cl32<A4Fo<]lROoRA8kF<OcfhCOKgf1^IVXE\jH[6LHn;2LCVN7enW;^6ZC`DIXm65S@:3>OTi9mH\T@KZC
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:237
Date: 2008-05-19T14:09:57+02:00
List-Id: <comp.lang.ada>

On Mon, 19 May 2008 11:31:57 +0000, S�bastien wrote:

>> 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.

Aha, it is const char *[] ...

> 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;

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;

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