ocaml_sys/
runtime.rs

1use crate::{Char, Value};
2
3extern "C" {
4    pub fn caml_main(argv: *const *const Char);
5    pub fn caml_startup(argv: *const *const Char);
6    pub fn caml_shutdown();
7    pub fn caml_named_value(name: *const Char) -> *const Value;
8    pub fn caml_enter_blocking_section();
9    pub fn caml_leave_blocking_section();
10    pub fn caml_thread_initialize(unit: Value) -> Value;
11}
12
13// GC control
14extern "C" {
15    pub fn caml_gc_minor(v: Value);
16    pub fn caml_gc_major(v: Value);
17    pub fn caml_gc_full_major(v: Value);
18    pub fn caml_gc_compaction(v: Value);
19}