1
use crate::errors::RecoverableParseError;
2
use crate::parser::traversal::WalkDFS;
3
use capitalize::Capitalize;
4
use std::collections::HashSet;
5
use tree_sitter::Node;
6

            
7
690
pub fn detect_syntactic_errors(
8
690
    source: &str,
9
690
    tree: &tree_sitter::Tree,
10
690
    errors: &mut Vec<RecoverableParseError>,
11
690
) {
12
690
    let mut malformed_lines_reported = HashSet::new();
13

            
14
690
    let root_node = tree.root_node();
15
15332
    let retract: &dyn Fn(&tree_sitter::Node) -> bool = &|node: &tree_sitter::Node| {
16
15332
        node.is_missing() || node.is_error() || node.start_position() == node.end_position()
17
15332
    };
18

            
19
15332
    for node in WalkDFS::with_retract(&root_node, &retract) {
20
15332
        if node.start_position() == node.end_position() {
21
145
            errors.push(classify_missing_token(node));
22
145
            continue;
23
15187
        }
24
15187
        if node.is_error() {
25
875
            let line = node.start_position().row;
26
            // If this line has already been reported as malformed, skip all error nodes on this line
27
875
            if malformed_lines_reported.contains(&line) {
28
286
                continue;
29
589
            }
30
589
            if is_malformed_line_error(&node, source) {
31
179
                malformed_lines_reported.insert(line);
32
179
                let start_byte = node.start_byte();
33
179
                let end_byte = node.end_byte();
34

            
35
179
                let last_char = source.lines().nth(line).map_or(0, |l| l.len());
36
179
                errors.push(RecoverableParseError::new(
37
179
                    format!(
38
                        "Malformed line {}: '{}'",
39
179
                        line + 1,
40
179
                        source.lines().nth(line).unwrap_or("")
41
                    ),
42
179
                    Some(tree_sitter::Range {
43
179
                        start_byte,
44
179
                        end_byte,
45
179
                        start_point: tree_sitter::Point {
46
179
                            row: line,
47
179
                            column: 0,
48
179
                        },
49
179
                        end_point: tree_sitter::Point {
50
179
                            row: line,
51
179
                            column: last_char,
52
179
                        },
53
179
                    }),
54
                ));
55
179
                continue;
56
410
            } else {
57
410
                errors.push(classify_unexpected_token_error(node, source));
58
410
            }
59
410
            continue;
60
14312
        }
61
    }
62
690
}
63

            
64
/// Classifies a missing token node and generates a diagnostic with a context-aware message.
65
145
fn classify_missing_token(node: Node) -> RecoverableParseError {
66
145
    let start = node.start_position();
67
145
    let end = node.end_position();
68

            
69
145
    let message = if let Some(parent) = node.parent() {
70
145
        match parent.kind() {
71
145
            "letting_statement" => "Missing Expression or Domain".to_string(),
72
123
            _ => format!("Missing {}", user_friendly_token_name(node.kind(), false)),
73
        }
74
    } else {
75
        format!("Missing {}", user_friendly_token_name(node.kind(), false))
76
    };
77

            
78
145
    RecoverableParseError::new(
79
145
        message,
80
145
        Some(tree_sitter::Range {
81
145
            start_byte: node.start_byte(),
82
145
            end_byte: node.end_byte(),
83
145
            start_point: start,
84
145
            end_point: end,
85
145
        }),
86
    )
87
145
}
88

            
89
/// Classifies an unexpected token error node and generates a diagnostic.
90
410
fn classify_unexpected_token_error(node: Node, source_code: &str) -> RecoverableParseError {
91
410
    let message = if let Some(parent) = node.parent() {
92
410
        let start_byte = node.start_byte().min(source_code.len());
93
410
        let end_byte = node.end_byte().min(source_code.len());
94
410
        let src_token = &source_code[start_byte..end_byte];
95

            
96
410
        if parent.kind() == "program"
97
        // ERROR node is the direct child of the root node
98
        {
99
            // A case where the unexpected token is at the end of a valid statement
100
168
            format!("Unexpected {}", src_token)
101
            // }
102
        } else {
103
            // Unexpected token inside a construct
104
242
            format!(
105
                "Unexpected {} inside {}",
106
                src_token,
107
242
                user_friendly_token_name(parent.kind(), true)
108
            )
109
        }
110
    } else {
111
        // Should never happen since an ERROR node would always have a parent.
112
        "Unexpected token".to_string()
113
    };
114

            
115
410
    RecoverableParseError::new(
116
410
        message,
117
410
        Some(tree_sitter::Range {
118
410
            start_byte: node.start_byte(),
119
410
            end_byte: node.end_byte(),
120
410
            start_point: node.start_position(),
121
410
            end_point: node.end_position(),
122
410
        }),
123
    )
124
410
}
125

            
126
/// Determines if an error node represents a malformed line error.
127
591
fn is_malformed_line_error(node: &tree_sitter::Node, source: &str) -> bool {
128
591
    if node.start_position().column == 0 || error_node_out_of_range(node, source) {
129
181
        return true;
130
410
    }
131
410
    let parent = node.parent();
132
410
    let grandparent = parent.and_then(|n| n.parent());
133
410
    let root = grandparent.and_then(|n| n.parent());
134

            
135
410
    if let (Some(parent), Some(grandparent), Some(root)) = (parent, grandparent, root) {
136
220
        parent.kind() == "set_operation_bool"
137
            && grandparent.kind() == "bool_expr"
138
            && root.kind() == "program"
139
    } else {
140
190
        false
141
    }
142
591
}
143

            
144
/// Coverts a token name into a more user-friendly format for error messages.
145
/// Removes underscores, replaces certain keywords with more natural language, and adds appropriate articles.
146
371
fn user_friendly_token_name(token: &str, article: bool) -> String {
147
371
    let capitalized = if token.contains("atom") {
148
22
        "Expression".to_string()
149
349
    } else if token == "COLON" {
150
24
        ":".to_string()
151
    } else {
152
325
        let friendly_name = token
153
325
            .replace("literal", "")
154
325
            .replace("int", "Integer")
155
325
            .replace("expr", "Expression")
156
325
            .replace('_', " ");
157
325
        friendly_name
158
325
            .split_whitespace()
159
582
            .map(|word| word.capitalize())
160
325
            .collect::<Vec<_>>()
161
325
            .join(" ")
162
    };
163

            
164
371
    if !article {
165
127
        return capitalized;
166
244
    }
167
244
    let first_char = capitalized.chars().next().unwrap();
168
244
    let article = match first_char.to_ascii_lowercase() {
169
68
        'a' | 'e' | 'i' | 'o' | 'u' => "an",
170
176
        _ => "a",
171
    };
172
244
    format!("{} {}", article, capitalized)
173
371
}
174

            
175
/// Returns true if the node's start or end column is out of range for its line in the source.
176
547
fn error_node_out_of_range(node: &tree_sitter::Node, source: &str) -> bool {
177
547
    let lines: Vec<&str> = source.lines().collect();
178
547
    let start = node.start_position();
179
547
    let end = node.end_position();
180

            
181
547
    let start_line_len = lines.get(start.row).map_or(0, |l| l.len());
182
547
    let end_line_len = lines.get(end.row).map_or(0, |l| l.len());
183

            
184
547
    (start.column > start_line_len) || (end.column > end_line_len)
185
547
}
186

            
187
#[cfg(test)]
188
mod test {
189

            
190
    use super::{detect_syntactic_errors, is_malformed_line_error, user_friendly_token_name};
191
    use crate::errors::RecoverableParseError;
192
    use crate::{parser::traversal::WalkDFS, util::get_tree};
193

            
194
    /// Helper function for tests to compare the actual error with the expected one.
195
2
    fn assert_essence_parse_error_eq(a: &RecoverableParseError, b: &RecoverableParseError) {
196
2
        assert_eq!(a.msg, b.msg, "error messages differ");
197
2
        assert_eq!(a.range, b.range, "error ranges differ");
198
2
    }
199

            
200
    #[test]
201
2
    fn malformed_line() {
202
2
        let source = " a,a,b: int(1..3)";
203
2
        let (tree, _) = get_tree(source).expect("Should parse");
204
2
        let root_node = tree.root_node();
205

            
206
2
        let error_node = WalkDFS::with_retract(&root_node, &|_node| false)
207
26
            .find(|node| node.is_error())
208
2
            .expect("Should find an error node");
209

            
210
2
        assert!(is_malformed_line_error(&error_node, source));
211
2
    }
212

            
213
    #[test]
214
2
    fn user_friendly_token_name_article() {
215
2
        assert_eq!(
216
2
            user_friendly_token_name("int_domain", false),
217
            "Integer Domain"
218
        );
219
2
        assert_eq!(
220
2
            user_friendly_token_name("int_domain", true),
221
            "an Integer Domain"
222
        );
223
        // assert_eq!(user_friendly_token_name("atom", true), "an Expression");
224
2
        assert_eq!(user_friendly_token_name("COLON", false), ":");
225
2
    }
226

            
227
    #[test]
228
2
    fn missing_domain() {
229
2
        let source = "find x:";
230
2
        let (tree, _) = get_tree(source).expect("Should parse");
231
2
        let mut errors = vec![];
232
2
        detect_syntactic_errors(source, &tree, &mut errors);
233
2
        assert_eq!(errors.len(), 1, "Expected exactly one diagnostic");
234

            
235
2
        let error = &errors[0];
236

            
237
2
        assert_essence_parse_error_eq(
238
2
            error,
239
2
            &RecoverableParseError::new(
240
2
                "Missing Domain".to_string(),
241
2
                Some(tree_sitter::Range {
242
2
                    start_byte: 7,
243
2
                    end_byte: 7,
244
2
                    start_point: tree_sitter::Point { row: 0, column: 7 },
245
2
                    end_point: tree_sitter::Point { row: 0, column: 7 },
246
2
                }),
247
2
            ),
248
        );
249
2
    }
250
}