Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2011 Joel de Guzman
Chris@16:     Copyright (c) 2011 Bryce Lelbach
Chris@16:     Copyright (c) 2011 Jan Frederick Eick
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_UINT_APR_17_2006_0901AM)
Chris@16: #define SPIRIT_UINT_APR_17_2006_0901AM
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/numeric/numeric_utils.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/support/common_terminals.hpp>
Chris@16: #include <boost/spirit/home/support/info.hpp>
Chris@16: #include <boost/spirit/home/support/detail/is_spirit_tag.hpp>
Chris@16: #include <boost/mpl/assert.hpp>
Chris@16: #include <boost/type_traits/is_same.hpp>
Chris@16: 
Chris@16: namespace boost { namespace spirit
Chris@16: {
Chris@16:     namespace tag
Chris@16:     {
Chris@16:         template <typename T, unsigned Radix, unsigned MinDigits
Chris@16:                 , int MaxDigits>
Chris@16:         struct uint_parser
Chris@16:         {
Chris@16:             BOOST_SPIRIT_IS_TAG()
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace qi
Chris@16:     {
Chris@16:         ///////////////////////////////////////////////////////////////////////
Chris@16:         // This one is the class that the user can instantiate directly in
Chris@16:         // order to create a customized int parser
Chris@16:         template <typename T = int, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:                 , int MaxDigits = -1>
Chris@16:         struct uint_parser
Chris@16:           : spirit::terminal<tag::uint_parser<T, Radix, MinDigits, MaxDigits> >
Chris@16:         {};
Chris@16:     }
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // Enablers
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables ushort_
Chris@16:     struct use_terminal<qi::domain, tag::ushort_> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables lit(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , typename enable_if<is_same<A0, unsigned short> >::type>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables ushort_(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::ushort_, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* ushort_(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::ushort_, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables uint_
Chris@16:     struct use_terminal<qi::domain, tag::uint_> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables lit(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , typename enable_if<is_same<A0, unsigned> >::type>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables uint_(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::uint_, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* uint_(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::uint_, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables ulong_
Chris@16:     struct use_terminal<qi::domain, tag::ulong_> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables lit(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , typename enable_if<is_same<A0, unsigned long> >::type>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables ulong_(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::ulong_, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* ulong_(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::ulong_, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16: #ifdef BOOST_HAS_LONG_LONG
Chris@16:     template <> // enables ulong_long
Chris@16:     struct use_terminal<qi::domain, tag::ulong_long> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables lit(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::lit, fusion::vector1<A0> >
Chris@16:         , typename enable_if<is_same<A0, boost::ulong_long_type> >::type>
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables ulong_long(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::ulong_long, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* ulong_long(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::ulong_long, 1> : mpl::true_ {};
Chris@16: #endif
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables bin
Chris@16:     struct use_terminal<qi::domain, tag::bin> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables bin(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::bin, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* bin(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::bin, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables oct
Chris@16:     struct use_terminal<qi::domain, tag::oct> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables oct(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::oct, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* oct(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::oct, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <> // enables hex
Chris@16:     struct use_terminal<qi::domain, tag::hex> : mpl::true_ {};
Chris@16: 
Chris@16:     template <typename A0> // enables hex(n)
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::hex, fusion::vector1<A0> > >
Chris@16:       : is_arithmetic<A0> {};
Chris@16: 
Chris@16:     template <> // enables *lazy* hex(n)
Chris@16:     struct use_lazy_terminal<qi::domain, tag::hex, 1> : mpl::true_ {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // enables any custom uint_parser
Chris@16:     template <typename T, unsigned Radix, unsigned MinDigits
Chris@16:             , int MaxDigits>
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , tag::uint_parser<T, Radix, MinDigits, MaxDigits> >
Chris@16:       : mpl::true_ {};
Chris@16: 
Chris@16:     // enables any custom uint_parser(n)
Chris@16:     template <typename T, unsigned Radix, unsigned MinDigits
Chris@16:             , int MaxDigits, typename A0>
Chris@16:     struct use_terminal<qi::domain
Chris@16:         , terminal_ex<tag::uint_parser<T, Radix, MinDigits, MaxDigits>
Chris@16:                   , fusion::vector1<A0> >
Chris@16:     > : mpl::true_ {};
Chris@16: 
Chris@16:     // enables *lazy* custom uint_parser(n)
Chris@16:     template <typename T, unsigned Radix, unsigned MinDigits
Chris@16:             , int MaxDigits>
Chris@16:     struct use_lazy_terminal<qi::domain
Chris@16:       , tag::uint_parser<T, Radix, MinDigits, MaxDigits>, 1
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::bin;
Chris@16:     using spirit::oct;
Chris@16:     using spirit::hex;
Chris@16: 
Chris@16:     using spirit::ushort_;
Chris@16:     using spirit::uint_;
Chris@16:     using spirit::ulong_;
Chris@16: #ifdef BOOST_HAS_LONG_LONG
Chris@16:     using spirit::ulong_long;
Chris@16: #endif
Chris@16:     using spirit::lit; // lit(1) is equivalent to 1
Chris@16: #endif
Chris@16: 
Chris@16:     using spirit::bin_type;
Chris@16:     using spirit::oct_type;
Chris@16:     using spirit::hex_type;
Chris@16: 
Chris@16:     using spirit::ushort_type;
Chris@16:     using spirit::uint_type;
Chris@16:     using spirit::ulong_type;
Chris@16: #ifdef BOOST_HAS_LONG_LONG
Chris@16:     using spirit::ulong_long_type;
Chris@16: #endif
Chris@16:     using spirit::lit_type;
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     // This is the actual uint parser
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename T, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:             , int MaxDigits = -1>
Chris@16:     struct any_uint_parser
Chris@16:       : primitive_parser<any_uint_parser<T, Radix, MinDigits, MaxDigits> >
Chris@16:     {
Chris@16:         // check template parameter 'Radix' for validity
Chris@16:         BOOST_SPIRIT_ASSERT_MSG(
Chris@16:             Radix >= 2 && Radix <= 36,
Chris@16:             not_supported_radix, ());
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 extract_uint<T, Radix, MinDigits, MaxDigits> extract;
Chris@16:             qi::skip_over(first, last, skipper);
Chris@16:             return extract::call(first, last, attr_);
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& /*context*/) const
Chris@16:         {
Chris@16:             return info("unsigned-integer");
Chris@16:         }
Chris@16:     };
Chris@16:     //]
Chris@16: 
Chris@16:     template <typename T, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:             , int MaxDigits = -1, bool no_attribute = true>
Chris@16:     struct literal_uint_parser
Chris@16:       : primitive_parser<literal_uint_parser<T, Radix, MinDigits, MaxDigits
Chris@16:         , no_attribute> >
Chris@16:     {
Chris@16:         // check template parameter 'Radix' for validity
Chris@16:         BOOST_SPIRIT_ASSERT_MSG(
Chris@16:             Radix == 2 || Radix == 8 || Radix == 10 || Radix == 16,
Chris@16:             not_supported_radix, ());
Chris@16: 
Chris@16:         template <typename Value>
Chris@16:         literal_uint_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_param) const
Chris@16:         {
Chris@16:             typedef extract_uint<T, Radix, MinDigits, MaxDigits> extract;
Chris@16:             qi::skip_over(first, last, skipper);
Chris@16: 
Chris@16:             Iterator save = first;
Chris@16:             T attr_;
Chris@16: 
Chris@16:             if (extract::call(first, last, attr_) && (attr_ == n_))
Chris@16:             {
Chris@16:                 traits::assign_to(attr_, attr_param);
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             first = save;
Chris@16:             return false;
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Context>
Chris@16:         info what(Context& /*context*/) const
Chris@16:         {
Chris@16:             return info("unsigned-integer");
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, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:             , int MaxDigits = -1>
Chris@16:     struct make_uint
Chris@16:     {
Chris@16:         typedef any_uint_parser<T, Radix, MinDigits, MaxDigits> result_type;
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, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:             , int MaxDigits = -1>
Chris@16:     struct make_direct_uint
Chris@16:     {
Chris@16:         typedef literal_uint_parser<T, Radix, MinDigits, MaxDigits, false>
Chris@16:             result_type;
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, unsigned Radix = 10, unsigned MinDigits = 1
Chris@16:             , int MaxDigits = -1>
Chris@16:     struct make_literal_uint
Chris@16:     {
Chris@16:         typedef literal_uint_parser<T, Radix, MinDigits, MaxDigits> result_type;
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, unsigned short> >::type>
Chris@16:       : make_literal_uint<unsigned short> {};
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, unsigned> >::type>
Chris@16:       : make_literal_uint<unsigned> {};
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, unsigned long> >::type>
Chris@16:       : make_literal_uint<unsigned long> {};
Chris@16: 
Chris@16: #ifdef BOOST_HAS_LONG_LONG
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, boost::ulong_long_type> >::type>
Chris@16:       : make_literal_uint<boost::ulong_long_type> {};
Chris@16: #endif
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename T, unsigned Radix, unsigned MinDigits, int MaxDigits
Chris@16:             , typename Modifiers>
Chris@16:     struct make_primitive<
Chris@16:         tag::uint_parser<T, Radix, MinDigits, MaxDigits>
Chris@16:       , Modifiers>
Chris@16:       : make_uint<T, Radix, MinDigits, MaxDigits> {};
Chris@16: 
Chris@16:     template <typename T, unsigned Radix, unsigned MinDigits, int MaxDigits
Chris@16:             , typename A0, typename Modifiers>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::uint_parser<T, Radix, MinDigits, MaxDigits>
Chris@16:       , fusion::vector1<A0> >, Modifiers>
Chris@16:       : make_direct_uint<T, Radix, MinDigits, MaxDigits> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::bin, Modifiers>
Chris@16:       : make_uint<unsigned, 2> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::bin
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned, 2> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::oct, Modifiers>
Chris@16:       : make_uint<unsigned, 8> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::oct
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned, 8> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::hex, Modifiers>
Chris@16:       : make_uint<unsigned, 16> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::hex
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned, 16> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::ushort_, Modifiers>
Chris@16:       : make_uint<unsigned short> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::ushort_
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned short> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::uint_, Modifiers>
Chris@16:       : make_uint<unsigned> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::uint_
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::ulong_, Modifiers>
Chris@16:       : make_uint<unsigned long> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::ulong_
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<unsigned long> {};
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////
Chris@16: #ifdef BOOST_HAS_LONG_LONG
Chris@16:     template <typename Modifiers>
Chris@16:     struct make_primitive<tag::ulong_long, Modifiers>
Chris@16:       : make_uint<boost::ulong_long_type> {};
Chris@16: 
Chris@16:     template <typename Modifiers, typename A0>
Chris@16:     struct make_primitive<
Chris@16:         terminal_ex<tag::ulong_long
Chris@16:       , fusion::vector1<A0> > , Modifiers>
Chris@16:       : make_direct_uint<boost::ulong_long_type> {};
Chris@16: #endif
Chris@16: }}}
Chris@16: 
Chris@16: #endif