[paparazzi-commits] [4916] complete missing match in link.ml

[Gautier Hattenberger]

Revision: 4916
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4916
Author:   gautier
Date:     2010-05-28 12:00:58 +0000 (Fri, 28 May 2010)
Log Message:
-----------
complete missing match in link.ml

Modified Paths:
--------------
    paparazzi3/trunk/sw/ground_segment/tmtc/link.ml

Modified: paparazzi3/trunk/sw/ground_segment/tmtc/link.ml
===================================================================
--- paparazzi3/trunk/sw/ground_segment/tmtc/link.ml     2010-05-28 04:27:00 UTC 
(rev 4915)
+++ paparazzi3/trunk/sw/ground_segment/tmtc/link.ml     2010-05-28 12:00:58 UTC 
(rev 4916)
@@ -308,6 +308,11 @@
            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