浏览代码

Add ocaml-c experiments

rexim 6 年之前
父节点
当前提交
46f30de8eb
共有 5 个文件被更改,包括 19 次插入0 次删除
  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;
+}