FM / hana

/usr/include/boost/hana

Name	Size	Mode	Actions
concept/	-	0755	rm
core/	-	0755	rm
detail/	-	0755	rm
experimental/	-	0755	rm
ext/	-	0755	rm
functional/	-	0755	rm
fwd/	-	0755	rm
accessors.hpp	1513	0644	edit dl rm
adapt_adt.hpp	422	0644	edit dl rm
adapt_struct.hpp	437	0644	edit dl rm
adjust.hpp	1698	0644	edit dl rm
adjust_if.hpp	2515	0644	edit dl rm
all.hpp	1327	0644	edit dl rm
all_of.hpp	1570	0644	edit dl rm
and.hpp	1667	0644	edit dl rm
any.hpp	1327	0644	edit dl rm
any_of.hpp	7531	0644	edit dl rm
ap.hpp	2496	0644	edit dl rm
append.hpp	2357	0644	edit dl rm
assert.hpp	16325	0644	edit dl rm
at.hpp	1659	0644	edit dl rm
at_key.hpp	3009	0644	edit dl rm
back.hpp	1534	0644	edit dl rm
basic_tuple.hpp	9455	0644	edit dl rm
bool.hpp	9747	0644	edit dl rm
cartesian_product.hpp	3860	0644	edit dl rm
chain.hpp	1488	0644	edit dl rm
comparing.hpp	1222	0644	edit dl rm
concat.hpp	2712	0644	edit dl rm
concept.hpp	1301	0644	edit dl rm
config.hpp	7152	0644	edit dl rm
contains.hpp	1560	0644	edit dl rm
core.hpp	610	0644	edit dl rm
count.hpp	1496	0644	edit dl rm
count_if.hpp	3137	0644	edit dl rm
cycle.hpp	4275	0644	edit dl rm
define_struct.hpp	442	0644	edit dl rm
difference.hpp	1116	0644	edit dl rm
div.hpp	3804	0644	edit dl rm
drop_back.hpp	2475	0644	edit dl rm
drop_front.hpp	1796	0644	edit dl rm
drop_front_exactly.hpp	3030	0644	edit dl rm
drop_while.hpp	3174	0644	edit dl rm
duplicate.hpp	1392	0644	edit dl rm
empty.hpp	1400	0644	edit dl rm
equal.hpp	8012	0644	edit dl rm
erase_key.hpp	1029	0644	edit dl rm
eval.hpp	1798	0644	edit dl rm
eval_if.hpp	3381	0644	edit dl rm
extend.hpp	1498	0644	edit dl rm
extract.hpp	1248	0644	edit dl rm
fill.hpp	2216	0644	edit dl rm
filter.hpp	4473	0644	edit dl rm
find.hpp	1732	0644	edit dl rm
find_if.hpp	4011	0644	edit dl rm
first.hpp	1242	0644	edit dl rm
flatten.hpp	1769	0644	edit dl rm
fold.hpp	378	0644	edit dl rm
fold_left.hpp	3128	0644	edit dl rm
fold_right.hpp	3147	0644	edit dl rm
for_each.hpp	1863	0644	edit dl rm
front.hpp	1315	0644	edit dl rm
functional.hpp	1186	0644	edit dl rm
fuse.hpp	1309	0644	edit dl rm
greater.hpp	2401	0644	edit dl rm
greater_equal.hpp	2552	0644	edit dl rm
group.hpp	5543	0644	edit dl rm
hash.hpp	3572	0644	edit dl rm
if.hpp	1834	0644	edit dl rm
index_if.hpp	3485	0644	edit dl rm
insert.hpp	1620	0644	edit dl rm
insert_range.hpp	2171	0644	edit dl rm
integral_constant.hpp	389	0644	edit dl rm
intersection.hpp	1100	0644	edit dl rm
intersperse.hpp	2586	0644	edit dl rm
is_disjoint.hpp	2040	0644	edit dl rm
is_empty.hpp	1244	0644	edit dl rm
is_subset.hpp	2919	0644	edit dl rm
keys.hpp	1307	0644	edit dl rm
lazy.hpp	7947	0644	edit dl rm
length.hpp	1554	0644	edit dl rm
less.hpp	5322	0644	edit dl rm
less_equal.hpp	2485	0644	edit dl rm
lexicographical_compare.hpp	4344	0644	edit dl rm
lift.hpp	1500	0644	edit dl rm
map.hpp	22593	0644	edit dl rm
max.hpp	1759	0644	edit dl rm
maximum.hpp	3348	0644	edit dl rm
members.hpp	1970	0644	edit dl rm
min.hpp	1759	0644	edit dl rm
minimum.hpp	3353	0644	edit dl rm
minus.hpp	4005	0644	edit dl rm
mod.hpp	3804	0644	edit dl rm
monadic_compose.hpp	1583	0644	edit dl rm
monadic_fold_left.hpp	4862	0644	edit dl rm
monadic_fold_right.hpp	4882	0644	edit dl rm
mult.hpp	3747	0644	edit dl rm
negate.hpp	1857	0644	edit dl rm
none.hpp	1340	0644	edit dl rm
none_of.hpp	1532	0644	edit dl rm
not.hpp	2217	0644	edit dl rm
not_equal.hpp	1982	0644	edit dl rm
one.hpp	2432	0644	edit dl rm
optional.hpp	15422	0644	edit dl rm
or.hpp	1860	0644	edit dl rm
ordering.hpp	1231	0644	edit dl rm
pair.hpp	8048	0644	edit dl rm
partition.hpp	4199	0644	edit dl rm
permutations.hpp	2599	0644	edit dl rm
plus.hpp	3759	0644	edit dl rm
power.hpp	1954	0644	edit dl rm
prefix.hpp	1597	0644	edit dl rm
prepend.hpp	2372	0644	edit dl rm
product.hpp	1701	0644	edit dl rm
range.hpp	9910	0644	edit dl rm
remove.hpp	1695	0644	edit dl rm
remove_at.hpp	2989	0644	edit dl rm
remove_if.hpp	1644	0644	edit dl rm
remove_range.hpp	3885	0644	edit dl rm
repeat.hpp	1793	0644	edit dl rm
replace.hpp	1797	0644	edit dl rm
replace_if.hpp	1764	0644	edit dl rm
replicate.hpp	2282	0644	edit dl rm
reverse.hpp	1802	0644	edit dl rm
reverse_fold.hpp	1144	0644	edit dl rm
scan_left.hpp	5060	0644	edit dl rm
scan_right.hpp	5138	0644	edit dl rm
second.hpp	1253	0644	edit dl rm
set.hpp	11854	0644	edit dl rm
size.hpp	375	0644	edit dl rm
slice.hpp	3407	0644	edit dl rm
sort.hpp	8855	0644	edit dl rm
span.hpp	2629	0644	edit dl rm
string.hpp	12310	0644	edit dl rm
suffix.hpp	1583	0644	edit dl rm
sum.hpp	1661	0644	edit dl rm
symmetric_difference.hpp	1394	0644	edit dl rm
take_back.hpp	2519	0644	edit dl rm
take_front.hpp	2471	0644	edit dl rm
take_while.hpp	1776	0644	edit dl rm
tap.hpp	1616	0644	edit dl rm
then.hpp	1688	0644	edit dl rm
traits.hpp	10172	0644	edit dl rm
transform.hpp	2411	0644	edit dl rm
tuple.hpp	11651	0644	edit dl rm
type.hpp	10082	0644	edit dl rm
unfold_left.hpp	2204	0644	edit dl rm
unfold_right.hpp	2224	0644	edit dl rm
union.hpp	1030	0644	edit dl rm
unique.hpp	2361	0644	edit dl rm
unpack.hpp	5175	0644	edit dl rm
value.hpp	1561	0644	edit dl rm
version.hpp	2032	0644	edit dl rm
while.hpp	4441	0644	edit dl rm
zero.hpp	2454	0644	edit dl rm
zip.hpp	1462	0644	edit dl rm
zip_shortest.hpp	1604	0644	edit dl rm
zip_shortest_with.hpp	2116	0644	edit dl rm
zip_with.hpp	2292	0644	edit dl rm

