C_callback.inl

/*
 * Copyright 2024 Guillaume Guillet
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
 
namespace fge
{
 
//CallbackFunctor
 
template<class... Types>
CallbackFunctor<Types...>::CallbackFunctor(fge::CallbackFunctor<Types...>::CallbackFunction func) :
        g_function(func)
{}
 
template<class... Types>
void CallbackFunctor<Types...>::call(Types... args)
{
    this->g_function(args...);
}
template<class... Types>
bool CallbackFunctor<Types...>::check(void* ptr)
{
    return this->g_function == reinterpret_cast<fge::CallbackFunctor<Types...>::CallbackFunction>(ptr);
}
 
//CallbackObjectFunctor
 
template<class TObject, class... Types>
CallbackObjectFunctor<TObject, Types...>::CallbackObjectFunctor(
        fge::CallbackObjectFunctor<TObject, Types...>::CallbackFunctionObject func,
        TObject* object) :
        g_functionObj(func),
        g_object(object)
{}
 
template<class TObject, class... Types>
void CallbackObjectFunctor<TObject, Types...>::call(Types... args)
{
    ((this->g_object)->*(this->g_functionObj))(args...);
}
 
template<class TObject, class... Types>
bool CallbackObjectFunctor<TObject, Types...>::check(void* ptr)
{
    return this->g_object == reinterpret_cast<TObject*>(ptr);
}
 
//CallbackLambda
 
template<class... Types>
template<typename TLambda>
CallbackLambda<Types...>::CallbackLambda(TLambda const& lambda) :
        g_lambda(new TLambda(lambda))
{
    this->g_executeLambda = [](void* lambdaPtr, [[maybe_unused]] Types... arguments) {
        if constexpr (std::is_invocable_v<TLambda, Types...>)
        {
            return (*reinterpret_cast<TLambda*>(lambdaPtr))(arguments...);
        }
        else
        {
            return (*reinterpret_cast<TLambda*>(lambdaPtr))();
        }
    };
    this->g_deleteLambda = [](void* lambdaPtr) { delete reinterpret_cast<TLambda*>(lambdaPtr); };
}
template<class... Types>
CallbackLambda<Types...>::~CallbackLambda()
{
    (*this->g_deleteLambda)(this->g_lambda);
}
 
template<class... Types>
void CallbackLambda<Types...>::call(Types... args)
{
    (*this->g_executeLambda)(this->g_lambda, args...);
}
template<class... Types>
bool CallbackLambda<Types...>::check([[maybe_unused]] void* ptr)
{
    return false;
}
 
//CallbackHandler
 
template<class... Types>
void CallbackHandler<Types...>::clear()
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    this->detachAll();
    for (auto& callee: this->g_callees)
    {
        callee._f = nullptr;
    }
}
 
template<class... Types>
fge::CallbackBase<Types...>* CallbackHandler<Types...>::add(CalleePtr&& callback, fge::Subscriber* subscriber)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
 
    this->attach(subscriber);
 
    //Search for a "mark for deletion" callee and replace it with the new one
    for (auto& callee: this->g_callees)
    {
        if (callee._f == nullptr)
        {
            callee._f = std::move(callback);
            callee._subscriber = subscriber;
            return callee._f.get();
        }
    }
 
    //Emplace back the new callee if there is no "mark for deletion"
    this->g_callees.emplace_back(std::move(callback), subscriber);
    return this->g_callees.back()._f.get();
}
template<class... Types>
inline fge::CallbackFunctor<Types...>*
CallbackHandler<Types...>::addFunctor(typename fge::CallbackFunctor<Types...>::CallbackFunction func,
                                      fge::Subscriber* subscriber)
{
    return reinterpret_cast<fge::CallbackFunctor<Types...>*>(
            this->add(std::make_unique<fge::CallbackFunctor<Types...>>(func), subscriber));
}
template<class... Types>
template<typename TLambda>
inline fge::CallbackLambda<Types...>* CallbackHandler<Types...>::addLambda(TLambda const& lambda,
                                                                           fge::Subscriber* subscriber)
{
    return reinterpret_cast<fge::CallbackLambda<Types...>*>(
            this->add(std::make_unique<fge::CallbackLambda<Types...>>(lambda), subscriber));
}
template<class... Types>
template<class TObject>
inline fge::CallbackObjectFunctor<TObject, Types...>* CallbackHandler<Types...>::addObjectFunctor(
        typename fge::CallbackObjectFunctor<TObject, Types...>::CallbackFunctionObject func,
        TObject* object,
        Subscriber* subscriber)
{
    return reinterpret_cast<fge::CallbackObjectFunctor<TObject, Types...>*>(
            this->add(std::make_unique<fge::CallbackObjectFunctor<TObject, Types...>>(func, object), subscriber));
}
 
template<class... Types>
void CallbackHandler<Types...>::delPtr(void* ptr)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    for (auto& callee: this->g_callees)
    {
        if (callee._f == nullptr)
        {
            continue;
        }
 
        if (callee._f->check(ptr))
        {
            this->detachOnce(callee._subscriber);
            callee._f = nullptr;
        }
    }
}
template<class... Types>
void CallbackHandler<Types...>::delSub(fge::Subscriber* subscriber)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    for (auto& callee: this->g_callees)
    {
        if (callee._f == nullptr)
        {
            continue;
        }
 
        if (callee._subscriber == subscriber)
        {
            if (this->detachOnce(callee._subscriber) == 0)
            { //At this point, all subscribers are detached so we can end the loop
                callee._f = nullptr;
                break;
            }
            callee._f = nullptr;
        }
    }
}
template<class... Types>
void CallbackHandler<Types...>::del(fge::CallbackBase<Types...>* callback)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    for (auto& callee: this->g_callees)
    {
        if (callee._f == nullptr)
        {
            continue;
        }
 
        if (callee._f.get() == callback)
        {
            this->detachOnce(callee._subscriber);
            this->g_callees._f = nullptr;
        }
    }
}
 
template<class... Types>
void CallbackHandler<Types...>::call(Types... args)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
 
    std::size_t eraseCount = 0;
    for (std::size_t i = 0; i < this->g_callees.size(); ++i)
    {
        if (this->g_callees[i]._f == nullptr)
        {
            ++eraseCount;
            continue;
        }
 
        if (eraseCount > 0)
        { //We found a valid callee, we can erase the previous ones
            this->g_callees.erase(this->g_callees.begin() + i - eraseCount, this->g_callees.begin() + i);
            i -= eraseCount;
            eraseCount = 0;
        }
 
        this->g_callees[i]._f->call(std::forward<Types>(args)...);
 
        //While calling, the callee can remove itself or others
        //Every erased callee is replaced by nullptr (mark for deletion)
        //In order to avoid calling somthing that is not valid anymore
    }
}
 
template<class... Types>
void CallbackHandler<Types...>::hook(fge::CallbackHandler<Types...>& handler, fge::Subscriber* subscriber)
{
    if (this == &handler)
    { //Can't hook itself
        return;
    }
 
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    this->add(new fge::CallbackLambda<Types...>(
                      [&handler](Types... args) { handler.call(std::forward<Types>(args)...); }),
              subscriber);
}
 
template<class... Types>
void CallbackHandler<Types...>::onDetach(fge::Subscriber* subscriber)
{
    std::scoped_lock<std::recursive_mutex> const lck(this->g_mutex);
    for (auto& callee: this->g_callees)
    {
        if (callee._f == nullptr)
        {
            continue;
        }
 
        if (callee._subscriber == subscriber)
        {
            callee._f = nullptr;
        }
    }
}
 
} // namespace fge