comp.lang.ada
 help / color / mirror / Atom feed
From: Matthew Heaney <mheaney@on2.com>
Subject: Re: Pointer
Date: Mon, 19 May 2008 09:17:55 -0700 (PDT)
Date: 2008-05-19T09:17:55-07:00	[thread overview]
Message-ID: <45894e81-4ad7-4c3e-b472-09f17e20b962@t54g2000hsg.googlegroups.com> (raw)
In-Reply-To: g0rhmd$dq7$1@registered.motzarella.org

On May 19, 5:38 am, Sébastien <seb.mor...@gmail.com> 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)?

procedure Op (argv_Address : System.Address; N : Natural) is
   type Argv_Type is array (Positive) of chars_ptr;
   pragma Convention (C, Argv_Type);

   Argv : Argv_Type;
   for Argv'Address use argv_Address;

begin
   for I in 1 .. N loop
      Put_Line (Value (Argv (I)));  -- or whatever
   end loop;
end Op;

Is that what you had in mind?



  parent reply	other threads:[~2008-05-19 16:17 UTC|newest]

Thread overview: 17+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2008-05-19  9:38 Pointer Sébastien
2008-05-19  9:53 ` Pointer Dmitry A. Kazakov
2008-05-19  9:54   ` Pointer Dmitry A. Kazakov
2008-05-19 10:13   ` Pointer Sébastien
2008-05-19 10:32     ` Pointer Dmitry A. Kazakov
2008-05-19 10:34     ` Pointer Ludovic Brenta
2008-05-19 11:31       ` Pointer Sébastien
2008-05-19 12:09         ` Pointer Ludovic Brenta
2008-05-19 12:09         ` Pointer Dmitry A. Kazakov
2008-05-19 12:47           ` Pointer Sébastien
2008-05-19 16:25         ` Pointer Matthew Heaney
2008-05-19 16:22     ` Pointer Matthew Heaney
2008-05-19 16:17 ` Matthew Heaney [this message]
2008-05-19 17:23   ` Pointer Sébastien
  -- strict thread matches above, loose matches on Subject: below --
2005-08-31 17:02 pointer TC
2005-08-31 18:40 ` pointer Martin Krischik
2005-08-31 18:52 ` pointer Jeffrey Carter
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox