+++ /dev/null
-/*
- * C callable bridge to the .NET object model
- *
- * Managed C++ is used to access the .NET object model via
- * System.Reflection. Here we provide C callable functions
- * to that functionality, which we then export via a COM
- * component.
- *
- * Note: the _only_ reason why we're going via COM and not simply
- * exposing the required via some DLL entry points, is that COM
- * gives us location independence (i.e., the RTS doesn't need
- * be told where this interop layer resides in order to hoik
- * it in, the CLSID suffices (provided the component has been
- * registered, of course.)) It is a bit tiresome to have play
- * by the .NET COM Interop's rules as regards argument arrays,
- * so we may want to revisit this issue at some point.
- *
- * [ But why not simply use MC++ and provide C-callable entry
- * points to the relevant functionality, and avoid COM interop
- * alltogether? Because we have to be able to (statically)
- * link with gcc-compiled code, and linking MC++ and gcc-compiled
- * object files doesn't work.]
- *
- * Note: you need something never than gcc-2.95 to compile this
- * code (I'm using gcc-3.2, which comes with mingw-2).
- */
-#define _WIN32_DCOM
-#define COBJMACROS
-#include <stdio.h>
-#include <stdlib.h>
-#include <wtypes.h>
-#ifndef _MSC_VER
-#include <oaidl.h>
-#include <objbase.h>
-#include <oleauto.h>
-# if defined(COBJMACROS) && !defined(_MSC_VER)
-#define IErrorInfo_QueryInterface(T,r,O) (T)->lpVtbl->QueryInterface(T,r,O)
-#define IErrorInfo_AddRef(T) (T)->lpVtbl->AddRef(T)
-#define IErrorInfo_Release(T) (T)->lpVtbl->Release(T)
-#define IErrorInfo_GetSource(T,pbstr) (T)->lpVtbl->GetSource(T,pbstr)
-#define IErrorInfo_GetDescription(T,pbstr) (T)->lpVtbl->GetDescription(T,pbstr)
-
-#define ISupportErrorInfo_QueryInterface(T,r,O) (T)->lpVtbl->QueryInterface(T,r,O)
-#define ISupportErrorInfo_AddRef(T) (T)->lpVtbl->AddRef(T)
-#define ISupportErrorInfo_Release(T) (T)->lpVtbl->Release(T)
-#define ISupportErrorInfo_InterfaceSupportsErrorInfo(T,iid) (T)->lpVtbl->InterfaceSupportsErrorInfo(T,iid)
-# endif
-#endif
-#include "DNInvoke.h"
-#define WANT_UUID_DECLS
-#include "InvokerClient.h"
-#include "Dotnet.h"
-
-/* Local prototypes */
-static void genError( IUnknown* pUnk,
- HRESULT hr,
- char* loc,
- char** pErrMsg);
-static int startBridge(char**);
-static int fromVariant
- ( DotnetType resTy,
- VARIANT* pVar,
- void* res,
- char** pErrMsg);
-static VARIANT* toVariant ( DotnetArg* p );
-
-/* Pointer to .NET COM component instance; instantiated on demand. */
-static InvokeBridge* pBridge = NULL;
-
-/* convert a char* to a BSTR, copied from the HDirect comlib/ sources */
-static
-HRESULT
-stringToBSTR( /*[in,ptr]*/const char* pstrz
- , /*[out]*/ BSTR* pbstr
- )
-{
- int i;
-
- if (!pbstr) {
- return E_FAIL;
- } else {
- *pbstr = NULL;
- }
- if (!pstrz) {
- return S_OK;
- }
-
- i = MultiByteToWideChar(CP_ACP, 0, pstrz, -1, NULL, 0);
- if ( i < 0 ) {
- return E_FAIL;
- }
- *pbstr = SysAllocStringLen(NULL,i-1);
- if (*pbstr != NULL) {
- MultiByteToWideChar(CP_ACP, 0, pstrz, -1, *pbstr, i-1);
- // (*pbstr)[i]=0;
- return S_OK;
- } else {
- return E_FAIL;
- }
-}
-
-static
-char*
-bstrToString( BSTR bstr )
-{
- int i,len;
- char *res;
- int blen;
-
- if (!bstr) {
- return NULL;
- }
-
- blen = SysStringLen(bstr);
-
- /* pass in NULL for the multi-byte arg in order to compute length first */
- len = WideCharToMultiByte(CP_ACP, 0, bstr, blen,
- NULL, 0, NULL, NULL);
- if (len == 0) return NULL;
-
- /* Allocate string of required length. */
- res = (char*)malloc(sizeof(char) * (len + 1));
- if (!res) return NULL;
-
- i = WideCharToMultiByte(CP_ACP, 0, bstr, blen,
- res, (len+1), NULL, NULL);
-
- /* Poor error handling to map this to NULL. */
- if ( i == 0 ) return NULL;
-
- /* Terminate and return */
- res[i] = '\0';
- return res;
-}
-
-static
-void
-freeArgs ( SAFEARRAY* psa )
-{
- /* The argument SAFEARRAYs contain dynamically allocated
- * VARIANTs. Release the VARIANT contents and its memory here.
- */
- long lb,ub;
- int i;
- HRESULT hr;
- VARIANT *pv = NULL;
-
- hr = SafeArrayGetLBound(psa, 1, &lb);
- if (FAILED(hr)) {
- fprintf(stderr, "freeArgs: failed fetching lower bound\n");
- SafeArrayDestroy(psa);
- return;
- }
- hr = SafeArrayGetUBound(psa, 1, &ub);
- if (FAILED(hr)) {
- fprintf(stderr, "freeArgs: failed fetching upper bound\n");
- SafeArrayDestroy(psa);
- return;
- }
- for ( i = 0; i < (ub - lb); i++ ) {
- hr = SafeArrayGetElement(psa,(long*)&i,(void*)pv);
- if (FAILED(hr)) {
- fprintf(stderr, "freeArgs: unable to fetch element %d\n", i);
- SafeArrayDestroy(psa);
- return;
- }
- VariantClear(pv);
- free(pv);
- }
- SafeArrayDestroy(psa);
-}
-
-static
-SAFEARRAY*
-marshalArgs ( DotnetArg* args,
- unsigned int n_args )
-{
- SAFEARRAY *psa;
- SAFEARRAYBOUND rgsabound[1];
- int i;
- long idxArr[1];
- HRESULT hr;
- VARIANT* var;
-
- rgsabound[0].lLbound = 0;
- rgsabound[0].cElements = n_args;
- psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);
-
- for(i=0;i < n_args; i++) {
- idxArr[0] = i;
- var = toVariant(&args[i]);
- hr = SafeArrayPutElement(psa, idxArr, (void*)var);
- }
- return psa;
-}
-
-/*
- * ***** Accessing the .NET object model *****
- *
- * General remarks:
- *
- * - the functions report error conditions via their return value; a char*.
- * If NULL, the call was successful. If not, the returned string
- * contains the (dynamically allocated) error message.
- *
- * This unorthodox calling convetion is used to simplify the task
- * of interfacing to these funs from GHC-generated code.
- */
-
-/*
- * Function: DN_invokeStatic()
- *
- * Given assembly and fully-qualified name of a static .NET method,
- * invoke it using the supplied arguments.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_invokeStatic ( char *assemName,
- char *methName,
- DotnetArg *args,
- int n_args,
- DotnetType resultTy,
- void *res)
-{
- SAFEARRAY* psa;
- VARIANT result;
- HRESULT hr;
- BSTR b_assemName;
- BSTR b_methName;
- char* errMsg = NULL;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- /* Package up arguments */
- psa = marshalArgs(args, n_args);
- VariantInit(&result);
-
- hr = stringToBSTR(assemName, &b_assemName);
- hr = stringToBSTR(methName, &b_methName);
-
- hr = InvokeBridge_InvokeStaticMethod(pBridge,
- b_assemName,
- b_methName,
- psa,
- &result);
- SysFreeString(b_assemName);
- SysFreeString(b_methName);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "DInvoke.invokeStatic", &errMsg);
- return errMsg;
- }
-
- fromVariant(resultTy, &result, res, &errMsg);
- freeArgs(psa);
-
- return errMsg;
-}
-
-/*
- * Function: DN_invokeMethod()
- *
- * Given method name and arguments, invoke .NET method on an object.
- * The object ref / this-pointer is passed in as the last argument.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_invokeMethod ( char *clsAndMethName,
- DotnetArg *args,
- int n_args,
- DotnetType resultTy,
- void *res)
-{
- SAFEARRAY* psa;
- VARIANT result;
- HRESULT hr;
- char* methName;
- BSTR b_methName;
- char* errMsg = NULL;
- VARIANT *thisPtr;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- if (n_args <= 0) {
- genError(NULL, 0x0, "Invoke.invokeMethod - missing this pointer", &errMsg);
- return errMsg;
- }
-
- /* The this-pointer is last */
- thisPtr = toVariant(&args[n_args-1]);
-
- /* Package up arguments */
- psa = marshalArgs(args, n_args-1);
- VariantInit(&result);
-
- /* If the user has qualified method with class, ignore the class bit. */
- if ( (methName = strrchr(clsAndMethName, '.')) == NULL) {
- methName = clsAndMethName;
- } else {
- /* Skip past '.' */
- methName++;
- }
-
- hr = stringToBSTR(methName, &b_methName);
- hr = InvokeBridge_InvokeMethod(pBridge,
- *thisPtr,
- b_methName,
- psa,
- &result);
- SysFreeString(b_methName);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "Invoke.invokeMethod", &errMsg);
- return errMsg;
- }
-
- fromVariant(resultTy, &result, res, &errMsg);
- freeArgs(psa);
-
- return errMsg;
-}
-
-/*
- * Function: DN_getField()
- *
- * Given a field name and an object pointer, read a field value.
- * The object ref / this-pointer is passed in as the last argument.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_getField ( char *clsAndMethName,
- DotnetArg *args,
- int n_args,
- DotnetType resultTy,
- void *res)
-{
- VARIANT result;
- HRESULT hr;
- char* methName;
- BSTR b_methName;
- char* errMsg = NULL;
- VARIANT *thisPtr;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- if (n_args <= 0) {
- genError(NULL, 0x0, "Invoke.getField - missing this pointer", &errMsg);
- return errMsg;
- }
-
- /* The this-pointer is last */
- thisPtr = toVariant(&args[n_args-1]);
- VariantInit(&result);
-
- /* If the user has qualified method with class, ignore the class bit. */
- if ( (methName = strrchr(clsAndMethName, '.')) == NULL) {
- methName = clsAndMethName;
- } else {
- /* Skip past '.' */
- methName++;
- }
-
- hr = stringToBSTR(methName, &b_methName);
- hr = InvokeBridge_GetField(pBridge,
- *thisPtr,
- b_methName,
- &result);
- SysFreeString(b_methName);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "Invoke.getField", &errMsg);
- return errMsg;
- }
-
- fromVariant(resultTy, &result, res, &errMsg);
- return errMsg;
-}
-
-/*
- * Function: DN_setField()
- *
- * Given field name, a value and an object reference, set the field value of
- * an object.
- * The object ref / this-pointer is passed in as the last argument.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_setField ( char *clsAndMethName,
- DotnetArg *args,
- int n_args,
- /* next two args are ignored */
- DotnetType resultTy,
- void *res)
-{
- HRESULT hr;
- char* methName;
- BSTR b_methName;
- char* errMsg = NULL;
- VARIANT *thisPtr;
- VARIANT *pVal;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- if (n_args != 2) {
- genError(NULL, 0x0, "Invoke.setField - missing this pointer", &errMsg);
- return errMsg;
- }
-
- /* The this-pointer is last */
- thisPtr = toVariant(&args[1]);
-
- /* Package up arguments */
- pVal = toVariant(&args[0]);
-
- /* If the user has qualified method with class, ignore the class bit. */
- if ( (methName = strrchr(clsAndMethName, '.')) == NULL) {
- methName = clsAndMethName;
- } else {
- /* Skip past '.' */
- methName++;
- }
-
- hr = stringToBSTR(methName, &b_methName);
- hr = InvokeBridge_SetField(pBridge,
- *thisPtr,
- b_methName,
- *pVal);
- SysFreeString(b_methName);
- VariantClear(pVal);
- free(pVal);
- free(thisPtr);
-
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "Invoke.setField", &errMsg);
- return errMsg;
- }
- return errMsg;
-}
-
-
-/*
- * Function: DN_createObject()
- *
- * Given assembly and fully-qualified name of a type,
- * invoke its (possibly parameterised) constructor.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_createObject ( char *assemName,
- char *methName,
- DotnetArg *args,
- int n_args,
- DotnetType resultTy,
- void *res)
-{
- SAFEARRAY* psa;
- VARIANT result;
- HRESULT hr;
- BSTR b_assemName;
- BSTR b_methName;
- char* errMsg = NULL;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- /* Package up arguments */
- psa = marshalArgs(args, n_args);
- VariantInit(&result);
-
- hr = stringToBSTR(assemName, &b_assemName);
- hr = stringToBSTR(methName, &b_methName);
-
- hr = InvokeBridge_CreateObject(pBridge,
- b_assemName,
- b_methName,
- psa,
- &result);
- SysFreeString(b_assemName);
- SysFreeString(b_methName);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "DN_createObject", &errMsg);
- return errMsg;
- }
-
- fromVariant(resultTy, &result, res, &errMsg);
- freeArgs(psa);
-
- return errMsg;
-}
-
-/*
- * Function: DN_getStatic()
- *
- * Given assembly and fully-qualified field name, fetch value of static
- * field.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_getStatic ( char *assemName,
- char *fieldClsName,
- /* the next two args are ignored */
- DotnetArg *args,
- int n_args,
- DotnetType resultTy,
- void *res)
-{
- VARIANT result;
- HRESULT hr;
- BSTR b_assemName;
- BSTR b_clsName;
- BSTR b_fieldName;
- char* errMsg = NULL;
- char* fieldName;
- char* clsName = fieldName;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- fieldName = (char*)malloc(sizeof(char) * (strlen(fieldClsName) + 1));
- strcpy(fieldName, fieldClsName);
- clsName = fieldName;
-
- if (( fieldName = strrchr(fieldName, '.')) == NULL ) {
- genError((IUnknown*)pBridge, 0x0, "Invoke.getStatic - malformed field spec", &errMsg);
- return errMsg;
- }
- *fieldName = '\0';
- fieldName++;
-
- VariantInit(&result);
-
- hr = stringToBSTR(assemName, &b_assemName);
- hr = stringToBSTR(fieldName, &b_fieldName);
- hr = stringToBSTR(clsName, &b_clsName);
- /* ToDo: honour assembly spec */
- hr = InvokeBridge_GetStaticField(pBridge,
- b_clsName,
- b_fieldName,
- &result);
- SysFreeString(b_assemName);
- SysFreeString(b_clsName);
- SysFreeString(b_fieldName);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "Invoke.getStatic", &errMsg);
- return errMsg;
- }
- fromVariant(resultTy, &result, res, &errMsg);
-
- return errMsg;
-}
-
-/*
- * Function: DN_setStatic()
- *
- * Given assembly and fully-qualified field name, set value of static
- * field.
- *
- * Returns NULL on success, pointer to error message if an error.
- *
- */
-char*
-DN_setStatic ( char *assemName,
- char *fieldClsName,
- DotnetArg *args,
- int n_args,
- /* the next two args are ignored */
- DotnetType resultTy,
- void *res)
-{
- VARIANT result;
- VARIANT *pVal;
- HRESULT hr;
- BSTR b_assemName;
- BSTR b_clsName;
- BSTR b_fieldName;
- char* errMsg = NULL;
- char* fieldName;
- char* clsName = fieldName;
-
- if (!pBridge && !startBridge(&errMsg)) {
- return errMsg;
- }
-
- fieldName = (char*)malloc(sizeof(char) * (strlen(fieldClsName) + 1));
- strcpy(fieldName, fieldClsName);
- clsName = fieldName;
-
- if (( fieldName = strrchr(fieldName, '.')) == NULL ) {
- genError((IUnknown*)pBridge, 0x0, "Invoke.setStatic - malformed field spec", &errMsg);
- return errMsg;
- }
- *fieldName = '\0';
- fieldName++;
-
- pVal = toVariant(&args[0]);
- VariantInit(&result);
-
- hr = stringToBSTR(assemName, &b_assemName);
- hr = stringToBSTR(fieldName, &b_fieldName);
- hr = stringToBSTR(clsName, &b_clsName);
- /* ToDo: honour assembly spec */
- hr = InvokeBridge_SetStaticField(pBridge,
- b_clsName,
- b_fieldName,
- *pVal);
- SysFreeString(b_assemName);
- SysFreeString(b_clsName);
- SysFreeString(b_fieldName);
- VariantClear(pVal);
- free(pVal);
- if (FAILED(hr)) {
- genError((IUnknown*)pBridge, hr, "Invoke.setStatic", &errMsg);
- return errMsg;
- }
- fromVariant(resultTy, &result, res, &errMsg);
-
- return errMsg;
-}
-
-
-
-
-/*
- * Function: startBridge(pErrMsg)
- *
- * Instantiates an InvokeBridge component, which is then
- * used to interact with the .NET world.
- *
- * If the component isn't available locally, zero is returned.
- * Otherwise, 1.
- */
-static
-int
-startBridge(char** pErrMsg)
-{
- HRESULT hr;
- IUnknown *pUnk;
-
- hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.createBridge.CoInitializeEx", pErrMsg);
- return FALSE;
- }
-
- hr = CoCreateInstance( &CLSID_InvokeBridge,
- NULL,
- CLSCTX_INPROC_SERVER,
- &IID_IUnknown,
- (void**)&pUnk);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.createBridge.CoCreateInstance", pErrMsg);
- return 0;
- }
-
- hr = IUnknown_QueryInterface(pUnk, &IID_InvokeBridge, (void**)&pBridge);
- IUnknown_Release(pUnk);
- if (FAILED(hr)) {
- genError(pUnk, hr, "DInvoke.createBridge.QueryInterface.InvokeBridge", pErrMsg);
- return 0;
- }
-
- return 1;
-}
-
-/*
- * Function: stopBridge()
- *
- * Releases the InvokeBridge object and closes the COM library.
- *
- */
-void
-stopDotnetBridge()
-{
- if (pBridge) {
- InvokeBridge_Release(pBridge);
- pBridge = NULL;
- CoUninitialize();
- }
- /* Match up the call to CoInitializeEx() in startBridge(). */
-}
-
-/*
- * Function: genError()
- *
- * Construct a string describing an error condition given
- * an HRESULT and a location.
- *
- * If an interface pointer is passed in via the first arg,
- * attempts are made to get at richer error information through
- * the IErrorInfo interface. (Note: we don't currently look for
- * the _Exception interface for even more detailed info.)
- *
- */
-#define LOCATION_HDR "Location: "
-#define HRESULT_HDR "HRESULT: "
-#define SOURCE_HDR "Source: "
-#define DESCR_HDR "Description: "
-#define NEWLINE_EXTRA 3
-
-static
-void
-genError(IUnknown* pUnk,
- HRESULT err,
- char* loc,
- char** pErrMsg)
-{
- HRESULT hr;
- HRESULT invoke_hr = err;
- char* invoke_src = NULL;
- char* invoke_descr = NULL;
- char* buf;
- int bufLen;
-
- /* If an interface pointer has been supplied, look for
- * IErrorInfo in order to get more detailed information
- * on the failure.
- *
- * The CLR's .NET COM Interop implementation does provide
- * IErrorInfo, so we're not really clutching at straws here..
- *
- * Note: CLR also reflects .NET exceptions via the _Exception*
- * interface..
- *
- */
- if (pUnk) {
- ISupportErrorInfo *pSupp;
- IErrorInfo *pErrInfo;
- BSTR src = NULL;
- BSTR descr = NULL;
-
- hr = IUnknown_QueryInterface(pUnk,
- &IID_ISupportErrorInfo,
- (void**)&pSupp);
- if ( SUCCEEDED(hr) ) {
- hr = ISupportErrorInfo_InterfaceSupportsErrorInfo(pSupp,
- &IID_InvokeBridge);
- if ( SUCCEEDED(hr) ) {
- hr = GetErrorInfo(0,&pErrInfo);
- if ( SUCCEEDED(hr) ) {
- IErrorInfo_GetSource(pErrInfo,&src);
- IErrorInfo_GetDescription(pErrInfo,&descr);
- invoke_src = bstrToString(src);
- invoke_descr = bstrToString(descr);
-
- IErrorInfo_Release(pErrInfo);
- if (src) { SysFreeString(src); src = NULL; }
- if (descr) { SysFreeString(descr); descr = NULL; }
- }
- ISupportErrorInfo_Release(pSupp);
- }
- }
- }
- /* Putting it all together.. */
- bufLen = sizeof(LOCATION_HDR) + strlen(loc) + NEWLINE_EXTRA +
- sizeof(HRESULT_HDR) + 16 + NEWLINE_EXTRA +
- sizeof(SOURCE_HDR) + (invoke_src ? strlen(invoke_src) : 16) + NEWLINE_EXTRA +
- sizeof(DESCR_HDR) + (invoke_descr ? strlen(invoke_descr) : 16) + NEWLINE_EXTRA;
- buf = (char*) malloc(sizeof(char) * (bufLen + 1));
- if (!buf) {
- fprintf(stderr, "Unable to allocate %d for error message", (bufLen + 1));
- *pErrMsg = NULL;
- return;
- }
-
- _snprintf(buf, bufLen, "%s%s\n%s0x%08x\n%s%s\n%s%s",
- LOCATION_HDR, loc,
- HRESULT_HDR, invoke_hr,
- SOURCE_HDR, invoke_src,
- DESCR_HDR, invoke_descr);
-
- /* Done with these chaps */
- if (invoke_src) free(invoke_src);
- if (invoke_descr) free(invoke_descr);
-
- if (pErrMsg) *pErrMsg = buf;
- fprintf(stderr, "**InvokeBridge Error:\n%s", buf); fflush(stderr);
-}
-
-/* Converting to/from VARIANTs */
-
-/*
- * Function: fromVariant()
- *
- * Unmarshal the contents of a VARIANT, converting its embedded value
- * into the desired DotnetType (if possible.)
- *
- * Returns 1 if successful, 0 otherwise. If the conversion fails,
- * *pErrMsg holds the error message string.
- */
-static
-int
-fromVariant (DotnetType resTy,
- VARIANT* pVar,
- void* res,
- char** pErrMsg)
-{
- VARIANT vNew;
- HRESULT hr;
-
- VariantInit(&vNew);
- switch(resTy) {
- case Dotnet_Byte:
- case Dotnet_Char:
- hr = VariantChangeType (&vNew, pVar, 0, VT_UI1);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UI1}", pErrMsg);
- return FALSE;
- }
- *((unsigned char*)res) = vNew.bVal;
- return 1;
- case Dotnet_Boolean:
- hr = VariantChangeType (&vNew, pVar, 0, VT_BOOL);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_BOOL}", pErrMsg);
- return 0;
- }
- *((unsigned char*)res) = vNew.bVal;
- return 1;
- case Dotnet_Int:
- hr = VariantChangeType (&vNew, pVar, 0, VT_INT);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_INT}", pErrMsg);
- return 0;
- }
- *((int*)res) = vNew.intVal;
- return 1;
- case Dotnet_Int8:
- hr = VariantChangeType (&vNew, pVar, 0, VT_I1);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_I1}", pErrMsg);
- return 0;
- }
- *((signed char*)res) = vNew.bVal;
- return 1;
- case Dotnet_Int16:
- hr = VariantChangeType (&vNew, pVar, 0, VT_I2);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_I2}", pErrMsg);
- return 0;
- }
- *((signed short*)res) = vNew.iVal;
- return 1;
- case Dotnet_Int32:
- hr = VariantChangeType (&vNew, pVar, 0, VT_I4);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_I4}", pErrMsg);
- return 0;
- }
- *((signed int*)res) = vNew.lVal;
- return 1;
- case Dotnet_Int64:
- hr = VariantChangeType (&vNew, pVar, 0, VT_I8);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_I8}", pErrMsg);
- return 0;
- }
-#ifdef _MSC_VER
- *((__int64*)res) = vNew.llVal;
-#else
- *((long long*)res) = vNew.lVal;
-#endif
- return 1;
- case Dotnet_Float:
- hr = VariantChangeType (&vNew, pVar, 0, VT_R4);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_R4}", pErrMsg);
- return 0;
- }
- *((float*)res) = vNew.fltVal;
- return 1;
- case Dotnet_Double:
- hr = VariantChangeType (&vNew, pVar, 0, VT_R8);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_R4}", pErrMsg);
- return 0;
- }
- *((double*)res) = vNew.dblVal;
- return 1;
- case Dotnet_Word8:
- hr = VariantChangeType (&vNew, pVar, 0, VT_UI1);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UI1}", pErrMsg);
- return 0;
- }
- *((unsigned char*)res) = vNew.bVal;
- return 1;
- case Dotnet_Word16:
- hr = VariantChangeType (&vNew, pVar, 0, VT_UI2);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UI2}", pErrMsg);
- return 0;
- }
- *((unsigned short*)res) = vNew.uiVal;
- return 1;
- case Dotnet_Word32:
- hr = VariantChangeType (&vNew, pVar, 0, VT_UI4);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UI4}", pErrMsg);
- return 0;
- }
- *((unsigned int*)res) = vNew.ulVal;
- return 1;
- case Dotnet_Word64:
- hr = VariantChangeType (&vNew, pVar, 0, VT_UI8);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UI8}", pErrMsg);
- return 0;
- }
-#ifdef _MSC_VER
- *((unsigned __int64*)res) = vNew.ullVal;
-#else
- *((unsigned long long*)res) = vNew.lVal;
-#endif
- return 1;
- case Dotnet_Ptr:
- hr = VariantChangeType (&vNew, pVar, 0, VT_BYREF);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_BYREF}", pErrMsg);
- return 0;
- }
- *((void**)res) = vNew.byref;
- return 1;
- case Dotnet_Unit:
- return 0;
- case Dotnet_Object:
- if ( pVar->vt == VT_BSTR ) {
- /* Special handling for strings. If the user has asked for
- * the string in object form, give him/her that.
- */
- VARIANT res;
-
- VariantInit(&res);
- hr = InvokeBridge_NewString(pBridge,
- pVar->bstrVal,
- &res);
- if (SUCCEEDED(hr)) {
- pVar = &res;
- }
- }
- hr = VariantChangeType (&vNew, pVar, 0, VT_UNKNOWN);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_UNKNOWN}", pErrMsg);
- return 0;
- }
- *((IUnknown**)res) = vNew.punkVal;
- return 1;
- case Dotnet_String:
- hr = VariantChangeType (&vNew, pVar, 0, VT_BSTR);
- if (FAILED(hr)) {
- genError(NULL, hr, "DInvoke.fromVariant{VT_BSTR}", pErrMsg);
- return 0;
- }
- /* Storage is allocated by malloc(), caller is resp for freeing. */
- *((char**)res) = bstrToString(vNew.bstrVal);
- return 1;
- }
- return 0;
-}
-
-/*
- * Function: toVariant()
- *
- * Convert a DotnetArg into a VARIANT. The VARIANT
- * is dynamically allocated.
- *
- * The result is the pointer to the filled-in VARIANT structure;
- * NULL if allocation failed.
- *
- */
-static
-VARIANT*
-toVariant ( DotnetArg* p )
-{
- VARIANT* v = (VARIANT*)malloc(sizeof(VARIANT));
- if (!v) return NULL;
- VariantInit(v);
- switch (p->arg_type) {
- case Dotnet_Byte:
- v->vt = VT_UI1;
- v->bVal = p->arg.arg_byte;
- break;
- case Dotnet_Char:
- v->vt = VT_UI1;
- v->bVal = p->arg.arg_char;
- break;
- case Dotnet_Boolean:
- v->vt = VT_BOOL;
- v->boolVal = p->arg.arg_bool;
- break;
- case Dotnet_Int:
- v->vt = VT_INT;
- v->intVal = p->arg.arg_int;
- break;
- case Dotnet_Int8:
- v->vt = VT_I1;
- v->bVal = p->arg.arg_int8;
- break;
- case Dotnet_Int16:
- v->vt = VT_I2;
- v->iVal = p->arg.arg_int16;
- break;
- case Dotnet_Int32:
- v->vt = VT_I4;
- v->lVal = p->arg.arg_int32;
- break;
- case Dotnet_Int64:
- v->vt = VT_I8;
-#ifdef _MSC_VER
- v->llVal = p->arg.arg_int64;
-#else
- (long long*)(v->lVal) = p->arg.arg_int64;
-#endif
- break;
- case Dotnet_Float:
- v->vt = VT_R4;
- v->fltVal = p->arg.arg_float;
- break;
- case Dotnet_Double:
- v->vt = VT_R8;
- v->dblVal = p->arg.arg_double;
- break;
- case Dotnet_Word8:
- v->vt = VT_UI1;
- v->bVal = p->arg.arg_word8;
- break;
- case Dotnet_Word16:
- v->vt = VT_UI2;
- v->uiVal = p->arg.arg_word16;
- break;
- case Dotnet_Word32:
- v->vt = VT_UI4;
- v->ulVal = p->arg.arg_word32;
- break;
- case Dotnet_Word64:
- v->vt = VT_UI8;
-#ifdef _MSC_VER
- v->ullVal = p->arg.arg_word64;
-#else
- (unsigned long long*)(v->lVal) = p->arg.arg_word64;
-#endif
- break;
- case Dotnet_Ptr:
- v->vt = VT_BYREF;
- v->byref = p->arg.arg_ptr;
- break;
- case Dotnet_Unit:
- v->vt = VT_EMPTY;
- break;
- case Dotnet_Object:
- v->vt = VT_UNKNOWN;
- v->punkVal = (IUnknown*)p->arg.arg_obj;
- break;
- case Dotnet_String: {
- BSTR b;
- HRESULT hr;
- v->vt = VT_BSTR;
- hr = stringToBSTR((const char*)p->arg.arg_str,&b);
- v->bstrVal = b;
- break; }
- }
- return v;
-}
+++ /dev/null
-//
-// (c) 2002-2003, sof.
-//
-// Dynamic invocation helper classes. The details of how
-// to access the .NET object model via the Reflection API
-// is taken care of by Invoker.{h,cpp}
-//
-#include "Invoker.h"
-
-namespace DynInvoke {
-
-static TypeName* ParseType(String* str) {
- int curPos = 0;
- int endPos;
-
- // Console::WriteLine("x{0}y", str);
- TypeName* typeName = new TypeName();
-
- if ( str->get_Chars(0) == '[' ) {
- endPos = str->IndexOf(']');
- curPos = endPos + 1;
- typeName->m_assembly = str->Substring(1,endPos-1);
- typeName->m_length = endPos+1;
- }
- String* delimStr = " ,()";
- Char delims __gc [] = delimStr->ToCharArray();
-
- endPos = str->IndexOfAny(delims,curPos);
- // Console::WriteLine("{0} {1} x{2}x", __box(endPos), __box(curPos), str);
- if ( endPos == -1 ) {
- typeName->m_class = str->Substring(curPos);
- } else {
- typeName->m_class = str->Substring(curPos,endPos-curPos);
- }
-
- // typeName->m_class = str->Substring(curPos,endPos-curPos);
- typeName->m_length += endPos-curPos;
-
- return typeName;
-}
-
-// Method: GetType(String* typeName);
-//
-// Purpose: Assembly-savvy version of Type::GetType()
-//
-Type* InvokeBridge::GetType(String* typeName) {
-
- try {
- Type* t = Type::GetType(typeName);
- if (t) return t;
- } catch (Exception*) {
- ;
- }
-
- for (int i=0;i < InvokeBridge::m_assemblies->Count; i++) {
- try {
- String* stuff = String::Format("{0},{1}",typeName,InvokeBridge::m_assemblies->get_Item(i)->ToString());
- // Console::WriteLine(stuff);
- Type* t = Type::GetType(stuff);
- if (t) {
- return t;
- }
- } catch (Exception*) {
- continue;
- }
- }
- return 0;
-}
-
-//
-// Method: CreateInstance(String* typeName, Object* [])
-//
-// Purpose: Assembly-savvy invocation of Activator::CreateInstance
-Object* InvokeBridge::CreateInstance(TypeName* typeName,
- Object* args[]) {
-
- Object* instance = 0;
- Type* t = InvokeBridge::GetType(typeName->toStdString());
-
- // Console::WriteLine("x{0} y{1}", typeName->toStdString(), t);
- if (!t) {
- try {
- Assembly* localA = Assembly::LoadFrom(typeName->m_assembly);
- t = localA->GetType(typeName->m_class);
- } catch (Exception* e) {
- ;
- }
- }
-
- if (!t) {
- try {
- AppDomain* currentDomain = AppDomain::CurrentDomain;
-
- // Assembly* stuff[] = currentDomain->GetAssemblies();
- // for (int i=0;i < stuff.Length; i++) {
- // Console::WriteLine("x{0} y{1}", stuff[i]->ToString(), stuff[i]->FullName);
- // }
- // Console::WriteLine("x{0} y{1}", typeName->toStdString(), t);
- Assembly* localA = Assembly::LoadWithPartialName("HugsAssembly");
- t = localA->GetType(typeName->m_class);
- // Console::WriteLine("x{0} y{1}", typeName->toStdString(), t);
- } catch (Exception*) {
- ;
- }
- }
-
- if (t) {
- try {
- Object* o =Activator::CreateInstance(t,(Object* [])args);
- return o;
- } catch (Exception* e) {
- Console::WriteLine("Failure: {0}", e);
- return 0;
- }
- }
-}
-
-//
-// Method: CreateObject(String* objSpec, Object* args[])
-//
-// Purpose: Given a fully qualified name of a class/type, try
-// to create an instance of it.
-//
-Object* InvokeBridge::CreateObject(String* assemName,
- String* objSpec,
- Object* args[]) {
-
- Object* instance = 0;
-
- // Unravel the name of the class/type.
- TypeName* typeName = ParseType(objSpec);
-
- if (assemName != 0 && assemName->Length > 0) {
- typeName->m_assembly = assemName;
- }
-
- // Try creating the instance..
- try {
- instance = InvokeBridge::CreateInstance(typeName,(Object* [])args);
- } catch (Exception* e) {
- Console::WriteLine("Unable to create instance \"{0}\" {1}", objSpec, e);
- throw(e);
- }
- if (!instance) {
- Console::WriteLine("Unable to create instance \"{0}\"", objSpec);
- }
- return instance;
-}
-
-//
-// Method: InvokeMethod
-//
-// Purpose: Given a pointer to an already created object, look up
-// one of its method. If found, invoke the method passing it
-// 'args' as arguments.
-//
-Object*
-InvokeBridge::InvokeMethod(Object* obj,
- String* methName,
- Object* args[]) {
- // Get the methods from the type
- MethodInfo* methods __gc[] = obj->GetType()->GetMethods();
- MethodInfo* mInfo;
-
- if (!methods) {
- Console::WriteLine("InvokeMethod: No matching types found");
- return 0;
- }
-
- System::Reflection::BindingFlags flgs
- = (System::Reflection::BindingFlags) // why do I need to cast?
- (System::Reflection::BindingFlags::Public |
- System::Reflection::BindingFlags::NonPublic |
- System::Reflection::BindingFlags::Instance |
- System::Reflection::BindingFlags::Static |
- System::Reflection::BindingFlags::InvokeMethod);
-
- /* Caller is assumed to catch any exceptions raised. */
- return obj->GetType()->InvokeMember(methName,
- flgs,
- 0,
- obj,
- (Object __gc* [])args);
-}
-
-//
-// Method: InvokeStaticMethod
-//
-// Purpose: Invoke a static method, given the fully qualified name
-// of the method (and its arguments). If found, invoke the
-// method passing it 'args' as arguments.
-//
-Object* InvokeBridge::InvokeStaticMethod(String* assemName,
- String* typeAndMethName,
- Object* args[]) {
-
- // Get the methods from the type
- MethodInfo* methods __gc[];
- MethodInfo* mInfo;
-
- int lastDot = typeAndMethName->LastIndexOf('.');
- String* className = typeAndMethName->Substring(0,lastDot);
- String* methName = typeAndMethName->Substring(lastDot+1);
-
- // Unravel the name of the class/type.
- TypeName* typeName = ParseType(className);
- Type* t;
-
- if (assemName != 0 && assemName->Length > 0) {
- typeName->m_assembly = assemName;
- }
-
- try {
- t = InvokeBridge::GetType(typeName->toStdString());
-
- if (!t) {
- try {
- Assembly* localA = Assembly::LoadFrom(typeName->m_assembly);
- t = localA->GetType(typeName->m_class);
- // Console::WriteLine("InvokeStaticMethod: Type {0} found", t);
- } catch (Exception* e) {
- ;
- }
- }
-
- if (t) {
- methods = t->GetMethods();
- } else {
- Console::WriteLine("InvokeStaticMethod: Type {0} not found", className);
- return 0;
- }
- } catch (Exception *e) {
- Console::WriteLine("InvokeStaticMethod: Type {0} not found", className);
- throw(e);
- }
-
- System::Reflection::BindingFlags flgs
- = (System::Reflection::BindingFlags) // why do I need to cast?
- (System::Reflection::BindingFlags::DeclaredOnly |
- System::Reflection::BindingFlags::Public |
- System::Reflection::BindingFlags::NonPublic |
- System::Reflection::BindingFlags::Static |
- System::Reflection::BindingFlags::InvokeMethod);
-
- return t->InvokeMember(methName,
- flgs,
- 0,
- 0,
- (Object __gc* [])args);
-}
-
-//
-// Method: GetField
-//
-// Purpose: Fetch the (boxed) value of named field of a given object.
-//
-Object* InvokeBridge::GetField(Object* obj, System::String* fieldName) {
-
- FieldInfo* fInfo = obj->GetType()->GetField(fieldName);
- return fInfo->GetValue(obj);
-}
-
-//
-// Method: GetStaticField
-//
-// Purpose: Fetch the (boxed) value of named static field.
-//
-Object* InvokeBridge::GetStaticField(System::String* clsName,
- System::String* fieldName) {
-
- Type* ty = InvokeBridge::GetType(clsName);
- System::Reflection::BindingFlags static_field_flgs
- = (System::Reflection::BindingFlags)
- (System::Reflection::BindingFlags::Public |
- System::Reflection::BindingFlags::NonPublic |
- System::Reflection::BindingFlags::FlattenHierarchy |
- System::Reflection::BindingFlags::Static);
-
- FieldInfo* fInfo = ty->GetField(fieldName, static_field_flgs);
- return fInfo->GetValue(0); // according to doc, ok to pass any val here.
-}
-
-//
-// Method: SetField
-//
-// Purpose: Replace the (boxed) value of named field of a given object.
-//
-void InvokeBridge::SetField(Object* obj, System::String* fieldName, Object* val) {
-
- FieldInfo* fInfo = obj->GetType()->GetField(fieldName);
- fInfo->SetValue(obj,val);
- return;
-}
-
-//
-// Method: SetStaticField
-//
-// Purpose: Replace the (boxed) value of named static field.
-//
-void InvokeBridge::SetStaticField(System::String* clsName,
- System::String* fieldName,
- Object* val) {
-
- Type* ty = InvokeBridge::GetType(clsName);
- System::Reflection::BindingFlags static_field_flgs
- = (System::Reflection::BindingFlags)
- (System::Reflection::BindingFlags::Public |
- System::Reflection::BindingFlags::NonPublic |
- System::Reflection::BindingFlags::FlattenHierarchy |
- System::Reflection::BindingFlags::Static);
-
- FieldInfo* fInfo = ty->GetField(fieldName,static_field_flgs);
- fInfo->SetValue(0,val);
- return;
-}
-
-Object* InvokeBridge::NewString(System::String* s)
-{
- System::String* c = System::String::Copy(s);
- return dynamic_cast<Object*>(c);
-}
-
-Array* InvokeBridge::NewArgArray(int sz)
-{
- return Array::CreateInstance(__typeof(Object), sz);
-}
-
-void InvokeBridge::SetArg(Object* arr[], Object* val, int idx)
-{
- arr->SetValue(val,idx);
-}
-
-Object* InvokeBridge::GetArg(Object* arr[], int idx)
-{
- return arr->GetValue(idx);
-}
-
-} /* namespace */
+++ /dev/null
-/*
- * InvokerClient interface defns for use with gcc.
- *
- * Note: These declarations mirror those of the InvokeBridge
- * class declaration.
- *
- */
-
-#include <windows.h>
-#include <wtypes.h>
-#include <oaidl.h>
-
-#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
projects / ghc-hetmet.git / commitdiff