Rename all tool modules to Tool_*, and their directory to "tool"

_tags

 <**/*.{ml,mli,byte,native,odoc}>: debug, annot, thread, package(zarith), package(calendar), package(uuidm), package(cryptokit), package(atdgen), package(yojson)
 <demo/**/*.{ml,mli,byte,native,odoc}>: package(lwt.unix), syntax(camlp4o), package(lwt.syntax)
 <src/web/*.{ml,mli,byte,native,odoc}>: package(eliom.server), syntax(camlp4o), package(lwt.syntax), package(csv)
-<src/bin/*>: binary
+<src/tool/*>: binary
 <stuff/*>: binary

myocamlbuild.ml

@@ -27,7 +27,7 @@ let () = dispatch & function
   | After_rules ->
 
     Pathname.define_context "src/web" ["src/lib"];
-    Pathname.define_context "src/bin" ["src/lib"];
+    Pathname.define_context "src/tool" ["src/lib"];
     Pathname.define_context "demo" ["src/lib"];
     Pathname.define_context "stuff" ["src/lib"];
     Pathname.define_context "." ["src/lib"];
@@ -46,6 +46,6 @@ let () = dispatch & function
         Cmd (S [A"markdown"; P (env "%.md"); Sh">"; P (env "%.html")])
       );
 
-    copy_rule "belenios-tool" ("src/bin/main" ^ exe_suffix) "belenios-tool";
+    copy_rule "belenios-tool" ("src/tool/tool_main" ^ exe_suffix) "belenios-tool";
 
   | _ -> ()

src/bin/election_tool.ml → src/tool/tool_election.ml

@@ -240,7 +240,7 @@ module Run (P : PARAMS) : EMPTY = struct
           | Some fn ->
             (match load_from_file (fun x -> x) fn with
             | Some [cred] ->
-              let hex = Credgen.derive e.e_params.e_uuid cred in
+              let hex = Tool_credgen.derive e.e_params.e_uuid cred in
               Some Z.(of_string_base 16 hex mod G.q)
             | _ -> failwith "invalid credential file"
             )

src/bin/main.ml → src/tool/tool_main.ml

@@ -34,9 +34,9 @@ let () =
   else (
     Arg.current := 1;
     match Sys.argv.(1) with
-    | "trustee-keygen" -> Tkeygen.main ()
-    | "election" -> Election_tool.main ()
-    | "credgen" -> Credgen.main ()
-    | "mkelection" -> Mkelection.main ()
+    | "trustee-keygen" -> Tool_tkeygen.main ()
+    | "election" -> Tool_election.main ()
+    | "credgen" -> Tool_credgen.main ()
+    | "mkelection" -> Tool_mkelection.main ()
     | _ -> usage ()
   )