hecks 3.7.0 → 3.9.0

data/rust/codegen/src/fielded.rs

@@ -30,7 +30,7 @@ pub fn emit_fielded_flat(exemplar: &Exemplar, struct_name: &str, attributes: &[J
             let scalar = scalar.unwrap();
             Some(exemplar.render(
                 "fielded_arm_optional_scalar",
-                &[("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident.clone()), ("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, "v").unwrap())],
+                &[("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident.clone()), ("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, &naming::deref_scalar(scalar, "v")).unwrap())],
             ))
         } else if optional {
             if is_fielded_nested(crate::attr::type_name(attr), value_objects_by_name) {
@@ -97,7 +97,7 @@ pub fn emit_fielded_record(exemplar: &Exemplar, aggregate: &Json, value_objects_
         } else if let Some(scalar) = scalar {
             Some(exemplar.render(
                 "fielded_arm_optional_scalar",
-                &[("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident.clone()), ("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, "v").unwrap())],
+                &[("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident.clone()), ("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, &naming::deref_scalar(scalar, "v")).unwrap())],
             ))
         } else if is_fielded_nested(crate::attr::type_name(attr), value_objects_by_name) {
             Some(exemplar.render("fielded_arm_optional_nested", &[("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident)]))
@@ -184,7 +184,7 @@ fn items_arms(exemplar: &Exemplar, attributes: &[Json], value_objects_by_name: &
         let shape = format!("fielded_items_arm_list_{}{}", if optional(attr) { "optional_" } else { "" }, if scalar.is_some() { "scalar" } else { "nested" });
         let mut subs: Vec<(&str, String)> = vec![("\"tmpl_field\"", naming::ruby_inspect_string(&key)), ("tmpl_ident", ident)];
         if let Some(scalar) = scalar {
-            subs.push(("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, "v").unwrap()));
+            subs.push(("tmpl_value_expr_placeholder(v)", naming::scalar_to_value(scalar, &naming::deref_scalar(scalar, "v")).unwrap()));
         }
         arms.push(format!("            {}", exemplar.render(&shape, &subs)));
     }

data/rust/codegen/src/json_codec.rs

@@ -130,7 +130,7 @@ pub fn list_element_from_json_mapper(struct_name: &str, key: &str, attr: &Json,
 /// Inverse of `list_element_from_json_mapper`: scalar elements have no `.to_json()` method.
 pub fn list_element_to_json_expr(attr: &Json) -> String {
     match naming::effective_scalar_type(crate::attr::type_name(attr)) {
-        Some(scalar) => scalar_to_json_expr(scalar, "x"),
+        Some(scalar) => scalar_to_json_expr(scalar, &naming::deref_scalar(scalar, "x")),
         None => "x.to_json()".to_string(),
     }
 }
@@ -392,7 +392,7 @@ pub fn emit_to_json_flat(exemplar: &Exemplar, struct_name: &str, attributes: &[J
             } else if list {
                 format!("crate::kernel::Json::Array(self.{ident}.iter().map(|x| {}).collect())", elem_to_json.as_deref().unwrap())
             } else if field_optional && scalar.is_some() {
-                format!("self.{ident}.as_ref().map(|v| {}).unwrap_or(crate::kernel::Json::Null)", scalar_to_json_expr(scalar.unwrap(), "v"))
+                format!("self.{ident}.as_ref().map(|v| {}).unwrap_or(crate::kernel::Json::Null)", scalar_to_json_expr(scalar.unwrap(), &naming::deref_scalar(scalar.unwrap(), "v")))
             } else if field_optional {
                 format!("self.{ident}.as_ref().map(|v| v.to_json()).unwrap_or(crate::kernel::Json::Null)")
             } else if let Some(scalar) = scalar {

data/rust/codegen/src/naming.rs

@@ -248,6 +248,16 @@ pub fn screaming_snake(name: &str) -> String {
     out.to_uppercase()
 }
 
+/// The expression for a scalar reached through a reference (`v` in `as_ref().map(|v| ..)`, `x` in
+/// `iter().map(|x| ..)`): the copy types are dereferenced, since `Value::Int(v)` takes an `i64`, not an
+/// `&i64`; a `String` is left to the `.clone()` the scalar helpers already apply.
+pub fn deref_scalar(type_name: &str, ident: &str) -> String {
+    match type_name {
+        "Integer" | "Float" | "TrueClass" | "FalseClass" => format!("*{ident}"),
+        _ => ident.to_string(),
+    }
+}
+
 pub fn scalar_to_value(type_name: &str, rust_expr: &str) -> Option<String> {
     match type_name {
         "String" => Some(format!("Value::Str({rust_expr}.clone())")),
@@ -316,6 +326,16 @@ pub fn ruby_inspect_string(s: &str) -> String {
 mod tests {
     use super::*;
 
+    #[test]
+    fn a_scalar_reached_through_a_reference_is_dereferenced_when_it_is_a_copy_type() {
+        // `self.level.as_ref().map(|v| Field::Value(Value::Int(v)))` does not compile: `v` is `&i64`.
+        assert_eq!(scalar_to_value("Integer", &deref_scalar("Integer", "v")).as_deref(), Some("Value::Int(*v)"));
+        assert_eq!(scalar_to_value("Float", &deref_scalar("Float", "v")).as_deref(), Some("Value::Float(*v)"));
+        assert_eq!(scalar_to_value("TrueClass", &deref_scalar("TrueClass", "v")).as_deref(), Some("Value::Bool(*v)"));
+        // A String is cloned, so the reference is left alone.
+        assert_eq!(scalar_to_value("String", &deref_scalar("String", "v")).as_deref(), Some("Value::Str(v.clone())"));
+    }
+
     #[test]
     fn refuses_an_aggregate_whose_module_name_is_a_rust_keyword() {
         let refusal = reserved_name_refusal("shop", "shop", &["Pizza", "Match", "Type"]).expect("refused");

data/rust/host/Cargo.toml

@@ -6,6 +6,10 @@ edition = "2021"
 # Empty table: makes this crate its own workspace root instead of joining `rust`'s.
 [workspace]
 
+[lib]
+name = "rust_host"
+path = "src/lib.rs"
+
 [[bin]]
 name = "bootstrap"
 path = "src/main.rs"

data/rust/host/HECKS_RELEASE

@@ -1 +1 @@
-3.7.0
+3.9.0

data/rust/host/src/boundary_fuzz/ir.rs

@@ -3,6 +3,7 @@
 //! a panic.
 
 use super::*;
+use crate::commerce_ir::*;
 use crate::fuzz_support::*;
 use serde_json::json;
 

data/rust/host/src/commerce_ir.rs

@@ -0,0 +1,459 @@
+// The commerce capability bindings (newsletter, payments, registrations, payment connection), read
+// from `ir.json`'s own keys. Split out of `ir.rs` so the commerce modules that use them move as one.
+
+use crate::ir::ir;
+use serde_json::Value;
+
+/// The chapter that answers the guest newsletter signup, read from
+/// `ir.json`'s own `newsletter` key. `None` when nothing provides it.
+#[derive(Debug, Clone, PartialEq)]
+pub struct NewsletterProvider {
+    /// Chapter name, e.g. `Newsletter`.
+    pub provider: String,
+    /// Qualified subscribe command, e.g. `Newsletter::Subscriber.Subscribe`.
+    pub subscribe: String,
+    /// Qualified add-name command, e.g. `Newsletter::Subscriber.AddName`.
+    pub add_name: String,
+    /// Qualified confirm command, e.g. `Newsletter::Subscriber.Confirm`.
+    pub confirm: String,
+    /// Qualified unsubscribe command, e.g. `Newsletter::Subscriber.Unsubscribe`.
+    pub unsubscribe: String,
+    /// Qualified subscribing aggregate, e.g. `Newsletter::Subscriber`.
+    pub aggregate: String,
+}
+
+impl NewsletterProvider {
+    /// The prefix every subscriber's key in a `dispatch::read` `instances`
+    /// map starts with, e.g. `Newsletter::Subscriber#`.
+    pub fn instance_prefix(&self) -> String {
+        format!("{}#", self.aggregate)
+    }
+}
+
+/// Whether the domain's own `aggregate`'s `command` declares an argument
+/// named `field` — so a route only sends an argument the command declares.
+pub fn command_declares(domain_ir: &Value, aggregate: &str, command: &str, field: &str) -> bool {
+    let named = |value: &Value, name: &str| value.get("name").and_then(|n| n.as_str()) == Some(name);
+    let Some(aggregates) = domain_ir.get("aggregates").and_then(|a| a.as_array()) else {
+        return false;
+    };
+    aggregates
+        .iter()
+        .filter(|a| named(a, aggregate))
+        .filter_map(|a| a.get("commands").and_then(|c| c.as_array()))
+        .flatten()
+        .filter(|c| named(c, command))
+        .filter_map(|c| c.get("attributes").and_then(|a| a.as_array()))
+        .flatten()
+        .any(|attribute| named(attribute, field))
+}
+
+pub fn newsletter_provider(domain_ir: &Value) -> Option<NewsletterProvider> {
+    let fact = domain_ir.get("newsletter")?;
+    Some(NewsletterProvider {
+        provider: fact.get("provider")?.as_str()?.to_string(),
+        subscribe: fact.get("subscribe")?.as_str()?.to_string(),
+        add_name: fact.get("add_name")?.as_str()?.to_string(),
+        confirm: fact.get("confirm")?.as_str()?.to_string(),
+        unsubscribe: fact.get("unsubscribe")?.as_str()?.to_string(),
+        aggregate: fact.get("aggregate")?.as_str()?.to_string(),
+    })
+}
+
+/// The chapter that declares `provides "newsletter_issues"`, read from
+/// `ir.json`'s own `newsletter_issues` key. Omitted when nothing declares it.
+#[derive(Debug, Clone, PartialEq)]
+pub struct NewsletterIssuesProvider {
+    /// Qualified send command, e.g. `Newsletter::Issue.Send`.
+    pub send_issue: String,
+    /// Qualified delivery-record command, e.g. `Newsletter::Delivery.Record`.
+    pub record_delivery: String,
+    /// Qualified issue aggregate, e.g. `Newsletter::Issue`.
+    pub issue_aggregate: String,
+}
+
+impl NewsletterIssuesProvider {
+    /// The prefix every issue's key in a `dispatch::read` `instances` map
+    /// starts with, e.g. `Newsletter::Issue#`.
+    pub fn issue_prefix(&self) -> String {
+        format!("{}#", self.issue_aggregate)
+    }
+}
+
+/// The declared issue-sending verbs, or `None` when the IR has no
+/// `newsletter_issues` key.
+pub fn newsletter_issues_provider(domain_ir: &Value) -> Option<NewsletterIssuesProvider> {
+    let fact = domain_ir.get("newsletter_issues")?;
+    Some(NewsletterIssuesProvider {
+        send_issue: fact.get("send_issue")?.as_str()?.to_string(),
+        record_delivery: fact.get("record_delivery")?.as_str()?.to_string(),
+        issue_aggregate: fact.get("issue_aggregate")?.as_str()?.to_string(),
+    })
+}
+
+
+/// The chapter that takes payments, read from `ir.json`'s own `payments`
+/// key. `None` when nothing provides it.
+#[derive(Debug, Clone, PartialEq)]
+pub struct PaymentsProvider {
+    /// Chapter name, e.g. `Payments`.
+    pub provider: String,
+    /// Qualified initiate command, e.g. `Payments::Payment.Initiate`.
+    pub initiate: String,
+    /// Qualified port operation the processor's success report dispatches,
+    /// e.g. `Payments::Payment.PaymentGateway.Succeeded`.
+    pub succeeded: String,
+    /// Qualified port operation the processor's failure report dispatches,
+    /// e.g. `Payments::Payment.PaymentGateway.Failed`.
+    pub failed: String,
+    /// Qualified paying aggregate, e.g. `Payments::Payment`.
+    pub aggregate: String,
+}
+
+impl PaymentsProvider {
+    /// The prefix every payment's key in a `dispatch::read` `instances` map
+    /// starts with, e.g. `Payments::Payment#`.
+    pub fn instance_prefix(&self) -> String {
+        format!("{}#", self.aggregate)
+    }
+}
+
+pub fn payments_provider(domain_ir: &Value) -> Option<PaymentsProvider> {
+    let fact = domain_ir.get("payments")?;
+    Some(PaymentsProvider {
+        provider: fact.get("provider")?.as_str()?.to_string(),
+        initiate: fact.get("initiate")?.as_str()?.to_string(),
+        succeeded: fact.get("succeeded")?.as_str()?.to_string(),
+        failed: fact.get("failed")?.as_str()?.to_string(),
+        aggregate: fact.get("aggregate")?.as_str()?.to_string(),
+    })
+}
+
+/// The chapter that answers scheduling sessions and taking registrations,
+/// read from `ir.json`'s own `registrations` key. `None` when nothing provides it.
+#[derive(Debug, Clone, PartialEq)]
+pub struct RegistrationsProvider {
+    /// Chapter name, e.g. `Studio`.
+    pub provider: String,
+    /// Qualified schedule command, e.g. `Studio::Event.Schedule`.
+    pub schedule: String,
+    /// Qualified request command, e.g. `Studio::Registration.Request`.
+    pub request: String,
+    /// Qualified event aggregate, e.g. `Studio::Event`.
+    pub event_aggregate: String,
+    /// Qualified registration aggregate, e.g. `Studio::Registration`.
+    pub registration_aggregate: String,
+}
+
+impl RegistrationsProvider {
+    /// The conventional names for a domain that declares no
+    /// `provides "registrations"` — `Event`/`Registration` under the domain itself.
+    pub fn conventional(domain: &str) -> Self {
+        Self {
+            provider: domain.to_string(),
+            schedule: format!("{domain}::Event.Schedule"),
+            request: format!("{domain}::Registration.Request"),
+            event_aggregate: format!("{domain}::Event"),
+            registration_aggregate: format!("{domain}::Registration"),
+        }
+    }
+
+    /// The prefix every event's key in a `dispatch::read` `instances` map
+    /// starts with, e.g. `Studio::Event#`.
+    pub fn event_prefix(&self) -> String {
+        format!("{}#", self.event_aggregate)
+    }
+
+    /// The prefix every registration's key starts with, e.g.
+    /// `Studio::Registration#`.
+    pub fn registration_prefix(&self) -> String {
+        format!("{}#", self.registration_aggregate)
+    }
+
+    /// The request command's own aggregate and command name without the
+    /// chapter qualifier, e.g. `("Registration", "Request")`, as `command_declares` expects.
+    pub fn request_target(&self) -> Option<(&str, &str)> {
+        self.request.rsplit("::").next()?.split_once('.')
+    }
+}
+
+pub fn registrations_provider(domain_ir: &Value) -> Option<RegistrationsProvider> {
+    let fact = domain_ir.get("registrations")?;
+    Some(RegistrationsProvider {
+        provider: fact.get("provider")?.as_str()?.to_string(),
+        schedule: fact.get("schedule")?.as_str()?.to_string(),
+        request: fact.get("request")?.as_str()?.to_string(),
+        event_aggregate: fact.get("event_aggregate")?.as_str()?.to_string(),
+        registration_aggregate: fact.get("registration_aggregate")?.as_str()?.to_string(),
+    })
+}
+
+/// The registrations binding of the IR this host loaded, or the
+/// conventional names for `domain` when the IR declares none.
+pub fn registrations_binding(domain: &str) -> RegistrationsProvider {
+    ir().and_then(registrations_provider).unwrap_or_else(|| RegistrationsProvider::conventional(domain))
+}
+
+/// One command of the payment-processor connection, by the role it plays —
+/// resolved through `PaymentConnectionProvider::verb`.
+#[derive(Debug, Clone, Copy, PartialEq, Eq)]
+pub enum ConnectionVerb {
+    Connect,
+    Reconnect,
+    Disconnect,
+    Suspend,
+    Resume,
+    Enable,
+    Disable,
+}
+
+/// The chapter that owns the business's payment-processor connection, read
+/// from `ir.json`'s own `payment_connection` key. `None` when nothing provides it.
+#[derive(Debug, Clone, PartialEq)]
+pub struct PaymentConnectionProvider {
+    /// Chapter name, e.g. `Studio`.
+    pub provider: String,
+    pub connect: String,
+    pub reconnect: String,
+    pub disconnect: String,
+    pub suspend: String,
+    pub resume: String,
+    pub enable: String,
+    pub disable: String,
+    /// Qualified connection aggregate, e.g. `Studio::PaymentConnection`.
+    pub aggregate: String,
+}
+
+impl PaymentConnectionProvider {
+    /// The conventional names for a domain that declares no
+    /// `provides "payment_connection"` — `PaymentConnection` under the domain itself.
+    pub fn conventional(domain: &str) -> Self {
+        let qualified = |command: &str| format!("{domain}::PaymentConnection.{command}");
+        Self {
+            provider: domain.to_string(),
+            connect: qualified("Connect"),
+            reconnect: qualified("Reconnect"),
+            disconnect: qualified("Disconnect"),
+            suspend: qualified("Suspend"),
+            resume: qualified("Resume"),
+            enable: qualified("EnablePayments"),
+            disable: qualified("DisablePayments"),
+            aggregate: format!("{domain}::PaymentConnection"),
+        }
+    }
+
+    /// The prefix every connection's key in a `dispatch::read` `instances`
+    /// map starts with, e.g. `Studio::PaymentConnection#`.
+    pub fn instance_prefix(&self) -> String {
+        format!("{}#", self.aggregate)
+    }
+
+    /// The qualified command that plays `which`.
+    pub fn verb(&self, which: ConnectionVerb) -> &str {
+        match which {
+            ConnectionVerb::Connect => &self.connect,
+            ConnectionVerb::Reconnect => &self.reconnect,
+            ConnectionVerb::Disconnect => &self.disconnect,
+            ConnectionVerb::Suspend => &self.suspend,
+            ConnectionVerb::Resume => &self.resume,
+            ConnectionVerb::Enable => &self.enable,
+            ConnectionVerb::Disable => &self.disable,
+        }
+    }
+}
+
+pub fn payment_connection_provider(domain_ir: &Value) -> Option<PaymentConnectionProvider> {
+    let fact = domain_ir.get("payment_connection")?;
+    let text = |key: &str| Some(fact.get(key)?.as_str()?.to_string());
+    Some(PaymentConnectionProvider {
+        provider: text("provider")?,
+        connect: text("connect")?,
+        reconnect: text("reconnect")?,
+        disconnect: text("disconnect")?,
+        suspend: text("suspend")?,
+        resume: text("resume")?,
+        enable: text("enable")?,
+        disable: text("disable")?,
+        aggregate: text("aggregate")?,
+    })
+}
+
+/// The payment-connection binding of the IR this host loaded, or the
+/// conventional names for `domain` when the IR declares none.
+pub fn payment_connection_binding(domain: &str) -> PaymentConnectionProvider {
+    ir().and_then(payment_connection_provider).unwrap_or_else(|| PaymentConnectionProvider::conventional(domain))
+}
+
+/// The checkout fixture's own payments binding, read from its committed
+/// `ir.json` — what the checkout routes' tests dispatch against.
+#[cfg(test)]
+pub fn fixture_ir() -> Value {
+    let path = std::path::Path::new(env!("CARGO_MANIFEST_DIR")).join("../src/generated/checkout_fixture/ir.json");
+    serde_json::from_str(&std::fs::read_to_string(path).expect("checkout_fixture ir.json")).expect("valid json")
+}
+
+/// The checkout fixture's own payments binding.
+#[cfg(test)]
+pub fn fixture_payments() -> PaymentsProvider {
+    payments_provider(&fixture_ir()).expect("the checkout fixture provides payments")
+}
+
+#[cfg(test)]
+mod tests {
+    use super::*;
+
+    #[test]
+    fn newsletter_provider_reads_the_declared_capability() {
+        let ir = serde_json::json!({
+            "name": "Studio",
+            "newsletter": {
+                "provider": "Newsletter",
+                "subscribe": "Newsletter::Subscriber.Subscribe",
+                "add_name": "Newsletter::Subscriber.AddName",
+                "confirm": "Newsletter::Subscriber.Confirm",
+                "unsubscribe": "Newsletter::Subscriber.Unsubscribe",
+                "aggregate": "Newsletter::Subscriber"
+            }
+        });
+        let provider = newsletter_provider(&ir).expect("should find newsletter");
+        assert_eq!(provider.provider, "Newsletter");
+        assert_eq!(provider.subscribe, "Newsletter::Subscriber.Subscribe");
+        assert_eq!(provider.add_name, "Newsletter::Subscriber.AddName");
+        assert_eq!(provider.confirm, "Newsletter::Subscriber.Confirm");
+        assert_eq!(provider.unsubscribe, "Newsletter::Subscriber.Unsubscribe");
+        assert_eq!(provider.instance_prefix(), "Newsletter::Subscriber#");
+        assert!(newsletter_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
+    }
+
+    #[test]
+    fn newsletter_issues_provider_reads_the_declared_capability() {
+        let ir = serde_json::json!({
+            "name": "Studio",
+            "newsletter_issues": {
+                "provider": "Newsletter",
+                "send_issue": "Newsletter::Issue.Send",
+                "record_delivery": "Newsletter::Delivery.Record",
+                "issue_aggregate": "Newsletter::Issue",
+                "delivery_aggregate": "Newsletter::Delivery"
+            }
+        });
+        let provider = newsletter_issues_provider(&ir).expect("should find newsletter_issues");
+        assert_eq!(provider.send_issue, "Newsletter::Issue.Send");
+        assert_eq!(provider.record_delivery, "Newsletter::Delivery.Record");
+        assert_eq!(provider.issue_prefix(), "Newsletter::Issue#");
+        assert!(newsletter_issues_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
+    }
+
+    #[test]
+    fn payments_provider_reads_the_declared_capability() {
+        let ir = serde_json::json!({
+            "name": "Studio",
+            "payments": {
+                "provider": "Payments",
+                "initiate": "Payments::Payment.Initiate",
+                "succeeded": "Payments::Payment.PaymentGateway.Succeeded",
+                "failed": "Payments::Payment.PaymentGateway.Failed",
+                "aggregate": "Payments::Payment"
+            }
+        });
+        let provider = payments_provider(&ir).expect("should find payments");
+        assert_eq!(provider.provider, "Payments");
+        assert_eq!(provider.initiate, "Payments::Payment.Initiate");
+        assert_eq!(provider.succeeded, "Payments::Payment.PaymentGateway.Succeeded");
+        assert_eq!(provider.failed, "Payments::Payment.PaymentGateway.Failed");
+        assert_eq!(provider.instance_prefix(), "Payments::Payment#");
+        assert!(payments_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
+    }
+
+    #[test]
+    fn registrations_provider_reads_the_declared_capability() {
+        let provider = registrations_provider(&fixture_ir()).expect("the checkout fixture provides registrations");
+        assert_eq!(provider.schedule, "CheckoutFixture::Event.Schedule");
+        assert_eq!(provider.request, "CheckoutFixture::Registration.Request");
+        assert_eq!(provider.event_prefix(), "CheckoutFixture::Event#");
+        assert_eq!(provider.registration_prefix(), "CheckoutFixture::Registration#");
+        assert_eq!(provider.request_target(), Some(("Registration", "Request")));
+    }
+
+    #[test]
+    fn the_conventional_registrations_names_match_what_the_fixture_declares() {
+        assert_eq!(registrations_provider(&fixture_ir()), Some(RegistrationsProvider::conventional("CheckoutFixture")));
+    }
+
+    #[test]
+    fn a_declared_registrations_binding_names_whatever_the_chapter_calls_things() {
+        let ir = serde_json::json!({"registrations": {
+            "provider": "Bookings",
+            "schedule": "Bookings::Session.Plan",
+            "request": "Bookings::Seat.Claim",
+            "event_aggregate": "Bookings::Session",
+            "registration_aggregate": "Bookings::Seat"
+        }});
+        let provider = registrations_provider(&ir).expect("declared");
+        assert_eq!(provider.event_prefix(), "Bookings::Session#");
+        assert_eq!(provider.registration_prefix(), "Bookings::Seat#");
+        assert_eq!(provider.request_target(), Some(("Seat", "Claim")));
+    }
+
+    #[test]
+    fn registrations_provider_is_none_without_the_key() {
+        assert_eq!(registrations_provider(&serde_json::json!({"name": "Pizzas"})), None);
+    }
+
+    #[test]
+    fn registrations_binding_falls_back_to_the_conventional_names_when_no_ir_is_loaded() {
+        assert_eq!(registrations_binding("Shop"), RegistrationsProvider::conventional("Shop"));
+    }
+
+    #[test]
+    fn payment_connection_provider_reads_the_declared_capability() {
+        let provider = payment_connection_provider(&fixture_ir()).expect("the checkout fixture provides payment_connection");
+        assert_eq!(provider.verb(ConnectionVerb::Connect), "CheckoutFixture::PaymentConnection.Connect");
+        assert_eq!(provider.verb(ConnectionVerb::Enable), "CheckoutFixture::PaymentConnection.EnablePayments");
+        assert_eq!(provider.verb(ConnectionVerb::Disable), "CheckoutFixture::PaymentConnection.DisablePayments");
+        assert_eq!(provider.instance_prefix(), "CheckoutFixture::PaymentConnection#");
+    }
+
+    #[test]
+    fn the_conventional_payment_connection_names_match_what_the_fixture_declares() {
+        assert_eq!(payment_connection_provider(&fixture_ir()), Some(PaymentConnectionProvider::conventional("CheckoutFixture")));
+    }
+
+    #[test]
+    fn a_declared_payment_connection_binding_names_whatever_the_chapter_calls_things() {
+        let ir = serde_json::json!({"payment_connection": {
+            "provider": "Billing",
+            "connect": "Billing::Link.Open", "reconnect": "Billing::Link.Reopen",
+            "disconnect": "Billing::Link.Close", "suspend": "Billing::Link.Pause",
+            "resume": "Billing::Link.Unpause", "enable": "Billing::Link.TurnOn",
+            "disable": "Billing::Link.TurnOff", "aggregate": "Billing::Link"
+        }});
+        let provider = payment_connection_provider(&ir).expect("declared");
+        assert_eq!(provider.verb(ConnectionVerb::Suspend), "Billing::Link.Pause");
+        assert_eq!(provider.verb(ConnectionVerb::Resume), "Billing::Link.Unpause");
+        assert_eq!(provider.instance_prefix(), "Billing::Link#");
+    }
+
+    #[test]
+    fn payment_connection_binding_falls_back_to_the_conventional_names_when_no_ir_is_loaded() {
+        assert_eq!(payment_connection_binding("Shop"), PaymentConnectionProvider::conventional("Shop"));
+    }
+
+    #[test]
+    fn command_declares_finds_an_argument_on_the_named_command_only() {
+        let ir = serde_json::json!({
+            "aggregates": [
+                {"name": "Registration", "commands": [
+                    {"name": "Request", "attributes": [{"name": "email"}, {"name": "news_signup"}]},
+                    {"name": "Cancel", "attributes": [{"name": "reason"}]}
+                ]},
+                {"name": "Event", "commands": [{"name": "Request", "attributes": [{"name": "slug"}]}]}
+            ]
+        });
+        assert!(command_declares(&ir, "Registration", "Request", "news_signup"));
+        assert!(!command_declares(&ir, "Registration", "Cancel", "news_signup"));
+        assert!(!command_declares(&ir, "Event", "Request", "news_signup"));
+        assert!(!command_declares(&ir, "Registration", "Request", "phone"));
+        assert!(!command_declares(&serde_json::json!({"name": "Pizzas"}), "Registration", "Request", "news_signup"));
+    }
+}

data/rust/host/src/extension.rs

@@ -0,0 +1,100 @@
+//! The seam a host extension plugs into: extra routes, a boot check and boot-time secrets, added by
+//! a crate that depends on this library instead of living in it. Commerce (payments, checkout,
+//! newsletter, registrations, mail) is the first extension; `default_extensions` names what the
+//! `bootstrap` binary installs when nothing else was.
+
+use crate::ir::ir;
+use crate::journal::LineageConfig;
+use crate::lambda_client::LambdaInvoker;
+use crate::secrets::AwsSecretFetcher;
+use async_trait::async_trait;
+use serde_json::Value;
+use std::collections::HashMap;
+use std::path::Path;
+use std::sync::{Arc, OnceLock};
+use tokio::sync::Mutex;
+use tokio_postgres::Client;
+
+/// One request, as an extension sees it. `domain_ir` is `None` in the guest phase when this
+/// process has no IR loaded; `event` is the raw Function-URL event (guest phase only) for headers an extension needs.
+pub struct Ctx<'a> {
+    pub event: Option<&'a Value>,
+    pub method: &'a str,
+    pub path: &'a str,
+    pub query: &'a HashMap<String, String>,
+    pub raw_body: &'a str,
+    pub cookies: &'a HashMap<String, String>,
+    pub domain_ir: Option<&'a Value>,
+    pub client: &'a Mutex<Client>,
+    pub wasm_path: &'a Path,
+    pub config: &'a LineageConfig,
+    pub invoker: &'a dyn LambdaInvoker,
+}
+
+/// A public write an extension wants limited per client: `limit_env` names the budget setting.
+#[derive(Debug, Clone, Copy, PartialEq, Eq)]
+pub struct RateRule {
+    pub name: &'static str,
+    pub method: &'static str,
+    pub path: &'static str,
+    pub limit_env: &'static str,
+    pub default_limit: usize,
+}
+
+#[async_trait]
+pub trait HostExtension: Send + Sync {
+    /// Answers a request before the account gate: public forms, webhooks. `None` falls through.
+    async fn guest_route(&self, _ctx: &Ctx<'_>) -> Option<Value> {
+        None
+    }
+
+    /// Answers a request after the host's own sign-in routes, with the signed-in cookies and the
+    /// domain IR in hand (`ctx.domain_ir` is always `Some`). `None` falls through.
+    async fn account_route(&self, _ctx: &Ctx<'_>) -> Option<Value> {
+        None
+    }
+
+    /// The public writes to limit per client, each with its own budget.
+    fn rate_rules(&self) -> Vec<RateRule> {
+        Vec::new()
+    }
+
+    /// Refuses the boot before the database is touched, for a domain the extension cannot serve.
+    fn boot_check(&self, _domain: &str) -> Result<(), String> {
+        Ok(())
+    }
+
+    /// Reads the secrets the extension needs into the environment, at cold start.
+    async fn boot_secrets(&self, _fetcher: &AwsSecretFetcher) {}
+}
+
+static INSTALLED: OnceLock<Vec<Arc<dyn HostExtension>>> = OnceLock::new();
+
+/// Installs the extensions for this process; the first call wins, and it must run before any request.
+pub fn install(extensions: Vec<Arc<dyn HostExtension>>) {
+    let _ = INSTALLED.set(extensions);
+}
+
+/// The installed extensions, or `default_extensions` when none were installed.
+pub fn installed() -> &'static [Arc<dyn HostExtension>] {
+    INSTALLED.get_or_init(default_extensions)
+}
+
+fn default_extensions() -> Vec<Arc<dyn HostExtension>> {
+    vec![Arc::new(crate::web::Commerce)]
+}
+
+/// The loaded domain IR, for an extension that needs it in the guest phase.
+pub fn loaded_ir() -> Option<&'static Value> {
+    ir()
+}
+
+/// Every installed extension's rate rules.
+pub fn rate_rules() -> Vec<RateRule> {
+    installed().iter().flat_map(|extension| extension.rate_rules()).collect()
+}
+
+/// The rule that limits this request, if any.
+pub fn rate_rule_for(method: &str, path: &str) -> Option<RateRule> {
+    rate_rules().into_iter().find(|rule| rule.method == method && rule.path == path)
+}