harn-cli 0.10.160

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

//! Project canonical history positions from their owning VM schema.

use super::records::{FieldKind, Integer, Target};
use super::schema_records::SchemaRecords;

pub(super) fn schema() -> serde_json::Value {
    harn_vm::agent_sessions::canonical_history_boundaries_schema()
}

pub(super) fn append(out: &mut String, target: Target) {
    let mut schema = schema();
    let root = schema.clone();
    schema["$defs"]["CanonicalHistoryBoundaries"] = root;
    let names = [
        (
            "CanonicalSessionBoundary",
            "HarnCanonicalSessionBoundary".into(),
        ),
        (
            "CanonicalHistoryPosition",
            "HarnCanonicalHistoryPosition".into(),
        ),
        (
            "CanonicalHistoryBoundaries",
            "HarnCanonicalHistoryBoundaries".into(),
        ),
    ];
    let records = SchemaRecords {
        schema: &schema,
        names: &names,
        label: "canonical history boundary",
        require_all: false,
        metadata: |_, field, _| {
            Ok(match field {
                "event_id" => Some(FieldKind::Nullable(Box::new(FieldKind::Integer(
                    Integer::UnsignedHarn,
                )))),
                _ => None,
            })
        },
    }
    .load()
    .expect("canonical history schema projects to host records");
    for record in records {
        record.append(out, target);
    }
}