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

[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  59f35c0d7c2f0bd92c9ac23fc6d0c6d347833723 (commit)
       via  81a5f63a2c90f5b3fa53cbc452e6764619d920fa (commit)
      from  dd313e5ea3e145e3516b4765ab9028d78f8d0dc7 (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 59f35c0d7c2f0bd92c9ac23fc6d0c6d347833723
Author: Jérémie Dimino <je...@di...>
Date:   Thu Feb 25 01:14:17 2010 +0100

    [controller] use bars for range finders

commit 81a5f63a2c90f5b3fa53cbc452e6764619d920fa
Author: Jérémie Dimino <je...@di...>
Date:   Thu Feb 25 01:13:45 2010 +0100

    [generators] fix names of DBus interfaces

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

Changes:
diff --git a/PC_Mainboard/clients/controller.ml b/PC_Mainboard/clients/controller.ml
index a253a34..3f01691 100644
--- a/PC_Mainboard/clients/controller.ml
+++ b/PC_Mainboard/clients/controller.ml
@@ -209,7 +209,7 @@ let rec draw krobot =
 
   let range_finders = React.S.value (Krobot.range_finders krobot) in
   for i = 0 to Array.length range_finders - 1 do
-    Draw.textf zone 0 i  "%d : %d" i range_finders.(i)
+    Draw.textc zone 0 i  [textf "%d : " i; text (Text.repeat (range_finders.(i) * 14 / 3146) "=")]
   done;
 
   let logic_sensors = React.S.value (Krobot.logic_sensors krobot) in
diff --git a/PC_Mainboard/generators/gen_dbus_exports.ml b/PC_Mainboard/generators/gen_dbus_exports.ml
index f761e04..b230cc7 100644
--- a/PC_Mainboard/generators/gen_dbus_exports.ml
+++ b/PC_Mainboard/generators/gen_dbus_exports.ml
@@ -73,7 +73,7 @@ let rec print path indent = function
       printf "%smodule %s(M : Object.S)(Get : sig val get : M.t -> Krobot_card.t end) = struct\n"
         indent (Name.uid name);
       printf "%s  include M.MakeInterface(struct let name = \"fr.krobot.Device.%s.Unsafe\" end)\n"
-        indent (Name.uid name);
+        indent (Name.caml_case name);
       List.iter (print (path ^  Name.uid name ^ ".") (indent ^ "  ")) items;
       printf "%send\n" indent
 


hooks/post-receive
-- 
krobot