Edit: /usr/include/boost/hana/optional.hpp (15422B)

/*!
@file
Defines `boost::hana::optional`.

@copyright Louis Dionne 2013-2017
Distributed under the Boost Software License, Version 1.0.
(See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
 */

#ifndef BOOST_HANA_OPTIONAL_HPP
#define BOOST_HANA_OPTIONAL_HPP

#include <boost/hana/fwd/optional.hpp>

#include <boost/hana/bool.hpp>
#include <boost/hana/config.hpp>
#include <boost/hana/core/tag_of.hpp>
#include <boost/hana/detail/decay.hpp>
#include <boost/hana/detail/operators/adl.hpp>
#include <boost/hana/detail/operators/comparable.hpp>
#include <boost/hana/detail/operators/monad.hpp>
#include <boost/hana/detail/operators/orderable.hpp>
#include <boost/hana/detail/wrong.hpp>
#include <boost/hana/functional/partial.hpp>
#include <boost/hana/fwd/any_of.hpp>
#include <boost/hana/fwd/ap.hpp>
#include <boost/hana/fwd/concat.hpp>
#include <boost/hana/fwd/core/make.hpp>
#include <boost/hana/fwd/empty.hpp>
#include <boost/hana/fwd/equal.hpp>
#include <boost/hana/fwd/find_if.hpp>
#include <boost/hana/fwd/flatten.hpp>
#include <boost/hana/fwd/less.hpp>
#include <boost/hana/fwd/lift.hpp>
#include <boost/hana/fwd/transform.hpp>
#include <boost/hana/fwd/type.hpp>
#include <boost/hana/fwd/unpack.hpp>

