123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133 |
- /*=============================================================================
- Copyright (c) 2001-2011 Hartmut Kaiser
- Copyright (c) 2001-2011 Joel de Guzman
- 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(BOOST_PP_IS_ITERATING)
- #if !defined(BOOST_SPIRIT_MATCH_MANIP_ATTR_MAY_05_2007_1202PM)
- #define BOOST_SPIRIT_MATCH_MANIP_ATTR_MAY_05_2007_1202PM
- #include <boost/spirit/home/qi/stream/match_manip.hpp>
- #include <boost/fusion/include/vector.hpp>
- #include <boost/preprocessor/iterate.hpp>
- #include <boost/preprocessor/repetition/enum.hpp>
- #include <boost/preprocessor/repetition/enum_params.hpp>
- #include <boost/preprocessor/repetition/enum_binary_params.hpp>
- #define BOOST_PP_FILENAME_1 \
- <boost/spirit/home/qi/stream/match_manip_attr.hpp>
- #define BOOST_PP_ITERATION_LIMITS (2, SPIRIT_ARGUMENTS_LIMIT)
- #include BOOST_PP_ITERATE()
- #endif
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Preprocessor vertical repetition code
- //
- ///////////////////////////////////////////////////////////////////////////////
- #else // defined(BOOST_PP_IS_ITERATING)
- #define N BOOST_PP_ITERATION()
- #define BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE(z, n, A) BOOST_PP_CAT(A, n) &
- ///////////////////////////////////////////////////////////////////////////////
- namespace boost { namespace spirit { namespace qi
- {
- ///////////////////////////////////////////////////////////////////////////
- template <typename Expr, BOOST_PP_ENUM_PARAMS(N, typename A)>
- inline detail::match_manip<Expr, mpl::false_, mpl::true_, unused_type
- , fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > >
- match(
- Expr const& xpr
- , BOOST_PP_ENUM_BINARY_PARAMS(N, A, & attr))
- {
- using qi::detail::match_manip;
- // Report invalid expression error as early as possible.
- // If you got an error_invalid_expression error message here,
- // then the expression (expr) is not a valid spirit qi expression.
- BOOST_SPIRIT_ASSERT_MATCH(qi::domain, Expr);
- typedef fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > vector_type;
- vector_type attr (BOOST_PP_ENUM_PARAMS(N, attr));
- return match_manip<Expr, mpl::false_, mpl::true_, unused_type, vector_type>(
- xpr, unused, attr);
- }
- ///////////////////////////////////////////////////////////////////////////
- template <typename Expr, typename Skipper
- , BOOST_PP_ENUM_PARAMS(N, typename A)>
- inline detail::match_manip<Expr, mpl::false_, mpl::true_, Skipper
- , fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > >
- phrase_match(
- Expr const& xpr
- , Skipper const& s
- , BOOST_SCOPED_ENUM(skip_flag) post_skip
- , BOOST_PP_ENUM_BINARY_PARAMS(N, A, & attr))
- {
- using qi::detail::match_manip;
- // Report invalid expression error as early as possible.
- // If you got an error_invalid_expression error message here,
- // then either the expression (expr) or skipper is not a valid
- // spirit qi expression.
- BOOST_SPIRIT_ASSERT_MATCH(qi::domain, Expr);
- BOOST_SPIRIT_ASSERT_MATCH(qi::domain, Skipper);
- typedef fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > vector_type;
- vector_type attr (BOOST_PP_ENUM_PARAMS(N, attr));
- return match_manip<Expr, mpl::false_, mpl::true_, Skipper, vector_type>(
- xpr, s, post_skip, attr);
- }
- template <typename Expr, typename Skipper
- , BOOST_PP_ENUM_PARAMS(N, typename A)>
- inline detail::match_manip<Expr, mpl::false_, mpl::true_, Skipper
- , fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > >
- phrase_match(
- Expr const& xpr
- , Skipper const& s
- , BOOST_PP_ENUM_BINARY_PARAMS(N, A, & attr))
- {
- using qi::detail::match_manip;
- // Report invalid expression error as early as possible.
- // If you got an error_invalid_expression error message here,
- // then either the expression (expr) or skipper is not a valid
- // spirit qi expression.
- BOOST_SPIRIT_ASSERT_MATCH(qi::domain, Expr);
- BOOST_SPIRIT_ASSERT_MATCH(qi::domain, Skipper);
- typedef fusion::vector<
- BOOST_PP_ENUM(N, BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE, A)
- > vector_type;
- vector_type attr (BOOST_PP_ENUM_PARAMS(N, attr));
- return match_manip<Expr, mpl::false_, mpl::true_, Skipper, vector_type>(
- xpr, s, attr);
- }
- }}}
- #undef BOOST_SPIRIT_QI_ATTRIBUTE_REFERENCE
- #undef N
- #endif
|