harn-cli 0.10.48

CLI for the Harn programming language — run, test, REPL, format, and lint
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

//! Shared fixtures for the lock-file tests.

use crate::package::*;

pub(super) fn write_tar_gz_package_archive(root: &Path, archive_path: &Path) {
    fn append_files(
        builder: &mut tar::Builder<flate2::write::GzEncoder<File>>,
        root: &Path,
        cursor: &Path,
    ) {
        let mut entries = fs::read_dir(cursor)
            .unwrap()
            .map(|entry| entry.unwrap().path())
            .collect::<Vec<_>>();
        entries.sort();
        for path in entries {
            if path.is_dir() {
                append_files(builder, root, &path);
            } else {
                let relative = path.strip_prefix(root).unwrap();
                builder.append_path_with_name(&path, relative).unwrap();
            }
        }
    }

    let file = File::create(archive_path).unwrap();
    let encoder = flate2::write::GzEncoder::new(file, flate2::Compression::default());
    let mut builder = tar::Builder::new(encoder);
    append_files(&mut builder, root, root);
    let encoder = builder.into_inner().unwrap();
    encoder.finish().unwrap();
}