Re: Interfacing Ada with C

[Ada novice <posts@gmx.us>]

Thanks a lot. On compilation I get:


     1. package body IMSL is
     2.    procedure Free (
     3.          Ptr : System.Address);
                       |
        >>> "System" is not visible
        >>> non-visible declaration at system.ads:40

     4.    pragma Import (C, Free, "free");
     5.
     6.    function F_Eig_Gen (
     7.          Matrix : Float_Matrix)
     8.      return Complex_Array is
     9.    begin
    10.       if Matrix'Length (1) /= Matrix'Length (2) then
    11.          raise Constraint_Error;
    12.       end if;
    13.       declare -- No idea, how they report convergence/accuracy
errors
    14.          function Internal (
                 |
        >>> missing body for "Internal"

    15.                N          : Int;
    16.                A          : Address;
                                    |
        >>> "Address" is not visible (more references follow)
        >>> non-visible declaration at system.ads:67

    17.                Terminator : Address := Null_Address)
                                               |
        >>> "Null_Address" is not visible
        >>> non-visible declaration at system.ads:69

    18.            return Address;
    19.          pragma Import (C, Internal, "imsl_f_eig_gen");
    20.          Ptr  : Address                                :=
Internal (Matrix'Length
    21.            (1), Matrix (Matrix'First (1), Matrix'First
(2))'Address);
    22.          Data : Complex_Array (1 .. Matrix'Length (1));
    23.          for Data'Address use Ptr;
    24.          pragma Import (Ada, Data);
    25.          Result : Complex_Array := Data;          -- Copy, we
don't own that memory
    26.       begin
    27.          Free (Ptr);
    28.          return Result;
    29.       end;
    30.    end F_Eig_Gen;
    31. end IMSL;

Compiling: c:/docume~1/testing/imsl.ads (source file time stamp:
2010-07-25 14:00:52)

     1. with Interfaces.C;
     2. use Interfaces.C;
     3. package IMSL is
     4.    type Float_Matrix is -- Row-wise, packed/aligned
     5.    array (Positive range <>, Positive range <>) of C_Float;
     6.    pragma Convention (C, Float_Matrix);
     7.    type F_Complex is
     8.       record
     9.          Re : C_Float;
    10.          Im : C_Float;
    11.       end record;
    12.    pragma Convention (C, F_Complex);
    13.    type Complex_Array is array (Positive range <>) of
F_Complex;
    14.    pragma Convention (C, Complex_Array);
    15.
    16.    function F_Eig_Gen (
    17.          Matrix : Float_Matrix)
    18.      return Complex_Array;
    19. end IMSL;

 31 lines: 7 errors


And what do I need on the C side?

Thanks
YC