Sub MyFunctionCB(ByVal ExprPartPtr As IntPtr)
Dim ExprPart As New uCalc.Callback(ExprPartPtr)
Dim ucc = ExprPart.GetuCalc()
Console.WriteLine(ExprPart.ArgInt32(1)) ' Returns 1230
Console.WriteLine(ExprPart.ArgInt64(2)) ' Returns 2
Console.WriteLine(ucc.GetItemOf("Int8").GetDataType().ToString(ExprPart.ArgAddr(3))) ' Returns -1
Console.WriteLine(ucc.GetItemOf("Int").GetDataType().ToString(ExprPart.ArgPtr(4))) ' Returns 123
End Sub
Sub MyFunctionCallback()
uc.DefineVariable("x As Int = 123")
uc.DefineVariable("xPtr As Int Ptr = AddressOf(x)")
uc.DefineFunction("MyFunc(a As Int32, b As Int64, c As Byte, d As Int Ptr)", uc.PinAddr(AddressOf MyFunctionCB))
uc.Eval("MyFunc(x*10, 1+1, 255, xPtr)")
End Sub
static void MyFunctionCB(IntPtr ExprPartPtr) {
var ExprPart = New uCalc.Callback(ExprPartPtr);
var ucc = ExprPart.GetuCalc();
Console.WriteLine(ExprPart.ArgInt32(1)); // Returns 1230;
Console.WriteLine(ExprPart.ArgInt64(2)); // Returns 2;
Console.WriteLine(ucc.GetItemOf("Int8").GetDataType().ToString(ExprPart.ArgAddr(3))); // Returns -1;
Console.WriteLine(ucc.GetItemOf("Int").GetDataType().ToString(ExprPart.ArgPtr(4))); // Returns 123;
}
static void MyFunctionCallback() {
uc.DefineVariable("x As Int = 123");
uc.DefineVariable("xPtr As Int Ptr = AddressOf(x)");
uc.DefineFunction("MyFunc(a As Int32, b As Int64, c As Byte, d As Int Ptr)", uc.PinAddr(MyFunctionCB));
uc.Eval("MyFunc(x*10, 1+1, 255, xPtr)");
}
procedure MyFunctionCB(ExprPartPtr: System.Pointer);
begin
//var ExprPart: uCalc.CreateCallback(ExprPartPtr);
//var ucc = ExprPart.GetuCalc();
WriteLn(ExprPart.ArgInt32(1)); // Returns 1230;
WriteLn(ExprPart.ArgInt64(2)); // Returns 2;
WriteLn(ucc.GetItemOf('Int8').GetDataType().ToString(ExprPart.ArgAddr(3))); // Returns -1;
WriteLn(ucc.GetItemOf('Int').GetDataType().ToString(ExprPart.ArgPtr(4))); // Returns 123;
End;
procedure MyFunctionCallback();
begin
uc.DefineVariable('x As Int = 123');
uc.DefineVariable('xPtr As Int Ptr = AddressOf(x)');
uc.DefineFunction('MyFunc(a As Int32, b As Int64, c As Byte, d As Int Ptr)', MyFunctionCB);
uc.Eval('MyFunc(x*10, 1+1, 255, xPtr)');
End;
void _stdcall MyFunctionCB(uCalcPtr ExprPartPtr) {
auto ExprPart = uCalc::Callback(ExprPartPtr);
auto ucc = ExprPart.GetuCalc();
cout << ExprPart.ArgInt32(1) << endl; // Returns 1230;
cout << ExprPart.ArgInt64(2) << endl; // Returns 2;
cout << ucc.GetItemOf("Int8").GetDataType().ToString(ExprPart.ArgAddr(3)) << endl; // Returns -1;
cout << ucc.GetItemOf("Int").GetDataType().ToString(ExprPart.ArgPtr(4)) << endl; // Returns 123;
}
void MyFunctionCallback() {
uc.DefineVariable("x As Int = 123");
uc.DefineVariable("xPtr As Int Ptr = AddressOf(x)");
uc.DefineFunction("MyFunc(a As Int32, b As Int64, c As Byte, d As Int Ptr)", MyFunctionCB);
uc.Eval("MyFunc(x*10, 1+1, 255, xPtr)");
}
static void MyFunctionCB(uCalcPtr ExprPartPtr) {
auto ExprPart = uCalc::Callback(ExprPartPtr);
auto ucc = ExprPart.GetuCalc();
Console::WriteLine(ExprPart.ArgInt32(1)); // Returns 1230;
Console::WriteLine(ExprPart.ArgInt64(2)); // Returns 2;
Console::WriteLine(ucc.GetItemOf("Int8").GetDataType().ToString(ExprPart.ArgAddr(3))); // Returns -1;
Console::WriteLine(ucc.GetItemOf("Int").GetDataType().ToString(ExprPart.ArgPtr(4))); // Returns 123;
}
static void MyFunctionCallback() {
uc.DefineVariable("x As Int = 123");
uc.DefineVariable("xPtr As Int Ptr = AddressOf(x)");
uc.DefineFunction("MyFunc(a As Int32, b As Int64, c As Byte, d As Int Ptr)", ucPinAddr(MyFunctionCB));
uc.Eval("MyFunc(x*10, 1+1, 255, xPtr)");
}
<DllImport(uCalcDLL, CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="ToString_Overload_DataType_ByPtr")> _
Private Function ToString_Overload_DataType_ByPtr__(ByVal DataTypeHandle As IntPtr,ByVal ValuePtr As IntPtr) As IntPtr
End Function
[DllImport(uCalcDLL, CharSet=CharSet.Ansi, CallingConvention=CallingConvention.Cdecl, EntryPoint="ToString_Overload_DataType_ByPtr")]
protected static extern IntPtr ToString_Overload_DataType_ByPtr_(IntPtr DataTypeHandle, IntPtr ValuePtr);
{DLLImport}function ToString_Overload_DataType_ByPtr__(DataTypeHandle: System.Pointer;ValuePtr: System.Pointer): PAnsiChar; cdecl; external uCalcDLL name 'ToString_Overload_DataType_ByPtr';
typedef const char * (* __ToString_Overload_DataType_ByPtr)(void *DataTypeHandle, void * ValuePtr);
[DllImport(uCalcLib, CharSet=CharSet::Ansi, CallingConvention=CallingConvention::Cdecl, EntryPoint = "ToString_Overload_DataType_ByPtr")]
static STR_RETURN ToString_Overload_DataType_ByPtr_(void * DataTypeHandle, void * ValuePtr);