September 2011 - Wine-Commits

Jacek Caban : vbscript: Added property invoke implementation.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: e843608748b3d6cfdc3af6aa6f577ab706f31c65 URL: http://source.winehq.org/git/wine.git/?a=commit;h=e843608748b3d6cfdc3af6aa6… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:27:48 2011 +0200 vbscript: Added property invoke implementation. --- dlls/vbscript/tests/lang.vbs | 16 ++++++++++ dlls/vbscript/tests/run.c | 30 ++++++++++++++++++ dlls/vbscript/vbdisp.c | 68 ++++++++++++++++++++++++++++++++++++++++-- dlls/vbscript/vbscript.h | 1 + 4 files changed, 112 insertions(+), 3 deletions(-) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 3f9f73e..e29a20f 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -404,6 +404,14 @@ Class TestClass Public Sub publicSub End Sub + Public Sub setPrivateProp(x) + privateProp = x + End Sub + + Function getPrivateProp + getPrivateProp = privateProp + End Function + Private Sub privateSub End Sub End Class @@ -419,4 +427,12 @@ obj.publicSub() Call obj.publicSub Call obj.publicFunction() +Call ok(getVT(obj.publicProp) = "VT_EMPTY", "getVT(obj.publicProp) = " & getVT(obj.publicProp)) +obj.publicProp = 3 +Call ok(obj.publicProp = 3, "obj.publicProp = " & obj.publicProp) +obj.publicProp() = 3 + +Call obj.setPrivateProp(6) +Call ok(obj.getPrivateProp = 6, "obj.getPrivateProp = " & obj.getPrivateProp) + reportSuccess() diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c index 4fd46c9..f524b81 100644 --- a/dlls/vbscript/tests/run.c +++ b/dlls/vbscript/tests/run.c @@ -188,6 +188,36 @@ static void test_disp(IDispatch *disp) SysFreeString(str); ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres); + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + V_VT(args) = VT_BOOL; + V_BOOL(args) = VARIANT_TRUE; + dp.cArgs = dp.cNamedArgs = 1; + V_VT(&v) = VT_BOOL; + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v)); + ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v)); + + dp.cArgs = 1; + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + V_VT(args) = VT_BOOL; + V_BOOL(args) = VARIANT_FALSE; + dp.cArgs = 1; + V_VT(&v) = VT_BOOL; + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL); + ok(hres == DISP_E_PARAMNOTOPTIONAL, "InvokeEx failed: %08x, expected DISP_E_PARAMNOTOPTIONAL\n", hres); + str = a2bstr("publicFunction"); hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_func_id); SysFreeString(str); diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index 2d0540f..e9bcb2a 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -67,6 +67,64 @@ HRESULT vbdisp_get_id(vbdisp_t *This, BSTR name, BOOL search_private, DISPID *id return DISP_E_UNKNOWNNAME; } +static VARIANT *get_propput_arg(const DISPPARAMS *dp) +{ + unsigned i; + + for(i=0; i < dp->cNamedArgs; i++) { + if(dp->rgdispidNamedArgs[i] == DISPID_PROPERTYPUT) + return dp->rgvarg+i; + } + + return NULL; +} + +static HRESULT invoke_variant_prop(vbdisp_t *This, VARIANT *v, WORD flags, DISPPARAMS *dp, VARIANT *res) +{ + HRESULT hres; + + switch(flags) { + case DISPATCH_PROPERTYGET|DISPATCH_METHOD: + if(dp->cArgs) { + WARN("called with arguments\n"); + return DISP_E_MEMBERNOTFOUND; /* That's what tests show */ + } + + hres = VariantCopy(res, v); + break; + + case DISPATCH_PROPERTYPUT: { + VARIANT *put_val; + + put_val = get_propput_arg(dp); + if(!put_val) { + WARN("no value to set\n"); + return DISP_E_PARAMNOTOPTIONAL; + } + + if(res) + V_VT(res) = VT_EMPTY; + + hres = VariantCopy(v, put_val); + break; + } + + default: + FIXME("unimplemented flags %x\n", flags); + return E_NOTIMPL; + } + + return hres; +} + +static void clean_props(vbdisp_t *This) +{ + unsigned i; + + for(i=0; i < This->desc->prop_cnt; i++) + VariantClear(This->props+i); +} + static inline vbdisp_t *impl_from_IDispatchEx(IDispatchEx *iface) { return CONTAINING_RECORD(iface, vbdisp_t, IDispatchEx_iface); @@ -110,8 +168,10 @@ static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface) vbdisp_t *This = impl_from_IDispatchEx(iface); LONG ref = InterlockedIncrement(&This->ref); - if(!ref) + if(!ref) { + clean_props(This); heap_free(This); + } return ref; } @@ -200,7 +260,9 @@ static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lc } } - FIXME("not implemented for non-function ids\n"); + if(id < This->desc->prop_cnt + This->desc->func_cnt) + return invoke_variant_prop(This, This->props+(id-This->desc->func_cnt), wFlags, pdp, pvarRes); + return DISP_E_MEMBERNOTFOUND; } @@ -275,7 +337,7 @@ HRESULT create_vbdisp(const class_desc_t *desc, vbdisp_t **ret) { vbdisp_t *vbdisp; - vbdisp = heap_alloc_zero(sizeof(*vbdisp)); + vbdisp = heap_alloc_zero(sizeof(*vbdisp) + (desc->prop_cnt-1)*sizeof(VARIANT)); if(!vbdisp) return E_OUTOFMEMORY; diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index d886a4e..ce1fa01 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -89,6 +89,7 @@ typedef struct { LONG ref; const class_desc_t *desc; + VARIANT props[1]; } vbdisp_t; HRESULT create_vbdisp(const class_desc_t*,vbdisp_t**);

