// Copyright (c) 2025-2026 Zensical and contributors

// SPDX-License-Identifier: MIT
// All contributions are certified under the DCO

// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
// IN THE SOFTWARE.

// ----------------------------------------------------------------------------

//! Filter map function.

use std::fmt::Display;

use zrx_scheduler::step::error::IntoResult;
use zrx_scheduler::step::{Result, Scope};
use zrx_scheduler::Key;

use crate::stream::function::arguments::{
    ForId, ForIdSplat, ForIdValue, ForKey, ForKeySplat, ForKeyValue, ForScope,
    ForScopeSplat, ForScopeValue, ForSplat, ForValue,
};
use crate::stream::function::catch;

// ----------------------------------------------------------------------------
// Traits
// ----------------------------------------------------------------------------

/// Filter map function.
pub trait FilterMapFn<A, I, T, U>: Send + 'static {
    /// Executes the filter map function.
    ///
    /// # Errors
    ///
    /// This method returns an error if the function fails to execute.
    fn execute(&self, scope: &mut Scope<I>, value: T) -> Result<Option<U>>;
}

// ----------------------------------------------------------------------------
// Blanket implementations
// ----------------------------------------------------------------------------

impl<F, R, I, T, U> FilterMapFn<ForScope, I, T, U> for F
where
    F: Fn(&mut Scope<I>) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, _: T) -> Result<Option<U>> {
        catch(|| self(scope).into_result())
    }
}

impl<F, R, I, T, U> FilterMapFn<ForScopeValue, I, T, U> for F
where
    F: Fn(&mut Scope<I>, T) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, value: T) -> Result<Option<U>> {
        catch(|| self(scope, value).into_result())
    }
}

// ----------------------------------------------------------------------------

impl<F, R, I, T, U> FilterMapFn<ForKey, I, T, U> for F
where
    F: Fn(&Key<I>) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, _: T) -> Result<Option<U>> {
        catch(|| self(scope.key()).into_result())
    }
}

impl<F, R, I, T, U> FilterMapFn<ForKeyValue, I, T, U> for F
where
    F: Fn(&Key<I>, T) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, value: T) -> Result<Option<U>> {
        catch(|| self(scope.key(), value).into_result())
    }
}

// ----------------------------------------------------------------------------

impl<F, R, I, T, U> FilterMapFn<ForId, I, T, U> for F
where
    F: Fn(&I) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, _: T) -> Result<Option<U>> {
        catch(|| self(scope.key().try_as_id()?).into_result())
    }
}

impl<F, R, I, T, U> FilterMapFn<ForIdValue, I, T, U> for F
where
    F: Fn(&I, T) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, value: T) -> Result<Option<U>> {
        catch(|| self(scope.key().try_as_id()?, value).into_result())
    }
}

// ----------------------------------------------------------------------------

impl<F, R, I, T, U> FilterMapFn<ForValue, I, T, U> for F
where
    F: Fn(T) -> R + Send + 'static,
    R: IntoResult<Option<U>>,
    I: Display,
{
    #[cfg_attr(
        feature = "tracing",
        tracing::instrument(
            level = "debug", skip_all, fields(key = %scope.key())
        )
    )]
    #[inline]
    fn execute(&self, scope: &mut Scope<I>, value: T) -> Result<Option<U>> {
        catch(|| self(value).into_result())
    }
}

// ----------------------------------------------------------------------------
// Macros
// ----------------------------------------------------------------------------

/// Implements filter map function trait for scope and splat arguments.
macro_rules! impl_filter_map_fn_for_scope_splat {
    ($($T:ident),+) => {
        impl<F, R, I, $($T,)+ U> FilterMapFn<ForScopeSplat, I, ($($T,)+), U> for F
        where
            F: Fn(&mut Scope<I>, $($T),+) -> R + Send + 'static,
            R: IntoResult<Option<U>>,
            I: Display,
        {
            #[cfg_attr(
                feature = "tracing",
                tracing::instrument(
                    level = "debug", skip_all, fields(key = %scope.key())
                )
            )]
            #[inline]
            fn execute(
                &self, scope: &mut Scope<I>, value: ($($T,)+)
            ) -> Result<Option<U>> {
                #[allow(non_snake_case)]
                let ($($T,)+) = value;
                catch(|| self(scope, $($T),+).into_result())
            }
        }
    };
}

