unikernel/duniverse/logs/test/tool.ml

@@ -0,0 +1,34 @@
+(* This code is in the public domain. *)
+
+(* Example setup for a simple command line tool with colorful output. *)
+
+let hello _ msg =
+  Logs.app (fun m -> m "%s" msg);
+  Logs.info (fun m -> m "End-user information.");
+  Logs.debug (fun m -> m "Developer information.");
+  Logs.err (fun m -> m "Something bad happened.");
+  Logs.warn (fun m -> m "Something bad may happen in the future.");
+  if Logs.err_count () > 0 then 1 else 0
+
+let setup_log style_renderer level =
+  Fmt_tty.setup_std_outputs ?style_renderer ();
+  Logs.set_level level;
+  Logs.set_reporter (Logs_fmt.reporter ())
+
+(* Command line interface *)
+
+open Cmdliner
+
+let setup_log =
+  let env = Cmd.Env.info "TOOL_VERBOSITY" in
+  Term.(const setup_log $ Fmt_cli.style_renderer () $ Logs_cli.level ~env ())
+
+let msg =
+  let doc = "The message to output."  in
+  Arg.(value & pos 0 string "Hello horrible world!" & info [] ~doc)
+
+let main () =
+  let cmd = Cmd.v (Cmd.info "tool") Term.(const hello $ setup_log $ msg) in
+  Cmd.eval' cmd
+
+let () = if !Sys.interactive then () else exit (main ())