knave 0.12.13

A Lisp programming language for humans and agents that infers types and ownership and compiles to readable Rust
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

use rustc_hash::FxHashSet;

use crate::core::BindingId;
use crate::types::{
    TypedBinder, TypedExpr, TypedExprKind, TypedLambda, TypedModule, TypedProgram, TypedSource,
};

pub struct LambdaSource {
    program: TypedProgram,
}

impl LambdaSource {
    pub fn new(text: &str) -> Self {
        Self {
            program: TypedSource::expand(text).typed(),
        }
    }

    pub fn program(&self) -> &TypedProgram {
        &self.program
    }

    pub fn modules_mut(&mut self) -> &mut [TypedModule] {
        &mut self.program.modules
    }

    pub fn lambda(&self, name: &str) -> &TypedLambda {
        match &self.bound_value(name).kind {
            TypedExprKind::Fn(lambda) => lambda,
            _ => panic!("`{name}` is bound to a lambda"),
        }
    }

    pub fn binder(&self, name: &str) -> &TypedBinder {
        self.let_bound(name).0
    }

    pub fn names(&self, bindings: &FxHashSet<BindingId>) -> FxHashSet<&str> {
        bindings.iter().map(|binding| self.name(*binding)).collect()
    }

    fn bound_value(&self, name: &str) -> &TypedExpr {
        self.let_bound(name).1
    }

    fn let_bound(&self, name: &str) -> (&TypedBinder, &TypedExpr) {
        self.program
            .modules
            .iter()
            .filter(|module| module.id == self.program.entry)
            .flat_map(|module| &module.definitions)
            .flat_map(|definition| definition.value.let_bindings())
            .find(|(binder, _)| self.name(binder.binding) == name)
            .unwrap_or_else(|| panic!("the source binds `{name}` with `local`"))
    }

    fn name(&self, binding: BindingId) -> &str {
        self.program.bindings.get(binding).name()
    }
}