hara-native 0.1.13

HAL-free native host runtime and package launcher for Hara
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

use crate::core::Value;
use crate::lang::data::Keyword;

pub(super) fn string<'a>(
    arguments: &'a [Value],
    index: usize,
    operation: &str,
) -> Result<&'a str, String> {
    match arguments.get(index) {
        Some(Value::String(value)) => Ok(value),
        _ => Err(format!(
            "foundation.kernel/{operation} expects string arguments"
        )),
    }
}

pub(super) fn optional_string<'a>(
    arguments: &'a [Value],
    index: usize,
    operation: &str,
) -> Result<Option<&'a str>, String> {
    match arguments.get(index) {
        None | Some(Value::Nil) => Ok(None),
        Some(Value::String(value)) => Ok(Some(value)),
        _ => Err(format!(
            "foundation.kernel/{operation} expects an optional string argument"
        )),
    }
}

pub(super) fn boolean(arguments: &[Value], index: usize, operation: &str) -> Result<bool, String> {
    match arguments.get(index) {
        Some(Value::Bool(value)) => Ok(*value),
        _ => Err(format!(
            "foundation.kernel/{operation} expects a boolean argument"
        )),
    }
}

pub(super) fn strings(
    arguments: &[Value],
    index: usize,
    operation: &str,
) -> Result<Vec<String>, String> {
    match arguments.get(index) {
        Some(Value::Vector(values)) => values
            .iter()
            .map(|value| match value {
                Value::String(value) => Ok(value.clone()),
                _ => Err(format!(
                    "foundation.kernel/{operation} expects vectors of strings"
                )),
            })
            .collect(),
        _ => Err(format!(
            "foundation.kernel/{operation} expects a vector argument"
        )),
    }
}

pub(super) fn tap_value(tap: &crate::tap::Tap) -> Value {
    Value::Map(
        [
            (keyword("name"), Value::String(tap.name.clone())),
            (keyword("registry"), strings_value(tap.registry.clone())),
            (keyword("identity"), strings_value(tap.identity.clone())),
            (
                keyword("identity-key"),
                Value::String(tap.identity_key.clone()),
            ),
            (
                keyword("trust"),
                keyword(match tap.trust {
                    crate::tap::TrustMode::SignedRoot => "signed-root",
                    crate::tap::TrustMode::GithubGoverned => "github-governed",
                }),
            ),
        ]
        .into_iter()
        .collect(),
    )
}

pub(super) fn keyword(name: &str) -> Value {
    Value::Keyword(Keyword::from(name))
}

pub(super) fn strings_value(values: Vec<String>) -> Value {
    Value::Vector(values.into_iter().map(Value::String).collect())
}