script.c File Reference

#include "precomp.h"
#include <activdbg.h>

Include dependency graph for script.c:

Go to the source code of this file.

Macros
#define	CTXARG_T   DWORD
#define	IActiveScriptParseVtbl   IActiveScriptParse32Vtbl
#define	IActiveScriptParseProcedure2Vtbl   IActiveScriptParseProcedure2_32Vtbl
#define	IActiveScriptSiteDebug_Release   IActiveScriptSiteDebug32_Release
#define	DEFINE_EXPECT(func)    static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
#define	SET_EXPECT(func)    do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)
#define	CHECK_EXPECT2(func)
#define	CHECK_EXPECT(func)
#define	CHECK_CALLED(func)
#define	CHECK_CALLED_BROKEN(func)
#define	CHECK_NOT_CALLED(func)
#define	CLEAR_CALLED(func)    expect_ ## func = called_ ## func = FALSE
#define	TESTSCRIPT_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80746}"
#define	TESTACTIVEX_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80646}"
#define	DISPID_SCRIPT_TESTPROP   0x100000
#define	DISPID_SCRIPT_TESTPROP2   0x100001
#define	DISPID_EXTERNAL_OK   0x300000
#define	DISPID_EXTERNAL_TRACE   0x300001
#define	DISPID_EXTERNAL_REPORTSUCCESS   0x300002
#define	DISPID_EXTERNAL_TODO_WINE_OK   0x300003
#define	DISPID_EXTERNAL_BROKEN   0x300004
#define	check_custom_policy(a, b, c, d)   _check_custom_policy(__LINE__,a,b,c,d)
#define	test_elem_disabled(a, b)   _test_elem_disabled(__LINE__,a,b)

Typedefs
typedef void(*	domtest_t) (IHTMLDocument2 *)

Functions
	DEFINE_GUID (CLSID_IdentityUnmarshal, 0x0000001b, 0x0000, 0x0000, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46)
	DEFINE_EXPECT (CreateInstance)
	DEFINE_EXPECT (GetInterfaceSafetyOptions)
	DEFINE_EXPECT (SetInterfaceSafetyOptions)
	DEFINE_EXPECT (InitNew)
	DEFINE_EXPECT (Close)
	DEFINE_EXPECT (SetProperty_HACK_TRIDENTEVENTSINK)
	DEFINE_EXPECT (SetProperty_INVOKEVERSIONING)
	DEFINE_EXPECT (SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION)
	DEFINE_EXPECT (SetScriptSite)
	DEFINE_EXPECT (GetScriptState)
	DEFINE_EXPECT (SetScriptState_STARTED)
	DEFINE_EXPECT (SetScriptState_CONNECTED)
	DEFINE_EXPECT (SetScriptState_DISCONNECTED)
	DEFINE_EXPECT (AddNamedItem)
	DEFINE_EXPECT (ParseScriptText_script)
	DEFINE_EXPECT (ParseScriptText_execScript)
	DEFINE_EXPECT (GetScriptDispatch)
	DEFINE_EXPECT (funcDisp)
	DEFINE_EXPECT (script_divid_d)
	DEFINE_EXPECT (script_testprop_d)
	DEFINE_EXPECT (script_testprop_i)
	DEFINE_EXPECT (script_testprop2_d)
	DEFINE_EXPECT (AXQueryInterface_IActiveScript)
	DEFINE_EXPECT (AXQueryInterface_IObjectSafety)
	DEFINE_EXPECT (AXGetInterfaceSafetyOptions)
	DEFINE_EXPECT (AXSetInterfaceSafetyOptions_IDispatch_caller)
	DEFINE_EXPECT (AXSetInterfaceSafetyOptions_IDispatch_data)
	DEFINE_EXPECT (AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr)
	DEFINE_EXPECT (AXSetInterfaceSafetyOptions_IDispatchEx_caller)
	DEFINE_EXPECT (external_success)
	DEFINE_EXPECT (QS_VariantConversion)
	DEFINE_EXPECT (QS_IActiveScriptSite)
	DEFINE_EXPECT (QS_GetCaller)
	DEFINE_EXPECT (ChangeType)
