| 1 | /****************************************************************************
|
|---|
| 2 | **
|
|---|
| 3 | ** Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
|
|---|
| 4 | ** Contact: Qt Software Information (qt-info@nokia.com)
|
|---|
| 5 | **
|
|---|
| 6 | ** This file is part of the QtXmlPatterns module of the Qt Toolkit.
|
|---|
| 7 | **
|
|---|
| 8 | ** $QT_BEGIN_LICENSE:LGPL$
|
|---|
| 9 | ** Commercial Usage
|
|---|
| 10 | ** Licensees holding valid Qt Commercial licenses may use this file in
|
|---|
| 11 | ** accordance with the Qt Commercial License Agreement provided with the
|
|---|
| 12 | ** Software or, alternatively, in accordance with the terms contained in
|
|---|
| 13 | ** a written agreement between you and Nokia.
|
|---|
| 14 | **
|
|---|
| 15 | ** GNU Lesser General Public License Usage
|
|---|
| 16 | ** Alternatively, this file may be used under the terms of the GNU Lesser
|
|---|
| 17 | ** General Public License version 2.1 as published by the Free Software
|
|---|
| 18 | ** Foundation and appearing in the file LICENSE.LGPL included in the
|
|---|
| 19 | ** packaging of this file. Please review the following information to
|
|---|
| 20 | ** ensure the GNU Lesser General Public License version 2.1 requirements
|
|---|
| 21 | ** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
|
|---|
| 22 | **
|
|---|
| 23 | ** In addition, as a special exception, Nokia gives you certain
|
|---|
| 24 | ** additional rights. These rights are described in the Nokia Qt LGPL
|
|---|
| 25 | ** Exception version 1.0, included in the file LGPL_EXCEPTION.txt in this
|
|---|
| 26 | ** package.
|
|---|
| 27 | **
|
|---|
| 28 | ** GNU General Public License Usage
|
|---|
| 29 | ** Alternatively, this file may be used under the terms of the GNU
|
|---|
| 30 | ** General Public License version 3.0 as published by the Free Software
|
|---|
| 31 | ** Foundation and appearing in the file LICENSE.GPL included in the
|
|---|
| 32 | ** packaging of this file. Please review the following information to
|
|---|
| 33 | ** ensure the GNU General Public License version 3.0 requirements will be
|
|---|
| 34 | ** met: http://www.gnu.org/copyleft/gpl.html.
|
|---|
| 35 | **
|
|---|
| 36 | ** If you are unsure which license is appropriate for your use, please
|
|---|
| 37 | ** contact the sales department at qt-sales@nokia.com.
|
|---|
| 38 | ** $QT_END_LICENSE$
|
|---|
| 39 | **
|
|---|
| 40 | ****************************************************************************/
|
|---|
| 41 |
|
|---|
| 42 | #include <math.h>
|
|---|
| 43 |
|
|---|
| 44 | #include "qabstractfloat_p.h"
|
|---|
| 45 | #include "qboolean_p.h"
|
|---|
| 46 | #include "qbuiltintypes_p.h"
|
|---|
| 47 | #include "qcommonvalues_p.h"
|
|---|
| 48 | #include "qdecimal_p.h"
|
|---|
| 49 | #include "qinteger_p.h"
|
|---|
| 50 |
|
|---|
| 51 | #include "qschemanumeric_p.h"
|
|---|
| 52 |
|
|---|
| 53 | /**
|
|---|
| 54 | * @file
|
|---|
| 55 | * @short Contains class Numeric. This file was originally called qnumeric.cpp,
|
|---|
| 56 | * but was renamed to stay consistent with qschemanumeric_p.h
|
|---|
| 57 | */
|
|---|
| 58 |
|
|---|
| 59 | QT_BEGIN_NAMESPACE
|
|---|
| 60 |
|
|---|
| 61 | using namespace QPatternist;
|
|---|
| 62 |
|
|---|
| 63 | AtomicValue::Ptr Numeric::fromLexical(const QString &number)
|
|---|
| 64 | {
|
|---|
| 65 | Q_ASSERT(!number.isEmpty());
|
|---|
| 66 | Q_ASSERT_X(!number.contains(QLatin1Char('e')) &&
|
|---|
| 67 | !number.contains(QLatin1Char('E')),
|
|---|
| 68 | Q_FUNC_INFO, "Should not contain any e/E");
|
|---|
| 69 |
|
|---|
| 70 | if(number.contains(QLatin1Char('.'))) /* an xs:decimal. */
|
|---|
| 71 | return Decimal::fromLexical(number);
|
|---|
| 72 | else /* It's an integer, of some sort. E.g, -3, -2, -1, 0, 1, 2, 3 */
|
|---|
| 73 | return Integer::fromLexical(number);
|
|---|
| 74 | }
|
|---|
| 75 |
|
|---|
| 76 | xsDouble Numeric::roundFloat(const xsDouble val)
|
|---|
| 77 | {
|
|---|
| 78 | if(qIsInf(val) || AbstractFloat<true>::isEqual(val, 0.0))
|
|---|
| 79 | return val;
|
|---|
| 80 | else if(qIsNaN(val))
|
|---|
| 81 | return val;
|
|---|
| 82 | else
|
|---|
| 83 | {
|
|---|
| 84 | if(val >= -0.5 && val < 0)
|
|---|
| 85 | return -0.0;
|
|---|
| 86 | else
|
|---|
| 87 | return ::floor(val + 0.5);
|
|---|
| 88 |
|
|---|
| 89 | }
|
|---|
| 90 | }
|
|---|
| 91 |
|
|---|
| 92 | QT_END_NAMESPACE
|
|---|