Esempi in C++ (Cpp) per caml_output_value_to_block

Esempio n. 1

File: bigstring_marshal_stubs.c Progetto: UnixJunkie/core_kernel

CAMLprim value bigstring_marshal_blit_stub(
  value v, value v_pos, value v_len, value v_bstr, value v_flags)
{
  char *bstr = get_bstr(v_bstr, v_pos);
  return
    Val_long(caml_output_value_to_block(v, v_flags, bstr, Long_val(v_len)));
}

Esempio n. 2

File: intextaux.c Progetto: dhil/ocaml-multicore

value marshal_to_block(value vbuf, value vlen, value v, value vflags)
{
  return Val_long(caml_output_value_to_block(v, vflags,
                                        (char *) vbuf, Long_val(vlen)));
}