X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fdotnet%2FInvokerClient.h;fp=ghc%2Frts%2Fdotnet%2FInvokerClient.h;h=0000000000000000000000000000000000000000;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=122f455c01053f9050200e4917caa30f2e40034e;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git diff --git a/ghc/rts/dotnet/InvokerClient.h b/ghc/rts/dotnet/InvokerClient.h deleted file mode 100644 index 122f455..0000000 --- a/ghc/rts/dotnet/InvokerClient.h +++ /dev/null @@ -1,180 +0,0 @@ -/* - * InvokerClient interface defns for use with gcc. - * - * Note: These declarations mirror those of the InvokeBridge - * class declaration. - * - */ - -#include -#include -#include - -#ifdef __cplusplus -extern "C"{ -#endif - -#ifndef STDCALL -#define STDCALL __stdcall -#endif - -extern const CLSID CLSID_InvokeBridge; -extern const IID IID_IUnknown; -extern const IID IID_NULL; -extern const IID IID_InvokeBridge; - -#ifdef WANT_UUID_DECLS -const CLSID CLSID_InvokeBridge = { 0x39D497D9,0x60E0,0x3525,{0xB7,0xF2,0x7B,0xC0,0x96,0xD3,0xA2,0xA3}}; -//const IID IID_NULL = {0x00000000L, 0x0000, 0x0000, {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}}; -//const IID IID_IUnknown = {0x00000000L, 0x0000, 0x0000, {0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}}; -const IID IID_InvokeBridge = { 0xAFF5FFCA, 0xC5C2, 0x3D5B, {0xAF, 0xD5, 0xED, 0x8E, 0x4B, 0x38, 0xDB, 0x7B}}; - //0x3A85D703, 0xFAE4,0x3C5E, {0x9F,0x7E,0x20,0x98,0x31,0xCD,0x61,0x7A}}; -#endif - -#ifndef __InvokeBridge_INTERFACE_DEFINED__ -#define __InvokeBridge_INTERFACE_DEFINED__ -#undef INTERFACE -#define INTERFACE InvokeBridge -DECLARE_INTERFACE(InvokeBridge) -{ - STDMETHOD(QueryInterface)(THIS_ REFIID,PVOID*) PURE; - STDMETHOD_(ULONG,AddRef)(THIS) PURE; - STDMETHOD_(ULONG,Release)(THIS) PURE; - STDMETHOD(GetTypeInfoCount)(THIS_ UINT*) PURE; - STDMETHOD(GetTypeInfo)(THIS_ UINT,LCID,LPTYPEINFO*) PURE; - STDMETHOD(GetIDsOfNames)(THIS_ REFIID,LPOLESTR*,UINT,LCID,DISPID*) PURE; - STDMETHOD(Invoke)(THIS_ DISPID,REFIID,LCID,WORD,DISPPARAMS*,VARIANT*,EXCEPINFO*,UINT*) PURE; - - STDMETHOD(ToString)(THIS_ BSTR*) PURE; - STDMETHOD(Equals)(THIS_ BSTR*) PURE; - STDMETHOD(GetHashCode)(THIS_ long*) PURE; - STDMETHOD(GetType)(THIS_ IUnknown**); - STDMETHOD(CreateObject)(THIS_ BSTR,BSTR,SAFEARRAY*, VARIANT*) PURE; - STDMETHOD(InvokeMethod)(THIS_ VARIANT,BSTR,SAFEARRAY*,VARIANT*) PURE; - STDMETHOD(InvokeStaticMethod)(THIS_ BSTR,BSTR,SAFEARRAY*,VARIANT*) PURE; - - HRESULT ( STDCALL *GetField )( - InvokeBridge * This, - /* [in] */ VARIANT obj, - /* [in] */ BSTR fieldSpec, - /* [retval][out] */ VARIANT *pRetVal); - - HRESULT ( STDCALL *GetStaticField )( - InvokeBridge * This, - /* [in] */ BSTR clsName, - /* [in] */ BSTR fieldSpec, - /* [retval][out] */ VARIANT *pRetVal); - - HRESULT ( STDCALL *SetField )( - InvokeBridge * This, - /* [in] */ VARIANT obj, - /* [in] */ BSTR fieldSpec, - /* [in] */ VARIANT val); - - HRESULT ( STDCALL *SetStaticField )( - InvokeBridge * This, - /* [in] */ BSTR clsName, - /* [in] */ BSTR fieldSpec, - /* [in] */ VARIANT val); - - HRESULT ( STDCALL *NewString )( - InvokeBridge * This, - /* [in] */ BSTR s, - /* [retval][out] */VARIANT* pRetVal); - - HRESULT ( STDCALL *NewArgArray )( - InvokeBridge * This, - /* [in] */ long sz, - /* [retval][out] */IUnknown **pRetVal); - - HRESULT ( STDCALL *SetArg )( - InvokeBridge * This, - /* [in] */ SAFEARRAY * arr, - /* [in] */ VARIANT val, - /* [in] */ long idx); - - HRESULT ( STDCALL *GetArg )( - InvokeBridge * This, - /* [in] */ SAFEARRAY * arr, - /* [in] */ long idx, - /* [retval][out] */ VARIANT *pRetVal); - - HRESULT ( STDCALL *GetType_2 )( - InvokeBridge * This, - /* [in] */ BSTR typeName, - /* [retval][out] */ IUnknown **pRetVal); -}; -#endif - -#define InvokeBridge_QueryInterface(This,riid,ppvObject) \ - (This)->lpVtbl->QueryInterface(This,riid,ppvObject) - -#define InvokeBridge_AddRef(This) \ - (This)->lpVtbl->AddRef(This) - -#define InvokeBridge_Release(This) \ - (This)->lpVtbl->Release(This) - -#define InvokeBridge_GetTypeInfoCount(This,pctinfo) \ - (This)->lpVtbl->GetTypeInfoCount(This,pctinfo) - -#define InvokeBridge_GetTypeInfo(This,iTInfo,lcid,ppTInfo) \ - (This)->lpVtbl->GetTypeInfo(This,iTInfo,lcid,ppTInfo) - -#define InvokeBridge_GetIDsOfNames(This,riid,rgszNames,cNames,lcid,rgDispId) \ - (This)->lpVtbl->GetIDsOfNames(This,riid,rgszNames,cNames,lcid,rgDispId) - -#define InvokeBridge_Invoke(This,dispIdMember,riid,lcid,wFlags,pDispParams,pVarResult,pExcepInfo,puArgErr) \ - (This)->lpVtbl->Invoke(This,dispIdMember,riid,lcid,wFlags,pDispParams,pVarResult,pExcepInfo,puArgErr) - -#define InvokeBridge_get_ToString(This,pRetVal) \ - (This)->lpVtbl->get_ToString(This,pRetVal) - -#define InvokeBridge_Equals(This,obj,pRetVal) \ - (This)->lpVtbl->Equals(This,obj,pRetVal) - -#define InvokeBridge_GetHashCode(This,pRetVal) \ - (This)->lpVtbl->GetHashCode(This,pRetVal) - -#define InvokeBridge_GetType(This,pRetVal) \ - (This)->lpVtbl->GetType(This,pRetVal) - -#define InvokeBridge_CreateObject(This,assemName,objSpec,args,pRetVal) \ - (This)->lpVtbl->CreateObject(This,assemName,objSpec,args,pRetVal) - -#define InvokeBridge_InvokeMethod(This,obj,methSpec,args,pRetVal) \ - (This)->lpVtbl->InvokeMethod(This,obj,methSpec,args,pRetVal) - -#define InvokeBridge_InvokeStaticMethod(This,assemName,methSpec,args,pRetVal) \ - (This)->lpVtbl->InvokeStaticMethod(This,assemName,methSpec,args,pRetVal) - -#define InvokeBridge_GetField(This,obj,fieldSpec,pRetVal) \ - (This)->lpVtbl->GetField(This,obj,fieldSpec,pRetVal) - -#define InvokeBridge_GetStaticField(This,clsName,fieldSpec,pRetVal) \ - (This)->lpVtbl->GetStaticField(This,clsName,fieldSpec,pRetVal) - -#define InvokeBridge_SetField(This,obj,fieldSpec,val) \ - (This)->lpVtbl->SetField(This,obj,fieldSpec,val) - -#define InvokeBridge_SetStaticField(This,clsName,fieldSpec,val) \ - (This)->lpVtbl->SetStaticField(This,clsName,fieldSpec,val) - -#define InvokeBridge_NewString(This,s,pRetVal) \ - (This)->lpVtbl->NewString(This,s,pRetVal) - -#define InvokeBridge_NewArgArray(This,sz,pRetVal) \ - (This)->lpVtbl->NewArgArray(This,sz,pRetVal) - -#define InvokeBridge_SetArg(This,arr,val,idx) \ - (This)->lpVtbl->SetArg(This,arr,val,idx) - -#define InvokeBridge_GetArg(This,arr,idx,pRetVal) \ - (This)->lpVtbl->GetArg(This,arr,idx,pRetVal) - -#define InvokeBridge_GetType_2(This,typeName,pRetVal) \ - (This)->lpVtbl->GetType_2(This,typeName,pRetVal) - -#ifdef __cplusplus -} -#endif