amaru-uplc 0.1.0

A UPLC Evaluator as a CEK machine
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

use bumpalo::collections::CollectIn;
use bumpalo::collections::Vec as BumpVec;

use crate::arena::Arena;
use crate::{binder::Eval, term::Term};

use super::{env::Env, value::Value};

pub fn value_as_term<'a, V>(arena: &'a Arena, value: &'a Value<'a, V>) -> &'a Term<'a, V>
where
    V: Eval<'a>,
{
    match value {
        Value::Con(x) => arena.alloc(Term::Constant(x)),
        Value::Builtin(runtime) => {
            let mut term = Term::builtin(arena, runtime.fun);

            for _ in 0..runtime.forces {
                term = term.force(arena);
            }

            for arg in &runtime.args {
                term = term.apply(arena, value_as_term(arena, arg));
            }

            term
        }
        Value::Delay(body, env) => with_env(arena, 0, env, body.delay(arena)),
        Value::Lambda {
            parameter,
            body,
            env,
        } => with_env(arena, 0, env, body.lambda(arena, parameter)),
        Value::Constr(tag, fields) => {
            let fields: BumpVec<'_, _> = fields
                .iter()
                .map(|value| value_as_term(arena, value))
                .collect_in(arena.as_bump());

            let fields = arena.alloc(fields);

            Term::constr(arena, *tag, fields)
        }
    }
}

fn with_env<'a, V>(
    arena: &'a Arena,
    lam_cnt: usize,
    env: &'a Env<'a, V>,
    term: &'a Term<'a, V>,
) -> &'a Term<'a, V>
where
    V: Eval<'a>,
{
    match term {
        Term::Var(name) => {
            let index = name.index();

            if lam_cnt >= index {
                Term::var(arena, name)
            } else {
                env.lookup(index - lam_cnt).map_or_else(
                    || Term::var(arena, *name),
                    |value| value_as_term(arena, value),
                )
            }
        }
        Term::Lambda { parameter, body } => {
            let body = with_env(arena, lam_cnt + 1, env, body);

            body.lambda(arena, *parameter)
        }
        Term::Apply { function, argument } => {
            let function = with_env(arena, lam_cnt, env, function);
            let argument = with_env(arena, lam_cnt, env, argument);

            function.apply(arena, argument)
        }

        Term::Delay(x) => {
            let body = with_env(arena, lam_cnt, env, x);

            body.delay(arena)
        }
        Term::Force(x) => {
            let body = with_env(arena, lam_cnt, env, x);

            body.force(arena)
        }
        rest => rest,
    }
}