valkyrie-ast 0.1.12

Strong typed abstract syntax tree of valkyrie language
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

use super::*;

impl PrettyPrint for GuardStatement {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        let mut terms = PrettySequence::new(10);
        terms += theme.keyword("guard");
        terms += " ";
        terms += self.condition.pretty(theme);
        terms += " ";
        terms += self.main_body.pretty(theme);
        terms.into()
    }
}

#[cfg(feature = "lispify")]
impl Lispify for GuardStatement {
    type Output = Lisp;

    fn lispify(&self) -> Self::Output {
        let mut lisp = Lisp::new(4);

        match &self.main_body {
            GuardPattern::Expression(v) => {
                lisp += Lisp::keyword("guard/positive");
                lisp += self.condition.lispify();
                lisp += v.lispify()
            }
            GuardPattern::List(v) => {
                lisp += Lisp::keyword("guard/negative");
                lisp += self.condition.lispify();
                lisp.extend(v.body.terms.iter().map(|s| s.lispify()));
            }
            GuardPattern::Dict(v) => {
                lisp += Lisp::keyword("guard/negative");
                lisp += self.condition.lispify();
                lisp.extend(v.body.terms.iter().map(|s| s.lispify()));
            }
        }
        lisp
    }
}

impl PrettyPrint for GuardPattern {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        match self {
            Self::Expression(node) => node.pretty(theme),
            Self::List(node) => node.pretty(theme),
            Self::Dict(node) => node.pretty(theme),
        }
    }
}