static int	strcmp_wa (LPCWSTR strw, const char *stra)
static BSTR	a2bstr (const char *str)
static BOOL	init_key (const char *key_name, const char *def_value, BOOL init)
static HRESULT WINAPI	PropertyNotifySink_QueryInterface (IPropertyNotifySink *iface, REFIID riid, void **ppv)
static ULONG WINAPI	PropertyNotifySink_AddRef (IPropertyNotifySink *iface)
static ULONG WINAPI	PropertyNotifySink_Release (IPropertyNotifySink *iface)
static HRESULT WINAPI	PropertyNotifySink_OnChanged (IPropertyNotifySink *iface, DISPID dispID)
static HRESULT WINAPI	PropertyNotifySink_OnRequestEdit (IPropertyNotifySink *iface, DISPID dispID)
static HRESULT WINAPI	VariantChangeType_QueryInterface (IVariantChangeType *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VariantChangeType_AddRef (IVariantChangeType *iface)
static ULONG WINAPI	VariantChangeType_Release (IVariantChangeType *iface)
static HRESULT WINAPI	VariantChangeType_ChangeType (IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt)
static HRESULT WINAPI	ServiceProvider_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ServiceProvider_AddRef (IServiceProvider *iface)
static ULONG WINAPI	ServiceProvider_Release (IServiceProvider *iface)
static HRESULT WINAPI	ServiceProvider_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
static HRESULT WINAPI	DispatchEx_QueryInterface (IDispatchEx *iface, REFIID riid, void **ppv)
static ULONG WINAPI	DispatchEx_AddRef (IDispatchEx *iface)
static ULONG WINAPI	DispatchEx_Release (IDispatchEx *iface)
static HRESULT WINAPI	DispatchEx_GetTypeInfoCount (IDispatchEx *iface, UINT *pctinfo)
static HRESULT WINAPI	DispatchEx_GetTypeInfo (IDispatchEx *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
static HRESULT WINAPI	DispatchEx_GetIDsOfNames (IDispatchEx *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
static HRESULT WINAPI	DispatchEx_Invoke (IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
static HRESULT WINAPI	DispatchEx_DeleteMemberByName (IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
static HRESULT WINAPI	DispatchEx_DeleteMemberByDispID (IDispatchEx *iface, DISPID id)
static HRESULT WINAPI	DispatchEx_GetMemberProperties (IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
static HRESULT WINAPI	DispatchEx_GetMemberName (IDispatchEx *iface, DISPID id, BSTR *pbstrName)
static HRESULT WINAPI	DispatchEx_GetNextDispID (IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
static HRESULT WINAPI	DispatchEx_GetNameSpaceParent (IDispatchEx *iface, IUnknown **ppunk)
static HRESULT WINAPI	DispatchEx_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	funcDisp_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT WINAPI	scriptDisp_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	scriptDisp_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT WINAPI	externalDisp_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	externalDisp_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT	QueryInterface (REFIID, void **)
static HRESULT WINAPI	DocHostUIHandler_QueryInterface (IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
static ULONG WINAPI	DocHostUIHandler_AddRef (IDocHostUIHandler2 *iface)
static ULONG WINAPI	DocHostUIHandler_Release (IDocHostUIHandler2 *iface)
static HRESULT WINAPI	DocHostUIHandler_ShowContextMenu (IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
static HRESULT WINAPI	DocHostUIHandler_GetHostInfo (IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
static HRESULT WINAPI	DocHostUIHandler_ShowUI (IDocHostUIHandler2 *iface, DWORD dwID, IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget, IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
static HRESULT WINAPI	DocHostUIHandler_HideUI (IDocHostUIHandler2 *iface)
static HRESULT WINAPI	DocHostUIHandler_UpdateUI (IDocHostUIHandler2 *iface)
static HRESULT WINAPI	DocHostUIHandler_EnableModeless (IDocHostUIHandler2 *iface, BOOL fEnable)
static HRESULT WINAPI	DocHostUIHandler_OnDocWindowActivate (IDocHostUIHandler2 *iface, BOOL fActivate)
static HRESULT WINAPI	DocHostUIHandler_OnFrameWindowActivate (IDocHostUIHandler2 *iface, BOOL fActivate)
static HRESULT WINAPI	DocHostUIHandler_ResizeBorder (IDocHostUIHandler2 *iface, LPCRECT prcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
static HRESULT WINAPI	DocHostUIHandler_TranslateAccelerator (IDocHostUIHandler2 *iface, LPMSG lpMsg, const GUID *pguidCmdGroup, DWORD nCmdID)
static HRESULT WINAPI	DocHostUIHandler_GetOptionKeyPath (IDocHostUIHandler2 *iface, LPOLESTR *pchKey, DWORD dw)
static HRESULT WINAPI	DocHostUIHandler_GetDropTarget (IDocHostUIHandler2 *iface, IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
static HRESULT WINAPI	DocHostUIHandler_GetExternal (IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
static HRESULT WINAPI	DocHostUIHandler_TranslateUrl (IDocHostUIHandler2 *iface, DWORD dwTranslate, OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
static HRESULT WINAPI	DocHostUIHandler_FilterDataObject (IDocHostUIHandler2 *iface, IDataObject *pDO, IDataObject **ppPORet)
static HRESULT WINAPI	DocHostUIHandler_GetOverrideKeyPath (IDocHostUIHandler2 *iface, LPOLESTR *pchKey, DWORD dw)
static HRESULT WINAPI	InPlaceFrame_QueryInterface (IOleInPlaceFrame *iface, REFIID riid, void **ppv)
static ULONG WINAPI	InPlaceFrame_AddRef (IOleInPlaceFrame *iface)
static ULONG WINAPI	InPlaceFrame_Release (IOleInPlaceFrame *iface)
static HRESULT WINAPI	InPlaceFrame_GetWindow (IOleInPlaceFrame *iface, HWND *phwnd)
static HRESULT WINAPI	InPlaceFrame_ContextSensitiveHelp (IOleInPlaceFrame *iface, BOOL fEnterMode)
static HRESULT WINAPI	InPlaceFrame_GetBorder (IOleInPlaceFrame *iface, LPRECT lprectBorder)
static HRESULT WINAPI	InPlaceFrame_RequestBorderSpace (IOleInPlaceFrame *iface, LPCBORDERWIDTHS pborderwidths)
static HRESULT WINAPI	InPlaceFrame_SetBorderSpace (IOleInPlaceFrame *iface, LPCBORDERWIDTHS pborderwidths)
static HRESULT WINAPI	InPlaceFrame_SetActiveObject (IOleInPlaceFrame *iface, IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
static HRESULT WINAPI	InPlaceFrame_InsertMenus (IOleInPlaceFrame *iface, HMENU hmenuShared, LPOLEMENUGROUPWIDTHS lpMenuWidths)
static HRESULT WINAPI	InPlaceFrame_SetMenu (IOleInPlaceFrame *iface, HMENU hmenuShared, HOLEMENU holemenu, HWND hwndActiveObject)
static HRESULT WINAPI	InPlaceFrame_RemoveMenus (IOleInPlaceFrame *iface, HMENU hmenuShared)
static HRESULT WINAPI	InPlaceFrame_SetStatusText (IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
static HRESULT WINAPI	InPlaceFrame_EnableModeless (IOleInPlaceFrame *iface, BOOL fEnable)
static HRESULT WINAPI	InPlaceFrame_TranslateAccelerator (IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
static HRESULT WINAPI	InPlaceSite_QueryInterface (IOleInPlaceSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	InPlaceSite_AddRef (IOleInPlaceSite *iface)
static ULONG WINAPI	InPlaceSite_Release (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_GetWindow (IOleInPlaceSite *iface, HWND *phwnd)
static HRESULT WINAPI	InPlaceSite_ContextSensitiveHelp (IOleInPlaceSite *iface, BOOL fEnterMode)
static HRESULT WINAPI	InPlaceSite_CanInPlaceActivate (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_OnInPlaceActivate (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_OnUIActivate (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_GetWindowContext (IOleInPlaceSite *iface, IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect, LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
static HRESULT WINAPI	InPlaceSite_Scroll (IOleInPlaceSite *iface, SIZE scrollExtant)
static HRESULT WINAPI	InPlaceSite_OnUIDeactivate (IOleInPlaceSite *iface, BOOL fUndoable)
static HRESULT WINAPI	InPlaceSite_OnInPlaceDeactivate (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_DiscardUndoState (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_DeactivateAndUndo (IOleInPlaceSite *iface)
static HRESULT WINAPI	InPlaceSite_OnPosRectChange (IOleInPlaceSite *iface, LPCRECT lprcPosRect)
static HRESULT WINAPI	ClientSite_QueryInterface (IOleClientSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ClientSite_AddRef (IOleClientSite *iface)
static ULONG WINAPI	ClientSite_Release (IOleClientSite *iface)
static HRESULT WINAPI	ClientSite_SaveObject (IOleClientSite *iface)
static HRESULT WINAPI	ClientSite_GetMoniker (IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmon)
static HRESULT WINAPI	ClientSite_GetContainer (IOleClientSite *iface, IOleContainer **ppContainer)
static HRESULT WINAPI	ClientSite_ShowObject (IOleClientSite *iface)
static HRESULT WINAPI	ClientSite_OnShowWindow (IOleClientSite *iface, BOOL fShow)
static HRESULT WINAPI	ClientSite_RequestNewObjectLayout (IOleClientSite *iface)
static HRESULT WINAPI	DocumentSite_QueryInterface (IOleDocumentSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	DocumentSite_AddRef (IOleDocumentSite *iface)
static ULONG WINAPI	DocumentSite_Release (IOleDocumentSite *iface)
static HRESULT WINAPI	DocumentSite_ActivateMe (IOleDocumentSite *iface, IOleDocumentView *pViewToActivate)
static IHTMLDocument2 *	create_document (void)
static void	load_string (IHTMLDocument2 *doc, const char *str)
static void	do_advise (IHTMLDocument2 *doc, REFIID riid, IUnknown *unk_advise)
static void	set_client_site (IHTMLDocument2 *doc, BOOL set)
static void	load_doc (IHTMLDocument2 *doc, const char *str)
static HRESULT WINAPI	ObjectSafety_QueryInterface (IObjectSafety *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ObjectSafety_AddRef (IObjectSafety *iface)
static ULONG WINAPI	ObjectSafety_Release (IObjectSafety *iface)
static HRESULT WINAPI	ObjectSafety_GetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
static HRESULT WINAPI	ObjectSafety_SetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
static HRESULT WINAPI	AXObjectSafety_QueryInterface (IObjectSafety *iface, REFIID riid, void **ppv)
static HRESULT WINAPI	AXObjectSafety_GetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
static HRESULT WINAPI	AXObjectSafety_SetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
static BOOL	set_safe_reg (BOOL safe_call, BOOL safe_data)
static void	_check_custom_policy (unsigned line, HRESULT hres, BYTE *ppolicy, DWORD policy_size, DWORD expolicy)
static void	test_security_reg (IInternetHostSecurityManager *sec_mgr, DWORD policy_caller, DWORD policy_load)
static void	test_security (void)
static HRESULT WINAPI	ActiveScriptProperty_QueryInterface (IActiveScriptProperty *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptProperty_AddRef (IActiveScriptProperty *iface)
static ULONG WINAPI	ActiveScriptProperty_Release (IActiveScriptProperty *iface)
static HRESULT WINAPI	ActiveScriptProperty_GetProperty (IActiveScriptProperty *iface, DWORD dwProperty, VARIANT *pvarIndex, VARIANT *pvarValue)
static HRESULT WINAPI	ActiveScriptProperty_SetProperty (IActiveScriptProperty *iface, DWORD dwProperty, VARIANT *pvarIndex, VARIANT *pvarValue)
static HRESULT WINAPI	ActiveScriptParseProcedure_QueryInterface (IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptParseProcedure_AddRef (IActiveScriptParseProcedure2 *iface)
static ULONG WINAPI	ActiveScriptParseProcedure_Release (IActiveScriptParseProcedure2 *iface)
static HRESULT WINAPI	ActiveScriptParseProcedure_ParseProcedureText (IActiveScriptParseProcedure2 *iface, LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName, LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
static HRESULT WINAPI	ActiveScriptParse_QueryInterface (IActiveScriptParse *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptParse_AddRef (IActiveScriptParse *iface)
static ULONG WINAPI	ActiveScriptParse_Release (IActiveScriptParse *iface)
static HRESULT WINAPI	ActiveScriptParse_InitNew (IActiveScriptParse *iface)
static HRESULT WINAPI	ActiveScriptParse_AddScriptlet (IActiveScriptParse *iface, LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName, LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, BSTR *pbstrName, EXCEPINFO *pexcepinfo)
static HRESULT	dispex_propput (IDispatchEx *obj, DISPID id, DWORD flags, VARIANT *var, IServiceProvider *caller_sp)
static HRESULT	dispex_propget (IDispatchEx *obj, DISPID id, VARIANT *res, IServiceProvider *caller_sp)
static void	test_func (IDispatchEx *obj)
static void	test_nextdispid (IDispatchEx *dispex)
static void	test_global_id (void)
static void	test_arg_conv (IHTMLWindow2 *window)
static void	_test_elem_disabled (unsigned line, IHTMLElement *elem, VARIANT_BOOL exb)
static void	test_default_arg_conv (IHTMLWindow2 *window)
static void	test_ui (void)
static void	test_sp (void)
static void	test_script_run (void)
static HRESULT WINAPI	ActiveScriptParse_ParseScriptText (IActiveScriptParse *iface, LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine, DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	ActiveScript_QueryInterface (IActiveScript *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScript_AddRef (IActiveScript *iface)
static ULONG WINAPI	ActiveScript_Release (IActiveScript *iface)
static HRESULT WINAPI	ActiveScript_SetScriptSite (IActiveScript *iface, IActiveScriptSite *pass)
static HRESULT WINAPI	ActiveScript_GetScriptSite (IActiveScript *iface, REFIID riid, void **ppvObject)
static HRESULT WINAPI	ActiveScript_SetScriptState (IActiveScript *iface, SCRIPTSTATE ss)
static HRESULT WINAPI	ActiveScript_GetScriptState (IActiveScript *iface, SCRIPTSTATE *pssState)
static HRESULT WINAPI	ActiveScript_Close (IActiveScript *iface)
static HRESULT WINAPI	ActiveScript_AddNamedItem (IActiveScript *iface, LPCOLESTR pstrName, DWORD dwFlags)
static HRESULT WINAPI	ActiveScript_AddTypeLib (IActiveScript *iface, REFGUID rguidTypeLib, DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
static HRESULT WINAPI	ActiveScript_GetScriptDispatch (IActiveScript *iface, LPCOLESTR pstrItemName, IDispatch **ppdisp)
static HRESULT WINAPI	ActiveScript_GetCurrentScriptThreadID (IActiveScript *iface, SCRIPTTHREADID *pstridThread)
static HRESULT WINAPI	ActiveScript_GetScriptThreadID (IActiveScript *iface, DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
static HRESULT WINAPI	ActiveScript_GetScriptThreadState (IActiveScript *iface, SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
static HRESULT WINAPI	ActiveScript_InterruptScriptThread (IActiveScript *iface, SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
static HRESULT WINAPI	ActiveScript_Clone (IActiveScript *iface, IActiveScript **ppscript)
static HRESULT WINAPI	ClassFactory_QueryInterface (IClassFactory *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ClassFactory_AddRef (IClassFactory *iface)
static ULONG WINAPI	ClassFactory_Release (IClassFactory *iface)
static HRESULT WINAPI	ClassFactory_CreateInstance (IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
static HRESULT WINAPI	ClassFactory_LockServer (IClassFactory *iface, BOOL dolock)
static void	test_exec_script (IHTMLDocument2 *doc, const char *codea, const char *langa)
static void	test_simple_script (void)
static void	run_js_script (const char *test_name)
static void	run_js_tests (void)
static BOOL	init_registry (BOOL init)
static BOOL	register_script_engine (void)
static LRESULT WINAPI	wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
static HWND	create_container_window (void)
static BOOL	check_ie (void)
	START_TEST (script)

Variables
const GUID	GUID_CUSTOM_CONFIRMOBJECTSAFETY
static const GUID	CLSID_TestScript
static const GUID	CLSID_TestActiveX
static BOOL	is_ie9plus
static IHTMLDocument2 *	notif_doc
static IOleDocumentView *	view
static IDispatchEx *	window_dispex
static BOOL	doc_complete
static IDispatch *	script_disp
static BOOL	ax_objsafe
static HWND	container_hwnd
static HRESULT	ax_getopt_hres = S_OK
static HRESULT	ax_setopt_dispex_hres = S_OK
static HRESULT	ax_setopt_disp_caller_hres = S_OK
static HRESULT	ax_setopt_disp_data_hres = S_OK
static BOOL	skip_loadobject_tests
static IActiveScriptSite *	site
static SCRIPTSTATE	state
static IPropertyNotifySinkVtbl	PropertyNotifySinkVtbl
static IPropertyNotifySink	PropertyNotifySink = { &PropertyNotifySinkVtbl }
static const IVariantChangeTypeVtbl	VariantChangeTypeVtbl
static IVariantChangeType	VChangeType = { &VariantChangeTypeVtbl }
static const IServiceProviderVtbl	ServiceProviderVtbl
static IServiceProvider	caller_sp = { &ServiceProviderVtbl }
static IDispatchExVtbl	testObjVtbl
static IDispatchEx	funcDisp = { &testObjVtbl }
static IDispatchExVtbl	scriptDispVtbl
static IDispatchEx	scriptDisp = { &scriptDispVtbl }
static IDispatchExVtbl	externalDispVtbl
static IDispatchEx	externalDisp = { &externalDispVtbl }
static const IDocHostUIHandler2Vtbl	DocHostUIHandlerVtbl
static IDocHostUIHandler2	DocHostUIHandler = { &DocHostUIHandlerVtbl }
static const IOleInPlaceFrameVtbl	InPlaceFrameVtbl
static IOleInPlaceFrame	InPlaceFrame = { &InPlaceFrameVtbl }
static const IOleInPlaceSiteVtbl	InPlaceSiteVtbl
static IOleInPlaceSite	InPlaceSite = { &InPlaceSiteVtbl }
static const IOleClientSiteVtbl	ClientSiteVtbl
static IOleClientSite	ClientSite = { &ClientSiteVtbl }
static const IOleDocumentSiteVtbl	DocumentSiteVtbl
static IOleDocumentSite	DocumentSite = { &DocumentSiteVtbl }
static const IObjectSafetyVtbl	ObjectSafetyVtbl
static IObjectSafety	ObjectSafety = { &ObjectSafetyVtbl }
static const IObjectSafetyVtbl	AXObjectSafetyVtbl
static IObjectSafety	AXObjectSafety = { &AXObjectSafetyVtbl }
static const IActiveScriptPropertyVtbl	ActiveScriptPropertyVtbl
static IActiveScriptProperty	ActiveScriptProperty = { &ActiveScriptPropertyVtbl }
static const IActiveScriptParseProcedure2Vtbl	ActiveScriptParseProcedureVtbl
static IActiveScriptParseProcedure2	ActiveScriptParseProcedure = { &ActiveScriptParseProcedureVtbl }
static const IActiveScriptParseVtbl	ActiveScriptParseVtbl
static IActiveScriptParse	ActiveScriptParse = { &ActiveScriptParseVtbl }
static const IActiveScriptVtbl	ActiveScriptVtbl
static IActiveScript	ActiveScript = { &ActiveScriptVtbl }
static const IClassFactoryVtbl	ClassFactoryVtbl
static IClassFactory	script_cf = { &ClassFactoryVtbl }
static const char	simple_script_str []

Macro Definition Documentation

CHECK_CALLED

#define CHECK_CALLED

(

func

)

Value:

    do { \
        ok(called_ ## func, "expected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 63 of file script.c.

CHECK_CALLED_BROKEN

#define CHECK_CALLED_BROKEN

(

func

)

Value:

    do { \
        ok(called_ ## func || broken(!called_ ## func), "expected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 69 of file script.c.

check_custom_policy

#define check_custom_policy	(		a,
			b,
			c,
			d
	)		_check_custom_policy(__LINE__,a,b,c,d)

Definition at line 1457 of file script.c.

CHECK_EXPECT

#define CHECK_EXPECT

(

func

)

Value:

    do { \
        CHECK_EXPECT2(func); \
        expect_ ## func = FALSE; \
    }while(0)

Definition at line 57 of file script.c.

CHECK_EXPECT2

#define CHECK_EXPECT2

(

func

)

Value:

    do { \
        ok(expect_ ##func, "unexpected call " #func "\n"); \
        called_ ## func = TRUE; \
    }while(0)

Definition at line 51 of file script.c.

CHECK_NOT_CALLED

#define CHECK_NOT_CALLED

(

func

)

Value:

    do { \
        ok(!called_ ## func, "unexpected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 75 of file script.c.

CLEAR_CALLED

#define CLEAR_CALLED

(

func

)

expect_ ## func = called_ ## func = FALSE

Definition at line 81 of file script.c.

CTXARG_T

#define CTXARG_T   DWORD

Definition at line 38 of file script.c.

DEFINE_EXPECT

#define DEFINE_EXPECT

(

func

)

static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

Definition at line 45 of file script.c.

DISPID_EXTERNAL_BROKEN

#define DISPID_EXTERNAL_BROKEN   0x300004

Definition at line 130 of file script.c.

DISPID_EXTERNAL_OK

#define DISPID_EXTERNAL_OK   0x300000

Definition at line 126 of file script.c.

DISPID_EXTERNAL_REPORTSUCCESS

#define DISPID_EXTERNAL_REPORTSUCCESS   0x300002

Definition at line 128 of file script.c.

DISPID_EXTERNAL_TODO_WINE_OK

#define DISPID_EXTERNAL_TODO_WINE_OK   0x300003

Definition at line 129 of file script.c.

DISPID_EXTERNAL_TRACE

#define DISPID_EXTERNAL_TRACE   0x300001

Definition at line 127 of file script.c.

DISPID_SCRIPT_TESTPROP

#define DISPID_SCRIPT_TESTPROP   0x100000

Definition at line 123 of file script.c.

DISPID_SCRIPT_TESTPROP2

#define DISPID_SCRIPT_TESTPROP2   0x100001

Definition at line 124 of file script.c.

IActiveScriptParseProcedure2Vtbl

#define IActiveScriptParseProcedure2Vtbl   IActiveScriptParseProcedure2_32Vtbl

Definition at line 40 of file script.c.

IActiveScriptParseVtbl

#define IActiveScriptParseVtbl   IActiveScriptParse32Vtbl

Definition at line 39 of file script.c.

IActiveScriptSiteDebug_Release

#define IActiveScriptSiteDebug_Release   IActiveScriptSiteDebug32_Release

Definition at line 41 of file script.c.

SET_EXPECT

#define SET_EXPECT

(

func

)

do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)

Definition at line 48 of file script.c.

test_elem_disabled

#define test_elem_disabled	(		a,
			b
	)		_test_elem_disabled(__LINE__,a,b)

Definition at line 2042 of file script.c.

TESTACTIVEX_CLSID

#define TESTACTIVEX_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80646}"

Definition at line 121 of file script.c.

TESTSCRIPT_CLSID

#define TESTSCRIPT_CLSID   "{178fc163-f585-4e24-9c13-4bb7faf80746}"

Definition at line 120 of file script.c.

Typedef Documentation

domtest_t

typedef void(* domtest_t) (IHTMLDocument2 *)

Definition at line 1270 of file script.c.

Function Documentation

_check_custom_policy()

static void _check_custom_policy ( unsigned  line, HRESULT  hres, BYTE *  ppolicy, DWORD  policy_size, DWORD  expolicy  )

static

Definition at line 1458 of file script.c.

{
    ok_(__FILE__,line)(hres == S_OK, "QueryCusromPolicy failed: %08x\n", hres);
    ok_(__FILE__,line)(policy_size == sizeof(DWORD), "policy_size = %d\n", policy_size);
    ok_(__FILE__,line)(*(DWORD*)ppolicy == expolicy, "policy = %x, expected %x\n", *(DWORD*)ppolicy, expolicy);
    CoTaskMemFree(ppolicy);
}

_test_elem_disabled()

static void _test_elem_disabled ( unsigned  line, IHTMLElement *  elem, VARIANT_BOOL  exb  )

static

Definition at line 2043 of file script.c.

{
    IHTMLElement3 *elem3;
    VARIANT_BOOL b = 100;
    HRESULT hres;
 
    hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLElement3, (void**)&elem3);
    ok_(__FILE__,line)(hres == S_OK, "Could not get IHTMLElement3 iface: %08x\n", hres);
 
    hres = IHTMLElement3_get_disabled(elem3, &b);
    ok_(__FILE__,line)(hres == S_OK, "get_disabled failed: %08x\n", hres);
    ok_(__FILE__,line)(b == exb, "disabled = %x, expected %x\n", b, exb);
 
    IHTMLElement3_Release(elem3);
}

a2bstr()

static BSTR a2bstr ( const char *  str )

static

Definition at line 159 of file script.c.

{
    BSTR ret;
    int len;
 
    if(!str)
        return NULL;
 
    len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
    ret = SysAllocStringLen(NULL, len);
    MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 
    return ret;
}

Referenced by test_default_arg_conv(), test_exec_script(), test_func(), test_global_id(), test_nextdispid(), test_script_run(), and VariantChangeType_ChangeType().

ActiveScript_AddNamedItem()

static HRESULT WINAPI ActiveScript_AddNamedItem ( IActiveScript *  iface, LPCOLESTR  pstrName, DWORD  dwFlags  )

static

Definition at line 2545 of file script.c.

{
    IDispatch *disp;
    IUnknown *unk = NULL, *unk2;
    HRESULT hres;
 
    static const WCHAR windowW[] = {'w','i','n','d','o','w',0};
 
    static const IID unknown_iid = {0x719C3050,0xF9D3,0x11CF,{0xA4,0x93,0x00,0x40,0x05,0x23,0xA8,0xA0}};
 
    CHECK_EXPECT(AddNamedItem);
 
    ok(!lstrcmpW(pstrName, windowW), "pstrName=%s\n", wine_dbgstr_w(pstrName));
    ok(dwFlags == (SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS), "dwFlags=%x\n", dwFlags);
 
    hres = IActiveScriptSite_GetItemInfo(site, windowW, SCRIPTINFO_IUNKNOWN, &unk, NULL);
    ok(hres == S_OK, "GetItemInfo failed: %08x\n", hres);
    ok(unk != NULL, "unk == NULL\n");
 
    hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
    ok(hres == S_OK, "Could not get IDispatch interface: %08x\n", hres);
    if(SUCCEEDED(hres))
        IDispatch_Release(disp);
 
    hres = IUnknown_QueryInterface(unk, &unknown_iid, (void**)&unk2);
    ok(hres == E_NOINTERFACE, "Got ?? interface: %p\n", unk2);
    if(SUCCEEDED(hres))
        IUnknown_Release(unk2);
 
    hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&window_dispex);
    ok(hres == S_OK, "Could not get IDispatchEx interface: %08x\n", hres);
 
    IUnknown_Release(unk);
    return S_OK;
}

ActiveScript_AddRef()

static ULONG WINAPI ActiveScript_AddRef ( IActiveScript *  iface )

static

Definition at line 2447 of file script.c.

{
    return 2;
}

ActiveScript_AddTypeLib()

static HRESULT WINAPI ActiveScript_AddTypeLib ( IActiveScript *  iface, REFGUID  rguidTypeLib, DWORD  dwMajor, DWORD  dwMinor, DWORD  dwFlags  )

static

Definition at line 2582 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_Clone()

static HRESULT WINAPI ActiveScript_Clone ( IActiveScript *  iface, IActiveScript **  ppscript  )

static

Definition at line 2631 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_Close()

static HRESULT WINAPI ActiveScript_Close ( IActiveScript *  iface )

static

Definition at line 2539 of file script.c.

{
    CHECK_EXPECT(Close);
    return E_NOTIMPL;
}

ActiveScript_GetCurrentScriptThreadID()

static HRESULT WINAPI ActiveScript_GetCurrentScriptThreadID ( IActiveScript *  iface, SCRIPTTHREADID *  pstridThread  )

static

Definition at line 2603 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_GetScriptDispatch()

static HRESULT WINAPI ActiveScript_GetScriptDispatch ( IActiveScript *  iface, LPCOLESTR  pstrItemName, IDispatch **  ppdisp  )

static

Definition at line 2589 of file script.c.

{
    CHECK_EXPECT(GetScriptDispatch);
 
    ok(!strcmp_wa(pstrItemName, "window"), "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName));
 
    if(!script_disp)
        return E_NOTIMPL;
 
    *ppdisp = script_disp;
    return S_OK;
}

ActiveScript_GetScriptSite()

static HRESULT WINAPI ActiveScript_GetScriptSite ( IActiveScript *  iface, REFIID  riid, void **  ppvObject  )

static

Definition at line 2499 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_GetScriptState()

static HRESULT WINAPI ActiveScript_GetScriptState ( IActiveScript *  iface, SCRIPTSTATE *  pssState  )

static

Definition at line 2531 of file script.c.

{
    CHECK_EXPECT(GetScriptState);
 
    *pssState = state;
    return S_OK;
}

ActiveScript_GetScriptThreadID()

static HRESULT WINAPI ActiveScript_GetScriptThreadID ( IActiveScript *  iface, DWORD  dwWin32ThreadId, SCRIPTTHREADID *  pstidThread  )

static

Definition at line 2610 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_GetScriptThreadState()

static HRESULT WINAPI ActiveScript_GetScriptThreadState ( IActiveScript *  iface, SCRIPTTHREADID  stidThread, SCRIPTTHREADSTATE *  pstsState  )

static

Definition at line 2617 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_InterruptScriptThread()

static HRESULT WINAPI ActiveScript_InterruptScriptThread ( IActiveScript *  iface, SCRIPTTHREADID  stidThread, const EXCEPINFO *  pexcepinfo, DWORD  dwFlags  )

static

Definition at line 2624 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScript_QueryInterface()

static HRESULT WINAPI ActiveScript_QueryInterface ( IActiveScript *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 2411 of file script.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IActiveScript, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IActiveScriptParse, riid)) {
        *ppv = &ActiveScriptParse;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IActiveScriptParseProcedure2, riid)) {
        *ppv = &ActiveScriptParseProcedure;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IActiveScriptProperty, riid)) {
        *ppv = &ActiveScriptProperty;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IObjectSafety, riid)) {
        *ppv = &ObjectSafety;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IActiveScriptDebug, riid))
        return E_NOINTERFACE;
 
    trace("QI(%s)\n", wine_dbgstr_guid(riid));
    return E_NOINTERFACE;
}

ActiveScript_Release()

static ULONG WINAPI ActiveScript_Release ( IActiveScript *  iface )

static

Definition at line 2452 of file script.c.

{
    return 1;
}

ActiveScript_SetScriptSite()

static HRESULT WINAPI ActiveScript_SetScriptSite ( IActiveScript *  iface, IActiveScriptSite *  pass  )

static

Definition at line 2457 of file script.c.

{
    IActiveScriptSiteInterruptPoll *poll;
    IActiveScriptSiteDebug *debug;
    IServiceProvider *service;
    ICanHandleException *canexpection;
    LCID lcid;
    HRESULT hres;
 
    CHECK_EXPECT(SetScriptSite);
 
    ok(pass != NULL, "pass == NULL\n");
 
    hres = IActiveScriptSite_QueryInterface(pass, &IID_IActiveScriptSiteInterruptPoll, (void**)&poll);
    ok(hres == S_OK, "Could not get IActiveScriptSiteInterruptPoll interface: %08x\n", hres);
    if(FAILED(hres))
        IActiveScriptSiteInterruptPoll_Release(poll);
 
    hres = IActiveScriptSite_GetLCID(pass, &lcid);
    ok(hres == S_OK, "GetLCID failed: %08x\n", hres);
 
    hres = IActiveScriptSite_OnStateChange(pass, (state = SCRIPTSTATE_INITIALIZED));
    ok(hres == S_OK, "OnStateChange failed: %08x\n", hres);
 
    hres = IActiveScriptSite_QueryInterface(pass, &IID_IActiveScriptSiteDebug, (void**)&debug);
    ok(hres == S_OK, "Could not get IActiveScriptSiteDebug interface: %08x\n", hres);
    if(SUCCEEDED(hres))
        IActiveScriptSiteDebug_Release(debug);
 
    hres = IActiveScriptSite_QueryInterface(pass, &IID_ICanHandleException, (void**)&canexpection);
    ok(hres == E_NOINTERFACE, "Could not get IID_ICanHandleException interface: %08x\n", hres);
 
    hres = IActiveScriptSite_QueryInterface(pass, &IID_IServiceProvider, (void**)&service);
    ok(hres == S_OK, "Could not get IServiceProvider interface: %08x\n", hres);
    if(SUCCEEDED(hres))
        IServiceProvider_Release(service);
 
    site = pass;
    IActiveScriptSite_AddRef(site);
    return S_OK;
}

ActiveScript_SetScriptState()

static HRESULT WINAPI ActiveScript_SetScriptState ( IActiveScript *  iface, SCRIPTSTATE  ss  )

static

Definition at line 2506 of file script.c.

{
    HRESULT hres;
 
    switch(ss) {
    case SCRIPTSTATE_STARTED:
        CHECK_EXPECT(SetScriptState_STARTED);
        break;
    case SCRIPTSTATE_CONNECTED:
        CHECK_EXPECT(SetScriptState_CONNECTED);
        break;
    case SCRIPTSTATE_DISCONNECTED:
        CHECK_EXPECT(SetScriptState_DISCONNECTED);
        break;
    default:
        ok(0, "unexpected state %d\n", ss);
        return E_NOTIMPL;
    }
 
    hres = IActiveScriptSite_OnStateChange(site, (state = ss));
    ok(hres == S_OK, "OnStateChange failed: %08x\n", hres);
 
    return S_OK;
}

ActiveScriptParse_AddRef()

static ULONG WINAPI ActiveScriptParse_AddRef ( IActiveScriptParse *  iface )

static

Definition at line 1829 of file script.c.

{
    return 2;
}

ActiveScriptParse_AddScriptlet()

static HRESULT WINAPI ActiveScriptParse_AddScriptlet ( IActiveScriptParse *  iface, LPCOLESTR  pstrDefaultName, LPCOLESTR  pstrCode, LPCOLESTR  pstrItemName, LPCOLESTR  pstrSubItemName, LPCOLESTR  pstrEventName, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLineNumber, DWORD  dwFlags, BSTR *  pbstrName, EXCEPINFO *  pexcepinfo  )

static

Definition at line 1845 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScriptParse_InitNew()

static HRESULT WINAPI ActiveScriptParse_InitNew ( IActiveScriptParse *  iface )

static

Definition at line 1839 of file script.c.

{
    CHECK_EXPECT(InitNew);
    return S_OK;
}

ActiveScriptParse_ParseScriptText()

static HRESULT WINAPI ActiveScriptParse_ParseScriptText ( IActiveScriptParse *  iface, LPCOLESTR  pstrCode, LPCOLESTR  pstrItemName, IUnknown *  punkContext, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLine, DWORD  dwFlags, VARIANT *  pvarResult, EXCEPINFO *  pexcepinfo  )

static

Definition at line 2369 of file script.c.

{
    ok(pvarResult != NULL, "pvarResult == NULL\n");
    ok(pexcepinfo != NULL, "pexcepinfo == NULL\n");
 
    if(!strcmp_wa(pstrCode, "execScript call")) {
        CHECK_EXPECT(ParseScriptText_execScript);
        ok(!pstrItemName, "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName));
        ok(!strcmp_wa(pstrDelimiter, "\""), "pstrDelimiter = %s\n", wine_dbgstr_w(pstrDelimiter));
        ok(dwFlags == SCRIPTTEXT_ISVISIBLE, "dwFlags = %x\n", dwFlags);
 
        V_VT(pvarResult) = VT_I4;
        V_I4(pvarResult) = 10;
        return S_OK;
    }else if(!strcmp_wa(pstrCode, "simple script")) {
        CHECK_EXPECT(ParseScriptText_script);
        ok(!strcmp_wa(pstrItemName, "window"), "pstrItemName = %s\n", wine_dbgstr_w(pstrItemName));
        ok(!strcmp_wa(pstrDelimiter, "</SCRIPT>"), "pstrDelimiter = %s\n", wine_dbgstr_w(pstrDelimiter));
        ok(dwFlags == (SCRIPTTEXT_ISVISIBLE|SCRIPTTEXT_HOSTMANAGESSOURCE), "dwFlags = %x\n", dwFlags);
 
        test_script_run();
        return S_OK;
    }
 
    ok(0, "unexpected script %s\n", wine_dbgstr_w(pstrCode));
    return E_FAIL;
}

ActiveScriptParse_QueryInterface()

static HRESULT WINAPI ActiveScriptParse_QueryInterface ( IActiveScriptParse *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1822 of file script.c.

{
    *ppv = NULL;
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

ActiveScriptParse_Release()

static ULONG WINAPI ActiveScriptParse_Release ( IActiveScriptParse *  iface )

static

Definition at line 1834 of file script.c.

{
    return 1;
}

ActiveScriptParseProcedure_AddRef()

static ULONG WINAPI ActiveScriptParseProcedure_AddRef ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 1794 of file script.c.

{
    return 2;
}

ActiveScriptParseProcedure_ParseProcedureText()

static HRESULT WINAPI ActiveScriptParseProcedure_ParseProcedureText ( IActiveScriptParseProcedure2 *  iface, LPCOLESTR  pstrCode, LPCOLESTR  pstrFormalParams, LPCOLESTR  pstrProcedureName, LPCOLESTR  pstrItemName, IUnknown *  punkContext, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLineNumber, DWORD  dwFlags, IDispatch **  ppdisp  )

static

Definition at line 1804 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScriptParseProcedure_QueryInterface()

static HRESULT WINAPI ActiveScriptParseProcedure_QueryInterface ( IActiveScriptParseProcedure2 *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1787 of file script.c.

{
    *ppv = NULL;
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

ActiveScriptParseProcedure_Release()

static ULONG WINAPI ActiveScriptParseProcedure_Release ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 1799 of file script.c.

{
    return 1;
}

ActiveScriptProperty_AddRef()

static ULONG WINAPI ActiveScriptProperty_AddRef ( IActiveScriptProperty *  iface )

static

Definition at line 1728 of file script.c.

{
    return 2;
}

ActiveScriptProperty_GetProperty()

static HRESULT WINAPI ActiveScriptProperty_GetProperty ( IActiveScriptProperty *  iface, DWORD  dwProperty, VARIANT *  pvarIndex, VARIANT *  pvarValue  )

static

Definition at line 1738 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ActiveScriptProperty_QueryInterface()

static HRESULT WINAPI ActiveScriptProperty_QueryInterface ( IActiveScriptProperty *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1721 of file script.c.

{
    *ppv = NULL;
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

ActiveScriptProperty_Release()

static ULONG WINAPI ActiveScriptProperty_Release ( IActiveScriptProperty *  iface )

static

Definition at line 1733 of file script.c.

{
    return 1;
}

ActiveScriptProperty_SetProperty()

static HRESULT WINAPI ActiveScriptProperty_SetProperty ( IActiveScriptProperty *  iface, DWORD  dwProperty, VARIANT *  pvarIndex, VARIANT *  pvarValue  )

static

Definition at line 1745 of file script.c.

{
    switch(dwProperty) {
    case SCRIPTPROP_HACK_TRIDENTEVENTSINK:
        CHECK_EXPECT(SetProperty_HACK_TRIDENTEVENTSINK);
        ok(V_VT(pvarValue) == VT_BOOL, "V_VT(pvarValue)=%d\n", V_VT(pvarValue));
        ok(V_BOOL(pvarValue) == VARIANT_TRUE, "V_BOOL(pvarValue)=%x\n", V_BOOL(pvarValue));
        break;
    case SCRIPTPROP_INVOKEVERSIONING:
        CHECK_EXPECT(SetProperty_INVOKEVERSIONING);
        ok(V_VT(pvarValue) == VT_I4, "V_VT(pvarValue)=%d\n", V_VT(pvarValue));
        ok(V_I4(pvarValue) == 1, "V_I4(pvarValue)=%d\n", V_I4(pvarValue));
        break;
    case SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION:
        CHECK_EXPECT(SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION);
        ok(V_VT(pvarValue) == VT_BOOL, "V_VT(pvarValue)=%d\n", V_VT(pvarValue));
        ok(V_BOOL(pvarValue) == VARIANT_TRUE, "V_BOOL(pvarValue)=%x\n", V_BOOL(pvarValue));
        break;
    case 0x70000003: /* Undocumented property set by IE10 */
        return E_NOTIMPL;
    default:
        ok(0, "unexpected property %x\n", dwProperty);
        return E_NOTIMPL;
    }
 
    ok(!pvarIndex, "pvarIndex != NULL\n");
    ok(pvarValue != NULL, "pvarValue == NULL\n");
 
    return S_OK;
}

AXObjectSafety_GetInterfaceSafetyOptions()

static HRESULT WINAPI AXObjectSafety_GetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD *  pdwSupportedOptions, DWORD *  pdwEnabledOptions  )

static

Definition at line 1379 of file script.c.

{
    CHECK_EXPECT(AXGetInterfaceSafetyOptions);
 
    ok(IsEqualGUID(&IID_IDispatchEx, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
    ok(pdwSupportedOptions != NULL, "pdwSupportedOptions == NULL\n");
    ok(pdwEnabledOptions != NULL, "pdwEnabledOptions == NULL\n");
 
    if(SUCCEEDED(ax_getopt_hres)) {
        *pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER;
        *pdwEnabledOptions = INTERFACE_USES_DISPEX;
    }
 
    return ax_getopt_hres;
}

AXObjectSafety_QueryInterface()

static HRESULT WINAPI AXObjectSafety_QueryInterface ( IObjectSafety *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1358 of file script.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(&IID_IActiveScript, riid)) {
        CHECK_EXPECT(AXQueryInterface_IActiveScript);
        return E_NOINTERFACE;
    }
 
    if(IsEqualGUID(&IID_IObjectSafety, riid)) {
        CHECK_EXPECT2(AXQueryInterface_IObjectSafety);
        if(!ax_objsafe)
            return E_NOINTERFACE;
        *ppv = iface;
        return S_OK;
    }
 
    ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid));
    return E_NOINTERFACE;
}

AXObjectSafety_SetInterfaceSafetyOptions()

static HRESULT WINAPI AXObjectSafety_SetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD  dwOptionSetMask, DWORD  dwEnabledOptions  )

static

Definition at line 1396 of file script.c.

{
    if(IsEqualGUID(&IID_IDispatchEx, riid)) {
        switch(dwEnabledOptions) {
        case INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACE_USES_SECURITY_MANAGER:
            CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr);
            break;
        case INTERFACESAFE_FOR_UNTRUSTED_CALLER:
            CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller);
            break;
        default:
            ok(0, "unexpected dwEnabledOptions %x\n", dwEnabledOptions);
        }
 
        ok(dwOptionSetMask == dwEnabledOptions, "dwOptionSetMask=%x, expected %x\n", dwOptionSetMask, dwEnabledOptions);
        return ax_setopt_dispex_hres;
    }
 
    if(IsEqualGUID(&IID_IDispatch, riid)) {
        HRESULT hres;
 
        switch(dwEnabledOptions) {
        case INTERFACESAFE_FOR_UNTRUSTED_CALLER:
            CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_caller);
            hres = ax_setopt_disp_caller_hres;
            break;
        case INTERFACESAFE_FOR_UNTRUSTED_DATA:
            CHECK_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data);
            hres = ax_setopt_disp_data_hres;
            break;
        default:
            ok(0, "unexpected dwEnabledOptions %x\n", dwEnabledOptions);
            hres = E_FAIL;
        }
        ok(dwOptionSetMask == dwEnabledOptions, "dwOptionSetMask=%x, expected %x\n", dwOptionSetMask, dwEnabledOptions);
        return hres;
    }
 
    ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
    return E_NOINTERFACE;
}

check_ie()

static BOOL check_ie ( void  )

static

Definition at line 2917 of file script.c.

{
    IHTMLDocument2 *doc;
    IHTMLDocument5 *doc5;
    IHTMLDocument7 *doc7;
    HRESULT hres;
 
    doc = create_document();
    if(!doc)
        return FALSE;
 
    hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument7, (void**)&doc7);
    if(SUCCEEDED(hres)) {
        is_ie9plus = TRUE;
        IHTMLDocument7_Release(doc7);
    }
 
    trace("is_ie9plus %x\n", is_ie9plus);
 
    hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
    if(SUCCEEDED(hres))
        IHTMLDocument5_Release(doc5);
 
    IHTMLDocument2_Release(doc);
    return SUCCEEDED(hres);
}

Referenced by START_TEST().

ClassFactory_AddRef()

static ULONG WINAPI ClassFactory_AddRef ( IClassFactory *  iface )

static

Definition at line 2676 of file script.c.

{
    return 2;
}

ClassFactory_CreateInstance()

static HRESULT WINAPI ClassFactory_CreateInstance ( IClassFactory *  iface, IUnknown *  outer, REFIID  riid, void **  ppv  )

static

Definition at line 2686 of file script.c.

{
    CHECK_EXPECT(CreateInstance);
 
    ok(!outer, "outer = %p\n", outer);
    ok(IsEqualGUID(&IID_IActiveScript, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
    *ppv = &ActiveScript;
    return S_OK;
}

ClassFactory_LockServer()

static HRESULT WINAPI ClassFactory_LockServer ( IClassFactory *  iface, BOOL  dolock  )

static

Definition at line 2696 of file script.c.

{
    ok(0, "unexpected call\n");
    return S_OK;
}

ClassFactory_QueryInterface()

static HRESULT WINAPI ClassFactory_QueryInterface ( IClassFactory *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 2658 of file script.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    if(IsEqualGUID(&IID_IMarshal, riid))
        return E_NOINTERFACE;
    if(IsEqualGUID(&CLSID_IdentityUnmarshal, riid))
        return E_NOINTERFACE;
 
    ok(0, "unexpected riid %s\n", wine_dbgstr_guid(riid));
    return E_NOTIMPL;
}

ClassFactory_Release()

static ULONG WINAPI ClassFactory_Release ( IClassFactory *  iface )

static

Definition at line 2681 of file script.c.

{
    return 1;
}

ClientSite_AddRef()

static ULONG WINAPI ClientSite_AddRef ( IOleClientSite *  iface )

static

Definition at line 1056 of file script.c.

{
    return 2;
}

ClientSite_GetContainer()

static HRESULT WINAPI ClientSite_GetContainer ( IOleClientSite *  iface, IOleContainer **  ppContainer  )

static

Definition at line 1079 of file script.c.

{
    return E_NOTIMPL;
}

ClientSite_GetMoniker()

static HRESULT WINAPI ClientSite_GetMoniker ( IOleClientSite *  iface, DWORD  dwAssign, DWORD  dwWhichMoniker, IMoniker **  ppmon  )

static

Definition at line 1072 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ClientSite_OnShowWindow()

static HRESULT WINAPI ClientSite_OnShowWindow ( IOleClientSite *  iface, BOOL  fShow  )

static

Definition at line 1090 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ClientSite_QueryInterface()

static HRESULT WINAPI ClientSite_QueryInterface ( IOleClientSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1051 of file script.c.

{
    return QueryInterface(riid, ppv);
}

ClientSite_Release()

static ULONG WINAPI ClientSite_Release ( IOleClientSite *  iface )

static

Definition at line 1061 of file script.c.

{
    return 1;
}

ClientSite_RequestNewObjectLayout()

static HRESULT WINAPI ClientSite_RequestNewObjectLayout ( IOleClientSite *  iface )

static

Definition at line 1096 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ClientSite_SaveObject()

static HRESULT WINAPI ClientSite_SaveObject ( IOleClientSite *  iface )

static

Definition at line 1066 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

ClientSite_ShowObject()

static HRESULT WINAPI ClientSite_ShowObject ( IOleClientSite *  iface )

static

Definition at line 1084 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

create_container_window()

static HWND create_container_window ( void  )

static

Definition at line 2899 of file script.c.

{
    static const CHAR szHTMLDocumentTest[] = "HTMLDocumentTest";
    static WNDCLASSEXA wndclass = {
        sizeof(WNDCLASSEXA),
        0,
        wnd_proc,
        0, 0, NULL, NULL, NULL, NULL, NULL,
        szHTMLDocumentTest,
        NULL
    };
 
    RegisterClassExA(&wndclass);
    return CreateWindowA(szHTMLDocumentTest, szHTMLDocumentTest,
            WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT,
            300, 300, NULL, NULL, NULL, NULL);
}

Referenced by START_TEST().

create_document()

static IHTMLDocument2 * create_document ( void  )

static

Definition at line 1184 of file script.c.

{
    IHTMLDocument2 *doc;
    HRESULT hres;
 
    hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
            &IID_IHTMLDocument2, (void**)&doc);
    ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
    return SUCCEEDED(hres) ? doc : NULL;
}

Referenced by check_ie(), run_js_script(), and test_simple_script().

DEFINE_EXPECT() [1/34]

DEFINE_EXPECT

(

AddNamedItem

)

DEFINE_EXPECT() [2/34]

DEFINE_EXPECT

(

AXGetInterfaceSafetyOptions

)

DEFINE_EXPECT() [3/34]

DEFINE_EXPECT

(

AXQueryInterface_IActiveScript

)

DEFINE_EXPECT() [4/34]

DEFINE_EXPECT

(

AXQueryInterface_IObjectSafety

)

DEFINE_EXPECT() [5/34]

DEFINE_EXPECT

(

AXSetInterfaceSafetyOptions_IDispatch_caller

)

DEFINE_EXPECT() [6/34]

DEFINE_EXPECT

(

AXSetInterfaceSafetyOptions_IDispatch_data

)

DEFINE_EXPECT() [7/34]

DEFINE_EXPECT

(

AXSetInterfaceSafetyOptions_IDispatchEx_caller

)

DEFINE_EXPECT() [8/34]

DEFINE_EXPECT

(

AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr

)

DEFINE_EXPECT() [9/34]

DEFINE_EXPECT

(

ChangeType

)

DEFINE_EXPECT() [10/34]

DEFINE_EXPECT

(

Close

)

DEFINE_EXPECT() [11/34]

DEFINE_EXPECT

(

CreateInstance

)

DEFINE_EXPECT() [12/34]

DEFINE_EXPECT

(

external_success

)

DEFINE_EXPECT() [13/34]

DEFINE_EXPECT

(

funcDisp

)

DEFINE_EXPECT() [14/34]

DEFINE_EXPECT

(

GetInterfaceSafetyOptions

)

DEFINE_EXPECT() [15/34]

DEFINE_EXPECT

(

GetScriptDispatch

)

DEFINE_EXPECT() [16/34]

DEFINE_EXPECT

(

GetScriptState

)

DEFINE_EXPECT() [17/34]

DEFINE_EXPECT

(

InitNew

)

DEFINE_EXPECT() [18/34]

DEFINE_EXPECT

(

ParseScriptText_execScript

)

DEFINE_EXPECT() [19/34]

DEFINE_EXPECT

(

ParseScriptText_script

)

DEFINE_EXPECT() [20/34]

DEFINE_EXPECT

(

QS_GetCaller

)

DEFINE_EXPECT() [21/34]

DEFINE_EXPECT

(

QS_IActiveScriptSite

)

DEFINE_EXPECT() [22/34]

DEFINE_EXPECT

(

QS_VariantConversion

)

DEFINE_EXPECT() [23/34]

DEFINE_EXPECT

(

script_divid_d

)

DEFINE_EXPECT() [24/34]

DEFINE_EXPECT

(

script_testprop2_d

)

DEFINE_EXPECT() [25/34]

DEFINE_EXPECT

(

script_testprop_d

)

DEFINE_EXPECT() [26/34]

DEFINE_EXPECT

(

script_testprop_i

)

DEFINE_EXPECT() [27/34]

DEFINE_EXPECT

(

SetInterfaceSafetyOptions

)

DEFINE_EXPECT() [28/34]

DEFINE_EXPECT

(

SetProperty_ABBREVIATE_GLOBALNAME_RESOLUTION

)

DEFINE_EXPECT() [29/34]

DEFINE_EXPECT

(

SetProperty_HACK_TRIDENTEVENTSINK

)

DEFINE_EXPECT() [30/34]

DEFINE_EXPECT

(

SetProperty_INVOKEVERSIONING

)

DEFINE_EXPECT() [31/34]

DEFINE_EXPECT

(

SetScriptSite

)

DEFINE_EXPECT() [32/34]

DEFINE_EXPECT

(

SetScriptState_CONNECTED

)

DEFINE_EXPECT() [33/34]

DEFINE_EXPECT

(

SetScriptState_DISCONNECTED

)

DEFINE_EXPECT() [34/34]

DEFINE_EXPECT

(

SetScriptState_STARTED

)

DEFINE_GUID()

DEFINE_GUID	(	CLSID_IdentityUnmarshal	,
		0x0000001b	,
		0x0000	,
		0x0000	,
		0xc0	,
		0x00	,
		0x00	,
		0x00	,
		0x00	,
		0x00	,
		0x00	,
		0x46
	)

DispatchEx_AddRef()

static ULONG WINAPI DispatchEx_AddRef ( IDispatchEx *  iface )

static

Definition at line 362 of file script.c.

{
    return 2;
}

DispatchEx_DeleteMemberByDispID()

static HRESULT WINAPI DispatchEx_DeleteMemberByDispID ( IDispatchEx *  iface, DISPID  id  )

static

Definition at line 407 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_DeleteMemberByName()

static HRESULT WINAPI DispatchEx_DeleteMemberByName ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex  )

static

Definition at line 401 of file script.c.

{
    ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
    return E_NOTIMPL;
}

DispatchEx_GetDispID()

static HRESULT WINAPI DispatchEx_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 437 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetIDsOfNames()

static HRESULT WINAPI DispatchEx_GetIDsOfNames ( IDispatchEx *  iface, REFIID  riid, LPOLESTR *  rgszNames, UINT  cNames, LCID  lcid, DISPID *  rgDispId  )

static

Definition at line 385 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberName()

static HRESULT WINAPI DispatchEx_GetMemberName ( IDispatchEx *  iface, DISPID  id, BSTR *  pbstrName  )

static

Definition at line 419 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberProperties()

static HRESULT WINAPI DispatchEx_GetMemberProperties ( IDispatchEx *  iface, DISPID  id, DWORD  grfdexFetch, DWORD *  pgrfdex  )

static

Definition at line 413 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNameSpaceParent()

static HRESULT WINAPI DispatchEx_GetNameSpaceParent ( IDispatchEx *  iface, IUnknown **  ppunk  )

static

Definition at line 431 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNextDispID()

static HRESULT WINAPI DispatchEx_GetNextDispID ( IDispatchEx *  iface, DWORD  grfdex, DISPID  id, DISPID *  pid  )

static

Definition at line 425 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfo()

static HRESULT WINAPI DispatchEx_GetTypeInfo ( IDispatchEx *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 378 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfoCount()

static HRESULT WINAPI DispatchEx_GetTypeInfoCount ( IDispatchEx *  iface, UINT *  pctinfo  )

static

Definition at line 372 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_Invoke()

static HRESULT WINAPI DispatchEx_Invoke ( IDispatchEx *  iface, DISPID  dispIdMember, REFIID  riid, LCID  lcid, WORD  wFlags, DISPPARAMS *  pDispParams, VARIANT *  pVarResult, EXCEPINFO *  pExcepInfo, UINT *  puArgErr  )

static

Definition at line 393 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_QueryInterface()

static HRESULT WINAPI DispatchEx_QueryInterface ( IDispatchEx *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 348 of file script.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(riid, &IID_IUnknown)
       || IsEqualGUID(riid, &IID_IDispatch)
       || IsEqualGUID(riid, &IID_IDispatchEx))
        *ppv = iface;
    else
        return E_NOINTERFACE;
 
    return S_OK;
}

DispatchEx_Release()

static ULONG WINAPI DispatchEx_Release ( IDispatchEx *  iface )

static

Definition at line 367 of file script.c.

{
    return 1;
}

dispex_propget()

static HRESULT dispex_propget ( IDispatchEx *  obj, DISPID  id, VARIANT *  res, IServiceProvider *  caller_sp  )

static

Definition at line 1864 of file script.c.

{
    DISPPARAMS dp = {NULL};
    EXCEPINFO ei = {0};
 
    return IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dp, res, &ei, caller_sp);
}

Referenced by test_arg_conv(), and test_func().

dispex_propput()

static HRESULT dispex_propput ( IDispatchEx *  obj, DISPID  id, DWORD  flags, VARIANT *  var, IServiceProvider *  caller_sp  )

static

Definition at line 1855 of file script.c.

{
    DISPID propput_arg = DISPID_PROPERTYPUT;
    DISPPARAMS dp = {var, &propput_arg, 1, 1};
    EXCEPINFO ei = {0};
 
    return IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT|flags, &dp, NULL, &ei, caller_sp);
}

Referenced by test_arg_conv(), test_default_arg_conv(), test_func(), test_nextdispid(), and test_script_run().

do_advise()

static void do_advise ( IHTMLDocument2 *  doc, REFIID  riid, IUnknown *  unk_advise  )

static

Definition at line 1215 of file script.c.

{
    IConnectionPointContainer *container;
    IConnectionPoint *cp;
    DWORD cookie;
    HRESULT hres;
 
    hres = IHTMLDocument2_QueryInterface(doc, &IID_IConnectionPointContainer, (void**)&container);
    ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
 
    hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
    IConnectionPointContainer_Release(container);
    ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
 
    notif_doc = doc;
 
    hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
    IConnectionPoint_Release(cp);
    ok(hres == S_OK, "Advise failed: %08x\n", hres);
}

Referenced by load_doc(), and run_js_script().

DocHostUIHandler_AddRef()

static ULONG WINAPI DocHostUIHandler_AddRef ( IDocHostUIHandler2 *  iface )

static

Definition at line 711 of file script.c.

{
    return 2;
}

DocHostUIHandler_EnableModeless()

static HRESULT WINAPI DocHostUIHandler_EnableModeless ( IDocHostUIHandler2 *  iface, BOOL  fEnable  )

static

Definition at line 749 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_FilterDataObject()

static HRESULT WINAPI DocHostUIHandler_FilterDataObject ( IDocHostUIHandler2 *  iface, IDataObject *  pDO, IDataObject **  ppPORet  )

static

Definition at line 800 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_GetDropTarget()

static HRESULT WINAPI DocHostUIHandler_GetDropTarget ( IDocHostUIHandler2 *  iface, IDropTarget *  pDropTarget, IDropTarget **  ppDropTarget  )

static

Definition at line 782 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_GetExternal()

static HRESULT WINAPI DocHostUIHandler_GetExternal ( IDocHostUIHandler2 *  iface, IDispatch **  ppDispatch  )

static

Definition at line 788 of file script.c.

{
    *ppDispatch = (IDispatch*)&externalDisp;
    return S_OK;
}

DocHostUIHandler_GetHostInfo()

static HRESULT WINAPI DocHostUIHandler_GetHostInfo ( IDocHostUIHandler2 *  iface, DOCHOSTUIINFO *  pInfo  )

static

Definition at line 727 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_GetOptionKeyPath()

static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath ( IDocHostUIHandler2 *  iface, LPOLESTR *  pchKey, DWORD  dw  )

static

Definition at line 776 of file script.c.

{
    return S_OK;
}

DocHostUIHandler_GetOverrideKeyPath()

static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath ( IDocHostUIHandler2 *  iface, LPOLESTR *  pchKey, DWORD  dw  )

static

Definition at line 806 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_HideUI()

static HRESULT WINAPI DocHostUIHandler_HideUI ( IDocHostUIHandler2 *  iface )

static

Definition at line 739 of file script.c.

{
    return S_OK;
}

DocHostUIHandler_OnDocWindowActivate()

static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate ( IDocHostUIHandler2 *  iface, BOOL  fActivate  )

static

Definition at line 754 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_OnFrameWindowActivate()

static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate ( IDocHostUIHandler2 *  iface, BOOL  fActivate  )

static

Definition at line 759 of file script.c.

{
    return S_OK;
}

DocHostUIHandler_QueryInterface()

static HRESULT WINAPI DocHostUIHandler_QueryInterface ( IDocHostUIHandler2 *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 706 of file script.c.

{
    return QueryInterface(riid, ppv);
}

DocHostUIHandler_Release()

static ULONG WINAPI DocHostUIHandler_Release ( IDocHostUIHandler2 *  iface )

static

Definition at line 716 of file script.c.

{
    return 1;
}

DocHostUIHandler_ResizeBorder()

static HRESULT WINAPI DocHostUIHandler_ResizeBorder ( IDocHostUIHandler2 *  iface, LPCRECT  prcBorder, IOleInPlaceUIWindow *  pUIWindow, BOOL  fRameWindow  )

static

Definition at line 764 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_ShowContextMenu()

static HRESULT WINAPI DocHostUIHandler_ShowContextMenu ( IDocHostUIHandler2 *  iface, DWORD  dwID, POINT *  ppt, IUnknown *  pcmdtReserved, IDispatch *  pdicpReserved  )

static

Definition at line 721 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_ShowUI()

static HRESULT WINAPI DocHostUIHandler_ShowUI ( IDocHostUIHandler2 *  iface, DWORD  dwID, IOleInPlaceActiveObject *  pActiveObject, IOleCommandTarget *  pCommandTarget, IOleInPlaceFrame *  pFrame, IOleInPlaceUIWindow *  pDoc  )

static

Definition at line 732 of file script.c.

{
    return S_OK;
}

DocHostUIHandler_TranslateAccelerator()

static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator ( IDocHostUIHandler2 *  iface, LPMSG  lpMsg, const GUID *  pguidCmdGroup, DWORD  nCmdID  )

static

Definition at line 770 of file script.c.

{
    return E_NOTIMPL;
}

DocHostUIHandler_TranslateUrl()

static HRESULT WINAPI DocHostUIHandler_TranslateUrl ( IDocHostUIHandler2 *  iface, DWORD  dwTranslate, OLECHAR *  pchURLIn, OLECHAR **  ppchURLOut  )

static

Definition at line 794 of file script.c.

{
    return S_FALSE;
}

DocHostUIHandler_UpdateUI()

static HRESULT WINAPI DocHostUIHandler_UpdateUI ( IDocHostUIHandler2 *  iface )

static

Definition at line 744 of file script.c.

{
    return S_OK;
}

DocumentSite_ActivateMe()

static HRESULT WINAPI DocumentSite_ActivateMe ( IOleDocumentSite *  iface, IOleDocumentView *  pViewToActivate  )

static

Definition at line 1131 of file script.c.

{
    RECT rect = {0,0,300,300};
    IOleDocument *document;
    HRESULT hres;
 
    hres = IOleDocumentView_QueryInterface(pViewToActivate, &IID_IOleDocument, (void**)&document);
    ok(hres == S_OK, "could not get IOleDocument: %08x\n", hres);
 
    hres = IOleDocument_CreateView(document, &InPlaceSite, NULL, 0, &view);
    IOleDocument_Release(document);
    ok(hres == S_OK, "CreateView failed: %08x\n", hres);
 
    hres = IOleDocumentView_SetInPlaceSite(view, &InPlaceSite);
    ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
 
    hres = IOleDocumentView_UIActivate(view, TRUE);
    ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
 
    hres = IOleDocumentView_SetRect(view, &rect);
    ok(hres == S_OK, "SetRect failed: %08x\n", hres);
 
    hres = IOleDocumentView_Show(view, TRUE);
    ok(hres == S_OK, "Show failed: %08x\n", hres);
 
    return S_OK;
}

DocumentSite_AddRef()

static ULONG WINAPI DocumentSite_AddRef ( IOleDocumentSite *  iface )

static

Definition at line 1121 of file script.c.

{
    return 2;
}

DocumentSite_QueryInterface()

static HRESULT WINAPI DocumentSite_QueryInterface ( IOleDocumentSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1116 of file script.c.

{
    return QueryInterface(riid, ppv);
}

DocumentSite_Release()

static ULONG WINAPI DocumentSite_Release ( IOleDocumentSite *  iface )

static

Definition at line 1126 of file script.c.

{
    return 1;
}

externalDisp_GetDispID()

static HRESULT WINAPI externalDisp_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 561 of file script.c.

{
    if(!strcmp_wa(bstrName, "ok")) {
        *pid = DISPID_EXTERNAL_OK;
        return S_OK;
    }
    if(!strcmp_wa(bstrName, "trace")) {
        *pid = DISPID_EXTERNAL_TRACE;
        return S_OK;
    }
    if(!strcmp_wa(bstrName, "reportSuccess")) {
        *pid = DISPID_EXTERNAL_REPORTSUCCESS;
        return S_OK;
    }
    if(!strcmp_wa(bstrName, "todo_wine_ok")) {
        *pid = DISPID_EXTERNAL_TODO_WINE_OK;
        return S_OK;
    }
    if(!strcmp_wa(bstrName, "broken")) {
        *pid = DISPID_EXTERNAL_BROKEN;
        return S_OK;
    }
 
    ok(0, "unexpected name %s\n", wine_dbgstr_w(bstrName));
    return DISP_E_UNKNOWNNAME;
}

externalDisp_InvokeEx()

static HRESULT WINAPI externalDisp_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 588 of file script.c.

{
    switch(id) {
    case DISPID_EXTERNAL_OK: {
        VARIANT *b, *m;
 
        ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(pei != NULL, "pei == NULL\n");
 
        m = pdp->rgvarg;
        if(V_VT(m) == (VT_BYREF|VT_VARIANT))
            m = V_BYREF(m);
        ok(V_VT(m) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
 
        b = pdp->rgvarg+1;
        if(V_VT(b) == (VT_BYREF|VT_VARIANT))
            b = V_BYREF(b);
        ok(V_VT(b) == VT_BOOL, "V_VT(b) = %d\n", V_VT(b));
 
        ok(V_BOOL(b), "%s\n", wine_dbgstr_w(V_BSTR(m)));
        return S_OK;
    }
 
     case DISPID_EXTERNAL_TRACE:
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
 
        ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
        if(V_VT(pdp->rgvarg) == VT_BSTR)
            trace("%s\n", wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 
        return S_OK;
 
    case DISPID_EXTERNAL_REPORTSUCCESS:
        CHECK_EXPECT(external_success);
 
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
 
        return S_OK;
 
    case DISPID_EXTERNAL_TODO_WINE_OK:
        ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(pei != NULL, "pei == NULL\n");
 
        ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
        ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(pdp->rgvarg));
        todo_wine
        ok(V_BOOL(pdp->rgvarg+1), "%s\n", wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
 
        return S_OK;
 
    case DISPID_EXTERNAL_BROKEN:
        ok(wFlags == INVOKE_FUNC || wFlags == (INVOKE_FUNC|INVOKE_PROPERTYGET), "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(pei != NULL, "pei == NULL\n");
 
        ok(V_VT(pdp->rgvarg) == VT_BOOL, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
        V_VT(pvarRes) = VT_BOOL;
        V_BOOL(pvarRes) = broken(V_BOOL(pdp->rgvarg)) ? VARIANT_TRUE : VARIANT_FALSE;
        return S_OK;
 
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

funcDisp_InvokeEx()

static HRESULT WINAPI funcDisp_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 443 of file script.c.

{
    CHECK_EXPECT(funcDisp);
 
    ok(id == DISPID_VALUE, "id = %d\n", id);
    ok(lcid == 0, "lcid = %x\n", lcid);
    ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
    ok(pdp != NULL, "pdp == NULL\n");
    ok(pdp->cArgs == 2, "pdp->cArgs = %d\n", pdp->cArgs);
    ok(pdp->cNamedArgs == 1, "pdp->cNamedArgs = %d\n", pdp->cNamedArgs);
    ok(pdp->rgdispidNamedArgs[0] == DISPID_THIS, "pdp->rgdispidNamedArgs[0] = %d\n", pdp->rgdispidNamedArgs[0]);
    ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg));
    ok(V_VT(pdp->rgvarg+1) == VT_BOOL, "V_VT(rgvarg[1]) = %d\n", V_VT(pdp->rgvarg));
    ok(V_BOOL(pdp->rgvarg+1) == VARIANT_TRUE, "V_BOOL(rgvarg[1]) = %x\n", V_BOOL(pdp->rgvarg));
    ok(pvarRes != NULL, "pvarRes == NULL\n");
    ok(pei != NULL, "pei == NULL\n");
    ok(!pspCaller, "pspCaller != NULL\n");
 
    V_VT(pvarRes) = VT_I4;
    V_I4(pvarRes) = 100;
    return S_OK;
}

init_key()

static BOOL init_key ( const char *  key_name, const char *  def_value, BOOL  init  )

static

Definition at line 174 of file script.c.

{
    HKEY hkey;
    DWORD res;
 
    if(!init) {
        RegDeleteKeyA(HKEY_CLASSES_ROOT, key_name);
        return TRUE;
    }
 
    res = RegCreateKeyA(HKEY_CLASSES_ROOT, key_name, &hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    if(def_value)
        res = RegSetValueA(hkey, NULL, REG_SZ, def_value, strlen(def_value));
 
    RegCloseKey(hkey);
 
    return res == ERROR_SUCCESS;
}

Referenced by init_registry(), and set_safe_reg().

init_registry()

static BOOL init_registry ( BOOL  init )

static

Definition at line 2868 of file script.c.

{
    return init_key("TestScript\\CLSID", TESTSCRIPT_CLSID, init)
        && init_key("CLSID\\"TESTSCRIPT_CLSID"\\Implemented Categories\\{F0B7A1A1-9847-11CF-8F20-00805F2CD064}",
                    NULL, init)
        && init_key("CLSID\\"TESTSCRIPT_CLSID"\\Implemented Categories\\{F0B7A1A2-9847-11CF-8F20-00805F2CD064}",
                    NULL, init);
}

Referenced by register_script_engine(), and START_TEST().

InPlaceFrame_AddRef()

static ULONG WINAPI InPlaceFrame_AddRef ( IOleInPlaceFrame *  iface )

static

Definition at line 841 of file script.c.

{
    return 2;
}

InPlaceFrame_ContextSensitiveHelp()

static HRESULT WINAPI InPlaceFrame_ContextSensitiveHelp ( IOleInPlaceFrame *  iface, BOOL  fEnterMode  )

static

Definition at line 856 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_EnableModeless()

static HRESULT WINAPI InPlaceFrame_EnableModeless ( IOleInPlaceFrame *  iface, BOOL  fEnable  )

static

Definition at line 908 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_GetBorder()

static HRESULT WINAPI InPlaceFrame_GetBorder ( IOleInPlaceFrame *  iface, LPRECT  lprectBorder  )

static

Definition at line 861 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_GetWindow()

static HRESULT WINAPI InPlaceFrame_GetWindow ( IOleInPlaceFrame *  iface, HWND *  phwnd  )

static

Definition at line 851 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_InsertMenus()

static HRESULT WINAPI InPlaceFrame_InsertMenus ( IOleInPlaceFrame *  iface, HMENU  hmenuShared, LPOLEMENUGROUPWIDTHS  lpMenuWidths  )

static

Definition at line 884 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_QueryInterface()

static HRESULT WINAPI InPlaceFrame_QueryInterface ( IOleInPlaceFrame *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 836 of file script.c.

{
    return E_NOINTERFACE;
}

InPlaceFrame_Release()

static ULONG WINAPI InPlaceFrame_Release ( IOleInPlaceFrame *  iface )

static

Definition at line 846 of file script.c.

{
    return 1;
}

InPlaceFrame_RemoveMenus()

static HRESULT WINAPI InPlaceFrame_RemoveMenus ( IOleInPlaceFrame *  iface, HMENU  hmenuShared  )

static

Definition at line 897 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

InPlaceFrame_RequestBorderSpace()

static HRESULT WINAPI InPlaceFrame_RequestBorderSpace ( IOleInPlaceFrame *  iface, LPCBORDERWIDTHS  pborderwidths  )

static

Definition at line 866 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceFrame_SetActiveObject()

static HRESULT WINAPI InPlaceFrame_SetActiveObject ( IOleInPlaceFrame *  iface, IOleInPlaceActiveObject *  pActiveObject, LPCOLESTR  pszObjName  )

static

Definition at line 878 of file script.c.

{
    return S_OK;
}

InPlaceFrame_SetBorderSpace()

static HRESULT WINAPI InPlaceFrame_SetBorderSpace ( IOleInPlaceFrame *  iface, LPCBORDERWIDTHS  pborderwidths  )

static

Definition at line 872 of file script.c.

{
    return S_OK;
}

InPlaceFrame_SetMenu()

static HRESULT WINAPI InPlaceFrame_SetMenu ( IOleInPlaceFrame *  iface, HMENU  hmenuShared, HOLEMENU  holemenu, HWND  hwndActiveObject  )

static

Definition at line 890 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

InPlaceFrame_SetStatusText()

static HRESULT WINAPI InPlaceFrame_SetStatusText ( IOleInPlaceFrame *  iface, LPCOLESTR  pszStatusText  )

static

Definition at line 903 of file script.c.

{
    return S_OK;
}

InPlaceFrame_TranslateAccelerator()

static HRESULT WINAPI InPlaceFrame_TranslateAccelerator ( IOleInPlaceFrame *  iface, LPMSG  lpmsg, WORD  wID  )

static

Definition at line 913 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

InPlaceSite_AddRef()

static ULONG WINAPI InPlaceSite_AddRef ( IOleInPlaceSite *  iface )

static

Definition at line 944 of file script.c.

{
    return 2;
}

InPlaceSite_CanInPlaceActivate()

static HRESULT WINAPI InPlaceSite_CanInPlaceActivate ( IOleInPlaceSite *  iface )

static

Definition at line 966 of file script.c.

{
    return S_OK;
}

InPlaceSite_ContextSensitiveHelp()

static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp ( IOleInPlaceSite *  iface, BOOL  fEnterMode  )

static

Definition at line 960 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

InPlaceSite_DeactivateAndUndo()

static HRESULT WINAPI InPlaceSite_DeactivateAndUndo ( IOleInPlaceSite *  iface )

static

Definition at line 1021 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceSite_DiscardUndoState()

static HRESULT WINAPI InPlaceSite_DiscardUndoState ( IOleInPlaceSite *  iface )

static

Definition at line 1016 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceSite_GetWindow()

static HRESULT WINAPI InPlaceSite_GetWindow ( IOleInPlaceSite *  iface, HWND *  phwnd  )

static

Definition at line 954 of file script.c.

{
    *phwnd = container_hwnd;
    return S_OK;
}

InPlaceSite_GetWindowContext()

static HRESULT WINAPI InPlaceSite_GetWindowContext ( IOleInPlaceSite *  iface, IOleInPlaceFrame **  ppFrame, IOleInPlaceUIWindow **  ppDoc, LPRECT  lprcPosRect, LPRECT  lprcClipRect, LPOLEINPLACEFRAMEINFO  lpFrameInfo  )

static

Definition at line 981 of file script.c.

{
    static const RECT rect = {0,0,300,300};
 
    *ppFrame = &InPlaceFrame;
    *ppDoc = (IOleInPlaceUIWindow*)&InPlaceFrame;
    *lprcPosRect = rect;
    *lprcClipRect = rect;
 
    ok(lpFrameInfo->cb == sizeof(*lpFrameInfo), "lpFrameInfo->cb = %u, expected %u\n", lpFrameInfo->cb, (unsigned)sizeof(*lpFrameInfo));
    lpFrameInfo->fMDIApp = FALSE;
    lpFrameInfo->hwndFrame = container_hwnd;
    lpFrameInfo->haccel = NULL;
    lpFrameInfo->cAccelEntries = 0;
 
    return S_OK;
}

InPlaceSite_OnInPlaceActivate()

static HRESULT WINAPI InPlaceSite_OnInPlaceActivate ( IOleInPlaceSite *  iface )

static

Definition at line 971 of file script.c.

{
    return S_OK;
}

InPlaceSite_OnInPlaceDeactivate()

static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate ( IOleInPlaceSite *  iface )

static

Definition at line 1011 of file script.c.

{
    return S_OK;
}

InPlaceSite_OnPosRectChange()

static HRESULT WINAPI InPlaceSite_OnPosRectChange ( IOleInPlaceSite *  iface, LPCRECT  lprcPosRect  )

static

Definition at line 1026 of file script.c.

{
    return E_NOTIMPL;
}

InPlaceSite_OnUIActivate()

static HRESULT WINAPI InPlaceSite_OnUIActivate ( IOleInPlaceSite *  iface )

static

Definition at line 976 of file script.c.

{
    return S_OK;
}

InPlaceSite_OnUIDeactivate()

static HRESULT WINAPI InPlaceSite_OnUIDeactivate ( IOleInPlaceSite *  iface, BOOL  fUndoable  )

static

Definition at line 1006 of file script.c.

{
    return S_OK;
}

InPlaceSite_QueryInterface()

static HRESULT WINAPI InPlaceSite_QueryInterface ( IOleInPlaceSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 939 of file script.c.

{
    return QueryInterface(riid, ppv);
}

InPlaceSite_Release()

static ULONG WINAPI InPlaceSite_Release ( IOleInPlaceSite *  iface )

static

Definition at line 949 of file script.c.

{
    return 1;
}

InPlaceSite_Scroll()

static HRESULT WINAPI InPlaceSite_Scroll ( IOleInPlaceSite *  iface, SIZE  scrollExtant  )

static

Definition at line 1001 of file script.c.

{
    return E_NOTIMPL;
}

load_doc()

static void load_doc ( IHTMLDocument2 *  doc, const char *  str  )

static

Definition at line 1272 of file script.c.

{
    IHTMLElement *body = NULL;
    MSG msg;
    HRESULT hres;
    static const WCHAR ucPtr[] = {'b','a','c','k','g','r','o','u','n','d',0};
    DISPID dispID = -1;
    OLECHAR *name;
 
    load_string(doc, str);
    do_advise(doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
 
    while(!doc_complete && GetMessageW(&msg, NULL, 0, 0)) {
        TranslateMessage(&msg);
        DispatchMessageW(&msg);
    }
 
    hres = IHTMLDocument2_get_body(doc, &body);
    ok(hres == S_OK, "get_body failed: %08x\n", hres);
 
    /* Check we can query for function on the IHTMLElementBody interface */
    name = (WCHAR*)ucPtr;
    hres = IHTMLElement_GetIDsOfNames(body, &IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &dispID);
    ok(hres == S_OK, "GetIDsOfNames(background) failed %08x\n", hres);
    ok(dispID == DISPID_IHTMLBODYELEMENT_BACKGROUND, "Incorrect dispID got (%d)\n", dispID);
 
    IHTMLElement_Release(body);
}

Referenced by test_simple_script().

load_string()

static void load_string ( IHTMLDocument2 *  doc, const char *  str  )

static

Definition at line 1195 of file script.c.

{
    IPersistStreamInit *init;
    IStream *stream;
    HGLOBAL mem;
    SIZE_T len;
 
    doc_complete = FALSE;
    len = strlen(str);
    mem = GlobalAlloc(0, len);
    memcpy(mem, str, len);
    CreateStreamOnHGlobal(mem, TRUE, &stream);
 
    IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
 
    IPersistStreamInit_Load(init, stream);
    IPersistStreamInit_Release(init);
    IStream_Release(stream);
}

Referenced by load_doc().

ObjectSafety_AddRef()

static ULONG WINAPI ObjectSafety_AddRef ( IObjectSafety *  iface )

static

Definition at line 1308 of file script.c.

{
    return 2;
}

ObjectSafety_GetInterfaceSafetyOptions()

static HRESULT WINAPI ObjectSafety_GetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD *  pdwSupportedOptions, DWORD *  pdwEnabledOptions  )

static

Definition at line 1318 of file script.c.

{
    CHECK_EXPECT(GetInterfaceSafetyOptions);
 
    ok(IsEqualGUID(&IID_IActiveScriptParse, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
    ok(pdwSupportedOptions != NULL, "pdwSupportedOptions == NULL\n");
    ok(pdwEnabledOptions != NULL, "pdwEnabledOptions == NULL\n");
 
    *pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER;
    *pdwEnabledOptions = INTERFACE_USES_DISPEX;
 
    return S_OK;
}

ObjectSafety_QueryInterface()

static HRESULT WINAPI ObjectSafety_QueryInterface ( IObjectSafety *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1301 of file script.c.

{
    *ppv = NULL;
    ok(0, "unexpected call %s\n", wine_dbgstr_guid(riid));
    return E_NOINTERFACE;
}

ObjectSafety_Release()

static ULONG WINAPI ObjectSafety_Release ( IObjectSafety *  iface )

static

Definition at line 1313 of file script.c.

{
    return 1;
}

ObjectSafety_SetInterfaceSafetyOptions()

static HRESULT WINAPI ObjectSafety_SetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD  dwOptionSetMask, DWORD  dwEnabledOptions  )

static

Definition at line 1333 of file script.c.

{
    CHECK_EXPECT(SetInterfaceSafetyOptions);
 
    ok(IsEqualGUID(&IID_IActiveScriptParse, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
 
    ok(dwOptionSetMask == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
       "dwOptionSetMask=%x\n", dwOptionSetMask);
    ok(dwEnabledOptions == (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER),
       "dwEnabledOptions=%x\n", dwOptionSetMask);
 
    return S_OK;
}

PropertyNotifySink_AddRef()

static ULONG WINAPI PropertyNotifySink_AddRef ( IPropertyNotifySink *  iface )

static

Definition at line 207 of file script.c.

{
    return 2;
}

PropertyNotifySink_OnChanged()

static HRESULT WINAPI PropertyNotifySink_OnChanged ( IPropertyNotifySink *  iface, DISPID  dispID  )

static

Definition at line 217 of file script.c.

{
    if(dispID == DISPID_READYSTATE){
        BSTR state;
        HRESULT hres;
 
        static const WCHAR completeW[] = {'c','o','m','p','l','e','t','e',0};
 
        hres = IHTMLDocument2_get_readyState(notif_doc, &state);
        ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
 
        if(!lstrcmpW(state, completeW))
            doc_complete = TRUE;
 
        SysFreeString(state);
    }
 
    return S_OK;
}

PropertyNotifySink_OnRequestEdit()

static HRESULT WINAPI PropertyNotifySink_OnRequestEdit ( IPropertyNotifySink *  iface, DISPID  dispID  )

static

Definition at line 237 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

PropertyNotifySink_QueryInterface()

static HRESULT WINAPI PropertyNotifySink_QueryInterface ( IPropertyNotifySink *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 196 of file script.c.

{
    if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    return E_NOINTERFACE;
}

PropertyNotifySink_Release()

static ULONG WINAPI PropertyNotifySink_Release ( IPropertyNotifySink *  iface )

static

Definition at line 212 of file script.c.

{
    return 1;
}

QueryInterface()

static HRESULT QueryInterface ( REFIID  riid, void **  ppv  )

static

Definition at line 1168 of file script.c.

{
    *ppv = NULL;
 
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IOleClientSite, riid))
        *ppv = &ClientSite;
    else if(IsEqualGUID(&IID_IOleDocumentSite, riid))
        *ppv = &DocumentSite;
    else if(IsEqualGUID(&IID_IOleWindow, riid) || IsEqualGUID(&IID_IOleInPlaceSite, riid))
        *ppv = &InPlaceSite;
    else if(IsEqualGUID(&IID_IDocHostUIHandler, riid) || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
        *ppv = &DocHostUIHandler;
 
    return *ppv ? S_OK : E_NOINTERFACE;
}

Referenced by ClientSite_QueryInterface(), DocHostUIHandler_QueryInterface(), DocumentSite_QueryInterface(), and InPlaceSite_QueryInterface().

register_script_engine()

static BOOL register_script_engine ( void  )

static

Definition at line 2877 of file script.c.

{
    DWORD regid;
    HRESULT hres;
 
    if(!init_registry(TRUE)) {
        init_registry(FALSE);
        return FALSE;
    }
 
    hres = CoRegisterClassObject(&CLSID_TestScript, (IUnknown *)&script_cf,
                                 CLSCTX_INPROC_SERVER, REGCLS_MULTIPLEUSE, &regid);
    ok(hres == S_OK, "Could not register script engine: %08x\n", hres);
 
    return TRUE;
}

Referenced by START_TEST().

run_js_script()

static void run_js_script ( const char *  test_name )

static

Definition at line 2804 of file script.c.

{
    WCHAR url[INTERNET_MAX_URL_LENGTH];
    char urlA[INTERNET_MAX_URL_LENGTH];
    IPersistMoniker *persist;
    IHTMLDocument2 *doc;
    IMoniker *mon;
    MSG msg;
    HRESULT hres;
 
    static const char res[] = "res://";
 
    trace("running %s...\n", test_name);
 
    doc = create_document();
    if(!doc)
        return;
 
    set_client_site(doc, TRUE);
    do_advise(doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
 
    lstrcpyA(urlA, res);
    GetModuleFileNameA(NULL, urlA + lstrlenA(res), sizeof(urlA) - lstrlenA(res));
    lstrcatA(urlA, "/");
    lstrcatA(urlA, test_name);
    MultiByteToWideChar(CP_ACP, 0, urlA, -1, url, sizeof(url)/sizeof(WCHAR));
 
    hres = CreateURLMoniker(NULL, url, &mon);
    ok(hres == S_OK, "CreateURLMoniker failed: %08x\n", hres);
 
    hres = IHTMLDocument2_QueryInterface(doc, &IID_IPersistMoniker, (void**)&persist);
    ok(hres == S_OK, "Could not get IPersistMoniker iface: %08x\n", hres);
 
    hres = IPersistMoniker_Load(persist, FALSE, mon, NULL, 0);
    ok(hres == S_OK, "Load failed: %08x\n", hres);
 
    IMoniker_Release(mon);
    IPersistMoniker_Release(persist);
 
    SET_EXPECT(external_success);
 
    while(!called_external_success && GetMessageW(&msg, NULL, 0, 0)) {
        TranslateMessage(&msg);
        DispatchMessageW(&msg);
    }
 
    CHECK_CALLED(external_success);
 
    set_client_site(doc, FALSE);
    IHTMLDocument2_Release(doc);
}

Referenced by run_js_tests().

run_js_tests()

static void run_js_tests ( void  )

static

Definition at line 2856 of file script.c.

{
    run_js_script("jstest.html");
    run_js_script("exectest.html");
    run_js_script("vbtest.html");
    run_js_script("events.html");
    if(is_ie9plus)
        run_js_script("nav_test.html");
    else
        win_skip("Skipping nav_test.html on IE older than 9 (for broken ieframe onload).\n");
}

Referenced by START_TEST().

scriptDisp_GetDispID()

static HRESULT WINAPI scriptDisp_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 487 of file script.c.

{
    if(!strcmp_wa(bstrName, "testProp")) {
        CHECK_EXPECT(script_testprop_d);
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        *pid = DISPID_SCRIPT_TESTPROP;
        return S_OK;
    }
 
    if(!strcmp_wa(bstrName, "testProp2")) {
        CHECK_EXPECT(script_testprop2_d);
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        *pid = DISPID_SCRIPT_TESTPROP2;
        return S_OK;
    }
 
    if(!strcmp_wa(bstrName, "divid")) {
        CHECK_EXPECT(script_divid_d);
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        return E_FAIL;
    }
 
    ok(0, "unexpected call %s\n", wine_dbgstr_w(bstrName));
    return E_NOTIMPL;
}

scriptDisp_InvokeEx()

static HRESULT WINAPI scriptDisp_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 513 of file script.c.

{
    switch(id) {
    case DISPID_SCRIPT_TESTPROP:
        CHECK_EXPECT(script_testprop_i);
 
        ok(lcid == 0, "lcid = %x\n", lcid);
        ok(wFlags == DISPATCH_PROPERTYGET, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->cArgs == 0, "pdp->cArgs = %d\n", pdp->cArgs);
        ok(pdp->cNamedArgs == 0, "pdp->cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(!pdp->rgdispidNamedArgs, "pdp->rgdispidNamedArgs != NULL\n");
        ok(!pdp->rgvarg, "rgvarg != NULL\n");
        ok(pvarRes != NULL, "pvarRes == NULL\n");
        ok(pei != NULL, "pei == NULL\n");
        ok(!pspCaller, "pspCaller != NULL\n");
 
        V_VT(pvarRes) = VT_NULL;
        break;
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

ServiceProvider_AddRef()

static ULONG WINAPI ServiceProvider_AddRef ( IServiceProvider *  iface )

static

Definition at line 302 of file script.c.

{
    return 2;
}

ServiceProvider_QueryInterface()

static HRESULT WINAPI ServiceProvider_QueryInterface ( IServiceProvider *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 296 of file script.c.

{
    ok(0, "unexpected call\n");
    return E_NOINTERFACE;
}

ServiceProvider_QueryService()

static HRESULT WINAPI ServiceProvider_QueryService ( IServiceProvider *  iface, REFGUID  guidService, REFIID  riid, void **  ppv  )

static

Definition at line 312 of file script.c.

{
    if(IsEqualGUID(guidService, &SID_VariantConversion)) {
        CHECK_EXPECT(QS_VariantConversion);
        ok(IsEqualGUID(riid, &IID_IVariantChangeType), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        *ppv = &VChangeType;
        return S_OK;
    }
 
    if(IsEqualGUID(guidService, &IID_IActiveScriptSite)) {
        CHECK_EXPECT(QS_IActiveScriptSite);
        ok(IsEqualGUID(riid, &IID_IOleCommandTarget), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        return IActiveScriptSite_QueryInterface(site, riid, ppv);
    }
 
    if(IsEqualGUID(guidService, &SID_GetCaller)) {
        CHECK_EXPECT(QS_GetCaller);
        ok(IsEqualGUID(riid, &IID_IServiceProvider), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    ok(0, "unexpected service %s\n", wine_dbgstr_guid(guidService));
    return E_NOINTERFACE;
}

ServiceProvider_Release()

static ULONG WINAPI ServiceProvider_Release ( IServiceProvider *  iface )

static

Definition at line 307 of file script.c.

{
    return 1;
}

set_client_site()

static void set_client_site ( IHTMLDocument2 *  doc, BOOL  set  )

static

Definition at line 1236 of file script.c.

{
    IOleObject *oleobj;
    HRESULT hres;
 
    if(!set && view) {
        IOleDocumentView_Show(view, FALSE);
        IOleDocumentView_CloseView(view, 0);
        IOleDocumentView_SetInPlaceSite(view, NULL);
        IOleDocumentView_Release(view);
        view = NULL;
    }
 
    hres = IHTMLDocument2_QueryInterface(doc, &IID_IOleObject, (void**)&oleobj);
    ok(hres == S_OK, "Could not et IOleObject: %08x\n", hres);
 
    hres = IOleObject_SetClientSite(oleobj, set ? &ClientSite : NULL);
    ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
 
    if(set) {
        IHlinkTarget *hlink;
 
        hres = IOleObject_QueryInterface(oleobj, &IID_IHlinkTarget, (void**)&hlink);
        ok(hres == S_OK, "Could not get IHlinkTarget iface: %08x\n", hres);
 
        hres = IHlinkTarget_Navigate(hlink, 0, NULL);
        ok(hres == S_OK, "Navgate failed: %08x\n", hres);
 
        IHlinkTarget_Release(hlink);
    }
 
    IOleObject_Release(oleobj);
}

Referenced by run_js_script().

set_safe_reg()

static BOOL set_safe_reg ( BOOL  safe_call, BOOL  safe_data  )

static

Definition at line 1449 of file script.c.

{
    return init_key("CLSID\\"TESTACTIVEX_CLSID"\\Implemented Categories\\{7dd95801-9882-11cf-9fa9-00aa006c42c4}",
                    NULL, safe_call)
        && init_key("CLSID\\"TESTACTIVEX_CLSID"\\Implemented Categories\\{7dd95802-9882-11cf-9fa9-00aa006c42c4}",
                    NULL, safe_data);
}

Referenced by test_security().

START_TEST()

START_TEST

(

script

)

Definition at line 2944 of file script.c.

{
    CoInitialize(NULL);
    container_hwnd = create_container_window();
 
    if(check_ie()) {
        if(winetest_interactive || ! is_ie_hardened()) {
            if(register_script_engine()) {
                test_simple_script();
                init_registry(FALSE);
            }else {
                skip("Could not register TestScript engine\n");
            }
            run_js_tests();
        }else {
            skip("IE running in Enhanced Security Configuration\n");
        }
    }else {
        win_skip("Too old IE.\n");
    }
 
    DestroyWindow(container_hwnd);
    CoUninitialize();
}

strcmp_wa()

static int strcmp_wa ( LPCWSTR  strw, const char *  stra  )

static

Definition at line 152 of file script.c.

{
    CHAR buf[512];
    WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
    return lstrcmpA(stra, buf);
}

Referenced by ActiveScript_GetScriptDispatch(), ActiveScriptParse_ParseScriptText(), externalDisp_GetDispID(), scriptDisp_GetDispID(), test_func(), and test_nextdispid().

test_arg_conv()

static void test_arg_conv ( IHTMLWindow2 *  window )

static

Definition at line 2005 of file script.c.

{
    IHTMLDocument2 *doc;
    IDispatchEx *dispex;
    IHTMLElement *elem;
    VARIANT v;
    HRESULT hres;
 
    hres = IHTMLWindow2_get_document(window, &doc);
    ok(hres == S_OK, "get_document failed: %08x\n", hres);
 
    hres = IHTMLDocument2_get_body(doc, &elem);
    IHTMLDocument2_Release(doc);
    ok(hres == S_OK, "get_body failed: %08x\n", hres);
 
    hres = IHTMLElement_QueryInterface(elem, &IID_IDispatchEx, (void**)&dispex);
    IHTMLElement_Release(elem);
    ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
 
    SET_EXPECT(QS_VariantConversion);
    SET_EXPECT(ChangeType);
    V_VT(&v) = VT_I4;
    V_I4(&v) = 0xf0f0f0;
    hres = dispex_propput(dispex, DISPID_IHTMLBODYELEMENT_BACKGROUND, 0, &v, &caller_sp);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
    CHECK_CALLED(QS_VariantConversion);
    CHECK_CALLED(ChangeType);
 
    V_VT(&v) = VT_EMPTY;
    hres = dispex_propget(dispex, DISPID_IHTMLBODYELEMENT_BGCOLOR, &v, &caller_sp);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
    ok(V_VT(&v) == VT_BSTR, "V_VT(var)=%d\n", V_VT(&v));
    ok(!V_BSTR(&v), "V_BSTR(&var) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
 
    IDispatchEx_Release(dispex);
}

Referenced by test_script_run().

test_default_arg_conv()

static void test_default_arg_conv ( IHTMLWindow2 *  window )

static

Definition at line 2059 of file script.c.

{
    IHTMLDocument2 *doc;
    IDispatchEx *dispex;
    IHTMLElement *elem;
    VARIANT v;
    HRESULT hres;
 
    hres = IHTMLWindow2_get_document(window, &doc);
    ok(hres == S_OK, "get_document failed: %08x\n", hres);
 
    hres = IHTMLDocument2_get_body(doc, &elem);
    IHTMLDocument2_Release(doc);
    ok(hres == S_OK, "get_body failed: %08x\n", hres);
 
    hres = IHTMLElement_QueryInterface(elem, &IID_IDispatchEx, (void**)&dispex);
    ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
 
    test_elem_disabled(elem, VARIANT_FALSE);
 
    V_VT(&v) = VT_BSTR;
    V_BSTR(&v) = a2bstr("test");
    hres = dispex_propput(dispex, DISPID_IHTMLELEMENT3_DISABLED, 0, &v, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
    SysFreeString(V_BSTR(&v));
 
    test_elem_disabled(elem, VARIANT_TRUE);
 
    V_VT(&v) = VT_I4;
    V_I4(&v) = 0;
    hres = dispex_propput(dispex, DISPID_IHTMLELEMENT3_DISABLED, 0, &v, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 
    test_elem_disabled(elem, VARIANT_FALSE);
 
    V_VT(&v) = VT_I4;
    V_I4(&v) = 1;
    hres = dispex_propput(dispex, DISPID_IHTMLELEMENT3_DISABLED, DISPATCH_PROPERTYPUTREF, &v, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
 
    test_elem_disabled(elem, VARIANT_TRUE);
 
    IHTMLElement_Release(elem);
    IDispatchEx_Release(dispex);
}

Referenced by test_script_run().

test_exec_script()

static void test_exec_script ( IHTMLDocument2 *  doc, const char *  codea, const char *  langa  )

static

Definition at line 2718 of file script.c.

{
    IHTMLWindow2 *window;
    BSTR code, lang;
    VARIANT v;
    HRESULT hres;
 
    hres = IHTMLDocument2_get_parentWindow(doc, &window);
    ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
 
    code = a2bstr(codea);
    lang = a2bstr(langa);
 
    SET_EXPECT(ParseScriptText_execScript);
    hres = IHTMLWindow2_execScript(window, code, lang, &v);
    ok(hres == S_OK, "execScript failed: %08x\n", hres);
    ok(V_VT(&v) == VT_I4, "V_VT(v) = %d\n", V_VT(&v));
    ok(V_I4(&v) == 10, "V_I4(v) = %d\n", V_I4(&v));
    CHECK_CALLED(ParseScriptText_execScript);
    SysFreeString(lang);
 
    lang = a2bstr("invalid");
    V_VT(&v) = 100;
    hres = IHTMLWindow2_execScript(window, code, lang, &v);
    ok(hres == CO_E_CLASSSTRING, "execScript failed: %08x, expected CO_E_CLASSSTRING\n", hres);
    ok(V_VT(&v) == 100, "V_VT(v) = %d\n", V_VT(&v));
    SysFreeString(lang);
    SysFreeString(code);
 
    IHTMLWindow2_Release(window);
}

Referenced by test_simple_script().

test_func()

static void test_func ( IDispatchEx *  obj )

static

Definition at line 1872 of file script.c.

{
    DISPID id;
    IDispatchEx *dispex;
    IDispatch *disp;
    EXCEPINFO ei;
    DISPPARAMS dp;
    BSTR str;
    VARIANT var;
    HRESULT hres;
 
    str = a2bstr("toString");
    hres = IDispatchEx_GetDispID(obj, str, fdexNameCaseSensitive, &id);
    SysFreeString(str);
    ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
    ok(id == DISPID_IOMNAVIGATOR_TOSTRING, "id = %x\n", id);
 
    memset(&dp, 0, sizeof(dp));
    memset(&ei, 0, sizeof(ei));
    VariantInit(&var);
    hres = IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
    ok(V_VT(&var) == VT_DISPATCH, "V_VT(var)=%d\n", V_VT(&var));
    ok(V_DISPATCH(&var) != NULL, "V_DISPATCH(var) == NULL\n");
    disp = V_DISPATCH(&var);
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    IDispatch_Release(disp);
    ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres);
 
    /* FIXME: Test InvokeEx(DISPATCH_METHOD) */
 
    memset(&dp, 0, sizeof(dp));
    memset(&ei, 0, sizeof(ei));
    VariantInit(&var);
    hres = IDispatchEx_Invoke(dispex, DISPID_VALUE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dp, &var, &ei, NULL);
    ok(hres == S_OK || broken(E_ACCESSDENIED), "InvokeEx failed: %08x\n", hres);
    if(SUCCEEDED(hres)) {
        ok(V_VT(&var) == VT_BSTR, "V_VT(var)=%d\n", V_VT(&var));
        ok(!strcmp_wa(V_BSTR(&var), "[object]"), "V_BSTR(var) = %s\n", wine_dbgstr_w(V_BSTR(&var)));
        VariantClear(&var);
    }
 
    V_VT(&var) = VT_I4;
    V_I4(&var) = 100;
    hres = dispex_propput(obj, id, 0, &var, NULL);
    todo_wine ok(hres == E_NOTIMPL, "InvokeEx failed: %08x\n", hres);
 
    hres = dispex_propget(dispex, DISPID_VALUE, &var, NULL);
    ok(hres == E_ACCESSDENIED, "InvokeEx returned: %08x, expected E_ACCESSDENIED\n", hres);
    if(SUCCEEDED(hres))
        VariantClear(&var);
 
    SET_EXPECT(QS_IActiveScriptSite);
    SET_EXPECT(QS_GetCaller);
    hres = dispex_propget(dispex, DISPID_VALUE, &var, &caller_sp);
    ok(hres == S_OK, "InvokeEx returned: %08x, expected S_OK\n", hres);
    ok(V_VT(&var) == VT_BSTR, "V_VT(var) = %d\n", V_VT(&var));
    ok(!strcmp_wa(V_BSTR(&var), "\nfunction toString() {\n    [native code]\n}\n"),
       "V_BSTR(var) = %s\n", wine_dbgstr_w(V_BSTR(&var)));
    VariantClear(&var);
    todo_wine CHECK_CALLED(QS_IActiveScriptSite);
    todo_wine CHECK_CALLED(QS_GetCaller);
 
    IDispatchEx_Release(dispex);
}

Referenced by test_ResolveDelayLoadedAPI(), and test_script_run().

test_global_id()

static void test_global_id ( void  )

static

Definition at line 1978 of file script.c.

{
    VARIANT var;
    DISPPARAMS dp;
    EXCEPINFO ei;
    BSTR tmp;
    DISPID id;
    HRESULT hres;
 
    SET_EXPECT(GetScriptDispatch);
    SET_EXPECT(script_divid_d);
    tmp = a2bstr("divid");
    hres = IDispatchEx_GetDispID(window_dispex, tmp, fdexNameCaseSensitive, &id);
    ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
    SysFreeString(tmp);
    CHECK_CALLED(GetScriptDispatch);
    CHECK_CALLED(script_divid_d);
 
    VariantInit(&var);
    memset(&ei, 0, sizeof(ei));
    memset(&dp, 0, sizeof(dp));
    hres = IDispatchEx_InvokeEx(window_dispex, id, 0, DISPATCH_PROPERTYGET, &dp, &var, &ei, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08x\n", hres);
    ok(V_VT(&var) == VT_DISPATCH, "V_VT(var) = %d\n", V_VT(&var));
    VariantClear(&var);
}

Referenced by test_script_run().

test_nextdispid()

static void test_nextdispid ( IDispatchEx *  dispex )

static

Definition at line 1939 of file script.c.

{
    DISPID last_id = DISPID_STARTENUM, id, dyn_id;
    BSTR name;
    VARIANT var;
    HRESULT hres;
 
    name = a2bstr("dynVal");
    hres = IDispatchEx_GetDispID(dispex, name, fdexNameCaseSensitive|fdexNameEnsure, &dyn_id);
    ok(hres == S_OK, "GetDispID failed: %08x\n", hres);
    SysFreeString(name);
 
    V_VT(&var) = VT_EMPTY;
    hres = dispex_propput(dispex, dyn_id, 0, &var, NULL);
    ok(hres ==