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

use std::cell::{Cell};
use std::vec::{Vec};

pub type Var = String;

pub type Atom = String;

#[derive(Debug)]
pub enum TopLevel {
    Fact(Term),
    Query(Term)
}

#[derive(Debug)]
pub enum Term {
    Atom(Cell<usize>, Atom),
    Clause(Cell<usize>, Atom, Vec<Box<Term>>),
    Var(Cell<usize>, Var)
}

pub enum FactInstruction {
    GetStructure(Atom, usize, usize),
    UnifyVariable(usize),
    UnifyValue(usize)
}

pub enum QueryInstruction {    
    PutStructure(Atom, usize, usize),
    SetVariable(usize),
    SetValue(usize),    
}

pub type CompiledFact = Vec<FactInstruction>;

pub type CompiledQuery = Vec<QueryInstruction>;

#[derive(Clone, Copy, PartialEq)]
pub enum Addr {
    HeapCell(usize),
    RegNum(usize)
}

impl Term {
    pub fn set_cell(&self, cell_num: usize) {
        match self {
            &Term::Atom(ref cell, _) => cell.set(cell_num),
            &Term::Clause(ref cell, _, _) => cell.set(cell_num),
            &Term::Var(ref cell, _) => cell.set(cell_num)
        };
    }
}