September 2011 - Wine-Commits

Alexandre Julliard : widl: Include string formats in the element description for complex arrays.
by Alexandre Julliard Sept. 19, 2011

Sept. 19, 2011

Module: wine Branch: master Commit: 05ff9dfeb1a72cd1bab4b01e86e2a938141e4777 URL: http://source.winehq.org/git/wine.git/?a=commit;h=05ff9dfeb1a72cd1bab4b01e8… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Fri Sep 16 21:08:54 2011 +0200 widl: Include string formats in the element description for complex arrays. --- tools/widl/typegen.c | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/tools/widl/typegen.c b/tools/widl/typegen.c index 5a22525..a3c12f2 100644 --- a/tools/widl/typegen.c +++ b/tools/widl/typegen.c @@ -2336,6 +2336,11 @@ static void write_array_element_type(FILE *file, const type_t *type, ref->typestring_offset, tfsoff); return; } + if (cont_is_complex && is_string_type(NULL, elem)) + { + write_string_tfs(file, NULL, elem, TYPE_CONTEXT_CONTAINER, NULL, tfsoff); + return; + } if (!is_string_type(NULL, elem) && (type_get_type(ref) == TYPE_BASIC || type_get_type(ref) == TYPE_ENUM)) {

1 0

Alexandre Julliard : vbscript: Fix a memory allocation size to avoid overflows.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 9fe25eae4a185aa6c6959b5b589222cfe491e59c URL: http://source.winehq.org/git/wine.git/?a=commit;h=9fe25eae4a185aa6c6959b5b5… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Fri Sep 16 19:36:52 2011 +0200 vbscript: Fix a memory allocation size to avoid overflows. --- dlls/vbscript/vbdisp.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index c1eba23..14fb8b0 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -398,7 +398,7 @@ HRESULT create_vbdisp(const class_desc_t *desc, vbdisp_t **ret) { vbdisp_t *vbdisp; - vbdisp = heap_alloc_zero(sizeof(*vbdisp) + (desc->prop_cnt-1)*sizeof(VARIANT)); + vbdisp = heap_alloc_zero( FIELD_OFFSET( vbdisp_t, props[desc->prop_cnt] )); if(!vbdisp) return E_OUTOFMEMORY;

1 0

Francois Gouget : ieframe/tests: Some tests require that the user interface be in English.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: ae80430feaef97e8bb0641384480c96a6dd191dd URL: http://source.winehq.org/git/wine.git/?a=commit;h=ae80430feaef97e8bb0641384… Author: Francois Gouget <fgouget(a)free.fr> Date: Fri Sep 16 15:33:22 2011 +0200 ieframe/tests: Some tests require that the user interface be in English. --- dlls/ieframe/tests/webbrowser.c | 26 +++++++++++++++++++++++++- 1 files changed, 25 insertions(+), 1 deletions(-) diff --git a/dlls/ieframe/tests/webbrowser.c b/dlls/ieframe/tests/webbrowser.c index d571034..6d41462 100644 --- a/dlls/ieframe/tests/webbrowser.c +++ b/dlls/ieframe/tests/webbrowser.c @@ -159,6 +159,30 @@ static const char *current_url; static DWORD dwl_flags; + +/* Returns true if the user interface is in English. Note that this does not + * presume of the formatting of dates, numbers, etc. + */ +static BOOL is_lang_english(void) +{ + static HMODULE hkernel32 = NULL; + static LANGID (WINAPI *pGetThreadUILanguage)(void) = NULL; + static LANGID (WINAPI *pGetUserDefaultUILanguage)(void) = NULL; + + if (!hkernel32) + { + hkernel32 = GetModuleHandleA("kernel32.dll"); + pGetThreadUILanguage = (void*)GetProcAddress(hkernel32, "GetThreadUILanguage"); + pGetUserDefaultUILanguage = (void*)GetProcAddress(hkernel32, "GetUserDefaultUILanguage"); + } + if (pGetThreadUILanguage) + return PRIMARYLANGID(pGetThreadUILanguage()) == LANG_ENGLISH; + if (pGetUserDefaultUILanguage) + return PRIMARYLANGID(pGetUserDefaultUILanguage()) == LANG_ENGLISH; + + return PRIMARYLANGID(GetUserDefaultLangID()) == LANG_ENGLISH; +} + static int strcmp_wa(LPCWSTR strw, const char *stra) { CHAR buf[512]; @@ -2080,7 +2104,7 @@ static void test_ie_funcs(IUnknown *unk) /* Name */ hres = IWebBrowser2_get_Name(wb, &sName); ok(hres == S_OK, "getName failed: %08x, expected S_OK\n", hres); - if (PRIMARYLANGID(LANGIDFROMLCID(GetThreadLocale())) == LANG_ENGLISH) + if (is_lang_english()) ok(!strcmp_wa(sName, "Microsoft Web Browser Control"), "got '%s', expected 'Microsoft Web Browser Control'\n", wine_dbgstr_w(sName)); else /* Non-English cannot be blank. */ ok(sName!=NULL, "get_Name return a NULL string.\n");

