telltale-runtime 17.0.0

// Retry middleware for effect handlers
//
// Implements exponential backoff retry logic for failed send operations.

use async_trait::async_trait;
use cfg_if::cfg_if;
use serde::{de::DeserializeOwned, Serialize};
use std::time::Duration;
use tracing::debug;

use crate::effects::contract::{DocumentedHandlerContract, HandlerContractProfile, RetryPolicy};
use crate::effects::registry::{ExtensibleHandler, ExtensionRegistry};
use crate::effects::{ChoreoHandler, ChoreoResult, RoleId};

/// Retry middleware with exponential backoff
#[derive(Clone)]
pub struct Retry<H> {
    inner: H,
    max_retries: usize,
    base_delay: Duration,
}

impl<H> Retry<H> {
    pub fn new(inner: H) -> Self {
        Self {
            inner,
            max_retries: 3,
            base_delay: Duration::from_millis(100),
        }
    }

    pub fn with_config(inner: H, max_retries: usize, base_delay: Duration) -> Self {
        Self {
            inner,
            max_retries,
            base_delay,
        }
    }
}

impl<H> DocumentedHandlerContract for Retry<H>
where
    H: DocumentedHandlerContract,
{
    fn contract_profile() -> HandlerContractProfile {
        let mut profile = H::contract_profile();
        profile.handler_name = std::any::type_name::<Self>();
        profile.transport.retry_policy = RetryPolicy::ExternalMiddleware;
        profile.notes.push(
            "retry middleware may repeat send attempts but must not widen the handler's semantic contract",
        );
        profile
    }
}

#[async_trait]
impl<H: ChoreoHandler + Send> ChoreoHandler for Retry<H> {
    type Role = H::Role;
    type Endpoint = H::Endpoint;

    async fn send<M: Serialize + Send + Sync>(
        &mut self,
        ep: &mut Self::Endpoint,
        to: Self::Role,
        msg: &M,
    ) -> ChoreoResult<()> {
        let mut retries = 0;
        loop {
            // bounded: exits on success or when retries >= max_retries
            match self.inner.send(ep, to, msg).await {
                Ok(()) => return Ok(()),
                Err(_e) if retries < self.max_retries => {
                    retries += 1;
                    let delay = self.base_delay * (1 << (retries - 1));
                    debug!(?to, ?retries, ?delay, "send failed, retrying");
                    // Platform-specific sleep
                    cfg_if! {
                        if #[cfg(target_arch = "wasm32")] {
                            wasm_timer::Delay::new(delay).await.ok();
                        } else {
                            tokio::time::sleep(delay).await;
                        }
                    }
                }
                Err(e) => return Err(e),
            }
        }
    }

    async fn recv<M: DeserializeOwned + Send>(
        &mut self,
        ep: &mut Self::Endpoint,
        from: Self::Role,
    ) -> ChoreoResult<M> {
        // Recv typically shouldn't be retried as it changes protocol state
        self.inner.recv(ep, from).await
    }

    async fn choose(
        &mut self,
        ep: &mut Self::Endpoint,
        who: Self::Role,
        label: <Self::Role as RoleId>::Label,
    ) -> ChoreoResult<()> {
        self.inner.choose(ep, who, label).await
    }

    async fn offer(
        &mut self,
        ep: &mut Self::Endpoint,
        from: Self::Role,
    ) -> ChoreoResult<<Self::Role as RoleId>::Label> {
        self.inner.offer(ep, from).await
    }

    async fn with_timeout<F, T>(
        &mut self,
        ep: &mut Self::Endpoint,
        at: Self::Role,
        dur: Duration,
        body: F,
    ) -> ChoreoResult<T>
    where
        F: std::future::Future<Output = ChoreoResult<T>> + Send,
    {
        self.inner.with_timeout(ep, at, dur, body).await
    }
}

impl<H> ExtensibleHandler for Retry<H>
where
    H: ExtensibleHandler + Send,
{
    fn extension_registry(&self) -> &ExtensionRegistry<Self::Endpoint, Self::Role> {
        self.inner.extension_registry()
    }
}