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>())); } }