1 0

Rico Schüller : d3dx9: Use the original bytecode in D3DXGetShaderSamplers() instead of using a constant table.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 7cfdaedd3ee345bd2f1dcf8ac581fd82645decaa URL: http://source.winehq.org/git/wine.git/?a=commit;h=7cfdaedd3ee345bd2f1dcf8ac… Author: Rico Schüller <kgbricola(a)web.de> Date: Fri Sep 16 08:38:24 2011 +0200 d3dx9: Use the original bytecode in D3DXGetShaderSamplers() instead of using a constant table. --- dlls/d3dx9_36/shader.c | 57 ++++++++++++++++------------------------- dlls/d3dx9_36/tests/shader.c | 53 +++++++++++++++++++++++++++++++------- 2 files changed, 65 insertions(+), 45 deletions(-) diff --git a/dlls/d3dx9_36/shader.c b/dlls/d3dx9_36/shader.c index 50719b2..5a0f1db 100644 --- a/dlls/d3dx9_36/shader.c +++ b/dlls/d3dx9_36/shader.c @@ -1273,50 +1273,40 @@ HRESULT WINAPI D3DXGetShaderConstantTable(CONST DWORD* byte_code, HRESULT WINAPI D3DXGetShaderSamplers(CONST DWORD *byte_code, LPCSTR *samplers, UINT *count) { HRESULT hr; - LPD3DXCONSTANTTABLE constant_table = NULL; - D3DXCONSTANTTABLE_DESC constant_table_desc; UINT i, sampler_count = 0; + UINT size; + LPCSTR data; + const D3DXSHADER_CONSTANTTABLE *ctab_header; + const D3DXSHADER_CONSTANTINFO *constant_info; TRACE("byte_code %p, samplers %p, count %p\n", byte_code, samplers, count); if (count) *count = 0; - hr = D3DXGetShaderConstantTable(byte_code, &constant_table); - if (hr != D3D_OK) - { - WARN("Failed to get constant table\n"); + hr = D3DXFindShaderComment(byte_code, MAKEFOURCC('C','T','A','B'), (LPCVOID *)&data, &size); + if (hr != D3D_OK) return D3D_OK; - /* no samplers found, all is fine */ - return D3D_OK; - } + if (size < sizeof(D3DXSHADER_CONSTANTTABLE)) return D3D_OK; - hr = ID3DXConstantTable_GetDesc(constant_table, &constant_table_desc); - if (hr != D3D_OK) - { - WARN("Failed to get constant table desc\n"); - goto err_out; - } + ctab_header = (const D3DXSHADER_CONSTANTTABLE *)data; + if (ctab_header->Size != sizeof(*ctab_header)) return D3D_OK; - for (i = 0; i < constant_table_desc.Constants; ++i) + constant_info = (D3DXSHADER_CONSTANTINFO *)(data + ctab_header->ConstantInfo); + for (i = 0; i < ctab_header->Constants; i++) { - D3DXHANDLE handle = ID3DXConstantTable_GetConstant(constant_table, NULL, i); - D3DXCONSTANT_DESC constant_desc; - UINT size; + const D3DXSHADER_TYPEINFO *type; - hr = ID3DXConstantTable_GetConstantDesc(constant_table, handle, &constant_desc, &size); - if (hr != D3D_OK) - { - WARN("Failed to get constant desc\n"); - goto err_out; - } + TRACE("name = %s\n", data + constant_info[i].Name); + + type = (D3DXSHADER_TYPEINFO *)(data + constant_info[i].TypeInfo); - if (constant_desc.Type == D3DXPT_SAMPLER - || constant_desc.Type == D3DXPT_SAMPLER1D - || constant_desc.Type == D3DXPT_SAMPLER2D - || constant_desc.Type == D3DXPT_SAMPLER3D - || constant_desc.Type == D3DXPT_SAMPLERCUBE) + if (type->Type == D3DXPT_SAMPLER + || type->Type == D3DXPT_SAMPLER1D + || type->Type == D3DXPT_SAMPLER2D + || type->Type == D3DXPT_SAMPLER3D + || type->Type == D3DXPT_SAMPLERCUBE) { - if (samplers) samplers[sampler_count] = constant_desc.Name; + if (samplers) samplers[sampler_count] = data + constant_info[i].Name; ++sampler_count; } @@ -1324,10 +1314,7 @@ HRESULT WINAPI D3DXGetShaderSamplers(CONST DWORD *byte_code, LPCSTR *samplers, U TRACE("Found %u samplers\n", sampler_count); -err_out: - if (count) *count = sampler_count; - if (constant_table) ID3DXConstantTable_Release(constant_table); - return hr; + return D3D_OK; } diff --git a/dlls/d3dx9_36/tests/shader.c b/dlls/d3dx9_36/tests/shader.c index 0a1b8bf..9220e28 100644 --- a/dlls/d3dx9_36/tests/shader.c +++ b/dlls/d3dx9_36/tests/shader.c @@ -768,6 +768,7 @@ static const DWORD get_shader_samplers_blob[] = static void test_get_shader_samplers(void) { LPCSTR samplers[16] = {NULL}; /* maximum number of sampler registers v/ps 3.0 = 16 */ + LPCSTR sampler_orig; UINT count = 2; HRESULT hr; @@ -785,11 +786,22 @@ static void test_get_shader_samplers(void) hr = D3DXGetShaderSamplers(get_shader_samplers_blob, samplers, NULL); ok(hr == D3D_OK, "D3DXGetShaderSamplers failed, got %x, expected %x\n", hr, D3D_OK); - ok(!strcmp(samplers[0], "s"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[0], "s"); - ok(!strcmp(samplers[1], "s1D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[1], "s1D"); - ok(!strcmp(samplers[2], "s2D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[2], "s2D"); - ok(!strcmp(samplers[3], "s3D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[3], "s3D"); - ok(!strcmp(samplers[4], "scube"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[4], "scube"); + /* check that sampler points to shader blob */ + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x2E]; + ok(sampler_orig == samplers[0], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[0], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x33]; + ok(sampler_orig == samplers[1], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[1], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x38]; + ok(sampler_orig == samplers[2], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[2], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x3D]; + ok(sampler_orig == samplers[3], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[3], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x42]; + ok(sampler_orig == samplers[4], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[4], sampler_orig); + ok(!strcmp(samplers[5], "dummy"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[5], "dummy"); /* reset samplers */ @@ -804,12 +816,33 @@ static void test_get_shader_samplers(void) ok(hr == D3D_OK, "D3DXGetShaderSamplers failed, got %x, expected %x\n", hr, D3D_OK); ok(count == 5, "D3DXGetShaderSamplers failed, got %u, expected %u\n", count, 5); - ok(!strcmp(samplers[0], "s"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[0], "s"); - ok(!strcmp(samplers[1], "s1D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[1], "s1D"); - ok(!strcmp(samplers[2], "s2D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[2], "s2D"); - ok(!strcmp(samplers[3], "s3D"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[3], "s3D"); - ok(!strcmp(samplers[4], "scube"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[4], "scube"); + /* check that sampler points to shader blob */ + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x2E]; + ok(sampler_orig == samplers[0], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[0], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x33]; + ok(sampler_orig == samplers[1], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[1], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x38]; + ok(sampler_orig == samplers[2], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[2], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x3D]; + ok(sampler_orig == samplers[3], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[3], sampler_orig); + + sampler_orig = (LPCSTR)&get_shader_samplers_blob[0x42]; + ok(sampler_orig == samplers[4], "D3DXGetShaderSamplers failed, got %p, expected %p\n", samplers[4], sampler_orig); + ok(!strcmp(samplers[5], "dummy"), "D3DXGetShaderSamplers failed, got \"%s\", expected \"%s\"\n", samplers[5], "dummy"); + + /* check without ctab */ + hr = D3DXGetShaderSamplers(simple_vs, samplers, &count); + ok(hr == D3D_OK, "D3DXGetShaderSamplers failed, got %x, expected %x\n", hr, D3D_OK); + ok(count == 0, "D3DXGetShaderSamplers failed, got %u, expected %u\n", count, 0); + + /* check invalid ctab */ + hr = D3DXGetShaderSamplers(shader_with_invalid_ctab, samplers, &count); + ok(hr == D3D_OK, "D3DXGetShaderSamplers failed, got %x, expected %x\n", hr, D3D_OK); + ok(count == 0, "D3DXGetShaderSamplers failed, got %u, expected %u\n", count, 0); } START_TEST(shader)

