Re: Interfacing with C

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

I just wrote on comp.lang.ada:
> package SPSS is
>    type Adapter is null record;
>    type Adapter_Access is access all Adapter;
>    pragma Convention (C, Adapter_Access);
>
>    type XD_SMB is null record;
>    type XD_SMB_Access is access all XD_SMB;
>    pragma Convention (C, XD_SMB_Access);
>
>    function Set_Up_From_SPSS
>      (An_Adapter : in Adapter; An_SMB : in XD_SMB_Access)

Sorry; of course I meant
    function Set_Up_From_SPSS
      (An_Adapter : in Adapter_Access; An_SMB : in XD_SMB_Access)

>      return Interfaces.C.int;
>    pragma Import (Convention => C, Entity => Set_Up_From_SPSS,
>      Linker_Name => "SetUpFromSPSS");
> end SPSS;

--
Ludovic Brenta.