vb6parse 1.2.1

vb6parse is a library for parsing and analyzing VB6 code, from projects, to controls, to modules, and forms.
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
52
53
54
55
56
57
58

use vb6parse::ConcreteSyntaxTree;

fn overlaps(start_a: u32, end_a: u32, start_b: u32, end_b: u32) -> bool {
    start_a < end_b && start_b < end_a
}

#[test]
fn recovery_events_align_with_error_recovery_nodes() {
    let source = r"
Property Get Name() As String
    Name = m_name
End Sub
Function NextFunction() As String
    NextFunction = Name
End Function
";

    let result = ConcreteSyntaxTree::from_text("test.bas", source);
    let (cst_opt, _failures, recovery_events) = result.unpack_with_recovery();

    let cst = cst_opt.expect("CST should be present even with syntax recovery.");
    let ranges = cst.error_recovery_ranges();

    assert_eq!(
        ranges.len(),
        recovery_events.len(),
        "Each recovery event should produce exactly one ErrorRecovery CST node."
    );

    for event in &recovery_events {
        let event_start = event.span.offset;
        let event_end = event.span.offset.saturating_add(event.span.length.max(1));

        assert!(
            ranges
                .iter()
                .any(|range| overlaps(event_start, event_end, range.start, range.end)),
            "Recovery event at offset {} should overlap an ErrorRecovery node range.",
            event.span.offset
        );
    }
}

#[test]
fn no_recovery_events_for_clean_source() {
    let source = r"
Function Calculate(x As Integer) As Integer
    Calculate = x * 2
End Function
";

    let result = ConcreteSyntaxTree::from_text("clean.bas", source);
    let (cst_opt, _failures, recovery_events) = result.unpack_with_recovery();

    let cst = cst_opt.expect("CST should be present.");
    assert!(cst.error_recovery_ranges().is_empty());
    assert!(recovery_events.is_empty());
}