1 0

Jacek Caban : vbscript: Added GetDispID support for properties.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 4bb10ad385ccac1b427b463b7275579539eb14a7 URL: http://source.winehq.org/git/wine.git/?a=commit;h=4bb10ad385ccac1b427b463b7… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:27:31 2011 +0200 vbscript: Added GetDispID support for properties. --- dlls/vbscript/tests/lang.vbs | 2 ++ dlls/vbscript/tests/run.c | 18 +++++++++++++++++- dlls/vbscript/vbdisp.c | 14 +++++++++++++- 3 files changed, 32 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index e23cd86..3f9f73e 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -399,6 +399,8 @@ Class TestClass publicFunction = 4 End Function + Public publicProp2 + Public Sub publicSub End Sub diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c index 6b2ec84..4fd46c9 100644 --- a/dlls/vbscript/tests/run.c +++ b/dlls/vbscript/tests/run.c @@ -160,7 +160,7 @@ static BOOL is_lang_english(void) static void test_disp(IDispatch *disp) { - DISPID id, public_func_id, public_sub_id; + DISPID id, public_prop_id, public_prop2_id, public_func_id, public_sub_id; DISPID named_args[5] = {DISPID_PROPERTYPUT}; VARIANT v, args[5]; DISPPARAMS dp = {args, named_args}; @@ -172,6 +172,22 @@ static void test_disp(IDispatch *disp) hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres); + str = a2bstr("publicProp"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop_id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres); + + str = a2bstr("PUBLICPROP"); + hres = IDispatchEx_GetDispID(dispex, str, 0, &id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(PUBLICPROP) failed: %08x\n", hres); + ok(public_prop_id == id, "id = %d\n", public_prop_id); + + str = a2bstr("publicPROP2"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_prop2_id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres); + str = a2bstr("publicFunction"); hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &public_func_id); SysFreeString(str); diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index 666d04a..2d0540f 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -46,11 +46,23 @@ static BOOL get_func_id(vbdisp_t *This, const WCHAR *name, BOOL search_private, return FALSE; } -static HRESULT vbdisp_get_id(vbdisp_t *This, BSTR name, BOOL search_private, DISPID *id) +HRESULT vbdisp_get_id(vbdisp_t *This, BSTR name, BOOL search_private, DISPID *id) { + unsigned i; + if(get_func_id(This, name, search_private, id)) return S_OK; + for(i=0; i < This->desc->prop_cnt; i++) { + if(!search_private && !This->desc->props[i].is_public) + continue; + + if(!strcmpiW(This->desc->props[i].name, name)) { + *id = i + This->desc->func_cnt; + return S_OK; + } + } + *id = -1; return DISP_E_UNKNOWNNAME; }

1 0

