johnson 1.2.0 → 2.0.0.pre0

data/vendor/tracemonkey/xpconnect/src/XPCIDispatchClassInfo.cpp

@@ -0,0 +1,139 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
+ * ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is the IDispatch implementation for XPConnect.
+ *
+ * The Initial Developer of the Original Code is
+ * David Bradley.
+ * Portions created by the Initial Developer are Copyright (C) 2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Alternatively, the contents of this file may be used under the terms of
+ * either the GNU General Public License Version 2 or later (the "GPL"), or
+ * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+ * in which case the provisions of the GPL or the LGPL are applicable instead
+ * of those above. If you wish to allow use of your version of this file only
+ * under the terms of either the GPL or the LGPL, and not to allow others to
+ * use your version of this file under the terms of the MPL, indicate your
+ * decision by deleting the provisions above and replace them with the notice
+ * and other provisions required by the GPL or the LGPL. If you do not delete
+ * the provisions above, a recipient may use your version of this file under
+ * the terms of any one of the MPL, the GPL or the LGPL.
+ *
+ * ***** END LICENSE BLOCK ***** */
+
+#include "xpcprivate.h"
+#include "nsCRT.h"
+
+NS_IMPL_ISUPPORTS1(XPCIDispatchClassInfo, nsIClassInfo)
+
+XPCIDispatchClassInfo* XPCIDispatchClassInfo::sInstance = nsnull;
+
+XPCIDispatchClassInfo* XPCIDispatchClassInfo::GetSingleton()
+{
+    if(!sInstance)
+    {
+        sInstance = new XPCIDispatchClassInfo;
+        NS_IF_ADDREF(sInstance);
+    }
+    NS_IF_ADDREF(sInstance);
+    return sInstance;
+}
+
+void XPCIDispatchClassInfo::FreeSingleton()
+{
+    NS_IF_RELEASE(sInstance);
+    sInstance = nsnull;
+}
+
+/* void getInterfaces (out PRUint32 count, [array, size_is (count), retval] 
+                       out nsIIDPtr array); */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetInterfaces(PRUint32 *count, nsIID * **array)
+{
+    *count = 0;
+    *array = static_cast<nsIID**>(nsMemory::Alloc(sizeof(nsIID*)));
+    NS_ENSURE_TRUE(*array, NS_ERROR_OUT_OF_MEMORY);
+
+    **array = static_cast<nsIID *>(nsMemory::Clone(&NSID_IDISPATCH,
+                                                      sizeof(NSID_IDISPATCH)));
+    if(!**array)
+    {
+        nsMemory::Free(*array);
+        *array = nsnull;
+        return NS_ERROR_OUT_OF_MEMORY;
+    }
+
+    *count = 1;
+    return NS_OK;
+}
+
+/* nsISupports getHelperForLanguage (in PRUint32 language); */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetHelperForLanguage(PRUint32 language, 
+                                            nsISupports **retval)
+{
+    *retval = nsnull;
+    return NS_OK;
+}
+
+/* readonly attribute string contractID; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetContractID(char * *aContractID)
+{
+    *aContractID = nsnull;
+    return NS_OK;
+}
+
+/* readonly attribute string classDescription; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetClassDescription(char * *aClassDescription)
+{
+    *aClassDescription = nsCRT::strdup("IDispatch");
+    return *aClassDescription ? NS_OK : NS_ERROR_OUT_OF_MEMORY;
+}
+
+/* readonly attribute nsCIDPtr classID; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetClassID(nsCID * *aClassID)
+{
+    *aClassID = nsnull;
+    return NS_OK;
+}
+
+/* readonly attribute PRUint32 implementationLanguage; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetImplementationLanguage(
+    PRUint32 *aImplementationLanguage)
+{
+    *aImplementationLanguage = nsIProgrammingLanguage::UNKNOWN;
+    return NS_OK;
+}
+
+/* readonly attribute PRUint32 flags; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetFlags(PRUint32 *aFlags)
+{
+    *aFlags = nsIClassInfo::DOM_OBJECT;
+    return NS_OK;
+}
+
+/* [notxpcom] readonly attribute nsCID classIDNoAlloc; */
+NS_IMETHODIMP 
+XPCIDispatchClassInfo::GetClassIDNoAlloc(nsCID *aClassIDNoAlloc)
+{
+    return NS_ERROR_NOT_AVAILABLE;
+}

data/vendor/tracemonkey/xpconnect/src/XPCIDispatchExtension.cpp

