2 * Copyright 2008 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 #include "wine/port.h"
28 #include "wine/debug.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
31 WINE_DECLARE_DEBUG_CHANNEL(heap);
33 const char *debugstr_variant(const VARIANT *v)
44 return wine_dbg_sprintf("{VT_I4: %d}", V_I4(v));
46 return wine_dbg_sprintf("{VT_UI4: %u}", V_UI4(v));
48 return wine_dbg_sprintf("{VT_R8: %lf}", V_R8(v));
50 return wine_dbg_sprintf("{VT_BSTR: %s}", debugstr_w(V_BSTR(v)));
52 return wine_dbg_sprintf("{VT_DISPATCH: %p}", V_DISPATCH(v));
54 return wine_dbg_sprintf("{VT_BOOL: %x}", V_BOOL(v));
56 return wine_dbg_sprintf("{vt %d}", V_VT(v));
60 #define MIN_BLOCK_SIZE 128
61 #define ARENA_FREE_FILLER 0xaa
63 static inline DWORD block_size(DWORD block)
65 return MIN_BLOCK_SIZE << block;
68 void jsheap_init(jsheap_t *heap)
70 memset(heap, 0, sizeof(*heap));
71 list_init(&heap->custom_blocks);
74 void *jsheap_alloc(jsheap_t *heap, DWORD size)
79 if(!heap->block_cnt) {
81 heap->blocks = heap_alloc(sizeof(void*));
86 tmp = heap_alloc(block_size(0));
90 heap->blocks[0] = tmp;
94 if(heap->offset + size <= block_size(heap->last_block)) {
95 tmp = ((BYTE*)heap->blocks[heap->last_block])+heap->offset;
100 if(size <= block_size(heap->last_block+1)) {
101 if(heap->last_block+1 == heap->block_cnt) {
102 tmp = heap_realloc(heap->blocks, (heap->block_cnt+1)*sizeof(void*));
107 heap->blocks[heap->block_cnt] = heap_alloc(block_size(heap->block_cnt));
108 if(!heap->blocks[heap->block_cnt])
116 return heap->blocks[heap->last_block];
119 list = heap_alloc(size + sizeof(struct list));
123 list_add_head(&heap->custom_blocks, list);
127 void *jsheap_grow(jsheap_t *heap, void *mem, DWORD size, DWORD inc)
131 if(mem == (BYTE*)heap->blocks[heap->last_block] + heap->offset-size
132 && heap->offset+inc < block_size(heap->last_block)) {
137 ret = jsheap_alloc(heap, size+inc);
138 if(ret) /* FIXME: avoid copying for custom blocks */
139 memcpy(ret, mem, size);
143 void jsheap_clear(jsheap_t *heap)
150 while((tmp = list_next(&heap->custom_blocks, &heap->custom_blocks))) {
158 for(i=0; i < heap->block_cnt; i++)
159 memset(heap->blocks[i], ARENA_FREE_FILLER, block_size(i));
162 heap->last_block = heap->offset = 0;
166 void jsheap_free(jsheap_t *heap)
172 for(i=0; i < heap->block_cnt; i++)
173 heap_free(heap->blocks[i]);
174 heap_free(heap->blocks);
179 jsheap_t *jsheap_mark(jsheap_t *heap)
188 /* ECMA-262 3rd Edition 9.1 */
189 HRESULT to_primitive(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, VARIANT *ret, hint_t hint)
201 V_BSTR(ret) = SysAllocString(V_BSTR(v));
206 DISPPARAMS dp = {NULL, NULL, 0, 0};
209 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
210 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
217 jsdisp = iface_to_jsdisp((IUnknown*)V_DISPATCH(v));
219 V_VT(ret) = VT_EMPTY;
220 return disp_propget(ctx, V_DISPATCH(v), DISPID_VALUE, ret, ei);
224 hint = is_class(jsdisp, JSCLASS_DATE) ? HINT_STRING : HINT_NUMBER;
226 /* Native implementation doesn't throw TypeErrors, returns strange values */
228 hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? toStringW : valueOfW, 0, &id);
229 if(SUCCEEDED(hres)) {
230 hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, &dp, ret, ei);
232 WARN("call error - forwarding exception\n");
233 jsdisp_release(jsdisp);
236 else if(V_VT(ret) != VT_DISPATCH) {
237 jsdisp_release(jsdisp);
241 IDispatch_Release(V_DISPATCH(ret));
244 hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? valueOfW : toStringW, 0, &id);
245 if(SUCCEEDED(hres)) {
246 hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, &dp, ret, ei);
248 WARN("call error - forwarding exception\n");
249 jsdisp_release(jsdisp);
252 else if(V_VT(ret) != VT_DISPATCH) {
253 jsdisp_release(jsdisp);
257 IDispatch_Release(V_DISPATCH(ret));
260 jsdisp_release(jsdisp);
263 return throw_type_error(ctx, ei, JS_E_TO_PRIMITIVE, NULL);
269 FIXME("Unimplemented for vt %d\n", V_VT(v));
276 /* ECMA-262 3rd Edition 9.2 */
277 HRESULT to_boolean(VARIANT *v, VARIANT_BOOL *b)
285 *b = V_I4(v) ? VARIANT_TRUE : VARIANT_FALSE;
288 if(isnan(V_R8(v))) *b = VARIANT_FALSE;
289 else *b = V_R8(v) ? VARIANT_TRUE : VARIANT_FALSE;
292 *b = V_BSTR(v) && *V_BSTR(v) ? VARIANT_TRUE : VARIANT_FALSE;
295 *b = V_DISPATCH(v) ? VARIANT_TRUE : VARIANT_FALSE;
301 FIXME("unimplemented for vt %d\n", V_VT(v));
308 static int hex_to_int(WCHAR c)
310 if('0' <= c && c <= '9')
313 if('a' <= c && c <= 'f')
316 if('A' <= c && c <= 'F')
322 /* ECMA-262 3rd Edition 9.3.1 */
323 static HRESULT str_to_number(BSTR str, double *ret)
325 const WCHAR *ptr = str;
329 static const WCHAR infinityW[] = {'I','n','f','i','n','i','t','y'};
336 while(isspaceW(*ptr))
342 }else if(*ptr == '+') {
346 if(!strncmpW(ptr, infinityW, sizeof(infinityW)/sizeof(WCHAR))) {
347 ptr += sizeof(infinityW)/sizeof(WCHAR);
348 while(*ptr && isspaceW(*ptr))
354 *ret = neg ? -ret_inf() : ret_inf();
358 if(*ptr == '0' && ptr[1] == 'x') {
362 while((l = hex_to_int(*ptr)) != -1) {
371 while(isdigitW(*ptr))
372 d = d*10 + (*ptr++ - '0');
374 if(*ptr == 'e' || *ptr == 'E') {
382 }else if(*ptr == '+') {
386 while(isdigitW(*ptr))
387 l = l*10 + (*ptr++ - '0');
392 }else if(*ptr == '.') {
396 while(isdigitW(*ptr)) {
397 d += dec * (*ptr++ - '0');
402 while(isspaceW(*ptr))
417 /* ECMA-262 3rd Edition 9.3 */
418 HRESULT to_number(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, double *ret)
434 return str_to_number(V_BSTR(v), ret);
439 hres = to_primitive(ctx, v, ei, &prim, HINT_NUMBER);
443 hres = to_number(ctx, &prim, ei, ret);
448 *ret = V_BOOL(v) ? 1 : 0;
454 FIXME("unimplemented for vt %d\n", V_VT(v));
461 /* ECMA-262 3rd Edition 9.4 */
462 HRESULT to_integer(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, double *ret)
467 if(V_VT(v) == VT_I4) {
472 hres = to_number(ctx, v, ei, &n);
479 *ret = n >= 0.0 ? floor(n) : -floor(-n);
483 /* ECMA-262 3rd Edition 9.5 */
484 HRESULT to_int32(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, INT *ret)
489 if(V_VT(v) == VT_I4) {
494 hres = to_number(ctx, v, ei, &n);
498 *ret = isnan(n) || isinf(n) ? 0 : n;
502 /* ECMA-262 3rd Edition 9.6 */
503 HRESULT to_uint32(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, DWORD *ret)
508 if(V_VT(v) == VT_I4) {
513 hres = to_number(ctx, v, ei, &n);
517 *ret = isnan(n) || isinf(n) ? 0 : n;
521 BSTR int_to_bstr(int i)
527 static const WCHAR zeroW[] = {'0',0};
528 return SysAllocString(zeroW);
536 p = buf + sizeof(buf)/sizeof(*buf)-1;
548 return SysAllocString(p);
551 HRESULT double_to_bstr(double n, BSTR *str)
553 const WCHAR NaNW[] = {'N','a','N',0};
554 const WCHAR InfinityW[] = {'-','I','n','f','i','n','i','t','y',0};
557 *str = SysAllocString(NaNW);
559 *str = SysAllocString(n<0 ? InfinityW : InfinityW+1);
566 V_VT(&strv) = VT_EMPTY;
567 hres = VariantChangeTypeEx(&strv, &v, MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT), 0, VT_BSTR);
571 *str = V_BSTR(&strv);
574 return *str ? S_OK : E_OUTOFMEMORY;
577 /* ECMA-262 3rd Edition 9.8 */
578 HRESULT to_string(script_ctx_t *ctx, VARIANT *v, jsexcept_t *ei, BSTR *str)
580 const WCHAR undefinedW[] = {'u','n','d','e','f','i','n','e','d',0};
581 const WCHAR nullW[] = {'n','u','l','l',0};
582 const WCHAR trueW[] = {'t','r','u','e',0};
583 const WCHAR falseW[] = {'f','a','l','s','e',0};
587 *str = SysAllocString(undefinedW);
590 *str = SysAllocString(nullW);
593 *str = int_to_bstr(V_I4(v));
596 return double_to_bstr(V_R8(v), str);
598 *str = SysAllocString(V_BSTR(v));
604 hres = to_primitive(ctx, v, ei, &prim, HINT_STRING);
608 hres = to_string(ctx, &prim, ei, str);
613 *str = SysAllocString(V_BOOL(v) ? trueW : falseW);
616 FIXME("unsupported vt %d\n", V_VT(v));
620 return *str ? S_OK : E_OUTOFMEMORY;
623 /* ECMA-262 3rd Edition 9.9 */
624 HRESULT to_object(script_ctx_t *ctx, VARIANT *v, IDispatch **disp)
631 hres = create_string(ctx, V_BSTR(v), SysStringLen(V_BSTR(v)), &dispex);
635 *disp = to_disp(dispex);
639 hres = create_number(ctx, num_val(v), &dispex);
643 *disp = to_disp(dispex);
647 IDispatch_AddRef(V_DISPATCH(v));
648 *disp = V_DISPATCH(v);
652 hres = create_object(ctx, NULL, &obj);
656 *disp = to_disp(obj);
660 hres = create_bool(ctx, V_BOOL(v), &dispex);
664 *disp = to_disp(dispex);
666 case VT_ARRAY|VT_VARIANT:
667 hres = create_vbarray(ctx, V_ARRAY(v), &dispex);
671 *disp = to_disp(dispex);
674 FIXME("unsupported vt %d\n", V_VT(v));
681 HRESULT variant_change_type(script_ctx_t *ctx, VARIANT *dst, VARIANT *src, VARTYPE vt)
686 memset(&ei, 0, sizeof(ei));
693 hres = to_int32(ctx, src, &ei, &i);
694 if(SUCCEEDED(hres)) {
704 hres = to_number(ctx, src, &ei, &n);
712 hres = to_number(ctx, src, &ei, &n);
720 hres = to_boolean(src, &b);
728 hres = to_string(ctx, src, &ei, &str);
734 hres = V_VT(src) == VT_EMPTY ? S_OK : E_NOTIMPL;
737 hres = V_VT(src) == VT_NULL ? S_OK : E_NOTIMPL;
740 FIXME("vt %d not implemented\n", vt);
745 VariantClear(&ei.var);
753 static inline JSCaller *impl_from_IServiceProvider(IServiceProvider *iface)
755 return CONTAINING_RECORD(iface, JSCaller, IServiceProvider_iface);
758 static HRESULT WINAPI JSCaller_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
760 JSCaller *This = impl_from_IServiceProvider(iface);
762 if(IsEqualGUID(&IID_IUnknown, riid)) {
763 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
764 *ppv = &This->IServiceProvider_iface;
765 }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
766 TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
767 *ppv = &This->IServiceProvider_iface;
769 WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
771 return E_NOINTERFACE;
774 IUnknown_AddRef((IUnknown*)*ppv);
778 static ULONG WINAPI JSCaller_AddRef(IServiceProvider *iface)
780 JSCaller *This = impl_from_IServiceProvider(iface);
781 LONG ref = InterlockedIncrement(&This->ref);
783 TRACE("(%p) ref=%d\n", This, ref);
788 static ULONG WINAPI JSCaller_Release(IServiceProvider *iface)
790 JSCaller *This = impl_from_IServiceProvider(iface);
791 LONG ref = InterlockedIncrement(&This->ref);
793 TRACE("(%p) ref=%d\n", This, ref);
803 static HRESULT WINAPI JSCaller_QueryService(IServiceProvider *iface, REFGUID guidService,
804 REFIID riid, void **ppv)
806 JSCaller *This = impl_from_IServiceProvider(iface);
808 if(IsEqualGUID(guidService, &SID_VariantConversion) && This->ctx && This->ctx->active_script) {
809 TRACE("(%p)->(SID_VariantConversion)\n", This);
810 return IActiveScript_QueryInterface(This->ctx->active_script, riid, ppv);
813 FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
816 return E_NOINTERFACE;
819 static const IServiceProviderVtbl ServiceProviderVtbl = {
820 JSCaller_QueryInterface,
823 JSCaller_QueryService
826 HRESULT create_jscaller(script_ctx_t *ctx)
830 ret = heap_alloc(sizeof(*ret));
832 return E_OUTOFMEMORY;
834 ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;