meerkat-machine-schema 0.5.0

use indexmap::IndexMap;

use crate::{
    EffectDisposition, EffectDispositionRule, EffectEmit, EnumSchema, Expr, FieldInit, FieldSchema,
    InitSchema, InputMatch, InvariantSchema, MachineSchema, RustBinding, StateSchema,
    TransitionSchema, TypeRef, Update, VariantSchema,
};

/// Observation anchor for member-lifecycle-related async routes in `mob_bundle`.
///
/// This machine is intentionally narrow. Today the live mob runtime still keeps
/// canonical member lifecycle truth in handwritten mob code; this anchor only
/// records which lifecycle-relevant operation events the composition has
/// observed so those routes are not entirely informal. It is purely
/// observational and must not be interpreted as the canonical member lifecycle
/// owner—it stands in only until the formal owner schema is completed.
pub fn mob_member_lifecycle_anchor_machine() -> MachineSchema {
    MachineSchema {
        machine: "MobMemberLifecycleAnchorMachine".into(),
        version: 1,
        rust: RustBinding {
            crate_name: "meerkat-mob".into(),
            module: "generated::mob_member_lifecycle_anchor".into(),
        },
        state: StateSchema {
            phase: EnumSchema {
                name: "MobMemberLifecycleAnchorState".into(),
                variants: vec![variant("Tracking")],
            },
            fields: vec![
                field(
                    "observed_peer_exposed_operations",
                    TypeRef::Set(Box::new(TypeRef::Named("OperationId".into()))),
                ),
                field(
                    "observed_terminalized_operations",
                    TypeRef::Set(Box::new(TypeRef::Named("OperationId".into()))),
                ),
                field("peer_exposure_count", TypeRef::U32),
                field("terminalization_count", TypeRef::U32),
            ],
            init: InitSchema {
                phase: "Tracking".into(),
                fields: vec![
                    init("observed_peer_exposed_operations", Expr::EmptySet),
                    init("observed_terminalized_operations", Expr::EmptySet),
                    init("peer_exposure_count", Expr::U64(0)),
                    init("terminalization_count", Expr::U64(0)),
                ],
            },
            terminal_phases: vec![],
        },
        inputs: EnumSchema {
            name: "MobMemberLifecycleAnchorInput".into(),
            variants: vec![
                VariantSchema {
                    name: "MemberPeerExposed".into(),
                    fields: vec![field("operation_id", TypeRef::Named("OperationId".into()))],
                },
                VariantSchema {
                    name: "MemberTerminalized".into(),
                    fields: vec![
                        field("operation_id", TypeRef::Named("OperationId".into())),
                        field(
                            "terminal_outcome",
                            TypeRef::Named("OperationTerminalOutcome".into()),
                        ),
                    ],
                },
            ],
        },
        effects: EnumSchema {
            name: "MobMemberLifecycleAnchorEffect".into(),
            variants: vec![variant("MemberLifecycleSnapshotUpdated")],
        },
        helpers: vec![],
        derived: vec![],
        invariants: Vec::<InvariantSchema>::new(),
        transitions: vec![
            TransitionSchema {
                name: "MemberPeerExposed".into(),
                from: vec!["Tracking".into()],
                on: InputMatch {
                    variant: "MemberPeerExposed".into(),
                    bindings: vec!["operation_id".into()],
                },
                guards: vec![],
                updates: vec![
                    Update::SetInsert {
                        field: "observed_peer_exposed_operations".into(),
                        value: Expr::Binding("operation_id".into()),
                    },
                    Update::Increment {
                        field: "peer_exposure_count".into(),
                        amount: 1,
                    },
                ],
                to: "Tracking".into(),
                emit: vec![EffectEmit {
                    variant: "MemberLifecycleSnapshotUpdated".into(),
                    fields: IndexMap::new(),
                }],
            },
            TransitionSchema {
                name: "MemberTerminalized".into(),
                from: vec!["Tracking".into()],
                on: InputMatch {
                    variant: "MemberTerminalized".into(),
                    bindings: vec!["operation_id".into(), "terminal_outcome".into()],
                },
                guards: vec![],
                updates: vec![
                    Update::SetInsert {
                        field: "observed_terminalized_operations".into(),
                        value: Expr::Binding("operation_id".into()),
                    },
                    Update::Increment {
                        field: "terminalization_count".into(),
                        amount: 1,
                    },
                ],
                to: "Tracking".into(),
                emit: vec![EffectEmit {
                    variant: "MemberLifecycleSnapshotUpdated".into(),
                    fields: IndexMap::new(),
                }],
            },
        ],
        effect_dispositions: vec![disposition(
            "MemberLifecycleSnapshotUpdated",
            EffectDisposition::Local,
        )],
    }
}

fn disposition(name: &str, d: EffectDisposition) -> EffectDispositionRule {
    EffectDispositionRule {
        effect_variant: name.into(),
        disposition: d,
        handoff_protocol: None,
    }
}

fn variant(name: &str) -> VariantSchema {
    VariantSchema {
        name: name.into(),
        fields: vec![],
    }
}

fn field(name: &str, ty: TypeRef) -> FieldSchema {
    FieldSchema {
        name: name.into(),
        ty,
    }
}

fn init(field: &str, expr: Expr) -> FieldInit {
    FieldInit {
        field: field.into(),
        expr,
    }
}