stub/ocaml.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#include "ocaml.h"

value
get_opt(value opt, int index) {
	if (!opt || opt == Val_none)
		return 0;
	else
		return Field(opt, index);
}

char*
string_opt(const value opt) {
	value content = get_opt(opt, 0);
	if (!content)
		return NULL;
	else
		return String_val(content);
}

value
Val_some(value v ) {
    CAMLparam1( v );
    CAMLlocal1( some );
    some = caml_alloc(1, 0);
    Store_field( some, 0, v );

    CAMLreturn( some );
}

value
Val_1field(value v) {
    CAMLparam1( v );
    CAMLlocal1( field );
    field = caml_alloc(1, 0);
    Store_field(field, 0, v);

    CAMLreturn( field );
}