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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

use super::*;
use crate::helper::IdentifiersDisplay;

impl Display for BooleanNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        Display::fmt(&self.value, f)
    }
}

impl Debug for IdentifierNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        write!(f, "Identifier({:?}, {:?})", self.name, self.span.get_range())
    }
}

impl Display for IdentifierNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        f.write_str(self.name.as_str())
    }
}
impl Debug for NamePathNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        Debug::fmt(&IdentifiersDisplay::new(&self.path), f)
    }
}

impl Display for NamePathNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        Debug::fmt(self, f)
    }
}

#[cfg(feature = "pretty-print")]
impl PrettyPrint for IdentifierNode {
    fn pretty(&self, _: &PrettyProvider) -> PrettyTree {
        PrettyTree::text(self.name.to_string())
    }
}

impl Display for OutputNode {
    fn fmt(&self, f: &mut Formatter<'_>) -> core::fmt::Result {
        if self.count == 0 {
            f.write_str("%%")
        }
        else if self.count < 0 {
            write!(f, "%%{}", -self.count)
        }
        else {
            write!(f, "%{}", self.count)
        }
    }
}
#[cfg(feature = "pretty-print")]
impl PrettyPrint for OutputNode {
    fn pretty(&self, _: &PrettyProvider) -> PrettyTree {
        PrettyTree::text(self.to_string())
    }
}
#[cfg(feature = "lispify")]
impl Lispify for OutputNode {
    type Output = Lisp;

    fn lispify(&self) -> Self::Output {
        Lisp::symbol(self.to_string())
    }
}

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

    fn lispify(&self) -> Self::Output {
        Lisp::symbol(self.to_string())
    }
}
#[cfg(feature = "pretty-print")]
impl PrettyPrint for LambdaSlotNode {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        theme.keyword(format!("${}", self.item))
    }
}
#[cfg(feature = "pretty-print")]
impl PrettyPrint for NamePathNode {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        theme.join(self.path.clone(), "∷")
    }
}
#[cfg(feature = "lispify")]
impl Lispify for NamePathNode {
    type Output = Lisp;

    fn lispify(&self) -> Self::Output {
        Lisp::symbol(self.to_string())
    }
}

impl BooleanNode {
    /// Returns the string representation of the boolean value.
    pub fn as_str(&self) -> &'static str {
        match self.value {
            true => "true",
            false => "false",
        }
    }
}

#[cfg(feature = "pretty-print")]
impl PrettyPrint for BooleanNode {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        theme.keyword(self.as_str())
    }
}
#[cfg(feature = "lispify")]
impl Lispify for BooleanNode {
    type Output = Lisp;

    fn lispify(&self) -> Self::Output {
        Lisp::symbol(self.as_str())
    }
}
impl NullNode {
    /// Returns the string representation of the null value.
    pub fn as_str(&self) -> &'static str {
        match self.nil {
            true => "nil",
            false => "null",
        }
    }
}
#[cfg(feature = "pretty-print")]
impl PrettyPrint for NullNode {
    fn pretty(&self, theme: &PrettyProvider) -> PrettyTree {
        theme.keyword(self.as_str())
    }
}

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

    fn lispify(&self) -> Self::Output {
        Lisp::symbol(self.as_str())
    }
}