Chris@16: #ifndef BOOST_LEXICAL_CAST_INCLUDED
Chris@16: #define BOOST_LEXICAL_CAST_INCLUDED
Chris@16: 
Chris@16: // MS compatible compilers support #pragma once
Chris@16: 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER >= 1020)
Chris@16: # pragma once
Chris@16: #endif
Chris@16: 
Chris@16: // Boost lexical_cast.hpp header  -------------------------------------------//
Chris@16: //
Chris@16: // See http://www.boost.org/libs/conversion for documentation.
Chris@16: // See end of this header for rights and permissions.
Chris@16: //
Chris@16: // what:  lexical_cast custom keyword cast
Chris@16: // who:   contributed by Kevlin Henney,
Chris@16: //        enhanced with contributions from Terje Slettebo,
Chris@16: //        with additional fixes and suggestions from Gennaro Prota,
Chris@16: //        Beman Dawes, Dave Abrahams, Daryle Walker, Peter Dimov,
Chris@16: //        Alexander Nasonov, Antony Polukhin, Justin Viiret, Michael Hofmann,
Chris@16: //        Cheng Yang, Matthew Bradbury, David W. Birdsall, Pavel Korzh and other Boosters
Chris@16: // when:  November 2000, March 2003, June 2005, June 2006, March 2011 - 2013
Chris@16: 
Chris@16: #include <boost/config.hpp>
Chris@16: #if defined(BOOST_NO_STRINGSTREAM) || defined(BOOST_NO_STD_WSTRING)
Chris@16: #define BOOST_LCAST_NO_WCHAR_T
Chris@16: #endif
Chris@16: 
Chris@16: #include <climits>
Chris@16: #include <cstddef>
Chris@16: #include <string>
Chris@16: #include <cstring>
Chris@16: #include <cstdio>
Chris@16: #include <typeinfo>
Chris@16: #include <exception>
Chris@16: #include <boost/limits.hpp>
Chris@16: #include <boost/mpl/if.hpp>
Chris@16: #include <boost/throw_exception.hpp>
Chris@16: #include <boost/type_traits/ice.hpp>
Chris@16: #include <boost/type_traits/is_pointer.hpp>
Chris@16: #include <boost/static_assert.hpp>
Chris@16: #include <boost/detail/lcast_precision.hpp>
Chris@16: #include <boost/detail/workaround.hpp>
Chris@16: 
Chris@16: 
Chris@16: #ifndef BOOST_NO_STD_LOCALE
Chris@16: #   include <locale>
Chris@16: #else
Chris@16: #   ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:         // Getting error at this point means, that your STL library is old/lame/misconfigured.
Chris@16:         // If nothing can be done with STL library, define BOOST_LEXICAL_CAST_ASSUME_C_LOCALE,
Chris@16:         // but beware: lexical_cast will understand only 'C' locale delimeters and thousands
Chris@16:         // separators.
Chris@16: #       error "Unable to use <locale> header. Define BOOST_LEXICAL_CAST_ASSUME_C_LOCALE to force "
Chris@16: #       error "boost::lexical_cast to use only 'C' locale during conversions."
Chris@16: #   endif
Chris@16: #endif
Chris@16: 
Chris@16: #ifdef BOOST_NO_STRINGSTREAM
Chris@16: #include <strstream>
Chris@16: #else
Chris@16: #include <sstream>
Chris@16: #endif
Chris@16: 
Chris@16: #ifdef BOOST_NO_TYPEID
Chris@16: #define BOOST_LCAST_THROW_BAD_CAST(S, T) throw_exception(bad_lexical_cast())
Chris@16: #else
Chris@16: #define BOOST_LCAST_THROW_BAD_CAST(Source, Target) \
Chris@16:     throw_exception(bad_lexical_cast(typeid(Source), typeid(Target)))
Chris@16: #endif
Chris@16: 
Chris@16: namespace boost
Chris@16: {
Chris@16:     // exception used to indicate runtime lexical_cast failure
Chris@16:     class BOOST_SYMBOL_VISIBLE bad_lexical_cast :
Chris@16:     // workaround MSVC bug with std::bad_cast when _HAS_EXCEPTIONS == 0 
Chris@16: #if defined(BOOST_MSVC) && defined(_HAS_EXCEPTIONS) && !_HAS_EXCEPTIONS 
Chris@16:         public std::exception 
Chris@16: #else 
Chris@16:         public std::bad_cast 
Chris@16: #endif 
Chris@16: 
Chris@16: #if defined(__BORLANDC__) && BOOST_WORKAROUND( __BORLANDC__, < 0x560 )
Chris@16:         // under bcc32 5.5.1 bad_cast doesn't derive from exception
Chris@16:         , public std::exception
Chris@16: #endif
Chris@16: 
Chris@16:     {
Chris@16:     public:
Chris@16:         bad_lexical_cast() BOOST_NOEXCEPT :
Chris@16: #ifndef BOOST_NO_TYPEID
Chris@16:           source(&typeid(void)), target(&typeid(void))
Chris@16: #else
Chris@16:           source(0), target(0) // this breaks getters
Chris@16: #endif
Chris@16:         {
Chris@16:         }
Chris@16: 
Chris@16:         bad_lexical_cast(
Chris@16:             const std::type_info &source_type_arg,
Chris@16:             const std::type_info &target_type_arg) BOOST_NOEXCEPT :
Chris@16:             source(&source_type_arg), target(&target_type_arg)
Chris@16:         {
Chris@16:         }
Chris@16: 
Chris@16:         const std::type_info &source_type() const
Chris@16:         {
Chris@16:             return *source;
Chris@16:         }
Chris@16:         const std::type_info &target_type() const
Chris@16:         {
Chris@16:             return *target;
Chris@16:         }
Chris@16: 
Chris@16: #ifndef BOOST_NO_CXX11_NOEXCEPT
Chris@16:         virtual const char *what() const noexcept
Chris@16: #else
Chris@16:         virtual const char *what() const throw()
Chris@16: #endif
Chris@16:         {
Chris@16:             return "bad lexical cast: "
Chris@16:                    "source type value could not be interpreted as target";
Chris@16:         }
Chris@16: 
Chris@16: #ifndef BOOST_NO_CXX11_NOEXCEPT
Chris@16:         virtual ~bad_lexical_cast() BOOST_NOEXCEPT
Chris@16: #else
Chris@16:         virtual ~bad_lexical_cast() throw()
Chris@16: #endif
Chris@16:         {}
Chris@16:     private:
Chris@16:         const std::type_info *source;
Chris@16:         const std::type_info *target;
Chris@16:     };
Chris@16: 
Chris@16:     namespace detail // widest_char
Chris@16:     {
Chris@16:         template <typename TargetChar, typename SourceChar>
Chris@16:         struct widest_char
Chris@16:         {
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                 (sizeof(TargetChar) > sizeof(SourceChar))
Chris@16:                 , TargetChar
Chris@16:                 , SourceChar >::type type;
Chris@16:         };
Chris@16:     }
Chris@16: } // namespace boost
Chris@16: 
Chris@16: #if !defined(BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION) && !defined(__SUNPRO_CC) && !defined(__PGIC__)
Chris@16: 
Chris@16: #include <cmath>
Chris@16: #include <istream>
Chris@16: 
Chris@16: #ifndef BOOST_NO_CXX11_HDR_ARRAY
Chris@16: #include <array>
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/array.hpp>
Chris@16: #include <boost/numeric/conversion/cast.hpp>
Chris@16: #include <boost/type_traits/make_unsigned.hpp>
Chris@16: #include <boost/type_traits/is_signed.hpp>
Chris@16: #include <boost/type_traits/is_integral.hpp>
Chris@16: #include <boost/type_traits/is_arithmetic.hpp>
Chris@16: #include <boost/type_traits/remove_pointer.hpp>
Chris@16: #include <boost/type_traits/has_left_shift.hpp>
Chris@16: #include <boost/type_traits/has_right_shift.hpp>
Chris@16: #include <boost/math/special_functions/sign.hpp>
Chris@16: #include <boost/math/special_functions/fpclassify.hpp>
Chris@16: #include <boost/range/iterator_range_core.hpp>
Chris@16: #include <boost/container/container_fwd.hpp>
Chris@16: #include <boost/integer.hpp>
Chris@16: #ifndef BOOST_NO_CWCHAR
Chris@16: #   include <cwchar>
Chris@16: #endif
Chris@16: 
Chris@16: namespace boost {
Chris@16: 
Chris@16:     namespace detail // is_char_or_wchar<...>
Chris@16:     {
Chris@16:         // returns true, if T is one of the character types
Chris@16:         template < typename T >
Chris@16:         struct is_char_or_wchar
Chris@16:         {
Chris@16:             typedef boost::type_traits::ice_or<
Chris@16:                     boost::is_same< T, char >::value,
Chris@16:                     #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:                         boost::is_same< T, wchar_t >::value,
Chris@16:                     #endif
Chris@16:                     #ifndef BOOST_NO_CXX11_CHAR16_T
Chris@16:                         boost::is_same< T, char16_t >::value,
Chris@16:                     #endif
Chris@16:                     #ifndef BOOST_NO_CXX11_CHAR32_T
Chris@16:                         boost::is_same< T, char32_t >::value,
Chris@16:                     #endif
Chris@16:                     boost::is_same< T, unsigned char >::value,
Chris@16:                     boost::is_same< T, signed char >::value
Chris@16:             > result_type;
Chris@16: 
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = (result_type::value) );
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // normalize_single_byte_char<Char>
Chris@16:     {
Chris@16:         // Converts signed/unsigned char to char
Chris@16:         template < class Char >
Chris@16:         struct normalize_single_byte_char 
Chris@16:         {
Chris@16:             typedef Char type;
Chris@16:         };
Chris@16: 
Chris@16:         template <>
Chris@16:         struct normalize_single_byte_char< signed char >
Chris@16:         {
Chris@16:             typedef char type;
Chris@16:         };
Chris@16: 
Chris@16:         template <>
Chris@16:         struct normalize_single_byte_char< unsigned char >
Chris@16:         {
Chris@16:             typedef char type;
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // deduce_character_type_later<T>
Chris@16:     {
Chris@16:         // Helper type, meaning that stram character for T must be deduced 
Chris@16:         // at Stage 2 (See deduce_source_char<T> and deduce_target_char<T>)
Chris@16:         template < class T > struct deduce_character_type_later {};
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // stream_char_common<T>
Chris@16:     {
Chris@16:         // Selectors to choose stream character type (common for Source and Target)
Chris@16:         // Returns one of char, wchar_t, char16_t, char32_t or deduce_character_type_later<T> types
Chris@16:         // Executed on Stage 1 (See deduce_source_char<T> and deduce_target_char<T>)
Chris@16:         template < typename Type >
Chris@16:         struct stream_char_common: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Type >::value,
Chris@16:             Type,
Chris@16:             boost::detail::deduce_character_type_later< Type >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < typename Char >
Chris@16:         struct stream_char_common< Char* >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< Char* >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < typename Char >
Chris@16:         struct stream_char_common< const Char* >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< const Char* >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < typename Char >
Chris@16:         struct stream_char_common< boost::iterator_range< Char* > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< boost::iterator_range< Char* > >
Chris@16:         > {};
Chris@16:     
Chris@16:         template < typename Char >
Chris@16:         struct stream_char_common< boost::iterator_range< const Char* > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< boost::iterator_range< const Char* > >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc >
Chris@16:         struct stream_char_common< std::basic_string< Char, Traits, Alloc > >
Chris@16:         {
Chris@16:             typedef Char type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc >
Chris@16:         struct stream_char_common< boost::container::basic_string< Char, Traits, Alloc > >
Chris@16:         {
Chris@16:             typedef Char type;
Chris@16:         };
Chris@16: 
Chris@16:         template < typename Char, std::size_t N >
Chris@16:         struct stream_char_common< boost::array< Char, N > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< boost::array< Char, N > >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < typename Char, std::size_t N >
Chris@16:         struct stream_char_common< boost::array< const Char, N > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< boost::array< const Char, N > >
Chris@16:         > {};
Chris@16: 
Chris@16: #ifndef BOOST_NO_CXX11_HDR_ARRAY
Chris@16:         template < typename Char, std::size_t N >
Chris@16:         struct stream_char_common< std::array<Char, N > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< std::array< Char, N > >
Chris@16:         > {};
Chris@16: 
Chris@16:         template < typename Char, std::size_t N >
Chris@16:         struct stream_char_common< std::array< const Char, N > >: public boost::mpl::if_c<
Chris@16:             boost::detail::is_char_or_wchar< Char >::value,
Chris@16:             Char,
Chris@16:             boost::detail::deduce_character_type_later< std::array< const Char, N > >
Chris@16:         > {};
Chris@16: #endif
Chris@16: 
Chris@16: #ifdef BOOST_HAS_INT128
Chris@16:         template <> struct stream_char_common< boost::int128_type >: public boost::mpl::identity< char > {};
Chris@16:         template <> struct stream_char_common< boost::uint128_type >: public boost::mpl::identity< char > {};
Chris@16: #endif
Chris@16: 
Chris@16: #if !defined(BOOST_LCAST_NO_WCHAR_T) && defined(BOOST_NO_INTRINSIC_WCHAR_T)
Chris@16:         template <>
Chris@16:         struct stream_char_common< wchar_t >
Chris@16:         {
Chris@16:             typedef char type;
Chris@16:         };
Chris@16: #endif
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // deduce_source_char_impl<T>
Chris@16:     {
Chris@16:         // If type T is `deduce_character_type_later` type, then tries to deduce
Chris@16:         // character type using boost::has_left_shift<T> metafunction.
Chris@16:         // Otherwise supplied type T is a character type, that must be normalized
Chris@16:         // using normalize_single_byte_char<Char>.
Chris@16:         // Executed at Stage 2  (See deduce_source_char<T> and deduce_target_char<T>)
Chris@16:         template < class Char > 
Chris@16:         struct deduce_source_char_impl
Chris@16:         { 
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::detail::normalize_single_byte_char< Char >::type type; 
Chris@16:         };
Chris@16:         
Chris@16:         template < class T > 
Chris@16:         struct deduce_source_char_impl< deduce_character_type_later< T > > 
Chris@16:         {
Chris@16:             typedef boost::has_left_shift< std::basic_ostream< char >, T > result_t;
Chris@16: 
Chris@16: #if defined(BOOST_LCAST_NO_WCHAR_T)
Chris@16:             BOOST_STATIC_ASSERT_MSG((result_t::value), 
Chris@16:                 "Source type is not std::ostream`able and std::wostream`s are not supported by your STL implementation");
Chris@16:             typedef char type;
Chris@16: #else
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                 result_t::value, char, wchar_t
Chris@16:             >::type type;
Chris@16: 
Chris@16:             BOOST_STATIC_ASSERT_MSG((result_t::value || boost::has_left_shift< std::basic_ostream< type >, T >::value), 
Chris@16:                 "Source type is neither std::ostream`able nor std::wostream`able");
Chris@16: #endif
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail  // deduce_target_char_impl<T>
Chris@16:     {
Chris@16:         // If type T is `deduce_character_type_later` type, then tries to deduce
Chris@16:         // character type using boost::has_right_shift<T> metafunction.
Chris@16:         // Otherwise supplied type T is a character type, that must be normalized
Chris@16:         // using normalize_single_byte_char<Char>.
Chris@16:         // Executed at Stage 2  (See deduce_source_char<T> and deduce_target_char<T>)
Chris@16:         template < class Char > 
Chris@16:         struct deduce_target_char_impl 
Chris@16:         { 
Chris@16:             typedef BOOST_DEDUCED_TYPENAME normalize_single_byte_char< Char >::type type; 
Chris@16:         };
Chris@16:         
Chris@16:         template < class T > 
Chris@16:         struct deduce_target_char_impl< deduce_character_type_later<T> > 
Chris@16:         { 
Chris@16:             typedef boost::has_right_shift<std::basic_istream<char>, T > result_t;
Chris@16: 
Chris@16: #if defined(BOOST_LCAST_NO_WCHAR_T)
Chris@16:             BOOST_STATIC_ASSERT_MSG((result_t::value), 
Chris@16:                 "Target type is not std::istream`able and std::wistream`s are not supported by your STL implementation");
Chris@16:             typedef char type;
Chris@16: #else
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                 result_t::value, char, wchar_t
Chris@16:             >::type type;
Chris@16:             
Chris@16:             BOOST_STATIC_ASSERT_MSG((result_t::value || boost::has_right_shift<std::basic_istream<wchar_t>, T >::value), 
Chris@16:                 "Target type is neither std::istream`able nor std::wistream`able");
Chris@16: #endif
Chris@16:         };
Chris@16:     } 
Chris@16: 
Chris@16:     namespace detail  // deduce_target_char<T> and deduce_source_char<T>
Chris@16:     {
Chris@16:         // We deduce stream character types in two stages.
Chris@16:         //
Chris@16:         // Stage 1 is common for Target and Source. At Stage 1 we get 
Chris@16:         // non normalized character type (may contain unsigned/signed char)
Chris@16:         // or deduce_character_type_later<T> where T is the original type.
Chris@16:         // Stage 1 is executed by stream_char_common<T>
Chris@16:         //
Chris@16:         // At Stage 2 we normalize character types or try to deduce character 
Chris@16:         // type using metafunctions. 
Chris@16:         // Stage 2 is executed by deduce_target_char_impl<T> and 
Chris@16:         // deduce_source_char_impl<T>
Chris@16:         //
Chris@16:         // deduce_target_char<T> and deduce_source_char<T> functions combine 
Chris@16:         // both stages
Chris@16: 
Chris@16:         template < class T >
Chris@16:         struct deduce_target_char
Chris@16:         {
Chris@16:             typedef BOOST_DEDUCED_TYPENAME stream_char_common< T >::type stage1_type;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME deduce_target_char_impl< stage1_type >::type stage2_type;
Chris@16: 
Chris@16:             typedef stage2_type type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class T >
Chris@16:         struct deduce_source_char
Chris@16:         {
Chris@16:             typedef BOOST_DEDUCED_TYPENAME stream_char_common< T >::type stage1_type;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME deduce_source_char_impl< stage1_type >::type stage2_type;
Chris@16: 
Chris@16:             typedef stage2_type type;
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // deduce_char_traits template
Chris@16:     {
Chris@16:         // We are attempting to get char_traits<> from Source or Tagret
Chris@16:         // template parameter. Otherwise we'll be using std::char_traits<Char>
Chris@16:         template < class Char, class Target, class Source >
Chris@16:         struct deduce_char_traits
Chris@16:         {
Chris@16:             typedef std::char_traits< Char > type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc, class Source >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , std::basic_string< Char, Traits, Alloc >
Chris@16:                                  , Source
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Target, class Traits, class Alloc >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , Target
Chris@16:                                  , std::basic_string< Char, Traits, Alloc >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc, class Source >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc >
Chris@16:                                  , Source
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Target, class Traits, class Alloc >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , Target
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc1, class Alloc2 >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , std::basic_string< Char, Traits, Alloc1 >
Chris@16:                                  , std::basic_string< Char, Traits, Alloc2 >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template<class Char, class Traits, class Alloc1, class Alloc2>
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc1 >
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc2 >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc1, class Alloc2 >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc1 >
Chris@16:                                  , std::basic_string< Char, Traits, Alloc2 >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16: 
Chris@16:         template < class Char, class Traits, class Alloc1, class Alloc2 >
Chris@16:         struct deduce_char_traits< Char
Chris@16:                                  , std::basic_string< Char, Traits, Alloc1 >
Chris@16:                                  , boost::container::basic_string< Char, Traits, Alloc2 >
Chris@16:                                  >
Chris@16:         {
Chris@16:             typedef Traits type;
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // array_to_pointer_decay<T>
Chris@16:     {
Chris@16:         template<class T>
Chris@16:         struct array_to_pointer_decay
Chris@16:         {
Chris@16:             typedef T type;
Chris@16:         };
Chris@16: 
Chris@16:         template<class T, std::size_t N>
Chris@16:         struct array_to_pointer_decay<T[N]>
Chris@16:         {
Chris@16:             typedef const T * type;
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // is_this_float_conversion_optimized<Float, Char>
Chris@16:     {
Chris@16:         // this metafunction evaluates to true, if we have optimized comnversion 
Chris@16:         // from Float type to Char array. 
Chris@16:         // Must be in sync with lexical_stream_limited_src<Char, ...>::shl_real_type(...)
Chris@16:         template <typename Float, typename Char>
Chris@16:         struct is_this_float_conversion_optimized 
Chris@16:         {
Chris@16:             typedef boost::type_traits::ice_and<
Chris@16:                 boost::is_float<Float>::value,
Chris@16: #if !defined(BOOST_LCAST_NO_WCHAR_T) && !defined(BOOST_NO_SWPRINTF) && !defined(__MINGW32__)
Chris@16:                 boost::type_traits::ice_or<
Chris@16:                     boost::type_traits::ice_eq<sizeof(Char), sizeof(char) >::value,
Chris@16:                     boost::is_same<Char, wchar_t>::value
Chris@16:                 >::value
Chris@16: #else
Chris@16:                 boost::type_traits::ice_eq<sizeof(Char), sizeof(char) >::value
Chris@16: #endif
Chris@16:             > result_type;
Chris@16: 
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = (result_type::value) );
Chris@16:         };
Chris@16:     }
Chris@16:     
Chris@16:     namespace detail // lcast_src_length
Chris@16:     {
Chris@16:         // Return max. length of string representation of Source;
Chris@16:         template< class Source // Source type of lexical_cast.
Chris@16:                 >
Chris@16:         struct lcast_src_length
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(std::size_t, value = 1);
Chris@16:             // To check coverage, build the test with
Chris@16:             // bjam --v2 profile optimization=off
Chris@16:             static void check_coverage() {}
Chris@16:         };
Chris@16: 
Chris@16:         // Helper for integral types.
Chris@16:         // Notes on length calculation:
Chris@16:         // Max length for 32bit int with grouping "\1" and thousands_sep ',':
Chris@16:         // "-2,1,4,7,4,8,3,6,4,7"
Chris@16:         //  ^                    - is_signed
Chris@16:         //   ^                   - 1 digit not counted by digits10
Chris@16:         //    ^^^^^^^^^^^^^^^^^^ - digits10 * 2
Chris@16:         //
Chris@16:         // Constant is_specialized is used instead of constant 1
Chris@16:         // to prevent buffer overflow in a rare case when
Chris@16:         // <boost/limits.hpp> doesn't add missing specialization for
Chris@16:         // numeric_limits<T> for some integral type T.
Chris@16:         // When is_specialized is false, the whole expression is 0.
Chris@16:         template<class Source>
Chris@16:         struct lcast_src_length_integral
Chris@16:         {
Chris@16: #ifndef BOOST_NO_LIMITS_COMPILE_TIME_CONSTANTS
Chris@16:             BOOST_STATIC_CONSTANT(std::size_t, value =
Chris@16:                   std::numeric_limits<Source>::is_signed +
Chris@16:                   std::numeric_limits<Source>::is_specialized + /* == 1 */
Chris@16:                   std::numeric_limits<Source>::digits10 * 2
Chris@16:               );
Chris@16: #else
Chris@16:             BOOST_STATIC_CONSTANT(std::size_t, value = 156);
Chris@16:             BOOST_STATIC_ASSERT(sizeof(Source) * CHAR_BIT <= 256);
Chris@16: #endif
Chris@16:         };
Chris@16: 
Chris@16: #define BOOST_LCAST_DEF(T)               \
Chris@16:     template<> struct lcast_src_length<T> \
Chris@16:         : lcast_src_length_integral<T>           \
Chris@16:     { static void check_coverage() {} };
Chris@16: 
Chris@16:         BOOST_LCAST_DEF(short)
Chris@16:         BOOST_LCAST_DEF(unsigned short)
Chris@16:         BOOST_LCAST_DEF(int)
Chris@16:         BOOST_LCAST_DEF(unsigned int)
Chris@16:         BOOST_LCAST_DEF(long)
Chris@16:         BOOST_LCAST_DEF(unsigned long)
Chris@16: #if defined(BOOST_HAS_LONG_LONG)
Chris@16:         BOOST_LCAST_DEF(boost::ulong_long_type)
Chris@16:         BOOST_LCAST_DEF(boost::long_long_type )
Chris@16: #elif defined(BOOST_HAS_MS_INT64)
Chris@16:         BOOST_LCAST_DEF(unsigned __int64)
Chris@16:         BOOST_LCAST_DEF(         __int64)
Chris@16: #endif
Chris@16: #ifdef BOOST_HAS_INT128
Chris@16:         BOOST_LCAST_DEF(boost::int128_type)
Chris@16:         BOOST_LCAST_DEF(boost::uint128_type)
Chris@16: #endif
Chris@16: 
Chris@16: #undef BOOST_LCAST_DEF
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_COMPILE_TIME_PRECISION
Chris@16:         // Helper for floating point types.
Chris@16:         // -1.23456789e-123456
Chris@16:         // ^                   sign
Chris@16:         //  ^                  leading digit
Chris@16:         //   ^                 decimal point 
Chris@16:         //    ^^^^^^^^         lcast_precision<Source>::value
Chris@16:         //            ^        "e"
Chris@16:         //             ^       exponent sign
Chris@16:         //              ^^^^^^ exponent (assumed 6 or less digits)
Chris@16:         // sign + leading digit + decimal point + "e" + exponent sign == 5
Chris@16:         template<class Source>
Chris@16:         struct lcast_src_length_floating
Chris@16:         {
Chris@16:             BOOST_STATIC_ASSERT(
Chris@16:                     std::numeric_limits<Source>::max_exponent10 <=  999999L &&
Chris@16:                     std::numeric_limits<Source>::min_exponent10 >= -999999L
Chris@16:                 );
Chris@16:             BOOST_STATIC_CONSTANT(std::size_t, value =
Chris@16:                     5 + lcast_precision<Source>::value + 6
Chris@16:                 );
Chris@16:         };
Chris@16: 
Chris@16:         template<>
Chris@16:         struct lcast_src_length<float>
Chris@16:           : lcast_src_length_floating<float>
Chris@16:         {
Chris@16:             static void check_coverage() {}
Chris@16:         };
Chris@16: 
Chris@16:         template<>
Chris@16:         struct lcast_src_length<double>
Chris@16:           : lcast_src_length_floating<double>
Chris@16:         {
Chris@16:             static void check_coverage() {}
Chris@16:         };
Chris@16: 
Chris@16:         template<>
Chris@16:         struct lcast_src_length<long double>
Chris@16:           : lcast_src_length_floating<long double>
Chris@16:         {
Chris@16:             static void check_coverage() {}
Chris@16:         };
Chris@16: 
Chris@16: #endif // #ifndef BOOST_LCAST_NO_COMPILE_TIME_PRECISION
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // lexical_cast_stream_traits<Source, Target>
Chris@16:     {
Chris@16:         template <class Source, class Target>
Chris@16:         struct lexical_cast_stream_traits {
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::detail::array_to_pointer_decay<Source>::type src;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::remove_cv<src>::type            no_cv_src;
Chris@16:                 
Chris@16:             typedef boost::detail::deduce_source_char<no_cv_src>                           deduce_src_char_metafunc;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME deduce_src_char_metafunc::type           src_char_t;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::detail::deduce_target_char<Target>::type target_char_t;
Chris@16:                 
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::detail::widest_char<
Chris@16:                 target_char_t, src_char_t
Chris@16:             >::type char_type;
Chris@16: 
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR16_T) && defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             BOOST_STATIC_ASSERT_MSG(( !boost::is_same<char16_t, src_char_t>::value
Chris@16:                                         && !boost::is_same<char16_t, target_char_t>::value),
Chris@16:                 "Your compiler does not have full support for char16_t" );
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR32_T) && defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             BOOST_STATIC_ASSERT_MSG(( !boost::is_same<char32_t, src_char_t>::value
Chris@16:                                         && !boost::is_same<char32_t, target_char_t>::value),
Chris@16:                 "Your compiler does not have full support for char32_t" );
Chris@16: #endif
Chris@16: 
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::detail::deduce_char_traits<
Chris@16:                 char_type, Target, no_cv_src
Chris@16:             >::type traits;
Chris@16: 
Chris@16:             typedef boost::type_traits::ice_and<
Chris@16:                 boost::is_same<char, src_char_t>::value,                                  // source is not a wide character based type
Chris@16:                 boost::type_traits::ice_ne<sizeof(char), sizeof(target_char_t) >::value,  // target type is based on wide character
Chris@16:                 boost::type_traits::ice_not<
Chris@16:                     boost::detail::is_char_or_wchar<no_cv_src>::value                     // single character widening is optimized
Chris@16:                 >::value                                                                  // and does not requires stringbuffer
Chris@16:             >   is_string_widening_required_t;
Chris@16: 
Chris@16:             typedef boost::type_traits::ice_not< boost::type_traits::ice_or<
Chris@16:                 boost::is_integral<no_cv_src>::value,
Chris@16:                 boost::detail::is_this_float_conversion_optimized<no_cv_src, char_type >::value,
Chris@16:                 boost::detail::is_char_or_wchar<
Chris@16:                     BOOST_DEDUCED_TYPENAME deduce_src_char_metafunc::stage1_type          // if we did not get character type at stage1
Chris@16:                 >::value                                                                  // then we have no optimization for that type
Chris@16:             >::value >   is_source_input_not_optimized_t;
Chris@16: 
Chris@16:             // If we have an optimized conversion for
Chris@16:             // Source, we do not need to construct stringbuf.
Chris@16:             BOOST_STATIC_CONSTANT(bool, requires_stringbuf = 
Chris@16:                 (boost::type_traits::ice_or<
Chris@16:                     is_string_widening_required_t::value, is_source_input_not_optimized_t::value
Chris@16:                 >::value)
Chris@16:             );
Chris@16:             
Chris@16:             typedef boost::detail::lcast_src_length<no_cv_src> len_t;
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // '0', '+' and '-' constants
Chris@16:     {
Chris@16:         template < typename Char > struct lcast_char_constants;
Chris@16: 
Chris@16:         template<>
Chris@16:         struct lcast_char_constants<char>
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(char, zero  = '0');
Chris@16:             BOOST_STATIC_CONSTANT(char, minus = '-');
Chris@16:             BOOST_STATIC_CONSTANT(char, plus = '+');
Chris@16:             BOOST_STATIC_CONSTANT(char, lowercase_e = 'e');
Chris@16:             BOOST_STATIC_CONSTANT(char, capital_e = 'E');
Chris@16:             BOOST_STATIC_CONSTANT(char, c_decimal_separator = '.');
Chris@16:         };
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:         template<>
Chris@16:         struct lcast_char_constants<wchar_t>
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, zero  = L'0');
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, minus = L'-');
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, plus = L'+');
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, lowercase_e = L'e');
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, capital_e = L'E');
Chris@16:             BOOST_STATIC_CONSTANT(wchar_t, c_decimal_separator = L'.');
Chris@16:         };
Chris@16: #endif
Chris@16: 
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR16_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:         template<>
Chris@16:         struct lcast_char_constants<char16_t>
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, zero  = u'0');
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, minus = u'-');
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, plus = u'+');
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, lowercase_e = u'e');
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, capital_e = u'E');
Chris@16:             BOOST_STATIC_CONSTANT(char16_t, c_decimal_separator = u'.');
Chris@16:         };
Chris@16: #endif
Chris@16: 
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR32_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:         template<>
Chris@16:         struct lcast_char_constants<char32_t>
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, zero  = U'0');
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, minus = U'-');
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, plus = U'+');
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, lowercase_e = U'e');
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, capital_e = U'E');
Chris@16:             BOOST_STATIC_CONSTANT(char32_t, c_decimal_separator = U'.');
Chris@16:         };
Chris@16: #endif
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // lcast_to_unsigned
Chris@16:     {
Chris@16:         template<class T>
Chris@16:         inline
Chris@16:         BOOST_DEDUCED_TYPENAME make_unsigned<T>::type lcast_to_unsigned(T value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::make_unsigned<T>::type result_type;
Chris@16:             return static_cast<result_type>(
Chris@16:                 value < 0 ? 0u - static_cast<result_type>(value) : value
Chris@16:             );
Chris@16:         }
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // lcast_put_unsigned
Chris@16:     {
Chris@16:         template<class Traits, class T, class CharT>
Chris@16:         CharT* lcast_put_unsigned(const T n_param, CharT* finish)
Chris@16:         {
Chris@16: #ifndef BOOST_NO_LIMITS_COMPILE_TIME_CONSTANTS
Chris@16:             BOOST_STATIC_ASSERT(!std::numeric_limits<T>::is_signed);
Chris@16: #endif
Chris@16: 
Chris@16:             typedef typename Traits::int_type int_type;
Chris@16:             CharT const czero = lcast_char_constants<CharT>::zero;
Chris@16:             int_type const zero = Traits::to_int_type(czero);
Chris@16:             BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                     (sizeof(int_type) > sizeof(T))
Chris@16:                     , int_type
Chris@16:                     , T
Chris@16:             >::type n = n_param;
Chris@16: 
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:             std::locale loc;
Chris@16:             if (loc != std::locale::classic()) {
Chris@16:                 typedef std::numpunct<CharT> numpunct;
Chris@16:                 numpunct const& np = BOOST_USE_FACET(numpunct, loc);
Chris@16:                 std::string const grouping = np.grouping();
Chris@16:                 std::string::size_type const grouping_size = grouping.size();
Chris@16: 
Chris@16:                 if ( grouping_size && grouping[0] > 0 )
Chris@16:                 {
Chris@16: 
Chris@16: #ifndef BOOST_NO_LIMITS_COMPILE_TIME_CONSTANTS
Chris@16:                 // Check that ulimited group is unreachable:
Chris@16:                 BOOST_STATIC_ASSERT(std::numeric_limits<T>::digits10 < CHAR_MAX);
Chris@16: #endif
Chris@16:                     CharT thousands_sep = np.thousands_sep();
Chris@16:                     std::string::size_type group = 0; // current group number
Chris@16:                     char last_grp_size = grouping[0];
Chris@16:                     char left = last_grp_size;
Chris@16: 
Chris@16:                     do
Chris@16:                     {
Chris@16:                         if(left == 0)
Chris@16:                         {
Chris@16:                             ++group;
Chris@16:                             if(group < grouping_size)
Chris@16:                             {
Chris@16:                                 char const grp_size = grouping[group];
Chris@16:                                 last_grp_size = grp_size <= 0 ? static_cast<char>(CHAR_MAX) : grp_size;
Chris@16:                             }
Chris@16: 
Chris@16:                             left = last_grp_size;
Chris@16:                             --finish;
Chris@16:                             Traits::assign(*finish, thousands_sep);
Chris@16:                         }
Chris@16: 
Chris@16:                         --left;
Chris@16: 
Chris@16:                         --finish;
Chris@16:                         int_type const digit = static_cast<int_type>(n % 10U);
Chris@16:                         Traits::assign(*finish, Traits::to_char_type(zero + digit));
Chris@16:                         n /= 10;
Chris@16:                     } while(n);
Chris@16:                     return finish;
Chris@16:                 }
Chris@16:             }
Chris@16: #endif
Chris@16:             {
Chris@16:                 do
Chris@16:                 {
Chris@16:                     --finish;
Chris@16:                     int_type const digit = static_cast<int_type>(n % 10U);
Chris@16:                     Traits::assign(*finish, Traits::to_char_type(zero + digit));
Chris@16:                     n /= 10;
Chris@16:                 } while(n);
Chris@16:             }
Chris@16: 
Chris@16:             return finish;
Chris@16:         }
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // lcast_ret_unsigned
Chris@16:     {
Chris@16:         template<class Traits, class T, class CharT>
Chris@16:         inline bool lcast_ret_unsigned(T& value, const CharT* const begin, const CharT* end)
Chris@16:         {
Chris@16: #ifndef BOOST_NO_LIMITS_COMPILE_TIME_CONSTANTS
Chris@16:             BOOST_STATIC_ASSERT(!std::numeric_limits<T>::is_signed);
Chris@16: 
Chris@16:             // GCC when used with flag -std=c++0x may not have std::numeric_limits
Chris@16:             // specializations for __int128 and unsigned __int128 types.
Chris@16:             // Try compilation with -std=gnu++0x or -std=gnu++11.
Chris@16:             //
Chris@16:             // http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40856
Chris@16:             BOOST_STATIC_ASSERT_MSG(std::numeric_limits<T>::is_specialized,
Chris@16:                 "std::numeric_limits are not specialized for integral type passed to boost::lexical_cast"
Chris@16:             );
Chris@16: #endif
Chris@16:             CharT const czero = lcast_char_constants<CharT>::zero;
Chris@16:             --end;
Chris@16:             value = 0;
Chris@16: 
Chris@16:             if (begin > end || *end < czero || *end >= czero + 10)
Chris@16:                 return false;
Chris@16:             value = static_cast<T>(*end - czero);
Chris@16:             --end;
Chris@16:             T multiplier = 1;
Chris@16:             bool multiplier_overflowed = false;
Chris@16: 
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:             std::locale loc;
Chris@16:             if (loc != std::locale::classic()) {
Chris@16:                 typedef std::numpunct<CharT> numpunct;
Chris@16:                 numpunct const& np = BOOST_USE_FACET(numpunct, loc);
Chris@16:                 std::string const& grouping = np.grouping();
Chris@16:                 std::string::size_type const grouping_size = grouping.size();
Chris@16: 
Chris@16:                 /* According to Programming languages - C++
Chris@16:                  * we MUST check for correct grouping
Chris@16:                  */
Chris@16:                 if (grouping_size && grouping[0] > 0)
Chris@16:                 {
Chris@16:                     unsigned char current_grouping = 0;
Chris@16:                     CharT const thousands_sep = np.thousands_sep();
Chris@16:                     char remained = static_cast<char>(grouping[current_grouping] - 1);
Chris@16:                     bool shall_we_return = true;
Chris@16: 
Chris@16:                     for(;end>=begin; --end)
Chris@16:                     {
Chris@16:                         if (remained) {
Chris@16:                             T const multiplier_10 = static_cast<T>(multiplier * 10);
Chris@16:                             if (multiplier_10 / 10 != multiplier) multiplier_overflowed = true;
Chris@16: 
Chris@16:                             T const dig_value = static_cast<T>(*end - czero);
Chris@16:                             T const new_sub_value = static_cast<T>(multiplier_10 * dig_value);
Chris@16: 
Chris@16:                             if (*end < czero || *end >= czero + 10
Chris@16:                                     /* detecting overflow */
Chris@16:                                     || (dig_value && new_sub_value / dig_value != multiplier_10)
Chris@16:                                     || static_cast<T>((std::numeric_limits<T>::max)()-new_sub_value) < value
Chris@16:                                     || (multiplier_overflowed && dig_value)
Chris@16:                                     )
Chris@16:                                 return false;
Chris@16: 
Chris@16:                             value = static_cast<T>(value + new_sub_value);
Chris@16:                             multiplier = static_cast<T>(multiplier * 10);
Chris@16:                             --remained;
Chris@16:                         } else {
Chris@16:                             if ( !Traits::eq(*end, thousands_sep) ) //|| begin == end ) return false;
Chris@16:                             {
Chris@16:                                 /*
Chris@16:                                  * According to Programming languages - C++
Chris@16:                                  * Digit grouping is checked. That is, the positions of discarded
Chris@16:                                  * separators is examined for consistency with
Chris@16:                                  * use_facet<numpunct<charT> >(loc ).grouping()
Chris@16:                                  *
Chris@16:                                  * BUT what if there is no separators at all and grouping()
Chris@16:                                  * is not empty? Well, we have no extraced separators, so we
Chris@16:                                  * won`t check them for consistency. This will allow us to
Chris@16:                                  * work with "C" locale from other locales
Chris@16:                                  */
Chris@16:                                 shall_we_return = false;
Chris@16:                                 break;
Chris@16:                             } else {
Chris@16:                                 if ( begin == end ) return false;
Chris@16:                                 if (current_grouping < grouping_size-1 ) ++current_grouping;
Chris@16:                                 remained = grouping[current_grouping];
Chris@16:                             }
Chris@16:                         }
Chris@16:                     }
Chris@16: 
Chris@16:                     if (shall_we_return) return true;
Chris@16:                 }
Chris@16:             }
Chris@16: #endif
Chris@16:             {
Chris@16:                 while ( begin <= end )
Chris@16:                 {
Chris@16:                     T const multiplier_10 = static_cast<T>(multiplier * 10);
Chris@16:                     if (multiplier_10 / 10 != multiplier) multiplier_overflowed = true;
Chris@16: 
Chris@16:                     T const dig_value = static_cast<T>(*end - czero);
Chris@16:                     T const new_sub_value = static_cast<T>(multiplier_10 * dig_value);
Chris@16: 
Chris@16:                     if (*end < czero || *end >= czero + 10
Chris@16:                             /* detecting overflow */
Chris@16:                             || (dig_value && new_sub_value / dig_value != multiplier_10)
Chris@16:                             || static_cast<T>((std::numeric_limits<T>::max)()-new_sub_value) < value
Chris@16:                             || (multiplier_overflowed && dig_value)
Chris@16:                             )
Chris@16:                         return false;
Chris@16: 
Chris@16:                     value = static_cast<T>(value + new_sub_value);
Chris@16:                     multiplier = static_cast<T>(multiplier * 10);
Chris@16:                     --end;
Chris@16:                 }
Chris@16:             }
Chris@16:             return true;
Chris@16:         }
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail
Chris@16:     {
Chris@16:         template <class CharT>
Chris@16:         bool lc_iequal(const CharT* val, const CharT* lcase, const CharT* ucase, unsigned int len) BOOST_NOEXCEPT {
Chris@16:             for( unsigned int i=0; i < len; ++i ) {
Chris@16:                 if ( val[i] != lcase[i] && val[i] != ucase[i] ) return false;
Chris@16:             }
Chris@16: 
Chris@16:             return true;
Chris@16:         }
Chris@16: 
Chris@16:         /* Returns true and sets the correct value if found NaN or Inf. */
Chris@16:         template <class CharT, class T>
Chris@16:         inline bool parse_inf_nan_impl(const CharT* begin, const CharT* end, T& value
Chris@16:             , const CharT* lc_NAN, const CharT* lc_nan
Chris@16:             , const CharT* lc_INFINITY, const CharT* lc_infinity
Chris@16:             , const CharT opening_brace, const CharT closing_brace) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             using namespace std;
Chris@16:             if (begin == end) return false;
Chris@16:             const CharT minus = lcast_char_constants<CharT>::minus;
Chris@16:             const CharT plus = lcast_char_constants<CharT>::plus;
Chris@16:             const int inifinity_size = 8;
Chris@16: 
Chris@16:             bool has_minus = false;
Chris@16:             /* Parsing +/- */
Chris@16:             if( *begin == minus)
Chris@16:             {
Chris@16:                 ++ begin;
Chris@16:                 has_minus = true;
Chris@16:             }
Chris@16:             else if( *begin == plus ) ++begin;
Chris@16: 
Chris@16:             if( end-begin < 3 ) return false;
Chris@16:             if( lc_iequal(begin, lc_nan, lc_NAN, 3) )
Chris@16:             {
Chris@16:                 begin += 3;
Chris@16:                 if (end != begin) /* It is 'nan(...)' or some bad input*/
Chris@16:                 {
Chris@16:                     if(end-begin<2) return false; // bad input
Chris@16:                     -- end;
Chris@16:                     if( *begin != opening_brace || *end != closing_brace) return false; // bad input
Chris@16:                 }
Chris@16: 
Chris@16:                 if( !has_minus ) value = std::numeric_limits<T>::quiet_NaN();
Chris@16:                 else value = (boost::math::changesign) (std::numeric_limits<T>::quiet_NaN());
Chris@16:                 return true;
Chris@16:             } else
Chris@16:             if (( /* 'INF' or 'inf' */
Chris@16:                   end-begin==3
Chris@16:                   &&
Chris@16:                   lc_iequal(begin, lc_infinity, lc_INFINITY, 3)
Chris@16:                 )
Chris@16:                 ||
Chris@16:                 ( /* 'INFINITY' or 'infinity' */
Chris@16:                   end-begin==inifinity_size
Chris@16:                   &&
Chris@16:                   lc_iequal(begin, lc_infinity, lc_INFINITY, inifinity_size)
Chris@16:                 )
Chris@16:              )
Chris@16:             {
Chris@16:                 if( !has_minus ) value = std::numeric_limits<T>::infinity();
Chris@16:                 else value = (boost::math::changesign) (std::numeric_limits<T>::infinity());
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             return false;
Chris@16:         }
Chris@16: 
Chris@16:         template <class CharT, class T>
Chris@16:         bool put_inf_nan_impl(CharT* begin, CharT*& end, const T& value
Chris@16:                          , const CharT* lc_nan
Chris@16:                          , const CharT* lc_infinity) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             using namespace std;
Chris@16:             const CharT minus = lcast_char_constants<CharT>::minus;
Chris@16:             if ( (boost::math::isnan)(value) )
Chris@16:             {
Chris@16:                 if ( (boost::math::signbit)(value) )
Chris@16:                 {
Chris@16:                     *begin = minus;
Chris@16:                     ++ begin;
Chris@16:                 }
Chris@16: 
Chris@16:                 memcpy(begin, lc_nan, 3 * sizeof(CharT));
Chris@16:                 end = begin + 3;
Chris@16:                 return true;
Chris@16:             } else if ( (boost::math::isinf)(value) )
Chris@16:             {
Chris@16:                 if ( (boost::math::signbit)(value) )
Chris@16:                 {
Chris@16:                     *begin = minus;
Chris@16:                     ++ begin;
Chris@16:                 }
Chris@16: 
Chris@16:                 memcpy(begin, lc_infinity, 3 * sizeof(CharT));
Chris@16:                 end = begin + 3;
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             return false;
Chris@16:         }
Chris@16: 
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:         template <class T>
Chris@16:         bool parse_inf_nan(const wchar_t* begin, const wchar_t* end, T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return parse_inf_nan_impl(begin, end, value
Chris@16:                                , L"NAN", L"nan"
Chris@16:                                , L"INFINITY", L"infinity"
Chris@16:                                , L'(', L')');
Chris@16:         }
Chris@16: 
Chris@16:         template <class T>
Chris@16:         bool put_inf_nan(wchar_t* begin, wchar_t*& end, const T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return put_inf_nan_impl(begin, end, value, L"nan", L"infinity");
Chris@16:         }
Chris@16: 
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR16_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:         template <class T>
Chris@16:         bool parse_inf_nan(const char16_t* begin, const char16_t* end, T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return parse_inf_nan_impl(begin, end, value
Chris@16:                                , u"NAN", u"nan"
Chris@16:                                , u"INFINITY", u"infinity"
Chris@16:                                , u'(', u')');
Chris@16:         }
Chris@16: 
Chris@16:         template <class T>
Chris@16:         bool put_inf_nan(char16_t* begin, char16_t*& end, const T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return put_inf_nan_impl(begin, end, value, u"nan", u"infinity");
Chris@16:         }
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR32_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:         template <class T>
Chris@16:         bool parse_inf_nan(const char32_t* begin, const char32_t* end, T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return parse_inf_nan_impl(begin, end, value
Chris@16:                                , U"NAN", U"nan"
Chris@16:                                , U"INFINITY", U"infinity"
Chris@16:                                , U'(', U')');
Chris@16:         }
Chris@16: 
Chris@16:         template <class T>
Chris@16:         bool put_inf_nan(char32_t* begin, char32_t*& end, const T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return put_inf_nan_impl(begin, end, value, U"nan", U"infinity");
Chris@16:         }
Chris@16: #endif
Chris@16: 
Chris@16:         template <class CharT, class T>
Chris@16:         bool parse_inf_nan(const CharT* begin, const CharT* end, T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return parse_inf_nan_impl(begin, end, value
Chris@16:                                , "NAN", "nan"
Chris@16:                                , "INFINITY", "infinity"
Chris@16:                                , '(', ')');
Chris@16:         }
Chris@16: 
Chris@16:         template <class CharT, class T>
Chris@16:         bool put_inf_nan(CharT* begin, CharT*& end, const T& value) BOOST_NOEXCEPT
Chris@16:         {
Chris@16:             return put_inf_nan_impl(begin, end, value, "nan", "infinity");
Chris@16:         }
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     namespace detail // lcast_ret_float
Chris@16:     {
Chris@16: 
Chris@16: // Silence buggy MS warnings like C4244: '+=' : conversion from 'int' to 'unsigned short', possible loss of data 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER == 1400) 
Chris@16: #  pragma warning(push) 
Chris@16: #  pragma warning(disable:4244) 
Chris@16: #endif 
Chris@16:         template <class T>
Chris@16:         struct mantissa_holder_type
Chris@16:         {
Chris@16:             /* Can not be used with this type */
Chris@16:         };
Chris@16: 
Chris@16:         template <>
Chris@16:         struct mantissa_holder_type<float>
Chris@16:         {
Chris@16:             typedef unsigned int type;
Chris@16:             typedef double       wide_result_t;
Chris@16:         };
Chris@16: 
Chris@16:         template <>
Chris@16:         struct mantissa_holder_type<double>
Chris@16:         {
Chris@16: #ifndef BOOST_MATH_NO_LONG_DOUBLE_MATH_FUNCTIONS
Chris@16:             typedef long double  wide_result_t;
Chris@16: #if defined(BOOST_HAS_LONG_LONG)
Chris@16:             typedef boost::ulong_long_type type;
Chris@16: #elif defined(BOOST_HAS_MS_INT64)
Chris@16:             typedef unsigned __int64 type;
Chris@16: #endif
Chris@16: #endif
Chris@16:         };
Chris@16: 
Chris@16:         template<class Traits, class T, class CharT>
Chris@16:         inline bool lcast_ret_float(T& value, const CharT* begin, const CharT* end)
Chris@16:         {
Chris@16: 
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:             std::locale loc;
Chris@16:             typedef std::numpunct<CharT> numpunct;
Chris@16:             numpunct const& np = BOOST_USE_FACET(numpunct, loc);
Chris@16:             std::string const grouping(
Chris@16:                     (loc == std::locale::classic())
Chris@16:                     ? std::string()
Chris@16:                     : np.grouping()
Chris@16:             );
Chris@16:             std::string::size_type const grouping_size = grouping.size();
Chris@16:             CharT const thousands_sep = static_cast<CharT>(grouping_size ? np.thousands_sep() : 0);
Chris@16:             CharT const decimal_point = np.decimal_point();
Chris@16:             bool found_grouping = false;
Chris@16:             std::string::size_type last_grouping_pos = grouping_size - 1;
Chris@16: #else
Chris@16:             CharT const decimal_point = lcast_char_constants<CharT>::c_decimal_separator;
Chris@16: #endif
Chris@16: 
Chris@16:             CharT const czero = lcast_char_constants<CharT>::zero;
Chris@16:             CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16:             CharT const plus = lcast_char_constants<CharT>::plus;
Chris@16:             CharT const capital_e = lcast_char_constants<CharT>::capital_e;
Chris@16:             CharT const lowercase_e = lcast_char_constants<CharT>::lowercase_e;
Chris@16: 
Chris@16:             value = static_cast<T>(0);
Chris@16: 
Chris@16:             if (parse_inf_nan(begin, end, value)) return true;
Chris@16: 
Chris@16:             typedef typename Traits::int_type int_type;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME mantissa_holder_type<T>::type mantissa_type;
Chris@16:             typedef BOOST_DEDUCED_TYPENAME mantissa_holder_type<T>::wide_result_t wide_result_t;
Chris@16:             int_type const zero = Traits::to_int_type(czero);
Chris@16:             if (begin == end) return false;
Chris@16: 
Chris@16:             /* Getting the plus/minus sign */
Chris@16:             bool has_minus = false;
Chris@16:             if (Traits::eq(*begin, minus) ) {
Chris@16:                 ++ begin;
Chris@16:                 has_minus = true;
Chris@16:                 if (begin == end) return false;
Chris@16:             } else if (Traits::eq(*begin, plus) ) {
Chris@16:                 ++begin;
Chris@16:                 if (begin == end) return false;
Chris@16:             }
Chris@16: 
Chris@16:             bool found_decimal = false;
Chris@16:             bool found_number_before_exp = false;
Chris@16:             int pow_of_10 = 0;
Chris@16:             mantissa_type mantissa=0;
Chris@16:             bool is_mantissa_full = false;
Chris@16: 
Chris@16:             char length_since_last_delim = 0;
Chris@16: 
Chris@16:             while ( begin != end )
Chris@16:             {
Chris@16:                 if (found_decimal) {
Chris@16:                     /* We allow no thousand_separators after decimal point */
Chris@16: 
Chris@16:                     mantissa_type tmp_mantissa = mantissa * 10u;
Chris@16:                     if (Traits::eq(*begin, lowercase_e) || Traits::eq(*begin, capital_e)) break;
Chris@16:                     if ( *begin < czero || *begin >= czero + 10 ) return false;
Chris@16:                     if (    is_mantissa_full
Chris@16:                             || tmp_mantissa / 10u != mantissa
Chris@16:                             || (std::numeric_limits<mantissa_type>::max)()-(*begin - zero) < tmp_mantissa
Chris@16:                             ) {
Chris@16:                         is_mantissa_full = true;
Chris@16:                         ++ begin;
Chris@16:                         continue;
Chris@16:                     }
Chris@16: 
Chris@16:                     -- pow_of_10;
Chris@16:                     mantissa = tmp_mantissa;
Chris@16:                     mantissa += *begin - zero;
Chris@16: 
Chris@16:                     found_number_before_exp = true;
Chris@16:                 } else {
Chris@16: 
Chris@16:                     if (*begin >= czero && *begin < czero + 10) {
Chris@16: 
Chris@16:                         /* Checking for mantissa overflow. If overflow will
Chris@16:                          * occur, them we only increase multiplyer
Chris@16:                          */
Chris@16:                         mantissa_type tmp_mantissa = mantissa * 10u;
Chris@16:                         if(     !is_mantissa_full
Chris@16:                                 && tmp_mantissa / 10u == mantissa
Chris@16:                                 && (std::numeric_limits<mantissa_type>::max)()-(*begin - zero) >= tmp_mantissa
Chris@16:                             )
Chris@16:                         {
Chris@16:                             mantissa = tmp_mantissa;
Chris@16:                             mantissa += *begin - zero;
Chris@16:                         } else
Chris@16:                         {
Chris@16:                             is_mantissa_full = true;
Chris@16:                             ++ pow_of_10;
Chris@16:                         }
Chris@16: 
Chris@16:                         found_number_before_exp = true;
Chris@16:                         ++ length_since_last_delim;
Chris@16:                     } else if (Traits::eq(*begin, decimal_point) || Traits::eq(*begin, lowercase_e) || Traits::eq(*begin, capital_e)) {
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:                         /* If ( we need to check grouping
Chris@16:                          *      and (   grouping missmatches
Chris@16:                          *              or grouping position is incorrect
Chris@16:                          *              or we are using the grouping position 0 twice
Chris@16:                          *           )
Chris@16:                          *    ) then return error
Chris@16:                          */
Chris@16:                         if( grouping_size && found_grouping
Chris@16:                             && (
Chris@16:                                    length_since_last_delim != grouping[0]
Chris@16:                                    || last_grouping_pos>1
Chris@16:                                    || (last_grouping_pos==0 && grouping_size>1)
Chris@16:                                 )
Chris@16:                            ) return false;
Chris@16: #endif
Chris@16: 
Chris@16:                         if(Traits::eq(*begin, decimal_point)) {
Chris@16:                             ++ begin;
Chris@16:                             found_decimal = true;
Chris@16:                             if (!found_number_before_exp && begin==end) return false;
Chris@16:                             continue;
Chris@16:                         }else {
Chris@16:                             if (!found_number_before_exp) return false;
Chris@16:                             break;
Chris@16:                         }
Chris@16:                     }
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:                     else if (grouping_size && Traits::eq(*begin, thousands_sep)){
Chris@16:                         if(found_grouping)
Chris@16:                         {
Chris@16:                             /* It is not he first time, when we find thousands separator,
Chris@16:                              * so we need to chek, is the distance between two groupings
Chris@16:                              * equal to grouping[last_grouping_pos] */
Chris@16: 
Chris@16:                             if (length_since_last_delim != grouping[last_grouping_pos] )
Chris@16:                             {
Chris@16:                                 if (!last_grouping_pos) return false;
Chris@16:                                 else
Chris@16:                                 {
Chris@16:                                     -- last_grouping_pos;
Chris@16:                                     if (length_since_last_delim != grouping[last_grouping_pos]) return false;
Chris@16:                                 }
Chris@16:                             } else
Chris@16:                                 /* We are calling the grouping[0] twice, when grouping size is more than 1 */
Chris@16:                                 if (grouping_size>1u && last_grouping_pos+1<grouping_size) return false;
Chris@16: 
Chris@16:                         } else {
Chris@16:                             /* Delimiter at the begining ',000' */
Chris@16:                             if (!length_since_last_delim) return false;
Chris@16: 
Chris@16:                             found_grouping = true;
Chris@16:                             if (length_since_last_delim > grouping[last_grouping_pos] ) return false;
Chris@16:                         }
Chris@16: 
Chris@16:                         length_since_last_delim = 0;
Chris@16:                         ++ begin;
Chris@16: 
Chris@16:                         /* Delimiter at the end '100,' */
Chris@16:                         if (begin == end) return false;
Chris@16:                         continue;
Chris@16:                     }
Chris@16: #endif
Chris@16:                     else return false;
Chris@16:                 }
Chris@16: 
Chris@16:                 ++begin;
Chris@16:             }
Chris@16: 
Chris@16:             // Exponent found
Chris@16:             if ( begin != end && (Traits::eq(*begin, lowercase_e) || Traits::eq(*begin, capital_e)) ) {
Chris@16:                 ++ begin;
Chris@16:                 if ( begin == end ) return false;
Chris@16: 
Chris@16:                 bool exp_has_minus = false;
Chris@16:                 if(Traits::eq(*begin, minus)) {
Chris@16:                     exp_has_minus = true;
Chris@16:                     ++ begin;
Chris@16:                     if ( begin == end ) return false;
Chris@16:                 } else if (Traits::eq(*begin, plus)) {
Chris@16:                     ++ begin;
Chris@16:                     if ( begin == end ) return false;
Chris@16:                 }
Chris@16: 
Chris@16:                 int exp_pow_of_10 = 0;
Chris@16:                 while ( begin != end )
Chris@16:                 {
Chris@16:                     if ( *begin < czero
Chris@16:                             || *begin >= czero + 10
Chris@16:                             || exp_pow_of_10 * 10 < exp_pow_of_10) /* Overflows are checked lower more precisely*/
Chris@16:                         return false;
Chris@16: 
Chris@16:                     exp_pow_of_10 *= 10;
Chris@16:                     exp_pow_of_10 += *begin - zero;
Chris@16:                     ++ begin;
Chris@16:                 };
Chris@16: 
Chris@16:                 if ( exp_pow_of_10 ) {
Chris@16:                     /* Overflows are checked lower */
Chris@16:                     if ( exp_has_minus ) {
Chris@16:                         pow_of_10 -= exp_pow_of_10;
Chris@16:                     } else {
Chris@16:                         pow_of_10 += exp_pow_of_10;
Chris@16:                     }
Chris@16:                 }
Chris@16:             }
Chris@16: 
Chris@16:             /* We need a more accurate algorithm... We can not use current algorithm
Chris@16:              * with long doubles (and with doubles if sizeof(double)==sizeof(long double)).
Chris@16:              */
Chris@16:             const wide_result_t result = std::pow(static_cast<wide_result_t>(10.0), pow_of_10) * mantissa;
Chris@16:             value = static_cast<T>( has_minus ? (boost::math::changesign)(result) : result);
Chris@16: 
Chris@16:             if ( (boost::math::isinf)(value) || (boost::math::isnan)(value) ) return false;
Chris@16: 
Chris@16:             return true;
Chris@16:         }
Chris@16: // Unsilence buggy MS warnings like C4244: '+=' : conversion from 'int' to 'unsigned short', possible loss of data 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER == 1400) 
Chris@16: #  pragma warning(pop) 
Chris@16: #endif 
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // parser_buf
Chris@16:     {
Chris@16:         //
Chris@16:         // class parser_buf:
Chris@16:         // acts as a stream buffer which wraps around a pair of pointers
Chris@16:         //
Chris@16:         // This class is copied (and slightly changed) from
Chris@16:         // boost/regex/v4/cpp_regex_traits.hpp
Chris@16:         // Thanks John Maddock for it! (previous version had some
Chris@16:         // problems with libc++ and some other STL implementations)
Chris@16:         template <class BufferType, class charT>
Chris@16:         class parser_buf : public BufferType {
Chris@16:            typedef BufferType base_type;
Chris@16:            typedef typename base_type::int_type int_type;
Chris@16:            typedef typename base_type::char_type char_type;
Chris@16:            typedef typename base_type::pos_type pos_type;
Chris@16:            typedef ::std::streamsize streamsize;
Chris@16:            typedef typename base_type::off_type off_type;
Chris@16: 
Chris@16:         public:
Chris@16:            parser_buf() : base_type() { setbuf(0, 0); }
Chris@16:            const charT* getnext() { return this->gptr(); }
Chris@16: #ifndef BOOST_NO_USING_TEMPLATE
Chris@16:             using base_type::pptr;
Chris@16:             using base_type::pbase;
Chris@16: #else
Chris@16:             charT* pptr() const { return base_type::pptr(); }
Chris@16:             charT* pbase() const { return base_type::pbase(); }
Chris@16: #endif
Chris@16:            base_type* setbuf(char_type* s, streamsize n) {
Chris@16:                this->setg(s, s, s + n);
Chris@16:                return this;
Chris@16:            }
Chris@16: 
Chris@16:            pos_type seekpos(pos_type sp, ::std::ios_base::openmode which) {
Chris@16:                if(which & ::std::ios_base::out)
Chris@16:                   return pos_type(off_type(-1));
Chris@16:                off_type size = static_cast<off_type>(this->egptr() - this->eback());
Chris@16:                charT* g = this->eback();
Chris@16:                if(off_type(sp) <= size)
Chris@16:                {
Chris@16:                   this->setg(g, g + off_type(sp), g + size);
Chris@16:                }
Chris@16:                return pos_type(off_type(-1));
Chris@16:             }
Chris@16: 
Chris@16:            pos_type seekoff(off_type off, ::std::ios_base::seekdir way, ::std::ios_base::openmode which) {
Chris@16:                typedef typename boost::int_t<sizeof(way) * CHAR_BIT>::least cast_type;
Chris@16: 
Chris@16:                if(which & ::std::ios_base::out)
Chris@16:                   return pos_type(off_type(-1));
Chris@16:                std::ptrdiff_t size = this->egptr() - this->eback();
Chris@16:                std::ptrdiff_t pos = this->gptr() - this->eback();
Chris@16:                charT* g = this->eback();
Chris@16:                switch(static_cast<cast_type>(way))
Chris@16:                {
Chris@16:                case ::std::ios_base::beg:
Chris@16:                   if((off < 0) || (off > size))
Chris@16:                      return pos_type(off_type(-1));
Chris@16:                   else
Chris@16:                      this->setg(g, g + off, g + size);
Chris@16:                   break;
Chris@16:                case ::std::ios_base::end:
Chris@16:                   if((off < 0) || (off > size))
Chris@16:                      return pos_type(off_type(-1));
Chris@16:                   else
Chris@16:                      this->setg(g, g + size - off, g + size);
Chris@16:                   break;
Chris@16:                case ::std::ios_base::cur:
Chris@16:                {
Chris@16:                   std::ptrdiff_t newpos = static_cast<std::ptrdiff_t>(pos + off);
Chris@16:                   if((newpos < 0) || (newpos > size))
Chris@16:                      return pos_type(off_type(-1));
Chris@16:                   else
Chris@16:                      this->setg(g, g + newpos, g + size);
Chris@16:                   break;
Chris@16:                }
Chris@16:                default: ;
Chris@16:                }
Chris@16: #ifdef BOOST_MSVC
Chris@16: #pragma warning(push)
Chris@16: #pragma warning(disable:4244)
Chris@16: #endif
Chris@16:                return static_cast<pos_type>(this->gptr() - this->eback());
Chris@16: #ifdef BOOST_MSVC
Chris@16: #pragma warning(pop)
Chris@16: #endif
Chris@16:             }
Chris@16:         private:
Chris@16:            parser_buf& operator=(const parser_buf&);
Chris@16:            parser_buf(const parser_buf&);
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail
Chris@16:     {
Chris@16:         struct do_not_construct_out_stream_t{};
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail // optimized stream wrapper
Chris@16:     {
Chris@16:         // String representation of Source has an upper limit.
Chris@16:         template< class CharT // a result of widest_char transformation
Chris@16:                 , class Traits // usually char_traits<CharT>
Chris@16:                 , bool RequiresStringbuffer
Chris@16:                 >
Chris@16:         class lexical_stream_limited_src
Chris@16:         {
Chris@16: 
Chris@16: #if defined(BOOST_NO_STRINGSTREAM)
Chris@16:             typedef std::ostrstream                         out_stream_t;
Chris@16: #elif defined(BOOST_NO_STD_LOCALE)
Chris@16:             typedef std::ostringstream                      out_stream_t;
Chris@16:             typedef parser_buf<std::streambuf, char>        buffer_t;
Chris@16: #else
Chris@16:             typedef std::basic_ostringstream<CharT, Traits>                 out_stream_t;
Chris@16:             typedef parser_buf<std::basic_streambuf<CharT, Traits>, CharT>  buffer_t;
Chris@16: #endif
Chris@16:             typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                 RequiresStringbuffer,
Chris@16:                 out_stream_t,
Chris@16:                 do_not_construct_out_stream_t
Chris@16:             >::type deduced_out_stream_t;
Chris@16: 
Chris@16:             // A string representation of Source is written to [start, finish).
Chris@16:             CharT* start;
Chris@16:             CharT* finish;
Chris@16:             deduced_out_stream_t out_stream;
Chris@16: 
Chris@16:         public:
Chris@16:             lexical_stream_limited_src(CharT* sta, CharT* fin) BOOST_NOEXCEPT
Chris@16:               : start(sta)
Chris@16:               , finish(fin)
Chris@16:             {}
Chris@16: 
Chris@16:         private:
Chris@16:             // Undefined:
Chris@16:             lexical_stream_limited_src(lexical_stream_limited_src const&);
Chris@16:             void operator=(lexical_stream_limited_src const&);
Chris@16: 
Chris@16: /************************************ HELPER FUNCTIONS FOR OPERATORS << ( ... ) ********************************/
Chris@16:             bool shl_char(CharT ch) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 Traits::assign(*start, ch);
Chris@16:                 finish = start + 1;
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:             template <class T>
Chris@16:             bool shl_char(T ch)
Chris@16:             {
Chris@16:                 BOOST_STATIC_ASSERT_MSG(( sizeof(T) <= sizeof(CharT)) ,
Chris@16:                     "boost::lexical_cast does not support narrowing of char types."
Chris@16:                     "Use boost::locale instead" );
Chris@16: #ifndef BOOST_LEXICAL_CAST_ASSUME_C_LOCALE
Chris@16:                 std::locale loc;
Chris@16:                 CharT const w = BOOST_USE_FACET(std::ctype<CharT>, loc).widen(ch);
Chris@16: #else
Chris@16:                 CharT const w = static_cast<CharT>(ch);
Chris@16: #endif
Chris@16:                 Traits::assign(*start, w);
Chris@16:                 finish = start + 1;
Chris@16:                 return true;
Chris@16:             }
Chris@16: #endif
Chris@16: 
Chris@16:             bool shl_char_array(CharT const* str) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = const_cast<CharT*>(str);
Chris@16:                 finish = start + Traits::length(str);
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             template <class T>
Chris@16:             bool shl_char_array(T const* str)
Chris@16:             {
Chris@16:                 BOOST_STATIC_ASSERT_MSG(( sizeof(T) <= sizeof(CharT)),
Chris@16:                     "boost::lexical_cast does not support narrowing of char types."
Chris@16:                     "Use boost::locale instead" );
Chris@16:                 return shl_input_streamable(str);
Chris@16:             }
Chris@16:             
Chris@16:             bool shl_char_array_limited(CharT const* str, std::size_t max_size) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = const_cast<CharT*>(str);
Chris@16:                 finish = std::find(start, start + max_size, Traits::to_char_type(0));
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             template<typename InputStreamable>
Chris@16:             bool shl_input_streamable(InputStreamable& input)
Chris@16:             {
Chris@16: #if defined(BOOST_NO_STRINGSTREAM) || defined(BOOST_NO_STD_LOCALE)
Chris@16:                 // If you have compilation error at this point, than your STL library
Chris@16:                 // does not support such conversions. Try updating it.
Chris@16:                 BOOST_STATIC_ASSERT((boost::is_same<char, CharT>::value));
Chris@16: #endif
Chris@16: 
Chris@16: #ifndef BOOST_NO_EXCEPTIONS
Chris@16:                 out_stream.exceptions(std::ios::badbit);
Chris@16:                 try {
Chris@16: #endif
Chris@16:                 bool const result = !(out_stream << input).fail();
Chris@16:                 const buffer_t* const p = static_cast<buffer_t*>(
Chris@16:                     static_cast<std::basic_streambuf<CharT, Traits>*>(out_stream.rdbuf())
Chris@16:                 );
Chris@16:                 start = p->pbase();
Chris@16:                 finish = p->pptr();
Chris@16:                 return result;
Chris@16: #ifndef BOOST_NO_EXCEPTIONS
Chris@16:                 } catch (const ::std::ios_base::failure& /*f*/) {
Chris@16:                     return false;
Chris@16:                 }
Chris@16: #endif
Chris@16:             }
Chris@16: 
Chris@16:             template <class T>
Chris@16:             inline bool shl_signed(T n)
Chris@16:             {
Chris@16:                 start = lcast_put_unsigned<Traits>(lcast_to_unsigned(n), finish);
Chris@16:                 if(n < 0)
Chris@16:                 {
Chris@16:                     --start;
Chris@16:                     CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16:                     Traits::assign(*start, minus);
Chris@16:                 }
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             template <class T, class SomeCharT>
Chris@16:             bool shl_real_type(const T& val, SomeCharT* begin, SomeCharT*& end)
Chris@16:             {
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 lcast_set_precision(out_stream, &val);
Chris@16:                 return shl_input_streamable(val);
Chris@16:             }
Chris@16: 
Chris@16:             static bool shl_real_type(float val, char* begin, char*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 const double val_as_double = val;
Chris@16:                 end = begin + 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER >= 1400) && !defined(__SGI_STL_PORT) && !defined(_STLPORT_VERSION)
Chris@16:                     sprintf_s(begin, end-begin,
Chris@16: #else
Chris@16:                     sprintf(begin, 
Chris@16: #endif
Chris@16:                     "%.*g", static_cast<int>(boost::detail::lcast_get_precision<float>()), val_as_double);
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: 
Chris@16:             static bool shl_real_type(double val, char* begin, char*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 end = begin + 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER >= 1400) && !defined(__SGI_STL_PORT) && !defined(_STLPORT_VERSION)
Chris@16:                     sprintf_s(begin, end-begin,
Chris@16: #else
Chris@16:                     sprintf(begin, 
Chris@16: #endif
Chris@16:                     "%.*g", static_cast<int>(boost::detail::lcast_get_precision<double>()), val);
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: 
Chris@16: #ifndef __MINGW32__
Chris@16:             static bool shl_real_type(long double val, char* begin, char*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 end = begin + 
Chris@16: #if defined(_MSC_VER) && (_MSC_VER >= 1400) && !defined(__SGI_STL_PORT) && !defined(_STLPORT_VERSION)
Chris@16:                     sprintf_s(begin, end-begin,
Chris@16: #else
Chris@16:                     sprintf(begin, 
Chris@16: #endif
Chris@16:                     "%.*Lg", static_cast<int>(boost::detail::lcast_get_precision<long double>()), val );
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: #endif
Chris@16: 
Chris@16: 
Chris@16: #if !defined(BOOST_LCAST_NO_WCHAR_T) && !defined(BOOST_NO_SWPRINTF) && !defined(__MINGW32__)
Chris@16:             static bool shl_real_type(float val, wchar_t* begin, wchar_t*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 const double val_as_double = val;
Chris@16:                 end = begin + swprintf(begin, end-begin,
Chris@16:                                        L"%.*g",
Chris@16:                                        static_cast<int>(boost::detail::lcast_get_precision<float >()),
Chris@16:                                        val_as_double );
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: 
Chris@16:             static bool shl_real_type(double val, wchar_t* begin, wchar_t*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 end = begin + swprintf(begin, end-begin,
Chris@16:                                           L"%.*g", static_cast<int>(boost::detail::lcast_get_precision<double >()), val );
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: 
Chris@16:             static bool shl_real_type(long double val, wchar_t* begin, wchar_t*& end)
Chris@16:             {   using namespace std;
Chris@16:                 if (put_inf_nan(begin, end, val)) return true;
Chris@16:                 end = begin + swprintf(begin, end-begin,
Chris@16:                                           L"%.*Lg", static_cast<int>(boost::detail::lcast_get_precision<long double >()), val );
Chris@16:                 return end > begin;
Chris@16:             }
Chris@16: #endif
Chris@16: 
Chris@16: /************************************ OPERATORS << ( ... ) ********************************/
Chris@16:         public:
Chris@16:             template<class Alloc>
Chris@16:             bool operator<<(std::basic_string<CharT,Traits,Alloc> const& str) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = const_cast<CharT*>(str.data());
Chris@16:                 finish = start + str.length();
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             template<class Alloc>
Chris@16:             bool operator<<(boost::container::basic_string<CharT,Traits,Alloc> const& str) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = const_cast<CharT*>(str.data());
Chris@16:                 finish = start + str.length();
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(bool value) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 CharT const czero = lcast_char_constants<CharT>::zero;
Chris@16:                 Traits::assign(*start, Traits::to_char_type(czero + value));
Chris@16:                 finish = start + 1;
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(const iterator_range<CharT*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = rng.begin();
Chris@16:                 finish = rng.end();
Chris@16:                 return true; 
Chris@16:             }
Chris@16:             
Chris@16:             bool operator<<(const iterator_range<const CharT*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 start = const_cast<CharT*>(rng.begin());
Chris@16:                 finish = const_cast<CharT*>(rng.end());
Chris@16:                 return true; 
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(const iterator_range<const signed char*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 return (*this) << iterator_range<char*>(
Chris@16:                     const_cast<char*>(reinterpret_cast<const char*>(rng.begin())),
Chris@16:                     const_cast<char*>(reinterpret_cast<const char*>(rng.end()))
Chris@16:                 );
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(const iterator_range<const unsigned char*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 return (*this) << iterator_range<char*>(
Chris@16:                     const_cast<char*>(reinterpret_cast<const char*>(rng.begin())),
Chris@16:                     const_cast<char*>(reinterpret_cast<const char*>(rng.end()))
Chris@16:                 );
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(const iterator_range<signed char*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 return (*this) << iterator_range<char*>(
Chris@16:                     reinterpret_cast<char*>(rng.begin()),
Chris@16:                     reinterpret_cast<char*>(rng.end())
Chris@16:                 );
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(const iterator_range<unsigned char*>& rng) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 return (*this) << iterator_range<char*>(
Chris@16:                     reinterpret_cast<char*>(rng.begin()),
Chris@16:                     reinterpret_cast<char*>(rng.end())
Chris@16:                 );
Chris@16:             }
Chris@16: 
Chris@16:             bool operator<<(char ch)                    { return shl_char(ch); }
Chris@16:             bool operator<<(unsigned char ch)           { return ((*this) << static_cast<char>(ch)); }
Chris@16:             bool operator<<(signed char ch)             { return ((*this) << static_cast<char>(ch)); }
Chris@16: #if !defined(BOOST_LCAST_NO_WCHAR_T)
Chris@16:             bool operator<<(wchar_t const* str)         { return shl_char_array(str); }
Chris@16:             bool operator<<(wchar_t * str)              { return shl_char_array(str); }
Chris@16: #ifndef BOOST_NO_INTRINSIC_WCHAR_T
Chris@16:             bool operator<<(wchar_t ch)                 { return shl_char(ch); }
Chris@16: #endif
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR16_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             bool operator<<(char16_t ch)                { return shl_char(ch); }
Chris@16:             bool operator<<(char16_t * str)             { return shl_char_array(str); }
Chris@16:             bool operator<<(char16_t const * str)       { return shl_char_array(str); }
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR32_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             bool operator<<(char32_t ch)                { return shl_char(ch); }
Chris@16:             bool operator<<(char32_t * str)             { return shl_char_array(str); }
Chris@16:             bool operator<<(char32_t const * str)       { return shl_char_array(str); }
Chris@16: #endif
Chris@16:             bool operator<<(unsigned char const* ch)    { return ((*this) << reinterpret_cast<char const*>(ch)); }
Chris@16:             bool operator<<(unsigned char * ch)         { return ((*this) << reinterpret_cast<char *>(ch)); }
Chris@16:             bool operator<<(signed char const* ch)      { return ((*this) << reinterpret_cast<char const*>(ch)); }
Chris@16:             bool operator<<(signed char * ch)           { return ((*this) << reinterpret_cast<char *>(ch)); }
Chris@16:             bool operator<<(char const* str)            { return shl_char_array(str); }
Chris@16:             bool operator<<(char* str)                  { return shl_char_array(str); }
Chris@16:             bool operator<<(short n)                    { return shl_signed(n); }
Chris@16:             bool operator<<(int n)                      { return shl_signed(n); }
Chris@16:             bool operator<<(long n)                     { return shl_signed(n); }
Chris@16:             bool operator<<(unsigned short n)           { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16:             bool operator<<(unsigned int n)             { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16:             bool operator<<(unsigned long n)            { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16: 
Chris@16: #if defined(BOOST_HAS_LONG_LONG)
Chris@16:             bool operator<<(boost::ulong_long_type n)   { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16:             bool operator<<(boost::long_long_type n)    { return shl_signed(n); }
Chris@16: #elif defined(BOOST_HAS_MS_INT64)
Chris@16:             bool operator<<(unsigned __int64 n)         { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16:             bool operator<<(         __int64 n)         { return shl_signed(n); }
Chris@16: #endif
Chris@16: 
Chris@16: #ifdef BOOST_HAS_INT128
Chris@16:         bool operator<<(const boost::uint128_type& n)   { start = lcast_put_unsigned<Traits>(n, finish); return true; }
Chris@16:         bool operator<<(const boost::int128_type& n)    { return shl_signed(n); }
Chris@16: #endif
Chris@16: 
Chris@16:             bool operator<<(float val)                  { return shl_real_type(val, start, finish); }
Chris@16:             bool operator<<(double val)                 { return shl_real_type(val, start, finish); }
Chris@16:             bool operator<<(long double val)            {
Chris@16: #ifndef __MINGW32__
Chris@16:                 return shl_real_type(val, start, finish);
Chris@16: #else
Chris@16:                 return shl_real_type(static_cast<double>(val), start, finish);
Chris@16: #endif
Chris@16:             }
Chris@16:             
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<CharT, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return shl_char_array_limited(input.begin(), N); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<unsigned char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<signed char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<const CharT, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return shl_char_array_limited(input.begin(), N); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<const unsigned char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<const char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(boost::array<const signed char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<const char, N> const& >(input)); }
Chris@16:  
Chris@16: #ifndef BOOST_NO_CXX11_HDR_ARRAY
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<CharT, N> const& input) BOOST_NOEXCEPT
Chris@16:             { 
Chris@16:                 if (input.size()) return shl_char_array_limited(&input[0], N);
Chris@16:                 else return true; 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<unsigned char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<signed char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<const CharT, N> const& input) BOOST_NOEXCEPT
Chris@16:             { 
Chris@16:                 if (input.size()) return shl_char_array_limited(&input[0], N);
Chris@16:                 else return true; 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<const unsigned char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<const char, N> const& >(input)); }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator<<(std::array<const signed char, N> const& input) BOOST_NOEXCEPT
Chris@16:             { return ((*this) << reinterpret_cast<boost::array<const char, N> const& >(input)); }
Chris@16: #endif
Chris@16:             
Chris@16:             template <class InStreamable>
Chris@16:             bool operator<<(const InStreamable& input)  { return shl_input_streamable(input); }
Chris@16: 
Chris@16: /************************************ HELPER FUNCTIONS FOR OPERATORS >> ( ... ) ********************************/
Chris@16:         private:
Chris@16: 
Chris@16:             template <typename Type>
Chris@16:             bool shr_unsigned(Type& output)
Chris@16:             {
Chris@16:                 if (start == finish) return false;
Chris@16:                 CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16:                 CharT const plus = lcast_char_constants<CharT>::plus;
Chris@16:                 bool has_minus = false;
Chris@16: 
Chris@16:                 /* We won`t use `start' any more, so no need in decrementing it after */
Chris@16:                 if ( Traits::eq(minus,*start) )
Chris@16:                 {
Chris@16:                     ++start;
Chris@16:                     has_minus = true;
Chris@16:                 } else if ( Traits::eq( plus, *start ) )
Chris@16:                 {
Chris@16:                     ++start;
Chris@16:                 }
Chris@16: 
Chris@16:                 bool const succeed = lcast_ret_unsigned<Traits>(output, start, finish);
Chris@16: 
Chris@16:                 if (has_minus) {
Chris@16:                     output = static_cast<Type>(0u - output);
Chris@16:                 }
Chris@16: 
Chris@16:                 return succeed;
Chris@16:             }
Chris@16: 
Chris@16:             template <typename Type>
Chris@16:             bool shr_signed(Type& output)
Chris@16:             {
Chris@16:                 if (start == finish) return false;
Chris@16:                 CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16:                 CharT const plus = lcast_char_constants<CharT>::plus;
Chris@16:                 typedef BOOST_DEDUCED_TYPENAME make_unsigned<Type>::type utype;
Chris@16:                 utype out_tmp =0;
Chris@16:                 bool has_minus = false;
Chris@16: 
Chris@16:                 /* We won`t use `start' any more, so no need in decrementing it after */
Chris@16:                 if ( Traits::eq(minus,*start) )
Chris@16:                 {
Chris@16:                     ++start;
Chris@16:                     has_minus = true;
Chris@16:                 } else if ( Traits::eq(plus, *start) )
Chris@16:                 {
Chris@16:                     ++start;
Chris@16:                 }
Chris@16: 
Chris@16:                 bool succeed = lcast_ret_unsigned<Traits>(out_tmp, start, finish);
Chris@16:                 if (has_minus) {
Chris@16:                     utype const comp_val = (static_cast<utype>(1) << std::numeric_limits<Type>::digits);
Chris@16:                     succeed = succeed && out_tmp<=comp_val;
Chris@16:                     output = static_cast<Type>(0u - out_tmp);
Chris@16:                 } else {
Chris@16:                     utype const comp_val = static_cast<utype>((std::numeric_limits<Type>::max)());
Chris@16:                     succeed = succeed && out_tmp<=comp_val;
Chris@16:                     output = out_tmp;
Chris@16:                 }
Chris@16:                 return succeed;
Chris@16:             }
Chris@16: 
Chris@16:             template<typename InputStreamable>
Chris@16:             bool shr_using_base_class(InputStreamable& output)
Chris@16:             {
Chris@16:                 BOOST_STATIC_ASSERT_MSG(
Chris@16:                     (!boost::is_pointer<InputStreamable>::value),
Chris@16:                     "boost::lexical_cast can not convert to pointers"
Chris@16:                 );
Chris@16: 
Chris@16: #if defined(BOOST_NO_STRINGSTREAM) || defined(BOOST_NO_STD_LOCALE)
Chris@16:                 BOOST_STATIC_ASSERT_MSG((boost::is_same<char, CharT>::value),
Chris@16:                     "boost::lexical_cast can not convert, because your STL library does not "
Chris@16:                     "support such conversions. Try updating it."
Chris@16:                 );
Chris@16: #endif
Chris@16: 
Chris@16: #if defined(BOOST_NO_STRINGSTREAM)
Chris@16:                 std::istrstream stream(start, finish - start);
Chris@16: #else
Chris@16: 
Chris@16:                 buffer_t buf;
Chris@16:                 buf.setbuf(start, finish - start);
Chris@16: #if defined(BOOST_NO_STD_LOCALE)
Chris@16:                 std::istream stream(&buf);
Chris@16: #else
Chris@16:                 std::basic_istream<CharT, Traits> stream(&buf);
Chris@16: #endif // BOOST_NO_STD_LOCALE
Chris@16: #endif // BOOST_NO_STRINGSTREAM
Chris@16: 
Chris@16: #ifndef BOOST_NO_EXCEPTIONS
Chris@16:                 stream.exceptions(std::ios::badbit);
Chris@16:                 try {
Chris@16: #endif
Chris@16:                 stream.unsetf(std::ios::skipws);
Chris@16:                 lcast_set_precision(stream, static_cast<InputStreamable*>(0));
Chris@16: 
Chris@16:                 return stream >> output &&
Chris@16:                     stream.get() ==
Chris@16: #if defined(__GNUC__) && (__GNUC__<3) && defined(BOOST_NO_STD_WSTRING)
Chris@16:         // GCC 2.9x lacks std::char_traits<>::eof().
Chris@16:         // We use BOOST_NO_STD_WSTRING to filter out STLport and libstdc++-v3
Chris@16:         // configurations, which do provide std::char_traits<>::eof().
Chris@16: 
Chris@16:                     EOF;
Chris@16: #else
Chris@16:                 Traits::eof();
Chris@16: #endif
Chris@16: 
Chris@16: #ifndef BOOST_NO_EXCEPTIONS
Chris@16:                 } catch (const ::std::ios_base::failure& /*f*/) {
Chris@16:                     return false;
Chris@16:                 }
Chris@16: #endif
Chris@16:             }
Chris@16: 
Chris@16:             template<class T>
Chris@16:             inline bool shr_xchar(T& output)
Chris@16:             {
Chris@16:                 BOOST_STATIC_ASSERT_MSG(( sizeof(CharT) == sizeof(T) ),
Chris@16:                     "boost::lexical_cast does not support narrowing of character types."
Chris@16:                     "Use boost::locale instead" );
Chris@16:                 bool const ok = (finish - start == 1);
Chris@16:                 if (ok) {
Chris@16:                     CharT out;
Chris@16:                     Traits::assign(out, *start);
Chris@16:                     output = static_cast<T>(out);
Chris@16:                 }
Chris@16:                 return ok;
Chris@16:             }
Chris@16: 
Chris@16: /************************************ OPERATORS >> ( ... ) ********************************/
Chris@16:         public:
Chris@16:             bool operator>>(unsigned short& output)             { return shr_unsigned(output); }
Chris@16:             bool operator>>(unsigned int& output)               { return shr_unsigned(output); }
Chris@16:             bool operator>>(unsigned long int& output)          { return shr_unsigned(output); }
Chris@16:             bool operator>>(short& output)                      { return shr_signed(output); }
Chris@16:             bool operator>>(int& output)                        { return shr_signed(output); }
Chris@16:             bool operator>>(long int& output)                   { return shr_signed(output); }
Chris@16: #if defined(BOOST_HAS_LONG_LONG)
Chris@16:             bool operator>>(boost::ulong_long_type& output)     { return shr_unsigned(output); }
Chris@16:             bool operator>>(boost::long_long_type& output)      { return shr_signed(output); }
Chris@16: #elif defined(BOOST_HAS_MS_INT64)
Chris@16:             bool operator>>(unsigned __int64& output)           { return shr_unsigned(output); }
Chris@16:             bool operator>>(__int64& output)                    { return shr_signed(output); }
Chris@16: #endif
Chris@16: 
Chris@16: #ifdef BOOST_HAS_INT128
Chris@16:             bool operator>>(boost::uint128_type& output)        { return shr_unsigned(output); }
Chris@16:             bool operator>>(boost::int128_type& output)         { return shr_signed(output); }
Chris@16: #endif
Chris@16: 
Chris@16:             bool operator>>(char& output)                       { return shr_xchar(output); }
Chris@16:             bool operator>>(unsigned char& output)              { return shr_xchar(output); }
Chris@16:             bool operator>>(signed char& output)                { return shr_xchar(output); }
Chris@16: #if !defined(BOOST_LCAST_NO_WCHAR_T) && !defined(BOOST_NO_INTRINSIC_WCHAR_T)
Chris@16:             bool operator>>(wchar_t& output)                    { return shr_xchar(output); }
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR16_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             bool operator>>(char16_t& output)                   { return shr_xchar(output); }
Chris@16: #endif
Chris@16: #if !defined(BOOST_NO_CXX11_CHAR32_T) && !defined(BOOST_NO_CXX11_UNICODE_LITERALS)
Chris@16:             bool operator>>(char32_t& output)                   { return shr_xchar(output); }
Chris@16: #endif
Chris@16:             template<class Alloc>
Chris@16:             bool operator>>(std::basic_string<CharT,Traits,Alloc>& str) { str.assign(start, finish); return true; }
Chris@16: 
Chris@16:             template<class Alloc>
Chris@16:             bool operator>>(boost::container::basic_string<CharT,Traits,Alloc>& str) { str.assign(start, finish); return true; }
Chris@16: 
Chris@16:             
Chris@16:     private:
Chris@16:             template <std::size_t N, class ArrayT>
Chris@16:             bool shr_std_array(ArrayT& output) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 using namespace std;
Chris@16:                 const std::size_t size = finish - start;
Chris@16:                 if (size > N - 1) { // `-1` because we need to store \0 at the end 
Chris@16:                     return false;
Chris@16:                 }
Chris@16: 
Chris@16:                 memcpy(&output[0], start, size * sizeof(CharT));
Chris@16:                 output[size] = Traits::to_char_type(0);
Chris@16:                 return true;
Chris@16:             }
Chris@16: 
Chris@16:     public:
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(boost::array<CharT, N>& output) BOOST_NOEXCEPT
Chris@16:             { 
Chris@16:                 return shr_std_array<N>(output); 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(boost::array<unsigned char, N>& output)   
Chris@16:             { 
Chris@16:                 return ((*this) >> reinterpret_cast<boost::array<char, N>& >(output)); 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(boost::array<signed char, N>& output)   
Chris@16:             { 
Chris@16:                 return ((*this) >> reinterpret_cast<boost::array<char, N>& >(output)); 
Chris@16:             }
Chris@16:  
Chris@16: #ifndef BOOST_NO_CXX11_HDR_ARRAY
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(std::array<CharT, N>& output) BOOST_NOEXCEPT
Chris@16:             { 
Chris@16:                 return shr_std_array<N>(output); 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(std::array<unsigned char, N>& output)   
Chris@16:             { 
Chris@16:                 return ((*this) >> reinterpret_cast<std::array<char, N>& >(output)); 
Chris@16:             }
Chris@16: 
Chris@16:             template <std::size_t N>
Chris@16:             bool operator>>(std::array<signed char, N>& output)
Chris@16:             { 
Chris@16:                 return ((*this) >> reinterpret_cast<std::array<char, N>& >(output)); 
Chris@16:             }
Chris@16: #endif
Chris@16: 
Chris@16: 
Chris@16:             /*
Chris@16:              * case "-0" || "0" || "+0" :   output = false; return true;
Chris@16:              * case "1" || "+1":            output = true;  return true;
Chris@16:              * default:                     return false;
Chris@16:              */
Chris@16:             bool operator>>(bool& output) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 CharT const zero = lcast_char_constants<CharT>::zero;
Chris@16:                 CharT const plus = lcast_char_constants<CharT>::plus;
Chris@16:                 CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16: 
Chris@16:                 switch(finish-start)
Chris@16:                 {
Chris@16:                     case 1:
Chris@16:                         output = Traits::eq(start[0],  zero+1);
Chris@16:                         return output || Traits::eq(start[0], zero );
Chris@16:                     case 2:
Chris@16:                         if ( Traits::eq( plus, *start) )
Chris@16:                         {
Chris@16:                             ++start;
Chris@16:                             output = Traits::eq(start[0], zero +1);
Chris@16:                             return output || Traits::eq(start[0], zero );
Chris@16:                         } else
Chris@16:                         {
Chris@16:                             output = false;
Chris@16:                             return Traits::eq( minus, *start)
Chris@16:                                 && Traits::eq( zero, start[1]);
Chris@16:                         }
Chris@16:                     default:
Chris@16:                         output = false; // Suppress warning about uninitalized variable
Chris@16:                         return false;
Chris@16:                 }
Chris@16:             }
Chris@16: 
Chris@16:             bool operator>>(float& output) { return lcast_ret_float<Traits>(output,start,finish); }
Chris@16: 
Chris@16:         private:
Chris@16:             // Not optimised converter
Chris@16:             template <class T>
Chris@16:             bool float_types_converter_internal(T& output, int /*tag*/) {
Chris@16:                 if (parse_inf_nan(start, finish, output)) return true;
Chris@16:                 bool return_value = shr_using_base_class(output);
Chris@16: 
Chris@16:                 /* Some compilers and libraries successfully
Chris@16:                  * parse 'inf', 'INFINITY', '1.0E', '1.0E-'...
Chris@16:                  * We are trying to provide a unified behaviour,
Chris@16:                  * so we just forbid such conversions (as some
Chris@16:                  * of the most popular compilers/libraries do)
Chris@16:                  * */
Chris@16:                 CharT const minus = lcast_char_constants<CharT>::minus;
Chris@16:                 CharT const plus = lcast_char_constants<CharT>::plus;
Chris@16:                 CharT const capital_e = lcast_char_constants<CharT>::capital_e;
Chris@16:                 CharT const lowercase_e = lcast_char_constants<CharT>::lowercase_e;
Chris@16:                 if ( return_value &&
Chris@16:                      (
Chris@16:                         Traits::eq(*(finish-1), lowercase_e)                   // 1.0e
Chris@16:                         || Traits::eq(*(finish-1), capital_e)                  // 1.0E
Chris@16:                         || Traits::eq(*(finish-1), minus)                      // 1.0e- or 1.0E-
Chris@16:                         || Traits::eq(*(finish-1), plus)                       // 1.0e+ or 1.0E+
Chris@16:                      )
Chris@16:                 ) return false;
Chris@16: 
Chris@16:                 return return_value;
Chris@16:             }
Chris@16: 
Chris@16:             // Optimised converter
Chris@16:             bool float_types_converter_internal(double& output,char /*tag*/) {
Chris@16:                 return lcast_ret_float<Traits>(output,start,finish);
Chris@16:             }
Chris@16:         public:
Chris@16: 
Chris@16:             bool operator>>(double& output)
Chris@16:             {
Chris@16:                 /*
Chris@16:                  * Some compilers implement long double as double. In that case these types have
Chris@16:                  * same size, same precision, same max and min values... And it means,
Chris@16:                  * that current implementation of lcast_ret_float cannot be used for type
Chris@16:                  * double, because it will give a big precision loss.
Chris@16:                  * */
Chris@16:                 boost::mpl::if_c<
Chris@16: #if (defined(BOOST_HAS_LONG_LONG) || defined(BOOST_HAS_MS_INT64)) && !defined(BOOST_MATH_NO_LONG_DOUBLE_MATH_FUNCTIONS)
Chris@16:                     boost::type_traits::ice_eq< sizeof(double), sizeof(long double) >::value,
Chris@16: #else
Chris@16:                      1,
Chris@16: #endif
Chris@16:                     int,
Chris@16:                     char
Chris@16:                 >::type tag = 0;
Chris@16: 
Chris@16:                 return float_types_converter_internal(output, tag);
Chris@16:             }
Chris@16: 
Chris@16:             bool operator>>(long double& output)
Chris@16:             {
Chris@16:                 int tag = 0;
Chris@16:                 return float_types_converter_internal(output, tag);
Chris@16:             }
Chris@16: 
Chris@16:             // Generic istream-based algorithm.
Chris@16:             // lcast_streambuf_for_target<InputStreamable>::value is true.
Chris@16:             template<typename InputStreamable>
Chris@16:             bool operator>>(InputStreamable& output) { return shr_using_base_class(output); }
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     namespace detail
Chris@16:     {
Chris@16:         template<typename T>
Chris@16:         struct is_stdstring
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = false );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_stdstring< std::basic_string<CharT, Traits, Alloc> >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_stdstring< boost::container::basic_string<CharT, Traits, Alloc> >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename Target, typename Source>
Chris@16:         struct is_arithmetic_and_not_xchars
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value =
Chris@16:                (
Chris@16:                    boost::type_traits::ice_and<
Chris@16:                            boost::is_arithmetic<Source>::value,
Chris@16:                            boost::is_arithmetic<Target>::value,
Chris@16:                            boost::type_traits::ice_not<
Chris@16:                                 detail::is_char_or_wchar<Target>::value
Chris@16:                            >::value,
Chris@16:                            boost::type_traits::ice_not<
Chris@16:                                 detail::is_char_or_wchar<Source>::value
Chris@16:                            >::value
Chris@16:                    >::value
Chris@16:                )
Chris@16:             );
Chris@16:         };
Chris@16: 
Chris@16:         /*
Chris@16:          * is_xchar_to_xchar<Target, Source>::value is true, when
Chris@16:          * Target and Souce are the same char types, or when
Chris@16:          * Target and Souce are char types of the same size.
Chris@16:          */
Chris@16:         template<typename Target, typename Source>
Chris@16:         struct is_xchar_to_xchar
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value =
Chris@16:                 (
Chris@16:                     boost::type_traits::ice_or<
Chris@16:                         boost::type_traits::ice_and<
Chris@16:                              is_same<Source,Target>::value,
Chris@16:                              is_char_or_wchar<Target>::value
Chris@16:                         >::value,
Chris@16:                         boost::type_traits::ice_and<
Chris@16:                              boost::type_traits::ice_eq< sizeof(char),sizeof(Target)>::value,
Chris@16:                              boost::type_traits::ice_eq< sizeof(char),sizeof(Source)>::value,
Chris@16:                              is_char_or_wchar<Target>::value,
Chris@16:                              is_char_or_wchar<Source>::value
Chris@16:                         >::value
Chris@16:                     >::value
Chris@16:                 )
Chris@16:             );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename Target, typename Source>
Chris@16:         struct is_char_array_to_stdstring
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = false );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_char_array_to_stdstring< std::basic_string<CharT, Traits, Alloc>, CharT* >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_char_array_to_stdstring< std::basic_string<CharT, Traits, Alloc>, const CharT* >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_char_array_to_stdstring< boost::container::basic_string<CharT, Traits, Alloc>, CharT* >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16:         template<typename CharT, typename Traits, typename Alloc>
Chris@16:         struct is_char_array_to_stdstring< boost::container::basic_string<CharT, Traits, Alloc>, const CharT* >
Chris@16:         {
Chris@16:             BOOST_STATIC_CONSTANT(bool, value = true );
Chris@16:         };
Chris@16: 
Chris@16: #if (defined _MSC_VER)
Chris@16: # pragma warning( push )
Chris@16: # pragma warning( disable : 4701 ) // possible use of ... before initialization
Chris@16: # pragma warning( disable : 4702 ) // unreachable code
Chris@16: # pragma warning( disable : 4267 ) // conversion from 'size_t' to 'unsigned int'
Chris@16: #endif
Chris@16:         template<typename Target, typename Source>
Chris@16:         struct lexical_cast_do_cast
Chris@16:         {
Chris@16:             static inline Target lexical_cast_impl(const Source& arg)
Chris@16:             {
Chris@16:                 typedef lexical_cast_stream_traits<Source, Target>  stream_trait;
Chris@16:                 
Chris@16:                 typedef detail::lexical_stream_limited_src<
Chris@16:                     BOOST_DEDUCED_TYPENAME stream_trait::char_type, 
Chris@16:                     BOOST_DEDUCED_TYPENAME stream_trait::traits, 
Chris@16:                     stream_trait::requires_stringbuf 
Chris@16:                 > interpreter_type;
Chris@16: 
Chris@16:                 // Target type must be default constructible
Chris@16:                 Target result;               
Chris@16: 
Chris@16:                 BOOST_DEDUCED_TYPENAME stream_trait::char_type buf[stream_trait::len_t::value + 1];
Chris@16:                 stream_trait::len_t::check_coverage();
Chris@16: 
Chris@16:                 interpreter_type interpreter(buf, buf + stream_trait::len_t::value + 1);
Chris@16: 
Chris@16:                 // Disabling ADL, by directly specifying operators.
Chris@16:                 if(!(interpreter.operator <<(arg) && interpreter.operator >>(result)))
Chris@16:                   BOOST_LCAST_THROW_BAD_CAST(Source, Target);
Chris@16: 
Chris@16:                 return result;
Chris@16:             }
Chris@16:         };
Chris@16: #if (defined _MSC_VER)
Chris@16: # pragma warning( pop )
Chris@16: #endif
Chris@16: 
Chris@16:         template <typename Source>
Chris@16:         struct lexical_cast_copy
Chris@16:         {
Chris@16:             static inline const Source& lexical_cast_impl(const Source &arg) BOOST_NOEXCEPT
Chris@16:             {
Chris@16:                 return arg;
Chris@16:             }
Chris@16:         };
Chris@16: 
Chris@16:         template <class Source, class Target >
Chris@16:         struct detect_precision_loss
Chris@16:         {
Chris@16:          typedef boost::numeric::Trunc<Source> Rounder;
Chris@16:          typedef Source source_type ;
Chris@16: 
Chris@16:          typedef BOOST_DEDUCED_TYPENAME mpl::if_<
Chris@16:             boost::is_arithmetic<Source>, Source, Source const&
Chris@16:           >::type argument_type ;
Chris@16: 
Chris@16:          static source_type nearbyint ( argument_type s )
Chris@16:          {
Chris@16:             const source_type near_int = Rounder::nearbyint(s);
Chris@16:             if (near_int) {
Chris@16:                 const source_type orig_div_round = s / near_int;
Chris@16:                 const source_type eps = std::numeric_limits<source_type>::epsilon();
Chris@16: 
Chris@16:                 if ((orig_div_round > 1 ? orig_div_round - 1 : 1 - orig_div_round) > eps)
Chris@16:                     BOOST_LCAST_THROW_BAD_CAST(Source, Target);
Chris@16:             }
Chris@16: 
Chris@16:             return s ;
Chris@16:          }
Chris@16: 
Chris@16:          typedef typename Rounder::round_style round_style;
Chris@16:         } ;
Chris@16: 
Chris@16:         template <class Source, class Target >
Chris@16:         struct nothrow_overflow_handler
Chris@16:         {
Chris@16:           void operator() ( boost::numeric::range_check_result r )
Chris@16:           {
Chris@16:             if (r != boost::numeric::cInRange)
Chris@16:                 BOOST_LCAST_THROW_BAD_CAST(Source, Target);
Chris@16:           }
Chris@16:         } ;
Chris@16: 
Chris@16:         template <typename Target, typename Source>
Chris@16:         struct lexical_cast_dynamic_num_not_ignoring_minus
Chris@16:         {
Chris@16:             static inline Target lexical_cast_impl(const Source &arg)
Chris@16:             {
Chris@16:                 return boost::numeric::converter<
Chris@16:                         Target,
Chris@16:                         Source,
Chris@16:                         boost::numeric::conversion_traits<Target,Source>,
Chris@16:                         nothrow_overflow_handler<Source, Target>,
Chris@16:                         detect_precision_loss<Source, Target>
Chris@16:                 >::convert(arg);
Chris@16:             }
Chris@16:         };
Chris@16: 
Chris@16:         template <typename Target, typename Source>
Chris@16:         struct lexical_cast_dynamic_num_ignoring_minus
Chris@16:         {
Chris@16:             static inline Target lexical_cast_impl(const Source &arg)
Chris@16:             {
Chris@16:                 typedef BOOST_DEDUCED_TYPENAME boost::mpl::eval_if_c<
Chris@16:                         boost::is_float<Source>::value,
Chris@16:                         boost::mpl::identity<Source>,
Chris@16:                         boost::make_unsigned<Source>
Chris@16:                 >::type usource_t;
Chris@16: 
Chris@16:                 typedef boost::numeric::converter<
Chris@16:                         Target,
Chris@16:                         usource_t,
Chris@16:                         boost::numeric::conversion_traits<Target,usource_t>,
Chris@16:                         nothrow_overflow_handler<usource_t, Target>,
Chris@16:                         detect_precision_loss<usource_t, Target>
Chris@16:                 > converter_t;
Chris@16: 
Chris@16:                 return (
Chris@16:                     arg < 0 ? static_cast<Target>(0u - converter_t::convert(0u - arg)) : converter_t::convert(arg)
Chris@16:                 );
Chris@16:             }
Chris@16:         };
Chris@16: 
Chris@16:         /*
Chris@16:          * lexical_cast_dynamic_num follows the rules:
Chris@16:          * 1) If Source can be converted to Target without precision loss and
Chris@16:          * without overflows, then assign Source to Target and return
Chris@16:          *
Chris@16:          * 2) If Source is less than 0 and Target is an unsigned integer,
Chris@16:          * then negate Source, check the requirements of rule 1) and if
Chris@16:          * successful, assign static_casted Source to Target and return
Chris@16:          *
Chris@16:          * 3) Otherwise throw a bad_lexical_cast exception
Chris@16:          *
Chris@16:          *
Chris@16:          * Rule 2) required because boost::lexical_cast has the behavior of
Chris@16:          * stringstream, which uses the rules of scanf for conversions. And
Chris@16:          * in the C99 standard for unsigned input value minus sign is
Chris@16:          * optional, so if a negative number is read, no errors will arise
Chris@16:          * and the result will be the two's complement.
Chris@16:          */
Chris@16:         template <typename Target, typename Source>
Chris@16:         struct lexical_cast_dynamic_num
Chris@16:         {
Chris@16:             static inline Target lexical_cast_impl(const Source &arg)
Chris@16:             {
Chris@16:                 typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                     boost::type_traits::ice_and<
Chris@16:                         boost::type_traits::ice_or<
Chris@16:                             boost::is_signed<Source>::value,
Chris@16:                             boost::is_float<Source>::value
Chris@16:                         >::value,
Chris@16:                         boost::type_traits::ice_not<
Chris@16:                             boost::is_same<Source, bool>::value
Chris@16:                         >::value,
Chris@16:                         boost::type_traits::ice_not<
Chris@16:                             boost::is_same<Target, bool>::value
Chris@16:                         >::value,
Chris@16:                         boost::is_unsigned<Target>::value
Chris@16:                     >::value,
Chris@16:                     lexical_cast_dynamic_num_ignoring_minus<Target, Source>,
Chris@16:                     lexical_cast_dynamic_num_not_ignoring_minus<Target, Source>
Chris@16:                 >::type caster_type;
Chris@16: 
Chris@16:                 return caster_type::lexical_cast_impl(arg);
Chris@16:             }
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     template <typename Target, typename Source>
Chris@16:     inline Target lexical_cast(const Source &arg)
Chris@16:     {
Chris@16:         typedef BOOST_DEDUCED_TYPENAME boost::detail::array_to_pointer_decay<Source>::type src;
Chris@16: 
Chris@16:         typedef BOOST_DEDUCED_TYPENAME boost::type_traits::ice_or<
Chris@16:                 boost::detail::is_xchar_to_xchar<Target, src >::value,
Chris@16:                 boost::detail::is_char_array_to_stdstring<Target, src >::value,
Chris@16:                 boost::type_traits::ice_and<
Chris@16:                      boost::is_same<Target, src >::value,
Chris@16:                      boost::detail::is_stdstring<Target >::value
Chris@16:                 >::value
Chris@16:         > shall_we_copy_t;
Chris@16: 
Chris@16:         typedef BOOST_DEDUCED_TYPENAME
Chris@16:                 boost::detail::is_arithmetic_and_not_xchars<Target, src > shall_we_copy_with_dynamic_check_t;
Chris@16: 
Chris@16:         typedef BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:             shall_we_copy_t::value,
Chris@16:             boost::detail::lexical_cast_copy<src >,
Chris@16:             BOOST_DEDUCED_TYPENAME boost::mpl::if_c<
Chris@16:                  shall_we_copy_with_dynamic_check_t::value,
Chris@16:                  boost::detail::lexical_cast_dynamic_num<Target, src >,
Chris@16:                  boost::detail::lexical_cast_do_cast<Target, src >
Chris@16:             >::type
Chris@16:         >::type caster_type;
Chris@16: 
Chris@16:         return caster_type::lexical_cast_impl(arg);
Chris@16:     }
Chris@16: 
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const char* chars, std::size_t count)
Chris@16:      {
Chris@16:         return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const char*>(chars, chars + count)
Chris@16:         );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const unsigned char* chars, std::size_t count)
Chris@16:     {
Chris@16:          return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const unsigned char*>(chars, chars + count)
Chris@16:          );
Chris@16:      }
Chris@16: 
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const signed char* chars, std::size_t count)
Chris@16:     {
Chris@16:         return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const signed char*>(chars, chars + count)
Chris@16:         );
Chris@16:     }
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const wchar_t* chars, std::size_t count)
Chris@16:     {
Chris@16:         return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const wchar_t*>(chars, chars + count)
Chris@16:         );
Chris@16:     }
Chris@16: #endif
Chris@16: #ifndef BOOST_NO_CXX11_CHAR16_T
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const char16_t* chars, std::size_t count)
Chris@16:     {
Chris@16:         return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const char16_t*>(chars, chars + count)
Chris@16:         );
Chris@16:     }
Chris@16: #endif
Chris@16: #ifndef BOOST_NO_CXX11_CHAR32_T
Chris@16:     template <typename Target>
Chris@16:     inline Target lexical_cast(const char32_t* chars, std::size_t count)
Chris@16:     {
Chris@16:         return ::boost::lexical_cast<Target>(
Chris@16:             ::boost::iterator_range<const char32_t*>(chars, chars + count)
Chris@16:         );
Chris@16:     }
Chris@16: #endif
Chris@16: 
Chris@16: } // namespace boost
Chris@16: 
Chris@16: #else // #ifndef BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION
Chris@16: 
Chris@16: namespace boost {
Chris@16:     namespace detail
Chris@16:     {
Chris@16: 
Chris@16:         // selectors for choosing stream character type
Chris@16:         template<typename Type>
Chris@16:         struct stream_char
Chris@16:         {
Chris@16:             typedef char type;
Chris@16:         };
Chris@16: 
Chris@16: #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16: #ifndef BOOST_NO_INTRINSIC_WCHAR_T
Chris@16:         template<>
Chris@16:         struct stream_char<wchar_t>
Chris@16:         {
Chris@16:             typedef wchar_t type;
Chris@16:         };
Chris@16: #endif
Chris@16: 
Chris@16:         template<>
Chris@16:         struct stream_char<wchar_t *>
Chris@16:         {
Chris@16:             typedef wchar_t type;
Chris@16:         };
Chris@16: 
Chris@16:         template<>
Chris@16:         struct stream_char<const wchar_t *>
Chris@16:         {
Chris@16:             typedef wchar_t type;
Chris@16:         };
Chris@16: 
Chris@16:         template<>
Chris@16:         struct stream_char<std::wstring>
Chris@16:         {
Chris@16:             typedef wchar_t type;
Chris@16:         };
Chris@16: #endif
Chris@16: 
Chris@16:         // stream wrapper for handling lexical conversions
Chris@16:         template<typename Target, typename Source, typename Traits>
Chris@16:         class lexical_stream
Chris@16:         {
Chris@16:         private:
Chris@16:             typedef typename widest_char<
Chris@16:                 typename stream_char<Target>::type,
Chris@16:                 typename stream_char<Source>::type>::type char_type;
Chris@16: 
Chris@16:             typedef Traits traits_type;
Chris@16: 
Chris@16:         public:
Chris@16:             lexical_stream(char_type* = 0, char_type* = 0)
Chris@16:             {
Chris@16:                 stream.unsetf(std::ios::skipws);
Chris@16:                 lcast_set_precision(stream, static_cast<Source*>(0), static_cast<Target*>(0) );
Chris@16:             }
Chris@16:             ~lexical_stream()
Chris@16:             {
Chris@16:                 #if defined(BOOST_NO_STRINGSTREAM)
Chris@16:                 stream.freeze(false);
Chris@16:                 #endif
Chris@16:             }
Chris@16:             bool operator<<(const Source &input)
Chris@16:             {
Chris@16:                 return !(stream << input).fail();
Chris@16:             }
Chris@16:             template<typename InputStreamable>
Chris@16:             bool operator>>(InputStreamable &output)
Chris@16:             {
Chris@16:                 return !is_pointer<InputStreamable>::value &&
Chris@16:                        stream >> output &&
Chris@16:                        stream.get() ==
Chris@16: #if defined(__GNUC__) && (__GNUC__<3) && defined(BOOST_NO_STD_WSTRING)
Chris@16: // GCC 2.9x lacks std::char_traits<>::eof().
Chris@16: // We use BOOST_NO_STD_WSTRING to filter out STLport and libstdc++-v3
Chris@16: // configurations, which do provide std::char_traits<>::eof().
Chris@16: 
Chris@16:                            EOF;
Chris@16: #else
Chris@16:                            traits_type::eof();
Chris@16: #endif
Chris@16:             }
Chris@16: 
Chris@16:             bool operator>>(std::string &output)
Chris@16:             {
Chris@16:                 #if defined(BOOST_NO_STRINGSTREAM)
Chris@16:                 stream << '\0';
Chris@16:                 #endif
Chris@16:                 stream.str().swap(output);
Chris@16:                 return true;
Chris@16:             }
Chris@16:             #ifndef BOOST_LCAST_NO_WCHAR_T
Chris@16:             bool operator>>(std::wstring &output)
Chris@16:             {
Chris@16:                 stream.str().swap(output);
Chris@16:                 return true;
Chris@16:             }
Chris@16:             #endif
Chris@16: 
Chris@16:         private:
Chris@16:             #if defined(BOOST_NO_STRINGSTREAM)
Chris@16:             std::strstream stream;
Chris@16:             #elif defined(BOOST_NO_STD_LOCALE)
Chris@16:             std::stringstream stream;
Chris@16:             #else
Chris@16:             std::basic_stringstream<char_type,traits_type> stream;
Chris@16:             #endif
Chris@16:         };
Chris@16:     }
Chris@16: 
Chris@16:     // call-by-value fallback version (deprecated)
Chris@16: 
Chris@16:     template<typename Target, typename Source>
Chris@16:     Target lexical_cast(Source arg)
Chris@16:     {
Chris@16:         typedef typename detail::widest_char< 
Chris@16:             BOOST_DEDUCED_TYPENAME detail::stream_char<Target>::type 
Chris@16:           , BOOST_DEDUCED_TYPENAME detail::stream_char<Source>::type 
Chris@16:         >::type char_type; 
Chris@16: 
Chris@16:         typedef std::char_traits<char_type> traits;
Chris@16:         detail::lexical_stream<Target, Source, traits> interpreter;
Chris@16:         Target result;
Chris@16: 
Chris@16:         if(!(interpreter << arg && interpreter >> result))
Chris@16:           BOOST_LCAST_THROW_BAD_CAST(Source, Target);
Chris@16:         return result;
Chris@16:     }
Chris@16: 
Chris@16: } // namespace boost
Chris@16: 
Chris@16: #endif
Chris@16: 
Chris@16: // Copyright Kevlin Henney, 2000-2005.
Chris@16: // Copyright Alexander Nasonov, 2006-2010.
Chris@16: // Copyright Antony Polukhin, 2011-2013.
Chris@16: //
Chris@16: // Distributed under the Boost Software License, Version 1.0. (See
Chris@16: // accompanying file LICENSE_1_0.txt or copy at
Chris@16: // http://www.boost.org/LICENSE_1_0.txt)
Chris@16: 
Chris@16: #undef BOOST_LCAST_THROW_BAD_CAST
Chris@16: #undef BOOST_LCAST_NO_WCHAR_T
Chris@16: 
Chris@16: #endif // BOOST_LEXICAL_CAST_INCLUDED
Chris@16: