Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Dim f_array() As Float = Array As Float(10.10,20.20)
Dim b_array() As Byte = Array As Byte(11,22)
RunNative("Runtime_check",f_array(0))
RunNative("Runtime_check",b_array(0))
RunNative("Runtime_check",f_array)
RunNative("Runtime_check",b_array)
End Sub
#if C
void Runtime_check(B4R::Object* o) {
// see e.g. #define BR_DOUBLE 7 in rCore.h
if (o->type==7) ::Serial.println("Double type");
if (o->type==5) ::Serial.println("Byte type");
::Serial.println(o->type);
::Serial.println("------------");
}
#End if