Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2011 Hartmut Kaiser
Chris@16:     Copyright (c) 2011      Bryce Lelbach
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_QI_BOOL_SEP_29_2009_0709AM)
Chris@16: #define SPIRIT_QI_BOOL_SEP_29_2009_0709AM
Chris@16: 
Chris@16: #if defined(_MSC_VER)
Chris@16: #pragma once
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/spirit/home/qi/skip_over.hpp>
Chris@16: #include <boost/spirit/home/qi/detail/enable_lit.hpp>
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/numeric/bool_policies.hpp>
Chris@16: #include <boost/spirit/home/support/common_terminals.hpp>
Chris@16: #include <boost/mpl/assert.hpp>
Chris@16: #include <boost/detail/workaround.hpp>
Chris@16: #include <boost/type_traits/is_same.hpp>
Chris@16: 
Chris@16: namespace boost { namespace spirit
Chris@16: {
Chris@16:     namespace qi
Chris@16:     {
Chris@16:         ///////////////////////////////////////////////////////////////////////
Chris@16:         // forward declaration only
Chris@16:         template <typename T>
Chris@16:         struct bool_policies;
Chris@16: 
Chris@16:         ///////////////////////////////////////////////////////////////////////
Chris@16:         // This is the class that the user can instantiate directly in
Chris@16:         // order to create a customized bool parser
Chris@16:         template <typename T, typename BoolPolicies = bool_policies<T> >
Chris@16:         struct bool_parser
Chris@16:           : spirit::terminal<tag::stateful_tag<BoolPolicies, tag::bool_, T> >
Chris@16:         {
Chris@16:             typedef tag::stateful_tag<BoolPolicies, tag::bool_, T> tag_type;
Chris@16: 
Chris@16:             bool_parser() {}
Chris@16:             bool_parser(BoolPolicies const& data)
Chris@16:               : spirit::terminal<tag_type>(data) {}
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Enablers
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables bool_
Chris@16:     struct use_terminal<qi::domain, tag::bool_>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <> // enables true_
Chris@16:     struct use_terminal<qi::domain, tag::true_>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <> // enables false_
Chris@16:     struct use_terminal<qi::domain, tag::false_>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename A0> // enables lit(...)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , typename enable_if<is_same<A0, bool> >::type>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename A0> // enables bool_(...)
Chris@16:     struct use_terminal<qi::domain
Chris@16:       , terminal_ex<tag::bool_, fusion::vector1<A0> >
Chris@16:     > : mpl::true_ {};
Chris@16: 
Chris@16:     template <> // enables *lazy* bool_(...)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::bool_, 1>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // enables any custom bool_parser
Chris@16:     template <typename T, typename BoolPolicies>
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , tag::stateful_tag<BoolPolicies, tag::bool_, T> >
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     // enables any custom bool_parser(...)
Chris@16:     template <typename T, typename BoolPolicies, typename A0>
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::stateful_tag<BoolPolicies, tag::bool_, T>
Chris@16:         , fusion::vector1<A0> > >
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     // enables *lazy* custom bool_parser(...)
Chris@16:     template <typename T, typename BoolPolicies>
Chris@16:     struct use_lazy_terminal<
Chris@16:         qi::domain
Chris@16:       , tag::stateful_tag<BoolPolicies, tag::bool_, T>
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::bool_;
Chris@16:     using spirit::true_;
Chris@16:     using spirit::false_;
Chris@16:     using spirit::lit;    // lit(true) is equivalent to true
Chris@16: #endif
Chris@16:     using spirit::bool_type;
Chris@16:     using spirit::true_type;
Chris@16:     using spirit::false_type;
Chris@16:     using spirit::lit_type;
Chris@16: 
Chris@16:     namespace detail
Chris@16:     {
Chris@16:         template <typename T, typename BoolPolicies>
Chris@16:         struct bool_impl
Chris@16:         {
Chris@16:             template <typename Iterator, typename Attribute>
Chris@16:             static bool parse(Iterator& first, Iterator const& last
Chris@16:               , Attribute& attr, BoolPolicies const& p, bool allow_true = true
Chris@16:               , bool disallow_false = false)
Chris@16:             {
Chris@16:                 if (first == last)
Chris@16:                     return false;
Chris@16: 
Chris@16: #if BOOST_WORKAROUND(BOOST_MSVC, BOOST_TESTED_AT(1600))
Chris@16:                 p; // suppresses warning: C4100: 'p' : unreferenced formal parameter
Chris@16: #endif
Chris@16:                 return (allow_true && p.parse_true(first, last, attr)) ||
Chris@16:                        (!disallow_false && p.parse_false(first, last, attr));
Chris@16:             }
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // This actual boolean parser
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename T, typename BoolPolicies = bool_policies<T> >
Chris@16:     struct any_bool_parser
Chris@16:       : primitive_parser<any_bool_parser<T, BoolPolicies> >
Chris@16:     {
Chris@16:         template <typename Context, typename Iterator>
Chris@16:         struct attribute
Chris@16:         {
Chris@16:             typedef T type;
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:             typedef detail::bool_impl<T, BoolPolicies> extract;
Chris@16:             qi::skip_over(first, last, skipper);
Chris@16:             return extract::parse(first, last, attr_, BoolPolicies());
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& /*context*/) const
Chris@16:         {
Chris@16:             return info("boolean");
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename T, typename BoolPolicies = bool_policies<T>
Chris@16:             , bool no_attribute = true>
Chris@16:     struct literal_bool_parser
Chris@16:       : primitive_parser<literal_bool_parser<T, BoolPolicies, no_attribute> >
Chris@16:     {
Chris@16:         template <typename Value>
Chris@16:         literal_bool_parser(Value const& n) : n_(n) {}
Chris@16: 
Chris@16:         template <typename Context, typename Iterator>
Chris@16:         struct attribute
Chris@16:           : mpl::if_c<no_attribute, unused_type, T>
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:             typedef detail::bool_impl<T, BoolPolicies> extract;
Chris@16:             qi::skip_over(first, last, skipper);
Chris@16:             return extract::parse(first, last, attr_, BoolPolicies(), n_, n_);
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& /*context*/) const
Chris@16:         {
Chris@16:             return info("boolean");
Chris@16:         }
Chris@16: 
Chris@16:         T n_;
Chris@16:     };
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Parser generators: make_xxx function (objects)
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename T, typename Modifiers
Chris@16:             , typename Policies = bool_policies<T> >
Chris@16:     struct make_bool
Chris@16:     {
Chris@16:         typedef has_modifier<Modifiers, tag::char_code_base<tag::no_case> >
Chris@16:             no_case;
Chris@16: 
Chris@16:         typedef typename mpl::if_<
Chris@16:             mpl::and_<
Chris@16:                 no_case
Chris@16:               , is_same<bool_policies<T>, Policies>
Chris@16:             >
Chris@16:           , any_bool_parser<T, no_case_bool_policies<T> >
Chris@16:           , any_bool_parser<T, Policies> >::type
Chris@16:         result_type;
Chris@16: 
Chris@16:         result_type operator()(unused_type, unused_type) const
Chris@16:         {
Chris@16:             return result_type();
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename T, typename Modifiers
Chris@16:             , typename Policies = bool_policies<T> >
Chris@16:     struct make_direct_bool
Chris@16:     {
Chris@16:         typedef has_modifier<Modifiers, tag::char_code_base<tag::no_case> >
Chris@16:             no_case;
Chris@16: 
Chris@16:         typedef typename mpl::if_<
Chris@16:             mpl::and_<
Chris@16:                 no_case
Chris@16:               , is_same<bool_policies<T>, Policies>
Chris@16:             >
Chris@16:           , literal_bool_parser<T, no_case_bool_policies<T>, false>
Chris@16:           , literal_bool_parser<T, Policies, false> >::type
Chris@16:         result_type;
Chris@16: 
Chris@16:         template <typename Terminal>
Chris@16:         result_type operator()(Terminal const& term, unused_type) const
Chris@16:         {
Chris@16:             return result_type(fusion::at_c<0>(term.args));
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename T, typename Modifiers, bool b
Chris@16:             , typename Policies = bool_policies<T> >
Chris@16:     struct make_predefined_direct_bool
Chris@16:     {
Chris@16:         typedef has_modifier<Modifiers, tag::char_code_base<tag::no_case> >
Chris@16:             no_case;
Chris@16: 
Chris@16:         typedef typename mpl::if_<
Chris@16:             mpl::and_<
Chris@16:                 no_case
Chris@16:               , is_same<bool_policies<T>, Policies>
Chris@16:             >
Chris@16:           , literal_bool_parser<T, no_case_bool_policies<T>, false>
Chris@16:           , literal_bool_parser<T, Policies, false> >::type
Chris@16:         result_type;
Chris@16: 
Chris@16:         result_type operator()(unused_type, unused_type) const
Chris@16:         {
Chris@16:             return result_type(b);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <typename T, typename Modifiers
Chris@16:             , typename Policies = bool_policies<T> >
Chris@16:     struct make_literal_bool
Chris@16:     {
Chris@16:         typedef has_modifier<Modifiers, tag::char_code_base<tag::no_case> >
Chris@16:             no_case;
Chris@16: 
Chris@16:         typedef typename mpl::if_<
Chris@16:             mpl::and_<
Chris@16:                 no_case
Chris@16:               , is_same<bool_policies<T>, Policies>
Chris@16:             >
Chris@16:           , literal_bool_parser<T, no_case_bool_policies<T> >
Chris@16:           , literal_bool_parser<T, Policies> >::type
Chris@16:         result_type;
Chris@16: 
Chris@16:         template <typename Terminal>
Chris@16:         result_type operator()(Terminal const& term, unused_type) const
Chris@16:         {
Chris@16:             return result_type(fusion::at_c<0>(term.args));
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:           terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , Modifiers, typename enable_if<is_same<A0, bool> >::type>
Chris@16:       : make_literal_bool<bool, Modifiers> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::false_, Modifiers>
Chris@16:       : make_predefined_direct_bool<bool, Modifiers, false>
Chris@16:     {};
Chris@16: 
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::true_, Modifiers>
Chris@16:       : make_predefined_direct_bool<bool, Modifiers, true>
Chris@16:     {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename T, typename Policies, typename Modifiers>
Chris@16:     struct make_primitive<
Chris@16:         tag::stateful_tag<Policies, tag::bool_, T>, Modifiers>
Chris@16:       : make_bool<T, Modifiers, Policies> {};
Chris@16: 
Chris@16:     template <typename T, typename Policies, typename A0, typename Modifiers>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::stateful_tag<Policies, tag::bool_, T>
Chris@16:       , fusion::vector1<A0> >, Modifiers>
Chris@16:       : make_direct_bool<T, Modifiers, Policies> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::bool_, Modifiers>
Chris@16:       : make_bool<bool, Modifiers> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::bool_
Chris@16:       , fusion::vector1<A0> >, Modifiers>
Chris@16:       : make_direct_bool<bool, Modifiers> {};
Chris@16: }}}
Chris@16: 
Chris@16: #endif