You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1128 lines
32 KiB
1128 lines
32 KiB
//+------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Forms
|
|
// Copyright (C) Microsoft Corporation, 1996
|
|
//
|
|
// File: bsssite.hxx
|
|
//
|
|
// Contents: CBServerScriptSite
|
|
//
|
|
//-------------------------------------------------------------------------
|
|
|
|
#include "headers.hxx"
|
|
|
|
#undef ASSERT
|
|
|
|
// ************************************************************************
|
|
//
|
|
// CConnectionPoint
|
|
//
|
|
// ************************************************************************
|
|
|
|
CConnectionPoint::CConnectionPoint(CScriptSite *pSite)
|
|
{
|
|
_ulRefs = 1;
|
|
_pSite = pSite;
|
|
_pSite->AddRef();
|
|
}
|
|
|
|
CConnectionPoint::~CConnectionPoint()
|
|
{
|
|
_pSite->Release();
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::QueryInterface(REFIID iid, void **ppv)
|
|
{
|
|
if (iid == IID_IUnknown || iid == IID_IConnectionPoint)
|
|
{
|
|
*ppv = (IConnectionPoint *)this;
|
|
}
|
|
else
|
|
{
|
|
*ppv = NULL;
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
((IUnknown *)*ppv)->AddRef();
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::GetConnectionInterface(IID * pIID)
|
|
{
|
|
*pIID = DIID_DLocalMTScriptEvents;
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::GetConnectionPointContainer(IConnectionPointContainer ** ppCPC)
|
|
{
|
|
*ppCPC = _pSite;
|
|
(*ppCPC)->AddRef();
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::Advise(IUnknown *pUnkSink, DWORD *pdwCookie)
|
|
{
|
|
*pdwCookie = 0;
|
|
|
|
ClearInterface(&_pSite->_pDispSink);
|
|
RRETURN(THR(pUnkSink->QueryInterface(IID_IDispatch, (void **)&_pSite->_pDispSink)));
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::Unadvise(DWORD dwCookie)
|
|
{
|
|
ClearInterface(&_pSite->_pDispSink);
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT
|
|
CConnectionPoint::EnumConnections(LPENUMCONNECTIONS * ppEnum)
|
|
{
|
|
*ppEnum = NULL;
|
|
RRETURN(E_NOTIMPL);
|
|
}
|
|
|
|
// ************************************************************************
|
|
//
|
|
// CScriptSite
|
|
//
|
|
// ************************************************************************
|
|
|
|
STDMETHODIMP
|
|
CScriptSite::QueryInterface(REFIID iid, LPVOID * ppv)
|
|
{
|
|
if (iid == IID_IActiveScriptSite ||
|
|
iid == IID_IUnknown)
|
|
{
|
|
*ppv = (IActiveScriptSite *) this;
|
|
}
|
|
else if (iid == IID_IGlobalMTScript || iid == IID_IDispatch)
|
|
{
|
|
*ppv = (IGlobalMTScript *)this;
|
|
}
|
|
else if (iid == IID_IActiveScriptSiteDebug)
|
|
{
|
|
*ppv = (IActiveScriptSiteDebug *)this;
|
|
}
|
|
else if (iid == IID_IConnectionPointContainer)
|
|
{
|
|
*ppv = (IConnectionPointContainer *)this;
|
|
}
|
|
else if (iid == IID_IProvideClassInfo ||
|
|
iid == IID_IProvideClassInfo2 ||
|
|
iid == IID_IProvideMultipleClassInfo)
|
|
{
|
|
*ppv = (IProvideMultipleClassInfo *)this;
|
|
}
|
|
else if (iid == IID_IActiveScriptSiteWindow)
|
|
{
|
|
*ppv = (IActiveScriptSiteWindow *) this;
|
|
}
|
|
else
|
|
{
|
|
*ppv = NULL;
|
|
RRETURN(E_NOINTERFACE);
|
|
}
|
|
|
|
AddRef();
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite constructor
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
CScriptSite::CScriptSite(CScriptHost *pScriptHost)
|
|
: _cstrName(CSTR_NOINIT)
|
|
{
|
|
_pSH = pScriptHost;
|
|
_ulRefs = 1;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite destructor
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
CScriptSite::~CScriptSite()
|
|
{
|
|
VariantClear(&_varParam);
|
|
ClearInterface(&_pDispSink);
|
|
AssertSz(_ulRefs <= 1, "Object not properly released on destruction!");
|
|
|
|
if (_pDDH)
|
|
{
|
|
_pDDH->Detach();
|
|
ClearInterface(&_pDDH);
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::AddRef, Release
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
ULONG
|
|
CScriptSite::AddRef()
|
|
{
|
|
_ulRefs += 1;
|
|
return _ulRefs;
|
|
}
|
|
|
|
ULONG
|
|
CScriptSite::Release()
|
|
{
|
|
if (--_ulRefs == 0)
|
|
{
|
|
delete this;
|
|
return 0;
|
|
}
|
|
|
|
return _ulRefs;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::Init
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::Init(LPWSTR pszName)
|
|
{
|
|
HRESULT hr;
|
|
IActiveScriptParse *pParse = NULL;
|
|
static const CLSID CLSID_JSCRIPT = { 0xf414c260, 0x6ac0, 0x11cf, 0xb6, 0xd1, 0x00, 0xaa, 0x00, 0xbb, 0xbb, 0x58};
|
|
WCHAR *pch;
|
|
|
|
_cstrName.Set(pszName);
|
|
|
|
hr = THR(ScriptHost()->_pMT->HackCreateInstance(CLSID_JSCRIPT,
|
|
NULL,
|
|
CLSCTX_INPROC_SERVER,
|
|
IID_IActiveScript,
|
|
(void **)&_pScript));
|
|
if (hr)
|
|
{
|
|
hr = THR(CoCreateInstance(CLSID_JSCRIPT,
|
|
NULL,
|
|
CLSCTX_INPROC_SERVER,
|
|
IID_IActiveScript,
|
|
(void **)&_pScript));
|
|
}
|
|
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
if (ScriptHost()->_pMT->_pPDM)
|
|
{
|
|
Assert(_pDDH == NULL);
|
|
|
|
hr = ScriptHost()->_pMT->_pPDM->CreateDebugDocumentHelper(NULL, &_pDDH);
|
|
if (SUCCEEDED(hr))
|
|
{
|
|
hr = THR(_pDDH->Init(ScriptHost()->_pMT->_pDA,
|
|
_cstrName,
|
|
_cstrName,
|
|
0));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(_pDDH->Attach((_pScriptSitePrev)
|
|
? _pScriptSitePrev->_pDDH
|
|
: NULL));
|
|
if (hr)
|
|
goto Cleanup;
|
|
}
|
|
}
|
|
|
|
for (pch = _cstrName; *pch; pch++)
|
|
{
|
|
if (*pch == L'.')
|
|
{
|
|
*pch = L'_';
|
|
}
|
|
}
|
|
|
|
hr = THR(_pScript->QueryInterface(IID_IActiveScriptParse, (void **)&pParse));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(_pScript->SetScriptSite(this));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(pParse->InitNew());
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(_pScript->AddNamedItem(_cstrName, SCRIPTITEM_ISVISIBLE | SCRIPTITEM_ISSOURCE | SCRIPTITEM_GLOBALMEMBERS));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
Cleanup:
|
|
ReleaseInterface(pParse);
|
|
RRETURN(hr);
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::Close
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
void
|
|
CScriptSite::Close()
|
|
{
|
|
if (_pScript)
|
|
{
|
|
_pScript->Close();
|
|
ClearInterface(&_pScript);
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::Abort
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
void
|
|
CScriptSite::Abort()
|
|
{
|
|
if (_pScript)
|
|
{
|
|
HRESULT hr;
|
|
|
|
hr = THR(_pScript->InterruptScriptThread(SCRIPTTHREADID_CURRENT,
|
|
NULL,
|
|
0));
|
|
}
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::GetClassInfo, IProvideClassInfo
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetClassInfo(ITypeInfo **ppTypeInfo)
|
|
{
|
|
HRESULT hr;
|
|
|
|
hr = ScriptHost()->LoadTypeLibrary();
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
*ppTypeInfo = ScriptHost()->_pTypeInfoCMTScript;
|
|
(*ppTypeInfo)->AddRef();
|
|
|
|
Cleanup:
|
|
RRETURN(hr);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::GetGUID, IProvideClassInfo2
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetGUID(DWORD dwGuidKind, GUID * pGUID)
|
|
{
|
|
if (dwGuidKind == GUIDKIND_DEFAULT_SOURCE_DISP_IID)
|
|
{
|
|
*pGUID = DIID_DLocalMTScriptEvents;
|
|
}
|
|
else
|
|
{
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::GetMultiTypeInfoCount, IProvideMultipleClassInfo
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
HRESULT
|
|
CScriptSite::GetMultiTypeInfoCount(ULONG *pc)
|
|
{
|
|
*pc = 1;
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::GetInfoOfIndex, IProvideMultipleClassInfo
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetInfoOfIndex(
|
|
ULONG itinfo,
|
|
DWORD dwFlags,
|
|
ITypeInfo** pptinfoCoClass,
|
|
DWORD* pdwTIFlags,
|
|
ULONG* pcdispidReserved,
|
|
IID* piidPrimary,
|
|
IID* piidSource)
|
|
{
|
|
AssertSz(itinfo == 0, "itinfo == 0");
|
|
|
|
if (dwFlags & MULTICLASSINFO_GETTYPEINFO)
|
|
{
|
|
*pptinfoCoClass = ScriptHost()->_pTypeInfoCMTScript;
|
|
(*pptinfoCoClass)->AddRef();
|
|
if (pdwTIFlags)
|
|
*pdwTIFlags = 0;
|
|
}
|
|
|
|
if (dwFlags & MULTICLASSINFO_GETNUMRESERVEDDISPIDS)
|
|
{
|
|
*pcdispidReserved = 100;
|
|
}
|
|
|
|
if (dwFlags & MULTICLASSINFO_GETIIDPRIMARY)
|
|
{
|
|
*piidPrimary = IID_IGlobalMTScript;
|
|
}
|
|
|
|
if (dwFlags & MULTICLASSINFO_GETIIDSOURCE)
|
|
{
|
|
*piidSource = DIID_DLocalMTScriptEvents;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::EnumConnectionPoints, IConnectionPointContainer
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
HRESULT
|
|
CScriptSite::EnumConnectionPoints(LPENUMCONNECTIONPOINTS *)
|
|
{
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::FindConnectionPoint, IConnectionPointContainer
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::FindConnectionPoint(REFIID iid, LPCONNECTIONPOINT* ppCpOut)
|
|
{
|
|
HRESULT hr;
|
|
|
|
if (iid == DIID_DLocalMTScriptEvents || iid == IID_IDispatch)
|
|
{
|
|
*ppCpOut = new CConnectionPoint(this);
|
|
hr = *ppCpOut ? S_OK : E_OUTOFMEMORY;
|
|
}
|
|
else
|
|
{
|
|
hr = E_NOINTERFACE;
|
|
}
|
|
|
|
RRETURN(hr);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::GetLCID, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetLCID(LCID *plcid)
|
|
{
|
|
return E_NOTIMPL; // Use system settings
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::GetItemInfo, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetItemInfo(
|
|
LPCOLESTR pstrName,
|
|
DWORD dwReturnMask,
|
|
IUnknown** ppunkItemOut,
|
|
ITypeInfo** pptinfoOut)
|
|
{
|
|
if (dwReturnMask & SCRIPTINFO_ITYPEINFO)
|
|
{
|
|
if (!pptinfoOut)
|
|
return E_INVALIDARG;
|
|
*pptinfoOut = NULL;
|
|
}
|
|
|
|
if (dwReturnMask & SCRIPTINFO_IUNKNOWN)
|
|
{
|
|
if (!ppunkItemOut)
|
|
return E_INVALIDARG;
|
|
*ppunkItemOut = NULL;
|
|
}
|
|
|
|
if (!_wcsicmp(_cstrName, pstrName))
|
|
{
|
|
if (dwReturnMask & SCRIPTINFO_ITYPEINFO)
|
|
{
|
|
*pptinfoOut = ScriptHost()->_pTypeInfoCMTScript;
|
|
(*pptinfoOut)->AddRef();
|
|
}
|
|
if (dwReturnMask & SCRIPTINFO_IUNKNOWN)
|
|
{
|
|
*ppunkItemOut = (IGlobalMTScript *)this;
|
|
(*ppunkItemOut)->AddRef();
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::GetDocVersionString, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::GetDocVersionString(BSTR *pbstrVersion)
|
|
{
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::RequestItems()
|
|
{
|
|
return _pScript->AddNamedItem(_cstrName, SCRIPTITEM_ISVISIBLE | SCRIPTITEM_ISSOURCE);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::RequestTypeLibs, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::RequestTypeLibs()
|
|
{
|
|
return _pScript->AddTypeLib(LIBID_MTScriptEngine, 1, 0, 0);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::OnScriptTerminate, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::OnScriptTerminate(const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
|
|
{
|
|
// UNDONE: Put up error dlg here
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::OnStateChange, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::OnStateChange(SCRIPTSTATE ssScriptState)
|
|
{
|
|
// Don't care about notification
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::OnScriptError, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::OnScriptError(IActiveScriptError *pse)
|
|
{
|
|
long nScriptErrorResult = 0;
|
|
BSTR bstrLine = NULL;
|
|
TCHAR * pchDescription;
|
|
TCHAR achDescription[256];
|
|
TCHAR achMessage[1024];
|
|
EXCEPINFO ei;
|
|
DWORD dwSrcContext;
|
|
ULONG ulLine;
|
|
LONG ichError;
|
|
HRESULT hr;
|
|
LONG iRet = IDYES;
|
|
|
|
TraceTag((tagError, "OnScriptError!"));
|
|
|
|
if (ScriptHost()->_fMustExitThread)
|
|
{
|
|
return S_OK;
|
|
}
|
|
|
|
hr = THR(pse->GetExceptionInfo(&ei));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(pse->GetSourcePosition(&dwSrcContext, &ulLine, &ichError));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(pse->GetSourceLineText(&bstrLine));
|
|
if (hr)
|
|
hr = S_OK; // Ignore this error, there may not be source available
|
|
|
|
if (ei.bstrDescription)
|
|
{
|
|
pchDescription = ei.bstrDescription;
|
|
}
|
|
else
|
|
{
|
|
achDescription[0] = 0;
|
|
FormatMessage(
|
|
FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
|
|
NULL,
|
|
ei.scode,
|
|
LANG_SYSTEM_DEFAULT,
|
|
achDescription,
|
|
ARRAY_SIZE(achDescription),
|
|
NULL);
|
|
pchDescription = achDescription;
|
|
}
|
|
|
|
// First, lets format a message nice for OUTPUTDEBUGSTRING
|
|
_snwprintf(achMessage, ARRAY_SIZE(achMessage),
|
|
_T("Thread: %s")
|
|
_T("File: %s ")
|
|
_T("Line: %d ")
|
|
_T("Char: %d ")
|
|
_T("Text: %s ")
|
|
_T("Scode: %x ")
|
|
_T("Source: %s ")
|
|
_T("Description: %s"),
|
|
(LPTSTR)_cstrName,
|
|
_achPath,
|
|
(long)(ulLine + 1),
|
|
(long)(ichError),
|
|
bstrLine ? bstrLine : _T(""),
|
|
ei.scode,
|
|
ei.bstrSource ? ei.bstrSource : _T(""),
|
|
pchDescription
|
|
);
|
|
achMessage[ARRAY_SIZE(achMessage) - 1] = 0;
|
|
OUTPUTDEBUGSTRING(achMessage);
|
|
//Assert(!_fInScriptError);
|
|
if (!_fInScriptError)
|
|
{
|
|
_fInScriptError = true;
|
|
nScriptErrorResult = _pSH->FireScriptErrorEvent(
|
|
_achPath,
|
|
ulLine + 1,
|
|
ichError,
|
|
bstrLine ? bstrLine : _T(""),
|
|
ei.scode,
|
|
ei.bstrSource ? ei.bstrSource : _T(""),
|
|
pchDescription);
|
|
_fInScriptError = false;
|
|
}
|
|
|
|
if (nScriptErrorResult == 0)
|
|
{
|
|
_snwprintf(achMessage, ARRAY_SIZE(achMessage),
|
|
_T("Thread: %s\r\n")
|
|
_T("File: %s\r\n")
|
|
_T("Line: %d\r\n")
|
|
_T("Char: %d\r\n")
|
|
_T("Text: %s\r\n")
|
|
_T("Scode: %x\r\n")
|
|
_T("Source: %s\r\n")
|
|
_T("Description: %s\r\n")
|
|
_T("%s"),
|
|
(LPTSTR)_cstrName,
|
|
_achPath,
|
|
(long)(ulLine + 1),
|
|
(long)(ichError),
|
|
bstrLine ? bstrLine : _T(""),
|
|
ei.scode,
|
|
ei.bstrSource ? ei.bstrSource : _T(""),
|
|
pchDescription,
|
|
((_fInDebugError) ? _T("\r\nDo you wish to debug?\r\n") : _T(""))
|
|
);
|
|
achMessage[ARRAY_SIZE(achMessage) - 1] = 0;
|
|
|
|
MSGBOXPARAMS mbp;
|
|
memset(&mbp, 0, sizeof(mbp));
|
|
mbp.cbSize = sizeof(mbp);
|
|
//mbp.hwndOwner = ScriptHost()->_pDoc->_hwnd;
|
|
mbp.hwndOwner = NULL;
|
|
mbp.lpszText = achMessage;
|
|
mbp.lpszCaption = _T("Script Error");
|
|
mbp.dwStyle = MB_APPLMODAL | MB_ICONERROR | ((_fInDebugError) ? MB_YESNO : MB_OK);
|
|
|
|
iRet = MessageBoxIndirect(&mbp);
|
|
}
|
|
if (nScriptErrorResult == 1)
|
|
hr = S_FALSE;
|
|
Cleanup:
|
|
if(ei.bstrSource)
|
|
SysFreeString(ei.bstrSource);
|
|
if(ei.bstrDescription)
|
|
SysFreeString(ei.bstrDescription);
|
|
if(ei.bstrHelpFile)
|
|
SysFreeString(ei.bstrHelpFile);
|
|
|
|
if (bstrLine)
|
|
SysFreeString(bstrLine);
|
|
|
|
RRETURN1((_fInDebugError && !hr && iRet == IDYES) ? S_FALSE : hr, S_FALSE);
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::OnEnterScript, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT CScriptSite::OnEnterScript()
|
|
{
|
|
// No need to do anything
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::OnLeaveScript, IActiveScriptSite
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT CScriptSite::OnLeaveScript()
|
|
{
|
|
// No need to do anything
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::, IActiveScriptSiteWindow
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT CScriptSite::GetWindow(HWND *phwndOut)
|
|
{
|
|
//*phwndOut = ScriptHost()->_pDoc->_hwnd;
|
|
*phwndOut = NULL;
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::EnableModeless, IActiveScriptSiteWindow
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT CScriptSite::EnableModeless(BOOL fEnable)
|
|
{
|
|
return S_OK;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Member: CScriptSite::ExecuteScriptFile
|
|
//
|
|
// Load and execute script file
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::ExecuteScriptFile(TCHAR *pchPath)
|
|
{
|
|
HRESULT hr;
|
|
HANDLE hFile = INVALID_HANDLE_VALUE;
|
|
DWORD cchFile;
|
|
DWORD cbRead;
|
|
char * pchBuf = 0;
|
|
TCHAR * pchBufWide = 0;
|
|
TCHAR * pchFile;
|
|
|
|
// Attempt to find the file. First, we try to use the path as given. If
|
|
// that doesn't work, then we prefix the script path and try to find it.
|
|
|
|
GetFullPathName(pchPath, ARRAY_SIZE(_achPath), _achPath, &pchFile);
|
|
|
|
if (GetFileAttributes(_achPath) == 0xFFFFFFFF)
|
|
{
|
|
// The file apparently doesn't exist. Try pre-pending the ScriptPath
|
|
// onto it.
|
|
|
|
CStr cstrPath;
|
|
|
|
ScriptHost()->GetScriptPath(&cstrPath);
|
|
|
|
cstrPath.Append(L"\\");
|
|
|
|
cstrPath.Append(pchPath);
|
|
|
|
GetFullPathName(cstrPath, ARRAY_SIZE(_achPath), _achPath, &pchFile);
|
|
}
|
|
|
|
// Load script file
|
|
|
|
hFile = CreateFile(_achPath,
|
|
GENERIC_READ,
|
|
FILE_SHARE_READ,
|
|
NULL,
|
|
OPEN_EXISTING,
|
|
0,
|
|
NULL);
|
|
if (hFile == INVALID_HANDLE_VALUE)
|
|
{
|
|
hr = HRESULT_FROM_WIN32(GetLastError());
|
|
goto Cleanup;
|
|
}
|
|
|
|
cchFile = GetFileSize(hFile, NULL);
|
|
if (cchFile == 0xFFFFFFFF)
|
|
{
|
|
hr = HRESULT_FROM_WIN32(GetLastError());
|
|
goto Cleanup;
|
|
}
|
|
|
|
pchBuf = new char[cchFile + 1];
|
|
pchBufWide = new TCHAR[cchFile + 1];
|
|
if (!pchBuf || !pchBufWide)
|
|
{
|
|
hr = E_OUTOFMEMORY;
|
|
goto Cleanup;
|
|
}
|
|
|
|
if (!ReadFile(hFile, pchBuf, cchFile, &cbRead, 0))
|
|
{
|
|
hr = HRESULT_FROM_WIN32(GetLastError());
|
|
goto Cleanup;
|
|
}
|
|
pchBuf[cbRead] = 0;
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, pchBuf, -1, pchBufWide, cchFile + 1);
|
|
|
|
if (_pDDH)
|
|
{
|
|
pchFile = wcsrchr(pchPath, L'\\');
|
|
if (!pchFile)
|
|
{
|
|
pchFile = pchPath;
|
|
}
|
|
else
|
|
pchFile++;
|
|
|
|
hr = THR(_pDDH->SetLongName(_achPath));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(_pDDH->AddUnicodeText(pchBufWide));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(_pDDH->DefineScriptBlock(0,
|
|
cchFile,
|
|
_pScript,
|
|
TRUE,
|
|
&_dwSourceContext));
|
|
//if (hr)
|
|
// goto Cleanup;
|
|
}
|
|
|
|
// Execute script
|
|
|
|
hr = ExecuteScriptStr(pchBufWide);
|
|
if(hr)
|
|
goto Cleanup;
|
|
|
|
|
|
Cleanup:
|
|
delete pchBuf;
|
|
delete pchBufWide;
|
|
if (hFile != INVALID_HANDLE_VALUE)
|
|
CloseHandle(hFile);
|
|
RRETURN(hr);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::ExecuteScriptStr
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::ExecuteScriptStr(TCHAR * pchScript)
|
|
{
|
|
HRESULT hr;
|
|
IActiveScriptParse * pParse = NULL;
|
|
|
|
hr = THR(_pScript->QueryInterface(IID_IActiveScriptParse, (void **)&pParse));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = THR(pParse->ParseScriptText(pchScript, _cstrName, NULL, NULL, 0, 0, 0L, NULL, NULL));
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
Cleanup:
|
|
ReleaseInterface(pParse);
|
|
RRETURN(hr);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::SetScriptState
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT
|
|
CScriptSite::SetScriptState(SCRIPTSTATE ss)
|
|
{
|
|
return _pScript->SetScriptState(ss);
|
|
}
|
|
|
|
HRESULT
|
|
CScriptSite::GetDocumentContextFromPosition(DWORD dwSourceContext,
|
|
ULONG uCharacterOffset,
|
|
ULONG uNumChars,
|
|
IDebugDocumentContext **ppsc)
|
|
{
|
|
HRESULT hr;
|
|
|
|
if (_pDDH)
|
|
{
|
|
ULONG ulStartPos;
|
|
|
|
hr = _pDDH->GetScriptBlockInfo(dwSourceContext, NULL, &ulStartPos, NULL);
|
|
if (hr)
|
|
goto Cleanup;
|
|
|
|
hr = _pDDH->CreateDebugDocumentContext(ulStartPos+uCharacterOffset,
|
|
uNumChars,
|
|
ppsc);
|
|
}
|
|
else
|
|
hr = E_UNEXPECTED;
|
|
|
|
Cleanup:
|
|
RRETURN(hr);
|
|
}
|
|
|
|
HRESULT
|
|
CScriptSite::GetApplication(IDebugApplication **ppda)
|
|
{
|
|
*ppda = ScriptHost()->_pMT->_pDA;
|
|
|
|
return (*ppda) ? S_OK : E_UNEXPECTED;
|
|
}
|
|
|
|
HRESULT
|
|
CScriptSite::GetRootApplicationNode(IDebugApplicationNode **ppdanRoot)
|
|
{
|
|
if (!ScriptHost()->_pMT->_pDA || !_pDDH)
|
|
{
|
|
return E_UNEXPECTED;
|
|
}
|
|
|
|
return _pDDH->GetDebugApplicationNode(ppdanRoot);
|
|
}
|
|
|
|
HRESULT
|
|
CScriptSite::OnScriptErrorDebug(IActiveScriptErrorDebug *pErrorDebug,
|
|
BOOL *pfEnterDebugger,
|
|
BOOL *pfCallOnScriptErrorWhenContinuing)
|
|
{
|
|
HRESULT hr;
|
|
IActiveScriptError * pError;
|
|
|
|
TraceTag((tagError, "OnScriptErrorDebug!"));
|
|
|
|
*pfEnterDebugger = FALSE;
|
|
*pfCallOnScriptErrorWhenContinuing = TRUE;
|
|
|
|
if (ScriptHost()->_fMustExitThread)
|
|
{
|
|
return S_OK;
|
|
}
|
|
|
|
hr = pErrorDebug->QueryInterface(IID_IActiveScriptError, (LPVOID*)&pError);
|
|
if (SUCCEEDED(hr))
|
|
{
|
|
_fInDebugError = TRUE;
|
|
|
|
hr = OnScriptError(pError);
|
|
|
|
_fInDebugError = FALSE;
|
|
|
|
if (hr == S_FALSE)
|
|
{
|
|
*pfEnterDebugger = TRUE;
|
|
}
|
|
|
|
*pfCallOnScriptErrorWhenContinuing = TRUE;
|
|
|
|
pError->Release();
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
//
|
|
// Method: CScriptSite::xxx, IBServer
|
|
//
|
|
// The implementation of IBServer passed to the script engine
|
|
// cannot be the same as that of the CBServerDoc because this
|
|
// causes a reference count loop with the script engine.
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
HRESULT CScriptSite::GetTypeInfoCount(UINT FAR* pctinfo)
|
|
{ return ScriptHost()->GetTypeInfoCount(pctinfo); }
|
|
HRESULT CScriptSite::GetTypeInfo(
|
|
UINT itinfo,
|
|
LCID lcid,
|
|
ITypeInfo FAR* FAR* pptinfo)
|
|
{ return ScriptHost()->GetTypeInfo(itinfo, lcid, pptinfo); }
|
|
HRESULT CScriptSite::GetIDsOfNames(
|
|
REFIID riid,
|
|
OLECHAR FAR* FAR* rgszNames,
|
|
UINT cNames,
|
|
LCID lcid,
|
|
DISPID FAR* rgdispid)
|
|
{ return ScriptHost()->GetIDsOfNames(riid, rgszNames, cNames, lcid, rgdispid); }
|
|
HRESULT CScriptSite::Invoke(
|
|
DISPID dispidMember,
|
|
REFIID riid,
|
|
LCID lcid,
|
|
WORD wFlags,
|
|
DISPPARAMS FAR* pdispparams,
|
|
VARIANT FAR* pvarResult,
|
|
EXCEPINFO FAR* pexcepinfo,
|
|
UINT FAR* puArgErr)
|
|
{ return ScriptHost()->Invoke(dispidMember, riid, lcid, wFlags, pdispparams, pvarResult, pexcepinfo, puArgErr); }
|
|
|
|
|
|
HRESULT CScriptSite::get_PublicData(VARIANT *pvData)
|
|
{ return ScriptHost()->get_PublicData(pvData); }
|
|
HRESULT CScriptSite::put_PublicData(VARIANT vData)
|
|
{ return ScriptHost()->put_PublicData(vData); }
|
|
HRESULT CScriptSite::get_PrivateData(VARIANT *pvData)
|
|
{ return ScriptHost()->get_PrivateData(pvData); }
|
|
HRESULT CScriptSite::put_PrivateData(VARIANT vData)
|
|
{ return ScriptHost()->put_PrivateData(vData); }
|
|
HRESULT CScriptSite::ExitProcess()
|
|
{ return ScriptHost()->ExitProcess(); }
|
|
HRESULT CScriptSite::Restart()
|
|
{ return ScriptHost()->Restart(); }
|
|
HRESULT CScriptSite::get_LocalMachine(BSTR *pbstrName)
|
|
{ return ScriptHost()->get_LocalMachine(pbstrName); }
|
|
HRESULT CScriptSite::Include(BSTR bstrPath)
|
|
{ return ScriptHost()->Include(bstrPath); }
|
|
HRESULT CScriptSite::CallScript(BSTR Path, VARIANT *ScriptParam)
|
|
{ return ScriptHost()->CallScript(Path, ScriptParam); }
|
|
HRESULT CScriptSite::SpawnScript(BSTR Path, VARIANT *ScriptParam)
|
|
{ return ScriptHost()->SpawnScript(Path, ScriptParam); }
|
|
HRESULT CScriptSite::get_ScriptParam(VARIANT *ScriptParam)
|
|
{ return ScriptHost()->get_ScriptParam(ScriptParam); }
|
|
HRESULT CScriptSite::get_ScriptPath(BSTR *bstrPath)
|
|
{ return ScriptHost()->get_ScriptPath(bstrPath); }
|
|
HRESULT CScriptSite::CallExternal(BSTR bstrDLLName, BSTR bstrFunctionName, VARIANT *pParam, long *plRetVal)
|
|
{ return ScriptHost()->CallExternal(bstrDLLName, bstrFunctionName, pParam, plRetVal); }
|
|
HRESULT CScriptSite::ResetSync(const BSTR bstrName)
|
|
{ return ScriptHost()->ResetSync(bstrName); }
|
|
HRESULT CScriptSite::WaitForSync(BSTR bstrName, long nTimeout, VARIANT_BOOL *pfTimedout)
|
|
{ return ScriptHost()->WaitForSync(bstrName, nTimeout, pfTimedout); }
|
|
HRESULT CScriptSite::WaitForMultipleSyncs(const BSTR bstrNameList, VARIANT_BOOL fWaitForAll, long nTimeout, long *plSignal)
|
|
{ return ScriptHost()->WaitForMultipleSyncs(bstrNameList, fWaitForAll, nTimeout, plSignal); }
|
|
HRESULT CScriptSite::SignalThreadSync(BSTR bstrName)
|
|
{ return ScriptHost()->SignalThreadSync(bstrName); }
|
|
HRESULT CScriptSite::TakeThreadLock(BSTR bstrName)
|
|
{ return ScriptHost()->TakeThreadLock(bstrName); }
|
|
HRESULT CScriptSite::ReleaseThreadLock(BSTR bstrName)
|
|
{ return ScriptHost()->ReleaseThreadLock(bstrName); }
|
|
HRESULT CScriptSite::DoEvents()
|
|
{ return ScriptHost()->DoEvents(); }
|
|
HRESULT CScriptSite::MessageBoxTimeout(BSTR msg, long cBtn, BSTR btnText, long time, long intrvl, VARIANT_BOOL cancel, VARIANT_BOOL confirm, long *plSel)
|
|
{ return ScriptHost()->MessageBoxTimeout(msg, cBtn, btnText, time, intrvl, cancel, confirm, plSel); }
|
|
HRESULT CScriptSite::RunLocalCommand(BSTR bstrCmd, BSTR bstrDir, BSTR bstrTitle, VARIANT_BOOL fMin, VARIANT_BOOL fGetOut, VARIANT_BOOL fWait, VARIANT_BOOL fNoPopup, VARIANT_BOOL fNoEnviron, long *plError)
|
|
{ return ScriptHost()->RunLocalCommand(bstrCmd, bstrDir, bstrTitle, fMin, fGetOut, fWait, fNoPopup, fNoEnviron, plError); }
|
|
HRESULT CScriptSite::CopyOrAppendFile(BSTR bstrSrc, BSTR bstrDst, long nSrcOffset, long nSrcLength, VARIANT_BOOL fAppend, long *nSrcFilePosition)
|
|
{ return ScriptHost()->CopyOrAppendFile(bstrSrc, bstrDst, nSrcOffset, nSrcLength, fAppend, nSrcFilePosition); }
|
|
HRESULT CScriptSite::GetLastRunLocalError(long *plErrorCode)
|
|
{ return ScriptHost()->GetLastRunLocalError(plErrorCode); }
|
|
HRESULT CScriptSite::GetProcessOutput(long lProcessID, BSTR *pbstrData)
|
|
{ return ScriptHost()->GetProcessOutput(lProcessID, pbstrData); }
|
|
HRESULT CScriptSite::GetProcessExitCode(long lProcessID, long *plExitCode)
|
|
{ return ScriptHost()->GetProcessExitCode(lProcessID, plExitCode); }
|
|
HRESULT CScriptSite::TerminateProcess(long lProcessID)
|
|
{ return ScriptHost()->TerminateProcess(lProcessID); }
|
|
HRESULT CScriptSite::SendToProcess(long lProcessID, BSTR bstrType, BSTR bstrData, long *plReturn)
|
|
{ return ScriptHost()->SendToProcess(lProcessID, bstrType, bstrData, plReturn); }
|
|
HRESULT CScriptSite::SendMail(BSTR to, BSTR cc, BSTR bcc, BSTR subject, BSTR msg, BSTR attach, BSTR user, BSTR pass, long *plError)
|
|
{ return ScriptHost()->SendMail(to, cc, bcc, subject, msg, attach, user, pass, plError); }
|
|
HRESULT CScriptSite::SendSMTPMail(BSTR from, BSTR to, BSTR cc, BSTR subject, BSTR msg, BSTR host, long *plError)
|
|
{ return ScriptHost()->SendSMTPMail(from, to, cc, subject, msg, host, plError); }
|
|
HRESULT CScriptSite::OUTPUTDEBUGSTRING(BSTR LogMsg)
|
|
{ return ScriptHost()->OUTPUTDEBUGSTRING(LogMsg); }
|
|
HRESULT CScriptSite::UnevalString(BSTR in, BSTR *out)
|
|
{ return ScriptHost()->UnevalString(in, out); }
|
|
HRESULT CScriptSite::ASSERT(VARIANT_BOOL Assertion, BSTR LogMsg)
|
|
{ return ScriptHost()->ASSERT(Assertion, LogMsg); }
|
|
HRESULT CScriptSite::Sleep (int nTimeout)
|
|
{ return ScriptHost()->Sleep (nTimeout); }
|
|
HRESULT CScriptSite::Reboot ()
|
|
{ return ScriptHost()->Reboot (); }
|
|
HRESULT CScriptSite::NotifyScript (BSTR bstrEvent, VARIANT vData)
|
|
{ return ScriptHost()->NotifyScript (bstrEvent, vData); }
|
|
HRESULT CScriptSite::RegisterEventSource (IDispatch *pDisp, BSTR bstrProgID)
|
|
{ return ScriptHost()->RegisterEventSource (pDisp, bstrProgID); }
|
|
HRESULT CScriptSite::UnregisterEventSource (IDispatch *pDisp)
|
|
{ return ScriptHost()->UnregisterEventSource (pDisp); }
|
|
HRESULT CScriptSite::get_HostMajorVer(long *plMajorVer)
|
|
{ return ScriptHost()->get_HostMajorVer (plMajorVer); }
|
|
HRESULT CScriptSite::get_HostMinorVer(long *plMinorVer)
|
|
{ return ScriptHost()->get_HostMinorVer (plMinorVer); }
|
|
HRESULT CScriptSite::get_StatusValue(long nIndex, long *pnStatus)
|
|
{ return ScriptHost()->get_StatusValue(nIndex, pnStatus); }
|
|
HRESULT CScriptSite::put_StatusValue(long nIndex, long nStatus)
|
|
{ return ScriptHost()->put_StatusValue(nIndex, nStatus); }
|