ada routine reading c data problem

ada routine reading c data problem

[Mindy Matusewicz]

I am running on a WINNT pc using gnat.  I have a program that has both
ada and c modules.  I need to be able to access the c structures from
the ada code.  Is there any way of doing this besides a special c
routine to send back the data.

Thank you for your help.

Mindy Matusewicz
Mindy_matusewicz@ny.essd.northgrum.com

Re: ada routine reading c data problem

[Jerry van Dijk]

>I am running on a WINNT pc using gnat.  I have a program that has both
>ada and c modules.  I need to be able to access the c structures from
>the ada code.  Is there any way of doing this besides a special c
>routine to send back the data.

Yes, if the structures are accesible according to C rules you can define
the struct in Ada and import the actual instantiations. In GNAT this
couldn't be simpler:

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

   struct a_struct {
      int a;
      float b;
   } var_a;

   void display_struct(void)
   {
      printf("Struct values are: a -> %d, b -> %f\n", var_a.a, var_a.b);
   }

   -- test.adb
   procedure Test is

      type A_Struct is
         record
            A : Integer;
            B : Float;
         end record;

      Var_A : A_Struct;
      pragma Import (C, Var_A);

      procedure Display_Struct;
      pragma Import (C, Display_Struct);

   begin
      Var_A.a := 1;
      Var_A.b := 2.0;
      Display_Struct;
   end Test;

to test:

   gcc -c c.c
   gcc -c test.adb
   gnatbind -x test.ali
   gnatlink test.ali c.o

Note that depending on the struct you might have to pack items or the stuct,
in using it as an argument, you might run into copy by reference vs copy by
value issues. See the GNAT user manual for more details.

--

-- Jerry van Dijk       | Haarlem, Holland
-- Business Consultant  | Team Ada
-- Ordina Finance       | jdijk@acm.org