1 0

Rico Schüller : d3dx9: Use the variable instead of the type in HeapAlloc().
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: a7df4958ab0f5b2e039452ed5bc992915a536658 URL: http://source.winehq.org/git/wine.git/?a=commit;h=a7df4958ab0f5b2e039452ed5… Author: Rico Schüller <kgbricola(a)web.de> Date: Fri Sep 16 08:38:47 2011 +0200 d3dx9: Use the variable instead of the type in HeapAlloc(). --- dlls/d3dx9_36/shader.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/dlls/d3dx9_36/shader.c b/dlls/d3dx9_36/shader.c index 5a0f1db..bc5e002 100644 --- a/dlls/d3dx9_36/shader.c +++ b/dlls/d3dx9_36/shader.c @@ -1175,7 +1175,7 @@ HRESULT WINAPI D3DXGetShaderConstantTableEx(CONST DWORD* byte_code, if (hr != D3D_OK) return D3DXERR_INVALIDDATA; - object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(ID3DXConstantTableImpl)); + object = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*object)); if (!object) { ERR("Out of memory\n");

1 0

Francois Gouget : ieframe/tests: Don' t crash if IWebBrowser2_get_LocationURL() fails.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 19e2c1578e5a53b01141d3d9182dd8593bc9eb11 URL: http://source.winehq.org/git/wine.git/?a=commit;h=19e2c1578e5a53b01141d3d91… Author: Francois Gouget <fgouget(a)free.fr> Date: Fri Sep 16 15:26:22 2011 +0200 ieframe/tests: Don't crash if IWebBrowser2_get_LocationURL() fails. --- dlls/ieframe/tests/webbrowser.c | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/dlls/ieframe/tests/webbrowser.c b/dlls/ieframe/tests/webbrowser.c index e628947..d571034 100644 --- a/dlls/ieframe/tests/webbrowser.c +++ b/dlls/ieframe/tests/webbrowser.c @@ -230,9 +230,12 @@ static void _test_LocationURL(unsigned line, IUnknown *unk, const char *exurl) hres = IWebBrowser2_get_LocationURL(wb, &url); ok_(__FILE__,line) (hres == (*exurl ? S_OK : S_FALSE), "get_LocationURL failed: %08x\n", hres); - ok_(__FILE__,line) (!strcmp_wa(url, exurl), "unexpected URL: %s\n", wine_dbgstr_w(url)); + if (hres == S_OK) + { + ok_(__FILE__,line) (!strcmp_wa(url, exurl), "unexpected URL: %s\n", wine_dbgstr_w(url)); + SysFreeString(url); + } - SysFreeString(url); IWebBrowser2_Release(wb); }

