perl-regex 0.13.2

Regex parsing and validation helpers for Perl syntax
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

use super::{capture::extract_named_captures, modifiers::describe_modifier};

pub(crate) fn hover_text_for_regex(pattern: &str, modifiers: &str) -> String {
    let mut parts = Vec::new();
    if !pattern.is_empty() {
        parts.push(format!("Regex: `{pattern}`"));
    }
    let captures = extract_named_captures(pattern);
    if !captures.is_empty() {
        parts.push("Named captures:".to_string());
        for cap in &captures {
            parts.push(format!("  ${{{}}} (capture {}): `{}`", cap.name, cap.index, cap.pattern));
        }
    }
    let mut seen = Vec::new();
    let mut notes = Vec::new();
    let mut unknown = Vec::new();
    for m in modifiers.chars() {
        if seen.contains(&m) {
            continue;
        }
        seen.push(m);
        if let Some(d) = describe_modifier(m) {
            notes.push(d);
        } else {
            unknown.push(m);
        }
    }
    if !notes.is_empty() {
        parts.push("Modifiers:".to_string());
        for n in notes {
            parts.push(format!("  {n}"));
        }
    }
    if !unknown.is_empty() {
        parts.push(format!("Unknown modifiers: `{}`", unknown.into_iter().collect::<String>()));
    }
    parts.join("\n")
}