Piotr Caban : urlmon: Added 331 and 335 ordinal exports.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 4856bd10157c784f60859d5b95af2e3698bc2e67 URL: http://source.winehq.org/git/wine.git/?a=commit;h=4856bd10157c784f60859d5b9… Author: Piotr Caban <piotr(a)codeweavers.com> Date: Fri Sep 16 11:21:03 2011 +0200 urlmon: Added 331 and 335 ordinal exports. --- dlls/urlmon/urlmon.spec | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/dlls/urlmon/urlmon.spec b/dlls/urlmon/urlmon.spec index 1a409c3..41bd263 100644 --- a/dlls/urlmon/urlmon.spec +++ b/dlls/urlmon/urlmon.spec @@ -94,6 +94,8 @@ @ stub WriteHitLogging @ stub ZonesReInit +331 stdcall @(ptr long ptr) propsys.InitPropVariantFromBuffer +335 stdcall @(ptr long ptr) propsys.InitVariantFromBuffer 362 stdcall @(ptr ptr) propsys.InitVariantFromGUIDAsString 410 stdcall @(long long) URLMON_410 423 stdcall @(long long long long) URLMON_423

1 0

Piotr Caban : urlmon: Added 111 ordinal stub.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 005808cb0e4a75a15820024ea7f83bc2d45aeb32 URL: http://source.winehq.org/git/wine.git/?a=commit;h=005808cb0e4a75a15820024ea… Author: Piotr Caban <piotr(a)codeweavers.com> Date: Fri Sep 16 11:21:24 2011 +0200 urlmon: Added 111 ordinal stub. --- dlls/urlmon/urlmon.spec | 1 + dlls/urlmon/urlmon_main.c | 10 ++++++++++ 2 files changed, 11 insertions(+), 0 deletions(-) diff --git a/dlls/urlmon/urlmon.spec b/dlls/urlmon/urlmon.spec index 41bd263..28af3c5 100644 --- a/dlls/urlmon/urlmon.spec +++ b/dlls/urlmon/urlmon.spec @@ -94,6 +94,7 @@ @ stub WriteHitLogging @ stub ZonesReInit +111 stdcall @(wstr) IsProtectedModeURL 331 stdcall @(ptr long ptr) propsys.InitPropVariantFromBuffer 335 stdcall @(ptr long ptr) propsys.InitVariantFromBuffer 362 stdcall @(ptr ptr) propsys.InitVariantFromGUIDAsString diff --git a/dlls/urlmon/urlmon_main.c b/dlls/urlmon/urlmon_main.c index 01442c1..5ba9c00 100644 --- a/dlls/urlmon/urlmon_main.c +++ b/dlls/urlmon/urlmon_main.c @@ -907,6 +907,16 @@ BOOL WINAPI IsLoggingEnabledW(LPCWSTR url) } /*********************************************************************** + * IsProtectedModeURL (URLMON.111) + * Undocumented, added in IE7 + */ +BOOL WINAPI IsProtectedModeURL(const WCHAR *url) +{ + FIXME("stub: %s\n", debugstr_w(url)); + return TRUE; +} + +/*********************************************************************** * URLMON_410 (URLMON.410) * Undocumented, added in IE8 */

1 0

Jacek Caban : vbscript: Use default object value for objets in stack_pop_val.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 603d053512c50036869c20df7f2034338efcb3dd URL: http://source.winehq.org/git/wine.git/?a=commit;h=603d053512c50036869c20df7… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:29:02 2011 +0200 vbscript: Use default object value for objets in stack_pop_val. --- dlls/vbscript/interp.c | 13 +++++++++++-- dlls/vbscript/tests/lang.vbs | 9 +++++++++ 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index 4599cbf..474957c 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -199,8 +199,17 @@ static HRESULT stack_pop_val(exec_ctx_t *ctx, variant_val_t *v) } if(V_VT(var) == VT_DISPATCH) { - FIXME("got dispatch - get its default value\n"); - return E_NOTIMPL; + DISPPARAMS dp = {0}; + HRESULT hres; + + hres = disp_call(ctx->script, V_DISPATCH(var), DISPID_VALUE, &dp, &v->store); + if(v->owned) + IDispatch_Release(V_DISPATCH(var)); + if(FAILED(hres)) + return hres; + + v->owned = TRUE; + v->v = &v->store; }else { v->v = var; } diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 24bfecc..cb0c7eb 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -473,4 +473,13 @@ Call ok(obj.getPrivateProp = 3, "obj.getPrivateProp = " & obj.getPrivateProp) Set obj.gsProp = New testclass Call ok(funcCalled = "gsProp set", "funcCalled = " & funcCalled) +x = obj +Call ok(x = 3, "(x = obj) = " & x) +Call ok(funcCalled = "GetDefVal", "funcCalled = " & funcCalled) +funcCalled = "" +Call ok(obj = 3, "(x = obj) = " & obj) +Call ok(funcCalled = "GetDefVal", "funcCalled = " & funcCalled) + +x = (New testclass).publicProp + reportSuccess()

