OCaml-gen

This crate provides automatic generation of OCaml bindings. Refer to the rustdoc for more information.

Example

Here's an example of generating some bindings. Create a main.rs as:

```rust use ocaml_gen::prelude::*;

// Some Rust code you have:

[derive(ocaml::FromValue, ocaml::IntoValue, ocaml_gen::CustomType)]

pub struct SomeType { pub a: u8, }

[ocaml_gen::func]

[ocaml::func]

fn createsometype() -> SomeType { SomeType { a: 42 } }

fn main() { // initialize your environment let env = &mut Env::default();

// choose where you want to write the bindings let w = &mut std::io::stdout();

// you can declare modules declmodule!(w, env, "Types", {
// and types decltype!(w, env, SomeType => "t"); });

declmodule!(w, env, "Functions", { // and functions declfunc!(w, env, createsometype => "create"); }); } ```

Note that the underlying function imported by decl_func! is actually caml_of_numeral_to_ocaml, which is created by the annotated macro ocaml_gen::func. So either your function is in scope, or you import everything (e.g. use path::*), or you import the derived function directly (e.g. use path::caml_of_numeral_to_ocaml).

The OCaml bindings generated should look like this:

```ocaml,ignore module Types = struct type nonrec t end

module Functions = struct val create : unit -> Types.t end ```

Usage

In general, you can use this library by following these steps:

  1. annotate your types and functions with ocaml-rs and ocaml_gen macros.
  2. create a main.rs file to generate your binding file bindings.ml as shown above.
  3. use the ocaml-rs crate to export the static library that OCaml will use.
  4. add a dune file to your crate to build the Rust static library as well as the OCaml bindings. (protip: use (mode promote) in the dune file to have the resulting binding file live within the folder.)
  5. optionally enforce in CI that the promoted binding file is correct.

You can see an example of these steps in the test/ folder. (Although we don't "promote" the file with dune for testing purposes.)

Annotations

To allow ocaml-gen to understand how to generate OCaml bindings from your types and functions, you must annotate them using ocaml-gen's macros.

To allow generation of bindings on structs, use ocaml_gen::Struct:

```rust,ignore

[ocaml_gen::Struct]

struct MyType { // ... } ```

To allow generation of bindings on enums, use ocaml_gen::Enum:

```rust,ignore

[ocaml_gen::Enum]

enum MyType { // ... } ```

To allow generation of bindings on functions, use ocaml_gen::func:

```rust,ignore

[ocaml_gen::func]

[ocaml::func] // if you use the crate ocaml-rs' macro, it must appear after

pub fn your_function(arg1: String) { //... } ```

To allow generation of bindings on custom types, use ocaml_gen::CustomType:

```rust,ignore

[ocaml_gen::CustomType]

struct MyCustomType { // ... } ```

Binding generations

To generate bindings, you must create a main.rs file that uses the ocaml_gen crate functions to layout what the bindings .ml file will look like. The first thing to do is to import the types and functions you want to generate bindings for, as well as the ocaml_gen macros:

rust,ignore use ocaml_gen::prelude::*; use your_crate::*;

You can then use decl_module! to declare modules:

```rust,ignore let env = &mut Env::default(); let w = &mut std::io::stdout();

declmodule!(w, env, "T1", {
declmodule!(w, env, "T2", {
decl_type!(w, env, SomeType); }); });

declmodule!(w, env, "T3", { decltype!(w, env, SomeOtherType); }); ```

You can rename types and functions by simply adding an arrow:

rust,ignore decl_type!(w, env, SomeType => "t");

You can also declare generic types by first declaring the generic type parameters (that you must reuse for all generic types):

```rust,ignore declfakegeneric!(T1, 0); // danger: declfakegeneric!(T2, 1); // make sure you declfakegeneric!(T3, 2); // increment these correctly

decltype!(w, env, TypeWithOneGenericType); decltype!(w, env, ThisOneHasTwo); decl_type!(w, env, ThisOneHasThreeOfThem); ```

You can also create type aliases with the decl_type_alias! macro but it is highly experimental. It has a number of issues: