1998-03-28 05:44:41 +03:00
|
|
|
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
|
|
|
*
|
1999-09-29 03:12:09 +04:00
|
|
|
* The contents of this file are subject to the Netscape 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/NPL/
|
1998-03-28 05:44:41 +03:00
|
|
|
*
|
1999-09-29 03:12:09 +04:00
|
|
|
* Software distributed under the License is distributed on an "AS
|
|
|
|
* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express oqr
|
|
|
|
* implied. See the License for the specific language governing
|
|
|
|
* rights and limitations under the License.
|
1998-03-28 05:44:41 +03:00
|
|
|
*
|
1999-09-29 03:12:09 +04:00
|
|
|
* The Original Code is Mozilla Communicator client code, released
|
|
|
|
* March 31, 1998.
|
|
|
|
*
|
|
|
|
* The Initial Developer of the Original Code is Netscape
|
1998-03-28 05:44:41 +03:00
|
|
|
* Communications Corporation. Portions created by Netscape are
|
1999-09-29 03:12:09 +04:00
|
|
|
* Copyright (C) 1998 Netscape Communications Corporation. All
|
|
|
|
* Rights Reserved.
|
|
|
|
*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Contributor(s):
|
1999-09-29 03:12:09 +04:00
|
|
|
*
|
|
|
|
* Alternatively, the contents of this file may be used under the
|
|
|
|
* terms of the GNU Public License (the "GPL"), in which case the
|
|
|
|
* provisions of the GPL are applicable instead of those above.
|
|
|
|
* If you wish to allow use of your version of this file only
|
|
|
|
* under the terms of the GPL and not to allow others to use your
|
|
|
|
* version of this file under the NPL, indicate your decision by
|
|
|
|
* deleting the provisions above and replace them with the notice
|
|
|
|
* and other provisions required by the GPL. If you do not delete
|
|
|
|
* the provisions above, a recipient may use your version of this
|
|
|
|
* file under either the NPL or the GPL.
|
1998-03-28 05:44:41 +03:00
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* JS object implementation.
|
|
|
|
*/
|
1998-06-10 03:04:48 +04:00
|
|
|
#include "jsstddef.h"
|
1998-03-28 05:44:41 +03:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
1998-10-14 14:22:38 +04:00
|
|
|
#include "jstypes.h"
|
|
|
|
#include "jsarena.h" /* Added by JSIFY */
|
|
|
|
#include "jsutil.h" /* Added by JSIFY */
|
|
|
|
#include "jshash.h" /* Added by JSIFY */
|
|
|
|
#include "jsprf.h"
|
1998-03-28 05:44:41 +03:00
|
|
|
#include "jsapi.h"
|
|
|
|
#include "jsatom.h"
|
|
|
|
#include "jsbool.h"
|
|
|
|
#include "jscntxt.h"
|
|
|
|
#include "jsconfig.h"
|
|
|
|
#include "jsfun.h"
|
|
|
|
#include "jsgc.h"
|
|
|
|
#include "jsinterp.h"
|
|
|
|
#include "jslock.h"
|
|
|
|
#include "jsnum.h"
|
|
|
|
#include "jsobj.h"
|
|
|
|
#include "jsscope.h"
|
|
|
|
#include "jsscript.h"
|
|
|
|
#include "jsstr.h"
|
2000-02-02 04:10:31 +03:00
|
|
|
#include "jsopcode.h"
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
|
|
|
#include "jsdbgapi.h"
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef JS_THREADSAFE
|
|
|
|
#define NATIVE_DROP_PROPERTY js_DropProperty
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
extern void
|
|
|
|
js_DropProperty(JSContext *cx, JSObject *obj, JSProperty *prop);
|
|
|
|
#else
|
|
|
|
#define NATIVE_DROP_PROPERTY NULL
|
|
|
|
#endif
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-08-01 00:19:50 +04:00
|
|
|
#ifdef XP_MAC
|
|
|
|
#pragma export on
|
|
|
|
#endif
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_FRIEND_DATA(JSObjectOps) js_ObjectOps = {
|
2000-06-27 06:37:25 +04:00
|
|
|
js_NewObjectMap, js_DestroyObjectMap,
|
1998-04-24 04:31:11 +04:00
|
|
|
#if defined JS_THREADSAFE && defined DEBUG
|
2000-06-27 06:37:25 +04:00
|
|
|
_js_LookupProperty, js_DefineProperty,
|
1998-04-24 04:31:11 +04:00
|
|
|
#else
|
2000-06-27 06:37:25 +04:00
|
|
|
js_LookupProperty, js_DefineProperty,
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
2000-06-27 06:37:25 +04:00
|
|
|
js_GetProperty, js_SetProperty,
|
|
|
|
js_GetAttributes, js_SetAttributes,
|
|
|
|
js_DeleteProperty, js_DefaultValue,
|
|
|
|
js_Enumerate, js_CheckAccess,
|
|
|
|
NULL, NATIVE_DROP_PROPERTY,
|
|
|
|
js_Call, js_Construct,
|
|
|
|
NULL, js_HasInstance,
|
|
|
|
js_SetProtoOrParent, js_SetProtoOrParent,
|
|
|
|
0,0,0,0
|
1998-04-24 04:31:11 +04:00
|
|
|
};
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-08-01 00:19:50 +04:00
|
|
|
#ifdef XP_MAC
|
|
|
|
#pragma export off
|
|
|
|
#endif
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
JSClass js_ObjectClass = {
|
|
|
|
js_Object_str,
|
|
|
|
0,
|
|
|
|
JS_PropertyStub, JS_PropertyStub, JS_PropertyStub, JS_PropertyStub,
|
1999-11-12 00:52:35 +03:00
|
|
|
JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub,
|
|
|
|
JSCLASS_NO_OPTIONAL_MEMBERS
|
1998-03-28 05:44:41 +03:00
|
|
|
};
|
|
|
|
|
|
|
|
#if JS_HAS_OBJ_PROTO_PROP
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_getSlot(JSContext *cx, JSObject *obj, jsval id, jsval *vp);
|
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
static JSBool
|
1998-03-28 05:44:41 +03:00
|
|
|
obj_setSlot(JSContext *cx, JSObject *obj, jsval id, jsval *vp);
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_getCount(JSContext *cx, JSObject *obj, jsval id, jsval *vp);
|
|
|
|
|
|
|
|
static JSPropertySpec object_props[] = {
|
|
|
|
/* These two must come first; see object_props[slot].name usage below. */
|
2000-06-27 06:37:25 +04:00
|
|
|
{js_proto_str, JSSLOT_PROTO, JSPROP_PERMANENT|JSPROP_SHARED,
|
|
|
|
obj_getSlot, obj_setSlot},
|
|
|
|
{js_parent_str,JSSLOT_PARENT,JSPROP_READONLY|JSPROP_PERMANENT|JSPROP_SHARED,
|
|
|
|
obj_getSlot, obj_setSlot},
|
|
|
|
{js_count_str, 0, JSPROP_PERMANENT,obj_getCount, obj_getCount},
|
1999-11-12 00:52:35 +03:00
|
|
|
{0,0,0,0,0}
|
1998-03-28 05:44:41 +03:00
|
|
|
};
|
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
/* NB: JSSLOT_PROTO and JSSLOT_PARENT are already indexes into object_props. */
|
|
|
|
#define JSSLOT_COUNT 2
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
ReportStrictSlot(JSContext *cx, uint32 slot)
|
|
|
|
{
|
|
|
|
return JS_ReportErrorFlagsAndNumber(cx,
|
|
|
|
JSREPORT_WARNING | JSREPORT_STRICT,
|
|
|
|
js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_DEPRECATED_USAGE,
|
|
|
|
object_props[slot].name);
|
|
|
|
}
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
static JSBool
|
|
|
|
obj_getSlot(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
|
|
|
|
{
|
1999-07-28 10:48:44 +04:00
|
|
|
uint32 slot;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSAccessMode mode;
|
|
|
|
uintN attrs;
|
|
|
|
|
1999-07-28 10:48:44 +04:00
|
|
|
slot = (uint32) JSVAL_TO_INT(id);
|
2000-01-18 14:06:05 +03:00
|
|
|
if (JS_HAS_STRICT_OPTION(cx) && !ReportStrictSlot(cx, slot))
|
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
if (id == INT_TO_JSVAL(JSSLOT_PROTO)) {
|
|
|
|
id = (jsid)cx->runtime->atomState.protoAtom;
|
|
|
|
mode = JSACC_PROTO;
|
|
|
|
} else {
|
|
|
|
id = (jsid)cx->runtime->atomState.parentAtom;
|
|
|
|
mode = JSACC_PARENT;
|
|
|
|
}
|
|
|
|
if (!OBJ_CHECK_ACCESS(cx, obj, id, mode, vp, &attrs))
|
|
|
|
return JS_FALSE;
|
|
|
|
*vp = OBJ_GET_SLOT(cx, obj, slot);
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
static JSBool
|
1998-03-28 05:44:41 +03:00
|
|
|
obj_setSlot(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
|
|
|
|
{
|
2000-06-27 06:37:25 +04:00
|
|
|
JSObject *pobj;
|
1999-07-28 10:48:44 +04:00
|
|
|
uint32 slot;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
if (!JSVAL_IS_OBJECT(*vp))
|
|
|
|
return JS_TRUE;
|
2000-06-27 06:37:25 +04:00
|
|
|
pobj = JSVAL_TO_OBJECT(*vp);
|
1999-07-28 10:48:44 +04:00
|
|
|
slot = (uint32) JSVAL_TO_INT(id);
|
2000-01-18 14:06:05 +03:00
|
|
|
if (JS_HAS_STRICT_OPTION(cx) && !ReportStrictSlot(cx, slot))
|
|
|
|
return JS_FALSE;
|
2000-06-27 06:37:25 +04:00
|
|
|
return js_SetProtoOrParent(cx, obj, slot, pobj);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_getCount(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
|
|
|
|
{
|
1999-10-22 05:44:47 +04:00
|
|
|
jsval iter_state;
|
1998-04-24 04:31:11 +04:00
|
|
|
jsid num_properties;
|
1999-10-22 05:44:47 +04:00
|
|
|
JSBool ok;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
if (JS_HAS_STRICT_OPTION(cx) && !ReportStrictSlot(cx, JSSLOT_COUNT))
|
|
|
|
return JS_FALSE;
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Get the number of properties to enumerate. */
|
1999-10-22 05:44:47 +04:00
|
|
|
iter_state = JSVAL_NULL;
|
|
|
|
ok = OBJ_ENUMERATE(cx, obj, JSENUMERATE_INIT, &iter_state, &num_properties);
|
|
|
|
if (!ok)
|
1999-10-15 08:32:46 +04:00
|
|
|
goto out;
|
1999-10-22 05:44:47 +04:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!JSVAL_IS_INT(num_properties)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(0);
|
1999-10-22 05:44:47 +04:00
|
|
|
*vp = JSVAL_ZERO;
|
1999-10-15 08:32:46 +04:00
|
|
|
goto out;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
*vp = num_properties;
|
|
|
|
|
1999-10-22 05:44:47 +04:00
|
|
|
out:
|
|
|
|
if (iter_state != JSVAL_NULL)
|
|
|
|
ok = OBJ_ENUMERATE(cx, obj, JSENUMERATE_DESTROY, &iter_state, 0);
|
1999-10-15 08:32:46 +04:00
|
|
|
return ok;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
#else /* !JS_HAS_OBJ_PROTO_PROP */
|
|
|
|
|
|
|
|
#define object_props NULL
|
|
|
|
|
|
|
|
#endif /* !JS_HAS_OBJ_PROTO_PROP */
|
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
JSBool
|
|
|
|
js_SetProtoOrParent(JSContext *cx, JSObject *obj, uint32 slot, JSObject *pobj)
|
|
|
|
{
|
|
|
|
JSRuntime *rt;
|
|
|
|
JSObject *obj2, *oldproto;
|
|
|
|
JSScope *scope, *newscope;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Serialize all proto and parent setting in order to detect cycles.
|
|
|
|
* We nest locks in this function, and only here, in the following orders:
|
|
|
|
*
|
|
|
|
* (1) rt->setSlotLock < pobj's scope lock;
|
|
|
|
* rt->setSlotLock < pobj's proto-or-parent's scope lock;
|
|
|
|
* rt->setSlotLock < pobj's grand-proto-or-parent's scope lock;
|
|
|
|
* etc...
|
|
|
|
* (2) rt->setSlotLock < obj's scope lock < pobj's scope lock.
|
|
|
|
*
|
|
|
|
* We avoid AB-BA deadlock by restricting obj from being on pobj's parent
|
|
|
|
* or proto chain (pobj may already be on obj's parent or proto chain; it
|
|
|
|
* could be moving up or down). We finally order obj with respect to pobj
|
|
|
|
* at the bottom of this routine (just before releasing rt->setSlotLock),
|
|
|
|
* by making pobj be obj's prototype or parent.
|
|
|
|
*
|
|
|
|
* After we have set the slot and released rt->setSlotLock, another call
|
|
|
|
* to js_SetProtoOrParent could nest locks according to the first order
|
|
|
|
* list above, but it cannot deadlock with any other thread. For there
|
|
|
|
* to be a deadlock, other parts of the engine would have to nest scope
|
|
|
|
* locks in the opposite order. XXXbe ensure they don't!
|
|
|
|
*/
|
|
|
|
rt = cx->runtime;
|
|
|
|
JS_ACQUIRE_LOCK(rt->setSlotLock);
|
|
|
|
obj2 = pobj;
|
|
|
|
while (obj2) {
|
|
|
|
if (obj2 == obj) {
|
|
|
|
JS_RELEASE_LOCK(rt->setSlotLock);
|
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_CYCLIC_VALUE, object_props[slot].name);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
obj2 = JSVAL_TO_OBJECT(OBJ_GET_SLOT(cx, obj2, slot));
|
|
|
|
}
|
|
|
|
|
|
|
|
if (slot == JSSLOT_PROTO && OBJ_IS_NATIVE(obj) && pobj) {
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
scope = OBJ_SCOPE(obj);
|
|
|
|
oldproto = JSVAL_TO_OBJECT(LOCKED_OBJ_GET_SLOT(obj, JSSLOT_PROTO));
|
|
|
|
if (oldproto &&
|
|
|
|
OBJ_SCOPE(oldproto) == scope &&
|
|
|
|
OBJ_IS_NATIVE(pobj) &&
|
|
|
|
OBJ_SCOPE(pobj) != scope)
|
|
|
|
{
|
|
|
|
/* We can't deadlock because we checked for cycles above (2). */
|
|
|
|
JS_LOCK_OBJ(cx, pobj);
|
|
|
|
newscope = (JSScope *) js_HoldObjectMap(cx, pobj->map);
|
|
|
|
obj->map = &newscope->map;
|
|
|
|
js_DropObjectMap(cx, &scope->map, obj);
|
|
|
|
JS_TRANSFER_SCOPE_LOCK(cx, scope, newscope);
|
|
|
|
scope = newscope;
|
|
|
|
}
|
|
|
|
LOCKED_OBJ_SET_SLOT(obj, JSSLOT_PROTO, OBJECT_TO_JSVAL(pobj));
|
|
|
|
JS_UNLOCK_SCOPE(cx, scope);
|
|
|
|
js_FlushPropertyCacheNotFounds(cx);
|
|
|
|
} else {
|
|
|
|
OBJ_SET_SLOT(cx, obj, slot, OBJECT_TO_JSVAL(pobj));
|
|
|
|
}
|
|
|
|
|
|
|
|
JS_RELEASE_LOCK(rt->setSlotLock);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_STATIC_DLL_CALLBACK(JSHashNumber)
|
1998-03-28 05:44:41 +03:00
|
|
|
js_hash_object(const void *key)
|
|
|
|
{
|
1998-10-14 14:22:38 +04:00
|
|
|
return (JSHashNumber)key >> JSVAL_TAGBITS;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
static JSHashEntry *
|
1998-04-24 04:31:11 +04:00
|
|
|
MarkSharpObjects(JSContext *cx, JSObject *obj, JSIdArray **idap)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSSharpObjectMap *map;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashTable *table;
|
|
|
|
JSHashNumber hash;
|
|
|
|
JSHashEntry **hep, *he;
|
1998-03-28 05:44:41 +03:00
|
|
|
jsatomid sharpid;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSIdArray *ida;
|
|
|
|
JSBool ok;
|
|
|
|
jsint i, length;
|
1999-09-21 04:13:48 +04:00
|
|
|
jsid id;
|
2000-05-15 07:54:50 +04:00
|
|
|
#if JS_HAS_GETTER_SETTER
|
1999-09-21 04:13:48 +04:00
|
|
|
JSObject *obj2;
|
|
|
|
JSProperty *prop;
|
|
|
|
uintN attrs;
|
2000-05-15 07:54:50 +04:00
|
|
|
#endif
|
1998-03-28 05:44:41 +03:00
|
|
|
jsval val;
|
|
|
|
|
|
|
|
map = &cx->sharpObjectMap;
|
|
|
|
table = map->table;
|
|
|
|
hash = js_hash_object(obj);
|
1998-10-14 14:22:38 +04:00
|
|
|
hep = JS_HashTableRawLookup(table, hash, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
he = *hep;
|
|
|
|
if (!he) {
|
|
|
|
sharpid = 0;
|
1998-10-14 14:22:38 +04:00
|
|
|
he = JS_HashTableRawAdd(table, hep, hash, obj, (void *)sharpid);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!he) {
|
|
|
|
JS_ReportOutOfMemory(cx);
|
|
|
|
return NULL;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
ida = JS_Enumerate(cx, obj);
|
|
|
|
if (!ida)
|
|
|
|
return NULL;
|
|
|
|
ok = JS_TRUE;
|
|
|
|
for (i = 0, length = ida->length; i < length; i++) {
|
1999-09-21 04:13:48 +04:00
|
|
|
id = ida->vector[i];
|
|
|
|
#if JS_HAS_GETTER_SETTER
|
|
|
|
ok = OBJ_LOOKUP_PROPERTY(cx, obj, id, &obj2, &prop);
|
|
|
|
if (!ok)
|
|
|
|
break;
|
|
|
|
ok = OBJ_GET_ATTRIBUTES(cx, obj, id, prop, &attrs);
|
|
|
|
if (ok) {
|
|
|
|
if (prop &&
|
|
|
|
OBJ_IS_NATIVE(obj2) &&
|
|
|
|
(attrs & (JSPROP_GETTER | JSPROP_SETTER))) {
|
|
|
|
val = JSVAL_NULL;
|
|
|
|
if (attrs & JSPROP_GETTER)
|
1999-11-02 05:23:50 +03:00
|
|
|
val = (jsval)SPROP_GETTER((JSScopeProperty*)prop, obj2);
|
1999-09-21 04:13:48 +04:00
|
|
|
if (attrs & JSPROP_SETTER) {
|
|
|
|
if (val != JSVAL_NULL) {
|
|
|
|
/* Mark the getter here, then set val to setter. */
|
|
|
|
ok = (MarkSharpObjects(cx, JSVAL_TO_OBJECT(val),
|
|
|
|
NULL)
|
|
|
|
!= NULL);
|
|
|
|
}
|
1999-11-02 05:23:50 +03:00
|
|
|
val = (jsval)SPROP_SETTER((JSScopeProperty*)prop, obj2);
|
1999-09-21 04:13:48 +04:00
|
|
|
}
|
|
|
|
} else {
|
|
|
|
ok = OBJ_GET_PROPERTY(cx, obj, id, &val);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (prop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj2, prop);
|
|
|
|
#else
|
|
|
|
ok = OBJ_GET_PROPERTY(cx, obj, id, &val);
|
|
|
|
#endif
|
|
|
|
if (!ok)
|
|
|
|
break;
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!JSVAL_IS_PRIMITIVE(val) &&
|
|
|
|
!MarkSharpObjects(cx, JSVAL_TO_OBJECT(val), NULL)) {
|
|
|
|
ok = JS_FALSE;
|
|
|
|
break;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!ok || !idap)
|
|
|
|
JS_DestroyIdArray(cx, ida);
|
|
|
|
if (!ok)
|
|
|
|
return NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
} else {
|
|
|
|
sharpid = (jsatomid) he->value;
|
|
|
|
if (sharpid == 0) {
|
|
|
|
sharpid = ++map->sharpgen << 1;
|
|
|
|
he->value = (void *) sharpid;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
ida = NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (idap)
|
|
|
|
*idap = ida;
|
1998-03-28 05:44:41 +03:00
|
|
|
return he;
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashEntry *
|
1998-04-24 04:31:11 +04:00
|
|
|
js_EnterSharpObject(JSContext *cx, JSObject *obj, JSIdArray **idap,
|
|
|
|
jschar **sp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSSharpObjectMap *map;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashTable *table;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSIdArray *ida;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashNumber hash;
|
|
|
|
JSHashEntry *he, **hep;
|
1998-03-28 05:44:41 +03:00
|
|
|
jsatomid sharpid;
|
|
|
|
char buf[20];
|
|
|
|
size_t len;
|
|
|
|
|
|
|
|
map = &cx->sharpObjectMap;
|
|
|
|
table = map->table;
|
|
|
|
if (!table) {
|
1998-10-14 14:22:38 +04:00
|
|
|
table = JS_NewHashTable(8, js_hash_object, JS_CompareValues,
|
|
|
|
JS_CompareValues, NULL, NULL);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!table) {
|
|
|
|
JS_ReportOutOfMemory(cx);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
map->table = table;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
ida = NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
if (map->depth == 0) {
|
1998-04-24 04:31:11 +04:00
|
|
|
he = MarkSharpObjects(cx, obj, &ida);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!he)
|
|
|
|
return NULL;
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT((((jsatomid) he->value) & SHARP_BIT) == 0);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!idap) {
|
|
|
|
JS_DestroyIdArray(cx, ida);
|
|
|
|
ida = NULL;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
} else {
|
1998-10-14 14:22:38 +04:00
|
|
|
hash = js_hash_object(obj);
|
|
|
|
hep = JS_HashTableRawLookup(table, hash, obj);
|
|
|
|
he = *hep;
|
1998-07-31 04:07:22 +04:00
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
/*
|
|
|
|
* It's possible that the value of a property has changed from the
|
|
|
|
* first time the object's properties are traversed (when the property
|
|
|
|
* ids are entered into the hash table) to the second (when they are
|
|
|
|
* converted to strings), i.e. the getProperty() call is not
|
|
|
|
* idempotent.
|
|
|
|
*/
|
|
|
|
if (!he) {
|
|
|
|
he = JS_HashTableRawAdd(table, hep, hash, obj, (void *)0);
|
1998-06-10 03:04:48 +04:00
|
|
|
if (!he)
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ReportOutOfMemory(cx);
|
|
|
|
*sp = NULL;
|
1998-11-05 03:08:43 +03:00
|
|
|
sharpid = 0;
|
1998-10-14 14:22:38 +04:00
|
|
|
goto out;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
sharpid = (jsatomid) he->value;
|
|
|
|
if (sharpid == 0) {
|
|
|
|
*sp = NULL;
|
|
|
|
} else {
|
1998-10-14 14:22:38 +04:00
|
|
|
len = JS_snprintf(buf, sizeof buf, "#%u%c",
|
1998-03-28 05:44:41 +03:00
|
|
|
sharpid >> 1, (sharpid & SHARP_BIT) ? '#' : '=');
|
|
|
|
*sp = js_InflateString(cx, buf, len);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!*sp) {
|
|
|
|
if (ida)
|
|
|
|
JS_DestroyIdArray(cx, ida);
|
1998-03-28 05:44:41 +03:00
|
|
|
return NULL;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1998-06-10 03:04:48 +04:00
|
|
|
out:
|
1998-04-24 04:31:11 +04:00
|
|
|
if ((sharpid & SHARP_BIT) == 0) {
|
1998-10-14 14:22:38 +04:00
|
|
|
if (idap && !ida) {
|
1998-04-24 04:31:11 +04:00
|
|
|
ida = JS_Enumerate(cx, obj);
|
|
|
|
if (!ida) {
|
|
|
|
if (*sp) {
|
|
|
|
JS_free(cx, *sp);
|
|
|
|
*sp = NULL;
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
map->depth++;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-06-10 03:04:48 +04:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (idap)
|
|
|
|
*idap = ida;
|
1998-03-28 05:44:41 +03:00
|
|
|
return he;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
1998-04-24 04:31:11 +04:00
|
|
|
js_LeaveSharpObject(JSContext *cx, JSIdArray **idap)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSSharpObjectMap *map;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSIdArray *ida;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
map = &cx->sharpObjectMap;
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(map->depth > 0);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (--map->depth == 0) {
|
|
|
|
map->sharpgen = 0;
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_HashTableDestroy(map->table);
|
1998-03-28 05:44:41 +03:00
|
|
|
map->table = NULL;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (idap) {
|
|
|
|
ida = *idap;
|
|
|
|
if (ida) {
|
|
|
|
JS_DestroyIdArray(cx, ida);
|
|
|
|
*idap = NULL;
|
|
|
|
}
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
#define OBJ_TOSTRING_EXTRA 3 /* for 3 local GC roots */
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_HAS_INITIALIZERS || JS_HAS_TOSOURCE
|
1998-03-28 05:44:41 +03:00
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_obj_toSource(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
1998-03-28 05:44:41 +03:00
|
|
|
jsval *rval)
|
|
|
|
{
|
1999-10-06 13:09:31 +04:00
|
|
|
JSBool ok, outermost;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashEntry *he;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSIdArray *ida;
|
|
|
|
jschar *chars, *ochars, *vchars, *vsharp;
|
|
|
|
size_t nchars, vlength, vsharplength;
|
|
|
|
char *comma;
|
1999-09-21 04:13:48 +04:00
|
|
|
jsint i, j, length, valcnt;
|
1998-04-24 04:31:11 +04:00
|
|
|
jsid id;
|
2000-05-15 07:54:50 +04:00
|
|
|
#if JS_HAS_GETTER_SETTER
|
1999-09-21 04:13:48 +04:00
|
|
|
JSObject *obj2;
|
|
|
|
JSProperty *prop;
|
|
|
|
uintN attrs;
|
2000-05-15 07:54:50 +04:00
|
|
|
#endif
|
1999-09-21 04:13:48 +04:00
|
|
|
jsval val[2];
|
|
|
|
JSString *gsop[2];
|
1998-04-24 04:31:11 +04:00
|
|
|
JSString *idstr, *valstr, *str;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1999-11-17 07:32:37 +03:00
|
|
|
/*
|
|
|
|
* obj_toString for 1.2 calls toSource, and doesn't want the extra parens
|
|
|
|
* on the outside.
|
|
|
|
*/
|
|
|
|
outermost = (cx->version != JSVERSION_1_2 && cx->sharpObjectMap.depth == 0);
|
1998-04-24 04:31:11 +04:00
|
|
|
he = js_EnterSharpObject(cx, obj, &ida, &chars);
|
|
|
|
if (!he)
|
|
|
|
return JS_FALSE;
|
|
|
|
if (IS_SHARP(he)) { /* we didn't enter -- obj is already sharp */
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(!ida);
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_SHARP_VARS
|
1998-04-24 04:31:11 +04:00
|
|
|
nchars = js_strlen(chars);
|
1998-03-28 05:44:41 +03:00
|
|
|
#else
|
1998-04-24 04:31:11 +04:00
|
|
|
chars[0] = '{';
|
|
|
|
chars[1] = '}';
|
|
|
|
chars[2] = 0;
|
|
|
|
nchars = 2;
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
1998-04-24 04:31:11 +04:00
|
|
|
goto make_string;
|
|
|
|
}
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(ida);
|
1998-04-24 04:31:11 +04:00
|
|
|
ok = JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1999-10-06 13:09:31 +04:00
|
|
|
/* Allocate 4 + 1 for "({})" and the terminator. */
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!chars) {
|
2000-02-04 05:01:49 +03:00
|
|
|
chars = (jschar *) malloc((4 + 1) * sizeof(jschar));
|
1998-04-24 04:31:11 +04:00
|
|
|
nchars = 0;
|
1998-11-05 03:08:43 +03:00
|
|
|
if (!chars)
|
|
|
|
goto error;
|
1998-04-24 04:31:11 +04:00
|
|
|
} else {
|
1999-10-06 13:09:31 +04:00
|
|
|
JS_ASSERT(!outermost);
|
1998-04-24 04:31:11 +04:00
|
|
|
MAKE_SHARP(he);
|
|
|
|
nchars = js_strlen(chars);
|
2000-02-04 05:01:49 +03:00
|
|
|
chars = (jschar *)
|
|
|
|
realloc((ochars = chars), (nchars + 2 + 1) * sizeof(jschar));
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!chars) {
|
1998-04-24 04:31:11 +04:00
|
|
|
free(ochars);
|
1998-11-05 03:08:43 +03:00
|
|
|
goto error;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1999-10-06 13:09:31 +04:00
|
|
|
|
|
|
|
if (outermost)
|
|
|
|
chars[nchars++] = '(';
|
1998-04-24 04:31:11 +04:00
|
|
|
chars[nchars++] = '{';
|
|
|
|
|
|
|
|
comma = NULL;
|
|
|
|
|
|
|
|
for (i = 0, length = ida->length; i < length; i++) {
|
1999-09-21 04:13:48 +04:00
|
|
|
/* Get strings for id and value and GC-root them via argv. */
|
1998-04-24 04:31:11 +04:00
|
|
|
id = ida->vector[i];
|
2000-05-15 07:54:50 +04:00
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
#if JS_HAS_GETTER_SETTER
|
2000-05-15 07:54:50 +04:00
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
ok = OBJ_LOOKUP_PROPERTY(cx, obj, id, &obj2, &prop);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!ok)
|
1998-11-05 03:08:43 +03:00
|
|
|
goto error;
|
1999-09-21 04:13:48 +04:00
|
|
|
ok = OBJ_GET_ATTRIBUTES(cx, obj2, id, prop, &attrs);
|
|
|
|
if (ok) {
|
|
|
|
if (prop &&
|
|
|
|
OBJ_IS_NATIVE(obj2) &&
|
|
|
|
(attrs & (JSPROP_GETTER | JSPROP_SETTER))) {
|
|
|
|
valcnt = 0;
|
|
|
|
if (attrs & JSPROP_GETTER) {
|
1999-11-02 05:23:50 +03:00
|
|
|
val[valcnt] = (jsval)
|
|
|
|
SPROP_GETTER((JSScopeProperty *)prop, obj2);
|
2000-03-03 02:21:03 +03:00
|
|
|
#ifdef OLD_GETTER_SETTER
|
1999-09-21 04:13:48 +04:00
|
|
|
gsop[valcnt] =
|
|
|
|
ATOM_TO_STRING(cx->runtime->atomState.getterAtom);
|
2000-03-03 02:21:03 +03:00
|
|
|
#else
|
|
|
|
gsop[valcnt] =
|
|
|
|
ATOM_TO_STRING(cx->runtime->atomState.getAtom);
|
|
|
|
#endif
|
1999-09-21 04:13:48 +04:00
|
|
|
valcnt++;
|
|
|
|
}
|
|
|
|
if (attrs & JSPROP_SETTER) {
|
1999-11-02 05:23:50 +03:00
|
|
|
val[valcnt] = (jsval)
|
|
|
|
SPROP_SETTER((JSScopeProperty *)prop, obj2);
|
2000-03-03 02:21:03 +03:00
|
|
|
#ifdef OLD_GETTER_SETTER
|
1999-09-21 04:13:48 +04:00
|
|
|
gsop[valcnt] =
|
|
|
|
ATOM_TO_STRING(cx->runtime->atomState.setterAtom);
|
2000-03-03 02:21:03 +03:00
|
|
|
#else
|
|
|
|
gsop[valcnt] =
|
|
|
|
ATOM_TO_STRING(cx->runtime->atomState.setAtom);
|
|
|
|
#endif
|
1999-09-21 04:13:48 +04:00
|
|
|
valcnt++;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
valcnt = 1;
|
|
|
|
gsop[0] = NULL;
|
|
|
|
ok = OBJ_GET_PROPERTY(cx, obj, id, &val[0]);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (prop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj2, prop);
|
2000-05-15 07:54:50 +04:00
|
|
|
|
|
|
|
#else /* !JS_HAS_GETTER_SETTER */
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
valcnt = 1;
|
2000-05-15 07:54:50 +04:00
|
|
|
gsop[0] = NULL;
|
1999-09-21 04:13:48 +04:00
|
|
|
ok = OBJ_GET_PROPERTY(cx, obj, id, &val[0]);
|
2000-05-15 07:54:50 +04:00
|
|
|
|
|
|
|
#endif /* !JS_HAS_GETTER_SETTER */
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
if (!ok)
|
|
|
|
goto error;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
/* Convert id to a jsval and then to a string. */
|
|
|
|
id = js_IdToValue(id);
|
|
|
|
idstr = js_ValueToString(cx, id);
|
|
|
|
if (!idstr) {
|
|
|
|
ok = JS_FALSE;
|
1998-11-05 03:08:43 +03:00
|
|
|
goto error;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
argv[0] = STRING_TO_JSVAL(idstr);
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
/* If id is a non-identifier string, it needs to be quoted. */
|
|
|
|
if (JSVAL_IS_STRING(id) && !js_IsIdentifier(idstr)) {
|
|
|
|
idstr = js_QuoteString(cx, idstr, (jschar)'\'');
|
|
|
|
if (!idstr) {
|
|
|
|
ok = JS_FALSE;
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
argv[0] = STRING_TO_JSVAL(idstr);
|
|
|
|
}
|
|
|
|
|
|
|
|
for (j = 0; j < valcnt; j++) {
|
|
|
|
/* Convert val[j] to its canonical source form. */
|
|
|
|
valstr = js_ValueToSource(cx, val[j]);
|
|
|
|
if (!valstr) {
|
|
|
|
ok = JS_FALSE;
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
argv[1+j] = STRING_TO_JSVAL(valstr);
|
|
|
|
vchars = valstr->chars;
|
|
|
|
vlength = valstr->length;
|
|
|
|
|
2000-03-03 02:21:03 +03:00
|
|
|
#ifndef OLD_GETTER_SETTER
|
2000-05-15 07:54:50 +04:00
|
|
|
/* Remove 'function ' from beginning of valstr. */
|
2000-03-03 02:21:03 +03:00
|
|
|
if (gsop[j]) {
|
|
|
|
int n = strlen(js_function_str) + 1;
|
|
|
|
vchars += n;
|
|
|
|
vlength -= n;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
/* If val[j] is a non-sharp object, consider sharpening it. */
|
|
|
|
vsharp = NULL;
|
|
|
|
vsharplength = 0;
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_HAS_SHARP_VARS
|
1999-09-21 04:13:48 +04:00
|
|
|
if (!JSVAL_IS_PRIMITIVE(val[j]) && vchars[0] != '#') {
|
|
|
|
he = js_EnterSharpObject(cx, JSVAL_TO_OBJECT(val[j]), NULL,
|
|
|
|
&vsharp);
|
|
|
|
if (!he) {
|
|
|
|
ok = JS_FALSE;
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
if (IS_SHARP(he)) {
|
|
|
|
vchars = vsharp;
|
|
|
|
vlength = js_strlen(vchars);
|
|
|
|
} else {
|
|
|
|
if (vsharp) {
|
|
|
|
vsharplength = js_strlen(vsharp);
|
|
|
|
MAKE_SHARP(he);
|
|
|
|
}
|
|
|
|
js_LeaveSharpObject(cx, NULL);
|
|
|
|
}
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
/* Allocate 1 + 1 at end for closing brace and terminating 0. */
|
2000-02-04 05:01:49 +03:00
|
|
|
chars = (jschar *)
|
|
|
|
realloc((ochars = chars),
|
|
|
|
(nchars + (comma ? 2 : 0) +
|
|
|
|
idstr->length + 1 +
|
|
|
|
(gsop[j] ? 1 + gsop[j]->length : 0) +
|
|
|
|
vsharplength + vlength +
|
|
|
|
(outermost ? 2 : 1) + 1) * sizeof(jschar));
|
1999-09-21 04:13:48 +04:00
|
|
|
if (!chars) {
|
|
|
|
/* Save code space on error: let JS_free ignore null vsharp. */
|
|
|
|
JS_free(cx, vsharp);
|
|
|
|
free(ochars);
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (comma) {
|
|
|
|
chars[nchars++] = comma[0];
|
|
|
|
chars[nchars++] = comma[1];
|
|
|
|
}
|
|
|
|
comma = ", ";
|
|
|
|
|
2000-03-03 02:21:03 +03:00
|
|
|
#ifdef OLD_GETTER_SETTER
|
1999-09-21 04:13:48 +04:00
|
|
|
js_strncpy(&chars[nchars], idstr->chars, idstr->length);
|
|
|
|
nchars += idstr->length;
|
|
|
|
if (gsop[j]) {
|
|
|
|
chars[nchars++] = ' ';
|
|
|
|
js_strncpy(&chars[nchars], gsop[j]->chars, gsop[j]->length);
|
|
|
|
nchars += gsop[j]->length;
|
|
|
|
}
|
|
|
|
chars[nchars++] = ':';
|
2000-03-03 02:21:03 +03:00
|
|
|
#else
|
|
|
|
if (gsop[j]) {
|
|
|
|
js_strncpy(&chars[nchars], gsop[j]->chars, gsop[j]->length);
|
|
|
|
nchars += gsop[j]->length;
|
|
|
|
chars[nchars++] = ' ';
|
|
|
|
}
|
|
|
|
js_strncpy(&chars[nchars], idstr->chars, idstr->length);
|
|
|
|
nchars += idstr->length;
|
|
|
|
if (!gsop[j])
|
|
|
|
chars[nchars++] = ':';
|
|
|
|
#endif
|
1999-09-21 04:13:48 +04:00
|
|
|
if (vsharplength) {
|
|
|
|
js_strncpy(&chars[nchars], vsharp, vsharplength);
|
|
|
|
nchars += vsharplength;
|
|
|
|
}
|
|
|
|
js_strncpy(&chars[nchars], vchars, vlength);
|
|
|
|
nchars += vlength;
|
|
|
|
|
|
|
|
if (vsharp)
|
|
|
|
JS_free(cx, vsharp);
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
|
1999-10-06 13:09:31 +04:00
|
|
|
chars[nchars++] = '}';
|
|
|
|
if (outermost)
|
|
|
|
chars[nchars++] = ')';
|
|
|
|
chars[nchars] = 0;
|
1998-11-05 03:08:43 +03:00
|
|
|
|
|
|
|
error:
|
1998-04-24 04:31:11 +04:00
|
|
|
js_LeaveSharpObject(cx, &ida);
|
|
|
|
|
|
|
|
if (!ok) {
|
|
|
|
if (chars)
|
|
|
|
free(chars);
|
|
|
|
return ok;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
if (!chars) {
|
|
|
|
JS_ReportOutOfMemory(cx);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
make_string:
|
1998-03-28 05:44:41 +03:00
|
|
|
str = js_NewString(cx, chars, nchars, 0);
|
|
|
|
if (!str) {
|
|
|
|
free(chars);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
*rval = STRING_TO_JSVAL(str);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif /* JS_HAS_INITIALIZERS || JS_HAS_TOSOURCE */
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_obj_toString(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
|
|
|
jsval *rval)
|
|
|
|
{
|
|
|
|
jschar *chars;
|
|
|
|
size_t nchars;
|
|
|
|
char *clazz, *prefix;
|
|
|
|
JSString *str;
|
|
|
|
|
|
|
|
#if JS_HAS_INITIALIZERS
|
|
|
|
if (cx->version == JSVERSION_1_2)
|
|
|
|
return js_obj_toSource(cx, obj, argc, argv, rval);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
clazz = OBJ_GET_CLASS(cx, obj)->name;
|
|
|
|
nchars = 9 + strlen(clazz); /* 9 for "[object ]" */
|
2000-02-04 05:01:49 +03:00
|
|
|
chars = (jschar *) JS_malloc(cx, (nchars + 1) * sizeof(jschar));
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!chars)
|
|
|
|
return JS_FALSE;
|
|
|
|
|
|
|
|
prefix = "[object ";
|
|
|
|
nchars = 0;
|
|
|
|
while ((chars[nchars] = (jschar)*prefix) != 0)
|
|
|
|
nchars++, prefix++;
|
|
|
|
while ((chars[nchars] = (jschar)*clazz) != 0)
|
|
|
|
nchars++, clazz++;
|
|
|
|
chars[nchars++] = ']';
|
|
|
|
chars[nchars] = 0;
|
|
|
|
|
|
|
|
str = js_NewString(cx, chars, nchars, 0);
|
|
|
|
if (!str) {
|
|
|
|
JS_free(cx, chars);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
*rval = STRING_TO_JSVAL(str);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_valueOf(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
|
|
|
*rval = OBJECT_TO_JSVAL(obj);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_eval(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSStackFrame *caller;
|
2000-01-18 14:06:05 +03:00
|
|
|
JSBool indirectCall;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObject *scopeobj;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSString *str;
|
|
|
|
const char *file;
|
|
|
|
uintN line;
|
|
|
|
JSPrincipals *principals;
|
|
|
|
JSScript *script;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool ok;
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_EVAL_THIS_SCOPE
|
|
|
|
JSObject *callerScopeChain;
|
|
|
|
#endif
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
caller = cx->fp->down;
|
2000-03-11 09:32:42 +03:00
|
|
|
indirectCall = (!caller->pc || *caller->pc != JSOP_EVAL);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
if (JSVERSION_IS_ECMA(cx->version) && indirectCall) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_BAD_INDIRECT_CALL, js_eval_str);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
1998-11-05 03:08:43 +03:00
|
|
|
if (!JSVAL_IS_STRING(argv[0])) {
|
|
|
|
*rval = argv[0];
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_HAS_SCRIPT_OBJECT
|
|
|
|
/*
|
|
|
|
* Script.prototype.compile/exec and Object.prototype.eval all take an
|
|
|
|
* optional trailing argument that overrides the scope object.
|
|
|
|
*/
|
|
|
|
scopeobj = NULL;
|
|
|
|
if (argc >= 2) {
|
1998-10-14 14:22:38 +04:00
|
|
|
if (!js_ValueToObject(cx, argv[1], &scopeobj))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
1998-10-14 14:22:38 +04:00
|
|
|
argv[1] = OBJECT_TO_JSVAL(scopeobj);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!scopeobj)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
#if JS_HAS_EVAL_THIS_SCOPE
|
|
|
|
/* If obj.eval(str), emulate 'with (obj) eval(str)' in the caller. */
|
|
|
|
callerScopeChain = caller->scopeChain;
|
2000-01-18 14:06:05 +03:00
|
|
|
if (indirectCall) {
|
1998-04-24 04:31:11 +04:00
|
|
|
scopeobj = js_NewObject(cx, &js_WithClass, obj, callerScopeChain);
|
|
|
|
if (!scopeobj)
|
|
|
|
return JS_FALSE;
|
|
|
|
caller->scopeChain = scopeobj;
|
|
|
|
}
|
|
|
|
/* From here on, control must exit through label out with ok set. */
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_BUG_EVAL_THIS_SCOPE
|
|
|
|
/* An old version used the object in which eval was found for scope. */
|
|
|
|
scopeobj = obj;
|
|
|
|
#else
|
2000-02-04 05:01:49 +03:00
|
|
|
/* Compile using caller's current scope object. */
|
1998-04-24 04:31:11 +04:00
|
|
|
scopeobj = caller->scopeChain;
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
str = JSVAL_TO_STRING(argv[0]);
|
|
|
|
if (caller->script) {
|
|
|
|
file = caller->script->filename;
|
|
|
|
line = js_PCToLineNumber(caller->script, caller->pc);
|
|
|
|
principals = caller->script->principals;
|
|
|
|
} else {
|
|
|
|
file = NULL;
|
|
|
|
line = 0;
|
|
|
|
principals = NULL;
|
|
|
|
}
|
2000-04-05 06:17:38 +04:00
|
|
|
|
2000-02-04 05:01:49 +03:00
|
|
|
if (!indirectCall)
|
|
|
|
cx->fp->special |= JSFRAME_EVAL;
|
1998-04-24 04:31:11 +04:00
|
|
|
script = JS_CompileUCScriptForPrincipals(cx, scopeobj, principals,
|
1998-03-28 05:44:41 +03:00
|
|
|
str->chars, str->length,
|
|
|
|
file, line);
|
|
|
|
if (!script) {
|
|
|
|
ok = JS_FALSE;
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
#if !JS_BUG_EVAL_THIS_SCOPE
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_HAS_SCRIPT_OBJECT
|
|
|
|
if (argc < 2)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
/* Execute using caller's new scope object (might be a Call object). */
|
|
|
|
scopeobj = caller->scopeChain;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
2000-01-18 14:06:05 +03:00
|
|
|
ok = js_Execute(cx, scopeobj, script, caller->fun, caller,
|
2000-02-04 05:01:49 +03:00
|
|
|
cx->fp->special & JSFRAME_EVAL,
|
1999-12-01 07:30:04 +03:00
|
|
|
rval);
|
1998-03-28 05:44:41 +03:00
|
|
|
JS_DestroyScript(cx, script);
|
|
|
|
|
|
|
|
out:
|
|
|
|
#if JS_HAS_EVAL_THIS_SCOPE
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Restore OBJ_GET_PARENT(scopeobj) not callerScopeChain in case of Call. */
|
2000-01-18 14:06:05 +03:00
|
|
|
if (indirectCall)
|
1998-04-24 04:31:11 +04:00
|
|
|
caller->scopeChain = OBJ_GET_PARENT(cx, scopeobj);
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
|
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_watch_handler(JSContext *cx, JSObject *obj, jsval id, jsval old, jsval *nvp,
|
|
|
|
void *closure)
|
|
|
|
{
|
|
|
|
JSObject *funobj;
|
|
|
|
jsval argv[3];
|
|
|
|
|
2000-02-04 05:01:49 +03:00
|
|
|
funobj = (JSObject *) closure;
|
1998-03-28 05:44:41 +03:00
|
|
|
argv[0] = id;
|
|
|
|
argv[1] = old;
|
|
|
|
argv[2] = *nvp;
|
1999-06-26 07:28:47 +04:00
|
|
|
return js_InternalCall(cx, obj, OBJECT_TO_JSVAL(funobj), 3, argv, nvp);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_watch(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
|
|
|
JSFunction *fun;
|
1998-04-24 04:31:11 +04:00
|
|
|
jsval userid, value;
|
|
|
|
jsid symid;
|
|
|
|
uintN attrs;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
fun = js_ValueToFunction(cx, &argv[1], JS_FALSE);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!fun)
|
|
|
|
return JS_FALSE;
|
|
|
|
argv[1] = OBJECT_TO_JSVAL(fun->object);
|
|
|
|
|
|
|
|
/* Compute the unique int/atom symbol id needed by js_LookupProperty. */
|
|
|
|
userid = argv[0];
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!JS_ValueToId(cx, userid, &symid))
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_CHECK_ACCESS(cx, obj, symid, JSACC_WATCH, &value, &attrs))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (attrs & JSPROP_READONLY)
|
|
|
|
return JS_TRUE;
|
|
|
|
return JS_SetWatchPoint(cx, obj, userid, obj_watch_handler, fun->object);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_unwatch(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_ClearWatchPoint(cx, obj, argv[0], NULL, NULL);
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* JS_HAS_OBJ_WATCHPOINT */
|
|
|
|
|
1998-11-05 03:08:43 +03:00
|
|
|
#if JS_HAS_NEW_OBJ_METHODS
|
|
|
|
/*
|
|
|
|
* Prototype and property query methods, to complement the 'in' and
|
|
|
|
* 'instanceof' operators.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* Proposed ECMA 15.2.4.5. */
|
|
|
|
static JSBool
|
|
|
|
obj_hasOwnProperty(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
|
|
|
jsval *rval)
|
|
|
|
{
|
2000-06-01 02:10:53 +04:00
|
|
|
jsid id;
|
1998-11-05 03:08:43 +03:00
|
|
|
JSObject *obj2;
|
|
|
|
JSProperty *prop;
|
1999-06-26 07:28:47 +04:00
|
|
|
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!JS_ValueToId(cx, argv[0], &id))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (!OBJ_LOOKUP_PROPERTY(cx, obj, id, &obj2, &prop))
|
1998-11-05 03:08:43 +03:00
|
|
|
return JS_FALSE;
|
1999-07-01 06:24:32 +04:00
|
|
|
*rval = BOOLEAN_TO_JSVAL(prop && obj2 == obj);
|
1998-11-05 03:08:43 +03:00
|
|
|
if (prop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj2, prop);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Proposed ECMA 15.2.4.6. */
|
|
|
|
static JSBool
|
|
|
|
obj_isPrototypeOf(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
|
|
|
jsval *rval)
|
|
|
|
{
|
|
|
|
JSBool b;
|
|
|
|
|
|
|
|
if (!js_IsDelegate(cx, obj, *argv, &b))
|
|
|
|
return JS_FALSE;
|
1999-07-01 06:24:32 +04:00
|
|
|
*rval = BOOLEAN_TO_JSVAL(b);
|
1998-11-05 03:08:43 +03:00
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Proposed ECMA 15.2.4.7. */
|
|
|
|
static JSBool
|
|
|
|
obj_propertyIsEnumerable(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
|
|
|
jsval *rval)
|
|
|
|
{
|
2000-06-01 02:10:53 +04:00
|
|
|
jsid id;
|
1998-11-05 03:08:43 +03:00
|
|
|
uintN attrs;
|
1999-06-26 07:28:47 +04:00
|
|
|
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!JS_ValueToId(cx, argv[0], &id))
|
1998-11-05 03:08:43 +03:00
|
|
|
return JS_FALSE;
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!OBJ_GET_ATTRIBUTES(cx, obj, id, NULL, &attrs))
|
1999-09-22 09:54:44 +04:00
|
|
|
return JS_FALSE;
|
|
|
|
*rval = BOOLEAN_TO_JSVAL((attrs & JSPROP_ENUMERATE) != 0);
|
|
|
|
return JS_TRUE;
|
1998-11-05 03:08:43 +03:00
|
|
|
}
|
|
|
|
#endif /* JS_HAS_NEW_OBJ_METHODS */
|
|
|
|
|
2000-03-03 02:21:03 +03:00
|
|
|
#if JS_HAS_GETTER_SETTER
|
|
|
|
static JSBool
|
|
|
|
obj_defineGetter(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
2000-06-02 04:02:46 +04:00
|
|
|
jsval *rval)
|
2000-03-03 02:21:03 +03:00
|
|
|
{
|
2000-07-11 00:21:38 +04:00
|
|
|
jsval fval, junk;
|
2000-06-01 02:10:53 +04:00
|
|
|
jsid id;
|
2000-06-02 04:02:46 +04:00
|
|
|
JSBool found;
|
2000-07-11 00:21:38 +04:00
|
|
|
uintN attrs;
|
2000-03-03 02:21:03 +03:00
|
|
|
|
2000-04-04 12:17:05 +04:00
|
|
|
fval = argv[1];
|
2000-03-03 02:21:03 +03:00
|
|
|
if (JS_TypeOfValue(cx, fval) != JSTYPE_FUNCTION) {
|
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_BAD_GETTER_OR_SETTER,
|
|
|
|
js_getter_str);
|
|
|
|
return JS_FALSE;
|
2000-04-05 06:17:38 +04:00
|
|
|
}
|
2000-03-03 02:21:03 +03:00
|
|
|
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!JS_ValueToId(cx, argv[0], &id))
|
2000-03-03 02:21:03 +03:00
|
|
|
return JS_FALSE;
|
2000-06-02 04:02:46 +04:00
|
|
|
if (!js_CheckRedeclaration(cx, obj, id, JSPROP_GETTER, &found))
|
|
|
|
return JS_FALSE;
|
2000-07-11 00:21:38 +04:00
|
|
|
/*
|
|
|
|
* Getters and setters are just like watchpoints from an access
|
|
|
|
* control point of view.
|
|
|
|
*/
|
|
|
|
if (!OBJ_CHECK_ACCESS(cx, obj, id, JSACC_WATCH, &junk, &attrs))
|
|
|
|
return JS_FALSE;
|
2000-06-01 02:10:53 +04:00
|
|
|
return OBJ_DEFINE_PROPERTY(cx, obj, id, JSVAL_VOID,
|
2000-04-04 12:17:05 +04:00
|
|
|
(JSPropertyOp) JSVAL_TO_OBJECT(fval), NULL,
|
|
|
|
JSPROP_GETTER, NULL);
|
2000-03-03 02:21:03 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
obj_defineSetter(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
2000-06-02 04:02:46 +04:00
|
|
|
jsval *rval)
|
2000-03-03 02:21:03 +03:00
|
|
|
{
|
2000-07-11 00:21:38 +04:00
|
|
|
jsval fval, junk;
|
2000-06-01 02:10:53 +04:00
|
|
|
jsid id;
|
2000-06-02 04:02:46 +04:00
|
|
|
JSBool found;
|
2000-07-11 00:21:38 +04:00
|
|
|
uintN attrs;
|
2000-03-03 02:21:03 +03:00
|
|
|
|
2000-04-04 12:17:05 +04:00
|
|
|
fval = argv[1];
|
|
|
|
if (JS_TypeOfValue(cx, fval) != JSTYPE_FUNCTION) {
|
2000-03-03 02:21:03 +03:00
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_BAD_GETTER_OR_SETTER,
|
|
|
|
js_setter_str);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
2000-06-01 02:10:53 +04:00
|
|
|
if (!JS_ValueToId(cx, argv[0], &id))
|
2000-03-03 02:21:03 +03:00
|
|
|
return JS_FALSE;
|
2000-06-02 04:02:46 +04:00
|
|
|
if (!js_CheckRedeclaration(cx, obj, id, JSPROP_SETTER, &found))
|
|
|
|
return JS_FALSE;
|
2000-07-11 00:21:38 +04:00
|
|
|
/*
|
|
|
|
* Getters and setters are just like watchpoints from an access
|
|
|
|
* control point of view.
|
|
|
|
*/
|
|
|
|
if (!OBJ_CHECK_ACCESS(cx, obj, id, JSACC_WATCH, &junk, &attrs))
|
|
|
|
return JS_FALSE;
|
2000-06-01 02:10:53 +04:00
|
|
|
return OBJ_DEFINE_PROPERTY(cx, obj, id, JSVAL_VOID,
|
2000-04-04 12:17:05 +04:00
|
|
|
NULL, (JSPropertyOp) JSVAL_TO_OBJECT(fval),
|
|
|
|
JSPROP_SETTER, NULL);
|
2000-03-03 02:21:03 +03:00
|
|
|
}
|
|
|
|
#endif /* JS_HAS_GETTER_SETTER */
|
|
|
|
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
static JSFunctionSpec object_methods[] = {
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_HAS_TOSOURCE
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
{js_toSource_str, js_obj_toSource, 0, 0, OBJ_TOSTRING_EXTRA},
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
{js_toString_str, js_obj_toString, 0, 0, OBJ_TOSTRING_EXTRA},
|
1999-11-12 00:52:35 +03:00
|
|
|
{js_valueOf_str, obj_valueOf, 0,0,0},
|
|
|
|
{js_eval_str, obj_eval, 1,0,0},
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
1999-11-12 00:52:35 +03:00
|
|
|
{"watch", obj_watch, 2,0,0},
|
|
|
|
{"unwatch", obj_unwatch, 1,0,0},
|
1998-11-05 03:08:43 +03:00
|
|
|
#endif
|
|
|
|
#if JS_HAS_NEW_OBJ_METHODS
|
1999-11-12 00:52:35 +03:00
|
|
|
{"hasOwnProperty", obj_hasOwnProperty, 1,0,0},
|
|
|
|
{"isPrototypeOf", obj_isPrototypeOf, 1,0,0},
|
|
|
|
{"propertyIsEnumerable", obj_propertyIsEnumerable, 1,0,0},
|
2000-03-03 02:21:03 +03:00
|
|
|
#endif
|
|
|
|
#if JS_HAS_GETTER_SETTER
|
|
|
|
{"__defineGetter__", obj_defineGetter, 2,0,0},
|
|
|
|
{"__defineSetter__", obj_defineSetter, 2,0,0},
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
1999-11-12 00:52:35 +03:00
|
|
|
{0,0,0,0,0}
|
1998-03-28 05:44:41 +03:00
|
|
|
};
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
Object(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
if (argc == 0) {
|
1998-10-14 14:22:38 +04:00
|
|
|
/* Trigger logic below to construct a blank object. */
|
|
|
|
obj = NULL;
|
1998-04-24 04:31:11 +04:00
|
|
|
} else {
|
|
|
|
/* If argv[0] is null or undefined, obj comes back null. */
|
|
|
|
if (!js_ValueToObject(cx, argv[0], &obj))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
if (!obj) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(!argc || JSVAL_IS_NULL(argv[0]) || JSVAL_IS_VOID(argv[0]));
|
1998-04-24 04:31:11 +04:00
|
|
|
if (cx->fp->constructing)
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_TRUE;
|
1998-04-24 04:31:11 +04:00
|
|
|
obj = js_NewObject(cx, &js_ObjectClass, NULL, NULL);
|
|
|
|
if (!obj)
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
*rval = OBJECT_TO_JSVAL(obj);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
1998-04-24 04:31:11 +04:00
|
|
|
* ObjectOps and Class for with-statement stack objects.
|
1998-03-28 05:44:41 +03:00
|
|
|
*/
|
|
|
|
static JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
with_LookupProperty(JSContext *cx, JSObject *obj, jsid id, JSObject **objp,
|
|
|
|
JSProperty **propp
|
|
|
|
#if defined JS_THREADSAFE && defined DEBUG
|
|
|
|
, const char *file, uintN line
|
|
|
|
#endif
|
|
|
|
)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_LookupProperty(cx, obj, id, objp, propp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_LOOKUP_PROPERTY(cx, proto, id, objp, propp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_GetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_GetProperty(cx, obj, id, vp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_GET_PROPERTY(cx, proto, id, vp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_SetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_SetProperty(cx, obj, id, vp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_SET_PROPERTY(cx, proto, id, vp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_GetAttributes(JSContext *cx, JSObject *obj, jsid id, JSProperty *prop,
|
|
|
|
uintN *attrsp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_GetAttributes(cx, obj, id, prop, attrsp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_GET_ATTRIBUTES(cx, proto, id, prop, attrsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_SetAttributes(JSContext *cx, JSObject *obj, jsid id, JSProperty *prop,
|
|
|
|
uintN *attrsp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_SetAttributes(cx, obj, id, prop, attrsp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_SET_ATTRIBUTES(cx, proto, id, prop, attrsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_DeleteProperty(JSContext *cx, JSObject *obj, jsid id, jsval *rval)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_DeleteProperty(cx, obj, id, rval);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_DELETE_PROPERTY(cx, proto, id, rval);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_DefaultValue(JSContext *cx, JSObject *obj, JSType hint, jsval *vp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
|
|
|
return js_DefaultValue(cx, obj, hint, vp);
|
|
|
|
return OBJ_DEFAULT_VALUE(cx, proto, hint, vp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_Enumerate(JSContext *cx, JSObject *obj, JSIterateOp enum_op,
|
1998-10-14 14:22:38 +04:00
|
|
|
jsval *statep, jsid *idp)
|
1998-04-24 04:31:11 +04:00
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_Enumerate(cx, obj, enum_op, statep, idp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_ENUMERATE(cx, proto, enum_op, statep, idp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
|
|
|
with_CheckAccess(JSContext *cx, JSObject *obj, jsid id, JSAccessMode mode,
|
|
|
|
jsval *vp, uintN *attrsp)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_CheckAccess(cx, obj, id, mode, vp, attrsp);
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_CHECK_ACCESS(cx, proto, id, mode, vp, attrsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static JSObject *
|
|
|
|
with_ThisObject(JSContext *cx, JSObject *obj)
|
|
|
|
{
|
|
|
|
JSObject *proto = OBJ_GET_PROTO(cx, obj);
|
|
|
|
if (!proto)
|
1998-10-14 14:22:38 +04:00
|
|
|
return obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
return OBJ_THIS_OBJECT(cx, proto);
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_FRIEND_DATA(JSObjectOps) js_WithObjectOps = {
|
1998-04-24 04:31:11 +04:00
|
|
|
js_NewObjectMap, js_DestroyObjectMap,
|
|
|
|
with_LookupProperty, js_DefineProperty,
|
|
|
|
with_GetProperty, with_SetProperty,
|
|
|
|
with_GetAttributes, with_SetAttributes,
|
|
|
|
with_DeleteProperty, with_DefaultValue,
|
|
|
|
with_Enumerate, with_CheckAccess,
|
1999-11-12 00:52:35 +03:00
|
|
|
with_ThisObject, NATIVE_DROP_PROPERTY,
|
2000-06-27 06:37:25 +04:00
|
|
|
NULL, NULL,
|
|
|
|
NULL, NULL,
|
|
|
|
js_SetProtoOrParent, js_SetProtoOrParent,
|
|
|
|
0,0,0,0
|
1998-04-24 04:31:11 +04:00
|
|
|
};
|
|
|
|
|
|
|
|
static JSObjectOps *
|
|
|
|
with_getObjectOps(JSContext *cx, JSClass *clasp)
|
|
|
|
{
|
1998-10-14 14:22:38 +04:00
|
|
|
return &js_WithObjectOps;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSClass js_WithClass = {
|
|
|
|
"With",
|
1998-04-24 04:31:11 +04:00
|
|
|
0,
|
|
|
|
JS_PropertyStub, JS_PropertyStub, JS_PropertyStub, JS_PropertyStub,
|
|
|
|
JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub,
|
1999-11-12 00:52:35 +03:00
|
|
|
with_getObjectOps,
|
|
|
|
0,0,0,0,0,{0,0}
|
1998-03-28 05:44:41 +03:00
|
|
|
};
|
|
|
|
|
|
|
|
#if JS_HAS_OBJ_PROTO_PROP
|
|
|
|
static JSBool
|
|
|
|
With(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
|
|
|
JSObject *parent, *proto;
|
|
|
|
jsval v;
|
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
if (JS_HAS_STRICT_OPTION(cx)) {
|
|
|
|
if (!JS_ReportErrorFlagsAndNumber(cx,
|
|
|
|
JSREPORT_WARNING | JSREPORT_STRICT,
|
|
|
|
js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_DEPRECATED_USAGE,
|
|
|
|
js_WithClass.name)) {
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!cx->fp->constructing) {
|
|
|
|
obj = js_NewObject(cx, &js_WithClass, NULL, NULL);
|
|
|
|
if (!obj)
|
|
|
|
return JS_FALSE;
|
|
|
|
*rval = OBJECT_TO_JSVAL(obj);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
parent = cx->fp->scopeChain;
|
|
|
|
if (argc > 0) {
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!js_ValueToObject(cx, argv[0], &proto))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
v = OBJECT_TO_JSVAL(proto);
|
|
|
|
if (!obj_setSlot(cx, obj, INT_TO_JSVAL(JSSLOT_PROTO), &v))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (argc > 1) {
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!js_ValueToObject(cx, argv[1], &parent))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
v = OBJECT_TO_JSVAL(parent);
|
|
|
|
return obj_setSlot(cx, obj, INT_TO_JSVAL(JSSLOT_PARENT), &v);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
JSObject *
|
|
|
|
js_InitObjectClass(JSContext *cx, JSObject *obj)
|
|
|
|
{
|
|
|
|
JSObject *proto;
|
2000-05-02 01:55:52 +04:00
|
|
|
jsval fval;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
#if JS_HAS_SHARP_VARS
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(sizeof(jsatomid) * JS_BITS_PER_BYTE >= ATOM_INDEX_LIMIT_LOG2 + 1);
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
proto = JS_InitClass(cx, obj, NULL, &js_ObjectClass, Object, 1,
|
1998-03-28 05:44:41 +03:00
|
|
|
object_props, object_methods, NULL, NULL);
|
|
|
|
#if JS_HAS_OBJ_PROTO_PROP
|
|
|
|
if (!JS_InitClass(cx, obj, NULL, &js_WithClass, With, 0,
|
|
|
|
NULL, NULL, NULL, NULL)) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#endif
|
2000-06-27 06:37:25 +04:00
|
|
|
|
2000-05-02 01:55:52 +04:00
|
|
|
/* ECMA (15.1.2.1) says 'eval' is also a property of the global object. */
|
|
|
|
if (!OBJ_GET_PROPERTY(cx, proto, (jsid)cx->runtime->atomState.evalAtom,
|
|
|
|
&fval)) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (!OBJ_DEFINE_PROPERTY(cx, obj, (jsid)cx->runtime->atomState.evalAtom,
|
|
|
|
fval, NULL, NULL, 0, NULL)) {
|
|
|
|
return NULL;
|
|
|
|
}
|
2000-06-27 06:37:25 +04:00
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
return proto;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
void
|
|
|
|
js_InitObjectMap(JSObjectMap *map, jsrefcount nrefs, JSObjectOps *ops,
|
|
|
|
JSClass *clasp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
map->nrefs = nrefs;
|
|
|
|
map->ops = ops;
|
|
|
|
map->nslots = 0;
|
|
|
|
map->freeslot = JSSLOT_FREE(clasp);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObjectMap *
|
|
|
|
js_NewObjectMap(JSContext *cx, jsrefcount nrefs, JSObjectOps *ops,
|
|
|
|
JSClass *clasp, JSObject *obj)
|
|
|
|
{
|
|
|
|
return (JSObjectMap *) js_NewScope(cx, nrefs, ops, clasp, obj);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
void
|
|
|
|
js_DestroyObjectMap(JSContext *cx, JSObjectMap *map)
|
|
|
|
{
|
|
|
|
js_DestroyScope(cx, (JSScope *)map);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObjectMap *
|
|
|
|
js_HoldObjectMap(JSContext *cx, JSObjectMap *map)
|
|
|
|
{
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(map->nrefs >= 0);
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_ATOMIC_ADDREF(&map->nrefs, 1);
|
|
|
|
return map;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSObjectMap *
|
|
|
|
js_DropObjectMap(JSContext *cx, JSObjectMap *map, JSObject *obj)
|
|
|
|
{
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(map->nrefs > 0);
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_ATOMIC_ADDREF(&map->nrefs, -1);
|
|
|
|
if (map->nrefs == 0) {
|
|
|
|
map->ops->destroyObjectMap(cx, map);
|
|
|
|
return NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (MAP_IS_NATIVE(map) && ((JSScope *)map)->object == obj)
|
|
|
|
((JSScope *)map)->object = NULL;
|
|
|
|
return map;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSObject *
|
|
|
|
js_NewObject(JSContext *cx, JSClass *clasp, JSObject *proto, JSObject *parent)
|
|
|
|
{
|
|
|
|
JSObject *obj, *ctor;
|
|
|
|
JSObjectOps *ops;
|
|
|
|
JSObjectMap *map;
|
|
|
|
jsval cval;
|
|
|
|
uint32 i;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Allocate an object from the GC heap and zero it. */
|
2000-02-04 05:01:49 +03:00
|
|
|
obj = (JSObject *) js_AllocGCThing(cx, GCX_OBJECT);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!obj)
|
1998-03-28 05:44:41 +03:00
|
|
|
return NULL;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
/* Bootstrap the ur-object, and make it the default prototype object. */
|
|
|
|
if (!proto) {
|
|
|
|
if (!js_GetClassPrototype(cx, clasp->name, &proto))
|
|
|
|
goto bad;
|
|
|
|
if (!proto && !js_GetClassPrototype(cx, js_ObjectClass.name, &proto))
|
|
|
|
goto bad;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Always call the class's getObjectOps hook if it has one. */
|
|
|
|
ops = clasp->getObjectOps
|
|
|
|
? clasp->getObjectOps(cx, clasp)
|
|
|
|
: &js_ObjectOps;
|
|
|
|
|
|
|
|
if (proto && (map = proto->map)->ops == ops) {
|
|
|
|
/* Default parent to the parent of the prototype's constructor. */
|
|
|
|
if (!parent) {
|
|
|
|
if (!OBJ_GET_PROPERTY(cx, proto,
|
|
|
|
(jsid)cx->runtime->atomState.constructorAtom,
|
|
|
|
&cval)) {
|
|
|
|
goto bad;
|
|
|
|
}
|
|
|
|
if (JSVAL_IS_OBJECT(cval) && (ctor = JSVAL_TO_OBJECT(cval)) != NULL)
|
1998-10-14 14:22:38 +04:00
|
|
|
parent = OBJ_GET_PARENT(cx, ctor);
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Share the given prototype's map. */
|
|
|
|
obj->map = js_HoldObjectMap(cx, map);
|
|
|
|
} else {
|
|
|
|
/* Leave parent alone. Allocate a new map for obj. */
|
|
|
|
map = ops->newObjectMap(cx, 1, ops, clasp, obj);
|
|
|
|
if (!map)
|
|
|
|
goto bad;
|
|
|
|
if (map->nslots == 0)
|
|
|
|
map->nslots = JS_INITIAL_NSLOTS;
|
|
|
|
obj->map = map;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
/* Set the proto, parent, and class properties. */
|
2000-02-04 05:01:49 +03:00
|
|
|
obj->slots = (jsval *) JS_malloc(cx, JS_INITIAL_NSLOTS * sizeof(jsval));
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!obj->slots)
|
|
|
|
goto bad;
|
|
|
|
obj->slots[JSSLOT_PROTO] = OBJECT_TO_JSVAL(proto);
|
|
|
|
obj->slots[JSSLOT_PARENT] = OBJECT_TO_JSVAL(parent);
|
|
|
|
obj->slots[JSSLOT_CLASS] = PRIVATE_TO_JSVAL(clasp);
|
|
|
|
for (i = JSSLOT_CLASS+1; i < JS_INITIAL_NSLOTS; i++)
|
|
|
|
obj->slots[i] = JSVAL_VOID;
|
1998-10-14 14:22:38 +04:00
|
|
|
|
|
|
|
if (cx->runtime->objectHook) {
|
|
|
|
cx->runtime->objectHook(cx, obj, JS_TRUE, cx->runtime->objectHookData);
|
|
|
|
}
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
return obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
bad:
|
|
|
|
cx->newborn[GCX_OBJECT] = NULL;
|
|
|
|
return NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
static JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
FindConstructor(JSContext *cx, const char *name, jsval *vp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSAtom *atom;
|
|
|
|
JSObject *obj, *tmp;
|
1998-06-10 03:04:48 +04:00
|
|
|
JSObject *pobj;
|
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
atom = js_Atomize(cx, name, strlen(name), 0);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!atom)
|
|
|
|
return JS_FALSE;
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (cx->fp && (tmp = cx->fp->scopeChain) != NULL) {
|
1998-03-28 05:44:41 +03:00
|
|
|
/* Find the topmost object in the scope chain. */
|
|
|
|
do {
|
|
|
|
obj = tmp;
|
1998-04-24 04:31:11 +04:00
|
|
|
tmp = OBJ_GET_PARENT(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
} while (tmp);
|
|
|
|
} else {
|
|
|
|
obj = cx->globalObject;
|
|
|
|
if (!obj) {
|
|
|
|
*vp = JSVAL_VOID;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1998-07-31 04:07:22 +04:00
|
|
|
if (!OBJ_LOOKUP_PROPERTY(cx, obj, (jsid)atom, &pobj, (JSProperty**)&sprop))
|
1998-06-10 03:04:48 +04:00
|
|
|
return JS_FALSE;
|
1998-07-31 04:07:22 +04:00
|
|
|
if (!sprop) {
|
1998-06-10 03:04:48 +04:00
|
|
|
*vp = JSVAL_VOID;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(OBJ_IS_NATIVE(pobj));
|
1998-06-10 03:04:48 +04:00
|
|
|
*vp = OBJ_GET_SLOT(cx, pobj, sprop->slot);
|
|
|
|
OBJ_DROP_PROPERTY(cx, pobj, (JSProperty *)sprop);
|
|
|
|
return JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSObject *
|
|
|
|
js_ConstructObject(JSContext *cx, JSClass *clasp, JSObject *proto,
|
|
|
|
JSObject *parent)
|
|
|
|
{
|
2000-01-18 14:06:05 +03:00
|
|
|
jsval cval, rval;
|
1998-08-26 10:14:55 +04:00
|
|
|
JSObject *obj, *ctor;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
if (!FindConstructor(cx, clasp->name, &cval))
|
1998-10-14 14:22:38 +04:00
|
|
|
return NULL;
|
1998-08-26 10:14:55 +04:00
|
|
|
|
|
|
|
/*
|
|
|
|
* If proto or parent are NULL, set them to Constructor.prototype and/or
|
|
|
|
* Constructor.__parent__, just like JSOP_NEW does.
|
|
|
|
*/
|
|
|
|
ctor = JSVAL_TO_OBJECT(cval);
|
|
|
|
if (!parent)
|
1998-10-14 14:22:38 +04:00
|
|
|
parent = OBJ_GET_PARENT(cx, ctor);
|
1998-08-26 10:14:55 +04:00
|
|
|
if (!proto) {
|
1998-10-14 14:22:38 +04:00
|
|
|
if (!OBJ_GET_PROPERTY(cx, ctor,
|
|
|
|
(jsid)cx->runtime->atomState.classPrototypeAtom,
|
|
|
|
&rval)) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (JSVAL_IS_OBJECT(rval))
|
|
|
|
proto = JSVAL_TO_OBJECT(rval);
|
1998-08-26 10:14:55 +04:00
|
|
|
}
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
obj = js_NewObject(cx, clasp, proto, parent);
|
|
|
|
if (!obj)
|
|
|
|
return NULL;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
2000-01-18 14:06:05 +03:00
|
|
|
if (!js_InternalConstruct(cx, obj, cval, 0, NULL, &rval))
|
1998-04-24 04:31:11 +04:00
|
|
|
goto bad;
|
1998-03-28 05:44:41 +03:00
|
|
|
return JSVAL_IS_OBJECT(rval) ? JSVAL_TO_OBJECT(rval) : obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
bad:
|
|
|
|
cx->newborn[GCX_OBJECT] = NULL;
|
|
|
|
return NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
js_FinalizeObject(JSContext *cx, JSObject *obj)
|
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObjectMap *map;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Cope with stillborn objects that have no map. */
|
|
|
|
map = obj->map;
|
|
|
|
if (!map)
|
1998-03-28 05:44:41 +03:00
|
|
|
return;
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
if (cx->runtime->objectHook) {
|
|
|
|
cx->runtime->objectHook(cx, obj, JS_FALSE, cx->runtime->objectHookData);
|
|
|
|
}
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
|
|
|
/* Remove all watchpoints with weak links to obj. */
|
|
|
|
JS_ClearWatchPointsForObject(cx, obj);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Finalize obj first, in case it needs map and slots. */
|
1998-04-24 04:31:11 +04:00
|
|
|
OBJ_GET_CLASS(cx, obj)->finalize(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Drop map and free slots. */
|
|
|
|
js_DropObjectMap(cx, map, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
obj->map = NULL;
|
|
|
|
JS_free(cx, obj->slots);
|
|
|
|
obj->slots = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_AllocSlot(JSContext *cx, JSObject *obj, uint32 *slotp)
|
|
|
|
{
|
|
|
|
JSObjectMap *map;
|
|
|
|
uint32 nslots;
|
|
|
|
size_t nbytes;
|
|
|
|
jsval *newslots;
|
|
|
|
|
|
|
|
map = obj->map;
|
|
|
|
nslots = map->nslots;
|
|
|
|
if (map->freeslot >= nslots) {
|
1998-10-14 14:22:38 +04:00
|
|
|
nslots = JS_MAX(map->freeslot, nslots);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (nslots < JS_INITIAL_NSLOTS)
|
|
|
|
nslots = JS_INITIAL_NSLOTS;
|
|
|
|
else
|
|
|
|
nslots += (nslots + 1) / 2;
|
|
|
|
|
|
|
|
nbytes = (size_t)nslots * sizeof(jsval);
|
|
|
|
#if defined(XP_PC) && defined _MSC_VER && _MSC_VER <= 800
|
|
|
|
if (nbytes > 60000U) {
|
|
|
|
JS_ReportOutOfMemory(cx);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (obj->slots) {
|
2000-02-04 05:01:49 +03:00
|
|
|
newslots = (jsval *) JS_realloc(cx, obj->slots, nbytes);
|
1998-04-24 04:31:11 +04:00
|
|
|
} else {
|
|
|
|
/* obj must be newborn and unshared at this point. */
|
2000-02-04 05:01:49 +03:00
|
|
|
newslots = (jsval *) JS_malloc(cx, nbytes);
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!newslots)
|
|
|
|
return JS_FALSE;
|
|
|
|
obj->slots = newslots;
|
|
|
|
map->nslots = nslots;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef TOO_MUCH_GC
|
|
|
|
obj->slots[map->freeslot] = JSVAL_VOID;
|
|
|
|
#endif
|
|
|
|
*slotp = map->freeslot++;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
js_FreeSlot(JSContext *cx, JSObject *obj, uint32 slot)
|
|
|
|
{
|
|
|
|
JSObjectMap *map;
|
|
|
|
uint32 nslots;
|
|
|
|
size_t nbytes;
|
|
|
|
jsval *newslots;
|
|
|
|
|
2000-02-27 02:47:33 +03:00
|
|
|
OBJ_CHECK_SLOT(obj,slot);
|
1998-04-24 04:31:11 +04:00
|
|
|
obj->slots[slot] = JSVAL_VOID;
|
1998-03-28 05:44:41 +03:00
|
|
|
map = obj->map;
|
|
|
|
if (map->freeslot == slot + 1)
|
|
|
|
map->freeslot = slot;
|
|
|
|
nslots = map->nslots;
|
|
|
|
if (nslots > JS_INITIAL_NSLOTS && map->freeslot < nslots / 2) {
|
|
|
|
nslots = map->freeslot;
|
|
|
|
nslots += nslots / 2;
|
|
|
|
nbytes = (size_t)nslots * sizeof(jsval);
|
2000-02-04 05:01:49 +03:00
|
|
|
newslots = (jsval *) JS_realloc(cx, obj->slots, nbytes);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!newslots)
|
|
|
|
return;
|
|
|
|
obj->slots = newslots;
|
|
|
|
map->nslots = nslots;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#if JS_BUG_EMPTY_INDEX_ZERO
|
|
|
|
#define CHECK_FOR_EMPTY_INDEX(id) \
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_BEGIN_MACRO \
|
1998-03-28 05:44:41 +03:00
|
|
|
if (_str->length == 0) \
|
|
|
|
id = JSVAL_ZERO; \
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_END_MACRO
|
1998-03-28 05:44:41 +03:00
|
|
|
#else
|
|
|
|
#define CHECK_FOR_EMPTY_INDEX(id) /* nothing */
|
|
|
|
#endif
|
|
|
|
|
1998-07-31 04:07:22 +04:00
|
|
|
/* JSVAL_INT_MAX as a string */
|
|
|
|
#define JSVAL_INT_MAX_STRING "1073741823"
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
#define CHECK_FOR_FUNNY_INDEX(id) \
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_BEGIN_MACRO \
|
|
|
|
if (!JSVAL_IS_INT(id)) { \
|
1998-03-28 05:44:41 +03:00
|
|
|
JSAtom *_atom = (JSAtom *)id; \
|
|
|
|
JSString *_str = ATOM_TO_STRING(_atom); \
|
|
|
|
const jschar *_cp = _str->chars; \
|
1998-07-31 04:07:22 +04:00
|
|
|
if (JS7_ISDEC(*_cp) && \
|
1998-10-14 14:22:38 +04:00
|
|
|
_str->length <= sizeof(JSVAL_INT_MAX_STRING)-1) \
|
|
|
|
{ \
|
1998-07-31 04:07:22 +04:00
|
|
|
jsuint _index = JS7_UNDEC(*_cp++); \
|
1998-10-14 14:22:38 +04:00
|
|
|
jsuint _oldIndex = 0; \
|
1998-11-05 03:08:43 +03:00
|
|
|
jsuint _c = 0; \
|
1998-10-14 14:22:38 +04:00
|
|
|
if (_index != 0) { \
|
|
|
|
while (JS7_ISDEC(*_cp)) { \
|
|
|
|
_oldIndex = _index; \
|
|
|
|
_c = JS7_UNDEC(*_cp); \
|
|
|
|
_index = 10*_index + _c; \
|
|
|
|
_cp++; \
|
|
|
|
} \
|
|
|
|
} \
|
|
|
|
if (*_cp == 0 && \
|
|
|
|
(_oldIndex < (JSVAL_INT_MAX / 10) || \
|
|
|
|
(_oldIndex == (JSVAL_INT_MAX / 10) && \
|
|
|
|
_c < (JSVAL_INT_MAX % 10)))) \
|
1998-03-28 05:44:41 +03:00
|
|
|
id = INT_TO_JSVAL(_index); \
|
|
|
|
} else { \
|
|
|
|
CHECK_FOR_EMPTY_INDEX(id); \
|
|
|
|
} \
|
|
|
|
} \
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_END_MACRO
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-07-31 04:07:22 +04:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool
|
|
|
|
js_DefineProperty(JSContext *cx, JSObject *obj, jsid id, jsval value,
|
|
|
|
JSPropertyOp getter, JSPropertyOp setter, uintN attrs,
|
|
|
|
JSProperty **propp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSClass *clasp;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSScope *scope;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Handle old bug that took empty string as zero index. Also convert
|
|
|
|
* string indices to integers if appropriate.
|
1999-07-01 06:24:32 +04:00
|
|
|
*/
|
1998-03-28 05:44:41 +03:00
|
|
|
CHECK_FOR_FUNNY_INDEX(id);
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Lock if object locking is required by this implementation. */
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
|
1999-09-21 04:13:48 +04:00
|
|
|
#if JS_HAS_GETTER_SETTER
|
|
|
|
/*
|
|
|
|
* If defining a getter or setter, we must check for its counterpart and
|
|
|
|
* update the attributes and property ops. A getter or setter is really
|
|
|
|
* only half of a property.
|
|
|
|
*/
|
|
|
|
if (attrs & (JSPROP_GETTER | JSPROP_SETTER)) {
|
|
|
|
JSObject *pobj;
|
|
|
|
|
|
|
|
if (!js_LookupProperty(cx, obj, id, &pobj, (JSProperty **)&sprop))
|
|
|
|
goto bad;
|
|
|
|
if (sprop &&
|
|
|
|
pobj == obj &&
|
|
|
|
(sprop->attrs & (JSPROP_GETTER | JSPROP_SETTER))) {
|
|
|
|
sprop->attrs |= attrs;
|
|
|
|
if (attrs & JSPROP_GETTER)
|
1999-11-02 05:23:50 +03:00
|
|
|
SPROP_GETTER(sprop, pobj) = getter;
|
1999-09-21 04:13:48 +04:00
|
|
|
else
|
1999-11-02 05:23:50 +03:00
|
|
|
SPROP_SETTER(sprop, pobj) = setter;
|
1999-09-21 04:13:48 +04:00
|
|
|
if (propp)
|
|
|
|
*propp = (JSProperty *) sprop;
|
|
|
|
#ifdef JS_THREADSAFE
|
|
|
|
else {
|
|
|
|
/* Release sprop and the lock acquired by js_LookupProperty. */
|
|
|
|
js_DropProperty(cx, obj, (JSProperty *)sprop);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
/* Release our lock on obj, in which js_LookupProperty's nested. */
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
2000-04-01 08:23:04 +04:00
|
|
|
|
|
|
|
if (sprop) {
|
|
|
|
/* NB: call OBJ_DROP_PROPERTY, as pobj might not be native. */
|
|
|
|
OBJ_DROP_PROPERTY(cx, pobj, (JSProperty *)sprop);
|
|
|
|
}
|
1999-09-21 04:13:48 +04:00
|
|
|
}
|
|
|
|
#endif /* JS_HAS_GETTER_SETTER */
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
/* Use the object's class getter and setter by default. */
|
1998-04-24 04:31:11 +04:00
|
|
|
clasp = LOCKED_OBJ_GET_CLASS(obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!getter)
|
1998-04-24 04:31:11 +04:00
|
|
|
getter = clasp->getProperty;
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!setter)
|
1998-04-24 04:31:11 +04:00
|
|
|
setter = clasp->setProperty;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
/* Find a sharable scope, or get a new one for obj. */
|
1998-04-24 04:31:11 +04:00
|
|
|
scope = js_MutateScope(cx, obj, id, getter, setter, attrs, &sprop);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!scope)
|
1998-04-24 04:31:11 +04:00
|
|
|
goto bad;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
/* Add the property only if MutateScope didn't find a shared scope. */
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!sprop) {
|
|
|
|
sprop = js_NewScopeProperty(cx, scope, id, getter, setter, attrs);
|
|
|
|
if (!sprop)
|
|
|
|
goto bad;
|
|
|
|
/* XXXbe called with lock held */
|
|
|
|
if (!clasp->addProperty(cx, obj, sprop->id, &value) ||
|
|
|
|
!scope->ops->add(cx, scope, id, sprop)) {
|
|
|
|
js_DestroyScopeProperty(cx, scope, sprop);
|
|
|
|
goto bad;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
PROPERTY_CACHE_FILL(cx, &cx->runtime->propertyCache, obj, id,
|
|
|
|
(JSProperty *)sprop);
|
|
|
|
}
|
|
|
|
|
|
|
|
LOCKED_OBJ_SET_SLOT(obj, sprop->slot, value);
|
|
|
|
if (propp) {
|
|
|
|
#ifdef JS_THREADSAFE
|
|
|
|
js_HoldScopeProperty(cx, scope, sprop);
|
|
|
|
#endif
|
1998-10-14 14:22:38 +04:00
|
|
|
*propp = (JSProperty *) sprop;
|
1998-04-24 04:31:11 +04:00
|
|
|
} else {
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
return JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
bad:
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
#if defined JS_THREADSAFE && defined DEBUG
|
1998-03-28 05:44:41 +03:00
|
|
|
JS_FRIEND_API(JSBool)
|
1998-04-24 04:31:11 +04:00
|
|
|
_js_LookupProperty(JSContext *cx, JSObject *obj, jsid id, JSObject **objp,
|
|
|
|
JSProperty **propp, const char *file, uintN line)
|
|
|
|
#else
|
|
|
|
JS_FRIEND_API(JSBool)
|
|
|
|
js_LookupProperty(JSContext *cx, JSObject *obj, jsid id, JSObject **objp,
|
1998-03-28 05:44:41 +03:00
|
|
|
JSProperty **propp)
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashNumber hash;
|
2000-04-15 06:01:02 +04:00
|
|
|
JSScope *scope;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSSymbol *sym;
|
|
|
|
JSClass *clasp;
|
|
|
|
JSResolveOp resolve;
|
|
|
|
JSNewResolveOp newresolve;
|
1998-04-24 04:31:11 +04:00
|
|
|
uintN flags;
|
|
|
|
uint32 format;
|
|
|
|
JSObject *obj2, *proto;
|
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Handle old bug that took empty string as zero index. Also convert
|
|
|
|
* string indices to integers if appropriate.
|
1999-07-01 06:24:32 +04:00
|
|
|
*/
|
1998-03-28 05:44:41 +03:00
|
|
|
CHECK_FOR_FUNNY_INDEX(id);
|
|
|
|
|
|
|
|
/* Search scopes starting with obj and following the prototype link. */
|
|
|
|
hash = js_HashValue(id);
|
1998-04-24 04:31:11 +04:00
|
|
|
for (;;) {
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
_SET_OBJ_INFO(obj, file, line);
|
1999-11-02 05:23:50 +03:00
|
|
|
scope = OBJ_SCOPE(obj);
|
2000-04-15 06:01:02 +04:00
|
|
|
if (scope->object == obj) {
|
|
|
|
sym = scope->ops->lookup(cx, scope, id, hash);
|
|
|
|
} else {
|
|
|
|
/* Shared prototype scope: try resolve before lookup. */
|
|
|
|
sym = NULL;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!sym) {
|
|
|
|
clasp = LOCKED_OBJ_GET_CLASS(obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
resolve = clasp->resolve;
|
1999-09-21 04:13:48 +04:00
|
|
|
if (resolve != JS_ResolveStub) {
|
1998-03-28 05:44:41 +03:00
|
|
|
if (clasp->flags & JSCLASS_NEW_RESOLVE) {
|
|
|
|
newresolve = (JSNewResolveOp)resolve;
|
1998-04-24 04:31:11 +04:00
|
|
|
flags = 0;
|
|
|
|
if (cx->fp && cx->fp->pc) {
|
|
|
|
format = js_CodeSpec[*cx->fp->pc].format;
|
|
|
|
if ((format & JOF_MODEMASK) != JOF_NAME)
|
|
|
|
flags |= JSRESOLVE_QUALIFIED;
|
|
|
|
if (format & JOF_SET)
|
|
|
|
flags |= JSRESOLVE_ASSIGNING;
|
|
|
|
}
|
|
|
|
obj2 = NULL;
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
if (!newresolve(cx, obj, js_IdToValue(id), flags, &obj2))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
_SET_OBJ_INFO(obj, file, line);
|
|
|
|
if (obj2) {
|
1999-11-02 05:23:50 +03:00
|
|
|
scope = OBJ_SCOPE(obj2);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (MAP_IS_NATIVE(&scope->map))
|
|
|
|
sym = scope->ops->lookup(cx, scope, id, hash);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
} else {
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (!resolve(cx, obj, js_IdToValue(id)))
|
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
_SET_OBJ_INFO(obj, file, line);
|
1999-11-02 05:23:50 +03:00
|
|
|
scope = OBJ_SCOPE(obj);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (MAP_IS_NATIVE(&scope->map))
|
|
|
|
sym = scope->ops->lookup(cx, scope, id, hash);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (sym && (sprop = sym_property(sym)) != NULL) {
|
1999-11-02 05:23:50 +03:00
|
|
|
JS_ASSERT(OBJ_SCOPE(obj) == scope);
|
1998-04-24 04:31:11 +04:00
|
|
|
*objp = scope->object; /* XXXbe hide in jsscope.[ch] */
|
|
|
|
#ifdef JS_THREADSAFE
|
|
|
|
js_HoldScopeProperty(cx, scope, sprop);
|
|
|
|
#endif
|
|
|
|
*propp = (JSProperty *) sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
proto = LOCKED_OBJ_GET_PROTO(obj);
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
if (!proto)
|
|
|
|
break;
|
|
|
|
if (!OBJ_IS_NATIVE(proto))
|
|
|
|
return OBJ_LOOKUP_PROPERTY(cx, proto, id, objp, propp);
|
|
|
|
obj = proto;
|
|
|
|
}
|
|
|
|
*objp = NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
*propp = NULL;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_FRIEND_API(JSBool)
|
|
|
|
js_FindProperty(JSContext *cx, jsid id, JSObject **objp, JSObject **pobjp,
|
|
|
|
JSProperty **propp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSRuntime *rt;
|
r=brendan@mozilla.org
Bug #14462, lot's of discussin there about these changes, but here's
Brendan's description :
In order, changes in the patch are:
- Rename JSSLOT_ITR_STATE to be JSSLOT_ITER_STATE (avoid cybercrud abbreviation
as cbrcrd, no more six-char id limits!).
- Property cache tests must occur with the object's scope-lock held, to close a
race with delete (js_DestroyProperty, always called with the property's scope
locked). Once the cache has been hit, and before the lock is released, the
property's refcount must be bumped. This requires re-acquisition of the lock
and js_DropScopeProperty afterward.
- Reworked js_FindProperty to use a do-while loop, as cx->fp->scopeChain must be
non-null. This avoids a gratuitous lastobj init done to "Suppress gcc warning"
in the old revision.
- Akin to the property cache hit cases in jsinterp.c and jsobj.c's
js_FindProperty, code to hold and drop the scope-property by its refcount that
was #ifdef JS_THREADSAFE must be unconditional, now that user-defined getters
and setters may delete the property id they're getting or setting.
- Fixed overlong continuation line in jsobj.h.
/be
2000-02-08 04:24:53 +03:00
|
|
|
JSObject *obj, *pobj, *lastobj;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSProperty *prop;
|
|
|
|
|
|
|
|
rt = cx->runtime;
|
r=brendan@mozilla.org
Bug #14462, lot's of discussin there about these changes, but here's
Brendan's description :
In order, changes in the patch are:
- Rename JSSLOT_ITR_STATE to be JSSLOT_ITER_STATE (avoid cybercrud abbreviation
as cbrcrd, no more six-char id limits!).
- Property cache tests must occur with the object's scope-lock held, to close a
race with delete (js_DestroyProperty, always called with the property's scope
locked). Once the cache has been hit, and before the lock is released, the
property's refcount must be bumped. This requires re-acquisition of the lock
and js_DropScopeProperty afterward.
- Reworked js_FindProperty to use a do-while loop, as cx->fp->scopeChain must be
non-null. This avoids a gratuitous lastobj init done to "Suppress gcc warning"
in the old revision.
- Akin to the property cache hit cases in jsinterp.c and jsobj.c's
js_FindProperty, code to hold and drop the scope-property by its refcount that
was #ifdef JS_THREADSAFE must be unconditional, now that user-defined getters
and setters may delete the property id they're getting or setting.
- Fixed overlong continuation line in jsobj.h.
/be
2000-02-08 04:24:53 +03:00
|
|
|
obj = cx->fp->scopeChain;
|
|
|
|
do {
|
2000-04-04 12:17:05 +04:00
|
|
|
/* Try the property cache and return immediately on cache hit. */
|
r=brendan@mozilla.org
Bug #14462, lot's of discussin there about these changes, but here's
Brendan's description :
In order, changes in the patch are:
- Rename JSSLOT_ITR_STATE to be JSSLOT_ITER_STATE (avoid cybercrud abbreviation
as cbrcrd, no more six-char id limits!).
- Property cache tests must occur with the object's scope-lock held, to close a
race with delete (js_DestroyProperty, always called with the property's scope
locked). Once the cache has been hit, and before the lock is released, the
property's refcount must be bumped. This requires re-acquisition of the lock
and js_DropScopeProperty afterward.
- Reworked js_FindProperty to use a do-while loop, as cx->fp->scopeChain must be
non-null. This avoids a gratuitous lastobj init done to "Suppress gcc warning"
in the old revision.
- Akin to the property cache hit cases in jsinterp.c and jsobj.c's
js_FindProperty, code to hold and drop the scope-property by its refcount that
was #ifdef JS_THREADSAFE must be unconditional, now that user-defined getters
and setters may delete the property id they're getting or setting.
- Fixed overlong continuation line in jsobj.h.
/be
2000-02-08 04:24:53 +03:00
|
|
|
JS_LOCK_OBJ(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
PROPERTY_CACHE_TEST(&rt->propertyCache, obj, id, prop);
|
|
|
|
if (PROP_FOUND(prop)) {
|
1998-04-24 04:31:11 +04:00
|
|
|
#ifdef JS_THREADSAFE
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(OBJ_IS_NATIVE(obj));
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_ATOMIC_ADDREF(&((JSScopeProperty *)prop)->nrefs, 1);
|
|
|
|
#endif
|
1998-03-28 05:44:41 +03:00
|
|
|
*objp = obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
*pobjp = obj;
|
1998-03-28 05:44:41 +03:00
|
|
|
*propp = prop;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
r=brendan@mozilla.org
Bug #14462, lot's of discussin there about these changes, but here's
Brendan's description :
In order, changes in the patch are:
- Rename JSSLOT_ITR_STATE to be JSSLOT_ITER_STATE (avoid cybercrud abbreviation
as cbrcrd, no more six-char id limits!).
- Property cache tests must occur with the object's scope-lock held, to close a
race with delete (js_DestroyProperty, always called with the property's scope
locked). Once the cache has been hit, and before the lock is released, the
property's refcount must be bumped. This requires re-acquisition of the lock
and js_DropScopeProperty afterward.
- Reworked js_FindProperty to use a do-while loop, as cx->fp->scopeChain must be
non-null. This avoids a gratuitous lastobj init done to "Suppress gcc warning"
in the old revision.
- Akin to the property cache hit cases in jsinterp.c and jsobj.c's
js_FindProperty, code to hold and drop the scope-property by its refcount that
was #ifdef JS_THREADSAFE must be unconditional, now that user-defined getters
and setters may delete the property id they're getting or setting.
- Fixed overlong continuation line in jsobj.h.
/be
2000-02-08 04:24:53 +03:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
/* If cache miss (not cached-as-not-found), take the slow path. */
|
|
|
|
if (!prop) {
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_LOOKUP_PROPERTY(cx, obj, id, &pobj, &prop))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
if (prop) {
|
1998-04-24 04:31:11 +04:00
|
|
|
PROPERTY_CACHE_FILL(cx, &rt->propertyCache, pobj, id, prop);
|
1998-03-28 05:44:41 +03:00
|
|
|
*objp = obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
*pobjp = pobj;
|
1998-03-28 05:44:41 +03:00
|
|
|
*propp = prop;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* No such property -- cache obj[id] as not-found. */
|
|
|
|
PROPERTY_CACHE_FILL(cx, &rt->propertyCache, obj, id,
|
1998-04-24 04:31:11 +04:00
|
|
|
PROP_NOT_FOUND(obj, id));
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
lastobj = obj;
|
r=brendan@mozilla.org
Bug #14462, lot's of discussin there about these changes, but here's
Brendan's description :
In order, changes in the patch are:
- Rename JSSLOT_ITR_STATE to be JSSLOT_ITER_STATE (avoid cybercrud abbreviation
as cbrcrd, no more six-char id limits!).
- Property cache tests must occur with the object's scope-lock held, to close a
race with delete (js_DestroyProperty, always called with the property's scope
locked). Once the cache has been hit, and before the lock is released, the
property's refcount must be bumped. This requires re-acquisition of the lock
and js_DropScopeProperty afterward.
- Reworked js_FindProperty to use a do-while loop, as cx->fp->scopeChain must be
non-null. This avoids a gratuitous lastobj init done to "Suppress gcc warning"
in the old revision.
- Akin to the property cache hit cases in jsinterp.c and jsobj.c's
js_FindProperty, code to hold and drop the scope-property by its refcount that
was #ifdef JS_THREADSAFE must be unconditional, now that user-defined getters
and setters may delete the property id they're getting or setting.
- Fixed overlong continuation line in jsobj.h.
/be
2000-02-08 04:24:53 +03:00
|
|
|
} while ((obj = OBJ_GET_PARENT(cx, obj)) != NULL);
|
2000-04-04 12:17:05 +04:00
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
*objp = lastobj;
|
1998-04-24 04:31:11 +04:00
|
|
|
*pobjp = NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
*propp = NULL;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_FindVariable(JSContext *cx, jsid id, JSObject **objp, JSObject **pobjp,
|
|
|
|
JSProperty **propp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSObject *obj;
|
|
|
|
JSProperty *prop;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* First look for id's property along the "with" statement and the
|
|
|
|
* statically-linked scope chains.
|
|
|
|
*/
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!js_FindProperty(cx, id, objp, pobjp, propp))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
if (*propp)
|
|
|
|
return JS_TRUE;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Use the top-level scope from the scope chain, which won't end in the
|
1998-04-24 04:31:11 +04:00
|
|
|
* same scope as cx->globalObject for cross-context function calls.
|
1998-03-28 05:44:41 +03:00
|
|
|
*/
|
|
|
|
obj = *objp;
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Make a top-level variable.
|
|
|
|
*/
|
1999-11-12 09:03:40 +03:00
|
|
|
if (JS_HAS_STRICT_OPTION(cx)) {
|
|
|
|
JSString *str = JSVAL_TO_STRING(js_IdToValue(id));
|
2000-01-18 14:06:05 +03:00
|
|
|
if (!JS_ReportErrorFlagsAndNumber(cx,
|
|
|
|
JSREPORT_WARNING | JSREPORT_STRICT,
|
|
|
|
js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_UNDECLARED_VAR,
|
|
|
|
JS_GetStringBytes(str))) {
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
1999-11-12 09:03:40 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_DEFINE_PROPERTY(cx, obj, id, JSVAL_VOID, NULL, NULL,
|
|
|
|
JSPROP_ENUMERATE, &prop)) {
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
*pobjp = obj;
|
1998-03-28 05:44:41 +03:00
|
|
|
*propp = prop;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool
|
|
|
|
js_GetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSObject *obj2;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSScopeProperty *sprop;
|
2000-02-27 02:47:33 +03:00
|
|
|
JSScope *scope;
|
1998-03-28 05:44:41 +03:00
|
|
|
jsint slot;
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!js_LookupProperty(cx, obj, id, &obj2, (JSProperty **)&sprop))
|
2000-04-04 12:17:05 +04:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!sprop) {
|
2000-04-04 12:17:05 +04:00
|
|
|
/*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Handle old bug that took empty string as zero index. Also convert
|
|
|
|
* string indices to integers if appropriate.
|
2000-04-04 12:17:05 +04:00
|
|
|
*/
|
|
|
|
CHECK_FOR_FUNNY_INDEX(id);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
#if JS_BUG_NULL_INDEX_PROPS
|
2000-04-04 12:17:05 +04:00
|
|
|
/* Indexed properties defaulted to null in old versions. */
|
|
|
|
*vp = (JSVAL_IS_INT(id) && JSVAL_TO_INT(id) >= 0)
|
|
|
|
? JSVAL_NULL
|
|
|
|
: JSVAL_VOID;
|
1998-03-28 05:44:41 +03:00
|
|
|
#else
|
2000-04-04 12:17:05 +04:00
|
|
|
*vp = JSVAL_VOID;
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
1998-04-24 04:31:11 +04:00
|
|
|
|
2000-04-04 12:17:05 +04:00
|
|
|
return OBJ_GET_CLASS(cx, obj)->getProperty(cx, obj, js_IdToValue(id),
|
|
|
|
vp);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
if (!OBJ_IS_NATIVE(obj2)) {
|
2000-04-04 12:17:05 +04:00
|
|
|
OBJ_DROP_PROPERTY(cx, obj2, (JSProperty *)sprop);
|
|
|
|
return OBJ_GET_PROPERTY(cx, obj2, id, vp);
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Unlock obj2 before calling getter, relock after to avoid deadlock. */
|
2000-02-27 02:47:33 +03:00
|
|
|
scope = OBJ_SCOPE(obj2);
|
1998-04-24 04:31:11 +04:00
|
|
|
slot = sprop->slot;
|
|
|
|
*vp = LOCKED_OBJ_GET_SLOT(obj2, slot);
|
2000-02-27 02:47:33 +03:00
|
|
|
#ifndef JS_THREADSAFE
|
|
|
|
JS_ATOMIC_ADDREF(&sprop->nrefs, 1);
|
|
|
|
#endif
|
|
|
|
JS_UNLOCK_SCOPE(cx, scope);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!SPROP_GET(cx, sprop, obj, obj2, vp)) {
|
2000-02-27 02:47:33 +03:00
|
|
|
JS_LOCK_OBJ_VOID(cx, obj2, js_DropScopeProperty(cx, scope, sprop));
|
2000-04-04 12:17:05 +04:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
2000-02-27 02:47:33 +03:00
|
|
|
JS_LOCK_SCOPE(cx, scope);
|
|
|
|
sprop = js_DropScopeProperty(cx, scope, sprop);
|
|
|
|
if (sprop && SPROP_HAS_VALID_SLOT(sprop)) {
|
|
|
|
LOCKED_OBJ_SET_SLOT(obj2, slot, *vp);
|
|
|
|
PROPERTY_CACHE_FILL(cx, &cx->runtime->propertyCache, obj2, id,
|
|
|
|
(JSProperty *)sprop);
|
|
|
|
}
|
|
|
|
JS_UNLOCK_SCOPE(cx, scope);
|
1998-04-24 04:31:11 +04:00
|
|
|
return JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool
|
|
|
|
js_SetProperty(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
JSRuntime *rt;
|
2000-06-27 06:37:25 +04:00
|
|
|
JSClass *clasp;
|
|
|
|
JSScope *scope;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSHashNumber hash;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSSymbol *sym, *protosym;
|
2000-06-27 06:37:25 +04:00
|
|
|
JSScopeProperty *sprop;
|
|
|
|
jsval userid;
|
1999-07-01 06:24:32 +04:00
|
|
|
JSObject *proto, *tmp;
|
2000-06-27 06:37:25 +04:00
|
|
|
JSPropertyOp getter, setter;
|
|
|
|
uintN attrs;
|
|
|
|
JSBool ok;
|
1999-07-15 06:24:23 +04:00
|
|
|
jsval pval;
|
1999-07-28 10:48:44 +04:00
|
|
|
uint32 slot;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSString *str;
|
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Handle old bug that took empty string as zero index. Also convert
|
|
|
|
* string indices to integers if appropriate.
|
1999-07-01 06:24:32 +04:00
|
|
|
*/
|
1998-03-28 05:44:41 +03:00
|
|
|
CHECK_FOR_FUNNY_INDEX(id);
|
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
rt = cx->runtime;
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
clasp = LOCKED_OBJ_GET_CLASS(obj);
|
|
|
|
scope = OBJ_SCOPE(obj);
|
1998-03-28 05:44:41 +03:00
|
|
|
hash = js_HashValue(id);
|
2000-06-27 06:37:25 +04:00
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
sym = scope->ops->lookup(cx, scope, id, hash);
|
|
|
|
if (sym) {
|
1998-04-24 04:31:11 +04:00
|
|
|
sprop = sym_property(sym);
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
2000-06-27 06:37:25 +04:00
|
|
|
if (!sprop && scope->object == obj) {
|
1999-07-28 10:48:44 +04:00
|
|
|
uint32 nslots;
|
1998-04-24 04:31:11 +04:00
|
|
|
jsval *slots;
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
/*
|
|
|
|
* Deleted property place-holder, could have a watchpoint that
|
1998-04-24 04:31:11 +04:00
|
|
|
* holds the deleted-but-watched property. If so, slots may have
|
|
|
|
* shrunk, or at least freeslot may have shrunk due to the delete
|
|
|
|
* operation destroying the property.
|
1998-03-28 05:44:41 +03:00
|
|
|
*/
|
1998-04-24 04:31:11 +04:00
|
|
|
sprop = js_FindWatchPoint(rt, obj, js_IdToValue(id));
|
|
|
|
if (sprop && (slot = sprop->slot) >= scope->map.freeslot) {
|
|
|
|
if (slot >= scope->map.nslots) {
|
|
|
|
nslots = slot + slot / 2;
|
2000-02-04 05:01:49 +03:00
|
|
|
slots = (jsval *)
|
|
|
|
JS_realloc(cx, obj->slots, nslots * sizeof(jsval));
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!slots) {
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
scope->map.nslots = nslots;
|
|
|
|
obj->slots = slots;
|
|
|
|
}
|
|
|
|
scope->map.freeslot = slot + 1;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
} else {
|
1998-04-24 04:31:11 +04:00
|
|
|
sprop = NULL;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
if (!sprop || scope->object != obj) {
|
1998-03-28 05:44:41 +03:00
|
|
|
/* Find a prototype property with the same id. */
|
2000-06-27 06:37:25 +04:00
|
|
|
if (sprop) {
|
|
|
|
/* Already found, check for a readonly prototype property. */
|
|
|
|
attrs = sprop->attrs;
|
|
|
|
if (attrs & JSPROP_READONLY)
|
|
|
|
goto read_only;
|
|
|
|
|
|
|
|
/* Don't clone a setter or shared prototype property. */
|
|
|
|
if (attrs & (JSPROP_SETTER | JSPROP_SHARED)) {
|
|
|
|
JS_ATOMIC_ADDREF(&sprop->nrefs, 1);
|
|
|
|
proto = scope->object;
|
|
|
|
scope = OBJ_SCOPE(proto);
|
|
|
|
JS_UNLOCK_SCOPE(cx, scope);
|
|
|
|
|
|
|
|
ok = SPROP_SET(cx, sprop, obj, obj, vp);
|
|
|
|
JS_LOCK_OBJ_VOID(cx, proto,
|
|
|
|
js_DropScopeProperty(cx, scope, sprop));
|
|
|
|
return ok;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
/* XXXbe ECMA violation: inherit attrs, etc. */
|
|
|
|
userid = sprop->id;
|
|
|
|
getter = SPROP_GETTER_SCOPE(sprop, scope);
|
|
|
|
setter = SPROP_SETTER_SCOPE(sprop, scope);
|
|
|
|
sym = NULL;
|
|
|
|
} else {
|
|
|
|
/* Not found via a shared scope: we must follow the proto chain. */
|
|
|
|
proto = LOCKED_OBJ_GET_PROTO(obj);
|
|
|
|
sprop = NULL;
|
|
|
|
attrs = JSPROP_ENUMERATE;
|
|
|
|
userid = JSVAL_NULL;
|
|
|
|
getter = clasp->getProperty;
|
|
|
|
setter = clasp->setProperty;
|
1999-09-21 04:13:48 +04:00
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
while (proto) {
|
|
|
|
JS_LOCK_OBJ(cx, proto);
|
|
|
|
if (OBJ_IS_NATIVE(proto)) {
|
|
|
|
scope = OBJ_SCOPE(proto);
|
|
|
|
protosym = scope->ops->lookup(cx, scope, id, hash);
|
|
|
|
if (protosym) {
|
|
|
|
sprop = sym_property(protosym);
|
|
|
|
if (sprop) {
|
|
|
|
/*
|
|
|
|
* Repeat the readonly and setter/shared code here.
|
|
|
|
* It's tricky to fuse with the code above because
|
|
|
|
* we must hold proto's scope-lock while loading
|
|
|
|
* from sprop, and finally release that lock and
|
|
|
|
* reacquire obj's scope-lock in this case (where
|
|
|
|
* obj and proto are not sharing a scope).
|
|
|
|
*/
|
|
|
|
attrs = sprop->attrs;
|
|
|
|
if (attrs & JSPROP_READONLY)
|
|
|
|
goto read_only;
|
|
|
|
if (attrs & (JSPROP_SETTER | JSPROP_SHARED)) {
|
|
|
|
JS_ATOMIC_ADDREF(&sprop->nrefs, 1);
|
|
|
|
JS_UNLOCK_SCOPE(cx, scope);
|
|
|
|
|
|
|
|
ok = SPROP_SET(cx, sprop, obj, obj, vp);
|
|
|
|
JS_LOCK_OBJ_VOID(cx, proto,
|
|
|
|
js_DropScopeProperty(cx, scope, sprop));
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* XXXbe ECMA violation: inherit attrs, etc. */
|
|
|
|
userid = sprop->id;
|
|
|
|
getter = SPROP_GETTER_SCOPE(sprop, scope);
|
|
|
|
setter = SPROP_SETTER_SCOPE(sprop, scope);
|
1999-09-21 04:13:48 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, proto);
|
2000-06-27 06:37:25 +04:00
|
|
|
break;
|
1999-09-21 04:13:48 +04:00
|
|
|
}
|
2000-06-27 06:37:25 +04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
tmp = LOCKED_OBJ_GET_PROTO(proto);
|
|
|
|
JS_UNLOCK_OBJ(cx, proto);
|
|
|
|
proto = tmp;
|
|
|
|
}
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
2000-06-27 06:37:25 +04:00
|
|
|
/* Find or make a property descriptor with the right heritage. */
|
|
|
|
scope = js_MutateScope(cx, obj, id, getter, setter, attrs, &sprop);
|
|
|
|
if (!scope) {
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
2000-06-27 06:37:25 +04:00
|
|
|
}
|
|
|
|
if (!sprop) {
|
|
|
|
sprop = js_NewScopeProperty(cx, scope, id, getter, setter, attrs);
|
|
|
|
if (!sprop) {
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
if (!JSVAL_IS_NULL(userid))
|
|
|
|
sprop->id = userid;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* XXXbe called with obj locked */
|
|
|
|
if (!clasp->addProperty(cx, obj, sprop->id, vp)) {
|
|
|
|
js_DestroyScopeProperty(cx, scope, sprop);
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Initialize new properties to undefined. */
|
1998-04-24 04:31:11 +04:00
|
|
|
LOCKED_OBJ_SET_SLOT(obj, sprop->slot, JSVAL_VOID);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
if (sym) {
|
|
|
|
/* Null-valued symbol left behind from a delete operation. */
|
1998-04-24 04:31:11 +04:00
|
|
|
sym->entry.value = js_HoldScopeProperty(cx, scope, sprop);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!sym) {
|
|
|
|
/* Need a new symbol as well as a new property. */
|
1998-04-24 04:31:11 +04:00
|
|
|
sym = scope->ops->add(cx, scope, id, sprop);
|
|
|
|
if (!sym) {
|
|
|
|
js_DestroyScopeProperty(cx, scope, sprop);
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_BUG_AUTO_INDEX_PROPS
|
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
jsid id2 = (jsid) INT_TO_JSVAL(sprop->slot - JSSLOT_START);
|
|
|
|
if (!scope->ops->add(cx, scope, id2, sprop)) {
|
1998-03-28 05:44:41 +03:00
|
|
|
scope->ops->remove(cx, scope, id);
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
PROPERTY_CACHE_FILL(cx, &rt->propertyCache, obj, id2,
|
|
|
|
(JSProperty *)sprop);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
#endif
|
1998-04-24 04:31:11 +04:00
|
|
|
PROPERTY_CACHE_FILL(cx, &rt->propertyCache, obj, id,
|
|
|
|
(JSProperty *)sprop);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/* Check for readonly now that we have sprop. */
|
1998-04-24 04:31:11 +04:00
|
|
|
if (sprop->attrs & JSPROP_READONLY) {
|
1999-07-15 06:24:23 +04:00
|
|
|
read_only:
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
if (JSVERSION_IS_ECMA(cx->version))
|
|
|
|
return JS_TRUE;
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
str = js_DecompileValueGenerator(cx, JS_FALSE, js_IdToValue(id), NULL);
|
1999-11-12 09:03:40 +03:00
|
|
|
if (str) {
|
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_READ_ONLY, JS_GetStringBytes(str));
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/* Get the current property value from its slot. */
|
|
|
|
JS_ASSERT(sprop->slot < obj->map->freeslot);
|
|
|
|
slot = sprop->slot;
|
|
|
|
pval = LOCKED_OBJ_GET_SLOT(obj, slot);
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Hold sprop across setter callout, and drop after, in case of delete. */
|
1999-07-01 06:24:32 +04:00
|
|
|
JS_ATOMIC_ADDREF(&sprop->nrefs, 1);
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
/* Avoid deadlock by unlocking obj while calling sprop's setter. */
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
/* Let the setter modify vp before copying from it to obj->slots[slot]. */
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!SPROP_SET(cx, sprop, obj, obj, vp)) {
|
|
|
|
JS_LOCK_OBJ_VOID(cx, obj, js_DropScopeProperty(cx, scope, sprop));
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Relock obj until we are done with sprop. */
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
|
|
|
|
|
|
|
sprop = js_DropScopeProperty(cx, scope, sprop);
|
2000-02-27 02:47:33 +03:00
|
|
|
if (!sprop || !SPROP_HAS_VALID_SLOT(sprop)) {
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Lost a race with someone who deleted sprop. */
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
GC_POKE(cx, pval);
|
1998-04-24 04:31:11 +04:00
|
|
|
LOCKED_OBJ_SET_SLOT(obj, slot, *vp);
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
#if JS_BUG_SET_ENUMERATE
|
1998-03-28 05:44:41 +03:00
|
|
|
/* Setting a property makes it enumerable. */
|
1998-04-24 04:31:11 +04:00
|
|
|
sprop->attrs |= JSPROP_ENUMERATE;
|
|
|
|
#endif
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
return JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_GetAttributes(JSContext *cx, JSObject *obj, jsid id, JSProperty *prop,
|
|
|
|
uintN *attrsp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool noprop, ok;
|
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
noprop = !prop;
|
|
|
|
if (noprop) {
|
|
|
|
if (!js_LookupProperty(cx, obj, id, &obj, &prop))
|
|
|
|
return JS_FALSE;
|
1999-09-22 09:54:44 +04:00
|
|
|
if (!prop) {
|
|
|
|
*attrsp = 0;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_IS_NATIVE(obj)) {
|
|
|
|
ok = OBJ_GET_ATTRIBUTES(cx, obj, id, prop, attrsp);
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
sprop = (JSScopeProperty *)prop;
|
|
|
|
*attrsp = sprop->attrs;
|
|
|
|
if (noprop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool
|
|
|
|
js_SetAttributes(JSContext *cx, JSObject *obj, jsid id, JSProperty *prop,
|
|
|
|
uintN *attrsp)
|
|
|
|
{
|
|
|
|
JSBool noprop, ok;
|
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
noprop = !prop;
|
|
|
|
if (noprop) {
|
|
|
|
if (!js_LookupProperty(cx, obj, id, &obj, &prop))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (!prop)
|
|
|
|
return JS_TRUE;
|
|
|
|
if (!OBJ_IS_NATIVE(obj)) {
|
|
|
|
ok = OBJ_SET_ATTRIBUTES(cx, obj, id, prop, attrsp);
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
sprop = (JSScopeProperty *)prop;
|
|
|
|
sprop->attrs = *attrsp;
|
|
|
|
if (noprop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
|
|
|
return JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_DeleteProperty(JSContext *cx, JSObject *obj, jsid id, jsval *rval)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
|
|
|
#if JS_HAS_PROP_DELETE
|
|
|
|
JSRuntime *rt;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObject *proto;
|
|
|
|
JSProperty *prop;
|
|
|
|
JSScopeProperty *sprop;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSString *str;
|
|
|
|
JSScope *scope;
|
|
|
|
JSSymbol *sym;
|
|
|
|
|
|
|
|
rt = cx->runtime;
|
|
|
|
|
|
|
|
*rval = JSVERSION_IS_ECMA(cx->version) ? JSVAL_TRUE : JSVAL_VOID;
|
|
|
|
|
1999-07-01 06:24:32 +04:00
|
|
|
/*
|
2000-06-27 06:37:25 +04:00
|
|
|
* Handle old bug that took empty string as zero index. Also convert
|
|
|
|
* string indices to integers if appropriate.
|
1999-07-01 06:24:32 +04:00
|
|
|
*/
|
1998-04-24 04:31:11 +04:00
|
|
|
CHECK_FOR_FUNNY_INDEX(id);
|
|
|
|
|
|
|
|
if (!js_LookupProperty(cx, obj, id, &proto, &prop))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (!prop || proto != obj) {
|
|
|
|
if (prop)
|
|
|
|
OBJ_DROP_PROPERTY(cx, proto, prop);
|
|
|
|
/*
|
|
|
|
* If no property, or the property comes from a prototype, call the
|
|
|
|
* class's delProperty hook with rval as the result parameter.
|
|
|
|
*/
|
|
|
|
return OBJ_GET_CLASS(cx, obj)->delProperty(cx, obj, js_IdToValue(id),
|
|
|
|
rval);
|
|
|
|
}
|
|
|
|
|
|
|
|
sprop = (JSScopeProperty *)prop;
|
|
|
|
if (sprop->attrs & JSPROP_PERMANENT) {
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
1998-03-28 05:44:41 +03:00
|
|
|
if (JSVERSION_IS_ECMA(cx->version)) {
|
|
|
|
*rval = JSVAL_FALSE;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
str = js_DecompileValueGenerator(cx, JS_FALSE, js_IdToValue(id), NULL);
|
1998-10-14 14:22:38 +04:00
|
|
|
if (str) {
|
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_PERMANENT, JS_GetStringBytes(str));
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* XXXbe called with obj locked */
|
|
|
|
if (!LOCKED_OBJ_GET_CLASS(obj)->delProperty(cx, obj, sprop->id, rval)) {
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
GC_POKE(cx, LOCKED_OBJ_GET_SLOT(obj, sprop->slot));
|
1999-11-02 05:23:50 +03:00
|
|
|
scope = OBJ_SCOPE(obj);
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Purge cache only if prop is not about to be destroyed (since
|
|
|
|
* js_DestroyScopeProperty purges for us).
|
|
|
|
*/
|
|
|
|
if (sprop->nrefs != 1) {
|
|
|
|
PROPERTY_CACHE_FILL(cx, &rt->propertyCache, obj, id,
|
|
|
|
PROP_NOT_FOUND(obj, id));
|
|
|
|
}
|
|
|
|
|
1998-03-28 05:44:41 +03:00
|
|
|
#if JS_HAS_OBJ_WATCHPOINT
|
1999-11-02 05:23:50 +03:00
|
|
|
if (SPROP_SETTER_SCOPE(sprop, scope) == js_watch_set) {
|
1998-04-24 04:31:11 +04:00
|
|
|
/*
|
|
|
|
* Keep the symbol around with null value in case of re-set.
|
|
|
|
* The watchpoint will hold the "deleted" property until it
|
|
|
|
* is removed by obj_unwatch or a native JS_ClearWatchPoint.
|
|
|
|
* See js_SetProperty for the re-set logic.
|
|
|
|
*/
|
|
|
|
for (sym = sprop->symbols; sym; sym = sym->next) {
|
|
|
|
if (sym_id(sym) == id) {
|
|
|
|
sym->entry.value = NULL;
|
|
|
|
sprop = js_DropScopeProperty(cx, scope, sprop);
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(sprop);
|
1998-04-24 04:31:11 +04:00
|
|
|
goto out;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
#endif /* JS_HAS_OBJ_WATCHPOINT */
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
scope->ops->remove(cx, scope, id);
|
|
|
|
out:
|
|
|
|
OBJ_DROP_PROPERTY(cx, obj, prop);
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_TRUE;
|
1998-04-24 04:31:11 +04:00
|
|
|
#else /* !JS_HAS_PROP_DELETE */
|
1998-03-28 05:44:41 +03:00
|
|
|
jsval null = JSVAL_NULL;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
*rval = JSVAL_VOID;
|
|
|
|
return js_SetProperty(cx, obj, id, &null);
|
|
|
|
#endif /* !JS_HAS_PROP_DELETE */
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_DefaultValue(JSContext *cx, JSObject *obj, JSType hint, jsval *vp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
jsval v;
|
|
|
|
JSString *str;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
v = OBJECT_TO_JSVAL(obj);
|
|
|
|
switch (hint) {
|
|
|
|
case JSTYPE_STRING:
|
1998-10-14 14:22:38 +04:00
|
|
|
/*
|
|
|
|
* Propagate the exception if js_TryMethod finds an appropriate
|
|
|
|
* method, and calling that method returned failure.
|
|
|
|
*/
|
|
|
|
if (!js_TryMethod(cx, obj, cx->runtime->atomState.toStringAtom, 0, NULL,
|
|
|
|
&v))
|
|
|
|
return JS_FALSE;
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!JSVAL_IS_PRIMITIVE(v)) {
|
|
|
|
if (!OBJ_GET_CLASS(cx, obj)->convert(cx, obj, hint, &v))
|
|
|
|
return JS_FALSE;
|
1998-06-10 03:04:48 +04:00
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
/*
|
|
|
|
* JS1.2 never failed (except for malloc failure) to convert an
|
|
|
|
* object to a string. ECMA requires an error if both toString
|
|
|
|
* and valueOf fail to produce a primitive value.
|
|
|
|
*/
|
|
|
|
if (!JSVAL_IS_PRIMITIVE(v) && cx->version == JSVERSION_1_2) {
|
|
|
|
char *bytes = JS_smprintf("[object %s]",
|
|
|
|
OBJ_GET_CLASS(cx, obj)->name);
|
|
|
|
if (!bytes)
|
|
|
|
return JS_FALSE;
|
|
|
|
str = JS_NewString(cx, bytes, strlen(bytes));
|
|
|
|
if (!str) {
|
|
|
|
free(bytes);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
v = STRING_TO_JSVAL(str);
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
default:
|
|
|
|
if (!OBJ_GET_CLASS(cx, obj)->convert(cx, obj, hint, &v))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (!JSVAL_IS_PRIMITIVE(v)) {
|
1999-04-03 03:16:40 +04:00
|
|
|
JSType type = JS_TypeOfValue(cx, v);
|
1999-06-26 07:28:47 +04:00
|
|
|
if (type == hint ||
|
1999-04-03 03:16:40 +04:00
|
|
|
(type == JSTYPE_FUNCTION && hint == JSTYPE_OBJECT)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
goto out;
|
1999-04-03 03:16:40 +04:00
|
|
|
}
|
1998-06-10 03:04:48 +04:00
|
|
|
/* Don't convert to string (source object literal) for JS1.2. */
|
|
|
|
if (cx->version == JSVERSION_1_2 && hint == JSTYPE_BOOLEAN)
|
1998-10-14 14:22:38 +04:00
|
|
|
goto out;
|
|
|
|
if (!js_TryMethod(cx, obj, cx->runtime->atomState.toStringAtom, 0,
|
|
|
|
NULL, &v))
|
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-10-14 14:22:38 +04:00
|
|
|
break;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!JSVAL_IS_PRIMITIVE(v)) {
|
|
|
|
/* Avoid recursive death through js_DecompileValueGenerator. */
|
|
|
|
if (hint == JSTYPE_STRING) {
|
|
|
|
str = JS_InternString(cx, OBJ_GET_CLASS(cx, obj)->name);
|
|
|
|
if (!str)
|
1998-10-14 14:22:38 +04:00
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
} else {
|
|
|
|
str = NULL;
|
|
|
|
}
|
|
|
|
*vp = OBJECT_TO_JSVAL(obj);
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
str = js_DecompileValueGenerator(cx, JS_TRUE, v, str);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (str) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_CANT_CONVERT_TO,
|
|
|
|
JS_GetStringBytes(str),
|
|
|
|
(hint == JSTYPE_VOID)
|
|
|
|
? "primitive type"
|
|
|
|
: js_type_str[hint]);
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
out:
|
1998-04-24 04:31:11 +04:00
|
|
|
*vp = v;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
extern JSIdArray *
|
|
|
|
js_NewIdArray(JSContext *cx, jsint length)
|
|
|
|
{
|
|
|
|
JSIdArray *ida;
|
|
|
|
|
2000-02-04 05:01:49 +03:00
|
|
|
ida = (JSIdArray *)
|
|
|
|
JS_malloc(cx, sizeof(JSIdArray) + (length - 1) * sizeof(jsval));
|
1998-04-24 04:31:11 +04:00
|
|
|
if (ida)
|
1998-10-14 14:22:38 +04:00
|
|
|
ida->length = length;
|
1998-04-24 04:31:11 +04:00
|
|
|
return ida;
|
|
|
|
}
|
|
|
|
|
1999-10-25 23:24:03 +04:00
|
|
|
extern JSIdArray *
|
|
|
|
js_GrowIdArray(JSContext *cx, JSIdArray *ida, jsint length)
|
|
|
|
{
|
2000-02-04 05:01:49 +03:00
|
|
|
ida = (JSIdArray *)
|
|
|
|
JS_realloc(cx, ida, sizeof(JSIdArray) + (length - 1) * sizeof(jsval));
|
1999-10-25 23:24:03 +04:00
|
|
|
if (ida)
|
|
|
|
ida->length = length;
|
|
|
|
return ida;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
/* Private type used to iterate over all properties of a native JS object */
|
|
|
|
typedef struct JSNativeIteratorState {
|
|
|
|
jsint next_index; /* index into jsid array */
|
|
|
|
JSIdArray *ida; /* All property ids in enumeration */
|
|
|
|
} JSNativeIteratorState;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* This function is used to enumerate the properties of native JSObjects
|
|
|
|
* and those host objects that do not define a JSNewEnumerateOp-style iterator
|
|
|
|
* function.
|
|
|
|
*/
|
|
|
|
JSBool
|
|
|
|
js_Enumerate(JSContext *cx, JSObject *obj, JSIterateOp enum_op,
|
1998-10-14 14:22:38 +04:00
|
|
|
jsval *statep, jsid *idp)
|
1998-04-24 04:31:11 +04:00
|
|
|
{
|
1998-07-31 04:07:22 +04:00
|
|
|
JSObject *proto_obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSClass *clasp;
|
|
|
|
JSEnumerateOp enumerate;
|
|
|
|
JSScopeProperty *sprop;
|
|
|
|
jsint i, length;
|
|
|
|
JSScope *scope;
|
|
|
|
JSIdArray *ida;
|
|
|
|
JSNativeIteratorState *state;
|
|
|
|
|
|
|
|
clasp = OBJ_GET_CLASS(cx, obj);
|
|
|
|
enumerate = clasp->enumerate;
|
|
|
|
if (clasp->flags & JSCLASS_NEW_ENUMERATE)
|
1998-10-14 14:22:38 +04:00
|
|
|
return ((JSNewEnumerateOp) enumerate)(cx, obj, enum_op, statep, idp);
|
1998-07-31 04:07:22 +04:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
switch (enum_op) {
|
|
|
|
|
|
|
|
case JSENUMERATE_INIT:
|
1998-10-14 14:22:38 +04:00
|
|
|
if (!enumerate(cx, obj))
|
|
|
|
goto init_error;
|
|
|
|
length = 0;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
/*
|
|
|
|
* The set of all property ids is pre-computed when the iterator
|
|
|
|
* is initialized so as to avoid problems with properties being
|
|
|
|
* deleted during the iteration.
|
|
|
|
*/
|
|
|
|
JS_LOCK_OBJ(cx, obj);
|
1999-11-02 05:23:50 +03:00
|
|
|
scope = OBJ_SCOPE(obj);
|
1998-07-31 04:07:22 +04:00
|
|
|
|
|
|
|
/*
|
|
|
|
* If this object shares a scope with its prototype, don't enumerate
|
|
|
|
* its properties. Otherwise they will be enumerated a second time
|
|
|
|
* when the prototype object is enumerated.
|
|
|
|
*/
|
|
|
|
proto_obj = OBJ_GET_PROTO(cx, obj);
|
1999-11-02 05:23:50 +03:00
|
|
|
if (proto_obj && scope == OBJ_SCOPE(proto_obj)) {
|
1998-07-31 04:07:22 +04:00
|
|
|
ida = js_NewIdArray(cx, 0);
|
|
|
|
if (!ida) {
|
1999-10-22 05:44:47 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
goto init_error;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-07-31 04:07:22 +04:00
|
|
|
} else {
|
|
|
|
/* Object has a private scope; Enumerate all props in scope. */
|
|
|
|
for (sprop = scope->props; sprop; sprop = sprop->next) {
|
|
|
|
if ((sprop->attrs & JSPROP_ENUMERATE) && sprop->symbols)
|
|
|
|
length++;
|
|
|
|
}
|
|
|
|
ida = js_NewIdArray(cx, length);
|
|
|
|
if (!ida) {
|
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
goto init_error;
|
|
|
|
}
|
|
|
|
i = 0;
|
|
|
|
for (sprop = scope->props; sprop; sprop = sprop->next) {
|
|
|
|
if ((sprop->attrs & JSPROP_ENUMERATE) && sprop->symbols) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(i < length);
|
1998-07-31 04:07:22 +04:00
|
|
|
ida->vector[i++] = sym_id(sprop->symbols);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
|
2000-02-04 05:01:49 +03:00
|
|
|
state = (JSNativeIteratorState *)
|
|
|
|
JS_malloc(cx, sizeof(JSNativeIteratorState));
|
1998-10-14 14:22:38 +04:00
|
|
|
if (!state) {
|
|
|
|
JS_DestroyIdArray(cx, ida);
|
|
|
|
goto init_error;
|
|
|
|
}
|
|
|
|
state->ida = ida;
|
|
|
|
state->next_index = 0;
|
|
|
|
*statep = PRIVATE_TO_JSVAL(state);
|
|
|
|
if (idp)
|
|
|
|
*idp = INT_TO_JSVAL(length);
|
|
|
|
return JS_TRUE;
|
1998-07-31 04:07:22 +04:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
case JSENUMERATE_NEXT:
|
2000-02-04 05:01:49 +03:00
|
|
|
state = (JSNativeIteratorState *) JSVAL_TO_PRIVATE(*statep);
|
1998-10-14 14:22:38 +04:00
|
|
|
ida = state->ida;
|
|
|
|
length = ida->length;
|
|
|
|
if (state->next_index != length) {
|
|
|
|
*idp = ida->vector[state->next_index++];
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
/* Fall through ... */
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
case JSENUMERATE_DESTROY:
|
2000-02-04 05:01:49 +03:00
|
|
|
state = (JSNativeIteratorState *) JSVAL_TO_PRIVATE(*statep);
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_DestroyIdArray(cx, state->ida);
|
|
|
|
JS_free(cx, state);
|
|
|
|
*statep = JSVAL_NULL;
|
|
|
|
return JS_TRUE;
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
default:
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(0);
|
|
|
|
return JS_FALSE;
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
1998-06-10 03:04:48 +04:00
|
|
|
|
|
|
|
init_error:
|
|
|
|
*statep = JSVAL_NULL;
|
|
|
|
return JS_FALSE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
1998-04-24 04:31:11 +04:00
|
|
|
js_CheckAccess(JSContext *cx, JSObject *obj, jsid id, JSAccessMode mode,
|
|
|
|
jsval *vp, uintN *attrsp)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSObject *pobj;
|
|
|
|
JSProperty *prop;
|
|
|
|
JSScopeProperty *sprop;
|
|
|
|
JSClass *clasp;
|
1998-03-28 05:44:41 +03:00
|
|
|
JSBool ok;
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!js_LookupProperty(cx, obj, id, &pobj, &prop))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (!prop) {
|
|
|
|
*vp = JSVAL_VOID;
|
|
|
|
*attrsp = 0;
|
2000-04-14 07:14:53 +04:00
|
|
|
clasp = OBJ_GET_CLASS(cx, obj);
|
|
|
|
return !clasp->checkAccess ||
|
|
|
|
clasp->checkAccess(cx, obj, id, mode, vp);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_IS_NATIVE(pobj)) {
|
|
|
|
OBJ_DROP_PROPERTY(cx, pobj, prop);
|
|
|
|
return OBJ_CHECK_ACCESS(cx, pobj, id, mode, vp, attrsp);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
sprop = (JSScopeProperty *)prop;
|
|
|
|
*vp = LOCKED_OBJ_GET_SLOT(pobj, sprop->slot);
|
|
|
|
*attrsp = sprop->attrs;
|
|
|
|
clasp = LOCKED_OBJ_GET_CLASS(obj);
|
|
|
|
if (clasp->checkAccess) {
|
|
|
|
JS_UNLOCK_OBJ(cx, pobj);
|
2000-02-02 03:22:58 +03:00
|
|
|
ok = clasp->checkAccess(cx, obj, id, mode, vp);
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_LOCK_OBJ(cx, pobj);
|
|
|
|
} else {
|
|
|
|
ok = JS_TRUE;
|
|
|
|
}
|
|
|
|
OBJ_DROP_PROPERTY(cx, pobj, prop);
|
1998-03-28 05:44:41 +03:00
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
JSBool
|
|
|
|
js_Call(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
|
1998-03-28 05:44:41 +03:00
|
|
|
{
|
1998-04-24 04:31:11 +04:00
|
|
|
JSClass *clasp;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
1998-04-24 04:31:11 +04:00
|
|
|
clasp = OBJ_GET_CLASS(cx, JSVAL_TO_OBJECT(argv[-2]));
|
|
|
|
if (!clasp->call) {
|
2000-06-27 06:37:25 +04:00
|
|
|
/*
|
2000-05-15 07:54:50 +04:00
|
|
|
* The decompiler may need to access the args of the function in
|
|
|
|
* progress, so we switch the function pointer in the frame to the
|
|
|
|
* function below us, rather than the one we had hoped to call.
|
|
|
|
* XXXbe doesn't this case arise for js_Construct too?
|
2000-05-02 01:55:52 +04:00
|
|
|
*/
|
|
|
|
JSStackFrame *fp = cx->fp;
|
|
|
|
JSFunction *fun = fp->fun;
|
|
|
|
if (fp->down) /* guaranteed ? */
|
2000-05-15 07:54:50 +04:00
|
|
|
fp->fun = fp->down->fun;
|
1998-04-24 04:31:11 +04:00
|
|
|
js_ReportIsNotFunction(cx, &argv[-2], JS_FALSE);
|
2000-05-02 01:55:52 +04:00
|
|
|
fp->fun = fun;
|
1998-04-24 04:31:11 +04:00
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
return clasp->call(cx, obj, argc, argv, rval);
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_Construct(JSContext *cx, JSObject *obj, uintN argc, jsval *argv,
|
|
|
|
jsval *rval)
|
|
|
|
{
|
|
|
|
JSClass *clasp;
|
|
|
|
|
|
|
|
clasp = OBJ_GET_CLASS(cx, JSVAL_TO_OBJECT(argv[-2]));
|
|
|
|
if (!clasp->construct) {
|
|
|
|
js_ReportIsNotFunction(cx, &argv[-2], JS_TRUE);
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
return clasp->construct(cx, obj, argc, argv, rval);
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_HasInstance(JSContext *cx, JSObject *obj, jsval v, JSBool *bp)
|
|
|
|
{
|
|
|
|
JSClass *clasp;
|
|
|
|
|
|
|
|
clasp = OBJ_GET_CLASS(cx, obj);
|
|
|
|
if (clasp->hasInstance)
|
|
|
|
return clasp->hasInstance(cx, obj, v, bp);
|
|
|
|
*bp = JS_FALSE;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_IsDelegate(JSContext *cx, JSObject *obj, jsval v, JSBool *bp)
|
|
|
|
{
|
|
|
|
JSObject *obj2;
|
|
|
|
|
|
|
|
*bp = JS_FALSE;
|
|
|
|
if (JSVAL_IS_PRIMITIVE(v))
|
|
|
|
return JS_TRUE;
|
|
|
|
obj2 = JSVAL_TO_OBJECT(v);
|
1999-06-16 03:44:30 +04:00
|
|
|
while ((obj2 = OBJ_GET_PROTO(cx, obj2)) != NULL) {
|
1998-04-24 04:31:11 +04:00
|
|
|
if (obj2 == obj) {
|
|
|
|
*bp = JS_TRUE;
|
|
|
|
break;
|
|
|
|
}
|
1999-06-16 03:44:30 +04:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef JS_THREADSAFE
|
|
|
|
void
|
|
|
|
js_DropProperty(JSContext *cx, JSObject *obj, JSProperty *prop)
|
|
|
|
{
|
1999-11-02 05:23:50 +03:00
|
|
|
js_DropScopeProperty(cx, OBJ_SCOPE(obj), (JSScopeProperty *)prop);
|
1998-04-24 04:31:11 +04:00
|
|
|
JS_UNLOCK_OBJ(cx, obj);
|
|
|
|
}
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_GetClassPrototype(JSContext *cx, const char *name, JSObject **protop)
|
|
|
|
{
|
|
|
|
jsval v;
|
|
|
|
JSObject *ctor;
|
|
|
|
|
|
|
|
if (!FindConstructor(cx, name, &v))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (JSVAL_IS_FUNCTION(cx, v)) {
|
|
|
|
ctor = JSVAL_TO_OBJECT(v);
|
|
|
|
if (!OBJ_GET_PROPERTY(cx, ctor,
|
|
|
|
(jsid)cx->runtime->atomState.classPrototypeAtom,
|
|
|
|
&v)) {
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
*protop = JSVAL_IS_OBJECT(v) ? JSVAL_TO_OBJECT(v) : NULL;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_SetClassPrototype(JSContext *cx, JSObject *ctor, JSObject *proto,
|
|
|
|
uintN attrs)
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* Use the given attributes for the prototype property of the constructor,
|
2000-06-02 04:02:46 +04:00
|
|
|
* as user-defined constructors have a DontEnum | DontDelete prototype (it
|
|
|
|
* may be reset), while native or "system" constructors require DontEnum |
|
1998-04-24 04:31:11 +04:00
|
|
|
* ReadOnly | DontDelete.
|
|
|
|
*/
|
|
|
|
if (!OBJ_DEFINE_PROPERTY(cx, ctor,
|
|
|
|
(jsid)cx->runtime->atomState.classPrototypeAtom,
|
|
|
|
OBJECT_TO_JSVAL(proto), NULL, NULL,
|
|
|
|
attrs, NULL)) {
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ECMA says that Object.prototype.constructor, or f.prototype.constructor
|
|
|
|
* for a user-defined function f, is DontEnum.
|
|
|
|
*/
|
|
|
|
return OBJ_DEFINE_PROPERTY(cx, proto,
|
|
|
|
(jsid)cx->runtime->atomState.constructorAtom,
|
|
|
|
OBJECT_TO_JSVAL(ctor), NULL, NULL,
|
|
|
|
0, NULL);
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_ValueToObject(JSContext *cx, jsval v, JSObject **objp)
|
|
|
|
{
|
|
|
|
JSObject *obj;
|
|
|
|
|
|
|
|
if (JSVAL_IS_NULL(v) || JSVAL_IS_VOID(v)) {
|
|
|
|
obj = NULL;
|
|
|
|
} else if (JSVAL_IS_OBJECT(v)) {
|
|
|
|
obj = JSVAL_TO_OBJECT(v);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (!OBJ_DEFAULT_VALUE(cx, obj, JSTYPE_OBJECT, &v))
|
1998-03-28 05:44:41 +03:00
|
|
|
return JS_FALSE;
|
|
|
|
if (JSVAL_IS_OBJECT(v))
|
|
|
|
obj = JSVAL_TO_OBJECT(v);
|
|
|
|
} else {
|
|
|
|
if (JSVAL_IS_STRING(v)) {
|
|
|
|
obj = js_StringToObject(cx, JSVAL_TO_STRING(v));
|
|
|
|
} else if (JSVAL_IS_INT(v)) {
|
|
|
|
obj = js_NumberToObject(cx, (jsdouble)JSVAL_TO_INT(v));
|
|
|
|
} else if (JSVAL_IS_DOUBLE(v)) {
|
|
|
|
obj = js_NumberToObject(cx, *JSVAL_TO_DOUBLE(v));
|
|
|
|
} else {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(JSVAL_IS_BOOLEAN(v));
|
1998-03-28 05:44:41 +03:00
|
|
|
obj = js_BooleanToObject(cx, JSVAL_TO_BOOLEAN(v));
|
|
|
|
}
|
|
|
|
if (!obj)
|
|
|
|
return JS_FALSE;
|
|
|
|
}
|
|
|
|
*objp = obj;
|
|
|
|
return JS_TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
JSObject *
|
|
|
|
js_ValueToNonNullObject(JSContext *cx, jsval v)
|
|
|
|
{
|
|
|
|
JSObject *obj;
|
1998-04-24 04:31:11 +04:00
|
|
|
JSString *str;
|
1998-03-28 05:44:41 +03:00
|
|
|
|
|
|
|
if (!js_ValueToObject(cx, v, &obj))
|
|
|
|
return NULL;
|
|
|
|
if (!obj) {
|
Bugs, bugs bugs:
- js_DecompileValueGenerator had rusted due to bytecode/source-note changes,
or maybe parts of it never worked right. Anyway, it now does not induce a
crashing underflow in the decompiler. As part of this fix, it now takes a
checkStack flag telling whether to look for the jsval v argument on the JS
stack. The calls from ImportProperty, js_SetProperty, and js_DeleteProperty
pass in v a jsval for the property id, which should not be sought after on
the stack (it might happen to be there due to o['p'] = 2, but we want to
decompile o["p"], not "p").
- js_DecompileValueGenerator would load a generating pc even if the value v
did not match the pc's corresponding stack item! Oops. This lead to less
than idea diagnostics.
- js_DecompileValueGenerator was also not mapping JSOP_TRAP to the real op at
a sufficiently early and univeral point in its control flow.
- Fix PopOff to assert and check for stack underflow in the decompiler, and
beef up PushOff too (it asserted, but did not check).
- js_ReportIsNotFunction now avoids JS_InternString by indexing directly into
cx->runtime->atomState.typeAtoms with the result of JS_TypeOfValue.
- Removed unnecessary local GC root reserved by non-zero trailing member of
obj_eval's JSFunctionSpec initializer.
1999-07-23 12:01:54 +04:00
|
|
|
str = js_DecompileValueGenerator(cx, JS_TRUE, v, NULL);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (str) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_NO_PROPERTIES, JS_GetStringBytes(str));
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return obj;
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JSBool
|
1998-03-28 05:44:41 +03:00
|
|
|
js_TryValueOf(JSContext *cx, JSObject *obj, JSType type, jsval *rval)
|
|
|
|
{
|
|
|
|
#if JS_HAS_VALUEOF_HINT
|
|
|
|
jsval argv[1];
|
|
|
|
|
|
|
|
argv[0] = ATOM_KEY(cx->runtime->atomState.typeAtoms[type]);
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_TryMethod(cx, obj, cx->runtime->atomState.valueOfAtom, 1, argv,
|
|
|
|
rval);
|
1998-03-28 05:44:41 +03:00
|
|
|
#else
|
1998-10-14 14:22:38 +04:00
|
|
|
return js_TryMethod(cx, obj, cx->runtime->atomState.valueOfAtom, 0, NULL,
|
|
|
|
rval);
|
1998-03-28 05:44:41 +03:00
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
1998-10-14 14:22:38 +04:00
|
|
|
JSBool
|
1998-03-28 05:44:41 +03:00
|
|
|
js_TryMethod(JSContext *cx, JSObject *obj, JSAtom *atom,
|
|
|
|
uintN argc, jsval *argv, jsval *rval)
|
|
|
|
{
|
|
|
|
JSErrorReporter older;
|
|
|
|
jsval fval;
|
1998-10-14 14:22:38 +04:00
|
|
|
JSBool ok;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Report failure only if an appropriate method was found, and calling it
|
|
|
|
* returned failure. We propagate failure in this case to make exceptions
|
|
|
|
* behave properly.
|
|
|
|
*/
|
1998-03-28 05:44:41 +03:00
|
|
|
older = JS_SetErrorReporter(cx, NULL);
|
1998-04-24 04:31:11 +04:00
|
|
|
if (OBJ_GET_PROPERTY(cx, obj, (jsid)atom, &fval) &&
|
1999-07-01 06:24:32 +04:00
|
|
|
!JSVAL_IS_PRIMITIVE(fval)) {
|
1999-06-26 07:28:47 +04:00
|
|
|
ok = js_InternalCall(cx, obj, fval, argc, argv, rval);
|
1998-10-14 14:22:38 +04:00
|
|
|
} else {
|
|
|
|
ok = JS_TRUE;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
|
|
|
JS_SetErrorReporter(cx, older);
|
1998-10-14 14:22:38 +04:00
|
|
|
return ok;
|
1998-03-28 05:44:41 +03:00
|
|
|
}
|
1998-04-24 04:31:11 +04:00
|
|
|
|
|
|
|
#if JS_HAS_XDR
|
|
|
|
|
|
|
|
#include "jsxdrapi.h"
|
|
|
|
|
|
|
|
JSBool
|
|
|
|
js_XDRObject(JSXDRState *xdr, JSObject **objp)
|
|
|
|
{
|
|
|
|
JSContext *cx;
|
|
|
|
JSClass *clasp;
|
|
|
|
char *className;
|
|
|
|
uint32 classId, classDef;
|
|
|
|
JSBool ok;
|
|
|
|
JSObject *proto;
|
|
|
|
|
|
|
|
cx = xdr->cx;
|
|
|
|
if (xdr->mode == JSXDR_ENCODE) {
|
|
|
|
clasp = OBJ_GET_CLASS(cx, *objp);
|
|
|
|
className = clasp->name;
|
|
|
|
classId = JS_FindClassIdByName(xdr, className);
|
|
|
|
classDef = !classId;
|
|
|
|
if (classDef && !JS_RegisterClass(xdr, clasp, &classId))
|
|
|
|
return JS_FALSE;
|
|
|
|
} else {
|
|
|
|
classDef = 0;
|
|
|
|
className = NULL;
|
1998-11-05 03:08:43 +03:00
|
|
|
clasp = NULL; /* quell GCC overwarning */
|
1998-04-24 04:31:11 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
/* XDR a flag word followed (if true) by the class name. */
|
|
|
|
if (!JS_XDRUint32(xdr, &classDef))
|
|
|
|
return JS_FALSE;
|
|
|
|
if (classDef && !JS_XDRCString(xdr, &className))
|
|
|
|
return JS_FALSE;
|
|
|
|
|
|
|
|
/* From here on, return through out: to free className if it was set. */
|
|
|
|
ok = JS_XDRUint32(xdr, &classId);
|
|
|
|
if (!ok)
|
|
|
|
goto out;
|
|
|
|
|
|
|
|
if (xdr->mode != JSXDR_ENCODE) {
|
|
|
|
if (classDef) {
|
|
|
|
ok = js_GetClassPrototype(cx, className, &proto);
|
|
|
|
if (!ok)
|
|
|
|
goto out;
|
|
|
|
clasp = OBJ_GET_CLASS(cx, proto);
|
|
|
|
ok = JS_RegisterClass(xdr, clasp, &classId);
|
|
|
|
if (!ok)
|
|
|
|
goto out;
|
|
|
|
} else {
|
|
|
|
clasp = JS_FindClassById(xdr, classId);
|
|
|
|
if (!clasp) {
|
1998-10-14 14:22:38 +04:00
|
|
|
char numBuf[12];
|
|
|
|
JS_snprintf(numBuf, sizeof numBuf, "%ld", (long)classId);
|
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_CANT_FIND_CLASS, numBuf);
|
1998-04-24 04:31:11 +04:00
|
|
|
ok = JS_FALSE;
|
|
|
|
goto out;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!clasp->xdrObject) {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ReportErrorNumber(cx, js_GetErrorMessage, NULL,
|
|
|
|
JSMSG_CANT_XDR_CLASS, clasp->name);
|
1998-04-24 04:31:11 +04:00
|
|
|
ok = JS_FALSE;
|
|
|
|
} else {
|
|
|
|
ok = clasp->xdrObject(xdr, objp);
|
|
|
|
}
|
|
|
|
out:
|
|
|
|
if (xdr->mode != JSXDR_ENCODE && className)
|
|
|
|
JS_free(cx, className);
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* JS_HAS_XDR */
|
1998-07-31 04:07:22 +04:00
|
|
|
|
1998-11-05 03:08:43 +03:00
|
|
|
|
1998-07-31 04:07:22 +04:00
|
|
|
#ifdef DEBUG
|
|
|
|
|
|
|
|
/* Routines to print out values during debugging. */
|
|
|
|
|
|
|
|
void printChar(jschar *cp) {
|
1998-11-05 03:08:43 +03:00
|
|
|
fprintf(stderr, "jschar* (0x%p) \"", cp);
|
1998-07-31 04:07:22 +04:00
|
|
|
while (*cp)
|
1998-10-14 14:22:38 +04:00
|
|
|
fputc(*cp++, stderr);
|
1998-07-31 04:07:22 +04:00
|
|
|
fputc('"', stderr);
|
|
|
|
fputc('\n', stderr);
|
|
|
|
}
|
|
|
|
|
|
|
|
void printString(JSString *str) {
|
|
|
|
jsuint i;
|
1998-11-05 03:08:43 +03:00
|
|
|
fprintf(stderr, "string (0x%p) \"", str);
|
1998-07-31 04:07:22 +04:00
|
|
|
for (i=0; i < str->length; i++)
|
1998-10-14 14:22:38 +04:00
|
|
|
fputc(str->chars[i], stderr);
|
1998-07-31 04:07:22 +04:00
|
|
|
fputc('"', stderr);
|
|
|
|
fputc('\n', stderr);
|
|
|
|
}
|
|
|
|
|
1999-10-02 07:41:37 +04:00
|
|
|
void printVal(JSContext *cx, jsval val);
|
1998-11-05 03:08:43 +03:00
|
|
|
|
1999-10-02 07:41:37 +04:00
|
|
|
void printObj(JSContext *cx, JSObject *jsobj) {
|
1998-11-05 03:08:43 +03:00
|
|
|
jsuint i;
|
|
|
|
jsval val;
|
|
|
|
JSClass *clasp;
|
|
|
|
|
|
|
|
fprintf(stderr, "object 0x%p\n", jsobj);
|
1999-10-02 07:41:37 +04:00
|
|
|
clasp = OBJ_GET_CLASS(cx, jsobj);
|
1998-11-05 03:08:43 +03:00
|
|
|
fprintf(stderr, "class 0x%p %s\n", clasp, clasp->name);
|
|
|
|
for (i=0; i < jsobj->map->nslots; i++) {
|
|
|
|
fprintf(stderr, "slot %3d ", i);
|
|
|
|
val = jsobj->slots[i];
|
|
|
|
if (JSVAL_IS_OBJECT(val))
|
|
|
|
fprintf(stderr, "object 0x%p\n", JSVAL_TO_OBJECT(val));
|
|
|
|
else
|
1999-10-02 07:41:37 +04:00
|
|
|
printVal(cx, val);
|
1998-11-05 03:08:43 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1999-10-02 07:41:37 +04:00
|
|
|
void printVal(JSContext *cx, jsval val) {
|
1999-07-28 10:48:44 +04:00
|
|
|
fprintf(stderr, "val %d (0x%p) = ", (int)val, (void *)val);
|
1998-07-31 04:07:22 +04:00
|
|
|
if (JSVAL_IS_NULL(val)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
fprintf(stderr, "null\n");
|
1998-07-31 04:07:22 +04:00
|
|
|
} else if (JSVAL_IS_VOID(val)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
fprintf(stderr, "undefined\n");
|
1998-07-31 04:07:22 +04:00
|
|
|
} else if (JSVAL_IS_OBJECT(val)) {
|
1999-10-02 07:41:37 +04:00
|
|
|
printObj(cx, JSVAL_TO_OBJECT(val));
|
1998-07-31 04:07:22 +04:00
|
|
|
} else if (JSVAL_IS_INT(val)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
fprintf(stderr, "(int) %d\n", JSVAL_TO_INT(val));
|
1998-07-31 04:07:22 +04:00
|
|
|
} else if (JSVAL_IS_STRING(val)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
printString(JSVAL_TO_STRING(val));
|
1998-07-31 04:07:22 +04:00
|
|
|
} else if (JSVAL_IS_DOUBLE(val)) {
|
1998-10-14 14:22:38 +04:00
|
|
|
fprintf(stderr, "(double) %g\n", *JSVAL_TO_DOUBLE(val));
|
1998-07-31 04:07:22 +04:00
|
|
|
} else {
|
1998-10-14 14:22:38 +04:00
|
|
|
JS_ASSERT(JSVAL_IS_BOOLEAN(val));
|
|
|
|
fprintf(stderr, "(boolean) %s\n",
|
|
|
|
JSVAL_TO_BOOLEAN(val) ? "true" : "false");
|
1998-07-31 04:07:22 +04:00
|
|
|
}
|
|
|
|
fflush(stderr);
|
|
|
|
}
|
|
|
|
|
1999-10-02 07:41:37 +04:00
|
|
|
void printId(JSContext *cx, jsid id) {
|
1999-07-28 10:48:44 +04:00
|
|
|
fprintf(stderr, "id %d (0x%p) is ", (int)id, (void *)id);
|
1999-10-02 07:41:37 +04:00
|
|
|
printVal(cx, js_IdToValue(id));
|
1998-07-31 04:07:22 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
void printAtom(JSAtom *atom) {
|
|
|
|
printString(ATOM_TO_STRING(atom));
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|