perl-corpus 0.15.2

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

use crate::meta::Section;
use anyhow::Result;
use serde::Serialize;
use std::{fs, path::Path};

#[derive(Serialize)]
struct IndexEntry<'a> {
    id: &'a str,
    file: &'a str,
    title: &'a str,
    tags: &'a [String],
    perl: &'a Option<String>,
    flags: &'a [String],
}

pub(super) fn write_flat_index(dir: &Path, sections: &[Section]) -> Result<()> {
    let index: Vec<IndexEntry> = sections
        .iter()
        .map(|section| IndexEntry {
            id: &section.id,
            file: &section.file,
            title: &section.title,
            tags: &section.tags,
            perl: &section.perl,
            flags: &section.flags,
        })
        .collect();

    let idx_path = dir.join("_index.json");
    fs::write(&idx_path, serde_json::to_vec_pretty(&index)?)?;

    Ok(())
}