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

vbscipt: Added IActiveScript::Close implementation.

This commit is contained in:
Jacek Caban 2011-08-31 11:22:15 +02:00 committed by Alexandre Julliard
parent 7edaff43e4
commit 01ce1873a3
1 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
dlls/vbscript/vbscript.c
View File

@ -19,6 +19,7 @@
#include "config.h"
#include <stdarg.h>
#include <assert.h>
#define COBJMACROS
@ -85,6 +86,37 @@ static void destroy_script(script_ctx_t *ctx)
heap_free(ctx);
}
static void decrease_state(VBScript *This, SCRIPTSTATE state)
{
switch(This->state) {
case SCRIPTSTATE_CONNECTED:
case SCRIPTSTATE_STARTED:
case SCRIPTSTATE_DISCONNECTED:
FIXME("unimplemented state %d\n", This->state);
if(state == SCRIPTSTATE_INITIALIZED)
break;
/* FALLTHROUGH */
case SCRIPTSTATE_INITIALIZED:
destroy_script(This->ctx);
This->ctx = NULL;
This->thread_id = 0;
change_state(This, state);
if(state == SCRIPTSTATE_UNINITIALIZED)
break;
/* FALLTHROUGH */
case SCRIPTSTATE_UNINITIALIZED:
if(This->site) {
IActiveScriptSite_Release(This->site);
This->site = NULL;
}
break;
default:
assert(0);
}
}
static inline VBScript *impl_from_IActiveScript(IActiveScript *iface)
{
return CONTAINING_RECORD(iface, VBScript, IActiveScript_iface);
@ -191,8 +223,14 @@ static HRESULT WINAPI VBScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE
static HRESULT WINAPI VBScript_Close(IActiveScript *iface)
{
VBScript *This = impl_from_IActiveScript(iface);
FIXME("(%p)->()\n", This);
return E_NOTIMPL;
TRACE("(%p)->()\n", This);
if(This->thread_id && This->thread_id != GetCurrentThreadId())
return E_UNEXPECTED;
decrease_state(This, SCRIPTSTATE_CLOSED);
return S_OK;
}
static HRESULT WINAPI VBScript_AddNamedItem(IActiveScript *iface, LPCOLESTR pstrName, DWORD dwFlags)