#include <cstddef> // std::nullptr_t
#include <type_traits>
#include <utility>

BOOST_HANA_NAMESPACE_BEGIN
    //////////////////////////////////////////////////////////////////////////
    // optional<>
    //////////////////////////////////////////////////////////////////////////
    namespace detail {
        template <typename T, typename = typename hana::tag_of<T>::type>
        struct nested_type { };

template <typename T>
        struct nested_type<T, type_tag> { using type = typename T::type; };
    }

template <typename T>
    struct optional<T> : detail::operators::adl<>, detail::nested_type<T> {
        // 5.3.1, Constructors
        constexpr optional() = default;
        constexpr optional(optional const&) = default;
        constexpr optional(optional&&) = default;

constexpr optional(T const& t)
            : value_(t)
        { }

constexpr optional(T&& t)
            : value_(static_cast<T&&>(t))
        { }

// 5.3.3, Assignment
        constexpr optional& operator=(optional const&) = default;
        constexpr optional& operator=(optional&&) = default;

// 5.3.5, Observers
        constexpr T const* operator->() const { return &value_; }
        constexpr T* operator->() { return &value_; }

constexpr T&        value() & { return value_; }
        constexpr T const&  value() const& { return value_; }
        constexpr T&&       value() && { return static_cast<T&&>(value_); }
        constexpr T const&& value() const&& { return static_cast<T const&&>(value_); }

constexpr T&        operator*() & { return value_; }
        constexpr T const&  operator*() const& { return value_; }
        constexpr T&&       operator*() && { return static_cast<T&&>(value_); }
        constexpr T const&& operator*() const&& { return static_cast<T const&&>(value_); }

template <typename U> constexpr T&        value_or(U&&) & { return value_; }
        template <typename U> constexpr T const&  value_or(U&&) const& { return value_; }
        template <typename U> constexpr T&&       value_or(U&&) && { return static_cast<T&&>(value_); }
        template <typename U> constexpr T const&& value_or(U&&) const&& { return static_cast<T const&&>(value_); }

// We leave this public because it simplifies the implementation, but
        // this should be considered private by users.
        T value_;
    };

