Jacek Caban : msscript: Parse script host object instead of control to parse_script_text.
Alexandre Julliard
julliard at winehq.org
Fri Jun 12 16:01:18 CDT 2020
Module: wine
Branch: master
Commit: b531e51cd706ff356976a58a97e23e63d6487827
URL: https://source.winehq.org/git/wine.git/?a=commit;h=b531e51cd706ff356976a58a97e23e63d6487827
Author: Jacek Caban <jacek at codeweavers.com>
Date: Fri Jun 12 17:11:51 2020 +0200
msscript: Parse script host object instead of control to parse_script_text.
Signed-off-by: Jacek Caban <jacek at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
---
dlls/msscript.ocx/msscript.c | 33 ++++++++++++++++++++-------------
1 file changed, 20 insertions(+), 13 deletions(-)
diff --git a/dlls/msscript.ocx/msscript.c b/dlls/msscript.ocx/msscript.c
index 35554ff123..e397044fd7 100644
--- a/dlls/msscript.ocx/msscript.c
+++ b/dlls/msscript.ocx/msscript.c
@@ -237,15 +237,12 @@ static HRESULT set_script_state(ScriptHost *host, SCRIPTSTATE state)
return hr;
}
-static HRESULT start_script(struct ScriptControl *control)
+static HRESULT start_script(ScriptHost *host)
{
HRESULT hr = S_OK;
- if (!control->host)
- return E_FAIL;
-
- if (control->host->script_state != SCRIPTSTATE_STARTED)
- hr = set_script_state(control->host, SCRIPTSTATE_STARTED);
+ if (host->script_state != SCRIPTSTATE_STARTED)
+ hr = set_script_state(host, SCRIPTSTATE_STARTED);
return hr;
}
@@ -1421,15 +1418,15 @@ static HRESULT WINAPI ScriptControl_Reset(IScriptControl *iface)
return set_script_state(This->host, SCRIPTSTATE_INITIALIZED);
}
-static HRESULT parse_script_text(ScriptControl *control, BSTR script_text, DWORD flag, VARIANT *res)
+static HRESULT parse_script_text(ScriptHost *host, BSTR script_text, DWORD flag, VARIANT *res)
{
EXCEPINFO excepinfo;
HRESULT hr;
- hr = start_script(control);
+ hr = start_script(host);
if (FAILED(hr)) return hr;
- hr = IActiveScriptParse_ParseScriptText(control->host->parse, script_text, NULL,
+ hr = IActiveScriptParse_ParseScriptText(host->parse, script_text, NULL,
NULL, NULL, 0, 1, flag, res, &excepinfo);
/* FIXME: more error handling */
return hr;
@@ -1441,7 +1438,10 @@ static HRESULT WINAPI ScriptControl_AddCode(IScriptControl *iface, BSTR code)
TRACE("(%p)->(%s).\n", This, debugstr_w(code));
- return parse_script_text(This, code, SCRIPTTEXT_ISVISIBLE, NULL);
+ if (!This->host)
+ return E_FAIL;
+
+ return parse_script_text(This->host, code, SCRIPTTEXT_ISVISIBLE, NULL);
}
static HRESULT WINAPI ScriptControl_Eval(IScriptControl *iface, BSTR expression, VARIANT *res)
@@ -1453,8 +1453,10 @@ static HRESULT WINAPI ScriptControl_Eval(IScriptControl *iface, BSTR expression,
if (!res)
return E_POINTER;
V_VT(res) = VT_EMPTY;
+ if (!This->host)
+ return E_FAIL;
- return parse_script_text(This, expression, SCRIPTTEXT_ISEXPRESSION, res);
+ return parse_script_text(This->host, expression, SCRIPTTEXT_ISEXPRESSION, res);
}
static HRESULT WINAPI ScriptControl_ExecuteStatement(IScriptControl *iface, BSTR statement)
@@ -1463,7 +1465,10 @@ static HRESULT WINAPI ScriptControl_ExecuteStatement(IScriptControl *iface, BSTR
TRACE("(%p)->(%s)\n", This, debugstr_w(statement));
- return parse_script_text(This, statement, 0, NULL);
+ if (!This->host)
+ return E_FAIL;
+
+ return parse_script_text(This->host, statement, 0, NULL);
}
static HRESULT WINAPI ScriptControl_Run(IScriptControl *iface, BSTR procedure_name, SAFEARRAY **parameters, VARIANT *res)
@@ -1486,7 +1491,9 @@ 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;
- hr = start_script(This);
+
+ if (!This->host) return E_FAIL;
+ hr = start_script(This->host);
if (FAILED(hr)) return hr;
hr = get_script_dispatch(This, &disp);
More information about the wine-cvs
mailing list