math-mumu 0.1.0

Math functions plugin for the Mumu / Lava language
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
109
110

use mumu::{
    parser::interpreter::{DynamicFnInfo, Interpreter},
    parser::types::{FunctionValue, Value},
};
use std::{
    ffi::{c_void, CStr},
    sync::{Arc, Mutex},
};

mod arb;
mod sqrt;
mod unary;
mod partials;
mod rotate_point;
mod srand; // <-- Add this line

use arb::math_arb_bridge;
use sqrt::math_sqrt_bridge;
use unary::*;
use partials::*;
use rotate_point::math_rotate_point_bridge;
use srand::math_srand_bridge; // <-- Add this line

#[no_mangle]
pub unsafe extern "C" fn Cargo_lock(
    interp_ptr: *mut c_void,
    extra_str: *const c_void,
) -> i32 {
    let interp = &mut *(interp_ptr as *mut Interpreter);

    macro_rules! reg {
        ($name:expr, $f:expr) => {{
            let func = Arc::new(Mutex::new($f));
            interp.register_dynamic_function_ex($name, DynamicFnInfo::new(func.clone(), false));
            interp.set_variable($name, Value::Function(Box::new(FunctionValue::Named($name.into()))));
        }};
    }

    let verbose = interp.is_verbose();
    if verbose && !extra_str.is_null() {
        let c_str = CStr::from_ptr(extra_str as *const i8);
        eprintln!(
            "(math) cargo_lock => bridging => extra arg='{}'",
            c_str.to_string_lossy()
        );
    }
    if verbose {
        eprintln!("(math) => bridging math plugin => single-arg, multi-arg, sqrt, arb, etc.");
    }

    // ---- Math Arithmetic (Partial-aware) ----
    reg!("math:plus", math_plus_bridge);
    reg!("math:subtract", math_subtract_bridge);
    reg!("math:multiply", math_multiply_bridge);
    reg!("math:divide", math_divide_bridge);
    reg!("math:pow", math_pow_bridge);
    reg!("math:mod", math_mod_bridge);

    // ---- Multi-argument math ----
    reg!("math:atan2", math_atan2_bridge);
    reg!("math:imul", math_imul_bridge);
    reg!("math:max", math_max_bridge);
    reg!("math:min", math_min_bridge);
    reg!("math:hypot", math_hypot_bridge);

    // ---- Single-argument math (unary.rs) ----
    reg!("math:abs", math_abs_bridge);
    reg!("math:acos", math_acos_bridge);
    reg!("math:acosh", math_acosh_bridge);
    reg!("math:asin", math_asin_bridge);
    reg!("math:asinh", math_asinh_bridge);
    reg!("math:atan", math_atan_bridge);
    reg!("math:atanh", math_atanh_bridge);
    reg!("math:cbrt", math_cbrt_bridge);
    reg!("math:ceil", math_ceil_bridge);
    reg!("math:clz32", math_clz32_bridge);
    reg!("math:cos", math_cos_bridge);
    reg!("math:cosh", math_cosh_bridge);
    reg!("math:exp", math_exp_bridge);
    reg!("math:expm1", math_expm1_bridge);
    reg!("math:floor", math_floor_bridge);
    reg!("math:fround", math_fround_bridge);
    reg!("math:log", math_log_bridge);
    reg!("math:log10", math_log10_bridge);
    reg!("math:log1p", math_log1p_bridge);
    reg!("math:log2", math_log2_bridge);
    reg!("math:round", math_round_bridge);
    reg!("math:sign", math_sign_bridge);
    reg!("math:sin", math_sin_bridge);
    reg!("math:sinh", math_sinh_bridge);
    reg!("math:tan", math_tan_bridge);
    reg!("math:tanh", math_tanh_bridge);
    reg!("math:trunc", math_trunc_bridge);

    // ---- Sqrt & arbitrary precision (arb) ----
    reg!("math:sqrt", math_sqrt_bridge);
    reg!("math:arb", math_arb_bridge);

    // ---- 3-arg math (rotate_point) ----
    reg!("math:rotate_point", math_rotate_point_bridge);

    // ---- Random seedable generator (srand) ----
    reg!("math:srand", math_srand_bridge); // <-- Add this line

    if verbose {
        eprintln!("(math) cargo_lock => done registering all bridging functions.");
    }

    0
}