1 0

Frédéric Delanoy : cmd: verify_mode has BOOL type instead of int.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: c4db72f50e16ff51a05a55bf9a91b9517d10c29f URL: http://source.winehq.org/git/wine.git/?a=commit;h=c4db72f50e16ff51a05a55bf9… Author: Frédéric Delanoy <frederic.delanoy(a)gmail.com> Date: Fri Sep 16 08:44:07 2011 +0200 cmd: verify_mode has BOOL type instead of int. --- programs/cmd/builtins.c | 8 +++++--- programs/cmd/wcmdmain.c | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/programs/cmd/builtins.c b/programs/cmd/builtins.c index 9c16e8f..99a2314 100644 --- a/programs/cmd/builtins.c +++ b/programs/cmd/builtins.c @@ -50,12 +50,14 @@ struct env_stack *pushd_directories; extern HINSTANCE hinst; extern WCHAR inbuilt[][10]; -extern int verify_mode, defaultColor; +extern int defaultColor; extern BOOL echo_mode; extern WCHAR quals[MAX_PATH], param1[MAX_PATH], param2[MAX_PATH]; extern BATCH_CONTEXT *context; extern DWORD errorlevel; +static BOOL verify_mode = FALSE; + static const WCHAR dotW[] = {'.','\0'}; static const WCHAR dotdotW[] = {'.','.','\0'}; static const WCHAR slashW[] = {'\\','\0'}; @@ -2617,11 +2619,11 @@ void WCMD_verify (const WCHAR *command) { return; } if (lstrcmpiW(command, onW) == 0) { - verify_mode = 1; + verify_mode = TRUE; return; } else if (lstrcmpiW(command, offW) == 0) { - verify_mode = 0; + verify_mode = FALSE; return; } else WCMD_output (WCMD_LoadMessage(WCMD_VERIFYERR)); diff --git a/programs/cmd/wcmdmain.c b/programs/cmd/wcmdmain.c index beca20e..92b76fc 100644 --- a/programs/cmd/wcmdmain.c +++ b/programs/cmd/wcmdmain.c @@ -86,7 +86,7 @@ const WCHAR externals[NUM_EXTERNALS][10] = { HINSTANCE hinst; DWORD errorlevel; -int verify_mode = 0, defaultColor = 7; +int defaultColor = 7; BOOL echo_mode = TRUE; static int opt_c, opt_k, opt_s; const WCHAR newline[] = {'\r','\n','\0'};

