source: mainline/uspace/lib/cpp/include/__bits/thread/shared_state.hpp@ a95e75e

/*
 * Copyright (c) 2019 Jaroslav Jindrak
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#ifndef LIBCPP_BITS_THREAD_SHARED_STATE
#define LIBCPP_BITS_THREAD_SHARED_STATE

/**
 * 30.6.4, shared state:
 */

#include <__bits/functional/function.hpp>
#include <__bits/functional/invoke.hpp>
#include <__bits/refcount_obj.hpp>
#include <__bits/thread/threading.hpp>

namespace std::aux
{
    template<class R>
    class shared_state: public aux::refcount_obj
    {
        public:
            shared_state()
                : mutex_{}, condvar_{}, value_{}, value_set_{false},
                  exception_{}, has_exception_{false}
            {
                threading::mutex::init(mutex_);
                threading::condvar::init(condvar_);
            }

            void destroy() override
            {
                /**
                 * Note: No need to act in this case, async shared
                 *       state is the object that needs to sometimes
                 *       invoke its payload.
                 */
            }

            void set_value(const R& val, bool set)
            {
                /**
                 * Note: This is the 'mark ready' move described
                 *       in 30.6.4 (6).
                 */

                aux::threading::mutex::lock(mutex_);
                value_ = val;
                value_set_ = set;
                aux::threading::mutex::unlock(mutex_);

                aux::threading::condvar::broadcast(condvar_);
            }

            void set_value(R&& val, bool set = true)
            {
                aux::threading::mutex::lock(mutex_);
                value_ = std::move(val);
                value_set_ = set;
                aux::threading::mutex::unlock(mutex_);

                aux::threading::condvar::broadcast(condvar_);
            }

            void mark_set(bool set = true) noexcept
            {
                value_set_ = set;
            }

            bool is_set() const noexcept
            {
                return value_set_;
            }

            R& get()
            {
                return value_;
            }

            void set_exception(exception_ptr ptr)
            {
                exception_ = ptr;
                has_exception_ = true;
            }

            bool has_exception() const noexcept
            {
                return has_exception_;
            }

            void throw_stored_exception() const
            {
                // TODO: implement
            }

            /**
             * TODO: This member function is supposed to be marked
             *       as 'const'. In such a case, however, we cannot
             *       use the underlying fibril API because these
             *       references get converted to pointers and the API
             *       does not accept e.g. 'const fibril_condvar_t*'.
             *
             *       The same applies to the wait_for and wait_until
             *       functions.
             */
            virtual void wait()
            {
                aux::threading::mutex::lock(mutex_);
                while (!value_set_)
                    aux::threading::condvar::wait(condvar_, mutex_);
                aux::threading::mutex::unlock(mutex_);
            }

            template<class Rep, class Period>
            virtual future_status
            wait_for(const chrono::duration<Rep, Period>& rel_time)
            {
                aux::threading::mutex::lock(mutex_);
                auto res = aux::threading::condvar::wait_for(
                    condvar_, mutex_,
                    aux::threading::time::convert(rel_time)
                );
                aux::threading::mutex::unlock(mutex_);

                return res == ETIMEOUT ? future_status::timeout
                                       : future_status::ready;
            }

            template<class Clock, class Duration>
            virtual future_status
            wait_until(const chrono::time_point<Clock, Duration>& abs_time)
            {
                aux::threading::mutex::lock(mutex_);
                auto res = aux::threading::condvar::wait_for(
                    condvar_, mutex_,
                    aux::threading::time::convert(abs_time - Clock::now())
                );
                aux::threading::mutex::unlock(mutex_);

                return res == ETIMEOUT ? future_status::timeout
                                       : future_status::ready;
            }

            ~shared_state() override = default;

        private:
            aux::mutex_t mutex_;
            aux::condvar_t condvar_;

            R value_;
            bool value_set_;

            exception_ptr exception_;
            bool has_exception_;
    };

    /**
     * We could make one state for both async and
     * deferred policies, but then we would be wasting
     * memory and the only benefit would be the ability
     * for additional implementation defined policies done
     * directly in that state (as opposed to making new
     * states for them).
     *
     * But since we have no plan (nor need) to make those,
     * this approach seems to be the best one.
     */

    template<class R, class F, class... Args>
    class async_shared_state: public shared_state<R>
    {
        public:
            async_shared_state(F&& f, Args&&... args)
                : shared_state<R>{}, thread_{}
            {
                thread_ = thread{
                    [=](){
                        try
                        {
                            this->set_value(invoke(f, args...));
                        }
                        catch(...) // TODO: Any exception.
                        {
                            // TODO: Store it.
                        }
                    }
                };
            }

            void destroy() override
            {
                if (!this->is_set())
                    thread_.join();
            }

            void wait() override
            {
                if (!this->is_set())
                    thread_.join();
            }

            template<class Rep, class Period>
            future_status
            wait_for(const chrono::duration<Rep, Period>&) override
            {
                // TODO: have to sleep and check
                return future_status::ready;
            }

            template<class Clock, class Duration>
            future_status
            wait_until(const chrono::time_point<Clock, Duration>&) override
            {
                // TODO: have to sleep and check
                return future_status::ready;
            }

            ~async_shared_state() override
            {
                destroy();
            }

        private:
            thread thread_;
    };

    template<class R, class F, class... Args>
    class deferred_shared_state: public shared_state<R>
    {
        public:
            template<class G>
            deferred_shared_state(G&& f, Args&&... args)
                : shared_state<R>{}, func_{forward<F>(f)},
                  args_{forward<Args>(args)...}
            { /* DUMMY BODY */ }

            void destroy() override
            {
                aux::threading::mutex::lock(mutex_);
                if (!this->is_set())
                    invoke_(make_index_sequence<sizeof...(Args)>{});
                aux::threading::mutex::unlock(mutex_);
            }

            void wait() override
            {
                aux::threading::mutex::lock(mutex_);
                if (!this->is_set())
                    invoke_(make_index_sequence<sizeof...(Args)>{});
                aux::threading::mutex::unlock(mutex_);
            }

            template<class Rep, class Period>
            future_status
            wait_for(const chrono::duration<Rep, Period>&) override
            {
                /**
                 * Note: Neither of the wait_ functions has any effect
                 *       for deferred functions spawned by async (which
                 *       are the only users of this state type).
                 */
                return future_status::deferred;
            }

            template<class Clock, class Duration>
            future_status
            wait_until(const chrono::time_point<Clock, Duration>&) override
            {
                return future_status::deferred;
            }

            ~deferred_shared_state() override
            {
                destroy();
            }

        private:
            function<R(decay_t<Args>...)> func_;
            tuple<decay_t<Args>...> args_;

            template<size_t... Is>
            void invoke_(index_sequence<Is...>)
            {
                try
                {
                    this->set_value(invoke(move(func_), get<Is>(move(args_))...));
                }
                catch(...)
                {
                    // TODO: Store it.
                }
            }
    };
}

#endif