//! @cond
    template <typename ...dummy>
    constexpr auto optional<>::value() const {
        static_assert(detail::wrong<dummy...>{},
        "hana::optional::value() requires a non-empty optional");
    }

template <typename ...dummy>
    constexpr auto optional<>::operator*() const {
        static_assert(detail::wrong<dummy...>{},
        "hana::optional::operator* requires a non-empty optional");
    }

template <typename U>
    constexpr U&& optional<>::value_or(U&& u) const {
        return static_cast<U&&>(u);
    }

template <typename T>
    constexpr auto make_just_t::operator()(T&& t) const {
        return hana::optional<typename detail::decay<T>::type>(static_cast<T&&>(t));
    }
    //! @endcond

template <typename ...T>
    struct tag_of<optional<T...>> {
        using type = optional_tag;
    };

//////////////////////////////////////////////////////////////////////////
    // make<optional_tag>
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct make_impl<optional_tag> {
        template <typename X>
        static constexpr auto apply(X&& x)
        { return hana::just(static_cast<X&&>(x)); }

static constexpr auto apply()
        { return hana::nothing; }
    };

//////////////////////////////////////////////////////////////////////////
    // Operators
    //////////////////////////////////////////////////////////////////////////
    namespace detail {
        template <>
        struct comparable_operators<optional_tag> {
            static constexpr bool value = true;
        };
        template <>
        struct orderable_operators<optional_tag> {
            static constexpr bool value = true;
        };
        template <>
        struct monad_operators<optional_tag> {
            static constexpr bool value = true;
        };
    }

//////////////////////////////////////////////////////////////////////////
    // is_just and is_nothing
    //////////////////////////////////////////////////////////////////////////
    //! @cond
    template <typename ...T>
    constexpr auto is_just_t::operator()(optional<T...> const&) const
    { return hana::bool_c<sizeof...(T) != 0>; }

template <typename ...T>
    constexpr auto is_nothing_t::operator()(optional<T...> const&) const
    { return hana::bool_c<sizeof...(T) == 0>; }
    //! @endcond

//////////////////////////////////////////////////////////////////////////
    // sfinae
    //////////////////////////////////////////////////////////////////////////
    namespace detail {
        struct sfinae_impl {
            template <typename F, typename ...X, typename = decltype(
                std::declval<F>()(std::declval<X>()...)
            )>
            constexpr decltype(auto) operator()(int, F&& f, X&& ...x) const {
                using Return = decltype(static_cast<F&&>(f)(static_cast<X&&>(x)...));
                static_assert(!std::is_same<Return, void>::value,
                "hana::sfinae(f)(args...) requires f(args...) to be non-void");

return hana::just(static_cast<F&&>(f)(static_cast<X&&>(x)...));
            }

template <typename F, typename ...X>
            constexpr auto operator()(long, F&&, X&& ...) const
            { return hana::nothing; }
        };
    }

//! @cond
    template <typename F>
    constexpr decltype(auto) sfinae_t::operator()(F&& f) const {
        return hana::partial(detail::sfinae_impl{}, int{},
                             static_cast<F&&>(f));
    }
    //! @endcond

//////////////////////////////////////////////////////////////////////////
    // Comparable
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct equal_impl<optional_tag, optional_tag> {
        template <typename T, typename U>
        static constexpr auto apply(hana::optional<T> const& t, hana::optional<U> const& u)
        { return hana::equal(t.value_, u.value_); }

static constexpr hana::true_ apply(hana::optional<> const&, hana::optional<> const&)
        { return {}; }

template <typename T, typename U>
        static constexpr hana::false_ apply(T const&, U const&)
        { return {}; }
    };

