1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#include <stdio.h>
#include <caml/mlvalues.h>
#include <caml/memory.h>
#include <caml/callback.h>
value caml_to_c (value unit) {
CAMLparam1 (unit);
printf ("[C] Enter caml_to_c\n");
static const value* c_to_caml_closure = NULL;
if (!c_to_caml_closure)
c_to_caml_closure = caml_named_value("c_to_caml");
printf ("[C] Call c_to_caml\n");
fflush(stdout);
caml_callback(*c_to_caml_closure, Val_unit);
printf ("[C] Return from c_to_caml\n");
printf ("[C] Leave caml_to_c\n");
fflush(stdout);
CAMLreturn (Val_unit);
}
|
