sim-lib-web-bridge 0.1.0

//! Multi-surface synchronized edit sessions: broadcast, handoff, and replay.
//!
//! One resource can be open in MANY surfaces at once. The [`SurfaceHub`] owns
//! the single CANONICAL value for every resource and is the one coordination
//! point: a committed edit on any surface is applied to the canonical store and
//! then BROADCAST -- as a Scene plus a Scene diff -- to every surface/pane
//! viewing that resource, including the surface that issued the edit. This
//! avoids trying to make N independent transports share events; the hub is the
//! shared state.
//!
//! Edits flow through the universal default lens: an Intent is proposed and
//! committed through `edit:default`, yielding the universal `{op: set-value,
//! value: <proposed>}` operation, which is applied to the canonical store and
//! recorded in an append-only [`EditRow`] ledger carrying the issuing
//! operator and logical tick. Two surfaces editing the same resource therefore
//! apply in submit order (last write wins), and the ledger is replayable:
//! [`replay`] re-applies it to a seed state and reproduces the same canonical
//! state, proving the edit log is auditable.
//!
//! Handoff ([`SurfaceHub::handoff`]) opens an already-held resource on a second
//! surface so subsequent edits broadcast to both.

use std::collections::BTreeMap;
use std::sync::Arc;

use sim_kernel::{Cx, DefaultFactory, EagerPolicy, Error, Expr, Result, Symbol};
use sim_lib_view::codec::reduce_for_caps;
use sim_lib_view::{
    LensRegistry, SurfaceCaps, UNIVERSAL_EDITOR_ID, UNIVERSAL_VIEW_ID, register_universal_default,
};

/// One re-rendered Scene pushed to a surface/pane after a canonical edit.
///
/// `diff` is the Scene patch from the pane's previously cached Scene to
/// `scene`; applying it with [`sim_lib_scene::apply`] reconstructs `scene`.
#[derive(Clone, Debug)]
pub struct Broadcast {
    /// The surface that receives this update.
    pub surface: Symbol,
    /// The pane on that surface.
    pub pane: Symbol,
    /// The full new Scene for the pane.
    pub scene: Expr,
    /// The Scene patch from the pane's prior Scene to `scene`.
    pub diff: Expr,
}

/// One append-only ledger row: a committed edit, attributed and replayable.
///
/// Rows are appended in submit order. Replaying them in order through
/// [`replay`] reproduces the final canonical state.
#[derive(Clone, Debug)]
pub struct EditRow {
    /// The resource that was edited.
    pub resource: Symbol,
    /// The issuing operator (from the Intent origin, e.g. `human`/`agent`).
    pub operator: Symbol,
    /// The issuing logical tick (from the Intent origin `at-tick`).
    pub tick: u64,
    /// The committed `{op: set-value, value: <proposed>}` operation.
    pub operation: Expr,
}

/// A live binding of a `(surface, pane)` to a resource, with the last Scene
/// shown there so the next broadcast can be diffed against it.
struct Binding {
    surface: Symbol,
    pane: Symbol,
    resource: Symbol,
    last_scene: Expr,
}

/// The canonical multi-surface coordination point.
///
/// Holds the single canonical value per resource, the universal [`LensRegistry`]
/// used to render and edit, an owned [`Cx`], the registered surfaces and their
/// [`SurfaceCaps`], the live `(surface, pane)` bindings, and the append-only
/// [`EditRow`] ledger.
pub struct SurfaceHub {
    canonical: BTreeMap<Symbol, Expr>,
    registry: LensRegistry,
    cx: Cx,
    surfaces: BTreeMap<Symbol, SurfaceCaps>,
    bindings: Vec<Binding>,
    ledger: Vec<EditRow>,
}

impl Default for SurfaceHub {
    fn default() -> Self {
        Self::new()
    }
}

impl SurfaceHub {
    /// A new hub with the universal default lens registered (writable) and no
    /// resources, surfaces, bindings, or ledger rows.
    pub fn new() -> Self {
        let mut registry = LensRegistry::new();
        register_universal_default(&mut registry, false);
        Self {
            canonical: BTreeMap::new(),
            registry,
            cx: Cx::new(Arc::new(EagerPolicy), Arc::new(DefaultFactory)),
            surfaces: BTreeMap::new(),
            bindings: Vec::new(),
            ledger: Vec::new(),
        }
    }