//////////////////////////////////////////////////////////////////////////
    // Orderable
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct less_impl<optional_tag, optional_tag> {
        template <typename T>
        static constexpr hana::true_ apply(hana::optional<> const&, hana::optional<T> const&)
        { return {}; }

static constexpr hana::false_ apply(hana::optional<> const&, hana::optional<> const&)
        { return {}; }

template <typename T>
        static constexpr hana::false_ apply(hana::optional<T> const&, hana::optional<> const&)
        { return {}; }

template <typename T, typename U>
        static constexpr auto apply(hana::optional<T> const& x, hana::optional<U> const& y)
        { return hana::less(x.value_, y.value_); }
    };

//////////////////////////////////////////////////////////////////////////
    // Functor
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct transform_impl<optional_tag> {
        template <typename F>
        static constexpr auto apply(optional<> const&, F&&)
        { return hana::nothing; }

template <typename T, typename F>
        static constexpr auto apply(optional<T> const& opt, F&& f)
        { return hana::just(static_cast<F&&>(f)(opt.value_)); }

template <typename T, typename F>
        static constexpr auto apply(optional<T>& opt, F&& f)
        { return hana::just(static_cast<F&&>(f)(opt.value_)); }

template <typename T, typename F>
        static constexpr auto apply(optional<T>&& opt, F&& f)
        { return hana::just(static_cast<F&&>(f)(static_cast<T&&>(opt.value_))); }
    };

//////////////////////////////////////////////////////////////////////////
    // Applicative
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct lift_impl<optional_tag> {
        template <typename X>
        static constexpr auto apply(X&& x)
        { return hana::just(static_cast<X&&>(x)); }
    };

template <>
    struct ap_impl<optional_tag> {
        template <typename F, typename X>
        static constexpr auto ap_helper(F&&, X&&, ...)
        { return hana::nothing; }

template <typename F, typename X>
        static constexpr auto ap_helper(F&& f, X&& x, hana::true_, hana::true_)
        { return hana::just(static_cast<F&&>(f).value_(static_cast<X&&>(x).value_)); }

template <typename F, typename X>
        static constexpr auto apply(F&& f, X&& x) {
            return ap_impl::ap_helper(static_cast<F&&>(f), static_cast<X&&>(x),
                                      hana::is_just(f), hana::is_just(x));
        }
    };

//////////////////////////////////////////////////////////////////////////
    // Monad
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct flatten_impl<optional_tag> {
        static constexpr auto apply(optional<> const&)
        { return hana::nothing; }

static constexpr auto apply(optional<optional<>> const&)
        { return hana::nothing; }

template <typename T>
        static constexpr auto apply(optional<optional<T>> const& opt)
        { return hana::just(opt.value_.value_); }

template <typename T>
        static constexpr auto apply(optional<optional<T>>&& opt)
        { return hana::just(static_cast<T&&>(opt.value_.value_)); }
    };

//////////////////////////////////////////////////////////////////////////
    // MonadPlus
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct concat_impl<optional_tag> {
        template <typename Y>
        static constexpr auto apply(hana::optional<>&, Y&& y)
        { return static_cast<Y&&>(y); }

template <typename Y>
        static constexpr auto apply(hana::optional<>&&, Y&& y)
        { return static_cast<Y&&>(y); }

template <typename Y>
        static constexpr auto apply(hana::optional<> const&, Y&& y)
        { return static_cast<Y&&>(y); }

template <typename X, typename Y>
        static constexpr auto apply(X&& x, Y&&)
        { return static_cast<X&&>(x); }
    };

template <>
    struct empty_impl<optional_tag> {
        static constexpr auto apply()
        { return hana::nothing; }
    };

//////////////////////////////////////////////////////////////////////////
    // Foldable
    //////////////////////////////////////////////////////////////////////////
    template <>
    struct unpack_impl<optional_tag> {
        template <typename T, typename F>
        static constexpr decltype(auto) apply(optional<T>&& opt, F&& f)
        { return static_cast<F&&>(f)(static_cast<T&&>(opt.value_)); }

template <typename T, typename F>
        static constexpr decltype(auto) apply(optional<T> const& opt, F&& f)
        { return static_cast<F&&>(f)(opt.value_); }

template <typename T, typename F>
        static constexpr decltype(auto) apply(optional<T>& opt, F&& f)
        { return static_cast<F&&>(f)(opt.value_); }

template <typename F>
        static constexpr decltype(auto) apply(optional<> const&, F&& f)
        { return static_cast<F&&>(f)(); }
    };

