scryer-prolog 0.8.102

A modern Prolog implementation written mostly in Rust.
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

use l3::and_stack::*;
use l3::ast::*;

use std::vec::Vec;

#[derive(Clone, Copy)]
pub enum HeapCellView<'a> {
    Str(usize, &'a Atom),
    HeapVar(usize),
    StackVar(usize, usize)
}

pub struct HeapCellViewer<'a> {
    heap: &'a Heap,
    and_stack: &'a AndStack,
    state_stack: Vec<Addr>
}

impl<'a> HeapCellViewer<'a> {
    pub fn new(heap: &'a Heap, and_stack: &'a AndStack, focus: Addr) -> Self {
        HeapCellViewer {
            heap: heap,
            and_stack: and_stack,
            state_stack: vec![focus]
        }
    }

    fn follow_stack_ref(&mut self, mut fr: usize, mut sc: usize) -> HeapCellView<'a>
    {
        loop {
            match self.and_stack[fr][sc] {
                Addr::HeapCell(hc) | Addr::Str(hc) =>
                    return self.follow_heap_ref(hc),
                Addr::StackCell(fr1, sc1) => {
                    if fr1 == fr && sc1 == sc {
                        return HeapCellView::StackVar(fr, sc);
                    }

                    fr = fr1; sc = sc1;
                }
            }
        }
    }

    fn follow_heap_ref(&mut self, mut focus: usize) -> HeapCellView<'a> {
        loop {
            match &self.heap[focus] {
                &HeapCellValue::NamedStr(arity, ref name) => {
                    for i in (1 .. arity + 1).rev() {
                        self.state_stack.push(Addr::HeapCell(focus + i));
                    }

                    return HeapCellView::Str(arity, name);
                },
                &HeapCellValue::Ref(Ref::HeapCell(hc)) => {
                    if focus == hc {
                        return HeapCellView::HeapVar(hc);
                    } else {
                        focus = hc;
                    }
                },
                &HeapCellValue::Ref(Ref::StackCell(fr, sc)) =>
                    return self.follow_stack_ref(fr, sc),
                &HeapCellValue::Str(cell_num) =>
                    focus = cell_num,
            }
        }
    }
}

impl<'a> Iterator for HeapCellViewer<'a> {
    type Item = HeapCellView<'a>;

    fn next(&mut self) -> Option<Self::Item> {
        if let Some(addr) = self.state_stack.pop() {
            match addr {
                Addr::HeapCell(hc) | Addr::Str(hc) =>
                    return Some(self.follow_heap_ref(hc)),
                Addr::StackCell(fr, sc) =>
                    return Some(self.follow_stack_ref(fr, sc))
            }
        }

        None
    }
}