1 0

Jacek Caban : vbscript: Added support for exit property statement.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 6c8c617df9c2c1c930d668ea48a08fbbd0491b9d URL: http://source.winehq.org/git/wine.git/?a=commit;h=6c8c617df9c2c1c930d668ea4… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:28:29 2011 +0200 vbscript: Added support for exit property statement. --- dlls/vbscript/compile.c | 22 +++++++++++++++++++++- dlls/vbscript/parse.h | 1 + dlls/vbscript/parser.y | 1 + dlls/vbscript/tests/lang.vbs | 6 ++++++ 4 files changed, 29 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 6c30a40..1fc6612 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -40,6 +40,7 @@ typedef struct { unsigned sub_end_label; unsigned func_end_label; + unsigned prop_end_label; dim_decl_t *dim_decls; dynamic_var_t *global_vars; @@ -585,6 +586,16 @@ static HRESULT compile_exitfunc_statement(compile_ctx_t *ctx) return push_instr_addr(ctx, OP_jmp, ctx->func_end_label); } +static HRESULT compile_exitprop_statement(compile_ctx_t *ctx) +{ + if(ctx->prop_end_label == -1) { + FIXME("Exit Property outside Property?\n"); + return E_FAIL; + } + + return push_instr_addr(ctx, OP_jmp, ctx->prop_end_label); +} + static HRESULT compile_statement(compile_ctx_t *ctx, statement_t *stat) { HRESULT hres; @@ -603,6 +614,9 @@ static HRESULT compile_statement(compile_ctx_t *ctx, statement_t *stat) case STAT_EXITFUNC: hres = compile_exitfunc_statement(ctx); break; + case STAT_EXITPROP: + hres = compile_exitprop_statement(ctx); + break; case STAT_EXITSUB: hres = compile_exitsub_statement(ctx); break; @@ -654,6 +668,7 @@ static HRESULT compile_func(compile_ctx_t *ctx, statement_t *stat, function_t *f ctx->sub_end_label = -1; ctx->func_end_label = -1; + ctx->prop_end_label = -1; switch(func->type) { case FUNC_FUNCTION: @@ -669,7 +684,10 @@ static HRESULT compile_func(compile_ctx_t *ctx, statement_t *stat, function_t *f case FUNC_PROPGET: case FUNC_PROPLET: case FUNC_PROPSET: - /* FIXME */ + ctx->prop_end_label = alloc_label(ctx); + if(ctx->prop_end_label == -1) + return E_OUTOFMEMORY; + break; case FUNC_GLOBAL: break; } @@ -685,6 +703,8 @@ static HRESULT compile_func(compile_ctx_t *ctx, statement_t *stat, function_t *f label_set_addr(ctx, ctx->sub_end_label); if(ctx->func_end_label != -1) label_set_addr(ctx, ctx->func_end_label); + if(ctx->prop_end_label != -1) + label_set_addr(ctx, ctx->prop_end_label); if(push_instr(ctx, OP_ret) == -1) return E_OUTOFMEMORY; diff --git a/dlls/vbscript/parse.h b/dlls/vbscript/parse.h index 6227e0c..245badc 100644 --- a/dlls/vbscript/parse.h +++ b/dlls/vbscript/parse.h @@ -94,6 +94,7 @@ typedef enum { STAT_CALL, STAT_DIM, STAT_EXITFUNC, + STAT_EXITPROP, STAT_EXITSUB, STAT_FUNC, STAT_IF, diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y index f67abd5..c345432 100644 --- a/dlls/vbscript/parser.y +++ b/dlls/vbscript/parser.y @@ -155,6 +155,7 @@ Statement | IfStatement { $$ = $1; } | FunctionDecl { $$ = new_function_statement(ctx, $1); CHECK_ERROR; } | tEXIT tFUNCTION { $$ = new_statement(ctx, STAT_EXITFUNC, 0); CHECK_ERROR; } + | tEXIT tPROPERTY { $$ = new_statement(ctx, STAT_EXITPROP, 0); CHECK_ERROR; } | tEXIT tSUB { $$ = new_statement(ctx, STAT_EXITSUB, 0); CHECK_ERROR; } | tSET MemberExpression Arguments_opt '=' Expression { $2->args = $3; $$ = new_set_statement(ctx, $2, $5); CHECK_ERROR; } diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 2a1bbb0..02d4438 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -402,6 +402,8 @@ Class TestClass Public Property Get gsProp() gsProp = privateProp funcCalled = "gsProp get" + exit property + Call ok(false, "exit property not returned?") End Property Public publicProp2 @@ -412,10 +414,14 @@ Class TestClass Public Property Let gsProp(val) privateProp = val funcCalled = "gsProp let" + exit property + Call ok(false, "exit property not returned?") End Property Public Property Set gsProp(val) funcCalled = "gsProp set" + exit property + Call ok(false, "exit property not returned?") End Property Public Sub setPrivateProp(x)