//////////////////////////////////////////////////////////////////////////
    // Searchable
    //////////////////////////////////////////////////////////////////////////
    namespace detail {
        template <bool>
        struct optional_find_if {
            template <typename T>
            static constexpr auto apply(T const&)
            { return hana::nothing; }
        };

template <>
        struct optional_find_if<true> {
            template <typename T>
            static constexpr auto apply(T&& t)
            { return hana::just(static_cast<T&&>(t)); }
        };
    }

template <>
    struct find_if_impl<optional_tag> {
        template <typename T, typename Pred>
        static constexpr auto apply(hana::optional<T> const& opt, Pred&& pred) {
            constexpr bool found = decltype(static_cast<Pred&&>(pred)(opt.value_))::value;
            return detail::optional_find_if<found>::apply(opt.value_);
        }

template <typename T, typename Pred>
        static constexpr auto apply(hana::optional<T>& opt, Pred&& pred) {
            constexpr bool found = decltype(static_cast<Pred&&>(pred)(opt.value_))::value;
            return detail::optional_find_if<found>::apply(opt.value_);
        }

template <typename T, typename Pred>
        static constexpr auto apply(hana::optional<T>&& opt, Pred&& pred) {
            constexpr bool found = decltype(
                static_cast<Pred&&>(pred)(static_cast<T&&>(opt.value_))
            )::value;
            return detail::optional_find_if<found>::apply(static_cast<T&&>(opt.value_));
        }

template <typename Pred>
        static constexpr auto apply(hana::optional<> const&, Pred&&)
        { return hana::nothing; }
    };

template <>
    struct any_of_impl<optional_tag> {
        template <typename T, typename Pred>
        static constexpr auto apply(hana::optional<T> const& opt, Pred&& pred)
        { return static_cast<Pred&&>(pred)(opt.value_); }

template <typename Pred>
        static constexpr hana::false_ apply(hana::optional<> const&, Pred&&)
        { return {}; }
    };
BOOST_HANA_NAMESPACE_END

#endif // !BOOST_HANA_OPTIONAL_HPP

