File: gen_code_stubs.c

package info (click to toggle)
ocaml-ffmpeg 1.2.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 908 kB
  • sloc: ansic: 6,412; ml: 6,166; makefile: 3
file content (8 lines) | stat: -rw-r--r-- 255 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
#include "caml/alloc.h"
#include "caml/memory.h"
#include "caml/mlvalues.h"

CAMLprim value polymorphic_variant_string_to_c_value(value _pv_name) {
  CAMLparam1(_pv_name);
  CAMLreturn(caml_copy_int64((int64_t)caml_hash_variant(String_val(_pv_name))));
}