    /// Set (or replace) the canonical value of `resource`.
    pub fn seed(&mut self, resource: Symbol, value: Expr) {
        self.canonical.insert(resource, value);
    }

    /// Register a surface (identified by `surface`) with its capabilities.
    /// Re-registering replaces the stored caps.
    pub fn register_surface(&mut self, surface: Symbol, caps: SurfaceCaps) {
        self.surfaces.insert(surface, caps);
    }

    /// Bind `(surface, pane)` to `resource`, render the canonical value through
    /// the universal view (projected to the surface caps via
    /// [`reduce_for_caps`]), cache that Scene for the pane, and return it.
    ///
    /// An existing binding for the same `(surface, pane)` is replaced. Fails if
    /// the surface is not registered or the resource has no canonical value.
    pub fn open(&mut self, surface: &Symbol, pane: Symbol, resource: Symbol) -> Result<Expr> {
        let caps = self.caps_of(surface)?;
        let value = self.value_of(&resource)?;
        let scene = render_for_surface(&mut self.cx, &self.registry, &caps, &value)?;
        self.bindings
            .retain(|binding| !(binding.surface == *surface && binding.pane == pane));
        self.bindings.push(Binding {
            surface: surface.clone(),
            pane,
            resource,
            last_scene: scene.clone(),
        });
        Ok(scene)
    }

    /// Submit an Intent against the resource shown in `(surface, pane)`.
    ///
    /// The Intent is proposed and committed through the universal editor against
    /// the CURRENT canonical value; the resulting `set-value` operation is
    /// applied to the canonical store and appended to the ledger (attributed to
    /// the Intent origin's operator and tick). Then, for EVERY `(surface, pane)`
    /// viewing that resource -- including other surfaces -- the new value is
    /// re-rendered, diffed against the pane's cached Scene, the cache updated,
    /// and a [`Broadcast`] emitted. Returns all broadcasts.
    ///
    /// Fails closed (returns an error, never panics) if the pane is not open,
    /// the resource is missing, the Intent is invalid, or the draft is not
    /// committable.
    pub fn submit(
        &mut self,
        surface: &Symbol,
        pane: &Symbol,
        intent: &Expr,
    ) -> Result<Vec<Broadcast>> {
        let resource = self
            .bindings
            .iter()
            .find(|binding| binding.surface == *surface && binding.pane == *pane)
            .map(|binding| binding.resource.clone())
            .ok_or_else(|| Error::HostError(format!("({surface}, {pane}) is not open")))?;
        let value = self.value_of(&resource)?;

        let editor = Symbol::new(UNIVERSAL_EDITOR_ID);
        let draft = self
            .registry
            .propose(&mut self.cx, &editor, &value, intent)?;
        let operation = self.registry.commit(&mut self.cx, &editor, &draft)?;
        let new_value = apply_set_value(&operation.form)?;

        // Render EVERY per-surface broadcast into a staging buffer FIRST. A
        // render (or a surface that lost its capabilities) can fail mid-iteration;
        // if it does we must mutate nothing -- otherwise canonical/ledger move
        // forward while some caches advance and no broadcast is delivered, an
        // unrecoverable replay divergence. We commit only after all succeed.
        let mut staged: Vec<(usize, Broadcast)> = Vec::new();
        {
            let Self {
                registry,
                cx,
                surfaces,
                bindings,
                ..
            } = self;
            for (index, binding) in bindings.iter().enumerate() {
                if binding.resource != resource {
                    continue;
                }
                let caps = surfaces.get(&binding.surface).ok_or_else(|| {
                    Error::HostError(format!(
                        "surface '{}' lost its capabilities",
                        binding.surface
                    ))
                })?;
                let scene = render_for_surface(cx, registry, caps, &new_value)?;
                let diff = sim_lib_scene::diff(&binding.last_scene, &scene);
                staged.push((
                    index,
                    Broadcast {
                        surface: binding.surface.clone(),
                        pane: binding.pane.clone(),
                        scene,
                        diff,
                    },
                ));
            }
        }

        // All broadcasts rendered: commit atomically -- canonical, then ledger,
        // then swap in each surface's advanced last_scene cache.
        self.canonical.insert(resource.clone(), new_value);
        let (operator, tick) = origin_of(intent);
        self.ledger.push(EditRow {
            resource,
            operator,
            tick,
            operation: operation.form,
        });
        let mut broadcasts = Vec::with_capacity(staged.len());
        for (index, broadcast) in staged {
            self.bindings[index].last_scene = broadcast.scene.clone();
            broadcasts.push(broadcast);
        }
        Ok(broadcasts)
    }

