An even more uniform treatment of the -help option across executables.

Incidentally fix some missing newline in coqc help, and give proper
help for coqidetop and the "coq*worker"s.

1 files changed, 4 insertions, 2 deletions

diff --git a/toplevel/workerLoop.ml b/toplevel/workerLoop.ml
index 0087e4833c..3af48bad99 100644
--- a/toplevel/workerLoop.ml
+++ b/toplevel/workerLoop.ml
@@ -21,11 +21,13 @@ let worker_init init () ~opts =
   init ();
   Coqtop.init_toploop opts
 
-let start ~init ~loop =
+let start ~init ~loop name =
+  let _ = Usage.add_to_usage name "" ("\n" ^ name ^ " specific options:\
+\n  --xml_format=Ppcmds    serialize pretty printing messages using the std_ppcmds format\n") in
   let open Coqtop in
   let custom = {
     parse_extra = worker_parse_extra;
-    help = (fun _ -> output_string stderr "Same options as coqtop");
+    help = Usage.print_usage name;
     opts = Coqargs.default;
     init = worker_init init;
     run = (fun () ~opts:_ _state (* why is state not used *) -> loop ());