JavaScriptCore ios 源代码

/* * Copyright (C) 2006 Apple Computer, Inc. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE COMPUTER, INC. OR * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include "JavaScriptCore.h" #include "JSBasePrivate.h" #include "JSContextRefPrivate.h" #include "JSObjectRefPrivate.h" #include <math.h> #define ASSERT_DISABLED 0 #include <wtf/Assertions.h> #include <wtf/UnusedParam.h> #if COMPILER(MSVC) #include <wtf/MathExtras.h> static double nan(const char*) { return std::numeric_limits<double>::quiet_NaN(); } #endif static JSGlobalContextRef context; static int failed; static void assertEqualsAsBoolean(JSValueRef value, bool expectedValue) { if (JSValueToBoolean(context, value) != expectedValue) { fprintf(stderr, "assertEqualsAsBoolean failed: %p, %d\n", value, expectedValue); failed = 1; } } static void assertEqualsAsNumber(JSValueRef value, double expectedValue) { double number = JSValueToNumber(context, value, NULL); // FIXME <rdar://4668451> - On i386 the isnan(double) macro tries to map to the isnan(float) function, // causing a build break with -Wshorten-64-to-32 enabled. The issue is known by the appropriate team. // After that's resolved, we can remove these casts if (number != expectedValue && !(isnan((float)number) && isnan((float)expectedValue))) { fprintf(stderr, "assertEqualsAsNumber failed: %p, %lf\n", value, expectedValue); failed = 1; } } static void assertEqualsAsUTF8String(JSValueRef value, const char* expectedValue) { JSStringRef valueAsString = JSValueToStringCopy(context, value, NULL); size_t jsSize = JSStringGetMaximumUTF8CStringSize(valueAsString); char* jsBuffer = (char*)malloc(jsSize); JSStringGetUTF8CString(valueAsString, jsBuffer, jsSize); unsigned i; for (i = 0; jsBuffer[i]; i++) { if (jsBuffer[i] != expectedValue[i]) { fprintf(stderr, "assertEqualsAsUTF8String failed at character %d: %c(%d) != %c(%d)\n", i, jsBuffer[i], jsBuffer[i], expectedValue[i], expectedValue[i]); failed = 1; } } if (jsSize < strlen(jsBuffer) + 1) { fprintf(stderr, "assertEqualsAsUTF8String failed: jsSize was too small\n"); failed = 1; } free(jsBuffer); JSStringRelease(valueAsString); } static void assertEqualsAsCharactersPtr(JSValueRef value, const char* expectedValue) { JSStringRef valueAsString = JSValueToStringCopy(context, value, NULL); size_t jsLength = JSStringGetLength(valueAsString); const JSChar* jsBuffer = JSStringGetCharactersPtr(valueAsString); CFStringRef expectedValueAsCFString = CFStringCreateWithCString(kCFAllocatorDefault, expectedValue, kCFStringEncodingUTF8); CFIndex cfLength = CFStringGetLength(expectedValueAsCFString); UniChar* cfBuffer = (UniChar*)malloc(cfLength * sizeof(UniChar)); CFStringGetCharacters(expectedValueAsCFString, CFRangeMake(0, cfLength), cfBuffer); CFRelease(expectedValueAsCFString); if (memcmp(jsBuffer, cfBuffer, cfLength * sizeof(UniChar)) != 0) { fprintf(stderr, "assertEqualsAsCharactersPtr failed: jsBuffer != cfBuffer\n"); failed = 1; } if (jsLength != (size_t)cfLength) { fprintf(stderr, "assertEqualsAsCharactersPtr failed: jsLength(%ld) != cfLength(%ld)\n", jsLength, cfLength); failed = 1; } free(cfBuffer); JSStringRelease(valueAsString); } static bool timeZoneIsPST() { char timeZoneName[70]; struct tm gtm; memset(&gtm, 0, sizeof(gtm)); strftime(timeZoneName, sizeof(timeZoneName), "%Z", &gtm); return 0 == strcmp("PST", timeZoneName); } static JSValueRef jsGlobalValue; // non-stack value for testing JSValueProtect() /* MyObject pseudo-class */ static bool MyObject_hasProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName) { UNUSED_PARAM(context); UNUSED_PARAM(object); if (JSStringIsEqualToUTF8CString(propertyName, "alwaysOne") || JSStringIsEqualToUTF8CString(propertyName, "cantFind") || JSStringIsEqualToUTF8CString(propertyName, "throwOnGet") || JSStringIsEqualToUTF8CString(propertyName, "myPropertyName") || JSStringIsEqualToUTF8CString(propertyName, "hasPropertyLie") || JSStringIsEqualToUTF8CString(propertyName, "0")) { return true; } return false; } static JSValueRef MyObject_getProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception) { UNUSED_PARAM(context); UNUSED_PARAM(object); if (JSStringIsEqualToUTF8CString(propertyName, "alwaysOne")) { return JSValueMakeNumber(context, 1); } if (JSStringIsEqualToUTF8CString(propertyName, "myPropertyName")) { return JSValueMakeNumber(context, 1); } if (JSStringIsEqualToUTF8CString(propertyName, "cantFind")) { return JSValueMakeUndefined(context); } if (JSStringIsEqualToUTF8CString(propertyName, "hasPropertyLie")) { return 0; } if (JSStringIsEqualToUTF8CString(propertyName, "throwOnGet")) { return JSEvaluateScript(context, JSStringCreateWithUTF8CString("throw 'an exception'"), object, JSStringCreateWithUTF8CString("test script"), 1, exception); } if (JSStringIsEqualToUTF8CString(propertyName, "0")) { *exception = JSValueMakeNumber(context, 1); return JSValueMakeNumber(context, 1); } return JSValueMakeNull(context); } static bool MyObject_setProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef value, JSValueRef* exception) { UNUSED_PARAM(context); UNUSED_PARAM(object); UNUSED_PARAM(value); UNUSED_PARAM(exception); if (JSStringIsEqualToUTF8CString(propertyName, "cantSet")) return true; // pretend we set the property in order to swallow it if (JSStringIsEqualToUTF8CString(propertyName, "throwOnSet")) { JSEvaluateScript(context, JSStringCreateWithUTF8CString("throw 'an exception'"), object, JSStringCreateWithUTF8CString("test script"), 1, exception); } return false; } static bool MyObject_deleteProperty(JSContextRef context, JSObjectRef object, JSStringRef propertyName, JSValueRef* exception) { UNUSED_PARAM(context); UNUSED_PARAM(object); if (JSStringIsEqualToUTF8CString(propertyName, "cantDelete")) return true; if (JSStringIsEqualToUTF8CString(propertyName, "throwOnDelete")) { JSEvaluateScript(context, JSStringCreateWithUTF8CString("throw 'an exception'"), object, JSStringCreateWithUTF8CString("test script"), 1, exception); return fals