From 2b73d7f83dbcff964caa142d685196ec61afcf3b Mon Sep 17 00:00:00 2001 From: Gautier Hattenberger Date: Fri, 29 May 2015 15:37:03 +0200 Subject: [PATCH] [conf] clean old flight plans - remove some really old examples - move previous competitions' FP to a sub-directory --- conf/flight_plans/clover.xml | 25 -- .../{ => competitions}/EMAV2006.xml | 0 .../{ => competitions}/EMAV2008.xml | 2 +- .../{ => competitions}/EMAV2009.xml | 2 +- .../{ => competitions}/EMAV2009_data.xml | 2 +- .../{ => competitions}/EMAV2009_safety.xml | 2 +- .../competitions/IMAV2014_carto.xml | 138 ++++++++ .../competitions/IMAV2014_data.xml | 33 ++ .../competitions/IMAV2014_digit.xml | 120 +++++++ .../competitions/IMAV2014_vision.xml | 163 ++++++++++ .../{ => competitions}/MAV08_legs.kml | 0 .../MAV08_no_fly_boundaries.kml | 0 .../flight_plans/{ => competitions}/mav05.xml | 0 .../{ => competitions}/mav05_ccw.xml | 0 .../{ => competitions}/mav05_cw.xml | 2 +- .../flight_plans/{ => competitions}/mav06.xml | 0 .../flight_plans/{ => competitions}/mav07.xml | 2 +- .../flight_plans/{ => competitions}/mav08.xml | 2 +- conf/flight_plans/hsif.xml | 33 -- conf/flight_plans/ihm.xml | 32 -- conf/flight_plans/muret_mini.xml | 15 - conf/flight_plans/sinsat.xml | 18 -- conf/flight_plans/tl.xml | 48 --- conf/flight_plans/ugv.xml | 14 - sw/ground_segment/tmtc/ihm.ml | 294 ------------------ 25 files changed, 461 insertions(+), 486 deletions(-) delete mode 100644 conf/flight_plans/clover.xml rename conf/flight_plans/{ => competitions}/EMAV2006.xml (100%) rename conf/flight_plans/{ => competitions}/EMAV2008.xml (99%) rename conf/flight_plans/{ => competitions}/EMAV2009.xml (97%) rename conf/flight_plans/{ => competitions}/EMAV2009_data.xml (97%) rename conf/flight_plans/{ => competitions}/EMAV2009_safety.xml (88%) create mode 100644 conf/flight_plans/competitions/IMAV2014_carto.xml create mode 100644 conf/flight_plans/competitions/IMAV2014_data.xml create mode 100644 conf/flight_plans/competitions/IMAV2014_digit.xml create mode 100644 conf/flight_plans/competitions/IMAV2014_vision.xml rename conf/flight_plans/{ => competitions}/MAV08_legs.kml (100%) rename conf/flight_plans/{ => competitions}/MAV08_no_fly_boundaries.kml (100%) rename conf/flight_plans/{ => competitions}/mav05.xml (100%) rename conf/flight_plans/{ => competitions}/mav05_ccw.xml (100%) rename conf/flight_plans/{ => competitions}/mav05_cw.xml (91%) rename conf/flight_plans/{ => competitions}/mav06.xml (100%) rename conf/flight_plans/{ => competitions}/mav07.xml (99%) rename conf/flight_plans/{ => competitions}/mav08.xml (98%) delete mode 100644 conf/flight_plans/hsif.xml delete mode 100644 conf/flight_plans/ihm.xml delete mode 100644 conf/flight_plans/muret_mini.xml delete mode 100644 conf/flight_plans/sinsat.xml delete mode 100644 conf/flight_plans/tl.xml delete mode 100644 conf/flight_plans/ugv.xml delete mode 100644 sw/ground_segment/tmtc/ihm.ml diff --git a/conf/flight_plans/clover.xml b/conf/flight_plans/clover.xml deleted file mode 100644 index e5f82bdf5f..0000000000 --- a/conf/flight_plans/clover.xml +++ /dev/null @@ -1,25 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/EMAV2006.xml b/conf/flight_plans/competitions/EMAV2006.xml similarity index 100% rename from conf/flight_plans/EMAV2006.xml rename to conf/flight_plans/competitions/EMAV2006.xml diff --git a/conf/flight_plans/EMAV2008.xml b/conf/flight_plans/competitions/EMAV2008.xml similarity index 99% rename from conf/flight_plans/EMAV2008.xml rename to conf/flight_plans/competitions/EMAV2008.xml index 57fa34c38a..c3033d0793 100644 --- a/conf/flight_plans/EMAV2008.xml +++ b/conf/flight_plans/competitions/EMAV2008.xml @@ -1,4 +1,4 @@ - +
diff --git a/conf/flight_plans/EMAV2009.xml b/conf/flight_plans/competitions/EMAV2009.xml similarity index 97% rename from conf/flight_plans/EMAV2009.xml rename to conf/flight_plans/competitions/EMAV2009.xml index e9f4de4d36..98afed013c 100644 --- a/conf/flight_plans/EMAV2009.xml +++ b/conf/flight_plans/competitions/EMAV2009.xml @@ -1,4 +1,4 @@ - +
diff --git a/conf/flight_plans/EMAV2009_data.xml b/conf/flight_plans/competitions/EMAV2009_data.xml similarity index 97% rename from conf/flight_plans/EMAV2009_data.xml rename to conf/flight_plans/competitions/EMAV2009_data.xml index 6aa8ee784b..02c772b314 100644 --- a/conf/flight_plans/EMAV2009_data.xml +++ b/conf/flight_plans/competitions/EMAV2009_data.xml @@ -1,4 +1,4 @@ - + diff --git a/conf/flight_plans/EMAV2009_safety.xml b/conf/flight_plans/competitions/EMAV2009_safety.xml similarity index 88% rename from conf/flight_plans/EMAV2009_safety.xml rename to conf/flight_plans/competitions/EMAV2009_safety.xml index 5e2dca0b32..12c7648b4e 100644 --- a/conf/flight_plans/EMAV2009_safety.xml +++ b/conf/flight_plans/competitions/EMAV2009_safety.xml @@ -1,4 +1,4 @@ - + diff --git a/conf/flight_plans/competitions/IMAV2014_carto.xml b/conf/flight_plans/competitions/IMAV2014_carto.xml new file mode 100644 index 0000000000..eca1f0d7b4 --- /dev/null +++ b/conf/flight_plans/competitions/IMAV2014_carto.xml @@ -0,0 +1,138 @@ + + + + +
+#include "subsystems/datalink/datalink.h" +static inline float wp_dist(float wp1_x, float wp1_y, float wp2_x, float wp2_y) { + float dx = wp1_x - wp2_x; + float dy = wp1_y - wp2_y; + return sqrtf(dx*dx + dy*dy); +} +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/conf/flight_plans/competitions/IMAV2014_data.xml b/conf/flight_plans/competitions/IMAV2014_data.xml new file mode 100644 index 0000000000..5e639b58f6 --- /dev/null +++ b/conf/flight_plans/competitions/IMAV2014_data.xml @@ -0,0 +1,33 @@ + + + + + + + + + + + + + + + + + + + + + + + diff --git a/conf/flight_plans/competitions/IMAV2014_digit.xml b/conf/flight_plans/competitions/IMAV2014_digit.xml new file mode 100644 index 0000000000..ee7d61e6fd --- /dev/null +++ b/conf/flight_plans/competitions/IMAV2014_digit.xml @@ -0,0 +1,120 @@ + + + +
+#include "subsystems/datalink/datalink.h" +static inline float wp_dist(float wp1_x, float wp1_y, float wp2_x, float wp2_y) { + float dx = wp1_x - wp2_x; + float dy = wp1_y - wp2_y; + return sqrtf(dx*dx + dy*dy); +} +#define WPAlt(_wp) waypoints[_wp].z +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/conf/flight_plans/competitions/IMAV2014_vision.xml b/conf/flight_plans/competitions/IMAV2014_vision.xml new file mode 100644 index 0000000000..74bfbf1c5a --- /dev/null +++ b/conf/flight_plans/competitions/IMAV2014_vision.xml @@ -0,0 +1,163 @@ + + + +
+#include "subsystems/datalink/datalink.h" +static inline float wp_dist(float wp1_x, float wp1_y, float wp2_x, float wp2_y) { + float dx = wp1_x - wp2_x; + float dy = wp1_y - wp2_y; + return sqrtf(dx*dx + dy*dy); +} +#define WPAlt(_wp) waypoints[_wp].z +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/conf/flight_plans/MAV08_legs.kml b/conf/flight_plans/competitions/MAV08_legs.kml similarity index 100% rename from conf/flight_plans/MAV08_legs.kml rename to conf/flight_plans/competitions/MAV08_legs.kml diff --git a/conf/flight_plans/MAV08_no_fly_boundaries.kml b/conf/flight_plans/competitions/MAV08_no_fly_boundaries.kml similarity index 100% rename from conf/flight_plans/MAV08_no_fly_boundaries.kml rename to conf/flight_plans/competitions/MAV08_no_fly_boundaries.kml diff --git a/conf/flight_plans/mav05.xml b/conf/flight_plans/competitions/mav05.xml similarity index 100% rename from conf/flight_plans/mav05.xml rename to conf/flight_plans/competitions/mav05.xml diff --git a/conf/flight_plans/mav05_ccw.xml b/conf/flight_plans/competitions/mav05_ccw.xml similarity index 100% rename from conf/flight_plans/mav05_ccw.xml rename to conf/flight_plans/competitions/mav05_ccw.xml diff --git a/conf/flight_plans/mav05_cw.xml b/conf/flight_plans/competitions/mav05_cw.xml similarity index 91% rename from conf/flight_plans/mav05_cw.xml rename to conf/flight_plans/competitions/mav05_cw.xml index 2a9c9a7bc9..731f0ee114 100644 --- a/conf/flight_plans/mav05_cw.xml +++ b/conf/flight_plans/competitions/mav05_cw.xml @@ -1,4 +1,4 @@ - + diff --git a/conf/flight_plans/mav06.xml b/conf/flight_plans/competitions/mav06.xml similarity index 100% rename from conf/flight_plans/mav06.xml rename to conf/flight_plans/competitions/mav06.xml diff --git a/conf/flight_plans/mav07.xml b/conf/flight_plans/competitions/mav07.xml similarity index 99% rename from conf/flight_plans/mav07.xml rename to conf/flight_plans/competitions/mav07.xml index 7433aac8f2..1899198058 100644 --- a/conf/flight_plans/mav07.xml +++ b/conf/flight_plans/competitions/mav07.xml @@ -1,4 +1,4 @@ - +
diff --git a/conf/flight_plans/mav08.xml b/conf/flight_plans/competitions/mav08.xml similarity index 98% rename from conf/flight_plans/mav08.xml rename to conf/flight_plans/competitions/mav08.xml index 5ce3f7ae2c..b7bdd2a126 100644 --- a/conf/flight_plans/mav08.xml +++ b/conf/flight_plans/competitions/mav08.xml @@ -1,4 +1,4 @@ - +
diff --git a/conf/flight_plans/hsif.xml b/conf/flight_plans/hsif.xml deleted file mode 100644 index 39808c6349..0000000000 --- a/conf/flight_plans/hsif.xml +++ /dev/null @@ -1,33 +0,0 @@ - - - -
-#include "subsystems/datalink/datalink.h" -
- - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/ihm.xml b/conf/flight_plans/ihm.xml deleted file mode 100644 index 2e8122e5f9..0000000000 --- a/conf/flight_plans/ihm.xml +++ /dev/null @@ -1,32 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/muret_mini.xml b/conf/flight_plans/muret_mini.xml deleted file mode 100644 index 43e69f90d3..0000000000 --- a/conf/flight_plans/muret_mini.xml +++ /dev/null @@ -1,15 +0,0 @@ - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/sinsat.xml b/conf/flight_plans/sinsat.xml deleted file mode 100644 index 306e5d616a..0000000000 --- a/conf/flight_plans/sinsat.xml +++ /dev/null @@ -1,18 +0,0 @@ - - - - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/tl.xml b/conf/flight_plans/tl.xml deleted file mode 100644 index ca39433b68..0000000000 --- a/conf/flight_plans/tl.xml +++ /dev/null @@ -1,48 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/conf/flight_plans/ugv.xml b/conf/flight_plans/ugv.xml deleted file mode 100644 index 66a7573a76..0000000000 --- a/conf/flight_plans/ugv.xml +++ /dev/null @@ -1,14 +0,0 @@ - - - - - - - - - - - - - - diff --git a/sw/ground_segment/tmtc/ihm.ml b/sw/ground_segment/tmtc/ihm.ml deleted file mode 100644 index 08ca337f86..0000000000 --- a/sw/ground_segment/tmtc/ihm.ml +++ /dev/null @@ -1,294 +0,0 @@ -open Printf -open Latlong - -module GroundPprz = Pprz.Messages(struct let name = "ground" end) -module IhmUpPprz = Pprz.Messages(struct let name = "ihm_up" end) -module IhmDownPprz = Pprz.Messages(struct let name = "ihm_down" end) - - -type point = { x: int; y: int; z: int } -type pattern = - Circle of point * int - | Eight of point * point * int - | Line of point * point - | Nop - -let print_p = fun c p -> - fprintf c "(%d,%d,%d)" p.x p.y p.z - -let print_pattern = fun a -> - match a with - Circle (p, r) -> printf "Circle (%a %d) " print_p p r - | Eight (p1, p2, r) -> printf "Eight (%a %a %d) " print_p p1 print_p p2 r - | Line (p1, p2) -> printf "Line (%a %a) " print_p p1 print_p p2 - | Nop -> printf "Nop " - -let print_patterns = fun t -> - let i = ref 0 in - List.iter (fun p -> printf "%d:" !i; incr i; print_pattern p) t; - print_newline () - - -(** Hashtbl of timelines indexed by the aircraft id *) -let timelines = Hashtbl.create 3 -let timeline_max_length = 8 - -let add_timeline ac_id = - let t = [Nop] in - Hashtbl.add timelines ac_id t; - t - - -(* FIXME (from flight_plans/ihm.xml) *) -let nop_block = 0 -let circle_block = 1 -let eight_block = 2 -let glide_block = 3 -let end_glide_block = 4 - -(* FIXME (from settings/ihm.xml) *) -let nav_radius_id = 0 - -(* FIXME *) -let utm_ref = utm_of WGS84 { posn_lat=(Deg>>Rad)43.4624; posn_long=(Deg>>Rad)1.2727 } -let geo_of = fun p -> of_utm WGS84 (utm_add utm_ref (float p.x, float p.y)) - -let send_circle = fun ac_id p r -> - let wgs84 = geo_of p in - let vs = [ "ac_id", Pprz.String ac_id; - "wp_id", Pprz.Int 1; (* FIXME *) - "alt", Pprz.Float (float p.z); - "lat", Pprz.Float ((Rad>>Deg)wgs84.posn_lat); - "long", Pprz.Float ((Rad>>Deg)wgs84.posn_long)] in - GroundPprz.message_send "ihm" "MOVE_WAYPOINT" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "index", Pprz.Int nav_radius_id; - "value", Pprz.Float (float r) ] in - GroundPprz.message_send "ihm" "DL_SETTING" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "block_id", Pprz.Int circle_block ] in - GroundPprz.message_send "ihm" "JUMP_TO_BLOCK" vs - - -let send_line = fun ac_id p1 p2 -> - let wgs84_1 = geo_of p1 - and wgs84_2 = geo_of p2 in - let vs = [ "ac_id", Pprz.String ac_id; - "wp_id", Pprz.Int 1; (* FIXME *) - "alt", Pprz.Float (float p1.z); - "lat", Pprz.Float ((Rad>>Deg)wgs84_1.posn_lat); - "long", Pprz.Float ((Rad>>Deg)wgs84_1.posn_long)] in - GroundPprz.message_send "ihm" "MOVE_WAYPOINT" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "wp_id", Pprz.Int 2; (* FIXME *) - "alt", Pprz.Float (float p2.z); - "lat", Pprz.Float ((Rad>>Deg)wgs84_2.posn_lat); - "long", Pprz.Float ((Rad>>Deg)wgs84_2.posn_long)] in - GroundPprz.message_send "ihm" "MOVE_WAYPOINT" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "block_id", Pprz.Int glide_block ] in - GroundPprz.message_send "ihm" "JUMP_TO_BLOCK" vs - - -let send_eight = fun ac_id p1 p2 r -> - let wgs84_1 = geo_of p1 - and wgs84_2 = geo_of p2 in - let vs = [ "ac_id", Pprz.String ac_id; - "wp_id", Pprz.Int 1; (* FIXME *) - "alt", Pprz.Float (float p1.z); - "lat", Pprz.Float ((Rad>>Deg)wgs84_1.posn_lat); - "long", Pprz.Float ((Rad>>Deg)wgs84_1.posn_long)] in - GroundPprz.message_send "ihm" "MOVE_WAYPOINT" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "wp_id", Pprz.Int 2; (* FIXME *) - "alt", Pprz.Float (float p2.z); - "lat", Pprz.Float ((Rad>>Deg)wgs84_2.posn_lat); - "long", Pprz.Float ((Rad>>Deg)wgs84_2.posn_long)] in - GroundPprz.message_send "ihm" "MOVE_WAYPOINT" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "index", Pprz.Int nav_radius_id; - "value", Pprz.Float (float r) ] in - GroundPprz.message_send "ihm" "DL_SETTING" vs; - - let vs = [ "ac_id", Pprz.String ac_id; - "block_id", Pprz.Int eight_block ] in - GroundPprz.message_send "ihm" "JUMP_TO_BLOCK" vs - - -let send_pattern_up = fun ac_id -> - try - let tl = Hashtbl.find timelines ac_id in - begin - match tl with - Circle (p, r) :: _ -> send_circle ac_id p r - | Eight (p1, p2, r) :: _ -> send_eight ac_id p1 p2 r - | Line (p1, p2) :: _ -> send_line ac_id p1 p2 - | Nop :: _ -> - let vs = [ "ac_id", Pprz.String ac_id; - "block_id", Pprz.Int nop_block ] in - GroundPprz.message_send "ihm" "JUMP_TO_BLOCK" vs - | [] -> failwith (Printf.sprintf "send_pattern_up: %s - empty list" ac_id) - end - with - Not_found -> failwith (Printf.sprintf "send_pattern_up: %s" ac_id) - -let get_ac = fun vs -> - let ac_id = Pprz.string_assoc "ac_id" vs in - try - Hashtbl.find timelines ac_id - with - Not_found -> - add_timeline ac_id - -let insert_in_timeline values idx action = - let t = get_ac values in - let rec iter t i = - if i = 0 then action :: t else - match t with - [] -> failwith "insert_in_timeline" - | x :: xs -> x :: iter xs (i-1) in - let newt = iter t idx in - - (***)print_patterns newt; - - let ac_id = Pprz.string_assoc "ac_id" values in - Hashtbl.replace timelines ac_id newt - -(** Bind to message while catching all the esceptions of the callback *) -let safe_bind = fun msg cb bind -> - let safe_cb = fun sender vs -> - try cb sender vs with x -> prerr_endline (Printexc.to_string x) in - ignore (bind msg safe_cb) - -let safe_bind_up = fun msg cb -> - safe_bind msg cb IhmUpPprz.message_bind - -let safe_bind_ground = fun msg cb -> - safe_bind msg cb GroundPprz.message_bind - - -let point_assoc = fun x y z values -> - { x = Pprz.int_assoc x values; - y = Pprz.int_assoc y values; - z = Pprz.int_assoc z values } - - -let ihm_circle_cb = fun _sender values -> - let idx = Pprz.int_assoc "idx_timeline" values - and p = point_assoc "x" "y" "z" values - and r = Pprz.int_assoc "r" values in - let action = Circle (p, r) in - insert_in_timeline values idx action; - if idx = 0 then - send_pattern_up (Pprz.string_assoc "ac_id" values) - -let ihm_line_cb = fun _sender values -> - let idx = Pprz.int_assoc "idx_timeline" values - and p1 = point_assoc "x1" "y1" "z1" values - and p2 = point_assoc "x2" "y2" "z2" values in - let action = Line (p1, p2) in - insert_in_timeline values idx action; - if idx = 0 then - send_pattern_up (Pprz.string_assoc "ac_id" values) - -let ihm_eight_cb = fun _sender values -> - let idx = Pprz.int_assoc "idx_timeline" values - and p1 = point_assoc "x1" "y1" "z" values - and p2 = point_assoc "x2" "y2" "z" values - and r = Pprz.int_assoc "r" values in - let action = Eight (p1, p2, r) in - insert_in_timeline values idx action; - if idx = 0 then - send_pattern_up (Pprz.string_assoc "ac_id" values) -(* - let delete = fun timeline idx values -> -(* Shift left *) - for i = max 0 idx to timeline_max_length - 2 do - timeline.(i) <- timeline.(i+1) - done; - if idx = 0 then - send_pattern_up (Pprz.string_assoc "ac_id" values) -*) - -let delete_in_timeline values idx = - let rec iter t idx = - if idx = 0 then - match t with - [] -> failwith "delete_in_timeline" - | x :: xs -> xs - else - match t with - [] -> failwith "delete_in_timeline" - | x :: xs -> x :: iter xs (idx-1) in - let t = get_ac values in - let newt = iter t idx in - let ac_id = Pprz.string_assoc "ac_id" values in - Hashtbl.replace timelines ac_id newt; - - print_patterns newt; - - if idx = 0 then - send_pattern_up (Pprz.string_assoc "ac_id" values) - -let ihm_delete_cb = fun _sender values -> - let idx = Pprz.int_assoc "idx_timeline" values in - delete_in_timeline values idx - -let nav_status_cb = fun _sender values -> - let block = Pprz.int_assoc "cur_block" values in - if block = end_glide_block then - delete_in_timeline values 0 - -let fp_cb = fun _sender values -> - let lat = Pprz.float_assoc "lat" values - and lon = Pprz.float_assoc "long" values - and alt = Pprz.float_assoc "alt" values in - let wgs84 = { posn_lat=(Deg>>Rad)lat; posn_long=(Deg>>Rad)lon } in - let utm = utm_of WGS84 wgs84 in - let (x, y) = utm_sub utm utm_ref in - let z = alt in - let vs = ["x", Pprz.Int (truncate x); - "y", Pprz.Int (truncate y); - "z", Pprz.Int (truncate z)] in - IhmDownPprz.message_send "ihm" "AC_POS" vs - - - -let listen = fun () -> - safe_bind_up "IHM_CIRCLE" ihm_circle_cb; - safe_bind_up "IHM_LINE" ihm_line_cb; - safe_bind_up "IHM_EIGHT" ihm_eight_cb; - safe_bind_up "IHM_DELETE" ihm_delete_cb; - safe_bind_ground "NAV_STATUS" nav_status_cb; - safe_bind_ground "FLIGHT_PARAM" fp_cb - - - -(*** Options ***) - -let ivy_bus = Defivybus.default_ivy_bus - -let options = - [ "-b", Arg.String (fun x -> ivy_bus := x), (Printf.sprintf "Bus\tDefault is %s" !ivy_bus)] - - -(************** Main ****************) -let () = - Arg.parse options - (fun x -> Printf.fprintf stderr "%s: Warning: Don't do anything with '%s' argument\n" Sys.argv.(0) x) - "Usage: "; - - Ivy.init "Paparazzi gui_plug" "READY" (fun _ _ -> ()); - Ivy.start !ivy_bus; - - listen (); - - (* Main loop *) - let loop = Glib.Main.create true in - while Glib.Main.is_running loop do ignore (Glib.Main.iteration true) done