/* * Python-esque sequence operations. */ static JSBool array_concat(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { JSObject *nobj, *aobj; jsuint length, alength, slot; uintN i; jsval v; jsid id, id2; /* Treat obj as the first argument; see ECMA 15.4.4.4. */ --argv; JS_ASSERT(obj == JSVAL_TO_OBJECT(argv[0])); /* Create a new Array object and store it in the rval local root. */ nobj = js_NewArrayObject(cx, 0, NULL); if (!nobj) return JS_FALSE; *rval = OBJECT_TO_JSVAL(nobj); /* Loop over [0, argc] to concat args into nobj, expanding all Arrays. */ length = 0; for (i = 0; i <= argc; i++) { v = argv[i]; if (JSVAL_IS_OBJECT(v)) { aobj = JSVAL_TO_OBJECT(v); if (aobj && OBJ_GET_CLASS(cx, aobj) == &js_ArrayClass) { if (!OBJ_GET_PROPERTY(cx, aobj, (jsid)cx->runtime->atomState.lengthAtom, &v)) { return JS_FALSE; } if (!ValueIsLength(cx, v, &alength)) return JS_FALSE; for (slot = 0; slot < alength; slot++) { if (!IndexToId(cx, slot, &id)) return JS_FALSE; if (!IndexToId(cx, length + slot, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, aobj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, nobj, id2, &v)) return JS_FALSE; } length += alength; continue; } } if (!IndexToId(cx, length, &id)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, nobj, id, &v)) return JS_FALSE; length++; } return JS_TRUE; }
static JSBool array_unshift(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { jsuint length, last; uintN i; jsid id, id2; jsval v; #if JS_HAS_SPARSE_ARRAYS JSObject *obj2; JSProperty *prop; #endif if (!js_GetLengthProperty(cx, obj, &length)) return JS_FALSE; if (argc > 0) { /* Slide up the array to make room for argc at the bottom. */ if (length > 0) { last = length; while (last--) { if (!IndexToId(cx, last, &id)) return JS_FALSE; if (!IndexToId(cx, last + argc, &id2)) return JS_FALSE; #if JS_HAS_SPARSE_ARRAYS if (!OBJ_LOOKUP_PROPERTY(cx, obj, id, &obj2, &prop)) return JS_FALSE; if (!prop) { OBJ_DELETE_PROPERTY(cx, obj, id2, &v); /* v is junk. */ continue; } OBJ_DROP_PROPERTY(cx, obj2, prop); #endif if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id2, &v)) return JS_FALSE; } } /* Copy from argv to the bottom of the array. */ for (i = 0; i < argc; i++) { if (!IndexToId(cx, i, &id)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id, &argv[i])) return JS_FALSE; } /* Follow Perl by returning the new array length. */ length += argc; if (!js_SetLengthProperty(cx, obj, length)) return JS_FALSE; } return IndexToValue(cx, length, rval); }
/* * Perl-inspired push, pop, shift, unshift, and splice methods. */ static JSBool array_push(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { jsuint length; uintN i; jsid id; if (!js_GetLengthProperty(cx, obj, &length)) return JS_FALSE; for (i = 0; i < argc; i++) { if (!IndexToId(cx, length + i, &id)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id, &argv[i])) return JS_FALSE; } /* * If JS1.2, follow Perl4 by returning the last thing pushed. Otherwise, * return the new array length. */ length += argc; if (cx->version == JSVERSION_1_2) { *rval = argc ? argv[argc-1] : JSVAL_VOID; } else { if (!IndexToValue(cx, length, rval)) return JS_FALSE; } return js_SetLengthProperty(cx, obj, length); }
static JSBool array_slice(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { JSObject *nobj; jsuint length, begin, end, slot; jsdouble d; jsid id, id2; jsval v; nobj = js_NewArrayObject(cx, 0, NULL); if (!nobj) return JS_FALSE; if (!js_GetLengthProperty(cx, obj, &length)) return JS_FALSE; begin = 0; end = length; if (argc > 0) { if (!js_ValueToNumber(cx, argv[0], &d)) return JS_FALSE; d = js_DoubleToInteger(d); if (d < 0) { d += length; if (d < 0) d = 0; } else if (d > length) { d = length; } begin = (jsuint)d; if (argc > 1) { if (!js_ValueToNumber(cx, argv[1], &d)) return JS_FALSE; d = js_DoubleToInteger(d); if (d < 0) { d += length; if (d < 0) d = 0; } else if (d > length) { d = length; } end = (jsuint)d; } } for (slot = begin; slot < end; slot++) { if (!IndexToId(cx, slot, &id)) return JS_FALSE; if (!IndexToId(cx, slot - begin, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, nobj, id2, &v)) return JS_FALSE; } *rval = OBJECT_TO_JSVAL(nobj); return JS_TRUE; }
static JSBool array_reverse(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { jsuint len, half, i; jsid id, id2; jsval v, v2; if (!js_GetLengthProperty(cx, obj, &len)) return JS_FALSE; half = len / 2; for (i = 0; i < half; i++) { if (!IndexToId(cx, i, &id)) return JS_FALSE; if (!IndexToId(cx, len - i - 1, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id2, &v2)) return JS_FALSE; #if JS_HAS_SPARSE_ARRAYS /* This part isn't done yet. */ if (!OBJ_LOOKUP_PROPERTY(cx, obj, id, &obj2, &prop)) return JS_FALSE; if (!prop) { OBJ_DELETE_PROPERTY(cx, obj, id2, &v); /* v is junk. */ continue; } OBJ_DROP_PROPERTY(cx, obj2, prop); #endif if (!OBJ_SET_PROPERTY(cx, obj, id, &v2)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id2, &v)) return JS_FALSE; } *rval = OBJECT_TO_JSVAL(obj); return JS_TRUE; }
JSBool js_SetLengthProperty(JSContext *cx, JSObject *obj, jsuint length) { jsval v; jsid id; if (!IndexToValue(cx, length, &v)) return JS_FALSE; id = (jsid) cx->runtime->atomState.lengthAtom; return OBJ_SET_PROPERTY(cx, obj, id, &v); }
static JSBool InitArrayElements(JSContext *cx, JSObject *obj, jsuint length, jsval *vector) { jsuint index; jsid id; for (index = 0; index < length; index++) { if (!IndexToId(cx, index, &id)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id, &vector[index])) return JS_FALSE; } return JS_TRUE; }
static JSBool array_shift(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { jsuint length, i; jsid id, id2; jsval v, junk; if (!js_GetLengthProperty(cx, obj, &length)) return JS_FALSE; if (length > 0) { length--; id = JSVAL_ZERO; /* Get the to-be-deleted property's value into rval ASAP. */ if (!OBJ_GET_PROPERTY(cx, obj, id, rval)) return JS_FALSE; /* * Slide down the array above the first element. */ if (length > 0) { for (i = 1; i <= length; i++) { if (!IndexToId(cx, i, &id)) return JS_FALSE; if (!IndexToId(cx, i - 1, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id2, &v)) return JS_FALSE; } } /* Delete the only or last element. */ if (!OBJ_DELETE_PROPERTY(cx, obj, id, &junk)) return JS_FALSE; } return js_SetLengthProperty(cx, obj, length); }
static JSBool array_splice(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval) { jsuint length, begin, end, count, delta, last; uintN i; jsdouble d; jsid id, id2; jsval v; JSObject *obj2; /* Nothing to do if no args. Otherwise lock and load length. */ if (argc == 0) return JS_TRUE; if (!js_GetLengthProperty(cx, obj, &length)) return JS_FALSE; /* Convert the first argument into a starting index. */ if (!js_ValueToNumber(cx, *argv, &d)) return JS_FALSE; d = js_DoubleToInteger(d); if (d < 0) { d += length; if (d < 0) d = 0; } else if (d > length) { d = length; } begin = (jsuint)d; /* d has been clamped to uint32 */ argc--; argv++; /* Convert the second argument from a count into a fencepost index. */ delta = length - begin; if (argc == 0) { count = delta; end = length; } else { if (!js_ValueToNumber(cx, *argv, &d)) return JS_FALSE; d = js_DoubleToInteger(d); if (d < 0) d = 0; else if (d > delta) d = delta; count = (jsuint)d; end = begin + count; argc--; argv++; } if (count == 1 && cx->version == JSVERSION_1_2) { /* * JS lacks "list context", whereby in Perl one turns the single * scalar that's spliced out into an array just by assigning it to * @single instead of $single, or by using it as Perl push's first * argument, for instance. * * JS1.2 emulated Perl too closely and returned a non-Array for * the single-splice-out case, requiring callers to test and wrap * in [] if necessary. So JS1.3, default, and other versions all * return an array of length 1 for uniformity. */ if (!IndexToId(cx, begin, &id)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, rval)) return JS_FALSE; } else { if (cx->version != JSVERSION_1_2 || count > 0) { /* * Create a new array value to return. Our ECMA v2 proposal specs * that splice always returns an array value, even when given no * arguments. We think this is best because it eliminates the need * for callers to do an extra test to handle the empty splice case. */ obj2 = js_NewArrayObject(cx, 0, NULL); if (!obj2) return JS_FALSE; *rval = OBJECT_TO_JSVAL(obj2); /* If there are elements to remove, put them into the return value. */ if (count > 0) { for (last = begin; last < end; last++) { if (!IndexToId(cx, last, &id)) return JS_FALSE; if (!IndexToId(cx, last - begin, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj2, id2, &v)) return JS_FALSE; } } } } /* Find the direction (up or down) to copy and make way for argv. */ if (argc > count) { delta = (jsuint)argc - count; last = length; /* (uint) end could be 0, so can't use vanilla >= test */ while (last-- > end) { if (!IndexToId(cx, last, &id)) return JS_FALSE; if (!IndexToId(cx, last + delta, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id2, &v)) return JS_FALSE; } length += delta; } else if (argc < count) { delta = count - (jsuint)argc; for (last = end; last < length; last++) { if (!IndexToId(cx, last, &id)) return JS_FALSE; if (!IndexToId(cx, last - delta, &id2)) return JS_FALSE; if (!OBJ_GET_PROPERTY(cx, obj, id, &v)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id2, &v)) return JS_FALSE; } length -= delta; } /* Copy from argv into the hole to complete the splice. */ for (i = 0; i < argc; i++) { if (!IndexToId(cx, begin + i, &id)) return JS_FALSE; if (!OBJ_SET_PROPERTY(cx, obj, id, &argv[i])) return JS_FALSE; } /* Update length in case we deleted elements from the end. */ return js_SetLengthProperty(cx, obj, length); }
// static JSBool XPCDispObject::Dispatch(XPCCallContext& ccx, IDispatch * disp, DISPID dispID, CallMode mode, XPCDispParams * params, jsval* retval, XPCDispInterface::Member * member, XPCJSRuntime* rt) { _variant_t dispResult; jsval val; uintN err; uintN argc = params->GetParamCount(); // Figure out what we're doing (getter/setter/method) WORD dispFlags; if(mode == CALL_SETTER) { dispFlags = DISPATCH_PROPERTYPUT; } else if(mode == CALL_GETTER) { dispFlags = DISPATCH_PROPERTYGET; } else { dispFlags = DISPATCH_METHOD; } HRESULT invokeResult; EXCEPINFO exception; // Scope the lock { // avoid deadlock in case the native method blocks somehow AutoJSSuspendRequest req(ccx); // scoped suspend of request // call IDispatch's invoke invokeResult= disp->Invoke( dispID, // IDispatch ID IID_NULL, // Reserved must be IID_NULL LOCALE_SYSTEM_DEFAULT, // The locale context, use the system's dispFlags, // Type of Invoke call params->GetDispParams(), // Parameters &dispResult, // Where the result is stored &exception, // Exception information 0); // Index of an argument error } if(SUCCEEDED(invokeResult)) { *retval = JSVAL_VOID; if(mode == CALL_METHOD) { NS_ASSERTION(member, "member must not be null if this is a method"); for(PRUint32 index = 0; index < argc; ++index) { const XPCDispInterface::Member::ParamInfo & paramInfo = member->GetParamInfo(index); if(paramInfo.IsOut()) { if(!XPCDispConvert::COMToJS(ccx, params->GetParamRef(index), val, err)) return ThrowBadParam(err, index, ccx); if(paramInfo.IsRetVal()) { *retval = val; } else { jsval * argv = ccx.GetArgv(); // Out, in/out parameters must be objects if(!JSVAL_IS_OBJECT(argv[index]) || !OBJ_SET_PROPERTY(ccx, JSVAL_TO_OBJECT(argv[index]), rt->GetStringID(XPCJSRuntime::IDX_VALUE), &val)) return ThrowBadParam(NS_ERROR_XPC_CANT_SET_OUT_VAL, index, ccx); } } } } if(dispResult.vt != VT_EMPTY) { if(!XPCDispConvert::COMToJS(ccx, dispResult, val, err)) { ThrowBadParam(err, 0, ccx); } *retval = val; } } // Set the result and throw the error if one occured ccx.GetXPCContext()->SetLastResult(invokeResult); if(NS_FAILED(invokeResult)) { XPCThrower::ThrowCOMError(ccx, invokeResult, NS_ERROR_XPC_COM_ERROR, invokeResult == DISP_E_EXCEPTION ? &exception : nsnull); return JS_FALSE; } return JS_TRUE; }