4 #include <caml/alloc.h>
5 #include <caml/mlvalues.h>
6 #include <caml/memory.h>
14 return Val_int(
sizeof(
struct FGNetGUI));
17 value
fg_msg_native(value
s, value lat, value lon, value z, value phi, value theta, value psi);
20 return fg_msg_native(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]);
25 value
fg_msg_native(value
s, value lat, value lon, value z, value phi, value theta, value psi) {
30 msg.longitude = Double_val(lon);
31 msg.latitude = Double_val(lat);
32 msg.altitude = Double_val(z) + 50;
36 msg.psi = - Double_val(
psi) + M_PI_2;
42 msg.fuel_quantity[0] = 10.;
48 msg.tuned_freq = 123.45;
49 msg.nav_radial = 123.;
51 msg.course_deviation_deg = 12.;
52 msg.gs_deviation_deg = 123.;
54 memcpy(String_val(
s), (
char*)&
msg,
sizeof(
msg));