2006-10-05 01:25:32 +00:00
|
|
|
/*=============================================================================
|
|
|
|
Copyright (c) 2006 Eric Niebler
|
|
|
|
|
2007-03-02 10:44:14 +00:00
|
|
|
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)
|
2006-10-05 01:25:32 +00:00
|
|
|
==============================================================================*/
|
2011-08-11 04:14:50 +00:00
|
|
|
#if !defined(BOOST_FUSION_SEGMENTS_04052005_1141)
|
|
|
|
#define BOOST_FUSION_SEGMENTS_04052005_1141
|
2006-10-05 01:25:32 +00:00
|
|
|
|
|
|
|
#include <boost/fusion/support/tag_of.hpp>
|
|
|
|
|
|
|
|
namespace boost { namespace fusion
|
|
|
|
{
|
2011-08-16 23:07:51 +00:00
|
|
|
// Special tags:
|
|
|
|
struct sequence_facade_tag;
|
|
|
|
struct iterator_range_tag;
|
|
|
|
|
2006-10-05 01:25:32 +00:00
|
|
|
// segments: returns a sequence of sequences
|
|
|
|
namespace extension
|
|
|
|
{
|
|
|
|
template <typename Tag>
|
|
|
|
struct segments_impl
|
|
|
|
{
|
|
|
|
template <typename Sequence>
|
|
|
|
struct apply {};
|
|
|
|
};
|
2011-08-16 23:07:51 +00:00
|
|
|
|
|
|
|
template <>
|
|
|
|
struct segments_impl<sequence_facade_tag>
|
|
|
|
{
|
|
|
|
template <typename Sequence>
|
|
|
|
struct apply : Sequence::template segments<Sequence> {};
|
|
|
|
};
|
|
|
|
|
|
|
|
template <>
|
|
|
|
struct segments_impl<iterator_range_tag>;
|
2006-10-05 01:25:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
namespace result_of
|
|
|
|
{
|
|
|
|
template <typename Sequence>
|
|
|
|
struct segments
|
|
|
|
{
|
2011-08-11 04:14:50 +00:00
|
|
|
typedef typename traits::tag_of<Sequence>::type tag_type;
|
|
|
|
|
2006-10-05 01:25:32 +00:00
|
|
|
typedef typename
|
2011-08-11 04:14:50 +00:00
|
|
|
extension::segments_impl<tag_type>::template apply<Sequence>::type
|
2006-10-05 01:25:32 +00:00
|
|
|
type;
|
|
|
|
};
|
|
|
|
}
|
|
|
|
|
|
|
|
template <typename Sequence>
|
|
|
|
typename result_of::segments<Sequence>::type
|
|
|
|
segments(Sequence & seq)
|
|
|
|
{
|
2011-08-11 04:14:50 +00:00
|
|
|
typedef typename traits::tag_of<Sequence>::type tag_type;
|
|
|
|
return extension::segments_impl<tag_type>::template apply<Sequence>::call(seq);
|
2006-10-05 01:25:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
template <typename Sequence>
|
|
|
|
typename result_of::segments<Sequence const>::type
|
|
|
|
segments(Sequence const& seq)
|
|
|
|
{
|
2011-08-11 04:14:50 +00:00
|
|
|
typedef typename traits::tag_of<Sequence const>::type tag_type;
|
|
|
|
return extension::segments_impl<tag_type>::template apply<Sequence const>::call(seq);
|
2006-10-05 01:25:32 +00:00
|
|
|
}
|
|
|
|
}}
|
|
|
|
|
|
|
|
#endif
|