Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-30 03:27:33 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

[gcs] log autopilot version in alert window once

Browse Source
This commit is contained in:
Felix Ruess
2014-12-21 03:43:41 +01:00
parent e3be6f938a
commit 2c3cfc3689
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/live.ml
+11
View File
@@ -1388,6 +1388,16 @@ let listen_info_msg = fun a ->
log_and_say a ac.ac_name (Pprz.string_of_value msg_array) in log_and_say a ac.ac_name (Pprz.string_of_value msg_array) in
tele_bind "INFO_MSG" (get_msg a) tele_bind "INFO_MSG" (get_msg a)
let listen_autopilot_version_msg = fun a ->
let got_version = ref false in
let get_msg = fun a _sender vs ->
let ac = find_ac _sender in
let desc_array = Pprz.assoc "desc" vs in
if !got_version = false then
log a ac.ac_name (sprintf "%s version:\n%s" ac.ac_name (Pprz.string_of_value desc_array));
got_version := true in
tele_bind "AUTOPILOT_VERSION" (get_msg a)
let listen_tcas = fun a -> let listen_tcas = fun a ->
let get_alarm_tcas = fun a txt _sender vs -> let get_alarm_tcas = fun a txt _sender vs ->
let ac = find_ac _sender in let ac = find_ac _sender in
@@ -1425,6 +1435,7 @@ let listen_acs_and_msgs = fun geomap ac_notebook my_alert auto_center_new_ac alt
listen_alert my_alert; listen_alert my_alert;
listen_error my_alert; listen_error my_alert;
listen_info_msg my_alert; listen_info_msg my_alert;
listen_autopilot_version_msg my_alert;
listen_tcas my_alert; listen_tcas my_alert;
listen_dcshot geomap; listen_dcshot geomap;