Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2011 Joel de Guzman
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_SKIP_JANUARY_26_2008_0422PM)
Chris@16: #define SPIRIT_SKIP_JANUARY_26_2008_0422PM
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/qi/auxiliary/lazy.hpp>
Chris@16: #include <boost/spirit/home/qi/operator/kleene.hpp>
Chris@16: #include <boost/spirit/home/qi/directive/lexeme.hpp>
Chris@16: #include <boost/spirit/home/qi/skip_over.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/unused_skipper.hpp>
Chris@16: #include <boost/spirit/home/support/container.hpp>
Chris@16: #include <boost/spirit/home/support/common_terminals.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/attributes.hpp>
Chris@16: #include <boost/spirit/home/support/info.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/fusion/include/at.hpp>
Chris@16: #include <boost/fusion/include/vector.hpp>
Chris@101: #include <boost/utility/enable_if.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_directive<qi::domain, tag::skip>     // enables skip[p]
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename T>
Chris@16:     struct use_directive<qi::domain
Chris@16:       , terminal_ex<tag::skip                       // enables skip(s)[p]
Chris@16:         , fusion::vector1<T> >
Chris@16:     > : boost::spirit::traits::matches<qi::domain, T> {};
Chris@16: 
Chris@16:     template <>                                     // enables *lazy* skip(s)[p]
Chris@16:     struct use_lazy_directive<
Chris@16:         qi::domain
Chris@16:       , tag::skip
Chris@16:       , 1 // arity
Chris@16:     > : mpl::true_ {};
Chris@16: }}
Chris@16: 
Chris@16: namespace boost { namespace spirit { namespace qi
Chris@16: {
Chris@16: #ifndef BOOST_SPIRIT_NO_PREDEFINED_TERMINALS
Chris@16:     using spirit::skip;
Chris@16: #endif
Chris@16:     using spirit::skip_type;
Chris@16: 
Chris@16:     template <typename Subject>
Chris@16:     struct reskip_parser : unary_parser<reskip_parser<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:             typedef typename
Chris@16:                 traits::attribute_of<Subject, Context, Iterator>::type
Chris@16:             type;
Chris@16:         };
Chris@16: 
Chris@16:         reskip_parser(Subject const& subject_)
Chris@16:           : subject(subject_) {}
Chris@16: 
Chris@16:         template <typename Iterator, typename Context
Chris@16:           , typename Skipper, typename Attribute>
Chris@101:         typename enable_if<detail::is_unused_skipper<Skipper>, bool>::type
Chris@101:         parse(Iterator& first, Iterator const& last
Chris@16:           , Context& context, Skipper const& u // --> The skipper is reintroduced
Chris@16:           , Attribute& attr_) const
Chris@16:         {
Chris@16:             return subject.parse(first, last, context
Chris@16:               , detail::get_skipper(u), attr_);
Chris@16:         }
Chris@101:         template <typename Iterator, typename Context
Chris@101:           , typename Skipper, typename Attribute>
Chris@101:         typename disable_if<detail::is_unused_skipper<Skipper>, bool>::type
Chris@101:         parse(Iterator& first, Iterator const& last
Chris@101:           , Context& context, Skipper const& skipper
Chris@101:           , Attribute& attr_) const
Chris@101:         {
Chris@101:             return subject.parse(first, last, context
Chris@101:               , skipper, attr_);
Chris@101:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& context) const
Chris@16:         {
Chris@16:             return info("skip", subject.what(context));
Chris@16:         }
Chris@16: 
Chris@16:         Subject subject;
Chris@16:     };
Chris@16: 
Chris@16:     template <typename Subject, typename Skipper>
Chris@16:     struct skip_parser : unary_parser<skip_parser<Subject, Skipper> >
Chris@16:     {
Chris@16:         typedef Subject subject_type;
Chris@16:         typedef Skipper skipper_type;
Chris@16: 
Chris@16:         template <typename Context, typename Iterator>
Chris@16:         struct attribute
Chris@16:         {
Chris@16:             typedef typename
Chris@16:                 traits::attribute_of<Subject, Context, Iterator>::type
Chris@16:             type;
Chris@16:         };
Chris@16: 
Chris@16:         skip_parser(Subject const& subject_, Skipper const& skipper_)
Chris@16:           : subject(subject_), skipper(skipper_) {}
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 --> bypass the supplied skipper
Chris@16:           , Attribute& attr_) const
Chris@16:         {
Chris@16:             return subject.parse(first, last, context, skipper, attr_);
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& context) const
Chris@16:         {
Chris@16:             return info("skip", subject.what(context));
Chris@16:         }
Chris@16: 
Chris@16:         Subject subject;
Chris@16:         Skipper skipper;
Chris@16:     };
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Parser generators: make_xxx function (objects)
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Subject, typename Modifiers>
Chris@16:     struct make_directive<tag::skip, Subject, Modifiers>
Chris@16:     {
Chris@16:         typedef reskip_parser<Subject> result_type;
Chris@16:         result_type operator()(unused_type, Subject const& subject, unused_type) const
Chris@16:         {
Chris@16:             return result_type(subject);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename Skipper, typename Subject, typename Modifiers>
Chris@16:     struct make_directive<
Chris@16:         terminal_ex<tag::skip, fusion::vector1<Skipper> >, Subject, Modifiers>
Chris@16:     {
Chris@16:         typedef typename
Chris@16:             result_of::compile<qi::domain, Skipper, Modifiers>::type
Chris@16:         skipper_type;
Chris@16: 
Chris@16:         typedef skip_parser<Subject, skipper_type> result_type;
Chris@16: 
Chris@16:         template <typename Terminal>
Chris@16:         result_type operator()(Terminal const& term, Subject const& subject
Chris@16:           , Modifiers const& modifiers) const
Chris@16:         {
Chris@16:             return result_type(subject
Chris@16:               , compile<qi::domain>(fusion::at_c<0>(term.args), modifiers));
Chris@16:         }
Chris@16:     };
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::reskip_parser<Subject> >
Chris@16:       : unary_has_semantic_action<Subject> {};
Chris@16: 
Chris@16:     template <typename Subject, typename Skipper>
Chris@16:     struct has_semantic_action<qi::skip_parser<Subject, Skipper> >
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::reskip_parser<Subject>, Attribute
Chris@16:         , Context, Iterator>
Chris@16:       : unary_handles_container<Subject, Attribute, Context, Iterator> {};
Chris@16: 
Chris@16:     template <typename Subject, typename Skipper, typename Attribute
Chris@16:         , typename Context, typename Iterator>
Chris@16:     struct handles_container<qi::skip_parser<Subject, Skipper>, Attribute
Chris@16:         , Context, Iterator>
Chris@16:       : unary_handles_container<Subject, Attribute, Context, Iterator> {};
Chris@16: }}}
Chris@16: 
Chris@16: #endif