123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125 |
- /*=============================================================================
- Copyright (c) 2001-2010 Joel de Guzman
- Copyright (c) 2001-2010 Hartmut Kaiser
- Use, modification and distribution is subject to the Boost Software
- License, Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
- http://www.boost.org/LICENSE_1_0.txt)
- =============================================================================*/
- #if !defined(BOOST_SPIRIT_TEST_QI_REAL_HPP)
- #define BOOST_SPIRIT_TEST_QI_REAL_HPP
- #include <climits>
- #include <boost/math/concepts/real_concept.hpp>
- #include <boost/detail/lightweight_test.hpp>
- #include <boost/spirit/include/qi_char.hpp>
- #include <boost/spirit/include/qi_numeric.hpp>
- #include <boost/spirit/include/qi_operator.hpp>
- #include <boost/math/special_functions/fpclassify.hpp>
- #include <boost/math/special_functions/sign.hpp>
- #include "test.hpp"
- ///////////////////////////////////////////////////////////////////////////////
- // These policies can be used to parse thousand separated
- // numbers with at most 2 decimal digits after the decimal
- // point. e.g. 123,456,789.01
- ///////////////////////////////////////////////////////////////////////////////
- template <typename T>
- struct ts_real_policies : boost::spirit::qi::ureal_policies<T>
- {
- // 2 decimal places Max
- template <typename Iterator, typename Attribute>
- static bool
- parse_frac_n(Iterator& first, Iterator const& last, Attribute& attr, int& frac_digits)
- {
- namespace qi = boost::spirit::qi;
- Iterator savef = first;
- bool r = qi::extract_uint<Attribute, 10, 1, 2, true>::call(first, last, attr);
- frac_digits = static_cast<int>(std::distance(savef, first));
- return r;
- }
- // No exponent
- template <typename Iterator>
- static bool
- parse_exp(Iterator&, Iterator const&)
- {
- return false;
- }
- // No exponent
- template <typename Iterator, typename Attribute>
- static bool
- parse_exp_n(Iterator&, Iterator const&, Attribute&)
- {
- return false;
- }
- // Thousands separated numbers
- template <typename Iterator, typename Accumulator>
- static bool
- parse_n(Iterator& first, Iterator const& last, Accumulator& result)
- {
- using boost::spirit::qi::uint_parser;
- namespace qi = boost::spirit::qi;
- uint_parser<unsigned, 10, 1, 3> uint3;
- uint_parser<unsigned, 10, 3, 3> uint3_3;
- if (parse(first, last, uint3, result))
- {
- Accumulator n;
- Iterator iter = first;
- while (qi::parse(iter, last, ',') && qi::parse(iter, last, uint3_3, n))
- {
- result = result * 1000 + n;
- first = iter;
- }
- return true;
- }
- return false;
- }
- };
- template <typename T>
- struct no_trailing_dot_policy : boost::spirit::qi::real_policies<T>
- {
- static bool const allow_trailing_dot = false;
- };
- template <typename T>
- struct no_leading_dot_policy : boost::spirit::qi::real_policies<T>
- {
- static bool const allow_leading_dot = false;
- };
- template <typename T>
- bool
- compare(T n, double expected
- , T const eps = std::pow(10.0, -std::numeric_limits<T>::digits10))
- {
- T delta = n - expected;
- return (delta >= -eps) && (delta <= eps);
- }
- ///////////////////////////////////////////////////////////////////////////////
- // A custom real type
- struct custom_real
- {
- double n;
- custom_real() : n(0) {}
- custom_real(double n_) : n(n_) {}
- friend bool operator==(custom_real a, custom_real b)
- { return a.n == b.n; }
- friend custom_real operator*(custom_real a, custom_real b)
- { return custom_real(a.n * b.n); }
- friend custom_real operator+(custom_real a, custom_real b)
- { return custom_real(a.n + b.n); }
- friend custom_real operator-(custom_real a, custom_real b)
- { return custom_real(a.n - b.n); }
- };
- #endif
|