ThisTDZMode is no longer needed
[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, 2004, 2005, 2006, 2007, 2008, 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 "Interpreter.h"
30 #include "JSFunction.h"
31 #include "JSGlobalObject.h"
32 #include "JSString.h"
33 #include "JSStringBuilder.h"
34 #include "Lexer.h"
35 #include "LiteralParser.h"
36 #include "Nodes.h"
37 #include "JSCInlines.h"
38 #include "Parser.h"
39 #include "StackVisitor.h"
40 #include <wtf/dtoa.h>
41 #include <stdio.h>
42 #include <stdlib.h>
43 #include <wtf/ASCIICType.h>
44 #include <wtf/Assertions.h>
45 #include <wtf/HexNumber.h>
46 #include <wtf/MathExtras.h>
47 #include <wtf/StringExtras.h>
48 #include <wtf/text/StringBuilder.h>
49 #include <wtf/unicode/UTF8.h>
50
51 using namespace WTF;
52 using namespace Unicode;
53
54 namespace JSC {
55
56 template<unsigned charactersCount>
57 static Bitmap<256> makeCharacterBitmap(const char (&characters)[charactersCount])
58 {
59     Bitmap<256> bitmap;
60     for (unsigned i = 0; i < charactersCount; ++i)
61         bitmap.set(characters[i]);
62     return bitmap;
63 }
64
65 static JSValue encode(ExecState* exec, const Bitmap<256>& doNotEscape)
66 {
67     CString cstr = exec->argument(0).toString(exec)->view(exec).get().utf8(StrictConversion);
68     if (!cstr.data())
69         return exec->vm().throwException(exec, createURIError(exec, ASCIILiteral("String contained an illegal UTF-16 sequence.")));
70
71     JSStringBuilder builder;
72     const char* p = cstr.data();
73     for (size_t k = 0; k < cstr.length(); k++, p++) {
74         char c = *p;
75         if (c && doNotEscape.get(static_cast<LChar>(c)))
76             builder.append(static_cast<LChar>(c));
77         else {
78             builder.append(static_cast<LChar>('%'));
79             appendByteAsHex(c, builder);
80         }
81     }
82     return builder.build(exec);
83 }
84
85 template <typename CharType>
86 ALWAYS_INLINE
87 static JSValue decode(ExecState* exec, const CharType* characters, int length, const Bitmap<256>& doNotUnescape, bool strict)
88 {
89     JSStringBuilder builder;
90     int k = 0;
91     UChar u = 0;
92     while (k < length) {
93         const CharType* p = characters + k;
94         CharType c = *p;
95         if (c == '%') {
96             int charLen = 0;
97             if (k <= length - 3 && isASCIIHexDigit(p[1]) && isASCIIHexDigit(p[2])) {
98                 const char b0 = Lexer<CharType>::convertHex(p[1], p[2]);
99                 const int sequenceLen = UTF8SequenceLength(b0);
100                 if (sequenceLen && k <= length - sequenceLen * 3) {
101                     charLen = sequenceLen * 3;
102                     char sequence[5];
103                     sequence[0] = b0;
104                     for (int i = 1; i < sequenceLen; ++i) {
105                         const CharType* q = p + i * 3;
106                         if (q[0] == '%' && isASCIIHexDigit(q[1]) && isASCIIHexDigit(q[2]))
107                             sequence[i] = Lexer<CharType>::convertHex(q[1], q[2]);
108                         else {
109                             charLen = 0;
110                             break;
111                         }
112                     }
113                     if (charLen != 0) {
114                         sequence[sequenceLen] = 0;
115                         const int character = decodeUTF8Sequence(sequence);
116                         if (character < 0 || character >= 0x110000)
117                             charLen = 0;
118                         else if (character >= 0x10000) {
119                             // Convert to surrogate pair.
120                             builder.append(static_cast<UChar>(0xD800 | ((character - 0x10000) >> 10)));
121                             u = static_cast<UChar>(0xDC00 | ((character - 0x10000) & 0x3FF));
122                         } else
123                             u = static_cast<UChar>(character);
124                     }
125                 }
126             }
127             if (charLen == 0) {
128                 if (strict)
129                     return exec->vm().throwException(exec, createURIError(exec, ASCIILiteral("URI error")));
130                 // The only case where we don't use "strict" mode is the "unescape" function.
131                 // For that, it's good to support the wonky "%u" syntax for compatibility with WinIE.
132                 if (k <= length - 6 && p[1] == 'u'
133                         && isASCIIHexDigit(p[2]) && isASCIIHexDigit(p[3])
134                         && isASCIIHexDigit(p[4]) && isASCIIHexDigit(p[5])) {
135                     charLen = 6;
136                     u = Lexer<UChar>::convertUnicode(p[2], p[3], p[4], p[5]);
137                 }
138             }
139             if (charLen && (u == 0 || u >= 128 || !doNotUnescape.get(static_cast<LChar>(u)))) {
140                 builder.append(u);
141                 k += charLen;
142                 continue;
143             }
144         }
145         k++;
146         builder.append(c);
147     }
148     return builder.build(exec);
149 }
150
151 static JSValue decode(ExecState* exec, const Bitmap<256>& doNotUnescape, bool strict)
152 {
153     JSString::SafeView str = exec->argument(0).toString(exec)->view(exec);
154     
155     if (str.is8Bit())
156         return decode(exec, str.characters8(), str.length(), doNotUnescape, strict);
157     return decode(exec, str.characters16(), str.length(), doNotUnescape, strict);
158 }
159
160 bool isStrWhiteSpace(UChar c)
161 {
162     switch (c) {
163         // ECMA-262-5th 7.2 & 7.3
164         case 0x0009:
165         case 0x000A:
166         case 0x000B:
167         case 0x000C:
168         case 0x000D:
169         case 0x0020:
170         case 0x00A0:
171         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.
172         case 0x2028:
173         case 0x2029:
174         case 0xFEFF:
175             return true;
176         default:
177             return c > 0xFF && u_charType(c) == U_SPACE_SEPARATOR;
178     }
179 }
180
181 static int parseDigit(unsigned short c, int radix)
182 {
183     int digit = -1;
184
185     if (c >= '0' && c <= '9')
186         digit = c - '0';
187     else if (c >= 'A' && c <= 'Z')
188         digit = c - 'A' + 10;
189     else if (c >= 'a' && c <= 'z')
190         digit = c - 'a' + 10;
191
192     if (digit >= radix)
193         return -1;
194     return digit;
195 }
196
197 double parseIntOverflow(const LChar* s, unsigned length, int radix)
198 {
199     double number = 0.0;
200     double radixMultiplier = 1.0;
201
202     for (const LChar* p = s + length - 1; p >= s; p--) {
203         if (radixMultiplier == std::numeric_limits<double>::infinity()) {
204             if (*p != '0') {
205                 number = std::numeric_limits<double>::infinity();
206                 break;
207             }
208         } else {
209             int digit = parseDigit(*p, radix);
210             number += digit * radixMultiplier;
211         }
212
213         radixMultiplier *= radix;
214     }
215
216     return number;
217 }
218
219 static double parseIntOverflow(const UChar* s, unsigned length, int radix)
220 {
221     double number = 0.0;
222     double radixMultiplier = 1.0;
223
224     for (const UChar* p = s + length - 1; p >= s; p--) {
225         if (radixMultiplier == std::numeric_limits<double>::infinity()) {
226             if (*p != '0') {
227                 number = std::numeric_limits<double>::infinity();
228                 break;
229             }
230         } else {
231             int digit = parseDigit(*p, radix);
232             number += digit * radixMultiplier;
233         }
234
235         radixMultiplier *= radix;
236     }
237
238     return number;
239 }
240
241 static double parseIntOverflow(StringView string, int radix)
242 {
243     if (string.is8Bit())
244         return parseIntOverflow(string.characters8(), string.length(), radix);
245     return parseIntOverflow(string.characters16(), string.length(), radix);
246 }
247
248 // ES5.1 15.1.2.2
249 template <typename CharType>
250 ALWAYS_INLINE
251 static double parseInt(StringView s, const CharType* data, int radix)
252 {
253     // 1. Let inputString be ToString(string).
254     // 2. Let S be a newly created substring of inputString consisting of the first character that is not a
255     //    StrWhiteSpaceChar and all characters following that character. (In other words, remove leading white
256     //    space.) If inputString does not contain any such characters, let S be the empty string.
257     int length = s.length();
258     int p = 0;
259     while (p < length && isStrWhiteSpace(data[p]))
260         ++p;
261
262     // 3. Let sign be 1.
263     // 4. If S is not empty and the first character of S is a minus sign -, let sign be -1.
264     // 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.
265     double sign = 1;
266     if (p < length) {
267         if (data[p] == '+')
268             ++p;
269         else if (data[p] == '-') {
270             sign = -1;
271             ++p;
272         }
273     }
274
275     // 6. Let R = ToInt32(radix).
276     // 7. Let stripPrefix be true.
277     // 8. If R != 0,then
278     //   b. If R != 16, let stripPrefix be false.
279     // 9. Else, R == 0
280     //   a. LetR = 10.
281     // 10. If stripPrefix is true, then
282     //   a. If the length of S is at least 2 and the first two characters of S are either ―0x or ―0X,
283     //      then remove the first two characters from S and let R = 16.
284     // 11. If S contains any character that is not a radix-R digit, then let Z be the substring of S
285     //     consisting of all characters before the first such character; otherwise, let Z be S.
286     if ((radix == 0 || radix == 16) && length - p >= 2 && data[p] == '0' && (data[p + 1] == 'x' || data[p + 1] == 'X')) {
287         radix = 16;
288         p += 2;
289     } else if (radix == 0)
290         radix = 10;
291
292     // 8.a If R < 2 or R > 36, then return NaN.
293     if (radix < 2 || radix > 36)
294         return PNaN;
295
296     // 13. Let mathInt be the mathematical integer value that is represented by Z in radix-R notation, using the letters
297     //     A-Z and a-z for digits with values 10 through 35. (However, if R is 10 and Z contains more than 20 significant
298     //     digits, every significant digit after the 20th may be replaced by a 0 digit, at the option of the implementation;
299     //     and if R is not 2, 4, 8, 10, 16, or 32, then mathInt may be an implementation-dependent approximation to the
300     //     mathematical integer value that is represented by Z in radix-R notation.)
301     // 14. Let number be the Number value for mathInt.
302     int firstDigitPosition = p;
303     bool sawDigit = false;
304     double number = 0;
305     while (p < length) {
306         int digit = parseDigit(data[p], radix);
307         if (digit == -1)
308             break;
309         sawDigit = true;
310         number *= radix;
311         number += digit;
312         ++p;
313     }
314
315     // 12. If Z is empty, return NaN.
316     if (!sawDigit)
317         return PNaN;
318
319     // Alternate code path for certain large numbers.
320     if (number >= mantissaOverflowLowerBound) {
321         if (radix == 10) {
322             size_t parsedLength;
323             number = parseDouble(s.substring(firstDigitPosition, p - firstDigitPosition), parsedLength);
324         } else if (radix == 2 || radix == 4 || radix == 8 || radix == 16 || radix == 32)
325             number = parseIntOverflow(s.substring(firstDigitPosition, p - firstDigitPosition), radix);
326     }
327
328     // 15. Return sign x number.
329     return sign * number;
330 }
331
332 static double parseInt(StringView s, int radix)
333 {
334     if (s.is8Bit())
335         return parseInt(s, s.characters8(), radix);
336     return parseInt(s, s.characters16(), radix);
337 }
338
339 static const int SizeOfInfinity = 8;
340
341 template <typename CharType>
342 static bool isInfinity(const CharType* data, const CharType* end)
343 {
344     return (end - data) >= SizeOfInfinity
345         && data[0] == 'I'
346         && data[1] == 'n'
347         && data[2] == 'f'
348         && data[3] == 'i'
349         && data[4] == 'n'
350         && data[5] == 'i'
351         && data[6] == 't'
352         && data[7] == 'y';
353 }
354
355 // See ecma-262 6th 11.8.3
356 template <typename CharType>
357 static double jsBinaryIntegerLiteral(const CharType*& data, const CharType* end)
358 {
359     // Binary number.
360     data += 2;
361     const CharType* firstDigitPosition = data;
362     double number = 0;
363     while (true) {
364         number = number * 2 + (*data - '0');
365         ++data;
366         if (data == end)
367             break;
368         if (!isASCIIBinaryDigit(*data))
369             break;
370     }
371     if (number >= mantissaOverflowLowerBound)
372         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 2);
373
374     return number;
375 }
376
377 // See ecma-262 6th 11.8.3
378 template <typename CharType>
379 static double jsOctalIntegerLiteral(const CharType*& data, const CharType* end)
380 {
381     // Octal number.
382     data += 2;
383     const CharType* firstDigitPosition = data;
384     double number = 0;
385     while (true) {
386         number = number * 8 + (*data - '0');
387         ++data;
388         if (data == end)
389             break;
390         if (!isASCIIOctalDigit(*data))
391             break;
392     }
393     if (number >= mantissaOverflowLowerBound)
394         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 8);
395     
396     return number;
397 }
398
399 // See ecma-262 6th 11.8.3
400 template <typename CharType>
401 static double jsHexIntegerLiteral(const CharType*& data, const CharType* end)
402 {
403     // Hex number.
404     data += 2;
405     const CharType* firstDigitPosition = data;
406     double number = 0;
407     while (true) {
408         number = number * 16 + toASCIIHexValue(*data);
409         ++data;
410         if (data == end)
411             break;
412         if (!isASCIIHexDigit(*data))
413             break;
414     }
415     if (number >= mantissaOverflowLowerBound)
416         number = parseIntOverflow(firstDigitPosition, data - firstDigitPosition, 16);
417
418     return number;
419 }
420
421 // See ecma-262 6th 11.8.3
422 template <typename CharType>
423 static double jsStrDecimalLiteral(const CharType*& data, const CharType* end)
424 {
425     RELEASE_ASSERT(data < end);
426
427     size_t parsedLength;
428     double number = parseDouble(data, end - data, parsedLength);
429     if (parsedLength) {
430         data += parsedLength;
431         return number;
432     }
433
434     // Check for [+-]?Infinity
435     switch (*data) {
436     case 'I':
437         if (isInfinity(data, end)) {
438             data += SizeOfInfinity;
439             return std::numeric_limits<double>::infinity();
440         }
441         break;
442
443     case '+':
444         if (isInfinity(data + 1, end)) {
445             data += SizeOfInfinity + 1;
446             return std::numeric_limits<double>::infinity();
447         }
448         break;
449
450     case '-':
451         if (isInfinity(data + 1, end)) {
452             data += SizeOfInfinity + 1;
453             return -std::numeric_limits<double>::infinity();
454         }
455         break;
456     }
457
458     // Not a number.
459     return PNaN;
460 }
461
462 template <typename CharType>
463 static double toDouble(const CharType* characters, unsigned size)
464 {
465     const CharType* endCharacters = characters + size;
466
467     // Skip leading white space.
468     for (; characters < endCharacters; ++characters) {
469         if (!isStrWhiteSpace(*characters))
470             break;
471     }
472     
473     // Empty string.
474     if (characters == endCharacters)
475         return 0.0;
476     
477     double number;
478     if (characters[0] == '0' && characters + 2 < endCharacters) {
479         if ((characters[1] | 0x20) == 'x' && isASCIIHexDigit(characters[2]))
480             number = jsHexIntegerLiteral(characters, endCharacters);
481         else if ((characters[1] | 0x20) == 'o' && isASCIIOctalDigit(characters[2]))
482             number = jsOctalIntegerLiteral(characters, endCharacters);
483         else if ((characters[1] | 0x20) == 'b' && isASCIIBinaryDigit(characters[2]))
484             number = jsBinaryIntegerLiteral(characters, endCharacters);
485         else
486             number = jsStrDecimalLiteral(characters, endCharacters);
487     } else
488         number = jsStrDecimalLiteral(characters, endCharacters);
489     
490     // Allow trailing white space.
491     for (; characters < endCharacters; ++characters) {
492         if (!isStrWhiteSpace(*characters))
493             break;
494     }
495     if (characters != endCharacters)
496         return PNaN;
497     
498     return number;
499 }
500
501 // See ecma-262 6th 11.8.3
502 double jsToNumber(StringView s)
503 {
504     unsigned size = s.length();
505
506     if (size == 1) {
507         UChar c = s[0];
508         if (isASCIIDigit(c))
509             return c - '0';
510         if (isStrWhiteSpace(c))
511             return 0;
512         return PNaN;
513     }
514
515     if (s.is8Bit())
516         return toDouble(s.characters8(), size);
517     return toDouble(s.characters16(), size);
518 }
519
520 static double parseFloat(StringView s)
521 {
522     unsigned size = s.length();
523
524     if (size == 1) {
525         UChar c = s[0];
526         if (isASCIIDigit(c))
527             return c - '0';
528         return PNaN;
529     }
530
531     if (s.is8Bit()) {
532         const LChar* data = s.characters8();
533         const LChar* end = data + size;
534
535         // Skip leading white space.
536         for (; data < end; ++data) {
537             if (!isStrWhiteSpace(*data))
538                 break;
539         }
540
541         // Empty string.
542         if (data == end)
543             return PNaN;
544
545         return jsStrDecimalLiteral(data, end);
546     }
547
548     const UChar* data = s.characters16();
549     const UChar* end = data + size;
550
551     // Skip leading white space.
552     for (; data < end; ++data) {
553         if (!isStrWhiteSpace(*data))
554             break;
555     }
556
557     // Empty string.
558     if (data == end)
559         return PNaN;
560
561     return jsStrDecimalLiteral(data, end);
562 }
563
564 EncodedJSValue JSC_HOST_CALL globalFuncEval(ExecState* exec)
565 {
566     JSValue x = exec->argument(0);
567     if (!x.isString())
568         return JSValue::encode(x);
569
570     JSGlobalObject* globalObject = exec->lexicalGlobalObject();
571     if (!globalObject->evalEnabled()) {
572         exec->vm().throwException(exec, createEvalError(exec, globalObject->evalDisabledErrorMessage()));
573         return JSValue::encode(jsUndefined());
574     }
575
576     String s = x.toString(exec)->value(exec);
577     if (exec->hadException())
578         return JSValue::encode(jsUndefined());
579
580     if (s.is8Bit()) {
581         LiteralParser<LChar> preparser(exec, s.characters8(), s.length(), NonStrictJSON);
582         if (JSValue parsedObject = preparser.tryLiteralParse())
583             return JSValue::encode(parsedObject);
584     } else {
585         LiteralParser<UChar> preparser(exec, s.characters16(), s.length(), NonStrictJSON);
586         if (JSValue parsedObject = preparser.tryLiteralParse())
587             return JSValue::encode(parsedObject);        
588     }
589
590     JSGlobalObject* calleeGlobalObject = exec->callee()->globalObject();
591     VariableEnvironment emptyTDZVariables; // Indirect eval does not have access to the lexical scope.
592     EvalExecutable* eval = EvalExecutable::create(exec, makeSource(s), false, DerivedContextType::None, false, EvalContextType::None, &emptyTDZVariables);
593     if (!eval)
594         return JSValue::encode(jsUndefined());
595
596     return JSValue::encode(exec->interpreter()->execute(eval, exec, calleeGlobalObject->globalThis(), calleeGlobalObject->globalScope()));
597 }
598
599 EncodedJSValue JSC_HOST_CALL globalFuncParseInt(ExecState* exec)
600 {
601     JSValue value = exec->argument(0);
602     JSValue radixValue = exec->argument(1);
603
604     // Optimized handling for numbers:
605     // If the argument is 0 or a number in range 10^-6 <= n < INT_MAX+1, then parseInt
606     // results in a truncation to integer. In the case of -0, this is converted to 0.
607     //
608     // This is also a truncation for values in the range INT_MAX+1 <= n < 10^21,
609     // however these values cannot be trivially truncated to int since 10^21 exceeds
610     // even the int64_t range. Negative numbers are a little trickier, the case for
611     // values in the range -10^21 < n <= -1 are similar to those for integer, but
612     // values in the range -1 < n <= -10^-6 need to truncate to -0, not 0.
613     static const double tenToTheMinus6 = 0.000001;
614     static const double intMaxPlusOne = 2147483648.0;
615     if (value.isNumber()) {
616         double n = value.asNumber();
617         if (((n < intMaxPlusOne && n >= tenToTheMinus6) || !n) && radixValue.isUndefinedOrNull())
618             return JSValue::encode(jsNumber(static_cast<int32_t>(n)));
619     }
620
621     // If ToString throws, we shouldn't call ToInt32.
622     JSString::SafeView s = value.toString(exec)->view(exec);
623     if (exec->hadException())
624         return JSValue::encode(jsUndefined());
625
626     return JSValue::encode(jsNumber(parseInt(s.get(), radixValue.toInt32(exec))));
627 }
628
629 EncodedJSValue JSC_HOST_CALL globalFuncParseFloat(ExecState* exec)
630 {
631     return JSValue::encode(jsNumber(parseFloat(exec->argument(0).toString(exec)->view(exec).get())));
632 }
633
634 EncodedJSValue JSC_HOST_CALL globalFuncIsNaN(ExecState* exec)
635 {
636     return JSValue::encode(jsBoolean(std::isnan(exec->argument(0).toNumber(exec))));
637 }
638
639 EncodedJSValue JSC_HOST_CALL globalFuncIsFinite(ExecState* exec)
640 {
641     double n = exec->argument(0).toNumber(exec);
642     return JSValue::encode(jsBoolean(std::isfinite(n)));
643 }
644
645 EncodedJSValue JSC_HOST_CALL globalFuncDecodeURI(ExecState* exec)
646 {
647     static Bitmap<256> doNotUnescapeWhenDecodingURI = makeCharacterBitmap(
648         "#$&+,/:;=?@"
649     );
650
651     return JSValue::encode(decode(exec, doNotUnescapeWhenDecodingURI, true));
652 }
653
654 EncodedJSValue JSC_HOST_CALL globalFuncDecodeURIComponent(ExecState* exec)
655 {
656     static Bitmap<256> emptyBitmap;
657     return JSValue::encode(decode(exec, emptyBitmap, true));
658 }
659
660 EncodedJSValue JSC_HOST_CALL globalFuncEncodeURI(ExecState* exec)
661 {
662     static Bitmap<256> doNotEscapeWhenEncodingURI = makeCharacterBitmap(
663         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
664         "abcdefghijklmnopqrstuvwxyz"
665         "0123456789"
666         "!#$&'()*+,-./:;=?@_~"
667     );
668
669     return JSValue::encode(encode(exec, doNotEscapeWhenEncodingURI));
670 }
671
672 EncodedJSValue JSC_HOST_CALL globalFuncEncodeURIComponent(ExecState* exec)
673 {
674     static Bitmap<256> doNotEscapeWhenEncodingURIComponent = makeCharacterBitmap(
675         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
676         "abcdefghijklmnopqrstuvwxyz"
677         "0123456789"
678         "!'()*-._~"
679     );
680
681     return JSValue::encode(encode(exec, doNotEscapeWhenEncodingURIComponent));
682 }
683
684 EncodedJSValue JSC_HOST_CALL globalFuncEscape(ExecState* exec)
685 {
686     static Bitmap<256> doNotEscape = makeCharacterBitmap(
687         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
688         "abcdefghijklmnopqrstuvwxyz"
689         "0123456789"
690         "*+-./@_"
691     );
692
693     JSStringBuilder builder;
694     JSString::SafeView str = exec->argument(0).toString(exec)->view(exec);
695     if (str.is8Bit()) {
696         const LChar* c = str.characters8();
697         for (unsigned k = 0; k < str.length(); k++, c++) {
698             int u = c[0];
699             if (u && doNotEscape.get(static_cast<LChar>(u)))
700                 builder.append(*c);
701             else {
702                 builder.append(static_cast<LChar>('%'));
703                 appendByteAsHex(static_cast<LChar>(u), builder);
704             }
705         }
706
707         return JSValue::encode(builder.build(exec));        
708     }
709
710     const UChar* c = str.characters16();
711     for (unsigned k = 0; k < str.length(); k++, c++) {
712         int u = c[0];
713         if (u > 255) {
714             builder.append(static_cast<LChar>('%'));
715             builder.append(static_cast<LChar>('u'));
716             appendByteAsHex(u >> 8, builder);
717             appendByteAsHex(u & 0xFF, builder);
718         } else if (u != 0 && doNotEscape.get(static_cast<LChar>(u)))
719             builder.append(*c);
720         else {
721             builder.append(static_cast<LChar>('%'));
722             appendByteAsHex(u, builder);
723         }
724     }
725
726     return JSValue::encode(builder.build(exec));
727 }
728
729 EncodedJSValue JSC_HOST_CALL globalFuncUnescape(ExecState* exec)
730 {
731     StringBuilder builder;
732     JSString::SafeView str = exec->argument(0).toString(exec)->view(exec);
733     int k = 0;
734     int len = str.length();
735     
736     if (str.is8Bit()) {
737         const LChar* characters = str.characters8();
738         LChar convertedLChar;
739         while (k < len) {
740             const LChar* c = characters + k;
741             if (c[0] == '%' && k <= len - 6 && c[1] == 'u') {
742                 if (isASCIIHexDigit(c[2]) && isASCIIHexDigit(c[3]) && isASCIIHexDigit(c[4]) && isASCIIHexDigit(c[5])) {
743                     builder.append(Lexer<UChar>::convertUnicode(c[2], c[3], c[4], c[5]));
744                     k += 6;
745                     continue;
746                 }
747             } else if (c[0] == '%' && k <= len - 3 && isASCIIHexDigit(c[1]) && isASCIIHexDigit(c[2])) {
748                 convertedLChar = LChar(Lexer<LChar>::convertHex(c[1], c[2]));
749                 c = &convertedLChar;
750                 k += 2;
751             }
752             builder.append(*c);
753             k++;
754         }        
755     } else {
756         const UChar* characters = str.characters16();
757
758         while (k < len) {
759             const UChar* c = characters + k;
760             UChar convertedUChar;
761             if (c[0] == '%' && k <= len - 6 && c[1] == 'u') {
762                 if (isASCIIHexDigit(c[2]) && isASCIIHexDigit(c[3]) && isASCIIHexDigit(c[4]) && isASCIIHexDigit(c[5])) {
763                     convertedUChar = Lexer<UChar>::convertUnicode(c[2], c[3], c[4], c[5]);
764                     c = &convertedUChar;
765                     k += 5;
766                 }
767             } else if (c[0] == '%' && k <= len - 3 && isASCIIHexDigit(c[1]) && isASCIIHexDigit(c[2])) {
768                 convertedUChar = UChar(Lexer<UChar>::convertHex(c[1], c[2]));
769                 c = &convertedUChar;
770                 k += 2;
771             }
772             k++;
773             builder.append(*c);
774         }
775     }
776
777     return JSValue::encode(jsString(exec, builder.toString()));
778 }
779
780 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeError(ExecState* exec)
781 {
782     return throwVMTypeError(exec);
783 }
784
785 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeErrorCalleeAndCaller(ExecState* exec)
786 {
787     return throwVMTypeError(exec, "'callee' and 'caller' cannot be accessed in strict mode.");
788 }
789
790 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeErrorArgumentsAndCallerInStrictMode(ExecState* exec)
791 {
792     return throwVMTypeError(exec, "'caller' and 'arguments' cannot be accessed in strict mode.");
793 }
794
795 EncodedJSValue JSC_HOST_CALL globalFuncThrowTypeErrorArgumentsAndCallerInClassContext(ExecState* exec)
796 {
797     return throwVMTypeError(exec, "'caller' and 'arguments' cannot be accessed in class context.");
798 }
799
800 class GlobalFuncProtoGetterFunctor {
801 public:
802     GlobalFuncProtoGetterFunctor(ExecState* exec, JSObject* thisObject)
803         : m_exec(exec)
804         , m_hasSkippedFirstFrame(false)
805         , m_thisObject(thisObject)
806         , m_result(JSValue::encode(jsUndefined()))
807     {
808     }
809
810     EncodedJSValue result() { return m_result; }
811
812     StackVisitor::Status operator()(StackVisitor& visitor) const
813     {
814         if (!m_hasSkippedFirstFrame) {
815             m_hasSkippedFirstFrame = true;
816             return StackVisitor::Continue;
817         }
818
819         if (m_thisObject->allowsAccessFrom(visitor->callFrame()))
820             m_result = JSValue::encode(m_thisObject->getPrototype(m_exec->vm(), m_exec));
821
822         return StackVisitor::Done;
823     }
824
825 private:
826     ExecState* m_exec;
827     mutable bool m_hasSkippedFirstFrame;
828     JSObject* m_thisObject;
829     mutable EncodedJSValue m_result;
830 };
831
832 EncodedJSValue JSC_HOST_CALL globalFuncProtoGetter(ExecState* exec)
833 {
834     if (exec->thisValue().isUndefinedOrNull()) 
835         return throwVMError(exec, createTypeError(exec, "Can't convert undefined or null to object"));
836
837     JSObject* thisObject = jsDynamicCast<JSObject*>(exec->thisValue().toThis(exec, NotStrictMode));
838
839     if (!thisObject) {
840         JSObject* prototype = exec->thisValue().synthesizePrototype(exec);
841         if (UNLIKELY(!prototype))
842             return JSValue::encode(JSValue());
843         return JSValue::encode(prototype);
844     }
845
846     GlobalFuncProtoGetterFunctor functor(exec, thisObject);
847     // This can throw but it's just unneeded extra work to check for it. The return
848     // value from this function is only used as the return value from a host call.
849     // Therefore, the return value is only used if there wasn't an exception.
850     exec->iterate(functor);
851     return functor.result();
852 }
853
854 class GlobalFuncProtoSetterFunctor {
855 public:
856     GlobalFuncProtoSetterFunctor(JSObject* thisObject)
857         : m_hasSkippedFirstFrame(false)
858         , m_allowsAccess(false)
859         , m_thisObject(thisObject)
860     {
861     }
862
863     bool allowsAccess() const { return m_allowsAccess; }
864
865     StackVisitor::Status operator()(StackVisitor& visitor) const
866     {
867         if (!m_hasSkippedFirstFrame) {
868             m_hasSkippedFirstFrame = true;
869             return StackVisitor::Continue;
870         }
871
872         m_allowsAccess = m_thisObject->allowsAccessFrom(visitor->callFrame());
873         return StackVisitor::Done;
874     }
875
876 private:
877     mutable bool m_hasSkippedFirstFrame;
878     mutable bool m_allowsAccess;
879     JSObject* m_thisObject;
880 };
881
882 bool checkProtoSetterAccessAllowed(ExecState* exec, JSObject* object)
883 {
884     GlobalFuncProtoSetterFunctor functor(object);
885     exec->iterate(functor);
886     return functor.allowsAccess();
887 }
888
889 EncodedJSValue JSC_HOST_CALL globalFuncProtoSetter(ExecState* exec)
890 {
891     if (exec->thisValue().isUndefinedOrNull()) 
892         return throwVMError(exec, createTypeError(exec, "Can't convert undefined or null to object"));
893
894     JSValue value = exec->argument(0);
895
896     JSObject* thisObject = jsDynamicCast<JSObject*>(exec->thisValue().toThis(exec, NotStrictMode));
897
898     // Setting __proto__ of a primitive should have no effect.
899     if (!thisObject)
900         return JSValue::encode(jsUndefined());
901
902     if (!checkProtoSetterAccessAllowed(exec, thisObject))
903         return JSValue::encode(jsUndefined());
904
905     // Setting __proto__ to a non-object, non-null value is silently ignored to match Mozilla.
906     if (!value.isObject() && !value.isNull())
907         return JSValue::encode(jsUndefined());
908
909     VM& vm = exec->vm();
910     bool shouldThrowIfCantSet = true;
911     thisObject->setPrototype(vm, exec, value, shouldThrowIfCantSet);
912     return JSValue::encode(jsUndefined());
913 }
914     
915 EncodedJSValue JSC_HOST_CALL globalFuncBuiltinLog(ExecState* exec)
916 {
917     dataLog(exec->argument(0).toWTFString(exec), "\n");
918     return JSValue::encode(jsUndefined());
919 }
920
921 } // namespace JSC