1 0

Jacek Caban : vbscript: Added VBScript_Global typelib.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 19a85797abdaddf38768b453954c1c02c9652df7 URL: http://source.winehq.org/git/wine.git/?a=commit;h=19a85797abdaddf38768b4539… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 16:56:24 2011 +0200 vbscript: Added VBScript_Global typelib. --- dlls/vbscript/Makefile.in | 1 + dlls/vbscript/vbscript_defs.h | 220 ++++++++++++ dlls/vbscript/vbsglobal.idl | 755 +++++++++++++++++++++++++++++++++++++++++ 3 files changed, 976 insertions(+), 0 deletions(-) Diff: http://source.winehq.org/git/wine.git/?a=commitdiff;h=19a85797abdaddf38768b…

1 0

Jacek Caban : vbscript: Added class_terminate support.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 8b6b334c89e8414c5b8bb2d08b4a6123a4b0482f URL: http://source.winehq.org/git/wine.git/?a=commit;h=8b6b334c89e8414c5b8bb2d08… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:29:37 2011 +0200 vbscript: Added class_terminate support. --- dlls/vbscript/compile.c | 9 +++++++++ dlls/vbscript/tests/lang.vbs | 19 +++++++++++++++++++ dlls/vbscript/vbdisp.c | 23 ++++++++++++++++++++++- dlls/vbscript/vbscript.h | 2 ++ 4 files changed, 52 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 00dfc50..6bacaa0 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -894,6 +894,7 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) HRESULT hres; static const WCHAR class_initializeW[] = {'c','l','a','s','s','_','i','n','i','t','i','a','l','i','z','e',0}; + static const WCHAR class_terminateW[] = {'c','l','a','s','s','_','t','e','r','m','i','n','a','t','e',0}; if(lookup_dim_decls(ctx, class_decl->name) || lookup_funcs_name(ctx, class_decl->name) || lookup_class_name(ctx, class_decl->name)) { @@ -912,6 +913,7 @@ 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; class_desc->class_initialize_id = 0; + class_desc->class_terminate_id = 0; 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) { @@ -942,6 +944,13 @@ static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl) } class_desc->class_initialize_id = i; + }else if(!strcmpiW(class_terminateW, func_decl->name)) { + if(func_decl->type != FUNC_SUB) { + FIXME("class terminator is not sub\n"); + return E_FAIL; + } + + class_desc->class_terminate_id = i; } hres = create_class_funcprop(ctx, func_decl, class_desc->funcs + (func_prop_decl ? 0 : i)); diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 46317b9..961eea2 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -491,4 +491,23 @@ Call ok(obj.getPrivateProp() = true, "obj.getPrivateProp() = " & obj.getPrivateP x = (New testclass).publicProp +Class TermTest + Public Sub Class_Terminate() + funcCalled = "terminate" + End Sub +End Class + +Set obj = New TermTest +funcCalled = "" +Set obj = Nothing +Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled) + +Set obj = New TermTest +funcCalled = "" +Call obj.Class_Terminate +Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled) +funcCalled = "" +Set obj = Nothing +Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled) + reportSuccess() diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index e1386be..c948f13 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -123,6 +123,23 @@ static HRESULT invoke_variant_prop(vbdisp_t *This, VARIANT *v, WORD flags, DISPP return hres; } +static void run_terminator(vbdisp_t *This) +{ + if(This->terminator_ran) + return; + This->terminator_ran = TRUE; + + if(This->desc->class_terminate_id) { + DISPPARAMS dp = {0}; + + This->ref++; + exec_script(This->desc->ctx, This->desc->funcs[This->desc->class_terminate_id].entries[VBDISP_CALLGET], + (IDispatch*)&This->IDispatchEx_iface, &dp, NULL); + This->ref--; + } + +} + static void clean_props(vbdisp_t *This) { unsigned i; @@ -172,8 +189,12 @@ static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface) static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface) { vbdisp_t *This = impl_from_IDispatchEx(iface); - LONG ref = InterlockedIncrement(&This->ref); + LONG ref = InterlockedDecrement(&This->ref); + + TRACE("(%p) ref=%d\n", This, ref); + if(!ref) + run_terminator(This); if(!ref) { clean_props(This); heap_free(This); diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index 270e223..5dd434a 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -77,6 +77,7 @@ typedef struct _class_desc_t { const WCHAR *name; script_ctx_t *ctx; unsigned class_initialize_id; + unsigned class_terminate_id; unsigned func_cnt; vbdisp_funcprop_desc_t *funcs; unsigned prop_cnt; @@ -88,6 +89,7 @@ typedef struct { IDispatchEx IDispatchEx_iface; LONG ref; + BOOL terminator_ran; const class_desc_t *desc; VARIANT props[1];

