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
134
135
136
137
138
139
140
141
142
143

use crate::runtime::ExecutableRuntimePlan;
use crate::runtime::error::{ExecutionResult, HostCallOrigin};
use crate::runtime::evaluated::{
    EvaluatedBitArrayFunction, EvaluatedBoolFunction, EvaluatedCustomFunction,
    EvaluatedCustomValue, EvaluatedExternalFunction, EvaluatedFloatFunction,
    EvaluatedFunctionFunction, EvaluatedFunctionValue, EvaluatedIntFunction, EvaluatedListFunction,
    EvaluatedNeverFunction, EvaluatedNilFunction, EvaluatedStringFunction, EvaluatedTupleFunction,
    EvaluatedUtfCodepointFunction, EvaluatedValue,
};
use crate::runtime::graph::RetainedValues;
use crate::runtime::state::RuntimeStateFor;

#[derive(Debug, Clone, PartialEq)]
pub(in crate::runtime) enum InvocableFunctionValue {
    Never(EvaluatedNeverFunction),
    Int(EvaluatedIntFunction),
    Float(EvaluatedFloatFunction),
    String(EvaluatedStringFunction),
    BitArray(EvaluatedBitArrayFunction),
    UtfCodepoint(EvaluatedUtfCodepointFunction),
    Custom(EvaluatedCustomFunction),
    External(EvaluatedExternalFunction),
    Bool(EvaluatedBoolFunction),
    Nil(EvaluatedNilFunction),
    Tuple(EvaluatedTupleFunction),
    List(EvaluatedListFunction),
    Function(EvaluatedFunctionFunction),
}

impl InvocableFunctionValue {
    pub(in crate::runtime) fn into_evaluated(self) -> EvaluatedFunctionValue {
        match self {
            Self::Never(function) => function.into(),
            Self::Int(function) => function.into(),
            Self::Float(function) => function.into(),
            Self::String(function) => function.into(),
            Self::BitArray(function) => function.into(),
            Self::UtfCodepoint(function) => function.into(),
            Self::Custom(function) => function.into(),
            Self::External(function) => function.into(),
            Self::Bool(function) => function.into(),
            Self::Nil(function) => function.into(),
            Self::Tuple(function) => function.into(),
            Self::List(function) => function.into(),
            Self::Function(function) => function.into(),
        }
    }
}

pub(in crate::runtime) fn invoke_callable<Plan: ExecutableRuntimePlan>(
    plan: &Plan,
    state: &mut RuntimeStateFor<'_, Plan>,
    function: InvocableFunctionValue,
    origin: HostCallOrigin,
    mut inputs: RetainedValues,
    arguments: Box<[EvaluatedValue]>,
) -> ExecutionResult<EvaluatedValue> {
    match function {
        InvocableFunctionValue::Never(function) => {
            inputs.append_captures(function.captures());
            super::run_never(plan, state, function.runtime_id(), origin, inputs)
                .map(|never| match never {})
        }
        InvocableFunctionValue::Int(function) => {
            inputs.append_captures(function.captures());
            super::run_int(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::Int)
        }
        InvocableFunctionValue::Float(function) => {
            inputs.append_captures(function.captures());
            super::run_float(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::Float)
        }
        InvocableFunctionValue::String(function) => {
            inputs.append_captures(function.captures());
            super::run_string(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::String)
        }
        InvocableFunctionValue::BitArray(function) => {
            inputs.append_captures(function.captures());
            super::run_bit_array(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::BitArray)
        }
        InvocableFunctionValue::UtfCodepoint(function) => {
            inputs.append_captures(function.captures());
            super::run_utf_codepoint(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::UtfCodepoint)
        }
        InvocableFunctionValue::Custom(function) => match function {
            EvaluatedCustomFunction::Function(function) => {
                inputs.append_captures(function.captures());
                super::run_custom(plan, state, function.runtime_id(), origin, inputs)
                    .map(EvaluatedValue::Custom)
            }
            EvaluatedCustomFunction::Constructor(function) => Ok(EvaluatedValue::Custom(
                EvaluatedCustomValue::from_fields(function.runtime_id(), arguments),
            )),
        },
        InvocableFunctionValue::External(function) => {
            inputs.append_captures(function.captures());
            super::run_external(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::External)
        }
        InvocableFunctionValue::Bool(function) => {
            inputs.append_captures(function.captures());
            super::run_bool(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::Bool)
        }
        InvocableFunctionValue::Nil(function) => {
            inputs.append_captures(function.captures());
            super::run_nil(plan, state, function.runtime_id(), origin, inputs)
                .map(|()| EvaluatedValue::Nil)
        }
        InvocableFunctionValue::Tuple(function) => {
            inputs.append_captures(function.captures());
            super::run_tuple(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::Tuple)
        }
        InvocableFunctionValue::List(function) => {
            inputs.append_captures(function.captures());
            super::run_list(plan, state, function.runtime_id(), origin, inputs)
                .map(EvaluatedValue::from)
        }
        InvocableFunctionValue::Function(function) => match function {
            EvaluatedFunctionFunction::Core(function) => {
                inputs.append_captures(function.captures());
                super::run_core_function(plan, state, function.runtime_id(), origin, inputs)
                    .map(EvaluatedValue::Function)
            }
            EvaluatedFunctionFunction::External(function) => {
                inputs.append_captures(function.captures());
                super::run_external_function_function(
                    plan,
                    state,
                    function.runtime_id(),
                    origin,
                    inputs,
                )
                .map(EvaluatedValue::Function)
            }
        },
    }
}