1 0

Jacek Caban : vbscript: Added class property parser implementation.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 117fd7c0e1c0bf52d78f8c7a5409176297480b90 URL: http://source.winehq.org/git/wine.git/?a=commit;h=117fd7c0e1c0bf52d78f8c7a5… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:27:11 2011 +0200 vbscript: Added class property parser implementation. --- dlls/vbscript/parse.h | 9 ++++++++- dlls/vbscript/parser.y | 24 ++++++++++++++++++++++++ dlls/vbscript/tests/lang.vbs | 4 ++++ 3 files changed, 36 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/parse.h b/dlls/vbscript/parse.h index 918a6db..63b2ded 100644 --- a/dlls/vbscript/parse.h +++ b/dlls/vbscript/parse.h @@ -142,14 +142,21 @@ typedef struct _function_decl_t { struct _function_decl_t *next; } function_decl_t; -typedef struct _function_statement_t { +typedef struct { statement_t stat; function_decl_t *func_decl; } function_statement_t; +typedef struct _class_prop_decl_t { + BOOL is_public; + const WCHAR *name; + struct _class_prop_decl_t *next; +} class_prop_decl_t; + typedef struct _class_decl_t { const WCHAR *name; function_decl_t *funcs; + class_prop_decl_t *props; struct _class_decl_t *next; } class_decl_t; diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y index 63423d1..5224c71 100644 --- a/dlls/vbscript/parser.y +++ b/dlls/vbscript/parser.y @@ -62,6 +62,7 @@ static arg_decl_t *new_argument_decl(parser_ctx_t*,const WCHAR*,BOOL); static class_decl_t *new_class_decl(parser_ctx_t*); static class_decl_t *add_class_function(parser_ctx_t*,class_decl_t*,function_decl_t*); +static class_decl_t *add_variant_prop(parser_ctx_t*,class_decl_t*,const WCHAR*,unsigned); #define STORAGE_IS_PRIVATE 1 #define STORAGE_IS_DEFAULT 2 @@ -293,6 +294,7 @@ ClassDeclaration ClassBody : /* empty */ { $$ = new_class_decl(ctx); } | FunctionDecl tNL ClassBody { $$ = add_class_function(ctx, $3, $1); CHECK_ERROR; } + | Storage tIdentifier tNL ClassBody { $$ = add_variant_prop(ctx, $4, $2, $1); CHECK_ERROR; } FunctionDecl : Storage_opt tSUB tIdentifier ArgumentsDecl_opt tNL StatementsNl_opt tEND tSUB @@ -628,6 +630,7 @@ static class_decl_t *new_class_decl(parser_ctx_t *ctx) return NULL; class_decl->funcs = NULL; + class_decl->props = NULL; class_decl->next = NULL; return class_decl; } @@ -651,6 +654,27 @@ static class_decl_t *add_class_function(parser_ctx_t *ctx, class_decl_t *class_d return class_decl; } +static class_decl_t *add_variant_prop(parser_ctx_t *ctx, class_decl_t *class_decl, const WCHAR *identifier, unsigned storage_flags) +{ + class_prop_decl_t *prop; + + if(storage_flags & STORAGE_IS_DEFAULT) { + FIXME("variant prop van't be default value\n"); + ctx->hres = E_FAIL; + return NULL; + } + + prop = parser_alloc(ctx, sizeof(*prop)); + if(!prop) + return NULL; + + prop->name = identifier; + prop->is_public = !(storage_flags & STORAGE_IS_PRIVATE); + prop->next = class_decl->props; + class_decl->props = prop; + return class_decl; +} + void *parser_alloc(parser_ctx_t *ctx, size_t size) { void *ret; diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 867779d..e23cd86 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -390,6 +390,10 @@ Class EmptyClass End Class Class TestClass + Public publicProp + + Private privateProp + Public Function publicFunction() privateSub() publicFunction = 4

