| /**************************************************************************** |
| ** |
| ** Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies). |
| ** All rights reserved. |
| ** Contact: Nokia Corporation (qt-info@nokia.com) |
| ** |
| ** This file is part of the QtXmlPatterns module of the Qt Toolkit. |
| ** |
| ** $QT_BEGIN_LICENSE:LGPL$ |
| ** GNU Lesser General Public License Usage |
| ** This file may be used under the terms of the GNU Lesser General Public |
| ** License version 2.1 as published by the Free Software Foundation and |
| ** appearing in the file LICENSE.LGPL included in the packaging of this |
| ** file. Please review the following information to ensure the GNU Lesser |
| ** General Public License version 2.1 requirements will be met: |
| ** http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. |
| ** |
| ** In addition, as a special exception, Nokia gives you certain additional |
| ** rights. These rights are described in the Nokia Qt LGPL Exception |
| ** version 1.1, included in the file LGPL_EXCEPTION.txt in this package. |
| ** |
| ** GNU General Public License Usage |
| ** Alternatively, this file may be used under the terms of the GNU General |
| ** Public License version 3.0 as published by the Free Software Foundation |
| ** and appearing in the file LICENSE.GPL included in the packaging of this |
| ** file. Please review the following information to ensure the GNU General |
| ** Public License version 3.0 requirements will be met: |
| ** http://www.gnu.org/copyleft/gpl.html. |
| ** |
| ** Other Usage |
| ** Alternatively, this file may be used in accordance with the terms and |
| ** conditions contained in a signed written agreement between you and Nokia. |
| ** |
| ** |
| ** |
| ** |
| ** |
| ** $QT_END_LICENSE$ |
| ** |
| ****************************************************************************/ |
| |
| #include <math.h> |
| |
| #include "qabstractfloat_p.h" |
| #include "qatomictype_p.h" |
| #include "qbuiltintypes_p.h" |
| #include "qvalidationerror_p.h" |
| |
| #include "qdecimal_p.h" |
| |
| QT_BEGIN_NAMESPACE |
| |
| using namespace QPatternist; |
| |
| Decimal::Decimal(const xsDecimal num) : m_value(num) |
| { |
| } |
| |
| Decimal::Ptr Decimal::fromValue(const xsDecimal num) |
| { |
| return Decimal::Ptr(new Decimal(num)); |
| } |
| |
| AtomicValue::Ptr Decimal::fromLexical(const QString &strNumeric) |
| { |
| /* QString::toDouble() handles the whitespace facet. */ |
| const QString strNumericTrimmed(strNumeric.trimmed()); |
| |
| /* Block these out, as QString::toDouble() supports them. */ |
| if(strNumericTrimmed.compare(QLatin1String("-INF"), Qt::CaseInsensitive) == 0 |
| || strNumericTrimmed.compare(QLatin1String("INF"), Qt::CaseInsensitive) == 0 |
| || strNumericTrimmed.compare(QLatin1String("+INF"), Qt::CaseInsensitive) == 0 |
| || strNumericTrimmed.compare(QLatin1String("nan"), Qt::CaseInsensitive) == 0 |
| || strNumericTrimmed.contains(QLatin1Char('e')) |
| || strNumericTrimmed.contains(QLatin1Char('E'))) |
| { |
| return ValidationError::createError(); |
| } |
| |
| bool conversionOk = false; |
| const xsDecimal num = strNumericTrimmed.toDouble(&conversionOk); |
| |
| if(conversionOk) |
| return AtomicValue::Ptr(new Decimal(num)); |
| else |
| return ValidationError::createError(); |
| } |
| |
| bool Decimal::evaluateEBV(const QExplicitlySharedDataPointer<DynamicContext> &) const |
| { |
| return !Double::isEqual(m_value, 0.0); |
| } |
| |
| QString Decimal::stringValue() const |
| { |
| return toString(m_value); |
| } |
| |
| QString Decimal::toString(const xsDecimal value) |
| { |
| /* |
| * If SV is in the value space of xs:integer, that is, if there are no |
| * significant digits after the decimal point, then the value is converted |
| * from an xs:decimal to an xs:integer and the resulting xs:integer is |
| * converted to an xs:string using the rule above. |
| */ |
| if(Double::isEqual(::floor(value), value)) |
| { |
| /* The static_cast is identical to Integer::toInteger(). */ |
| return QString::number(static_cast<xsInteger>(value)); |
| } |
| else |
| { |
| int sign; |
| int decimalPoint; |
| char *result = 0; |
| static_cast<void>(qdtoa(value, 0, 0, &decimalPoint, &sign, 0, &result)); |
| /* If the copy constructor is used instead of QString::operator=(), |
| * it doesn't compile. I have no idea why. */ |
| const QString qret(QString::fromLatin1(result)); |
| delete result; |
| |
| QString valueAsString; |
| |
| if(sign) |
| valueAsString += QLatin1Char('-'); |
| |
| if(0 < decimalPoint) |
| { |
| valueAsString += qret.left(decimalPoint); |
| valueAsString += QLatin1Char('.'); |
| if (qret.size() <= decimalPoint) |
| valueAsString += QLatin1Char('0'); |
| else |
| valueAsString += qret.mid(decimalPoint); |
| } |
| else |
| { |
| valueAsString += QLatin1Char('0'); |
| valueAsString += QLatin1Char('.'); |
| |
| for(int d = decimalPoint; d < 0; d++) |
| valueAsString += QLatin1Char('0'); |
| |
| valueAsString += qret; |
| } |
| |
| return valueAsString; |
| } |
| } |
| |
| ItemType::Ptr Decimal::type() const |
| { |
| return BuiltinTypes::xsDecimal; |
| } |
| |
| xsDouble Decimal::toDouble() const |
| { |
| return static_cast<xsDouble>(m_value); |
| } |
| |
| xsInteger Decimal::toInteger() const |
| { |
| return static_cast<xsInteger>(m_value); |
| } |
| |
| xsFloat Decimal::toFloat() const |
| { |
| return static_cast<xsFloat>(m_value); |
| } |
| |
| xsDecimal Decimal::toDecimal() const |
| { |
| return m_value; |
| } |
| |
| qulonglong Decimal::toUnsignedInteger() const |
| { |
| Q_ASSERT_X(false, Q_FUNC_INFO, |
| "It makes no sense to call this function, see Numeric::toUnsignedInteger()."); |
| return 0; |
| } |
| |
| Numeric::Ptr Decimal::round() const |
| { |
| return Numeric::Ptr(new Decimal(roundFloat(m_value))); |
| } |
| |
| Numeric::Ptr Decimal::roundHalfToEven(const xsInteger /*scale*/) const |
| { |
| return Numeric::Ptr(); |
| } |
| |
| Numeric::Ptr Decimal::floor() const |
| { |
| return Numeric::Ptr(new Decimal(static_cast<xsDecimal>(::floor(m_value)))); |
| } |
| |
| Numeric::Ptr Decimal::ceiling() const |
| { |
| return Numeric::Ptr(new Decimal(static_cast<xsDecimal>(ceil(m_value)))); |
| } |
| |
| Numeric::Ptr Decimal::abs() const |
| { |
| return Numeric::Ptr(new Decimal(static_cast<xsDecimal>(fabs(m_value)))); |
| } |
| |
| bool Decimal::isNaN() const |
| { |
| return false; |
| } |
| |
| bool Decimal::isInf() const |
| { |
| return false; |
| } |
| |
| Item Decimal::toNegated() const |
| { |
| if(AbstractFloat<true>::isEqual(m_value, 0.0)) |
| return fromValue(0).data(); |
| else |
| return fromValue(-m_value).data(); |
| } |
| |
| bool Decimal::isSigned() const |
| { |
| Q_ASSERT_X(false, Q_FUNC_INFO, |
| "It makes no sense to call this function, see Numeric::isSigned()."); |
| return false; |
| } |
| |
| QT_END_NAMESPACE |