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.
124 lines
4.1 KiB
124 lines
4.1 KiB
//+-------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
//
|
|
// Copyright (C) Microsoft Corporation, 1999 - 1999
|
|
//
|
|
// File: ScriptHost.h
|
|
//
|
|
// Script Hosting implementation.
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
#ifndef SCRIPTHOST_H
|
|
#define SCRIPTHOST_H
|
|
#include "activscp.h"
|
|
#include "tstring.h"
|
|
|
|
#define SCRIPT_ENGINE_KEY _T("ScriptEngine")
|
|
#define CLSIDSTR _T("CLSID")
|
|
|
|
class CScriptHost;
|
|
|
|
//+-------------------------------------------------------------------
|
|
//
|
|
// class: CScriptHostMgr
|
|
//
|
|
// Purpose: Manages all the script hosts (CScriptHost). Owned by
|
|
// CAMCApp which calls ScExecuteScript.
|
|
//
|
|
// History: 11-05-1999 AnandhaG Created
|
|
//
|
|
//--------------------------------------------------------------------
|
|
class CScriptHostMgr
|
|
{
|
|
public:
|
|
CScriptHostMgr(LPDISPATCH pDispatch);
|
|
~CScriptHostMgr();
|
|
|
|
public:
|
|
// Accessors.
|
|
SC ScGetMMCObject(LPUNKNOWN *ppunkItem);
|
|
SC ScGetMMCTypeInfo(LPTYPEINFO *ppTypeInfo);
|
|
|
|
// Members to run a script.
|
|
SC ScExecuteScript(const tstring& strFileName);
|
|
SC ScExecuteScript(LPOLESTR pszScriptText, const tstring& strExtn);
|
|
|
|
private:
|
|
SC ScLoadScriptFromFile (const tstring& strFileName, LPOLESTR* pszScriptText);
|
|
SC ScDestroyScriptHosts();
|
|
SC ScGetScriptEngine(const tstring& strFileName, tstring& strScriptEngine, CLSID& rClsidEngine);
|
|
SC ScGetScriptEngineFromExtn(const tstring& strFileExtn, tstring& strScriptEngine, CLSID& rClsidEngine);
|
|
SC ScExecuteScriptHelper(LPCOLESTR pszScriptText, const tstring strScriptEngine, const CLSID& EngineClsid);
|
|
|
|
private:
|
|
typedef std::map<tstring, tstring> ScriptExtnToScriptEngineNameMap;
|
|
ScriptExtnToScriptEngineNameMap m_ScriptExtnToScriptEngineNameMap;
|
|
|
|
typedef std::map<tstring, CLSID> ScriptExtnToScriptEngineMap;
|
|
ScriptExtnToScriptEngineMap m_ScriptExtnToScriptEngineMap;
|
|
|
|
typedef std::vector<IUnknownPtr> ArrayOfScriptHosts;
|
|
ArrayOfScriptHosts m_ArrayOfHosts;
|
|
|
|
IDispatchPtr m_spMMCObjectDispatch;
|
|
ITypeInfoPtr m_spMMCObjectTypeInfo;
|
|
};
|
|
|
|
//+-------------------------------------------------------------------
|
|
//
|
|
// class: CScriptHost
|
|
//
|
|
// Purpose: Script Host (executes a single script).
|
|
//
|
|
// History: 11-05-1999 AnandhaG Created
|
|
//
|
|
//--------------------------------------------------------------------
|
|
class CScriptHost : public CComObjectRoot,
|
|
public IActiveScriptSite,
|
|
public IActiveScriptSiteWindow
|
|
{
|
|
private:
|
|
CScriptHost(const CScriptHost&);
|
|
|
|
public:
|
|
CScriptHost();
|
|
~CScriptHost();
|
|
|
|
public:
|
|
// ATL COM map
|
|
BEGIN_COM_MAP(CScriptHost)
|
|
COM_INTERFACE_ENTRY(IActiveScriptSite)
|
|
COM_INTERFACE_ENTRY(IActiveScriptSiteWindow)
|
|
END_COM_MAP()
|
|
|
|
SC ScRunScript(CScriptHostMgr* pMgr, LPCOLESTR pszScriptText,
|
|
const tstring& strScriptEngine, const CLSID& rEngineClsid);
|
|
|
|
SC ScStopScript();
|
|
|
|
// IActiveScriptSite methods.
|
|
STDMETHOD(GetLCID) ( LCID *plcid);
|
|
STDMETHOD(GetItemInfo) ( LPCOLESTR pstrName, DWORD dwReturnMask,
|
|
IUnknown **ppunkItem, ITypeInfo **ppTypeInfo);
|
|
STDMETHOD(GetDocVersionString)( BSTR *pbstrVersionString);
|
|
STDMETHOD(OnScriptTerminate) ( const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo);
|
|
STDMETHOD(OnStateChange) (SCRIPTSTATE ssScriptState);
|
|
STDMETHOD(OnScriptError) (IActiveScriptError *pase);
|
|
STDMETHOD(OnEnterScript) (void);
|
|
STDMETHOD(OnLeaveScript) (void);
|
|
|
|
// IActiveScriptSiteWindow methods.
|
|
STDMETHOD(GetWindow) (HWND *phwnd);
|
|
STDMETHOD(EnableModeless) (BOOL fEnable);
|
|
|
|
private:
|
|
tstring m_strScriptEngine;
|
|
CLSID m_EngineClsid;
|
|
CScriptHostMgr* m_pScriptHostMgr;
|
|
|
|
IActiveScriptPtr m_spActiveScriptEngine;
|
|
IActiveScriptParsePtr m_spActiveScriptParser;
|
|
};
|
|
|
|
#endif SCRIPTHOST_H
|