    /// Hand `resource` off from `from` to `to`: open it on `to` in a new `pane`
    /// and return its Scene. The `from` surface keeps its binding, so the
    /// resource is now open on both and subsequent edits broadcast to both.
    ///
    /// Fails if `from` does not currently hold `resource`.
    pub fn handoff(
        &mut self,
        from: &Symbol,
        to: &Symbol,
        resource: Symbol,
        pane: Symbol,
    ) -> Result<Expr> {
        let held = self
            .bindings
            .iter()
            .any(|binding| binding.surface == *from && binding.resource == resource);
        if !held {
            return Err(Error::HostError(format!(
                "surface '{from}' does not hold resource '{resource}' to hand off"
            )));
        }
        self.open(to, pane, resource)
    }

    /// The append-only edit ledger, in submit order.
    pub fn ledger(&self) -> &[EditRow] {
        &self.ledger
    }

    /// The current canonical value of `resource`, if any.
    pub fn canonical(&self, resource: &Symbol) -> Option<&Expr> {
        self.canonical.get(resource)
    }

    fn caps_of(&self, surface: &Symbol) -> Result<SurfaceCaps> {
        self.surfaces
            .get(surface)
            .cloned()
            .ok_or_else(|| Error::HostError(format!("surface '{surface}' is not registered")))
    }

    fn value_of(&self, resource: &Symbol) -> Result<Expr> {
        self.canonical.get(resource).cloned().ok_or_else(|| {
            Error::HostError(format!("resource '{resource}' has no canonical value"))
        })
    }
}

/// Re-apply a ledger to a seed canonical state, yielding the final state.
///
/// Rows are applied in order; for a resource, the last `set-value` wins. This is
/// the replay surface that proves the ledger is auditable: feeding the rows
/// produced by a run of edits back over the original seed reproduces the final
/// canonical state of the hub.
///
/// Every committed row carries the universal `{op: set-value, ...}` operation,
/// so replay fails closed if a row's operation is not a `set-value`: a foreign
/// or corrupted ledger row is surfaced as an error rather than silently dropped,
/// which would otherwise reproduce a state that never existed.
pub fn replay(rows: &[EditRow], seed: BTreeMap<Symbol, Expr>) -> Result<BTreeMap<Symbol, Expr>> {
    let mut state = seed;
    for row in rows {
        let value = apply_set_value(&row.operation)?;
        state.insert(row.resource.clone(), value);
    }
    Ok(state)
}

/// Render `value` through the universal view, projected to `caps`.
fn render_for_surface(
    cx: &mut Cx,
    registry: &LensRegistry,
    caps: &SurfaceCaps,
    value: &Expr,
) -> Result<Expr> {
    let scene = registry.render(cx, &Symbol::new(UNIVERSAL_VIEW_ID), value)?;
    Ok(reduce_for_caps(&scene, caps))
}

/// Interpret the universal `{op: set-value, value: <v>}` operation, returning
/// `<v>`. Any other shape fails closed.
fn apply_set_value(operation: &Expr) -> Result<Expr> {
    let Expr::Map(entries) = operation else {
        return Err(Error::HostError("operation is not a map".to_owned()));
    };
    let is_set_value = entries.iter().any(|(key, value)| {
        matches!(key, Expr::Symbol(symbol) if &*symbol.name == "op")
            && matches!(value, Expr::Symbol(symbol) if &*symbol.name == "set-value")
    });
    if !is_set_value {
        return Err(Error::HostError(
            "operation is not a set-value op".to_owned(),
        ));
    }
    entries
        .iter()
        .find_map(|(key, value)| {
            matches!(key, Expr::Symbol(symbol) if &*symbol.name == "value").then_some(value)
        })
        .cloned()
        .ok_or_else(|| Error::HostError("set-value operation is missing a 'value'".to_owned()))
}

