ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Inplemented ScriptEngineBuildVersion.

This commit is contained in:
Shuai Meng 2014-08-09 00:49:05 +08:00 committed by Alexandre Julliard
parent 4da0bcc227
commit f3f0972ddb
3 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dlls/vbscript/global.c
View File

@ -1684,8 +1684,16 @@ static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, uns
static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
{
FIXME("\n");
return E_NOTIMPL;
TRACE("%s\n", debugstr_variant(arg));
assert(args_cnt == 0);
if(res) {
V_VT(res) = VT_I4;
V_I4(res) = VBSCRIPT_BUILD_VERSION;
}
return S_OK;
}
static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)

2
dlls/vbscript/tests/api.vbs
View File

@ -987,4 +987,6 @@ Call testAbsError(-4, 0, 0)
Call ok(ScriptEngine = "VBScript", "Is scriptengine not VBScript?")
Call ok(getVT(ScriptEngine) = "VT_BSTR", "getVT(ScriptEngine) = " & getVT(ScriptEngine))
Call ok(getVT(ScriptEngineBuildVersion) = "VT_I4", "getVT(ScriptEngineBuildVersion) = " & getVT(ScriptEngineBuildVersion))
Call reportSuccess()

2
dlls/vbscript/vbscript.h
View File

@ -461,3 +461,5 @@ static inline LPWSTR heap_strdupW(LPCWSTR str)
return ret;
}
#define VBSCRIPT_BUILD_VERSION 16978