beamr 0.3.12

A Rust runtime with the BEAM's execution model, targeting Gleam
Documentation 
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

//! Meridian workflow NIFs — Rust functions callable from Gleam workflows.
//!
//! Registered under the `meridian_ffi` module atom. These are proof-of-concept
//! implementations for testing the NIF wiring end-to-end.

use crate::atom::{Atom, AtomTable};
use crate::native::{BifRegistryImpl, NativeRegistrationError, ProcessContext};
use crate::term::Term;
use crate::term::binary::{Binary, write_binary};
use crate::term::boxed::write_tuple;

pub fn register_meridian_ffi(
    registry: &BifRegistryImpl,
    atom_table: &AtomTable,
) -> Result<(), NativeRegistrationError> {
    let module = atom_table.intern("meridian_ffi");
    registry.register(module, atom_table.intern("read_file"), 1, nif_read_file)?;
    registry.register(module, atom_table.intern("run_cmd"), 1, nif_run_cmd)?;
    registry.register(module, atom_table.intern("write_file"), 2, nif_write_file)?;
    registry.register(module, atom_table.intern("read_json"), 1, nif_read_json)?;
    registry.register(module, atom_table.intern("commit"), 1, nif_commit)?;
    registry.register(
        module,
        atom_table.intern("run_step_norn"),
        4,
        nif_run_step_norn,
    )?;
    Ok(())
}

fn ok_binary(content: &[u8]) -> Result<Term, Term> {
    let words = 2 + content.len().div_ceil(8);
    let heap: &mut [u64] = Box::leak(vec![0u64; words].into_boxed_slice());
    let binary = write_binary(heap, content).ok_or(Term::atom(Atom::ERROR))?;
    let tuple_heap: &mut [u64] = Box::leak(vec![0u64; 3].into_boxed_slice());
    write_tuple(tuple_heap, &[Term::atom(Atom::OK), binary]).ok_or(Term::atom(Atom::ERROR))
}

fn err_binary(reason: &[u8]) -> Term {
    let words = 2 + reason.len().div_ceil(8);
    let heap: &mut [u64] = Box::leak(vec![0u64; words].into_boxed_slice());
    let binary = write_binary(heap, reason).unwrap_or(Term::atom(Atom::ERROR));
    let tuple_heap: &mut [u64] = Box::leak(vec![0u64; 3].into_boxed_slice());
    write_tuple(tuple_heap, &[Term::atom(Atom::ERROR), binary]).unwrap_or(Term::atom(Atom::ERROR))
}

fn ok_nil() -> Result<Term, Term> {
    let heap: &mut [u64] = Box::leak(vec![0u64; 3].into_boxed_slice());
    write_tuple(heap, &[Term::atom(Atom::OK), Term::NIL]).ok_or(Term::atom(Atom::ERROR))
}

fn extract_string(term: Term) -> Result<String, Term> {
    let binary = Binary::new(term).ok_or(Term::atom(Atom::BADARG))?;
    String::from_utf8(binary.as_bytes().to_vec()).map_err(|_| Term::atom(Atom::BADARG))
}

fn nif_read_file(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let path = extract_string(args[0])?;
    match std::fs::read(&path) {
        Ok(content) => ok_binary(&content),
        Err(e) => Err(err_binary(e.to_string().as_bytes())),
    }
}

fn nif_run_cmd(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let command = extract_string(args[0])?;
    match std::process::Command::new("sh")
        .arg("-c")
        .arg(&command)
        .output()
    {
        Ok(output) => ok_binary(&output.stdout),
        Err(e) => Err(err_binary(e.to_string().as_bytes())),
    }
}

fn nif_write_file(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let path = extract_string(args[0])?;
    let content = extract_string(args[1])?;
    if let Some(parent) = std::path::Path::new(&path).parent() {
        let _ = std::fs::create_dir_all(parent);
    }
    match std::fs::write(&path, &content) {
        Ok(()) => ok_nil(),
        Err(e) => Err(err_binary(e.to_string().as_bytes())),
    }
}

fn nif_read_json(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let path = extract_string(args[0])?;
    match std::fs::read_to_string(&path) {
        Ok(content) => ok_binary(content.as_bytes()),
        Err(e) => Err(err_binary(e.to_string().as_bytes())),
    }
}

fn nif_commit(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let _message = extract_string(args[0])?;
    ok_binary(b"commit stub")
}

fn nif_run_step_norn(args: &[Term], _ctx: &mut ProcessContext) -> Result<Term, Term> {
    let _name = extract_string(args[0])?;
    let _profile = extract_string(args[1])?;
    let _instruction = extract_string(args[2])?;
    let _schema = extract_string(args[3])?;
    ok_binary(b"step stub")
}