123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156 |
- #ifndef BOOST_HOF_GUARD_APPLY_EVAL_H
- #define BOOST_HOF_GUARD_APPLY_EVAL_H
- #include <boost/hof/config.hpp>
- #include <boost/hof/returns.hpp>
- #include <boost/hof/detail/forward.hpp>
- #include <boost/hof/detail/static_const_var.hpp>
- #include <boost/hof/apply.hpp>
- #include <boost/hof/eval.hpp>
- #if BOOST_HOF_NO_ORDERED_BRACE_INIT
- #include <boost/hof/pack.hpp>
- #include <boost/hof/capture.hpp>
- #endif
- namespace boost { namespace hof {
- namespace detail {
- #if BOOST_HOF_NO_ORDERED_BRACE_INIT
- template<class R, class F, class Pack>
- constexpr R eval_ordered(const F& f, Pack&& p)
- {
- return p(f);
- }
- template<class R, class F, class Pack, class T, class... Ts>
- constexpr R eval_ordered(const F& f, Pack&& p, T&& x, Ts&&... xs)
- {
- return boost::hof::detail::eval_ordered<R>(f, boost::hof::pack_join(BOOST_HOF_FORWARD(Pack)(p), boost::hof::pack_forward(boost::hof::eval(x))), BOOST_HOF_FORWARD(Ts)(xs)...);
- }
- #else
- template<class R>
- struct eval_helper
- {
- R result;
- template<class F, class... Ts>
- constexpr eval_helper(const F& f, Ts&&... xs) : result(boost::hof::apply(f, BOOST_HOF_FORWARD(Ts)(xs)...))
- {}
- };
- template<>
- struct eval_helper<void>
- {
- int x;
- template<class F, class... Ts>
- constexpr eval_helper(const F& f, Ts&&... xs) : x((boost::hof::apply(f, BOOST_HOF_FORWARD(Ts)(xs)...), 0))
- {}
- };
- #endif
- struct apply_eval_f
- {
- template<class F, class... Ts, class R=decltype(
- boost::hof::apply(std::declval<const F&>(), boost::hof::eval(std::declval<Ts>())...)
- ),
- class=typename std::enable_if<(!std::is_void<R>::value)>::type
- >
- constexpr R operator()(const F& f, Ts&&... xs) const BOOST_HOF_RETURNS_DEDUCE_NOEXCEPT(boost::hof::apply(f, boost::hof::eval(BOOST_HOF_FORWARD(Ts)(xs))...))
- {
- return
- #if BOOST_HOF_NO_ORDERED_BRACE_INIT
- boost::hof::detail::eval_ordered<R>
- (f, boost::hof::pack(), BOOST_HOF_FORWARD(Ts)(xs)...);
- #else
- boost::hof::detail::eval_helper<R>
- {f, boost::hof::eval(BOOST_HOF_FORWARD(Ts)(xs))...}.result;
- #endif
- }
- template<class F, class... Ts, class R=decltype(
- boost::hof::apply(std::declval<const F&>(), boost::hof::eval(std::declval<Ts>())...)
- ),
- class=typename std::enable_if<(std::is_void<R>::value)>::type
- >
- constexpr typename detail::holder<Ts...>::type
- operator()(const F& f, Ts&&... xs) const BOOST_HOF_RETURNS_DEDUCE_NOEXCEPT(boost::hof::apply(f, boost::hof::eval(BOOST_HOF_FORWARD(Ts)(xs))...))
- {
- return (typename detail::holder<Ts...>::type)
- #if BOOST_HOF_NO_ORDERED_BRACE_INIT
- boost::hof::detail::eval_ordered<R>
- (f, boost::hof::pack(), BOOST_HOF_FORWARD(Ts)(xs)...);
- #else
- boost::hof::detail::eval_helper<R>
- {f, boost::hof::eval(BOOST_HOF_FORWARD(Ts)(xs))...};
- #endif
- }
- };
- }
- BOOST_HOF_DECLARE_STATIC_VAR(apply_eval, detail::apply_eval_f);
- }}
- #endif
|