Reserve capacity for StringBuilder in unescape
[WebKit-https.git] / Source / JavaScriptCore / runtime / JSGlobalObjectFunctions.cpp
1 /*
2  *  Copyright (C) 1999-2002 Harri Porten (porten@kde.org)
3  *  Copyright (C) 2001 Peter Kelly (pmk@post.com)
4  *  Copyright (C) 2003-2009, 2012, 2016 Apple Inc. All rights reserved.
5  *  Copyright (C) 2007 Cameron Zwarich (cwzwarich@uwaterloo.ca)
6  *  Copyright (C) 2007 Maks Orlovich
7  *
8  *  This library is free software; you can redistribute it and/or
9  *  modify it under the terms of the GNU Library General Public
10  *  License as published by the Free Software Foundation; either
11  *  version 2 of the License, or (at your option) any later version.
12  *
13  *  This library is distributed in the hope that it will be useful,
14  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
15  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  *  Library General Public License for more details.
17  *
18  *  You should have received a copy of the GNU Library General Public License
19  *  along with this library; see the file COPYING.LIB.  If not, write to
20  *  the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21  *  Boston, MA 02110-1301, USA.
22  *
23  */
24
25 #include "config.h"
26 #include "JSGlobalObjectFunctions.h"
27
28 #include "CallFrame.h"
29 #include "EvalExecutable.h"
30 #include "Exception.h"
31 #include "IndirectEvalExecutable.h"
32 #include "Interpreter.h"
33 #include "JSFunction.h"
34 #include "JSGlobalObject.h"
35 #include "JSInternalPromise.h"
36 #include "JSModuleLoader.h"
37 #include "JSPromiseDeferred.h"
38 #include "JSString.h"
39 #include "JSStringBuilder.h"
40 #include "Lexer.h"
41 #include "LiteralParser.h"
42 #include "Nodes.h"
43 #include "JSCInlines.h"
44 #include "Parser.h"
45 #include "StackVisitor.h"
46 #include <wtf/dtoa.h>
47 #include <stdio.h>
48 #include <stdlib.h>
49 #include <wtf/ASCIICType.h>
50 #include <wtf/Assertions.h>
51 #include <wtf/HexNumber.h>
52 #include <wtf/MathExtras.h>
53 #include <wtf/StringExtras.h>
54 #include <wtf/text/StringBuilder.h>
55 #include <wtf/unicode/UTF8.h>
56
57 using namespace WTF;
58 using namespace Unicode;
59
60 namespace JSC {
61
62 static const char* const ObjectProtoCalledOnNullOrUndefinedError = "Object.prototype.__proto__ called on null or undefined";
63
64 template<typename CallbackWhenNoException>
65 static ALWAYS_INLINE typename std::result_of<CallbackWhenNoException(StringView)>::type toStringView(ExecState* exec, JSValue value, CallbackWhenNoException callback)
66 {
67     VM& vm = exec->vm();
68     auto scope = DECLARE_THROW_SCOPE(vm);
69     JSString* string = value.toStringOrNull(exec);
70     if (UNLIKELY(!string))
71         return { };
72     auto viewWithString = string->viewWithUnderlyingString(*exec);
73     RETURN_IF_EXCEPTION(scope, { });
74     return callback(viewWithString.view);
75 }
76
77 template<unsigned charactersCount>
78 static Bitmap<256> makeCharacterBitmap(const char (&characters)[charactersCount])
79 {
80     static_assert(charactersCount > 0, "Since string literal is null terminated, characterCount is always larger than 0");
81     Bitmap<256> bitmap;
82     for (unsigned i = 0; i < charactersCount - 1; ++i)
83         bitmap.set(characters[i]);
84     return bitmap;
85 }
86
87 template<typename CharacterType>
88 static JSValue encode(ExecState* exec, const Bitmap<256>& doNotEscape, const CharacterType* characters, unsigned length)
89 {
90     VM& vm = exec->vm();
91     auto scope = DECLARE_THROW_SCOPE(vm);
92
93     // 18.2.6.1.1 Runtime Semantics: Encode ( string, unescapedSet )
94     // https://tc39.github.io/ecma262/#sec-encode
95
96     auto throwException = [&scope, exec] {
97         return JSC::throwException(exec, scope, createURIError(exec, ASCIILiteral("String contained an illegal UTF-16 sequence.")));
98     };
99
100     StringBuilder builder;
101     builder.reserveCapacity(length);
102
103     // 4. Repeat
104     auto* end = characters + length;
105     for (auto* cursor = characters; cursor != end; ++cursor) {
106         auto character = *cursor;
107
108         // 4-c. If C is in unescapedSet, then
109         if (character < doNotEscape.size() && doNotEscape.get(character)) {
110             // 4-c-i. Let S be a String containing only the code unit C.
111             // 4-c-ii. Let R be a new String value computed by concatenating the previous value of R and S.
112             builder.append(static_cast<LChar>(character));
113             continue;
114         }
115
116         // 4-d-i. If the code unit value of C is not less than 0xDC00 and not greater than 0xDFFF, throw a URIError exception.
117         if (U16_IS_TRAIL(character))
118             return throwException();
119
120         // 4-d-ii. If the code unit value of C is less than 0xD800 or greater than 0xDBFF, then
121         // 4-d-ii-1. Let V be the code unit value of C.
122         UChar32 codePoint;
123         if (!U16_IS_LEAD(character))
124             codePoint = character;
125         else {
126             // 4-d-iii. Else,
127             // 4-d-iii-1. Increase k by 1.
128             ++cursor;
129
130             // 4-d-iii-2. If k equals strLen, throw a URIError exception.
131             if (cursor == end)
132                 return throwException();
133
134             // 4-d-iii-3. Let kChar be the code unit value of the code unit at index k within string.
135             auto trail = *cursor;
136
137             // 4-d-iii-4. If kChar is less than 0xDC00 or greater than 0xDFFF, throw a URIError exception.
138             if (!U16_IS_TRAIL(trail))
139                 return throwException();
140
141             // 4-d-iii-5. Let V be UTF16Decode(C, kChar).
142             codePoint = U16_GET_SUPPLEMENTARY(character, trail);
143         }
144
145         // 4-d-iv. Let Octets be the array of octets resulting by applying the UTF-8 transformation to V, and let L be the array size.
146         LChar utf8OctetsBuffer[U8_MAX_LENGTH];
147         unsigned utf8Length = 0;
148         // We can use U8_APPEND_UNSAFE here since codePoint is either
149         // 1. non surrogate one, correct code point.
150         // 2. correct code point generated from validated lead and trail surrogates.
151         U8_APPEND_UNSAFE(utf8OctetsBuffer, utf8Length, codePoint);
152
153         // 4-d-v. Let j be 0.
154         // 4-d-vi. Repeat, while j < L
155         for (unsigned index = 0; index < utf8Length; ++index) {
156             // 4-d-vi-1. Let jOctet be the value at index j within Octets.
157             // 4-d-vi-2. Let S be a String containing three code units "%XY" where XY are two uppercase hexadecimal digits encoding the value of jOctet.
158             // 4-d-vi-3. Let R be a new String value computed by concatenating the previous value of R and S.
159             builder.append(static_cast<LChar>('%'));
160             appendByteAsHex(utf8OctetsBuffer[index], builder);
161         }
162     }
163
164     return jsString(exec, builder.toString());
165 }
166
167 static JSValue encode(ExecState* exec, const Bitmap<256>& doNotEscape)
168 {
169     return toStringView(exec, exec->argument(0), [&] (StringView view) {
170         if (view.is8Bit())
171             return encode(exec, doNotEscape, view.characters8(), view.length());
172         return encode(exec, doNotEscape, view.characters16(), view.length());
173     });
174 }
175
176 template <typename CharType>
177 ALWAYS_INLINE
178 static JSValue decode(ExecState* exec, const CharType* characters, int length, const Bitmap<256>& doNotUnescape, bool strict)
179 {
180     VM& vm = exec->vm();
181     auto scope = DECLARE_THROW_SCOPE(vm);
182
183     JSStringBuilder builder;
184     int k = 0;
185     UChar u = 0;
186     while (k < length) {
187         const CharType* p = characters + k;
188         CharType c = *p;
189         if (c == '%') {
190             int charLen = 0;
191             if (k <= length - 3 && isASCIIHexDigit(p[1]) && isASCIIHexDigit(p[2])) {
192                 const char b0 = Lexer<CharType>::convertHex(p[1], p[2]);
193                 const int sequenceLen = UTF8SequenceLength(b0);
194                 if (sequenceLen && k <= length - sequenceLen * 3) {
195                     charLen = sequenceLen * 3;
196                     char sequence[5];
197                     sequence[0] = b0;
198                     for (int i = 1; i < sequenceLen; ++i) {
199                         const CharType* q = p + i * 3;
200                         if (q[0] == '%' && isASCIIHexDigit(q[1]) && isASCIIHexDigit(q[2]))
201                             sequence[i] = Lexer<CharType>::convertHex(q[1], q[2]);
202                         else {
203                             charLen = 0;
204                             break;
205                         }
206                     }
207                     if (charLen != 0) {
208                         sequence[sequenceLen] = 0;
209                         const int character = decodeUTF8Sequence(sequence);
210                         if (character < 0 || character >= 0x110000)
211                             charLen = 0;
212                         else if (character >= 0x10000) {
213                             // Convert to surrogate pair.
214                             builder.append(static_cast<UChar>(0xD800 | ((character - 0x10000) >> 10)));
215                             u = static_cast<UChar>(0xDC00 | ((character - 0x10000) & 0x3FF));
216                         } else
217                             u = static_cast<UChar>(character);
218                     }
219                 }
220             }
221             if (charLen == 0) {
222                 if (strict)
223                     return throwException(exec, scope, createURIError(exec, ASCIILiteral("URI error")));
224                 // The only case where we don't use "strict" mode is the "unescape" function.
225                 // For that, it's good to support the wonky "%u" syntax for compatibility with WinIE.
226                 if (k <= length - 6 && p[1] == 'u'
227                         && isASCIIHexDigit(p[2]) && isASCIIHexDigit(p[3])
228                         && isASCIIHexDigit(p[4]) && isASCIIHexDigit(p[5])) {
229                     charLen = 6;
230                     u = Lexer<UChar>::convertUnicode(p[2], p[3], p[4], p[5]);
231                 }
232             }
233             if (charLen && (u >= 128 || !doNotUnescape.get(static_cast<LChar>(u)))) {
234                 builder.append(u);
235                 k += charLen;
236                 continue;
237             }
238         }
239         k++;
240         builder.append(c);
241     }
242     return builder.build(exec);
243 }
244
245 static JSValue decode(ExecState* exec, const Bitmap<256>& doNotUnescape, bool strict)
246 {
247     return toStringView(exec, exec->argument(0), [&] (StringView view) {
248         if (view.is8Bit())
249             return decode(exec, view.characters8(), view.length(), doNotUnescape, strict);
250         return decode(exec, view.characters16(), view.length(), doNotUnescape, strict);
251     });
252 }
253
254 bool isStrWhiteSpace(UChar c)
255 {
256     switch (c) {
257         // ECMA-262-5th 7.2 & 7.3
258         case 0x0009:
259         case 0x000A:
260         case 0x000B:
261         case 0x000C:
262         case 0x000D:
263         case 0x0020:
264         case 0x00A0:
265         case 0x180E: // This character used to be in Zs category before Unicode 6.3, and EcmaScript says that we should keep treating it as such.
266         case 0x2028:
267         case 0x2029:
268         case 0xFEFF:
269             return true;
270         default:
271             return c > 0xFF && u_charType(c) == U_SPACE_SEPARATOR;
272     }
273 }
274
275 static int parseDigit(unsigned short c, int radix)
276 {
277     int digit = -1;
278
279     if (isASCIIDigit(c))
280         digit = c - '0';
281     else if (isASCIIUpper(c))
282         digit = c - 'A' + 10;
283     else if (isASCIILower(c))
284         digit = c - 'a' + 10;
285
286     if (digit >= radix)
287         return -1;
288     return digit;
289 }
290
291 double parseIntOverflow(const LChar* s, unsigned length, int radix)
292 {
293     double number = 0.0;
294     double radixMultiplier = 1.0;
295
296     for (const LChar* p = s + length - 1; p >= s; p--) {
297         if (radixMultiplier == std::numeric_limits<double>::infinity()) {
298             if (*p != '0') {
299                 number = std::numeric_limits<double>::infinity();
300                 break;
301             }
302         } else {
303             int digit = parseDigit(*p, radix);
304             number += digit * radixMultiplier;
305         }
306
307         radixMultiplier *= radix;
308     }
309
310     return number;
311 }
312
313 static double parseIntOverflow(const UChar* s, unsigned length, int radix)
314 {
315     double number = 0.0;
316     double radixMultiplier = 1.0;
317
318     for (const UChar* p = s + length - 1; p >= s; p--) {
319         if (radixMultiplier == std::numeric_limits<double>::infinity()) {
320             if (*p != '0') {
321                 number = std::numeric_limits<double>::infinity();
322                 break;
323             }
324         } else {
325             int digit = parseDigit(*p, radix);
326             number += digit * radixMultiplier;
327         }
328
329         radixMultiplier *= radix;
330     }
331
332     return number;
333 }
334
335 static double parseIntOverflow(StringView string, int radix)
336 {
337     if (string.is8Bit())
338         return parseIntOverflow(string.characters8(), string.length(), radix);
339     return parseIntOverflow(string.characters16(), string.length(), radix);
340 }
341
342 // ES5.1 15.1.2.2
343 template <typename CharType>
344 ALWAYS_INLINE
345 static double parseInt(StringView s, const CharType* data, int radix)
346 {
347     // 1. Let inputString be ToString(string).
348     // 2. Let S be a newly created substring of inputString consisting of the first character that is not a
349     //    StrWhiteSpaceChar and all characters following that character. (In other words, remove leading white
350     //    space.) If inputString does not contain any such characters, let S be the empty string.
351     int length = s.length();
352     int p = 0;
353     while (p < length && isStrWhiteSpace(data[p]))
354         ++p;
355
356     // 3. Let sign be 1.
357     // 4. If S is not empty and the first character of S is a minus sign -, let sign be -1.
358     // 5. If S is not empty and the first character of S is a plus sign + or a minus sign -, then remove the first character from S.
359     double sign = 1;
360     if (p < length) {
361         if (data[p] == '+')
362             ++p;
363         else if (data[p] == '-') {
364             sign = -1;
365             ++p;
366         }
367     }
368
369     // 6. Let R = ToInt32(radix).
370     // 7. Let stripPrefix be true.
371     // 8. If R != 0,then
372     //   b. If R != 16, let stripPrefix be false.
373     // 9. Else, R == 0
374     //   a. LetR = 10.
375     // 10. If stripPrefix is true, then
376     //   a. If the length of S is at least 2 and the first two characters of S are either ―0x or ―0X,
377     //      then remove the first two characters from S and let R = 16.
378     // 11. If S contains any character that is not a radix-R digit, then let Z be the substring of S
379     //     consisting of all characters before the first such character; otherwise, let Z be S.
380     if ((radix == 0 || radix == 16) && length - p >= 2 && data[p] == '0' && (data[p + 1] == 'x' || data[p + 1] == 'X')) {
381         radix = 16;
382         p += 2;
383     } else if (radix == 0)
384         radix = 10;
385
386     // 8.a If R < 2 or R > 36, then return NaN.
387     if (radix < 2 || radix > 36)
388         return PNaN;
389
390     // 13. Let mathInt be the mathematical integer value that is represented by Z in radix-R notation, using the letters
391     //     A-Z and a-z for digits with values 10 through 35. (However, if R is 10 and Z contains more than 20 significant
392     //     digits, every significant digit after the 20th may be replaced by a 0 digit, at the option of the implementation;
393     //     and if R is not 2, 4, 8, 10, 16, or 32, then mathInt may be an implementation-dependent approximation to the
394     //     mathematical integer value that is represented by Z in radix-R notation.)
395     // 14. Let number be the Number value for mathInt.
396     int firstDigitPosition = p;
397     bool sawDigit = false;
398     double number = 0;
399     while (p < length) {
400         int digit = parseDigit(data[p], radix);
401         if (digit == -1)
402             break;
403         sawDigit = true;
404         number *= radix;
405         number += digit;
406         ++p;
407     }
408
409     // 12. If Z is empty, return NaN.
410     if (!sawDigit)
411         return PNaN;
412
413     // Alternate code path for certain large numbers.
414     if (number >= mantissaOverflowLowerBound) {
415         if (radix == 10) {
416             size_t parsedLength;
417             number = parseDouble(s.substring(firstDigitPosition, p - firstDigitPosition), parsedLength);
418         } else if (radix == 2 || radix == 4 || radix == 8 || radix == 16 || radix == 32)
419             number = parseIntOverflow(s.substring(firstDigitPosition, p - firstDigitPosition), radix);
420     }
421
422     // 15. Return sign x number.
423     return sign * number;
424 }
425
426 static double parseInt(StringView s, int radix)
427 {
428     if (s.is8Bit())
429         return parseInt(s, s.characters8(), radix);
430     return parseInt(s, s.characters16(), radix);
431 }
432
433 static const int SizeOfInfinity = 8;
434
435 template <typename CharType>
436 static bool isInfinity(const CharType* data, const CharType* end)
437 {
438     return (end - data) >= SizeOfInfinity
439         && data[0] == 'I'
440         && data[1] == 'n'
441         && data[2] == 'f'
442         && data[3] == 'i'
443         && data[4] == 'n'
444         && data[5] == 'i'
445         && data[6] == 't'
446         && data[7] == 'y';
447 }
448
449 // See ecma-262 6th 11.8.3
450 template <typename CharType>
451 static double jsBinaryIntegerLiteral(const CharType*& data, const CharType* end)
452 {
453     // Binary number.
454     data += 2;
455     const CharType* firstDigitPosition = data;
456     double number = 0;
457     while (true) {
458         number = number * 2 + (*data - '0');
459         ++data;
460         if (data == end)
461             break;
462         if (!isASCIIBinaryDigit(*data))
463             break;
464     }
465     if (number >= mantissaOverflowLowerBound)
466         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 2);
467
468     return number;
469 }
470
471 // See ecma-262 6th 11.8.3
472 template <typename CharType>
473 static double jsOctalIntegerLiteral(const CharType*& data, const CharType* end)
474 {
475     // Octal number.
476     data += 2;
477     const CharType* firstDigitPosition = data;
478     double number = 0;
479     while (true) {
480         number = number * 8 + (*data - '0');
481         ++data;
482         if (data == end)
483             break;
484         if (!isASCIIOctalDigit(*data))
485             break;
486     }
487     if (number >= mantissaOverflowLowerBound)
488         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 8);
489     
490     return number;
491 }
492
493 // See ecma-262 6th 11.8.3
494 template <typename CharType>
495 static double jsHexIntegerLiteral(const CharType*& data, const CharType* end)
496 {
497     // Hex number.
498     data += 2;
499     const CharType* firstDigitPosition = data;
500     double number = 0;
501     while (true) {
502         number = number * 16 + toASCIIHexValue(*data);
503         ++data;
504         if (data == end)
505             break;
506         if (!isASCIIHexDigit(*data))
507             break;
508     }
509     if (number >= mantissaOverflowLowerBound)
510         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 16);
511
512     return number;
513 }
514
515 // See ecma-262 6th 11.8.3
516 template <typename CharType>
517 static double jsStrDecimalLiteral(const CharType*& data, const CharType* end)
518 {
519     RELEASE_ASSERT(data < end);
520
521     size_t parsedLength;
522     double number = parseDouble(data, end - data, parsedLength);
523     if (parsedLength) {
524         data += parsedLength;
525         return number;
526     }
527
528     // Check for [+-]?Infinity
529     switch (*data) {
530     case 'I':
531         if (isInfinity(data, end)) {
532             data += SizeOfInfinity;
533             return std::numeric_limits<double>::infinity();
534         }
535         break;
536
537     case '+':
538         if (isInfinity(data + 1, end)) {
539             data += SizeOfInfinity + 1;
540             return std::numeric_limits<double>::infinity();
541         }
542         break;
543
544     case '-':
545         if (isInfinity(data + 1, end)) {
546             data += SizeOfInfinity + 1;
547             return -std::numeric_limits<double>::infinity();
548         }
549         break;
550     }
551
552     // Not a number.
553     return PNaN;
554 }
555
556 template <typename CharType>
557 static double toDouble(const CharType* characters, unsigned size)
558 {
559     const CharType* endCharacters = characters + size;
560
561     // Skip leading white space.
562     for (; characters < endCharacters; ++characters) {
563         if (!isStrWhiteSpace(*characters))
564             break;
565     }
566     
567     // Empty string.
568     if (characters == endCharacters)
569         return 0.0;
570     
571     double number;
572     if (characters[0] == '0' && characters + 2 < endCharacters) {
573         if ((characters[1] | 0x20) == 'x' && isASCIIHexDigit(characters[2]))
574             number = jsHexIntegerLiteral(characters, endCharacters);
575         else if ((characters[1] | 0x20) == 'o' && isASCIIOctalDigit(characters[2]))
576             number = jsOctalIntegerLiteral(characters, endCharacters);
577         else if ((characters[1] | 0x20) == 'b' && isASCIIBinaryDigit(characters[2]))
578             number = jsBinaryIntegerLiteral(characters, endCharacters);
579         else
580             number = jsStrDecimalLiteral(characters, endCharacters);
581     } else
582         number = jsStrDecimalLiteral(characters, endCharacters);
583     
584     // Allow trailing white space.
585     for (; characters < endCharacters; ++characters) {
586         if (!isStrWhiteSpace(*characters))
587             break;
588     }
589     if (characters != endCharacters)
590         return PNaN;
591     
592     return number;
593 }
594
595 // See ecma-262 6th 11.8.3
596 double jsToNumber(StringView s)
597 {
598     unsigned size = s.length();
599
600     if (size == 1) {
601         UChar c = s[0];
602         if (isASCIIDigit(c))
603             return c - '0';
604         if (isStrWhiteSpace(c))
605             return 0;
606         return PNaN;
607     }
608
609     if (s.is8Bit())
610         return toDouble(s.characters8(), size);
611     return toDouble(s.characters16(), size);
612 }
613
614 static double parseFloat(StringView s)
615 {
616     unsigned size = s.length();
617
618     if (size == 1) {
619         UChar c = s[0];
620         if (isASCIIDigit(c))
621             return c - '0';
622         return PNaN;
623     }
624
625     if (s.is8Bit()) {
626         const LChar* data = s.characters8();
627         const LChar* end = data + size;
628
629         // Skip leading white space.
630         for (; data < end; ++data) {
631             if (!isStrWhiteSpace(*data))
632                 break;
633         }
634
635         // Empty string.
636         if (data == end)
637             return PNaN;
638
639         return jsStrDecimalLiteral(data, end);
640     }
641
642     const UChar* data = s.characters16();
643     const UChar* end = data + size;
644
645     // Skip leading white space.
646     for (; data < end; ++data) {
647         if (!isStrWhiteSpace(*data))
648             break;
649     }
650
651     // Empty string.
652     if (data == end)
653         return PNaN;
654
655     return jsStrDecimalLiteral(data, end);
656 }
657
658 EncodedJSValue JSC_HOST_CALL globalFuncEval(ExecState* exec)
659 {
660     VM& vm = exec->vm();
661     auto scope = DECLARE_THROW_SCOPE(vm);
662
663     JSValue x = exec->argument(0);
664     if (!x.isString())
665         return JSValue::encode(x);
666
667     JSGlobalObject* globalObject = exec->lexicalGlobalObject();
668     if (!globalObject->evalEnabled()) {
669         throwException(exec, scope, createEvalError(exec, globalObject->evalDisabledErrorMessage()));
670         return JSValue::encode(jsUndefined());
671     }
672
673     String s = asString(x)->value(exec);
674     RETURN_IF_EXCEPTION(scope, encodedJSValue());
675
676     if (s.is8Bit()) {
677         LiteralParser<LChar> preparser(exec, s.characters8(), s.length(), NonStrictJSON);
678         if (JSValue parsedObject = preparser.tryLiteralParse())
679             return JSValue::encode(parsedObject);
680     } else {
681         LiteralParser<UChar> preparser(exec, s.characters16(), s.length(), NonStrictJSON);
682         if (JSValue parsedObject = preparser.tryLiteralParse())
683             return JSValue::encode(parsedObject);        
684     }
685
686     SourceOrigin sourceOrigin = exec->callerSourceOrigin();
687     JSGlobalObject* calleeGlobalObject = exec->jsCallee()->globalObject();
688     EvalExecutable* eval = IndirectEvalExecutable::create(exec, makeSource(s, sourceOrigin), false, DerivedContextType::None, false, EvalContextType::None);
689     if (!eval)
690         return JSValue::encode(jsUndefined());
691
692     return JSValue::encode(exec->interpreter()->execute(eval, exec, calleeGlobalObject->globalThis(), calleeGlobalObject->globalScope()));
693 }
694
695 EncodedJSValue JSC_HOST_CALL globalFuncParseInt(ExecState* exec)
696 {
697     JSValue value = exec->argument(0);
698     JSValue radixValue = exec->argument(1);
699
700     // Optimized handling for numbers:
701     // If the argument is 0 or a number in range 10^-6 <= n < INT_MAX+1, then parseInt
702     // results in a truncation to integer. In the case of -0, this is converted to 0.
703     //
704     // This is also a truncation for values in the range INT_MAX+1 <= n < 10^21,
705     // however these values cannot be trivially truncated to int since 10^21 exceeds
706     // even the int64_t range. Negative numbers are a little trickier, the case for
707     // values in the range -10^21 < n <= -1 are similar to those for integer, but
708     // values in the range -1 < n <= -10^-6 need to truncate to -0, not 0.
709     static const double tenToTheMinus6 = 0.000001;
710     static const double intMaxPlusOne = 2147483648.0;
711     if (value.isNumber()) {
712         double n = value.asNumber();
713         if (((n < intMaxPlusOne && n >= tenToTheMinus6) || !n) && radixValue.isUndefinedOrNull())
714             return JSValue::encode(jsNumber(static_cast<int32_t>(n)));
715     }
716
717     // If ToString throws, we shouldn't call ToInt32.
718     return toStringView(exec, value, [&] (StringView view) {
719         return JSValue::encode(jsNumber(parseInt(view, radixValue.toInt32(exec))));
720     });
721 }
722
723 EncodedJSValue JSC_HOST_CALL globalFuncParseFloat(ExecState* exec)
724 {
725     auto viewWithString = exec->argument(0).toString(exec)->viewWithUnderlyingString(*exec);
726     return JSValue::encode(jsNumber(parseFloat(viewWithString.view)));
727 }
728
729 EncodedJSValue JSC_HOST_CALL globalFuncDecodeURI(ExecState* exec)
730 {
731     static Bitmap<256> doNotUnescapeWhenDecodingURI = makeCharacterBitmap(
732         "#$&+,/:;=?@"
733     );
734
735     return JSValue::encode(decode(exec, doNotUnescapeWhenDecodingURI, true));
736 }
737
738 EncodedJSValue JSC_HOST_CALL globalFuncDecodeURIComponent(ExecState* exec)
739 {
740     static Bitmap<256> emptyBitmap;
741     return JSValue::encode(decode(exec, emptyBitmap, true));
742 }
743
744 EncodedJSValue JSC_HOST_CALL globalFuncEncodeURI(ExecState* exec)
745 {
746     static Bitmap<256> doNotEscapeWhenEncodingURI = makeCharacterBitmap(
747         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
748         "abcdefghijklmnopqrstuvwxyz"
749         "0123456789"
750         "!#$&'()*+,-./:;=?@_~"
751     );
752
753     return JSValue::encode(encode(exec, doNotEscapeWhenEncodingURI));
754 }
755
756 EncodedJSValue JSC_HOST_CALL globalFuncEncodeURIComponent(ExecState* exec)
757 {
758     static Bitmap<256> doNotEscapeWhenEncodingURIComponent = makeCharacterBitmap(
759         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
760         "abcdefghijklmnopqrstuvwxyz"
761         "0123456789"
762         "!'()*-._~"
763     );
764
765     return JSValue::encode(encode(exec, doNotEscapeWhenEncodingURIComponent));
766 }
767
768 EncodedJSValue JSC_HOST_CALL globalFuncEscape(ExecState* exec)
769 {
770     static Bitmap<256> doNotEscape = makeCharacterBitmap(
771         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
772         "abcdefghijklmnopqrstuvwxyz"
773         "0123456789"
774         "*+-./@_"
775     );
776
777     return JSValue::encode(toStringView(exec, exec->argument(0), [&] (StringView view) {
778         JSStringBuilder builder;
779         if (view.is8Bit()) {
780             const LChar* c = view.characters8();
781             for (unsigned k = 0; k < view.length(); k++, c++) {
782                 int u = c[0];
783                 if (doNotEscape.get(static_cast<LChar>(u)))
784                     builder.append(*c);
785                 else {
786                     builder.append(static_cast<LChar>('%'));
787                     appendByteAsHex(static_cast<LChar>(u), builder);
788                 }
789             }
790
791             return builder.build(exec);
792         }
793
794         const UChar* c = view.characters16();
795         for (unsigned k = 0; k < view.length(); k++, c++) {
796             UChar u = c[0];
797             if (u >= doNotEscape.size()) {
798                 builder.append(static_cast<LChar>('%'));
799                 builder.append(static_cast<LChar>('u'));
800                 appendByteAsHex(u >> 8, builder);
801                 appendByteAsHex(u & 0xFF, builder);
802             } else if (doNotEscape.get(static_cast<LChar>(u)))
803                 builder.append(*c);
804             else {
805                 builder.append(static_cast<LChar>('%'));
806                 appendByteAsHex(u, builder);
807             }
808         }
809
810         return builder.build(exec);
811     }));
812 }
813
814 EncodedJSValue JSC_HOST_CALL globalFuncUnescape(ExecState* exec)
815 {
816     return JSValue::encode(toStringView(exec, exec->argument(0), [&] (StringView view) {
817         // We use int for k and length intentionally since we would like to evaluate
818         // the condition `k <= length -6` even if length is less than 6.
819         int k = 0;
820         int length = view.length();
821
822         StringBuilder builder;
823         builder.reserveCapacity(length);
824
825         if (view.is8Bit()) {
826             const LChar* characters = view.characters8();
827             LChar convertedLChar;
828             while (k < length) {
829                 const LChar* c = characters + k;
830                 if (c[0] == '%' && k <= length - 6 && c[1] == 'u') {
831                     if (isASCIIHexDigit(c[2]) && isASCIIHexDigit(c[3]) && isASCIIHexDigit(c[4]) && isASCIIHexDigit(c[5])) {
832                         builder.append(Lexer<UChar>::convertUnicode(c[2], c[3], c[4], c[5]));
833                         k += 6;
834                         continue;
835                     }
836                 } else if (c[0] == '%' && k <= length - 3 && isASCIIHexDigit(c[1]) && isASCIIHexDigit(c[2])) {
837                     convertedLChar = LChar(Lexer<LChar>::convertHex(c[1], c[2]));
838                     c = &convertedLChar;
839                     k += 2;
840                 }
841                 builder.append(*c);
842                 k++;
843             }
844         } else {
845             const UChar* characters = view.characters16();
846
847             while (k < length) {
848                 const UChar* c = characters + k;
849                 UChar convertedUChar;
850                 if (c[0] == '%' && k <= length - 6 && c[1] == 'u') {
851                     if (isASCIIHexDigit(c[2]) && isASCIIHexDigit(c[3]) && isASCIIHexDigit(c[4]) && isASCIIHexDigit(c[5])) {
852                         convertedUChar = Lexer<UChar>::convertUnicode(c[2], c[3], c[4], c[5]);
853                         c = &convertedUChar;
854                         k += 5;
855                     }
856                 } else if (c[0] == '%' && k <= length - 3 && isASCIIHexDigit(c[1]) && isASCIIHexDigit(c[2])) {
857                     convertedUChar = UChar(Lexer<UChar>::convertHex(c[1], c[2]));
858                     c = &convertedUChar;
859                     k += 2;
860                 }
861                 k++;
862                 builder.append(*c);
863             }
864         }
865
866         return jsString(exec, builder.toString());
867     }));
868 }
869
870 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeError(ExecState* exec)
871 {
872     VM& vm = exec->vm();
873     auto scope = DECLARE_THROW_SCOPE(vm);
874     return throwVMTypeError(exec, scope);
875 }
876     
877 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeErrorArgumentsCalleeAndCaller(ExecState* exec)
878 {
879     VM& vm = exec->vm();
880     auto scope = DECLARE_THROW_SCOPE(vm);
881     return throwVMTypeError(exec, scope, "'arguments', 'callee', and 'caller' cannot be accessed in this context.");
882 }
883
884 EncodedJSValue JSC_HOST_CALL globalFuncProtoGetter(ExecState* exec)
885 {
886     VM& vm = exec->vm();
887     auto scope = DECLARE_THROW_SCOPE(vm);
888
889     JSValue thisValue = exec->thisValue().toThis(exec, StrictMode);
890     if (thisValue.isUndefinedOrNull())
891         return throwVMTypeError(exec, scope, ASCIILiteral(ObjectProtoCalledOnNullOrUndefinedError));
892
893     JSObject* thisObject = jsDynamicCast<JSObject*>(thisValue);
894     if (!thisObject) {
895         JSObject* prototype = exec->thisValue().synthesizePrototype(exec);
896         if (UNLIKELY(!prototype))
897             return JSValue::encode(JSValue());
898         return JSValue::encode(prototype);
899     }
900
901     return JSValue::encode(thisObject->getPrototype(vm, exec));
902 }
903
904 EncodedJSValue JSC_HOST_CALL globalFuncProtoSetter(ExecState* exec)
905 {
906     VM& vm = exec->vm();
907     auto scope = DECLARE_THROW_SCOPE(vm);
908
909     JSValue thisValue = exec->thisValue().toThis(exec, StrictMode);
910     if (thisValue.isUndefinedOrNull())
911         return throwVMTypeError(exec, scope, ASCIILiteral(ObjectProtoCalledOnNullOrUndefinedError));
912
913     JSValue value = exec->argument(0);
914
915     JSObject* thisObject = jsDynamicCast<JSObject*>(thisValue);
916
917     // Setting __proto__ of a primitive should have no effect.
918     if (!thisObject)
919         return JSValue::encode(jsUndefined());
920
921     // Setting __proto__ to a non-object, non-null value is silently ignored to match Mozilla.
922     if (!value.isObject() && !value.isNull())
923         return JSValue::encode(jsUndefined());
924
925     bool shouldThrowIfCantSet = true;
926     thisObject->setPrototype(vm, exec, value, shouldThrowIfCantSet);
927     return JSValue::encode(jsUndefined());
928 }
929     
930 EncodedJSValue JSC_HOST_CALL globalFuncBuiltinLog(ExecState* exec)
931 {
932     dataLog(exec->argument(0).toWTFString(exec), "\n");
933     return JSValue::encode(jsUndefined());
934 }
935
936 EncodedJSValue JSC_HOST_CALL globalFuncImportModule(ExecState* exec)
937 {
938     VM& vm = exec->vm();
939     auto catchScope = DECLARE_CATCH_SCOPE(vm);
940
941     auto* globalObject = exec->lexicalGlobalObject();
942
943     auto* promise = JSPromiseDeferred::create(exec, globalObject);
944     RETURN_IF_EXCEPTION(catchScope, { });
945
946     auto sourceOrigin = exec->callerSourceOrigin();
947     if (sourceOrigin.isNull()) {
948         promise->reject(exec, createError(exec, ASCIILiteral("Could not resolve the module specifier.")));
949         return JSValue::encode(promise->promise());
950     }
951
952     RELEASE_ASSERT(exec->argumentCount() == 1);
953     auto* specifier = exec->uncheckedArgument(0).toString(exec);
954     if (Exception* exception = catchScope.exception()) {
955         catchScope.clearException();
956         promise->reject(exec, exception);
957         return JSValue::encode(promise->promise());
958     }
959
960     auto* internalPromise = globalObject->moduleLoader()->importModule(exec, specifier, sourceOrigin);
961     if (Exception* exception = catchScope.exception()) {
962         catchScope.clearException();
963         promise->reject(exec, exception);
964         return JSValue::encode(promise->promise());
965     }
966     promise->resolve(exec, internalPromise);
967
968     return JSValue::encode(promise->promise());
969 }
970
971 } // namespace JSC