/// Read the operator symbol and logical tick from an Intent origin, defaulting
/// to `unknown`/`0` if absent (the Intent is validated before this is called).
fn origin_of(intent: &Expr) -> (Symbol, u64) {
    let origin = sim_value::access::field(intent, "origin");
    let operator = origin
        .and_then(|origin| sim_value::access::field_sym(origin, "operator"))
        .unwrap_or_else(|| Symbol::new("unknown"));
    let tick = origin
        .and_then(|origin| sim_value::access::field_i64(origin, "at-tick"))
        .unwrap_or(0)
        .max(0) as u64;
    (operator, tick)
}

#[cfg(test)]
mod tests {
    use super::*;

    use sim_kernel::NumberLiteral;
    use sim_lib_intent::{Origin, intent};
    use sim_lib_view::surface;

    use sim_value::build::keyword as sym;

    fn number(value: &str) -> Expr {
        Expr::Number(NumberLiteral {
            domain: sym("i64"),
            canonical: value.to_owned(),
        })
    }

    fn doc() -> Expr {
        Expr::Map(vec![
            (Expr::Symbol(sym("a")), number("1")),
            (Expr::Symbol(sym("b")), number("2")),
        ])
    }

    /// An `edit-field` Intent setting top-level field `field` to `value`.
    fn edit(operator: Origin, field: &str, value: Expr) -> Expr {
        intent(
            "edit-field",
            operator,
            vec![
                ("target", doc()),
                (
                    "path",
                    Expr::List(vec![Expr::Vector(vec![
                        Expr::Symbol(sym("k")),
                        Expr::Symbol(sym(field)),
                    ])]),
                ),
                ("value", value),
            ],
        )
    }

    fn hub_with_surfaces() -> SurfaceHub {
        let mut hub = SurfaceHub::new();
        hub.register_surface(sym("cli"), surface::preset("cli").unwrap());
        hub.register_surface(sym("web"), surface::preset("webui").unwrap());
        hub.register_surface(sym("watch"), surface::preset("watch").unwrap());
        hub
    }

    fn field(map: &Expr, name: &str) -> Option<Expr> {
        let Expr::Map(entries) = map else {
            return None;
        };
        entries.iter().find_map(|(key, value)| {
            matches!(key, Expr::Symbol(symbol) if &*symbol.name == name).then(|| value.clone())
        })
    }

    #[test]
    fn an_edit_broadcasts_to_every_surface_viewing_the_resource() {
        let mut hub = hub_with_surfaces();
        hub.seed(sym("doc"), doc());
        let cli_scene = hub.open(&sym("cli"), sym("pane"), sym("doc")).unwrap();
        let web_scene = hub.open(&sym("web"), sym("pane"), sym("doc")).unwrap();

        let broadcasts = hub
            .submit(
                &sym("cli"),
                &sym("pane"),
                &edit(Origin::human(1), "a", number("9")),
            )
            .unwrap();

        // Both surfaces viewing `doc` receive a broadcast.
        assert!(broadcasts.len() >= 2);
        assert!(broadcasts.iter().any(|b| b.surface == sym("cli")));
        assert!(broadcasts.iter().any(|b| b.surface == sym("web")));

        // Each diff reconstructs the surface's new Scene from its prior Scene.
        for broadcast in &broadcasts {
            let prior = if broadcast.surface == sym("cli") {
                &cli_scene
            } else {
                &web_scene
            };
            let rebuilt = sim_lib_scene::apply(prior, &broadcast.diff).unwrap();
            assert_eq!(rebuilt, broadcast.scene);
        }

        // The canonical value changed.
        let canonical = hub.canonical(&sym("doc")).unwrap();
        assert_eq!(field(canonical, "a"), Some(number("9")));
        assert_eq!(field(canonical, "b"), Some(number("2")));
    }

