sim-lib-lang-clojure 0.1.5

Clojure core surface profile for the SIM expression runtime.
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

use sim_kernel::{Cx, Ref, Result, Symbol};
use sim_lib_standard_core::{
    FidelityBadge, LanguageProfile, OrganUse, ProfileBackingLib, ProfileRegistry,
    install_language_profile,
};

use crate::{
    clojure_conformance_test_symbol, clojure_control_fidelity_symbol, clojure_core_profile_symbol,
    clojure_edn_reader_symbol, clojure_lowering_symbol, clojure_namespace_fidelity_symbol,
    clojure_sequence_fidelity_symbol,
};

/// Describes the Clojure-core language profile as standard-distribution data.
///
/// Binds the EDN reader, lowering, eval policy, numeric tower, and the sequence,
/// namespace, and control organs, with a per-organ [`FidelityBadge`] against the
/// conformance test.
pub fn clojure_core_profile() -> LanguageProfile {
    let profile = clojure_core_profile_symbol();
    let test = clojure_conformance_test_symbol();
    LanguageProfile::new(profile.clone())
        .with_reader(clojure_edn_reader_symbol())
        .with_lowering(clojure_lowering_symbol())
        .with_eval_policy(Symbol::qualified("eval", "clojure-core"))
        .with_organ(OrganUse::new(sim_lib_sequence::sequence_organ_symbol()))
        .with_organ(OrganUse::new(sim_lib_namespace::namespace_organ_symbol()))
        .with_organ(OrganUse::new(sim_lib_control::control_organ_symbol()))
        .with_numeric_tower(Symbol::qualified("numbers", "clojure-core"))
        .with_conformance_test(test.clone())
        .with_fidelity_badge(FidelityBadge::new(
            Ref::Symbol(profile.clone()),
            clojure_sequence_fidelity_symbol(),
            1,
            Ref::Symbol(test.clone()),
        ))
        .with_fidelity_badge(FidelityBadge::new(
            Ref::Symbol(profile.clone()),
            clojure_namespace_fidelity_symbol(),
            1,
            Ref::Symbol(test.clone()),
        ))
        .with_fidelity_badge(FidelityBadge::new(
            Ref::Symbol(profile),
            clojure_control_fidelity_symbol(),
            1,
            Ref::Symbol(test),
        ))
}

/// Installs the Clojure-core profile into a [`ProfileRegistry`], publishing organ claims.
///
/// Registers [`clojure_core_profile`] and runs the sequence, namespace, and
/// control organ claim publishers as a side effect.
pub fn install_clojure_core_profile(
    cx: &mut Cx,
    registry: &mut ProfileRegistry,
) -> Result<LanguageProfile> {
    install_language_profile(
        cx,
        registry,
        clojure_core_profile(),
        &[
            ProfileBackingLib::loadable(
                sim_lib_sequence::sequence_organ_symbol(),
                Symbol::qualified("sim", "sequence"),
                sim_lib_sequence::install_sequence_lib,
                Some(sim_lib_sequence::publish_sequence_organ_claims_for_lib),
            ),
            ProfileBackingLib::unresolved(
                sim_lib_namespace::namespace_organ_symbol(),
                Symbol::qualified("sim", "namespace"),
            ),
            ProfileBackingLib::loadable(
                sim_lib_control::control_organ_symbol(),
                sim_lib_control::manifest_name(),
                sim_lib_control::install_control_lib,
                None,
            ),
        ],
        &[],
    )
}