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

// Copyright (c) SimpleStaking and Tezedge Contributors
// SPDX-License-Identifier: MIT

extern "C" {
    fn caml_startup(argv: *const *const i8);
    fn caml_shutdown();
}

/// OCaml runtime handle.
pub struct OCamlRuntime {}

impl OCamlRuntime {
    pub fn init() -> Self {
        OCamlRuntime::init_persistent();
        OCamlRuntime {}
    }

    pub fn init_persistent() {
        let arg0 = "ocaml".as_ptr() as *const i8;
        let c_args = vec![arg0, std::ptr::null()];
        unsafe { caml_startup(c_args.as_ptr()) }
    }

    pub fn shutdown_persistent() {
        unsafe { caml_shutdown() }
    }
}

impl Drop for OCamlRuntime {
    fn drop(&mut self) {
        unsafe { caml_shutdown() }
    }
}