mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
796 lines
21 KiB
C++
796 lines
21 KiB
C++
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/. */
|
|
|
|
/*
|
|
* JavaScript Debugging support - Value and Property support
|
|
*/
|
|
|
|
#include "jsd.h"
|
|
#include "jsapi.h"
|
|
#include "jsfriendapi.h"
|
|
|
|
#ifdef DEBUG
|
|
void JSD_ASSERT_VALID_VALUE(JSDValue* jsdval)
|
|
{
|
|
JS_ASSERT(jsdval);
|
|
JS_ASSERT(jsdval->nref > 0);
|
|
if(!JS_CLIST_IS_EMPTY(&jsdval->props))
|
|
{
|
|
JS_ASSERT(CHECK_BIT_FLAG(jsdval->flags, GOT_PROPS));
|
|
JS_ASSERT(!JSVAL_IS_PRIMITIVE(jsdval->val));
|
|
}
|
|
|
|
if(jsdval->proto)
|
|
{
|
|
JS_ASSERT(CHECK_BIT_FLAG(jsdval->flags, GOT_PROTO));
|
|
JS_ASSERT(jsdval->proto->nref > 0);
|
|
}
|
|
if(jsdval->parent)
|
|
{
|
|
JS_ASSERT(CHECK_BIT_FLAG(jsdval->flags, GOT_PARENT));
|
|
JS_ASSERT(jsdval->parent->nref > 0);
|
|
}
|
|
if(jsdval->ctor)
|
|
{
|
|
JS_ASSERT(CHECK_BIT_FLAG(jsdval->flags, GOT_CTOR));
|
|
JS_ASSERT(jsdval->ctor->nref > 0);
|
|
}
|
|
}
|
|
|
|
void JSD_ASSERT_VALID_PROPERTY(JSDProperty* jsdprop)
|
|
{
|
|
JS_ASSERT(jsdprop);
|
|
JS_ASSERT(jsdprop->name);
|
|
JS_ASSERT(jsdprop->name->nref > 0);
|
|
JS_ASSERT(jsdprop->val);
|
|
JS_ASSERT(jsdprop->val->nref > 0);
|
|
if(jsdprop->alias)
|
|
JS_ASSERT(jsdprop->alias->nref > 0);
|
|
}
|
|
#endif
|
|
|
|
|
|
JSBool
|
|
jsd_IsValueObject(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return !JSVAL_IS_PRIMITIVE(jsdval->val) || JSVAL_IS_NULL(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueNumber(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_NUMBER(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueInt(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_INT(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueDouble(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_DOUBLE(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueString(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_STRING(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueBoolean(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_BOOLEAN(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueNull(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_NULL(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueVoid(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_VOID(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValuePrimitive(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return JSVAL_IS_PRIMITIVE(jsdval->val);
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueFunction(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
return !JSVAL_IS_PRIMITIVE(jsdval->val) &&
|
|
JS_ObjectIsCallable(jsdc->dumbContext, JSVAL_TO_OBJECT(jsdval->val));
|
|
}
|
|
|
|
JSBool
|
|
jsd_IsValueNative(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSFunction* fun;
|
|
JSExceptionState* exceptionState;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(jsd_IsValueFunction(jsdc, jsdval))
|
|
{
|
|
JSBool ok = JS_FALSE;
|
|
JS_BeginRequest(cx);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, JSVAL_TO_OBJECT(jsdval->val));
|
|
exceptionState = JS_SaveExceptionState(cx);
|
|
fun = JSD_GetValueFunction(jsdc, jsdval);
|
|
JS_RestoreExceptionState(cx, exceptionState);
|
|
if(fun)
|
|
ok = JS_GetFunctionScript(cx, fun) ? JS_FALSE : JS_TRUE;
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
JS_ASSERT(fun);
|
|
return ok;
|
|
}
|
|
return !JSVAL_IS_PRIMITIVE(jsdval->val);
|
|
}
|
|
|
|
/***************************************************************************/
|
|
|
|
JSBool
|
|
jsd_GetValueBoolean(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
jsval val = jsdval->val;
|
|
if(!JSVAL_IS_BOOLEAN(val))
|
|
return JS_FALSE;
|
|
return JSVAL_TO_BOOLEAN(val);
|
|
}
|
|
|
|
int32_t
|
|
jsd_GetValueInt(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
jsval val = jsdval->val;
|
|
if(!JSVAL_IS_INT(val))
|
|
return 0;
|
|
return JSVAL_TO_INT(val);
|
|
}
|
|
|
|
double
|
|
jsd_GetValueDouble(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
if(!JSVAL_IS_DOUBLE(jsdval->val))
|
|
return 0;
|
|
return JSVAL_TO_DOUBLE(jsdval->val);
|
|
}
|
|
|
|
JSString*
|
|
jsd_GetValueString(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSExceptionState* exceptionState;
|
|
JSCompartment* oldCompartment = NULL;
|
|
jsval stringval;
|
|
JSString *string;
|
|
JSObject *scopeObj;
|
|
|
|
if(jsdval->string)
|
|
return jsdval->string;
|
|
|
|
/* Reuse the string without copying or re-rooting it */
|
|
if(JSVAL_IS_STRING(jsdval->val)) {
|
|
jsdval->string = JSVAL_TO_STRING(jsdval->val);
|
|
return jsdval->string;
|
|
}
|
|
|
|
JS_BeginRequest(cx);
|
|
|
|
/* Objects call JS_ValueToString in their own compartment. */
|
|
scopeObj = !JSVAL_IS_PRIMITIVE(jsdval->val) ? JSVAL_TO_OBJECT(jsdval->val) : jsdc->glob;
|
|
oldCompartment = JS_EnterCompartment(cx, scopeObj);
|
|
exceptionState = JS_SaveExceptionState(cx);
|
|
|
|
string = JS_ValueToString(cx, jsdval->val);
|
|
|
|
JS_RestoreExceptionState(cx, exceptionState);
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
oldCompartment = NULL;
|
|
|
|
if(string) {
|
|
stringval = STRING_TO_JSVAL(string);
|
|
oldCompartment = JS_EnterCompartment(cx, jsdc->glob);
|
|
}
|
|
if(!string || !JS_WrapValue(cx, &stringval)) {
|
|
if(oldCompartment)
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
return NULL;
|
|
}
|
|
|
|
jsdval->string = JSVAL_TO_STRING(stringval);
|
|
if(!JS_AddNamedStringRoot(cx, &jsdval->string, "ValueString"))
|
|
jsdval->string = NULL;
|
|
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
|
|
return jsdval->string;
|
|
}
|
|
|
|
JSString*
|
|
jsd_GetValueFunctionId(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSFunction* fun;
|
|
JSExceptionState* exceptionState;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(!jsdval->funName && jsd_IsValueFunction(jsdc, jsdval))
|
|
{
|
|
JS_BeginRequest(cx);
|
|
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, JSVAL_TO_OBJECT(jsdval->val));
|
|
exceptionState = JS_SaveExceptionState(cx);
|
|
fun = JSD_GetValueFunction(jsdc, jsdval);
|
|
JS_RestoreExceptionState(cx, exceptionState);
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
if(!fun)
|
|
return NULL;
|
|
jsdval->funName = JS_GetFunctionId(fun);
|
|
|
|
/* For compatibility we return "anonymous", not an empty string here. */
|
|
if (!jsdval->funName)
|
|
jsdval->funName = JS_GetAnonymousString(jsdc->jsrt);
|
|
}
|
|
return jsdval->funName;
|
|
}
|
|
|
|
/***************************************************************************/
|
|
|
|
/*
|
|
* Create a new JSD value referring to a jsval. Copy string values into the
|
|
* JSD compartment. Leave all other GCTHINGs in their native compartments
|
|
* and access them through cross-compartment calls.
|
|
*/
|
|
JSDValue*
|
|
jsd_NewValue(JSDContext* jsdc, jsval val)
|
|
{
|
|
JSDValue* jsdval;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(!(jsdval = (JSDValue*) calloc(1, sizeof(JSDValue))))
|
|
return NULL;
|
|
|
|
if(JSVAL_IS_GCTHING(val))
|
|
{
|
|
JSBool ok;
|
|
JS_BeginRequest(jsdc->dumbContext);
|
|
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, jsdc->glob);
|
|
|
|
ok = JS_AddNamedValueRoot(jsdc->dumbContext, &jsdval->val, "JSDValue");
|
|
if(ok && JSVAL_IS_STRING(val)) {
|
|
if(!JS_WrapValue(jsdc->dumbContext, &val)) {
|
|
ok = JS_FALSE;
|
|
}
|
|
}
|
|
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(jsdc->dumbContext);
|
|
if(!ok)
|
|
{
|
|
free(jsdval);
|
|
return NULL;
|
|
}
|
|
}
|
|
jsdval->val = val;
|
|
jsdval->nref = 1;
|
|
JS_INIT_CLIST(&jsdval->props);
|
|
|
|
return jsdval;
|
|
}
|
|
|
|
void
|
|
jsd_DropValue(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
JS_ASSERT(jsdval->nref > 0);
|
|
if(0 == --jsdval->nref)
|
|
{
|
|
jsd_RefreshValue(jsdc, jsdval);
|
|
if(JSVAL_IS_GCTHING(jsdval->val))
|
|
{
|
|
JS_BeginRequest(jsdc->dumbContext);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, jsdc->glob);
|
|
JS_RemoveValueRoot(jsdc->dumbContext, &jsdval->val);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(jsdc->dumbContext);
|
|
}
|
|
free(jsdval);
|
|
}
|
|
}
|
|
|
|
jsval
|
|
jsd_GetValueWrappedJSVal(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSObject* obj;
|
|
JSContext* cx;
|
|
jsval val = jsdval->val;
|
|
if (!JSVAL_IS_PRIMITIVE(val)) {
|
|
cx = JSD_GetDefaultJSContext(jsdc);
|
|
obj = JS_ObjectToOuterObject(cx, JSVAL_TO_OBJECT(val));
|
|
if (!obj)
|
|
{
|
|
JS_ClearPendingException(cx);
|
|
val = JSVAL_NULL;
|
|
}
|
|
else
|
|
val = OBJECT_TO_JSVAL(obj);
|
|
}
|
|
|
|
return val;
|
|
}
|
|
|
|
static JSDProperty* _newProperty(JSDContext* jsdc, JSPropertyDesc* pd,
|
|
unsigned additionalFlags)
|
|
{
|
|
JSDProperty* jsdprop;
|
|
|
|
if(!(jsdprop = (JSDProperty*) calloc(1, sizeof(JSDProperty))))
|
|
return NULL;
|
|
|
|
JS_INIT_CLIST(&jsdprop->links);
|
|
jsdprop->nref = 1;
|
|
jsdprop->flags = pd->flags | additionalFlags;
|
|
|
|
if(!(jsdprop->name = jsd_NewValue(jsdc, pd->id)))
|
|
goto new_prop_fail;
|
|
|
|
if(!(jsdprop->val = jsd_NewValue(jsdc, pd->value)))
|
|
goto new_prop_fail;
|
|
|
|
if((jsdprop->flags & JSDPD_ALIAS) &&
|
|
!(jsdprop->alias = jsd_NewValue(jsdc, pd->alias)))
|
|
goto new_prop_fail;
|
|
|
|
return jsdprop;
|
|
new_prop_fail:
|
|
jsd_DropProperty(jsdc, jsdprop);
|
|
return NULL;
|
|
}
|
|
|
|
static void _freeProps(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSDProperty* jsdprop;
|
|
|
|
while(jsdprop = (JSDProperty*)jsdval->props.next,
|
|
jsdprop != (JSDProperty*)&jsdval->props)
|
|
{
|
|
JS_REMOVE_AND_INIT_LINK(&jsdprop->links);
|
|
jsd_DropProperty(jsdc, jsdprop);
|
|
}
|
|
JS_ASSERT(JS_CLIST_IS_EMPTY(&jsdval->props));
|
|
CLEAR_BIT_FLAG(jsdval->flags, GOT_PROPS);
|
|
}
|
|
|
|
static JSBool _buildProps(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSObject *obj;
|
|
JSPropertyDescArray pda;
|
|
unsigned i;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
JS_ASSERT(JS_CLIST_IS_EMPTY(&jsdval->props));
|
|
JS_ASSERT(!(CHECK_BIT_FLAG(jsdval->flags, GOT_PROPS)));
|
|
JS_ASSERT(!JSVAL_IS_PRIMITIVE(jsdval->val));
|
|
|
|
if(JSVAL_IS_PRIMITIVE(jsdval->val))
|
|
return JS_FALSE;
|
|
|
|
obj = JSVAL_TO_OBJECT(jsdval->val);
|
|
|
|
JS_BeginRequest(cx);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, obj);
|
|
|
|
if(!JS_GetPropertyDescArray(cx, obj, &pda))
|
|
{
|
|
JS_EndRequest(cx);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
return JS_FALSE;
|
|
}
|
|
|
|
for(i = 0; i < pda.length; i++)
|
|
{
|
|
JSDProperty* prop = _newProperty(jsdc, &pda.array[i], 0);
|
|
if(!prop)
|
|
{
|
|
_freeProps(jsdc, jsdval);
|
|
break;
|
|
}
|
|
JS_APPEND_LINK(&prop->links, &jsdval->props);
|
|
}
|
|
JS_PutPropertyDescArray(cx, &pda);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
SET_BIT_FLAG(jsdval->flags, GOT_PROPS);
|
|
return !JS_CLIST_IS_EMPTY(&jsdval->props);
|
|
}
|
|
|
|
#undef DROP_CLEAR_VALUE
|
|
#define DROP_CLEAR_VALUE(jsdc, x) if(x){jsd_DropValue(jsdc,x); x = NULL;}
|
|
|
|
void
|
|
jsd_RefreshValue(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(jsdval->string)
|
|
{
|
|
/* if the jsval is a string, then we didn't need to root the string */
|
|
if(!JSVAL_IS_STRING(jsdval->val))
|
|
{
|
|
JS_BeginRequest(cx);
|
|
oldCompartment = JS_EnterCompartment(cx, jsdc->glob);
|
|
JS_RemoveStringRoot(cx, &jsdval->string);
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
}
|
|
jsdval->string = NULL;
|
|
}
|
|
|
|
jsdval->funName = NULL;
|
|
jsdval->className = NULL;
|
|
DROP_CLEAR_VALUE(jsdc, jsdval->proto);
|
|
DROP_CLEAR_VALUE(jsdc, jsdval->parent);
|
|
DROP_CLEAR_VALUE(jsdc, jsdval->ctor);
|
|
_freeProps(jsdc, jsdval);
|
|
jsdval->flags = 0;
|
|
}
|
|
|
|
/***************************************************************************/
|
|
|
|
unsigned
|
|
jsd_GetCountOfProperties(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSDProperty* jsdprop;
|
|
unsigned count = 0;
|
|
|
|
if(!(CHECK_BIT_FLAG(jsdval->flags, GOT_PROPS)))
|
|
if(!_buildProps(jsdc, jsdval))
|
|
return 0;
|
|
|
|
for(jsdprop = (JSDProperty*)jsdval->props.next;
|
|
jsdprop != (JSDProperty*)&jsdval->props;
|
|
jsdprop = (JSDProperty*)jsdprop->links.next)
|
|
{
|
|
count++;
|
|
}
|
|
return count;
|
|
}
|
|
|
|
JSDProperty*
|
|
jsd_IterateProperties(JSDContext* jsdc, JSDValue* jsdval, JSDProperty **iterp)
|
|
{
|
|
JSDProperty* jsdprop = *iterp;
|
|
if(!(CHECK_BIT_FLAG(jsdval->flags, GOT_PROPS)))
|
|
{
|
|
JS_ASSERT(!jsdprop);
|
|
if(!_buildProps(jsdc, jsdval))
|
|
return NULL;
|
|
}
|
|
|
|
if(!jsdprop)
|
|
jsdprop = (JSDProperty*)jsdval->props.next;
|
|
if(jsdprop == (JSDProperty*)&jsdval->props)
|
|
return NULL;
|
|
*iterp = (JSDProperty*)jsdprop->links.next;
|
|
|
|
JS_ASSERT(jsdprop);
|
|
jsdprop->nref++;
|
|
return jsdprop;
|
|
}
|
|
|
|
JSDProperty*
|
|
jsd_GetValueProperty(JSDContext* jsdc, JSDValue* jsdval, JSString* name)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
JSDProperty* jsdprop;
|
|
JSDProperty* iter = NULL;
|
|
JSObject* obj;
|
|
unsigned attrs = 0;
|
|
JSBool found;
|
|
JSPropertyDesc pd;
|
|
const jschar * nameChars;
|
|
size_t nameLen;
|
|
jsval val, nameval;
|
|
jsid nameid;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(!jsd_IsValueObject(jsdc, jsdval))
|
|
return NULL;
|
|
|
|
/* If we already have the prop, then return it */
|
|
while(NULL != (jsdprop = jsd_IterateProperties(jsdc, jsdval, &iter)))
|
|
{
|
|
JSString* propName = jsd_GetValueString(jsdc, jsdprop->name);
|
|
if(propName) {
|
|
int result;
|
|
if (JS_CompareStrings(cx, propName, name, &result) && !result)
|
|
return jsdprop;
|
|
}
|
|
JSD_DropProperty(jsdc, jsdprop);
|
|
}
|
|
/* Not found in property list, look it up explicitly */
|
|
|
|
if(!(obj = JSVAL_TO_OBJECT(jsdval->val)))
|
|
return NULL;
|
|
|
|
if (!(nameChars = JS_GetStringCharsZAndLength(cx, name, &nameLen)))
|
|
return NULL;
|
|
|
|
JS_BeginRequest(cx);
|
|
oldCompartment = JS_EnterCompartment(cx, obj);
|
|
|
|
JS_GetUCPropertyAttributes(cx, obj, nameChars, nameLen, &attrs, &found);
|
|
if (!found)
|
|
{
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
return NULL;
|
|
}
|
|
|
|
JS_ClearPendingException(cx);
|
|
|
|
if(!JS_GetUCProperty(cx, obj, nameChars, nameLen, &val))
|
|
{
|
|
if (JS_IsExceptionPending(cx))
|
|
{
|
|
if (!JS_GetPendingException(cx, &pd.value))
|
|
{
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
return NULL;
|
|
}
|
|
pd.flags = JSPD_EXCEPTION;
|
|
}
|
|
else
|
|
{
|
|
pd.flags = JSPD_ERROR;
|
|
pd.value = JSVAL_VOID;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
pd.value = val;
|
|
}
|
|
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
|
|
nameval = STRING_TO_JSVAL(name);
|
|
if (!JS_ValueToId(cx, nameval, &nameid) ||
|
|
!JS_IdToValue(cx, nameid, &pd.id)) {
|
|
return NULL;
|
|
}
|
|
|
|
pd.spare = 0;
|
|
pd.alias = JSVAL_NULL;
|
|
pd.flags |= (attrs & JSPROP_ENUMERATE) ? JSPD_ENUMERATE : 0
|
|
| (attrs & JSPROP_READONLY) ? JSPD_READONLY : 0
|
|
| (attrs & JSPROP_PERMANENT) ? JSPD_PERMANENT : 0;
|
|
|
|
return _newProperty(jsdc, &pd, JSDPD_HINTED);
|
|
}
|
|
|
|
/*
|
|
* Retrieve a JSFunction* from a JSDValue*. This differs from
|
|
* JS_ValueToFunction by fully unwrapping the object first.
|
|
*/
|
|
JSFunction*
|
|
jsd_GetValueFunction(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSObject *obj;
|
|
JSFunction *fun;
|
|
|
|
JSCompartment* oldCompartment = NULL;
|
|
if (JSVAL_IS_PRIMITIVE(jsdval->val))
|
|
return NULL;
|
|
|
|
obj = JS_UnwrapObject(JSVAL_TO_OBJECT(jsdval->val));
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, obj);
|
|
fun = JS_ValueToFunction(jsdc->dumbContext, OBJECT_TO_JSVAL(obj));
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
|
|
return fun;
|
|
}
|
|
|
|
JSDValue*
|
|
jsd_GetValuePrototype(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
if(!(CHECK_BIT_FLAG(jsdval->flags, GOT_PROTO)))
|
|
{
|
|
JSObject* obj;
|
|
JSObject* proto;
|
|
JS_ASSERT(!jsdval->proto);
|
|
SET_BIT_FLAG(jsdval->flags, GOT_PROTO);
|
|
if(JSVAL_IS_PRIMITIVE(jsdval->val))
|
|
return NULL;
|
|
obj = JSVAL_TO_OBJECT(jsdval->val);
|
|
if(!JS_GetPrototype(cx, obj, &proto))
|
|
return NULL;
|
|
if(!proto)
|
|
return NULL;
|
|
jsdval->proto = jsd_NewValue(jsdc, OBJECT_TO_JSVAL(proto));
|
|
}
|
|
if(jsdval->proto)
|
|
jsdval->proto->nref++;
|
|
return jsdval->proto;
|
|
}
|
|
|
|
JSDValue*
|
|
jsd_GetValueParent(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(!(CHECK_BIT_FLAG(jsdval->flags, GOT_PARENT)))
|
|
{
|
|
JSObject* obj;
|
|
JSObject* parent;
|
|
JS_ASSERT(!jsdval->parent);
|
|
SET_BIT_FLAG(jsdval->flags, GOT_PARENT);
|
|
if(JSVAL_IS_PRIMITIVE(jsdval->val))
|
|
return NULL;
|
|
obj = JSVAL_TO_OBJECT(jsdval->val);
|
|
JS_BeginRequest(jsdc->dumbContext);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, obj);
|
|
parent = JS_GetParentOrScopeChain(jsdc->dumbContext,obj);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(jsdc->dumbContext);
|
|
if(!parent)
|
|
return NULL;
|
|
jsdval->parent = jsd_NewValue(jsdc, OBJECT_TO_JSVAL(parent));
|
|
}
|
|
if(jsdval->parent)
|
|
jsdval->parent->nref++;
|
|
return jsdval->parent;
|
|
}
|
|
|
|
JSDValue*
|
|
jsd_GetValueConstructor(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSCompartment* oldCompartment = NULL;
|
|
JSContext* cx = jsdc->dumbContext;
|
|
|
|
if(!(CHECK_BIT_FLAG(jsdval->flags, GOT_CTOR)))
|
|
{
|
|
JSObject* obj;
|
|
JSObject* proto;
|
|
JSObject* ctor;
|
|
JS_ASSERT(!jsdval->ctor);
|
|
SET_BIT_FLAG(jsdval->flags, GOT_CTOR);
|
|
if(JSVAL_IS_PRIMITIVE(jsdval->val))
|
|
return NULL;
|
|
obj = JSVAL_TO_OBJECT(jsdval->val);
|
|
if(!JS_GetPrototype(cx, obj, &proto))
|
|
return NULL;
|
|
if(!proto)
|
|
return NULL;
|
|
JS_BeginRequest(jsdc->dumbContext);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, obj);
|
|
ctor = JS_GetConstructor(jsdc->dumbContext,proto);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(jsdc->dumbContext);
|
|
if(!ctor)
|
|
return NULL;
|
|
jsdval->ctor = jsd_NewValue(jsdc, OBJECT_TO_JSVAL(ctor));
|
|
}
|
|
if(jsdval->ctor)
|
|
jsdval->ctor->nref++;
|
|
return jsdval->ctor;
|
|
}
|
|
|
|
const char*
|
|
jsd_GetValueClassName(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
jsval val = jsdval->val;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if(!jsdval->className && !JSVAL_IS_PRIMITIVE(val))
|
|
{
|
|
JSObject* obj = JSVAL_TO_OBJECT(val);
|
|
JS_BeginRequest(jsdc->dumbContext);
|
|
oldCompartment = JS_EnterCompartment(jsdc->dumbContext, obj);
|
|
jsdval->className = JS_GetDebugClassName(obj);
|
|
JS_LeaveCompartment(jsdc->dumbContext, oldCompartment);
|
|
JS_EndRequest(jsdc->dumbContext);
|
|
}
|
|
return jsdval->className;
|
|
}
|
|
|
|
JSDScript*
|
|
jsd_GetScriptForValue(JSDContext* jsdc, JSDValue* jsdval)
|
|
{
|
|
JSContext* cx = jsdc->dumbContext;
|
|
jsval val = jsdval->val;
|
|
JSFunction* fun = NULL;
|
|
JSExceptionState* exceptionState;
|
|
JSScript* script = NULL;
|
|
JSDScript* jsdscript;
|
|
JSCompartment* oldCompartment = NULL;
|
|
|
|
if (!jsd_IsValueFunction(jsdc, jsdval))
|
|
return NULL;
|
|
|
|
JS_BeginRequest(cx);
|
|
oldCompartment = JS_EnterCompartment(cx, JSVAL_TO_OBJECT(val));
|
|
exceptionState = JS_SaveExceptionState(cx);
|
|
fun = JSD_GetValueFunction(jsdc, jsdval);
|
|
JS_RestoreExceptionState(cx, exceptionState);
|
|
if (fun)
|
|
script = JS_GetFunctionScript(cx, fun);
|
|
JS_LeaveCompartment(cx, oldCompartment);
|
|
JS_EndRequest(cx);
|
|
|
|
if (!script)
|
|
return NULL;
|
|
|
|
JSD_LOCK_SCRIPTS(jsdc);
|
|
jsdscript = jsd_FindJSDScript(jsdc, script);
|
|
JSD_UNLOCK_SCRIPTS(jsdc);
|
|
return jsdscript;
|
|
}
|
|
|
|
|
|
/***************************************************************************/
|
|
/***************************************************************************/
|
|
|
|
JSDValue*
|
|
jsd_GetPropertyName(JSDContext* jsdc, JSDProperty* jsdprop)
|
|
{
|
|
jsdprop->name->nref++;
|
|
return jsdprop->name;
|
|
}
|
|
|
|
JSDValue*
|
|
jsd_GetPropertyValue(JSDContext* jsdc, JSDProperty* jsdprop)
|
|
{
|
|
jsdprop->val->nref++;
|
|
return jsdprop->val;
|
|
}
|
|
|
|
JSDValue*
|
|
jsd_GetPropertyAlias(JSDContext* jsdc, JSDProperty* jsdprop)
|
|
{
|
|
if(jsdprop->alias)
|
|
jsdprop->alias->nref++;
|
|
return jsdprop->alias;
|
|
}
|
|
|
|
unsigned
|
|
jsd_GetPropertyFlags(JSDContext* jsdc, JSDProperty* jsdprop)
|
|
{
|
|
return jsdprop->flags;
|
|
}
|
|
|
|
void
|
|
jsd_DropProperty(JSDContext* jsdc, JSDProperty* jsdprop)
|
|
{
|
|
JS_ASSERT(jsdprop->nref > 0);
|
|
if(0 == --jsdprop->nref)
|
|
{
|
|
JS_ASSERT(JS_CLIST_IS_EMPTY(&jsdprop->links));
|
|
DROP_CLEAR_VALUE(jsdc, jsdprop->val);
|
|
DROP_CLEAR_VALUE(jsdc, jsdprop->name);
|
|
DROP_CLEAR_VALUE(jsdc, jsdprop->alias);
|
|
free(jsdprop);
|
|
}
|
|
}
|