marko10_000
/
wine-wine
forked from Mirrors/wine-wine
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Implement ScriptTypeInfo_GetDocumentation. 

Signed-off-by: Gabriel Ivăncescu <gabrielopcode@gmail.com>
Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
stable
Gabriel Ivăncescu 2019-12-11 18:19:40 +01:00 committed by Alexandre Julliard
parent 5e912f2869
commit 0fee1c759b
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
dlls/vbscript/vbdisp.c
View File

@ -891,10 +891,46 @@ static HRESULT WINAPI ScriptTypeInfo_GetDocumentation(ITypeInfo *iface, MEMBERID
BSTR *pBstrDocString, DWORD *pdwHelpContext, BSTR *pBstrHelpFile)
{
ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface);
ITypeInfo *disp_typeinfo;
function_t *func;
HRESULT hr;
FIXME("(%p)->(%d %p %p %p %p)\n", This, memid, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile);
TRACE("(%p)->(%d %p %p %p %p)\n", This, memid, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile);
return E_NOTIMPL;
if (pBstrDocString) *pBstrDocString = NULL;
if (pdwHelpContext) *pdwHelpContext = 0;
if (pBstrHelpFile) *pBstrHelpFile = NULL;
if (memid == MEMBERID_NIL)
{
if (pBstrName && !(*pBstrName = SysAllocString(L"VBScriptTypeInfo")))
return E_OUTOFMEMORY;
if (pBstrDocString &&
!(*pBstrDocString = SysAllocString(L"Visual Basic Scripting Type Info")))
{
if (pBstrName) SysFreeString(*pBstrName);
return E_OUTOFMEMORY;
}
return S_OK;
}
if (memid <= 0) return TYPE_E_ELEMENTNOTFOUND;
func = get_func_from_memid(This, memid);
if (!func && memid > This->num_vars)
{
hr = get_dispatch_typeinfo(&disp_typeinfo);
if (FAILED(hr)) return hr;
return ITypeInfo_GetDocumentation(disp_typeinfo, memid, pBstrName, pBstrDocString,
pdwHelpContext, pBstrHelpFile);
}
if (pBstrName)
{
*pBstrName = SysAllocString(func ? func->name : This->disp->global_vars[memid - 1]->name);
if (!*pBstrName) return E_OUTOFMEMORY;
}
return S_OK;
}
static HRESULT WINAPI ScriptTypeInfo_GetDllEntry(ITypeInfo *iface, MEMBERID memid, INVOKEKIND invKind,