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_KLEENE_JANUARY_07_2007_0818AM)
Chris@16: #define SPIRIT_KLEENE_JANUARY_07_2007_0818AM
Chris@16: 
Chris@16: #if defined(_MSC_VER)
Chris@16: #pragma once
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/spirit/home/qi/meta_compiler.hpp>
Chris@16: #include <boost/spirit/home/qi/parser.hpp>
Chris@16: #include <boost/spirit/home/support/container.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/attributes.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/fail_function.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/pass_container.hpp>
Chris@16: #include <boost/spirit/home/support/has_semantic_action.hpp>
Chris@16: #include <boost/spirit/home/support/handles_container.hpp>
Chris@16: #include <boost/spirit/home/support/info.hpp>
Chris@16: 
Chris@16: namespace boost { namespace spirit
Chris@16: {
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Enablers
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     //[composite_parsers_kleene_enable_
Chris@16:     template <>
Chris@16:     struct use_operator<qi::domain, proto::tag::dereference> // enables *p
Chris@16:       : mpl::true_ {};
Chris@16:     //]
Chris@16: }}
Chris@16: 
Chris@16: namespace boost { namespace spirit { namespace qi
Chris@16: {
Chris@16:     //[composite_parsers_kleene
Chris@16:     template <typename Subject>
Chris@16:     struct kleene : unary_parser<kleene<Subject> >
Chris@16:     {
Chris@16:         typedef Subject subject_type;
Chris@16: 
Chris@16:         template <typename Context, typename Iterator>
Chris@16:         struct attribute
Chris@16:         {
Chris@16:             // Build a std::vector from the subject's attribute. Note
Chris@16:             // that build_std_vector may return unused_type if the
Chris@16:             // subject's attribute is an unused_type.
Chris@16:             typedef typename
Chris@16:                 traits::build_std_vector<
Chris@16:                     typename traits::
Chris@16:                         attribute_of<Subject, Context, Iterator>::type
Chris@16:                 >::type
Chris@16:             type;
Chris@16:         };
Chris@16: 
Chris@16:         kleene(Subject const& subject_)
Chris@16:           : subject(subject_) {}
Chris@16: 
Chris@16:         template <typename F>
Chris@16:         bool parse_container(F f) const
Chris@16:         {
Chris@16:             while (!f (subject))
Chris@16:                 ;
Chris@16:             return true;
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Iterator, typename Context
Chris@16:           , typename Skipper, typename Attribute>
Chris@16:         bool parse(Iterator& first, Iterator const& last
Chris@16:           , Context& context, Skipper const& skipper
Chris@16:           , Attribute& attr_) const
Chris@16:         {
Chris@16:             // ensure the attribute is actually a container type
Chris@16:             traits::make_container(attr_);
Chris@16: 
Chris@16:             typedef detail::fail_function<Iterator, Context, Skipper>
Chris@16:                 fail_function;
Chris@16: 
Chris@16:             Iterator iter = first;
Chris@16:             fail_function f(iter, last, context, skipper);
Chris@16:             parse_container(detail::make_pass_container(f, attr_));
Chris@16: 
Chris@16:             first = f.first;
Chris@16:             return true;
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& context) const
Chris@16:         {
Chris@16:             return info("kleene", subject.what(context));
Chris@16:         }
Chris@16: 
Chris@16:         Subject subject;
Chris@16:     };
Chris@16:     //]
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Parser generators: make_xxx function (objects)
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     //[composite_parsers_kleene_generator
Chris@16:     template <typename Elements, typename Modifiers>
Chris@16:     struct make_composite<proto::tag::dereference, Elements, Modifiers>
Chris@16:       : make_unary_composite<Elements, kleene>
Chris@16:     {};
Chris@16:     //]
Chris@16: 
Chris@16: //     ///////////////////////////////////////////////////////////////////////////
Chris@16: //     // Define what attributes are compatible with a kleene
Chris@16: //     template <typename Attribute, typename Subject, typename Context, typename Iterator>
Chris@16: //     struct is_attribute_compatible<Attribute, kleene<Subject>, Context, Iterator>
Chris@16: //       : traits::is_container_compatible<qi::domain, Attribute
Chris@16: //               , kleene<Subject>, Context, Iterator>
Chris@16: //     {};
Chris@16: }}}
Chris@16: 
Chris@16: namespace boost { namespace spirit { namespace traits
Chris@16: {
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Subject>
Chris@16:     struct has_semantic_action<qi::kleene<Subject> >
Chris@16:       : unary_has_semantic_action<Subject> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Subject, typename Attribute, typename Context
Chris@16:       , typename Iterator>
Chris@16:     struct handles_container<qi::kleene<Subject>, Attribute
Chris@16:           , Context, Iterator>
Chris@16:       : mpl::true_ {}; 
Chris@16: }}}
Chris@16: 
Chris@16: #endif