/*! @file Defines `boost::hana::optional`. @copyright Louis Dionne 2013-2017 Distributed under the Boost Software License, Version 1.0. (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt) */ #ifndef BOOST_HANA_OPTIONAL_HPP #define BOOST_HANA_OPTIONAL_HPP #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include // std::nullptr_t #include #include BOOST_HANA_NAMESPACE_BEGIN ////////////////////////////////////////////////////////////////////////// // optional<> ////////////////////////////////////////////////////////////////////////// namespace detail { template ::type> struct nested_type { }; template struct nested_type { using type = typename T::type; }; } template struct optional : detail::operators::adl<>, detail::nested_type { // 5.3.1, Constructors constexpr optional() = default; constexpr optional(optional const&) = default; constexpr optional(optional&&) = default; constexpr optional(T const& t) : value_(t) { } constexpr optional(T&& t) : value_(static_cast(t)) { } // 5.3.3, Assignment constexpr optional& operator=(optional const&) = default; constexpr optional& operator=(optional&&) = default; // 5.3.5, Observers constexpr T const* operator->() const { return &value_; } constexpr T* operator->() { return &value_; } constexpr T& value() & { return value_; } constexpr T const& value() const& { return value_; } constexpr T&& value() && { return static_cast(value_); } constexpr T const&& value() const&& { return static_cast(value_); } constexpr T& operator*() & { return value_; } constexpr T const& operator*() const& { return value_; } constexpr T&& operator*() && { return static_cast(value_); } constexpr T const&& operator*() const&& { return static_cast(value_); } template constexpr T& value_or(U&&) & { return value_; } template constexpr T const& value_or(U&&) const& { return value_; } template constexpr T&& value_or(U&&) && { return static_cast(value_); } template constexpr T const&& value_or(U&&) const&& { return static_cast(value_); } // We leave this public because it simplifies the implementation, but // this should be considered private by users. T value_; }; //! @cond template constexpr auto optional<>::value() const { static_assert(detail::wrong{}, "hana::optional::value() requires a non-empty optional"); } template constexpr auto optional<>::operator*() const { static_assert(detail::wrong{}, "hana::optional::operator* requires a non-empty optional"); } template constexpr U&& optional<>::value_or(U&& u) const { return static_cast(u); } template constexpr auto make_just_t::operator()(T&& t) const { return hana::optional::type>(static_cast(t)); } //! @endcond template struct tag_of> { using type = optional_tag; }; ////////////////////////////////////////////////////////////////////////// // make ////////////////////////////////////////////////////////////////////////// template <> struct make_impl { template static constexpr auto apply(X&& x) { return hana::just(static_cast(x)); } static constexpr auto apply() { return hana::nothing; } }; ////////////////////////////////////////////////////////////////////////// // Operators ////////////////////////////////////////////////////////////////////////// namespace detail { template <> struct comparable_operators { static constexpr bool value = true; }; template <> struct orderable_operators { static constexpr bool value = true; }; template <> struct monad_operators { static constexpr bool value = true; }; } ////////////////////////////////////////////////////////////////////////// // is_just and is_nothing ////////////////////////////////////////////////////////////////////////// //! @cond template constexpr auto is_just_t::operator()(optional const&) const { return hana::bool_c; } template constexpr auto is_nothing_t::operator()(optional const&) const { return hana::bool_c; } //! @endcond ////////////////////////////////////////////////////////////////////////// // sfinae ////////////////////////////////////////////////////////////////////////// namespace detail { struct sfinae_impl { template ()(std::declval()...) )> constexpr decltype(auto) operator()(int, F&& f, X&& ...x) const { using Return = decltype(static_cast(f)(static_cast(x)...)); static_assert(!std::is_same::value, "hana::sfinae(f)(args...) requires f(args...) to be non-void"); return hana::just(static_cast(f)(static_cast(x)...)); } template constexpr auto operator()(long, F&&, X&& ...) const { return hana::nothing; } }; } //! @cond template constexpr decltype(auto) sfinae_t::operator()(F&& f) const { return hana::partial(detail::sfinae_impl{}, int{}, static_cast(f)); } //! @endcond ////////////////////////////////////////////////////////////////////////// // Comparable ////////////////////////////////////////////////////////////////////////// template <> struct equal_impl { template static constexpr auto apply(hana::optional const& t, hana::optional const& u) { return hana::equal(t.value_, u.value_); } static constexpr hana::true_ apply(hana::optional<> const&, hana::optional<> const&) { return {}; } template static constexpr hana::false_ apply(T const&, U const&) { return {}; } }; ////////////////////////////////////////////////////////////////////////// // Orderable ////////////////////////////////////////////////////////////////////////// template <> struct less_impl { template static constexpr hana::true_ apply(hana::optional<> const&, hana::optional const&) { return {}; } static constexpr hana::false_ apply(hana::optional<> const&, hana::optional<> const&) { return {}; } template static constexpr hana::false_ apply(hana::optional const&, hana::optional<> const&) { return {}; } template static constexpr auto apply(hana::optional const& x, hana::optional const& y) { return hana::less(x.value_, y.value_); } }; ////////////////////////////////////////////////////////////////////////// // Functor ////////////////////////////////////////////////////////////////////////// template <> struct transform_impl { template static constexpr auto apply(optional<> const&, F&&) { return hana::nothing; } template static constexpr auto apply(optional const& opt, F&& f) { return hana::just(static_cast(f)(opt.value_)); } template static constexpr auto apply(optional& opt, F&& f) { return hana::just(static_cast(f)(opt.value_)); } template static constexpr auto apply(optional&& opt, F&& f) { return hana::just(static_cast(f)(static_cast(opt.value_))); } }; ////////////////////////////////////////////////////////////////////////// // Applicative ////////////////////////////////////////////////////////////////////////// template <> struct lift_impl { template static constexpr auto apply(X&& x) { return hana::just(static_cast(x)); } }; template <> struct ap_impl { template static constexpr auto ap_helper(F&&, X&&, ...) { return hana::nothing; } template static constexpr auto ap_helper(F&& f, X&& x, hana::true_, hana::true_) { return hana::just(static_cast(f).value_(static_cast(x).value_)); } template static constexpr auto apply(F&& f, X&& x) { return ap_impl::ap_helper(static_cast(f), static_cast(x), hana::is_just(f), hana::is_just(x)); } }; ////////////////////////////////////////////////////////////////////////// // Monad ////////////////////////////////////////////////////////////////////////// template <> struct flatten_impl { static constexpr auto apply(optional<> const&) { return hana::nothing; } static constexpr auto apply(optional> const&) { return hana::nothing; } template static constexpr auto apply(optional> const& opt) { return hana::just(opt.value_.value_); } template static constexpr auto apply(optional>&& opt) { return hana::just(static_cast(opt.value_.value_)); } }; ////////////////////////////////////////////////////////////////////////// // MonadPlus ////////////////////////////////////////////////////////////////////////// template <> struct concat_impl { template static constexpr auto apply(hana::optional<>&, Y&& y) { return static_cast(y); } template static constexpr auto apply(hana::optional<>&&, Y&& y) { return static_cast(y); } template static constexpr auto apply(hana::optional<> const&, Y&& y) { return static_cast(y); } template static constexpr auto apply(X&& x, Y&&) { return static_cast(x); } }; template <> struct empty_impl { static constexpr auto apply() { return hana::nothing; } }; ////////////////////////////////////////////////////////////////////////// // Foldable ////////////////////////////////////////////////////////////////////////// template <> struct unpack_impl { template static constexpr decltype(auto) apply(optional&& opt, F&& f) { return static_cast(f)(static_cast(opt.value_)); } template static constexpr decltype(auto) apply(optional const& opt, F&& f) { return static_cast(f)(opt.value_); } template static constexpr decltype(auto) apply(optional& opt, F&& f) { return static_cast(f)(opt.value_); } template static constexpr decltype(auto) apply(optional<> const&, F&& f) { return static_cast(f)(); } }; ////////////////////////////////////////////////////////////////////////// // Searchable ////////////////////////////////////////////////////////////////////////// namespace detail { template struct optional_find_if { template static constexpr auto apply(T const&) { return hana::nothing; } }; template <> struct optional_find_if { template static constexpr auto apply(T&& t) { return hana::just(static_cast(t)); } }; } template <> struct find_if_impl { template static constexpr auto apply(hana::optional const& opt, Pred&& pred) { constexpr bool found = decltype(static_cast(pred)(opt.value_))::value; return detail::optional_find_if::apply(opt.value_); } template static constexpr auto apply(hana::optional& opt, Pred&& pred) { constexpr bool found = decltype(static_cast(pred)(opt.value_))::value; return detail::optional_find_if::apply(opt.value_); } template static constexpr auto apply(hana::optional&& opt, Pred&& pred) { constexpr bool found = decltype( static_cast(pred)(static_cast(opt.value_)) )::value; return detail::optional_find_if::apply(static_cast(opt.value_)); } template static constexpr auto apply(hana::optional<> const&, Pred&&) { return hana::nothing; } }; template <> struct any_of_impl { template static constexpr auto apply(hana::optional const& opt, Pred&& pred) { return static_cast(pred)(opt.value_); } template static constexpr hana::false_ apply(hana::optional<> const&, Pred&&) { return {}; } }; BOOST_HANA_NAMESPACE_END #endif // !BOOST_HANA_OPTIONAL_HPP