From c9e1bf3028e28988dac3f91986989b8e27e26078 Mon Sep 17 00:00:00 2001 From: Gautier Hattenberger Date: Fri, 28 May 2010 12:00:58 +0000 Subject: [PATCH] complete missing match in link.ml --- sw/ground_segment/tmtc/link.ml | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/sw/ground_segment/tmtc/link.ml b/sw/ground_segment/tmtc/link.ml index 426da505c3..0bcec97b6c 100644 --- a/sw/ground_segment/tmtc/link.ml +++ b/sw/ground_segment/tmtc/link.ml @@ -308,6 +308,11 @@ let send = fun ac_id device payload _priority -> let buf = Pprz.Transport.packet payload in Printf.fprintf o "%s" buf; flush o; Debug.call 's' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint buf)); + | Pprz2 -> + let o = Unix.out_channel_of_descr device.fd in + let buf = Pprz.TransportExtended.packet payload in + Printf.fprintf o "%s" buf; flush o; + Debug.call 'l' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint buf)); | XBee -> XB.send ~ac_id device payload