GNAT Strings

GNAT Strings

[R.J. Kirkbride]

Does anyone know how strings are stored in GNAT,
and thus how they can be sent from C.

I think a pointer is first sent to the string and then
a pointer to a structure containing first and last pointers
but I am not absolutely sure this is correct.

Any help would be much appreciated,

Rob.

Re: GNAT Strings

[Robert Dewar]

Rob said

"Does anyone know how strings are stored in GNAT,
and thus how they can be sent from C.

I think a pointer is first sent to the string and then
a pointer to a structure containing first and last pointers
but I am not absolutely sure this is correct.

Any help would be much appreciated,"

You should not write C at this level. Instead to pass strings across
the Ada-C interface, use the protable routines defined in and under
Interfaces.C.

Re: GNAT Strings

[steved]

In <4l0oiq$4e8@arl-news-svc-2.compuserve.com>, 100331.2264@compuserve.com (R.J. Kirkbride) writes:
>Does anyone know how strings are stored in GNAT,
>and thus how they can be sent from C.
>
>I think a pointer is first sent to the string and then
>a pointer to a structure containing first and last pointers
>but I am not absolutely sure this is correct.
>
>Any help would be much appreciated,
>
>Rob.
>
Look to the package "Interfaces.c" in the file i-c.ads and you will find a
function:

     function To_Ada
     (Item     : in char_array;
      Trim_Nul : in Boolean := True)
      return     String;

This is probably the ticket you're looking for.

Re: GNAT Strings

[Nasser Abbasi]

In article <4l0oiq$4e8@arl-news-svc-2.compuserve.com> 100331.2264@compuserve.com (R.J. Kirkbride) writes:


   Does anyone know how strings are stored in GNAT,
   and thus how they can be sent from C.

   I think a pointer is first sent to the string and then
   a pointer to a structure containing first and last pointers
   but I am not absolutely sure this is correct.

   Any help would be much appreciated,

   Rob.

for unbounded string is, a-strunb.ads shows it is a pointer, 
opps, I mean access to a string:
 
>private
>   package AF renames Ada.Finalization;
>
>   type Unbounded_String is new AF.Controlled with record
>      Reference : String_Access;
>   end record;

for bounded string , a-strbou.ads shows it is a record
with length field, and the data itself field, where length
indicates current length: 

>   private
>
>      type Bounded_String is record
>         Length : Length_Range := 0;
>         Data   : String (1 .. Max_Length);
>      end record;


The length of unbounded string is then found like this:

from a-strunb.adb:

   function Length (Source : Unbounded_String) return Natural is
   begin
      return Source.Reference.all'Length;
   end Length;


The length of the bounded string is in the record itself shown above.
so from a-strbou.adb:

      function Length (Source : in Bounded_String) return Length_Range is
      begin
         return Source.Length;
      end Length;


String itself offcourse is array of characters.

to interface to C, there is a package for that (interfaces package)
one of its children is C.Interface .

Nasser