1 0

Jacek Caban : vbscript: Added class properties compiler implementation.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: ae57aa14b39b70296955e66c21be0c2e7096519f URL: http://source.winehq.org/git/wine.git/?a=commit;h=ae57aa14b39b70296955e66c2… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:27:22 2011 +0200 vbscript: Added class properties compiler implementation. --- dlls/vbscript/compile.c | 34 ++++++++++++++++++++++++++++++++++ dlls/vbscript/vbscript.h | 7 +++++++ 2 files changed, 41 insertions(+), 0 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 10b2a9d..14d2598 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -821,9 +821,22 @@ static HRESULT create_class_funcprop(compile_ctx_t *ctx, function_decl_t *func_d return create_function(ctx, func_decl, desc->entries); } +static BOOL lookup_class_funcs(class_desc_t *class_desc, const WCHAR *name) +{ + unsigned i; + + for(i=0; i < class_desc->func_cnt; i++) { + if(class_desc->funcs[i].name && !strcmpiW(class_desc->funcs[i].name, name)) + return TRUE; + } + + return FALSE; +} + static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) { function_decl_t *func_decl; + class_prop_decl_t *prop_decl; class_desc_t *class_desc; unsigned i; HRESULT hres; @@ -843,6 +856,7 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) return E_OUTOFMEMORY; class_desc->func_cnt = 1; /* always allocate slot for default getter */ + class_desc->prop_cnt = 0; for(func_decl = class_decl->funcs; func_decl; func_decl = func_decl->next) class_desc->func_cnt++; @@ -858,6 +872,26 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) return hres; } + for(prop_decl = class_decl->props; prop_decl; prop_decl = prop_decl->next) + class_desc->prop_cnt++; + + class_desc->props = compiler_alloc(ctx->code, class_desc->prop_cnt*sizeof(*class_desc->props)); + if(!class_desc->props) + return E_OUTOFMEMORY; + + for(prop_decl = class_decl->props, i=0; prop_decl; prop_decl = prop_decl->next, i++) { + if(lookup_class_funcs(class_desc, prop_decl->name)) { + FIXME("Property %s redefined\n", debugstr_w(prop_decl->name)); + return E_FAIL; + } + + class_desc->props[i].name = compiler_alloc_string(ctx->code, prop_decl->name); + if(!class_desc->props[i].name) + return E_OUTOFMEMORY; + + class_desc->props[i].is_public = prop_decl->is_public; + } + class_desc->next = ctx->classes; ctx->classes = class_desc; return S_OK; diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index 26892db..d886a4e 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -63,6 +63,11 @@ typedef enum { } vbdisp_invoke_type_t; typedef struct { + BOOL is_public; + const WCHAR *name; +} vbdisp_prop_desc_t; + +typedef struct { const WCHAR *name; BOOL is_public; function_t *entries[VBDISP_ANY]; @@ -73,6 +78,8 @@ typedef struct _class_desc_t { script_ctx_t *ctx; unsigned func_cnt; vbdisp_funcprop_desc_t *funcs; + unsigned prop_cnt; + vbdisp_prop_desc_t *props; struct _class_desc_t *next; } class_desc_t;

1 0

