geam 0.1.1

Experimental Rust-embedded execution runtime for typed Gleam programs
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

mod function;
mod schema;
mod storage;

pub(crate) use schema::{Dynamic, DynamicList, DynamicSchema};
pub(crate) use storage::DynamicExternalStorage;
pub(super) use storage::Stores;

pub(in crate::gleam_stdlib) use self::function::{
    DynamicProvider, classification, decode_value, sequence,
};
use self::function::{array, cast, classify};
pub(crate) use self::function::{create_return_value, create_value};
use self::schema::Parameter;
use super::GleamStdlibHostProfile;
use crate::{HostList, HostProviderModule, HostRegistrationError};
use ecow::EcoString;
use num_bigint::BigInt;

pub(super) fn host_provider<Profile>() -> Result<HostProviderModule<Profile>, HostRegistrationError>
where
    Profile: GleamStdlibHostProfile,
{
    HostProviderModule::new("gleam_stdlib", "gleam/dynamic")
        .and_then(HostProviderModule::with_external_type::<DynamicProvider<Profile>, DynamicSchema>)
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (Dynamic,), EcoString, _>(
                "classify",
                classify::<Profile>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (bool,), Dynamic, _>(
                "bool",
                cast::<Profile, bool>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (EcoString,), Dynamic, _>(
                "string",
                cast::<Profile, EcoString>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (f64,), Dynamic, _>(
                "float",
                cast::<Profile, f64>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (BigInt,), Dynamic, _>(
                "int",
                cast::<Profile, BigInt>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<
                DynamicProvider<Profile>,
                (crate::BitArrayValue,),
                Dynamic,
                _,
            >("bit_array", cast::<Profile, crate::BitArrayValue>)
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (DynamicList,), Dynamic, _>(
                "list",
                cast::<Profile, DynamicList>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (DynamicList,), Dynamic, _>(
                "array",
                array::<Profile>,
            )
        })
        .and_then(|provider| {
            provider.with_scoped_function::<DynamicProvider<Profile>, (Parameter,), Dynamic, _>(
                "cast",
                cast::<Profile, Parameter>,
            )
        })
}

pub(in crate::gleam_stdlib) enum DynamicSequence<'call> {
    List(HostList<'call, Dynamic>),
    Array(HostList<'call, Dynamic>),
}

#[cfg(test)]
mod tests {
    use super::host_provider;
    use crate::gleam_stdlib::GleamStdlibProfile;

    #[test]
    fn registers_the_exact_official_dynamic_provider_inventory() {
        let provider = host_provider::<GleamStdlibProfile>()
            .expect("official dynamic provider should register");

        assert_eq!(provider.package(), "gleam_stdlib");
        assert_eq!(provider.module(), "gleam/dynamic");
        assert_eq!(
            provider
                .external_types()
                .map(|schema| {
                    (
                        schema.package().as_str(),
                        schema.module().as_str(),
                        schema.name().as_str(),
                        schema.parameter_count(),
                    )
                })
                .collect::<Vec<_>>(),
            [("gleam_stdlib", "gleam/dynamic", "Dynamic", 0)],
        );
        assert_eq!(
            provider
                .functions()
                .map(|function| function.name().as_str())
                .collect::<Vec<_>>(),
            [
                "classify",
                "bool",
                "string",
                "float",
                "int",
                "bit_array",
                "list",
                "array",
                "cast",
            ],
        );
    }
}