Re: Interfacing a subprogram from C.

[Jerry van Dijk <jvandyk@attglobal.net>]

"Pedro Jose Garcia Gil" <pggil@isa.upv.es> writes:

> $gcc -c pepe.c
> What am I doing wrong?.

Your C object file is called pepe.o
 
> It's necessary to compile with other options or include some file in
> somewhere?.

More portable is:

*** c_part.c ***************************************************************
#include <stdio.h>

void c_part(int i)
{
  printf("c_part received: %d\n", i);
}
****************************************************************************

*** ada_part.adb ***********************************************************
with Interfaces.C;

procedure Ada_Part is

   procedure C_Part (I : Interfaces.C.int);
   pragma Import (C, C_Part, "c_part");
   pragma Linker_Options ("c_part.o");

begin
   C_Part (7);
end Ada_Part;
****************************************************************************

****************************************************************************
C_PART   C              87  28-02-02  19:07 c_part.c
ADA_PART ADB           213  28-02-02  19:10 ada_part.adb

C:\Home\work>gcc -c -o c_part.o c_part.c

C:\Home\work>gnatmake ada_part
gcc -c ada_part.adb
gnatbind -x ada_part.ali
gnatlink ada_part.ali

C:\Home\work>ada_part
c_part received: 7
****************************************************************************

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   users.ncrvnet.nl/gmvdijk