    #[test]
    fn a_mid_loop_broadcast_error_leaves_canonical_ledger_and_caches_unchanged() {
        let mut hub = hub_with_surfaces();
        hub.seed(sym("doc"), doc());
        // cli is bound first, web second, both on `doc`.
        let cli_scene = hub.open(&sym("cli"), sym("pane"), sym("doc")).unwrap();
        hub.open(&sym("web"), sym("pane"), sym("doc")).unwrap();

        let canonical_before = hub.canonical(&sym("doc")).cloned();
        let ledger_len_before = hub.ledger().len();

        // Simulate the web surface dropping its capabilities while its binding
        // remains -- the desync the atomic submit must tolerate without
        // corrupting shared state.
        hub.surfaces.remove(&sym("web"));

        // Submitting from cli stages cli's broadcast, then hits web's missing
        // caps mid-loop. The submit must fail closed and mutate nothing.
        let result = hub.submit(
            &sym("cli"),
            &sym("pane"),
            &edit(Origin::human(1), "a", number("9")),
        );
        assert!(
            result.is_err(),
            "a mid-loop render failure must fail the whole submit"
        );

        // Canonical and ledger never moved forward.
        assert_eq!(hub.canonical(&sym("doc")).cloned(), canonical_before);
        assert_eq!(hub.ledger().len(), ledger_len_before);
        // cli's cached last_scene was NOT advanced (no half-applied broadcast).
        let cli_last = hub
            .bindings
            .iter()
            .find(|binding| binding.surface == sym("cli") && binding.pane == sym("pane"))
            .map(|binding| binding.last_scene.clone());
        assert_eq!(
            cli_last,
            Some(cli_scene),
            "cli's cached scene must be untouched after the failed submit"
        );
    }

    #[test]
    fn handoff_extends_broadcast_to_the_target_surface() {
        let mut hub = hub_with_surfaces();
        hub.seed(sym("doc"), doc());
        hub.open(&sym("cli"), sym("pane"), sym("doc")).unwrap();
        hub.open(&sym("web"), sym("pane"), sym("doc")).unwrap();

        // Hand the resource off from cli to watch (a new pane on watch).
        hub.handoff(&sym("cli"), &sym("watch"), sym("doc"), sym("pane"))
            .unwrap();

        let broadcasts = hub
            .submit(
                &sym("web"),
                &sym("pane"),
                &edit(Origin::human(2), "b", number("7")),
            )
            .unwrap();

        // cli, web, AND watch all receive the broadcast now.
        assert!(broadcasts.iter().any(|b| b.surface == sym("cli")));
        assert!(broadcasts.iter().any(|b| b.surface == sym("web")));
        assert!(broadcasts.iter().any(|b| b.surface == sym("watch")));
    }

    #[test]
    fn two_writer_conflict_is_last_write_wins_and_replayable() {
        let mut hub = hub_with_surfaces();
        let seed = doc();
        hub.seed(sym("doc"), seed.clone());
        hub.open(&sym("cli"), sym("pane"), sym("doc")).unwrap();
        hub.open(&sym("web"), sym("pane"), sym("doc")).unwrap();

        // cli edits, then web edits the same resource and field.
        hub.submit(
            &sym("cli"),
            &sym("pane"),
            &edit(Origin::human(1), "a", number("10")),
        )
        .unwrap();
        hub.submit(
            &sym("web"),
            &sym("pane"),
            &edit(Origin::agent(2), "a", number("20")),
        )
        .unwrap();

        // The final canonical value reflects the LAST commit.
        let canonical = hub.canonical(&sym("doc")).unwrap().clone();
        assert_eq!(field(&canonical, "a"), Some(number("20")));

        // The ledger has two rows with the right operators and ticks, in order.
        let ledger = hub.ledger();
        assert_eq!(ledger.len(), 2);
        assert_eq!(ledger[0].operator, sym("human"));
        assert_eq!(ledger[0].tick, 1);
        assert_eq!(ledger[1].operator, sym("agent"));
        assert_eq!(ledger[1].tick, 2);

        // Replaying the ledger over the seed reproduces the final canonical state.
        let mut seed_state = BTreeMap::new();
        seed_state.insert(sym("doc"), seed);
        let replayed = replay(ledger, seed_state).expect("ledger rows are all set-value ops");
        assert_eq!(replayed.get(&sym("doc")), Some(&canonical));
    }
}