Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2011 Joel de Guzman
Chris@16:     Copyright (c) 2001-2011 Hartmut Kaiser
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: =============================================================================*/
Chris@16: #if !defined(SPIRIT_SEQUENCE_APR_22_2006_0811AM)
Chris@16: #define SPIRIT_SEQUENCE_APR_22_2006_0811AM
Chris@16: 
Chris@16: #if defined(_MSC_VER)
Chris@16: #pragma once
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/spirit/home/qi/operator/sequence_base.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/fail_function.hpp>
Chris@16: #include <boost/spirit/home/qi/meta_compiler.hpp>
Chris@16: 
Chris@16: namespace boost { namespace spirit
Chris@16: {
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Enablers
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <>
Chris@16:     struct use_operator<qi::domain, proto::tag::shift_right> // enables >>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <>
Chris@16:     struct flatten_tree<qi::domain, proto::tag::shift_right> // flattens >>
Chris@16:       : mpl::true_ {};
Chris@16: }}
Chris@16: 
Chris@16: namespace boost { namespace spirit { namespace qi
Chris@16: {
Chris@16:     template <typename Elements>
Chris@16:     struct sequence : sequence_base<sequence<Elements>, Elements>
Chris@16:     {
Chris@16:         friend struct sequence_base<sequence<Elements>, Elements>;
Chris@16: 
Chris@16:         sequence(Elements const& elements)
Chris@16:           : sequence_base<sequence<Elements>, Elements>(elements) {}
Chris@16: 
Chris@16:     private:
Chris@16: 
Chris@16:         template <typename Iterator, typename Context, typename Skipper>
Chris@16:         static detail::fail_function<Iterator, Context, Skipper>
Chris@16:         fail_function(
Chris@16:             Iterator& first, Iterator const& last
Chris@16:           , Context& context, Skipper const& skipper)
Chris@16:         {
Chris@16:             return detail::fail_function<Iterator, Context, Skipper>
Chris@16:                 (first, last, context, skipper);
Chris@16:         }
Chris@16: 
Chris@16:         std::string id() const { return "sequence"; }
Chris@16:     };
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Parser generators: make_xxx function (objects)
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Elements, typename Modifiers>
Chris@16:     struct make_composite<proto::tag::shift_right, Elements, Modifiers>
Chris@16:       : make_nary_composite<Elements, sequence>
Chris@16:     {};
Chris@16: 
Chris@16: //     ///////////////////////////////////////////////////////////////////////////
Chris@16: //     // Define what attributes are compatible with a sequence
Chris@16: //     template <typename Attribute, typename Elements, typename Context, typename Iterator>
Chris@16: //     struct is_attribute_compatible<Attribute, sequence<Elements>, Context, Iterator>
Chris@16: //       : mpl::or_<
Chris@16: //             is_convertible<Attribute
Chris@16: //               , typename traits::attribute_of<sequence<Elements>, Context, Iterator>::type> 
Chris@16: //           , traits::is_fusion_sequence_compatible<qi::domain, Attribute
Chris@16: //               , sequence<Elements>, Context, Iterator> 
Chris@16: //           , traits::is_container_compatible<qi::domain, Attribute
Chris@16: //               , sequence<Elements>, Context, Iterator>
Chris@16: //         >
Chris@16: //     {};
Chris@16: }}}
Chris@16: 
Chris@16: namespace boost { namespace spirit { namespace traits
Chris@16: {
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Elements>
Chris@16:     struct has_semantic_action<qi::sequence<Elements> >
Chris@16:       : nary_has_semantic_action<Elements> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Elements, typename Attribute, typename Context
Chris@16:       , typename Iterator>
Chris@16:     struct handles_container<qi::sequence<Elements>, Attribute, Context
Chris@16:           , Iterator>
Chris@16:       : mpl::true_ {};
Chris@16: }}}
Chris@16: 
Chris@16: #endif