Re: import a C function returning char *

Re: import a C function returning char *

[Tucker Taft]

Stephen Leake wrote:
> 
> I need to import the C function:
> 
> char *sbs_read_error (void);
> 
> I'd like to use the facilities in Interfaces.C, but since there is no
> char_ptr type, I'm not clear what the correct method is. LRM B.3 (63
> .. 75) talk about various parameter passing modes, but there's no
> discussion of function results.
> 
> Since all parameters of an array type are passed by pointers, I could
> assume function results are also passed by pointer, and try:
> 
> declare
> 
>    function Sbs_Read_Error return Interfaces.C.char_array;
>    pragma Import (C, Sbs_Read_Error, "sbs_read_error");
> 
>    Result : String (1 .. 30);
>    Result_Last : Natural;
> 
> begin
> 
>    Interfaces.C.To_Ada (Sbs_Read_Error, Result, Result_Last);
> 
>    Text_Io.Put_Line (Result (1 .. Result_Last));
> 
> end;
> 
> Is this going to work (I'll get around to compiling this soon)? I'm
> using GNAT 3.11p and ObjectAda 7.12 on Windows NT; what about other
> Ada compilers?

This should work on ObjectAda, I believe.

> -- Stephen Leake

-- 
-Tucker Taft   stt@averstar.com   http://www.averstar.com/~stt/
Technical Director, Distributed IT Solutions  (www.averstar.com/tools)
AverStar (formerly Intermetrics, Inc.)   Burlington, MA  USA

import a C function returning char *

[Stephen Leake]

I need to import the C function:

char *sbs_read_error (void);

I'd like to use the facilities in Interfaces.C, but since there is no
char_ptr type, I'm not clear what the correct method is. LRM B.3 (63
.. 75) talk about various parameter passing modes, but there's no
discussion of function results.

Since all parameters of an array type are passed by pointers, I could
assume function results are also passed by pointer, and try:

declare

   function Sbs_Read_Error return Interfaces.C.char_array;
   pragma Import (C, Sbs_Read_Error, "sbs_read_error");

   Result : String (1 .. 30);
   Result_Last : Natural;

begin

   Interfaces.C.To_Ada (Sbs_Read_Error, Result, Result_Last);

   Text_Io.Put_Line (Result (1 .. Result_Last));

end;

Is this going to work (I'll get around to compiling this soon)? I'm
using GNAT 3.11p and ObjectAda 7.12 on Windows NT; what about other
Ada compilers?

-- Stephen Leake

Re: import a C function returning char *

[Samuel Tardieu]

>>>>> "Stephen" == Stephen Leake <Stephen.Leake@gsfc.nasa.gov> writes:

Stephen> Is this going to work (I'll get around to compiling this
Stephen> soon)? I'm using GNAT 3.11p and ObjectAda 7.12 on Windows NT;
Stephen> what about other Ada compilers?

What do you think "Sbs_Read_Error'Length" would contain? You can't tell?
Neither can the compiler :-)

Use Interfaces.C.Strings.chars_ptr, since what you get from this C
function is only a pointer onto the beginning of the string (char *),
don't expect to get more just by writing it in Ada :-)

  Sam
-- 
Samuel Tardieu -- sam@ada.eu.org

Re: import a C function returning char *

[Stephen Leake]

Samuel Tardieu <sam@ada.eu.org> writes:

> >>>>> "Stephen" == Stephen Leake <Stephen.Leake@gsfc.nasa.gov> writes:
> 
> Stephen> Is this going to work (I'll get around to compiling this
> Stephen> soon)? I'm using GNAT 3.11p and ObjectAda 7.12 on Windows NT;
> Stephen> what about other Ada compilers?
> 
> What do you think "Sbs_Read_Error'Length" would contain? You can't tell?
> Neither can the compiler :-)

Yes, this was why I was wondering if it would work.

> Use Interfaces.C.Strings.chars_ptr, since what you get from this C
> function is only a pointer onto the beginning of the string (char *),
> don't expect to get more just by writing it in Ada :-)

Yes, that's the solution. I thought I remembered a chars_ptr
somewhere, and I'd have found it if I'd just looked in the LRM index.
I guess I was just having a bad day ...

-- Stephe