Data commit

Task/Use-another-language-to-call-a-function/Ada/use-another-language-to-call-a-function-1.ada

@@ -0,0 +1,8 @@
+with Interfaces.C;          use Interfaces.C;
+with Interfaces.C.Strings;  use Interfaces.C.Strings;
+
+package Exported is
+   function Query (Data : chars_ptr; Size : access size_t)
+      return int;
+   pragma Export (C, Query, "Query");
+end Exported;

Task/Use-another-language-to-call-a-function/Ada/use-another-language-to-call-a-function-2.ada

@@ -0,0 +1,14 @@
+package body Exported is
+   function Query (Data : chars_ptr; Size : access size_t)
+      return int is
+      Result : char_array := "Here am I";
+   begin
+      if Size.all < Result'Length then
+         return 0;
+      else
+         Update (Data, 0, Result);
+         Size.all := Result'Length;
+         return 1;
+      end if;
+   end Query;
+end Exported;

Task/Use-another-language-to-call-a-function/Ada/use-another-language-to-call-a-function-3.ada

@@ -0,0 +1,4 @@
+gcc -c main.c
+gnatmake -c exported.adb
+gnatbind -n exported.ali
+gnatlink exported.ali main.o -o main