perl-lsp-diagnostics 0.12.2

LSP diagnostics provider for Perl
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
59
60
61
62
63
64
65

//! Heredoc anti-pattern detection diagnostics

use perl_diagnostics_codes::DiagnosticCode;
use perl_heredoc_anti_patterns::{AntiPattern, AntiPatternDetector, Severity};
use perl_lsp_diagnostic_types::{Diagnostic, DiagnosticSeverity};

/// Detect heredoc anti-patterns in Perl source code.
///
/// Returns diagnostics for problematic heredoc patterns (eval strings,
/// dynamic delimiters, format blocks, etc.)
pub fn detect_heredoc_antipatterns(source: &str) -> Vec<Diagnostic> {
    let detector = AntiPatternDetector::new();
    let raw = detector.detect_all(source);

    raw.into_iter()
        .map(|d| {
            let offset = extract_offset(&d.pattern);
            let end_offset = (offset + 1).min(source.len());

            let severity = match d.severity {
                Severity::Error => DiagnosticSeverity::Error,
                Severity::Warning => DiagnosticSeverity::Warning,
                Severity::Info => DiagnosticSeverity::Information,
            };

            let code = antipattern_code(&d.pattern);

            Diagnostic {
                range: (offset, end_offset),
                severity,
                code: Some(code.to_string()),
                message: d.message,
                related_information: Vec::new(),
                tags: Vec::new(),
                suggestion: d.suggested_fix,
            }
        })
        .collect()
}

fn extract_offset(pattern: &AntiPattern) -> usize {
    match pattern {
        AntiPattern::FormatHeredoc { location, .. }
        | AntiPattern::BeginTimeHeredoc { location, .. }
        | AntiPattern::DynamicHeredocDelimiter { location, .. }
        | AntiPattern::SourceFilterHeredoc { location, .. }
        | AntiPattern::RegexCodeBlockHeredoc { location, .. }
        | AntiPattern::EvalStringHeredoc { location, .. }
        | AntiPattern::TiedHandleHeredoc { location, .. } => location.offset,
    }
}

fn antipattern_code(pattern: &AntiPattern) -> &'static str {
    match pattern {
        AntiPattern::FormatHeredoc { .. } => DiagnosticCode::HeredocInFormat.as_str(),
        AntiPattern::BeginTimeHeredoc { .. } => DiagnosticCode::HeredocInBegin.as_str(),
        AntiPattern::DynamicHeredocDelimiter { .. } => {
            DiagnosticCode::HeredocDynamicDelimiter.as_str()
        }
        AntiPattern::SourceFilterHeredoc { .. } => DiagnosticCode::HeredocInSourceFilter.as_str(),
        AntiPattern::RegexCodeBlockHeredoc { .. } => DiagnosticCode::HeredocInRegexCode.as_str(),
        AntiPattern::EvalStringHeredoc { .. } => DiagnosticCode::HeredocInEval.as_str(),
        AntiPattern::TiedHandleHeredoc { .. } => DiagnosticCode::HeredocTiedHandle.as_str(),
    }
}