Attachment #264847 for bug #465825

View | Details | Raw Unified | Return to bug 465825
Collapse All | Expand All




public class Tests
{

#if WIN32
	private const string libName = "libtest";
#else
	private const string libName = "test";
#endif
	[DllImport(libName)]
	public static extern int mono_test_marshal_bstr_in([MarshalAs(UnmanagedType.BStr)]string str);

	[DllImport(libName)]
    public static extern int mono_test_marshal_bstr_out([MarshalAs(UnmanagedType.BStr)] out string str);

    [DllImport(libName)]
    public static extern int mono_test_marshal_bstr_in_null([MarshalAs(UnmanagedType.BStr)]string str);

    [DllImport(libName)]
    public static extern int mono_test_marshal_bstr_out_null([MarshalAs(UnmanagedType.BStr)] out string str);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_sbyte([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_byte([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_short([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_ushort([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_int([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_uint([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_long([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_ulong([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_float([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_double([MarshalAs(UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_in_bstr ([MarshalAs (UnmanagedType.Struct)]object obj);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_bool_true ([MarshalAs (UnmanagedType.Struct)]object obj);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_bool_false ([MarshalAs (UnmanagedType.Struct)]object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_sbyte([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_byte([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_short([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_ushort([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_int([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_uint([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_long([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_ulong([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_float([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_double([MarshalAs(UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_bstr ([MarshalAs (UnmanagedType.Struct)]out object obj);

	[DllImport(libName)]
	public static extern int mono_test_marshal_variant_out_bool_true ([MarshalAs (UnmanagedType.Struct)]out object obj);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_bool_false ([MarshalAs (UnmanagedType.Struct)]out object obj);




	public delegate int VarRefFunc (VarEnum vt, [MarshalAs (UnmanagedType.Struct)] ref object obj);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_sbyte_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_byte_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_short_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_ushort_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_int_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_uint_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_long_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_ulong_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_float_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_double_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_bstr_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_bool_true_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_in_bool_false_unmanaged (VarFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_sbyte_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_byte_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_short_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_ushort_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_int_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_uint_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_long_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_ulong_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_float_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_double_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_bstr_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_bool_true_unmanaged (VarRefFunc func);

	[DllImport (libName)]
	public static extern int mono_test_marshal_variant_out_bool_false_unmanaged (VarRefFunc func);

    [DllImport (libName)]
	public static extern int mono_test_marshal_com_object_create (out IntPtr pUnk);

	[DllImport (libName)]
	public static extern int mono_test_marshal_com_object_same (out IntPtr pUnk);

    [DllImport (libName)]
    public static extern int mono_test_marshal_com_object_destroy (IntPtr pUnk);

	[DllImport (libName)]
	public static extern int mono_test_marshal_com_object_ref_count (IntPtr pUnk);

	[DllImport (libName)]
	public static extern int mono_test_marshal_ccw_identity ([MarshalAs (UnmanagedType.Interface)]ITest itest);

	[DllImport (libName)]
	public static extern int mono_test_marshal_ccw_reflexive ([MarshalAs (UnmanagedType.Interface)]ITest itest);

	[DllImport (libName)]
	public static extern int mono_test_marshal_ccw_transitive ([MarshalAs (UnmanagedType.Interface)]ITest itest);

	[DllImport (libName)]
	public static extern int mono_test_marshal_ccw_itest ([MarshalAs (UnmanagedType.Interface)]ITest itest);

	[DllImport (libName)]
	public static extern int mono_test_marshal_ccw_itest ([MarshalAs (UnmanagedType.Interface)]ITestPresSig itest);

	public static int Main() {

				return 173;

			#endregion // Runtime Callable Wrapper Tests
		}

			#region COM Callable Wrapper Tests


			mono_test_marshal_ccw_itest (test_pres_sig);

			#endregion // COM Callable Wrapper Tests
		}

        return 0;
	}

		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		void DoubleIn (double val);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		void ArrayIn (int size, [MarshalAs (UnmanagedType.LPArray, SizeParamIndex=0)] int[] array);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		void ITestIn ([MarshalAs (UnmanagedType.Interface)]ITest val);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		void ITestOut ([MarshalAs (UnmanagedType.Interface)]out ITest val);

		int DoubleIn (double val);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		[PreserveSig ()]
		int ArrayIn (int size, [MarshalAs (UnmanagedType.LPArray, SizeParamIndex=0)] int[] array);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		[PreserveSig ()]
		int ITestIn ([MarshalAs (UnmanagedType.Interface)]ITestPresSig val);
		[MethodImplAttribute (MethodImplOptions.InternalCall, MethodCodeType = MethodCodeType.Runtime)]
		[PreserveSig ()]

			return 0;
		}

		public int ArrayIn (int size, int[] array)
		{
			if (size != 2 || size != array.Length || array[0] != 100 || array[1] != 200)
				return 15;
			return 0;
		}

		public int ITestIn ([MarshalAs (UnmanagedType.Interface)]ITestPresSig val)
		{
			if (val == null)

			val = new ManagedTest ();
		}

		public void ArrayIn (int size, int[] array)
		{
			if (size != 2 || size != array.Length || array[0] != 100 || array[1] != 200)
				status = 15;
		}

		public ITest Test
		{
			get

Lines 10-15 Link Here

(-)mono.orig/mono/tests/libtest.c (-2 / +33 lines)
10	#ifdef WIN32	10	#ifdef WIN32
11	#include <windows.h>	11	#include <windows.h>
12	#include "initguid.h"	12	#include "initguid.h"
		13	#else
		14	#include <stdint.h>
13	#endif	15	#endif
14		16
15	#ifdef WIN32	17	#ifdef WIN32
Lines 2718-2723 Link Here
2718	return 0;	2720	return 0;
2719	return 1;	2721	return 1;
2720	}	2722	}
		2723	#endif //NOT YET
		2724
		2725	#ifndef WIN32
		2726	typedef int64_t LONGLONG;
		2727	typedef uint64_t ULONGLONG;
		2728	typedef struct
		2729	{
		2730	uint32_t Data1; // 32 bit
		2731	uint16_t Data2; // 16 bit
		2732	uint16_t Data3; // 16 bit
		2733	unsigned char Data4[8];
		2734	} GUID;
		2735	#define DEFINE_GUID(name, l, w1, w2, b1, b2, b3, b4, b5, b6, b7, b8) \
		2736	const GUID name \
		2737	= { l, w1, w2, { b1, b2, b3, b4, b5, b6, b7, b8 } }
		2738	#define S_OK 0L
		2739	#define E_NOINTERFACE 0x80004002L
		2740	#endif // !WIN32
2721		2741
2722	typedef struct MonoComObject MonoComObject;	2742	typedef struct MonoComObject MonoComObject;
2723		2743
Lines 2737-2742 Link Here
2737	int (STDCALL ULongIn)(MonoComObject pUnk, ULONGLONG a);	2757	int (STDCALL ULongIn)(MonoComObject pUnk, ULONGLONG a);
2738	int (STDCALL FloatIn)(MonoComObject pUnk, float a);	2758	int (STDCALL FloatIn)(MonoComObject pUnk, float a);
2739	int (STDCALL DoubleIn)(MonoComObject pUnk, double a);	2759	int (STDCALL DoubleIn)(MonoComObject pUnk, double a);
		2760	int (STDCALL ArrayIn)(MonoComObject pUnk, int size, int* array);
2740	int (STDCALL ITestIn)(MonoComObject pUnk, MonoComObject* pUnk2);	2761	int (STDCALL ITestIn)(MonoComObject pUnk, MonoComObject* pUnk2);
2741	int (STDCALL ITestOut)(MonoComObject pUnk, MonoComObject* *ppUnk);	2762	int (STDCALL ITestOut)(MonoComObject pUnk, MonoComObject* *ppUnk);
2742	} MonoIUnknown;	2763	} MonoIUnknown;
Lines 2842-2847 Link Here
2842	return S_OK;	2863	return S_OK;
2843	}	2864	}
2844		2865
		2866	LIBTEST_API int STDCALL
		2867	ArrayIn(MonoComObject* pUnk, int size, int* array)
		2868	{
		2869	return S_OK;
		2870	}
		2871
2845	LIBTEST_API int STDCALL	2872	LIBTEST_API int STDCALL
2846	ITestIn(MonoComObject* pUnk, MonoComObject *pUnk2)	2873	ITestIn(MonoComObject* pUnk, MonoComObject *pUnk2)
2847	{	2874	{
Lines 2879-2884 Link Here
2879	(*pOut)->vtbl->ULongIn = ULongIn;	2906	(*pOut)->vtbl->ULongIn = ULongIn;
2880	(*pOut)->vtbl->FloatIn = FloatIn;	2907	(*pOut)->vtbl->FloatIn = FloatIn;
2881	(*pOut)->vtbl->DoubleIn = DoubleIn;	2908	(*pOut)->vtbl->DoubleIn = DoubleIn;
		2909	(*pOut)->vtbl->ArrayIn = ArrayIn;
2882	(*pOut)->vtbl->ITestIn = ITestIn;	2910	(*pOut)->vtbl->ITestIn = ITestIn;
2883	(*pOut)->vtbl->ITestOut = ITestOut;	2911	(*pOut)->vtbl->ITestOut = ITestOut;
2884	(*pOut)->vtbl->get_ITest = get_ITest;	2912	(*pOut)->vtbl->get_ITest = get_ITest;
Lines 2925-2930 Link Here
2925	mono_test_marshal_ccw_itest (MonoComObject *pUnk)	2953	mono_test_marshal_ccw_itest (MonoComObject *pUnk)
2926	{	2954	{
2927	int hr = 0;	2955	int hr = 0;
		2956	int array[2] = {100, 200};
2928	MonoComObject* pTest;	2957	MonoComObject* pTest;
2929		2958
2930	if (!pUnk)	2959	if (!pUnk)
Lines 2960-2978 Link Here
2960	hr = pUnk->vtbl->DoubleIn (pUnk, 3.14);	2989	hr = pUnk->vtbl->DoubleIn (pUnk, 3.14);
2961	if (hr != 0)	2990	if (hr != 0)
2962	return 11;	2991	return 11;
		2992
2963	hr = pUnk->vtbl->ITestIn (pUnk, pUnk);	2993	hr = pUnk->vtbl->ITestIn (pUnk, pUnk);
2964	if (hr != 0)	2994	if (hr != 0)
2965	return 12;	2995	return 12;
2966	hr = pUnk->vtbl->ITestOut (pUnk, &pTest);	2996	hr = pUnk->vtbl->ITestOut (pUnk, &pTest);
2967	if (hr != 0)	2997	if (hr != 0)
2968	return 13;	2998	return 13;
		2999	hr = pUnk->vtbl->ArrayIn (pUnk, 2, array);
		3000	if (hr != 0)
		3001	return 14;
2969		3002
2970	return 0;	3003	return 0;
2971	}	3004	}
2972		3005
2973		3006
2974	#endif //NOT_YET
2975
2976		3007
2977	/*	3008	/*
2978	* mono_method_get_unmanaged_thunk tests	3009	* mono_method_get_unmanaged_thunk tests

Return to bug 465825