public void manglingTest9()
{
using var l = new ConariL(gCfgUnlib)
{
Mangling = false
};
var xfun = l.bind(Dynamic.GetMethodInfo(typeof(ushort)), "get_SevenStdCall")
.dynamic;
if (IntPtr.Size == sizeof(Int64))
{
Assert.Equal((ushort)7, xfun.Invoke(null, Array.Empty <object>()));
return;
}
Assert.Throws <WinFuncFailException>(() =>
{
xfun.Invoke(null, Array.Empty <object>());
});
}
public void aliasPrefixTest4()
{
using (var l = new ConariL(UNLIB_DLL))
{
l.Prefix = "apiprefix_";
l.Aliases["HelloWorld"] = new ProcAlias(
"?getD_HelloWorld@API@UnLib@Conari@r_eg@net@@YAPBDXZ",
new AliasCfg()
{
NoPrefixR = true
}
);
string exp = "Hello World !";
Assert.AreEqual(exp, l.DLR.HelloWorld <CharPtr>());
l.Prefix = "";
Assert.AreEqual(exp, l.DLR.HelloWorld <CharPtr>());
}
}
public void manglingTest3()
{
// char const * net::r_eg::Conari::UnLib::API::getD_HelloWorld(void)
// x86: ?getD_HelloWorld@API@UnLib@Conari@r_eg@net@@YAPBDXZ
// x64: ?getD_HelloWorld@API@UnLib@Conari@r_eg@net@@YAPEBDXZ
using (var l = new ConariL(gCfgUnlib))
{
string xfun;
if (IntPtr.Size == sizeof(Int64))
{
xfun = "?getD_HelloWorld@API@UnLib@Conari@r_eg@net@@YAPEBDXZ";
}
else
{
xfun = "?getD_HelloWorld@API@UnLib@Conari@r_eg@net@@YAPBDXZ";
}
string exp = "Hello World !";
Assert.Equal(exp, l.bind <Func <CharPtr> >(xfun)());
var dyn = l.bind(Dynamic.GetMethodInfo(typeof(CharPtr)), xfun);
Assert.Equal(exp, (CharPtr)dyn.dynamic.Invoke(null, Array.Empty <object>()));
}
}
public void complexTest2()
{
using (var l = new ConariL(UNLIB_DLL))
{
IntPtr ptr = l.DLR.get_TSpecB_A_ptr <IntPtr>();
Assert.AreNotEqual(IntPtr.Zero, ptr);
/*
* struct TSpecA
* {
* int a;
* int b;
* };
*
* struct TSpecB
* {
* bool d;
* TSpecA* s;
* };
*
* A->a = 4;
* A->b = -8;
*
* B->d = true;
* B->s = TSpecA*;
*
*/
var TSpecBPtr = NativeData
._(ptr)
.t <bool>("d")
.t <IntPtr>("s")
.AlignSizeByMax;
Assert.AreEqual(2, TSpecBPtr.Raw.Type.Fields.Count);
dynamic dlr = TSpecBPtr.Raw.Type;
IntPtr addrA = dlr.s;
Assert.AreEqual(true, dlr.d);
Assert.AreNotEqual(IntPtr.Zero, addrA);
// B->A
var TSpecAPtr = NativeData
._(addrA)
.align <Int32>(2, "a", "b");
Assert.AreEqual(2, TSpecAPtr.Raw.Type.Fields.Count);
dynamic s = TSpecAPtr.Raw.Type;
Assert.AreEqual(4, s.a); // B->s->a
Assert.AreEqual(-8, s.b); // B->s->b
// the test with reading memory again
dynamic attempt2 = NativeData
._(addrA)
.align <Int32>(2, "a", "b")
.Raw.Type;
Assert.AreEqual(4, attempt2.a); // B->s->a
Assert.AreEqual(-8, attempt2.b); // B->s->b
// free mem
//var dirtyA = addrA;
//l.DLR.free(addrA);
//dynamic hole = NativeData
// ._(dirtyA)
// .align<Int32>(2, "a", "b")
// .Raw.Type;
//int _a = hole.a; // ~ 0
//int _b = hole.b; // ~ 0
}
}
public void complexTest1()
{
using (var l = new ConariL(UNLIB_DLL))
{
IntPtr ptr1 = l.DLR.get_TSpec <IntPtr>();
IntPtr ptr2 = l.bind <Func <IntPtr> >("get_TSpec")();
var dyn = l.bind(Dynamic.GetMethodInfo(typeof(IntPtr)), "get_TSpec");
IntPtr ptr3 = (IntPtr)dyn.dynamic.Invoke(null, new object[0]);
Assert.AreNotEqual(IntPtr.Zero, ptr1);
Assert.IsTrue(ptr1 == ptr2 && ptr2 == ptr3);
/*
* struct TSpec
* {
* BYTE a;
* int b;
* char* name;
* };
*
* s->a = 2;
* s->b = 4;
* s->name = "Conari";
*
*/
var TSpecPtr = NativeData
._(ptr1)
.t <int, int>("a", "b")
.t <IntPtr>("name")
.AlignSizeByMax;
byte[] bytes = TSpecPtr.Raw.Values;
dynamic dlr = TSpecPtr.Raw.Type;
var fields = TSpecPtr.Raw.Type.Fields;
Assert.AreEqual(3, fields.Count);
int expA = 2;
int expB = 4;
string expName = "Conari";
// a
Assert.AreEqual("a", fields[0].name);
Assert.AreEqual(NativeData.SizeOf <int>(), fields[0].tsize);
Assert.AreEqual(typeof(int), fields[0].type);
Assert.AreEqual(expA, fields[0].value);
// b
Assert.AreEqual("b", fields[1].name);
Assert.AreEqual(NativeData.SizeOf <int>(), fields[1].tsize);
Assert.AreEqual(typeof(int), fields[1].type);
Assert.AreEqual(expB, fields[1].value);
// name
Assert.AreEqual("name", fields[2].name);
Assert.AreEqual(IntPtr.Size, fields[2].tsize);
Assert.AreEqual(typeof(IntPtr), fields[2].type);
Assert.AreEqual(expName, (CharPtr)fields[2].value);
// DLR
Assert.AreEqual(expA, dlr.a);
Assert.AreEqual(expB, dlr.b);
Assert.AreEqual(expName, (CharPtr)dlr.name);
// byte-seq
var br = new BReader(bytes);
Assert.AreEqual(expA, br.next <int>(NativeData.SizeOf <int>()));
Assert.AreEqual(expB, br.next <int>(NativeData.SizeOf <int>()));
Assert.AreEqual(expName, (CharPtr)br.next <IntPtr>(NativeData.SizeOf <IntPtr>()));
}
}