Jacek Caban : vbscript: Added support for default getters.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: a8de7904f5236a24286a6ac061888180f0c6e441 URL: http://source.winehq.org/git/wine.git/?a=commit;h=a8de7904f5236a24286a6ac06… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:28:52 2011 +0200 vbscript: Added support for default getters. --- dlls/vbscript/compile.c | 23 +++++++++++++++++++---- dlls/vbscript/interp.c | 5 +++-- dlls/vbscript/parser.y | 3 +-- dlls/vbscript/tests/lang.vbs | 8 ++++++++ dlls/vbscript/vbscript.h | 3 ++- 5 files changed, 33 insertions(+), 9 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 1fc6612..bcf7b52 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -684,6 +684,7 @@ static HRESULT compile_func(compile_ctx_t *ctx, statement_t *stat, function_t *f case FUNC_PROPGET: case FUNC_PROPLET: case FUNC_PROPSET: + case FUNC_DEFGET: ctx->prop_end_label = alloc_label(ctx); if(ctx->prop_end_label == -1) return E_OUTOFMEMORY; @@ -846,6 +847,7 @@ static HRESULT create_class_funcprop(compile_ctx_t *ctx, function_decl_t *func_d case FUNC_FUNCTION: case FUNC_SUB: case FUNC_PROPGET: + case FUNC_DEFGET: invoke_type = VBDISP_CALLGET; break; case FUNC_PROPLET: @@ -885,7 +887,7 @@ static BOOL lookup_class_funcs(class_desc_t *class_desc, const WCHAR *name) static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) { - function_decl_t *func_decl; + function_decl_t *func_decl, *func_prop_decl; class_prop_decl_t *prop_decl; class_desc_t *class_desc; unsigned i; @@ -908,8 +910,14 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) class_desc->func_cnt = 1; /* always allocate slot for default getter */ class_desc->prop_cnt = 0; - for(func_decl = class_decl->funcs; func_decl; func_decl = func_decl->next) - class_desc->func_cnt++; + for(func_decl = class_decl->funcs; func_decl; func_decl = func_decl->next) { + for(func_prop_decl = func_decl; func_prop_decl; func_prop_decl = func_prop_decl->next_prop_func) { + if(func_prop_decl->type == FUNC_DEFGET) + break; + } + if(!func_prop_decl) + class_desc->func_cnt++; + } class_desc->funcs = compiler_alloc(ctx->code, class_desc->func_cnt*sizeof(*class_desc->funcs)); if(!class_desc->funcs) @@ -917,7 +925,14 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) memset(class_desc->funcs, 0, class_desc->func_cnt*sizeof(*class_desc->funcs)); for(func_decl = class_decl->funcs, i=1; func_decl; func_decl = func_decl->next, i++) { - hres = create_class_funcprop(ctx, func_decl, class_desc->funcs + i); + for(func_prop_decl = func_decl; func_prop_decl; func_prop_decl = func_prop_decl->next_prop_func) { + if(func_prop_decl->type == FUNC_DEFGET) { + i--; + break; + } + } + + hres = create_class_funcprop(ctx, func_decl, class_desc->funcs + (func_prop_decl ? 0 : i)); if(FAILED(hres)) return hres; } diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index 899d989..4599cbf 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -92,7 +92,8 @@ static HRESULT lookup_identifier(exec_ctx_t *ctx, BSTR name, vbdisp_invoke_type_ DISPID id; HRESULT hres; - if(invoke_type == VBDISP_LET && (ctx->func->type == FUNC_FUNCTION || ctx->func->type == FUNC_PROPGET) + if(invoke_type == VBDISP_LET + && (ctx->func->type == FUNC_FUNCTION || ctx->func->type == FUNC_PROPGET || ctx->func->type == FUNC_DEFGET) && !strcmpiW(name, ctx->func->name)) { ref->type = REF_VAR; ref->u.v = &ctx->ret_val; @@ -1237,7 +1238,7 @@ HRESULT exec_script(script_ctx_t *ctx, function_t *func, IDispatch *this_obj, DI } assert(!exec.top); - if(func->type != FUNC_FUNCTION && func->type != FUNC_PROPGET) + if(func->type != FUNC_FUNCTION && func->type != FUNC_PROPGET && func->type != FUNC_DEFGET) assert(V_VT(&exec.ret_val) == VT_EMPTY); if(SUCCEEDED(hres) && res) { diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y index c345432..adf1aba 100644 --- a/dlls/vbscript/parser.y +++ b/dlls/vbscript/parser.y @@ -602,8 +602,7 @@ static function_decl_t *new_function_decl(parser_ctx_t *ctx, const WCHAR *name, if(storage_flags & STORAGE_IS_DEFAULT) { if(type == FUNC_PROPGET) { - FIXME("default value not implemented\n"); - ctx->hres = E_NOTIMPL; + type = FUNC_DEFGET; }else { FIXME("Invalid default property\n"); ctx->hres = E_FAIL; diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 20f1f42..24bfecc 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -406,6 +406,14 @@ Class TestClass Call ok(false, "exit property not returned?") End Property + Public Default Property Get DefValGet + DefValGet = privateProp + funcCalled = "GetDefVal" + End Property + + Public Property Let DefValGet(x) + End Property + Public publicProp2 Public Sub publicSub diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index 37fc7dd..37931db 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -214,7 +214,8 @@ typedef enum { FUNC_SUB, FUNC_PROPGET, FUNC_PROPLET, - FUNC_PROPSET + FUNC_PROPSET, + FUNC_DEFGET } function_type_t; typedef struct {

