perl-corpus 0.13.3

Test corpus management and generators for Perl parsers
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

use std::collections::HashMap;

pub(crate) fn slugify_title(title: &str) -> String {
    let mut slug = String::new();
    let mut last_dash = false;

    for ch in title.chars() {
        let ch = ch.to_ascii_lowercase();
        if ch.is_ascii_alphanumeric() {
            slug.push(ch);
            last_dash = false;
        } else if !last_dash && !slug.is_empty() {
            slug.push('-');
            last_dash = true;
        }
    }

    while slug.ends_with('-') {
        slug.pop();
    }

    slug
}

pub(crate) fn make_section_id(
    id: &str,
    file_stem: &str,
    title: &str,
    section_index: usize,
    auto_ids: &mut HashMap<String, usize>,
) -> String {
    if !id.is_empty() {
        return id.to_string();
    }

    let title_slug = slugify_title(title);
    let base = if title_slug.is_empty() { format!("section-{section_index}") } else { title_slug };
    let base_id = format!("{file_stem}.{base}");
    let count = auto_ids.entry(base_id.clone()).or_insert(0);
    let generated = if *count == 0 { base_id } else { format!("{base_id}-{}", *count + 1) };
    *count += 1;
    generated
}