1/*
2 * Copyright (C) 1999-2001 Harri Porten (porten@kde.org)
3 * Copyright (C) 2001 Peter Kelly (pmk@post.com)
4 * Copyright (C) 2003, 2007, 2008 Apple Inc. All rights reserved.
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Library General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Library General Public License for more details.
15 *
16 * You should have received a copy of the GNU Library General Public License
17 * along with this library; see the file COPYING.LIB. If not, write to
18 * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
19 * Boston, MA 02110-1301, USA.
20 *
21 */
22
23#include "config.h"
24#include "JSValue.h"
25
26#include "BooleanConstructor.h"
27#include "BooleanPrototype.h"
28#include "ExceptionHelpers.h"
29#include "JSGlobalObject.h"
30#include "JSFunction.h"
31#include "JSNotAnObject.h"
32#include "NumberObject.h"
33#include <wtf/MathExtras.h>
34#include <wtf/StringExtras.h>
35
36namespace JSC {
37
38static const double D32 = 4294967296.0;
39
40// ECMA 9.4
41double JSValue::toInteger(ExecState* exec) const
42{
43 if (isInt32())
44 return asInt32();
45 double d = toNumber(exec);
46 return std::isnan(x: d) ? 0.0 : trunc(x: d);
47}
48
49double JSValue::toIntegerPreserveNaN(ExecState* exec) const
50{
51 if (isInt32())
52 return asInt32();
53 return trunc(x: toNumber(exec));
54}
55
56JSObject* JSValue::toObjectSlowCase(ExecState* exec) const
57{
58 ASSERT(!isCell());
59
60 if (isInt32() || isDouble())
61 return constructNumber(exec, asValue());
62 if (isTrue() || isFalse())
63 return constructBooleanFromImmediateBoolean(exec, asValue());
64 ASSERT(isUndefinedOrNull());
65 JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull: isNull());
66 exec->setException(exception);
67 return new (exec) JSNotAnObject(exec, exception);
68}
69
70JSObject* JSValue::toThisObjectSlowCase(ExecState* exec) const
71{
72 ASSERT(!isCell());
73
74 if (isInt32() || isDouble())
75 return constructNumber(exec, asValue());
76 if (isTrue() || isFalse())
77 return constructBooleanFromImmediateBoolean(exec, asValue());
78 ASSERT(isUndefinedOrNull());
79 return exec->globalThisValue();
80}
81
82JSObject* JSValue::synthesizeObject(ExecState* exec) const
83{
84 ASSERT(!isCell());
85 if (isNumber())
86 return constructNumber(exec, asValue());
87 if (isBoolean())
88 return constructBooleanFromImmediateBoolean(exec, asValue());
89
90 JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull: isNull());
91 exec->setException(exception);
92 return new (exec) JSNotAnObject(exec, exception);
93}
94
95JSObject* JSValue::synthesizePrototype(ExecState* exec) const
96{
97 ASSERT(!isCell());
98 if (isNumber())
99 return exec->lexicalGlobalObject()->numberPrototype();
100 if (isBoolean())
101 return exec->lexicalGlobalObject()->booleanPrototype();
102
103 JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull: isNull());
104 exec->setException(exception);
105 return new (exec) JSNotAnObject(exec, exception);
106}
107
108#ifndef NDEBUG
109char* JSValue::description()
110{
111 static const size_t size = 32;
112 static char description[size];
113
114 if (!*this)
115 snprintf(s: description, maxlen: size, format: "<JSValue()>");
116 else if (isInt32())
117 snprintf(s: description, maxlen: size, format: "Int32: %d", asInt32());
118 else if (isDouble())
119 snprintf(s: description, maxlen: size, format: "Double: %lf", asDouble());
120 else if (isCell())
121 snprintf(s: description, maxlen: size, format: "Cell: %p", asCell());
122 else if (isTrue())
123 snprintf(s: description, maxlen: size, format: "True");
124 else if (isFalse())
125 snprintf(s: description, maxlen: size, format: "False");
126 else if (isNull())
127 snprintf(s: description, maxlen: size, format: "Null");
128 else {
129 ASSERT(isUndefined());
130 snprintf(s: description, maxlen: size, format: "Undefined");
131 }
132
133 return description;
134}
135#endif
136
137int32_t toInt32SlowCase(double d, bool& ok)
138{
139 ok = true;
140
141 if (d >= -D32 / 2 && d < D32 / 2)
142 return static_cast<int32_t>(d);
143
144 if (std::isnan(x: d) || std::isinf(x: d)) {
145 ok = false;
146 return 0;
147 }
148
149 double d32 = fmod(x: trunc(x: d), y: D32);
150 if (d32 >= D32 / 2)
151 d32 -= D32;
152 else if (d32 < -D32 / 2)
153 d32 += D32;
154 return static_cast<int32_t>(d32);
155}
156
157uint32_t toUInt32SlowCase(double d, bool& ok)
158{
159 ok = true;
160
161 if (d >= 0.0 && d < D32)
162 return static_cast<uint32_t>(d);
163
164 if (std::isnan(x: d) || std::isinf(x: d)) {
165 ok = false;
166 return 0;
167 }
168
169 double d32 = fmod(x: trunc(x: d), y: D32);
170 if (d32 < 0)
171 d32 += D32;
172 return static_cast<uint32_t>(d32);
173}
174
175NEVER_INLINE double nonInlineNaN()
176{
177#if OS(SYMBIAN)
178 return nanval();
179#else
180 return std::numeric_limits<double>::quiet_NaN();
181#endif
182}
183
184} // namespace JSC
185

source code of qtscript/src/3rdparty/javascriptcore/JavaScriptCore/runtime/JSValue.cpp