1 0

Jacek Caban : vbscript: Added more IDispatchEx tests.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 888ce005316642e3253e724d3c676200322f3ca9 URL: http://source.winehq.org/git/wine.git/?a=commit;h=888ce005316642e3253e724d3… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:29:09 2011 +0200 vbscript: Added more IDispatchEx tests. --- dlls/vbscript/tests/lang.vbs | 5 +++ dlls/vbscript/tests/run.c | 59 ++++++++++++++++++++++++++++++++++++++++- 2 files changed, 62 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index cb0c7eb..08f4736 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -442,6 +442,11 @@ Class TestClass Private Sub privateSub End Sub + + Public Sub Class_Initialize + publicProp2 = 2 + privateProp = true + End Sub End Class Call testDisp(new testClass) diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c index f524b81..3fee711 100644 --- a/dlls/vbscript/tests/run.c +++ b/dlls/vbscript/tests/run.c @@ -160,7 +160,7 @@ static BOOL is_lang_english(void) static void test_disp(IDispatch *disp) { - DISPID id, public_prop_id, public_prop2_id, public_func_id, public_sub_id; + DISPID id, public_prop_id, public_prop2_id, public_func_id, public_sub_id, defvalget_id; DISPID named_args[5] = {DISPID_PROPERTYPUT}; VARIANT v, args[5]; DISPPARAMS dp = {args, named_args}; @@ -188,6 +188,23 @@ static void test_disp(IDispatch *disp) SysFreeString(str); ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres); + str = a2bstr("defValGet"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &defvalget_id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(defValGet) failed: %08x\n", hres); + ok(defvalget_id == DISPID_VALUE, "id = %d\n", defvalget_id); + + str = a2bstr("privateProp"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id); + SysFreeString(str); + ok(hres == DISP_E_UNKNOWNNAME, "GetDispID(privateProp) failed: %08x, expected DISP_E_UNKNOWNNAME\n", hres); + ok(id == -1, "id = %d\n", id); + + str = a2bstr("class_initialize"); + hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseInsensitive, &id); + SysFreeString(str); + ok(hres == S_OK, "GetDispID(publicProp2) failed: %08x\n", hres); + hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); @@ -202,7 +219,7 @@ static void test_disp(IDispatch *disp) dp.cArgs = dp.cNamedArgs = 0; hres = IDispatchEx_InvokeEx(dispex, public_prop_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); - ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); ok(V_VT(&v) == VT_BOOL, "V_VT(v) = %d\n", V_VT(&v)); ok(V_BOOL(&v), "V_BOOL(v) = %x\n", V_BOOL(&v)); @@ -237,6 +254,44 @@ static void test_disp(IDispatch *disp) ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v)); dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL); + ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v)); + ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v)); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL); + ok(hres == DISP_E_MEMBERNOTFOUND, "InvokeEx failed: %08x, expected DISP_E_MEMBERNOTFOUND\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_EMPTY, "V_VT(v) = %d\n", V_VT(&v)); + + V_VT(args) = VT_BOOL; + V_BOOL(args) = VARIANT_TRUE; + dp.cArgs = dp.cNamedArgs = 1; + hres = IDispatchEx_InvokeEx(dispex, public_sub_id, 0, DISPATCH_PROPERTYPUT, &dp, NULL, &ei, NULL); + ok(FAILED(hres), "InvokeEx succeeded: %08x\n", hres); + + dp.cArgs = dp.cNamedArgs = 0; + hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_PROPERTYGET|DISPATCH_METHOD, &dp, &v, &ei, NULL); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v)); + ok(V_I2(&v) == 4, "V_I2(v) = %d\n", V_I2(&v)); + + dp.cArgs = dp.cNamedArgs = 0; hres = IDispatchEx_InvokeEx(dispex, public_func_id, 0, DISPATCH_METHOD, &dp, &v, &ei, NULL); ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); ok(V_VT(&v) == VT_I2, "V_VT(v) = %d\n", V_VT(&v));

1 0