1 0

Jacek Caban : vbscript: Added while..wend statement implementation.
by Alexandre Julliard Sept. 16, 2011

Sept. 16, 2011

Module: wine Branch: master Commit: 3d34925802b62238ae9360ac1e210955cf63de91 URL: http://source.winehq.org/git/wine.git/?a=commit;h=3d34925802b62238ae9360ac1… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Fri Sep 16 13:29:59 2011 +0200 vbscript: Added while..wend statement implementation. --- dlls/vbscript/compile.c | 31 +++++++++++++++++++++++++++++++ dlls/vbscript/parse.h | 9 ++++++++- dlls/vbscript/parser.y | 16 ++++++++++++++++ dlls/vbscript/tests/lang.vbs | 13 +++++++++++++ 4 files changed, 68 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 6bacaa0..814d9ea 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -483,6 +483,34 @@ static HRESULT compile_if_statement(compile_ctx_t *ctx, if_statement_t *stat) return S_OK; } +static HRESULT compile_while_statement(compile_ctx_t *ctx, while_statement_t *stat) +{ + unsigned start_addr; + unsigned jmp_end; + HRESULT hres; + + start_addr = ctx->instr_cnt; + + hres = compile_expression(ctx, stat->expr); + if(FAILED(hres)) + return hres; + + jmp_end = push_instr(ctx, OP_jmp_false); + if(jmp_end == -1) + return E_OUTOFMEMORY; + + hres = compile_statement(ctx, stat->body); + if(FAILED(hres)) + return hres; + + hres = push_instr_addr(ctx, OP_jmp, start_addr); + if(FAILED(hres)) + return hres; + + instr_ptr(ctx, jmp_end)->arg1.uint = ctx->instr_cnt; + return S_OK; +} + static HRESULT compile_assign_statement(compile_ctx_t *ctx, assign_statement_t *stat, BOOL is_set) { HRESULT hres; @@ -632,6 +660,9 @@ static HRESULT compile_statement(compile_ctx_t *ctx, statement_t *stat) case STAT_STOP: hres = push_instr(ctx, OP_stop) == -1 ? E_OUTOFMEMORY : S_OK; break; + case STAT_WHILE: + hres = compile_while_statement(ctx, (while_statement_t*)stat); + break; default: FIXME("Unimplemented statement type %d\n", stat->type); hres = E_NOTIMPL; diff --git a/dlls/vbscript/parse.h b/dlls/vbscript/parse.h index 245badc..efd3d67 100644 --- a/dlls/vbscript/parse.h +++ b/dlls/vbscript/parse.h @@ -99,7 +99,8 @@ typedef enum { STAT_FUNC, STAT_IF, STAT_SET, - STAT_STOP + STAT_STOP, + STAT_WHILE } statement_type_t; typedef struct _statement_t { @@ -177,6 +178,12 @@ typedef struct { } if_statement_t; typedef struct { + statement_t stat; + expression_t *expr; + statement_t *body; +} while_statement_t; + +typedef struct { const WCHAR *code; const WCHAR *ptr; const WCHAR *end; diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y index adf1aba..d06c84f 100644 --- a/dlls/vbscript/parser.y +++ b/dlls/vbscript/parser.y @@ -52,6 +52,7 @@ static statement_t *new_call_statement(parser_ctx_t*,member_expression_t*); static statement_t *new_assign_statement(parser_ctx_t*,member_expression_t*,expression_t*); static statement_t *new_set_statement(parser_ctx_t*,member_expression_t*,expression_t*); static statement_t *new_dim_statement(parser_ctx_t*,dim_decl_t*); +static statement_t *new_while_statement(parser_ctx_t*,statement_type_t,expression_t*,statement_t*); static statement_t *new_if_statement(parser_ctx_t*,expression_t*,statement_t*,elseif_decl_t*,statement_t*); static statement_t *new_function_statement(parser_ctx_t*,function_decl_t*); @@ -153,6 +154,8 @@ Statement { $1->args = $2; $$ = new_assign_statement(ctx, $1, $4); CHECK_ERROR; } | tDIM DimDeclList { $$ = new_dim_statement(ctx, $2); CHECK_ERROR; } | IfStatement { $$ = $1; } + | tWHILE Expression tNL StatementsNl_opt tWEND + { $$ = new_while_statement(ctx, STAT_WHILE, $2, $4); CHECK_ERROR; } | 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; } @@ -565,6 +568,19 @@ static elseif_decl_t *new_elseif_decl(parser_ctx_t *ctx, expression_t *expr, sta return decl; } +static statement_t *new_while_statement(parser_ctx_t *ctx, statement_type_t type, expression_t *expr, statement_t *body) +{ + while_statement_t *stat; + + stat = new_statement(ctx, type, sizeof(*stat)); + if(!stat) + return NULL; + + stat->expr = expr; + stat->body = body; + return &stat->stat; +} + static statement_t *new_if_statement(parser_ctx_t *ctx, expression_t *expr, statement_t *if_stat, elseif_decl_t *elseif_decl, statement_t *else_stat) { diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 961eea2..d3886d6 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -199,6 +199,19 @@ ElseIf not False Then End If Call ok(x, "elseif not called?") +x = false +y = false +while not (x and y) + if x then + y = true + end if + x = true +wend +call ok((x and y), "x or y is false after while") + +while false +wend + if false then Sub testsub x = true

1 0