[Krobot-commits] [SCM] krobot branch, master, updated. 267b942be7cf2e0c043a60806dd1140c4fe24422

[Jérémie D. <Ba...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "krobot".

The branch, master has been updated
       via  267b942be7cf2e0c043a60806dd1140c4fe24422 (commit)
      from  24d14ea8f4dd015f9ff36d28a4680ed9f9f5046c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 267b942be7cf2e0c043a60806dd1140c4fe24422
Author: Jérémie Dimino <je...@di...>
Date:   Sun Feb 21 01:14:45 2010 +0100

    [driver] log dropped messages

-----------------------------------------------------------------------

Changes:
diff --git a/PC_Mainboard/driver/card.ml b/PC_Mainboard/driver/card.ml
index 7ffe0b7..5ecf347 100644
--- a/PC_Mainboard/driver/card.ml
+++ b/PC_Mainboard/driver/card.ml
@@ -155,6 +155,16 @@ let abort wrapper exn =
    | Dispatching                                                     |
    +-----------------------------------------------------------------+ *)
 
+let dropped typ msg =
+  lwt () = Log.warning_f "%s dropped" typ in
+  lwt () = Log.warning_f "=====
+host_serial = %d
+device_serial = %d
+command = %d
+error = %d
+data:" msg.host_serial msg.device_serial msg.command msg.error in
+  Lwt_stream.iter_s (fun line -> Log.warning line) (Lwt_stream.hexdump (Lwt_stream.of_string msg.data))
+
 (* Dispatch incomming messages continously *)
 let rec dispatch card =
   let buffer = String.create 64 in
@@ -187,7 +197,7 @@ let rec dispatch card =
                   card.serial_pool <- card.serial_pool @ [msg.host_serial];
                   Lwt.wakeup wakener msg.data
               | None ->
-                  ignore (Log.warning "response dropped")
+                  ignore (dropped "response" msg)
           end else begin
             match try Some(Int_map.find msg.command card.events) with Not_found -> None with
               | Some seq ->
@@ -199,7 +209,7 @@ let rec dispatch card =
                          ignore (Log.exn_f exn "pushing event %d from %s card failed with" msg.command card.wrapper.name))
                     seq
               | None ->
-                  ignore (Log.warning "command dropped")
+                  ignore (dropped "command" msg)
           end;
           dispatch card
         end


hooks/post-receive
-- 
krobot