/*
 *  Copyright(c) 2000 arton
 *
 *  You may distribute under the terms of either the GNU General Public
 *  License
 *
 *  $Date: 2003/08/09 17:03:49 $
 */
#ifndef __RUBYWRAPPER_H_
#define __RUBYWRAPPER_H_

#include "resource.h"       // メイン シンボル

#include "giplip.h"
/////////////////////////////////////////////////////////////////////////////
// CRubyWrapper
class CScrError;
struct SInvokeParam;
struct STypeConvParam;
struct oledata;

struct OlePair
{
	OlePair() : pole(NULL), module(0) {}
	OlePair(oledata* p, VALUE m) : pole(p), module(m) {}
	OlePair(const OlePair& r) : pole(r.pole), module(r.module) {}
	struct oledata* pole;
	VALUE  module;
};

typedef std::list<OlePair> OleList;
typedef std::list<OlePair>::iterator OleListIter;

class ATL_NO_VTABLE CRubyWrapper : 
	public CComObjectRootEx<CComSingleThreadModel>,
	public CComCoClass<CRubyWrapper, &CLSID_RubyWrapper>,
	public IRubyWrapper
{
public:
	CRubyWrapper() :
	  m_uiQuitTimer(0),
	  m_pCurrentEngine(NULL),
	  m_fTracing(false)
	{
	}

DECLARE_REGISTRY_RESOURCEID(IDR_RUBYWRAPPER)

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CRubyWrapper)
	COM_INTERFACE_ENTRY(IRubyWrapper)
END_COM_MAP()

	HRESULT FinalConstruct();
	void FinalRelease();

	// C++ object function
	void Globalize();
	void Unglobalize();
	static IRubyWrapper* GetWrapper();
	static CRubyWrapper* GetCWrapper();
	bool ReleaseOle(oledata*);
	void AddOle(VALUE, oledata*);
	inline UINT GetTimerID() const { return m_uiQuitTimer; }
	inline IRubyEngine* GetCurrentEngine() { return m_pCurrentEngine; }

	inline void SetHandle(HANDLE h) { m_hThread = h; }
	inline HANDLE GetHandle() const { return m_hThread; }
// IRubyWrapper
public:
	HRESULT STDMETHODCALLTYPE rb_intern( 
            /* [string][in] */ unsigned char __RPC_FAR *name,
            /* [out] */ unsigned long __RPC_FAR *pid);
        
	HRESULT STDMETHODCALLTYPE rb_module_new( 
            /* [in] */ unsigned long parent,
            /* [out] */ unsigned long __RPC_FAR *p);
        
	HRESULT STDMETHODCALLTYPE SearchMethod( 
            /* [in] */ unsigned long val,
            /* [string][in] */ unsigned char __RPC_FAR *pName,
            /* [out] */ DISPID __RPC_FAR *pDispID);

	HRESULT STDMETHODCALLTYPE rb_invoke( 
            /* [in] */ IRubyEngine* pengine,
            /* [in] */ unsigned long func,
            /* [in] */ unsigned long module,
            /* [out][in] */ DISPPARAMS __RPC_FAR *pDispParams,
            /* [out] */ VARIANT __RPC_FAR *pVarResult,
            /* [out] */ IActiveScriptError __RPC_FAR *__RPC_FAR *ppError);

	HRESULT STDMETHODCALLTYPE SearchClass( 
            /* [string][in] */ unsigned char __RPC_FAR *pName,
            /* [out] */ unsigned long __RPC_FAR *pval);

	HRESULT STDMETHODCALLTYPE rb_funcall_with_string2( 
            /* [in] */ IRubyEngine __RPC_FAR *pengine,
            /* [in] */ unsigned long val,
            /* [in] */ unsigned long id,
            /* [in] */ long line,
            /* [in] */ long cb,
            /* [size_is][in] */ unsigned char __RPC_FAR *p,
            /* [in] */ boolean TraceRequired,
            /* [out] */ VARIANT __RPC_FAR *pVarResult,
            /* [out] */ IActiveScriptError __RPC_FAR *__RPC_FAR *ppError);

	HRESULT STDMETHODCALLTYPE RegisterObject( 
            /* [string][in] */ unsigned char __RPC_FAR *pName,
            /* [in] */ unsigned long Module);
        
	HRESULT STDMETHODCALLTYPE UnregisterObject( 
            /* [string][in] */ unsigned char __RPC_FAR *pName,
            /* [in] */ unsigned long Module);

	HRESULT STDMETHODCALLTYPE Disconnect(
	            /* [in] */ IRubyEngine __RPC_FAR *pengine);

private:
	UINT m_uiQuitTimer;
	VALUE m_valList;
	ID m_idSize;
	ID m_idMethods;
	ID m_idMethodDefined;
	ID m_idDelete;
	OleList m_listOle;
	static CRubyWrapper* s_pWrapper;
	static GIP(IRubyWrapper) s_gip;
	static VALUE CallRuby(VALUE val);
	static IActiveScriptError* FetchErrorInfo(LPCSTR);
	HANDLE m_hThread;
	IRubyEngine* m_pCurrentEngine;
	//
	void GetValue(IRubyEngine *pengine, VALUE, VARIANT*, IActiveScriptError**);
	void GetEnum(IRubyEngine *pengine, VALUE, VARIANT*, IActiveScriptError**);
	static VALUE add_item(VALUE item, VALUE ary);
	static VALUE InvokeRuby(VALUE pParam);
	static VALUE val2var(VALUE pParam);
	//
	bool m_fTracing;
};

#endif //__RUBYWRAPPER_H_