Browse Source

Add ocaml-c experiments

rexim 6 years ago
parent
commit
46f30de8eb
5 changed files with 19 additions and 0 deletions
  1. 6 0
      ocaml-c/.gitignore
  2. 0 0
      ocaml-c/Makefile
  3. 1 0
      ocaml-c/funs.ml
  4. 1 0
      ocaml-c/funs.mli
  5. 11 0
      ocaml-c/wrap.c

+ 6 - 0
ocaml-c/.gitignore

@@ -0,0 +1,6 @@
+*.cma
+*.cmi
+*.cmo
+*.so
+*.o
+*.a

+ 0 - 0
ocaml-c/Makefile


+ 1 - 0
ocaml-c/funs.ml

@@ -0,0 +1 @@
+external send_an_int: int -> unit = "get_an_int"

+ 1 - 0
ocaml-c/funs.mli

@@ -0,0 +1 @@
+external send_an_int : int -> unit = "get_an_int"

+ 11 - 0
ocaml-c/wrap.c

@@ -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;
+}