[PATCH v4 08/11] msscript.ocx: Implement get_script_dispatch on top of modules.
Gabriel Ivăncescu
gabrielopcode at gmail.com
Mon Jun 15 08:00:11 CDT 2020
Signed-off-by: Gabriel Ivăncescu <gabrielopcode at gmail.com>
---
dlls/msscript.ocx/msscript.c | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/dlls/msscript.ocx/msscript.c b/dlls/msscript.ocx/msscript.c
index 499a105..3b56599 100644
--- a/dlls/msscript.ocx/msscript.c
+++ b/dlls/msscript.ocx/msscript.c
@@ -72,6 +72,7 @@ typedef struct {
BSTR name;
ScriptHost *host;
+ IDispatch *script_dispatch;
} ScriptModule;
struct ScriptHost {
@@ -82,7 +83,6 @@ struct ScriptHost {
IActiveScript *script;
IActiveScriptParse *parse;
- IDispatch *script_dispatch;
SCRIPTSTATE script_state;
CLSID clsid;
@@ -225,14 +225,15 @@ static struct named_item *host_get_named_item(ScriptHost *host, const WCHAR *nam
return NULL;
}
-static HRESULT get_script_dispatch(struct ScriptControl *control, IDispatch **disp)
+static HRESULT get_script_dispatch(ScriptModule *module, IDispatch **disp)
{
- if (!control->host->script_dispatch)
+ if (!module->script_dispatch)
{
- HRESULT hr = IActiveScript_GetScriptDispatch(control->host->script, NULL, &control->host->script_dispatch);
+ HRESULT hr = IActiveScript_GetScriptDispatch(module->host->script,
+ module->name, &module->script_dispatch);
if (FAILED(hr)) return hr;
}
- *disp = control->host->script_dispatch;
+ *disp = module->script_dispatch;
return S_OK;
}
@@ -406,10 +407,7 @@ static void release_script_engine(ScriptHost *host)
if (host->parse)
IActiveScriptParse_Release(host->parse);
- if (host->script_dispatch)
- IDispatch_Release(host->script_dispatch);
- host->script_dispatch = NULL;
host->parse = NULL;
host->script = NULL;
}
@@ -654,6 +652,8 @@ static ULONG WINAPI ScriptModule_Release(IScriptModule *iface)
{
if (This->host)
IActiveScriptSite_Release(&This->host->IActiveScriptSite_iface);
+ if (This->script_dispatch)
+ IDispatch_Release(This->script_dispatch);
SysFreeString(This->name);
heap_free(This);
}
@@ -816,6 +816,7 @@ static ScriptModule *create_module(BSTR name)
module->ref = 1;
module->name = NULL;
module->host = NULL;
+ module->script_dispatch = NULL;
if (name && !(module->name = SysAllocString(name)))
{
heap_free(module);
@@ -1078,7 +1079,6 @@ static HRESULT init_script_host(const CLSID *clsid, ScriptHost **ret)
host->ref = 1;
host->script = NULL;
host->parse = NULL;
- host->script_dispatch = NULL;
host->clsid = *clsid;
list_init(&host->named_items);
@@ -1620,12 +1620,12 @@ static HRESULT WINAPI ScriptControl_Run(IScriptControl *iface, BSTR procedure_na
if (sa->cDims == 0) return DISP_E_BADINDEX;
if (!(sa->fFeatures & FADF_VARIANT)) return DISP_E_BADVARTYPE;
-
+ if (!This->modules) return E_FAIL;
if (!This->host) return E_FAIL;
hr = start_script(This->host);
if (FAILED(hr)) return hr;
- hr = get_script_dispatch(This, &disp);
+ hr = get_script_dispatch(This->modules[0], &disp);
if (FAILED(hr)) return hr;
hr = IDispatch_GetIDsOfNames(disp, &IID_NULL, &procedure_name, 1, LOCALE_USER_DEFAULT, &dispid);
--
2.21.0
More information about the wine-devel
mailing list