@@ -0,0 +1,362 @@
+/* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1/GPL 2.0/LGPL 2.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is the IDispatch implementation for XPConnect.
+ *
+ * The Initial Developer of the Original Code is
+ * David Bradley.
+ * Portions created by the Initial Developer are Copyright (C) 2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Alternatively, the contents of this file may be used under the terms of
+ * either the GNU General Public License Version 2 or later (the "GPL"), or
+ * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+ * in which case the provisions of the GPL or the LGPL are applicable instead
+ * of those above. If you wish to allow use of your version of this file only
+ * under the terms of either the GPL or the LGPL, and not to allow others to
+ * use your version of this file under the terms of the MPL, indicate your
+ * decision by deleting the provisions above and replace them with the notice
+ * and other provisions required by the GPL or the LGPL. If you do not delete
+ * the provisions above, a recipient may use your version of this file under
+ * the terms of any one of the MPL, the GPL or the LGPL.
+ *
+ * ***** END LICENSE BLOCK ***** */
+
+#include "xpcprivate.h"
+
+static const char* const IDISPATCH_NAME = "IDispatch";
+
+#define XPC_IDISPATCH_CTOR_MAX_ARG_LEN 2000
+
+PRBool XPCIDispatchExtension::mIsEnabled = PR_TRUE;
+
+static JSBool
+CommonConstructor(JSContext *cx, int name, JSObject *obj, uintN argc,
+                  jsval *argv, jsval *rval, PRBool enforceSecurity)
+{
+    XPCCallContext ccx(JS_CALLER, cx, JS_GetGlobalObject(cx));
+    // Check if IDispatch is enabled, fail if not
+    if(!nsXPConnect::IsIDispatchEnabled())
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_IDISPATCH_NOT_ENABLED, ccx);
+        return JS_FALSE;
+    }
+    XPCJSRuntime *rt = ccx.GetRuntime();
+    if(!rt)
+    {
+        XPCThrower::Throw(NS_ERROR_UNEXPECTED, ccx);
+        return JS_FALSE;
+    } 
+    nsIXPCSecurityManager* sm = ccx.GetXPCContext()
+        ->GetAppropriateSecurityManager(nsIXPCSecurityManager::HOOK_CALL_METHOD);
+    XPCWrappedNative * wrapper = ccx.GetWrapper();
+    if(sm && NS_FAILED(sm->CanAccess(nsIXPCSecurityManager::ACCESS_CALL_METHOD,
+                                      &ccx, ccx, ccx.GetFlattenedJSObject(),
+                                      wrapper->GetIdentityObject(),
+                                      wrapper->GetClassInfo(),
+                                      rt->GetStringJSVal(name),
+                                      wrapper->GetSecurityInfoAddr())))
+    {
+        // Security manager will have set an exception
+        return JS_FALSE;
+    }
+    // Make sure we were called with one string parameter
+    if(argc != 1 || (argc == 1 && !JSVAL_IS_STRING(argv[0])))
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+        return JS_FALSE;
+    }
+
+    JSString* str = JSVAL_TO_STRING(argv[0]);
+    PRUint32 len = JS_GetStringLength(str);
+
+    // Cap constructor argument length to keep from crashing in string
+    // code.
+    if(len > XPC_IDISPATCH_CTOR_MAX_ARG_LEN)
+    {
+      XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+      return JS_FALSE;
+    }
+
+    jschar * className = JS_GetStringChars(str);
+    CComBSTR bstrClassName(len, reinterpret_cast<const WCHAR *>(className));
+    if(!bstrClassName)
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+        return JS_FALSE;
+    }
+    // Instantiate the desired COM object
+    CComPtr<IDispatch> pDispatch;
+    HRESULT rv = XPCDispObject::COMCreateInstance(ccx, bstrClassName,
+                                                  enforceSecurity, &pDispatch);
+    if(FAILED(rv))
+    {
+        XPCThrower::ThrowCOMError(ccx, rv, NS_ERROR_XPC_COM_CREATE_FAILED);
+        return JS_FALSE;
+    }
+    // Get a wrapper for our object
+    nsCOMPtr<nsIXPConnectJSObjectHolder> holder;
+    nsresult nsrv = ccx.GetXPConnect()->WrapNative(
+        ccx, ccx.GetOperandJSObject(), reinterpret_cast<nsISupports*>(pDispatch.p),
+        NSID_IDISPATCH, getter_AddRefs(holder));
+    if(NS_FAILED(nsrv))
+    {
+        XPCThrower::Throw(nsrv, ccx);
+        return JS_FALSE;
+    }
+    // get and return the JS object wrapper
+    JSObject * jsobj;
+    nsrv = holder->GetJSObject(&jsobj);
+    if(NS_FAILED(nsrv))
+    {
+        XPCThrower::Throw(nsrv, ccx);
+        return JS_FALSE;
+    }
+    *rval = OBJECT_TO_JSVAL(jsobj);
+    return JS_TRUE;
+}
+
+static JSBool
+COMObjectConstructor(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, 
+                     jsval *rval)
+{
+    return CommonConstructor(cx, XPCJSRuntime::IDX_COM_OBJECT, obj, argc,
+                             argv, rval, PR_FALSE);
+}
+
+static JSBool
+ActiveXConstructor(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, 
+                   jsval *rval)
+{
+    return CommonConstructor(cx, XPCJSRuntime::IDX_ACTIVEX_OBJECT, obj, argc, argv,
+                             rval, PR_TRUE);
+}
+
+static JSBool
+ActiveXSupports(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, 
+                jsval *rval)
+{
+    XPCCallContext ccx(JS_CALLER, cx, JS_GetGlobalObject(cx));
+    // Check if IDispatch is enabled, fail if not
+    if(!nsXPConnect::IsIDispatchEnabled())
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_IDISPATCH_NOT_ENABLED, ccx);
+        return JS_FALSE;
+    }
+    XPCJSRuntime *rt = ccx.GetRuntime();
+    if(!rt)
+    {
+        XPCThrower::Throw(NS_ERROR_UNEXPECTED, ccx);
+        return JS_FALSE;
+    } 
+    // Make sure we were called with one string parameter
+    if(argc != 1 || (argc == 1 && !JSVAL_IS_STRING(argv[0])))
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+        return JS_FALSE;
+    }
+    PRUint32 len;
+    jschar * className = xpc_JSString2String(ccx, argv[0], &len);
+    CComBSTR bstrClassName(len, reinterpret_cast<const WCHAR *>(className));
+    if(!className)
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+        return JS_FALSE;
+    }
+    CLSID classID = CLSID_NULL;
+    HRESULT hr = CLSIDFromString(bstrClassName, &classID);
+    if(FAILED(hr) || ::IsEqualCLSID(classID, CLSID_NULL))
+    {
+        XPCThrower::Throw(NS_ERROR_XPC_COM_INVALID_CLASS_ID, ccx);
+        return JS_FALSE;
+    }
+    // Instantiate the desired COM object
+    HRESULT rv = XPCDispObject::SecurityCheck(ccx, classID);
+    *rval = BOOLEAN_TO_JSVAL(SUCCEEDED(rv));
+    return JS_TRUE;
+}
+
+class xpcFunctionDefiner
+{
+public:
+    xpcFunctionDefiner(JSContext * aJSContext);
+    JSFunction * Define(JSObject * globalObject, uintN aNameIndex,
+                        JSNative aCall);
+private:
+    XPCJSRuntime * m_Runtime;
+    JSContext * m_JSContext;
+};
+
+inline
+xpcFunctionDefiner::xpcFunctionDefiner(JSContext * aJSContext) : 
+    m_Runtime(nsXPConnect::GetRuntimeInstance()), m_JSContext(aJSContext)
+{
+    NS_ASSERTION(m_Runtime, "nsXPConnect::GetRuntimeInstance() returned null");
+    NS_ASSERTION(aJSContext, "xpcFunctionDefiner constructor passed a null context");
+}
+
+inline
+JSFunction * xpcFunctionDefiner::Define(JSObject * globalObject,
+                                        uintN aNameIndex, JSNative aCall)
+{
+    return JS_DefineFunction(m_JSContext, globalObject,
+                      m_Runtime->GetStringName(aNameIndex),
+                      aCall, 1, JSPROP_PERMANENT | JSPROP_READONLY);
+}
+
+JSBool XPCIDispatchExtension::Initialize(JSContext * aJSContext,
+                                         JSObject * aGlobalJSObj)
+{
+    xpcFunctionDefiner fd(aJSContext);
+    JSFunction * func = fd.Define(aGlobalJSObj,
+                                  XPCJSRuntime::IDX_ACTIVEX_OBJECT,
+                                  ActiveXConstructor);
+    if(!func)
+        return JS_FALSE;
+
+    JSObject * funcObject = JS_GetFunctionObject(func);
+    if(!funcObject)
+        return JS_FALSE;
+
+    if(!fd.Define(funcObject, XPCJSRuntime::IDX_ACTIVEX_SUPPORTS, ActiveXSupports))
+        return JS_FALSE;
+
+#ifdef XPC_COMOBJECT
+    if(!fd.Define(aGlobalJSObj, XPCJSRuntime::IDX_COM_OBJECT, COMObjectConstructor))
+        return JS_FALSE;
+#endif
+    return JS_TRUE;
+}
+
+JSBool XPCIDispatchExtension::DefineProperty(XPCCallContext & ccx, 
+                                             JSObject *obj, jsval idval,
+                                             XPCWrappedNative* wrapperToReflectInterfaceNames,
+                                             uintN propFlags, JSBool* resolved)
+{
+    if(!JSVAL_IS_STRING(idval))
+        return JS_FALSE;
+    // Look up the native interface for IDispatch and then find a tearoff
+    XPCNativeInterface* iface = XPCNativeInterface::GetNewOrUsed(ccx,
+                                                                 "IDispatch");
+    // The native interface isn't defined so just exit with an error
+    if(iface == nsnull)
+        return JS_FALSE;
+    XPCWrappedNativeTearOff* to = 
+        wrapperToReflectInterfaceNames->LocateTearOff(ccx, iface);
+    // This object has no IDispatch interface so bail.
+    if(to == nsnull)
+        return JS_FALSE;
+    // Look up the member in the interface
+    const XPCDispInterface::Member * member = to->GetIDispatchInfo()->FindMember(idval);
+    if(!member)
+    {
+        // IDispatch is case insensitive, so if we don't find a case sensitive
+        // match, we'll try a more expensive case-insensisitive search
+        // TODO: We need to create cleaner solution that doesn't create
+        // multiple properties of different case on the JS Object
+        member = to->GetIDispatchInfo()->FindMemberCI(ccx, idval);
+        if(!member)
+            return JS_FALSE;
+    }
+    // Get the function object
+    jsval funval;
+    if(!member->GetValue(ccx, iface, &funval))
+        return JS_FALSE;
+    // Protect the jsval 
+    AUTO_MARK_JSVAL(ccx, funval);
+    // clone a function we can use for this object 
+    JSObject* funobj = xpc_CloneJSFunction(ccx, JSVAL_TO_OBJECT(funval), obj);
+    if(!funobj)
+        return JS_FALSE;
+    jsid id;
+    // If this is a function or a parameterized property
+    if(member->IsFunction() || member->IsParameterizedProperty())
+    {
+        // define the function on the object
+        AutoResolveName arn(ccx, idval);
+        if(resolved)
+            *resolved = JS_TRUE;
+        return JS_ValueToId(ccx, idval, &id) &&
+               JS_DefinePropertyById(ccx, obj, id, OBJECT_TO_JSVAL(funobj),
+                                     nsnull, nsnull, propFlags);
+    }
+    // Define the property on the object
+    NS_ASSERTION(member->IsProperty(), "way broken!");
+    propFlags |= JSPROP_GETTER | JSPROP_SHARED;
+    JSPropertyOp getter = JS_DATA_TO_FUNC_PTR(JSPropertyOp, funobj);
+    JSPropertyOp setter;
+    if(member->IsSetter())
+    {
+        propFlags |= JSPROP_SETTER;
+        propFlags &= ~JSPROP_READONLY;
+        setter = getter;
+    }
+    else
+    {
+        setter = js_GetterOnlyPropertyStub;
+    }
+    AutoResolveName arn(ccx, idval);
+    if(resolved)
+        *resolved = JS_TRUE;
+    return JS_ValueToId(ccx, idval, &id) &&
+           JS_DefinePropertyById(ccx, obj, id, JSVAL_VOID, getter, setter,
+                                 propFlags);
+
+}
+
+JSBool XPCIDispatchExtension::Enumerate(XPCCallContext& ccx, JSObject* obj,
+                                        XPCWrappedNative * wrapper)
+{
+    XPCNativeInterface* iface = XPCNativeInterface::GetNewOrUsed(
+        ccx,&NSID_IDISPATCH);
+    if(!iface)
+        return JS_FALSE;
+
+    XPCWrappedNativeTearOff* tearoff = wrapper->FindTearOff(ccx, iface);
+    if(!tearoff)
+        return JS_FALSE;
+
+    XPCDispInterface* pInfo = tearoff->GetIDispatchInfo();
+    PRUint32 members = pInfo->GetMemberCount();
+    // Iterate over the members and force the properties to be resolved
+    for(PRUint32 index = 0; index < members; ++index)
+    {
+        const XPCDispInterface::Member & member = pInfo->GetMember(index);
+        jsval name = member.GetName();
+        if(!xpc_ForcePropertyResolve(ccx, obj, name))
+            return JS_FALSE;
+    }
+    return JS_TRUE;
+}
+
+nsresult XPCIDispatchExtension::IDispatchQIWrappedJS(nsXPCWrappedJS * self, 
+                                                     void ** aInstancePtr)
+{
+    // Lookup the root and create a tearoff based on that
+    nsXPCWrappedJS* root = self->GetRootWrapper();
+
+    if(!root->IsValid())
+    {
+        *aInstancePtr = nsnull;
+        return NS_NOINTERFACE;
+    }
+    XPCDispatchTearOff* tearOff = new XPCDispatchTearOff(root);
+    if(!tearOff)
+        return NS_ERROR_OUT_OF_MEMORY;
+    tearOff->AddRef();
+    *aInstancePtr = tearOff;
+    
+    return NS_OK;
+}