harn-vm 0.8.153

Async bytecode virtual machine for the Harn programming language
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

use std::path::{Component, Path, PathBuf};

use sha2::{Digest, Sha256};

#[derive(Debug, Clone, PartialEq, Eq)]
pub struct CompilerInput {
    pub logical_path: String,
    pub disk_path: PathBuf,
}

pub fn compiler_inputs(manifest_dir: &Path) -> Vec<CompilerInput> {
    let crates_dir = manifest_dir.parent().expect("crate dir has a parent");
    let mut inputs = Vec::new();

    let roots = [
        (crates_dir.join("harn-lexer").join("src"), "harn-lexer/src"),
        (
            crates_dir.join("harn-parser").join("src"),
            "harn-parser/src",
        ),
        (crates_dir.join("harn-ir").join("src"), "harn-ir/src"),
        (
            manifest_dir.join("src").join("compiler"),
            "harn-vm/src/compiler",
        ),
    ];
    for (root, logical_prefix) in roots {
        collect_rs_files(&root, logical_prefix, &mut inputs);
    }

    let chunk = manifest_dir.join("src").join("chunk.rs");
    if chunk.is_file() {
        inputs.push(CompilerInput {
            logical_path: "harn-vm/src/chunk.rs".to_string(),
            disk_path: chunk,
        });
    }

    inputs.sort_by(|left, right| left.logical_path.cmp(&right.logical_path));
    inputs
}

pub fn watch_roots(manifest_dir: &Path) -> Vec<PathBuf> {
    let crates_dir = manifest_dir.parent().expect("crate dir has a parent");
    vec![
        crates_dir.join("harn-lexer").join("src"),
        crates_dir.join("harn-parser").join("src"),
        crates_dir.join("harn-ir").join("src"),
        manifest_dir.join("src").join("compiler"),
    ]
}

pub fn fingerprint_inputs(inputs: &[CompilerInput]) -> String {
    let mut hasher = Sha256::new();
    for input in inputs {
        hasher.update(input.logical_path.as_bytes());
        hasher.update([0u8]);
        if let Ok(bytes) = std::fs::read(&input.disk_path) {
            hasher.update(&bytes);
        }
    }
    let digest = hasher.finalize();
    digest.iter().map(|byte| format!("{byte:02x}")).collect()
}

fn collect_rs_files(root: &Path, logical_prefix: &str, out: &mut Vec<CompilerInput>) {
    collect_rs_files_under(root, root, logical_prefix, out);
}

fn collect_rs_files_under(
    root: &Path,
    dir: &Path,
    logical_prefix: &str,
    out: &mut Vec<CompilerInput>,
) {
    let Ok(entries) = std::fs::read_dir(dir) else {
        return;
    };
    for entry in entries.flatten() {
        let path = entry.path();
        if path.is_dir() {
            collect_rs_files_under(root, &path, logical_prefix, out);
        } else if path.extension().is_some_and(|ext| ext == "rs") {
            let relative = path.strip_prefix(root).unwrap_or(path.as_path());
            out.push(CompilerInput {
                logical_path: format!("{logical_prefix}/{}", normalize_path(relative)),
                disk_path: path,
            });
        }
    }
}

fn normalize_path(path: &Path) -> String {
    path.components()
        .filter_map(|component| match component {
            Component::Normal(segment) => Some(segment.to_string_lossy().into_owned()),
            _ => None,
        })
        .collect::<Vec<_>>()
        .join("/")
}