use preserves_schema::Codec;

use std::sync::Arc;

use syndicate::actor::*;
use syndicate::enclose;
use syndicate::preserves::value::NestedValue;
use syndicate::supervise::{Supervisor, SupervisorConfiguration};

use crate::language::language;
use crate::lifecycle;
use crate::schemas::internal_services::Milestone;

use syndicate_macros::during;

pub fn on_demand(t: &mut Activation, ds: Arc<Cap>) {
    t.spawn(Some(AnyValue::symbol("milestone_listener")), move |t| {
        Ok(during!(t, ds, language(), <run-service $spec: Milestone>, |t: &mut Activation| {
            Supervisor::start(
                t,
                Some(language().unparse(&spec)),
                SupervisorConfiguration::default(),
                |_, _| Ok(()),
                enclose!((ds) move |t| enclose!((ds, spec) run(t, ds, spec))))
        }))
    });
}

fn run(
    t: &mut Activation,
    ds: Arc<Cap>,
    spec: Milestone,
) -> ActorResult {
    lifecycle::terminate_on_service_restart(t, &ds, &spec);
    tracing::info!(milestone = ?spec.name, "entered");
    ds.assert(t, language(), &lifecycle::started(&spec));
    ds.assert(t, language(), &lifecycle::ready(&spec));
    t.on_stop(move |_| { tracing::info!(milestone = ?spec.name, "exited"); Ok(()) });
    Ok(())
}