@@ -0,0 +1,6 @@
+*.cma
+*.cmi
+*.cmo
+*.so
+*.o
+*.a
@@ -0,0 +1 @@
+external send_an_int: int -> unit = "get_an_int"
+external send_an_int : int -> unit = "get_an_int"
@@ -0,0 +1,11 @@
+#include <stdio.h>
+#include <caml/mlvalues.h>
+
+CAMLprim value
+get_an_int( value v )
+{
+ int i;
+ i = Int_val(v);
+ printf("%d\n", i);
+ return Val_unit;
+}