Re: ada import c function

[sjw <simon.j.wright@mac.com>]

On Apr 28, 9:45 pm, "s. ashen" <spain.as...@gmail.com> wrote:
> Does anyone import C function to ada??
> Using gnat 3.15, i try to compile the example which contain two files
>   use_of_import.adb
>
> procedure Use_Of_Import is
>    procedure Imported_Function;
>    pragma Import (C, Imported_Function, "imported_function");
> begin
>    Imported_Function;
> end Use_Of_Import;
>
>   imported_function.c
>
> #include <stdio.h>
> imported_function ()
> {
>   printf ("\nI am now in the imported function\n\n");
>
> }
>
> does anyone know how to compile this program, i had tried many in many
> ways, but i can't do this.. always occurred some  errors.

nidhoggr:tmp simon$ gcc -c imported_function.c
nidhoggr:tmp simon$ gnatmake use_of_import.adb -largs
imported_function.o
gcc -c use_of_import.adb
gnatbind -x use_of_import.ali
gnatlink use_of_import.ali imported_function.o
nidhoggr:tmp simon$ ./use_of_import

I am now in the imported function

nidhoggr:tmp simon$

There are ways of doing this with GNAT project files but they would
take a while to explain -- and anyway I don't think 3.15 has GNAT
project? or if it does it's the first version ever. Upgrade if you can.