static HRESULT Array_set_length(script_ctx_t *ctx, jsdisp_t *jsthis, jsval_t value)
{
ArrayInstance *This = array_from_jsdisp(jsthis);
DOUBLE len = -1;
DWORD i;
HRESULT hres;
TRACE("%p %d\n", This, This->length);
hres = to_number(ctx, value, &len);
if(FAILED(hres))
return hres;
len = floor(len);
if(len!=(DWORD)len)
return throw_range_error(ctx, JS_E_INVALID_LENGTH, NULL);
for(i=len; i < This->length; i++) {
hres = jsdisp_delete_idx(&This->dispex, i);
if(FAILED(hres))
return hres;
}
This->length = len;
return S_OK;
}
static HRESULT Array_get_length(script_ctx_t *ctx, jsdisp_t *jsthis, jsval_t *r)
{
TRACE("%p\n", jsthis);
*r = jsval_number(array_from_jsdisp(jsthis)->length);
return S_OK;
}
static HRESULT Array_get_value(script_ctx_t *ctx, jsdisp_t *jsthis, jsval_t *r)
{
ArrayInstance *array = array_from_jsdisp(jsthis);
TRACE("\n");
return array_join(ctx, &array->dispex, array->length, default_separatorW, r);
}
static HRESULT set_length(jsdisp_t *obj, DWORD length)
{
if(is_class(obj, JSCLASS_ARRAY)) {
array_from_jsdisp(obj)->length = length;
return S_OK;
}
return jsdisp_propput_name(obj, lengthW, jsval_number(length));
}
static HRESULT concat_obj(jsdisp_t *array, IDispatch *obj, DWORD *len)
{
jsdisp_t *jsobj;
HRESULT hres;
jsobj = iface_to_jsdisp(obj);
if(jsobj) {
if(is_class(jsobj, JSCLASS_ARRAY)) {
hres = concat_array(array, array_from_jsdisp(jsobj), len);
jsdisp_release(jsobj);
return hres;
}
jsdisp_release(jsobj);
}
return jsdisp_propput_idx(array, (*len)++, jsval_disp(obj));
}
static void Array_on_put(jsdisp_t *dispex, const WCHAR *name)
{
ArrayInstance *array = array_from_jsdisp(dispex);
const WCHAR *ptr = name;
DWORD id = 0;
if(!isdigitW(*ptr))
return;
while(*ptr && isdigitW(*ptr)) {
id = id*10 + (*ptr-'0');
ptr++;
}
if(*ptr)
return;
if(id >= array->length)
array->length = id+1;
}
unsigned array_get_length(jsdisp_t *array)
{
assert(is_class(array, JSCLASS_ARRAY));
return array_from_jsdisp(array)->length;
}
static inline ArrayInstance *array_from_vdisp(vdisp_t *vdisp)
{
return array_from_jsdisp(vdisp->u.jsdisp);
}