| /*============================================================================= |
| Copyright (c) 2001-2006 Joel de Guzman |
| Copyright (c) 2006 Dan Marsden |
| |
| Distributed under the Boost Software License, Version 1.0. (See accompanying |
| file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt) |
| ==============================================================================*/ |
| #if !defined(FUSION_EQUAL_TO_IMPL_20060128_1423) |
| #define FUSION_EQUAL_TO_IMPL_20060128_1423 |
| |
| #include <boost/fusion/mpl.hpp> |
| |
| #include <boost/mpl/lambda.hpp> |
| #include <boost/mpl/and.hpp> |
| #include <boost/mpl/transform_view.hpp> |
| #include <boost/mpl/zip_view.hpp> |
| #include <boost/mpl/vector.hpp> |
| #include <boost/mpl/unpack_args.hpp> |
| #include <boost/mpl/find_if.hpp> |
| #include <boost/mpl/end.hpp> |
| #include <boost/mpl/bool.hpp> |
| #include <boost/mpl/equal_to.hpp> |
| |
| #include <boost/type_traits/is_same.hpp> |
| |
| #include <boost/fusion/iterator/equal_to.hpp> |
| |
| namespace boost { namespace fusion { |
| |
| struct zip_view_iterator_tag; |
| |
| namespace detail |
| { |
| template<typename It1, typename It2> |
| struct zip_iterators_equal |
| { |
| typedef mpl::zip_view<mpl::vector2<typename It1::iterators, typename It2::iterators> > zipped; |
| typedef mpl::transform_view<zipped, mpl::unpack_args<result_of::equal_to<mpl::_,mpl::_> > > transformed; |
| |
| typedef typename mpl::find_if<transformed, mpl::equal_to<mpl::_, mpl::false_> >::type found; |
| |
| typedef typename is_same<typename mpl::end<transformed>::type, found>::type type; |
| }; |
| } |
| |
| namespace extension |
| { |
| template<typename Tag> |
| struct equal_to_impl; |
| |
| template<> |
| struct equal_to_impl<zip_view_iterator_tag> |
| { |
| template<typename It1, typename It2> |
| struct apply |
| : detail::zip_iterators_equal<It1, It2>::type |
| {}; |
| }; |
| } |
| }} |
| |
| #endif |