testsuite/tests/callback/test4_.c


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);
}