/// Implements filter map function trait for key and splat arguments.
macro_rules! impl_filter_map_fn_for_key_splat {
    ($($T:ident),+) => {
        impl<F, R, I, $($T,)+ U> FilterMapFn<ForKeySplat, I, ($($T,)+), U> for F
        where
            F: Fn(&Key<I>, $($T),+) -> R + Send + 'static,
            R: IntoResult<Option<U>>,
            I: Display,
        {
            #[cfg_attr(
                feature = "tracing",
                tracing::instrument(
                    level = "debug", skip_all, fields(key = %scope.key())
                )
            )]
            #[inline]
            fn execute(
                &self, scope: &mut Scope<I>, value: ($($T,)+)
            ) -> Result<Option<U>> {
                #[allow(non_snake_case)]
                let ($($T,)+) = value;
                catch(|| self(scope.key(), $($T),+).into_result())
            }
        }
    };
}

/// Implements filter  map function trait for identifier and splat arguments.
macro_rules! impl_filter_map_fn_for_id_splat {
    ($($T:ident),+) => {
        impl<F, R, I, $($T,)+ U> FilterMapFn<ForIdSplat, I, ($($T,)+), U> for F
        where
            F: Fn(&I, $($T),+) -> R + Send + 'static,
            R: IntoResult<Option<U>>,
            I: Display,
        {
            #[cfg_attr(
                feature = "tracing",
                tracing::instrument(
                    level = "debug", skip_all, fields(key = %scope.key())
                )
            )]
            #[inline]
            fn execute(
                &self, scope: &mut Scope<I>, value: ($($T,)+)
            ) -> Result<Option<U>> {
                #[allow(non_snake_case)]
                let ($($T,)+) = value;
                catch(|| self(scope.key().try_as_id()?, $($T),+).into_result())
            }
        }
    };
}

/// Implements filter map function trait for splat arguments.
macro_rules! impl_filter_map_fn_for_splat {
    ($($T:ident),+) => {
        impl<F, R, I, $($T,)+ U> FilterMapFn<ForSplat, I, ($($T,)+), U> for F
        where
            F: Fn($($T),+) -> R + Send + 'static,
            R: IntoResult<Option<U>>,
            I: Display,
        {
            #[cfg_attr(
                feature = "tracing",
                tracing::instrument(
                    level = "debug", skip_all, fields(key = %scope.key())
                )
            )]
            #[inline]
            fn execute(
                &self, scope: &mut Scope<I>, value: ($($T,)+)
            ) -> Result<Option<U>> {
                #[allow(non_snake_case)]
                let ($($T,)+) = value;
                catch(|| self($($T),+).into_result())
            }
        }
    };
}

// ----------------------------------------------------------------------------

/// Implements filter map function traits.
macro_rules! impl_filter_map_fn {
    ($($T:ident),+) => {
        impl_filter_map_fn_for_scope_splat!($($T),+);
        impl_filter_map_fn_for_key_splat!($($T),+);
        impl_filter_map_fn_for_id_splat!($($T),+);
        impl_filter_map_fn_for_splat!($($T),+);
    };
}

// ----------------------------------------------------------------------------

impl_filter_map_fn!(T1);
impl_filter_map_fn!(T1, T2);
impl_filter_map_fn!(T1, T2, T3);
impl_filter_map_fn!(T1, T2, T3, T4);
impl_filter_map_fn!(T1, T2, T3, T4, T5);
impl_filter_map_fn!(T1, T2, T3, T4, T5, T6);
impl_filter_map_fn!(T1, T2, T3, T4, T5, T6, T7);
impl_filter_map_fn!(T1, T2, T3, T4, T5, T6, T7, T8);
