let control_arg_spec () =
(("\nMain Options:", Arg.Unit (fun () -> ()), "") :: (Main.control_arg_spec ()))
@ (("\nSCM Wrapper Options:", Arg.Unit (fun () -> ()), "") :: (ScmWrapper.arg_spec ()))
@ (("\nSupervisory Control Options:", Arg.Unit (fun () -> ()), "") :: (Control.arg_spec ()))
@ (("\nLogging Options:", Arg.Unit (fun () -> ()), "") :: (Logging.arg_spec ()))
@ (("\nMiscellaneous Options:", Arg.Unit (fun () -> ()), "") :: (Miscellaneous.arg_spec ()))