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

[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  d7e8ecc10266d6a22d6edcece86f38b39b20fd7e (commit)
       via  0d417ee0d871d0f4532a29ab82b50db4f0bb6dc4 (commit)
      from  562055a8eebfe05f07cd1369fe44f608d8044bff (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 d7e8ecc10266d6a22d6edcece86f38b39b20fd7e
Author: Jérémie Dimino <dim@gaia.(none)>
Date:   Sat Apr 24 15:40:20 2010 +0200

    fix naming of unsafe interfaces

commit 0d417ee0d871d0f4532a29ab82b50db4f0bb6dc4
Author: Jérémie Dimino <dim@gaia.(none)>
Date:   Sat Apr 24 15:28:18 2010 +0200

    typo

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

Changes:
diff --git a/info/control/driver/export_unsafe.ml b/info/control/driver/export_unsafe.ml
index 1b34d56..322a4f0 100644
--- a/info/control/driver/export_unsafe.ml
+++ b/info/control/driver/export_unsafe.ml
@@ -37,5 +37,5 @@ let make_interface get name commands =
 let interface name get =
   let interface_commands = List.assoc name commands in
   match name with
-    | "card" -> make_interface get "fr.krobot.Card" interface_commands
-    | dev -> make_interface get ("fr.krobot.Device." ^ Name.caml_case name) interface_commands
+    | "card" -> make_interface get "fr.krobot.Card.Unsafe" interface_commands
+    | dev -> make_interface get ("fr.krobot.Device." ^ Name.caml_case name ^ ".Unsafe") interface_commands
diff --git a/info/control/lib-krobot/krobot.ml b/info/control/lib-krobot/krobot.ml
index ca061d9..ea935d9 100644
--- a/info/control/lib-krobot/krobot.ml
+++ b/info/control/lib-krobot/krobot.ml
@@ -247,8 +247,8 @@ let unsafe_call command krobot args =
     | name ->
         _unsafe_call
           command
-          (device krobot (Name.caml_case command.Commands.name))
-          ("fr.krobot.Device." ^ Name.caml_case command.Commands.name)
+          (device krobot (Name.caml_case command.Commands.section))
+          ("fr.krobot.Device." ^ Name.caml_case command.Commands.section ^ ".Unsafe")
           args
 
 (* +-----------------------------------------------------------------+
@@ -294,7 +294,7 @@ struct
         _unsafe_call
           command
           (card krobot c)
-          "fr.krobot.Card"
+          "fr.krobot.Card.Unsafe"
           args
     | _ ->
         failwith "use Krobot.unsafe_call for calls on a device"
diff --git a/info/control/protocol/commands.ml b/info/control/protocol/commands.ml
index 4904c0b..6a063c3 100644
--- a/info/control/protocol/commands.ml
+++ b/info/control/protocol/commands.ml
@@ -63,7 +63,7 @@ let register cmd =
       send = dynamic cmd.send;
       recv = dynamic cmd.recv;
   } :: !members;
-  cmd
+  { cmd with section = !current_interface }
 
 let make_interface name =
   let members = ref [] in


hooks/post-receive
-- 
krobot