geam-core 0.2.3

Typed Gleam planning, host, and execution core for Geam
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

use super::input::EmbeddingListInput;
use super::output::EmbeddingOutput;
use crate::runtime::retained_list::RetainedList;
use crate::runtime::state::list::StoredListValueId;

pub(crate) struct EmbeddingList {
    retained: RetainedList<StoredListValueId>,
}

impl EmbeddingList {
    pub(super) fn new(value: StoredListValueId) -> Self {
        Self {
            retained: RetainedList::new(value),
        }
    }

    pub(crate) fn len(&self) -> usize {
        self.retained.len()
    }

    pub(crate) fn item(&self, index: usize) -> Option<EmbeddingOutput> {
        self.retained.item(index).map(EmbeddingOutput::from_value)
    }

    pub(crate) fn input(&self) -> EmbeddingListInput {
        EmbeddingListInput(self.retained.handle().clone())
    }

    #[cfg(test)]
    pub(crate) fn item_reads(&self) -> usize {
        self.retained.item_reads()
    }
}

#[cfg(test)]
mod tests {
    use super::EmbeddingList;
    use crate::runtime::state::list::{RuntimeListStorage, StoredListValueId};

    #[test]
    fn retained_input_preserves_the_exact_allocation_without_reading_items() {
        let plan = crate::runtime::plan_src("pub fn main() -> List(Int) { [1, 2] }");
        let mut storage = RuntimeListStorage::default();
        let allocation: StoredListValueId = storage
            .int(
                plan.int_list_function_id(0).type_id(),
                vec![1.into(), 2.into()],
            )
            .into();
        let value = EmbeddingList::new(allocation.clone());
        let input = value.input();

        assert_eq!(input.0, allocation);
        assert_eq!(value.item_reads(), 0);
        drop(allocation);
        drop(storage);
        assert_eq!(value.len(), 2);
        assert_eq!(value.item_reads(), 0);
        assert_eq!(value.item(1).expect("second item").take_int(), 2.into());
        assert_eq!(value.item_reads(), 1);
        drop(value);
        let retained = EmbeddingList::new(input.0);
        assert_eq!(retained.len(), 2);
        assert_eq!(retained.item(0).expect("first item").take_int(), 1.into());
    }
}