1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(*---------------------------------------------------------------------------
Copyright (c) 2015 The logs programmers. All rights reserved.
SPDX-License-Identifier: ISC
---------------------------------------------------------------------------*)
let pp_key = Format.pp_print_string
let pp_val = Format.pp_print_string
let err_invalid_kv args =
Logs.err @@ fun m ->
args (fun k v -> m "invalid kv (%a,%a)" pp_key k pp_val v)
let err_no_carrier args =
Logs.err @@ fun m -> args (m "NO CARRIER")
let main () =
Fmt_tty.setup_std_outputs ();
Logs.set_level @@ Some Logs.Debug;
Logs.set_reporter @@ Logs_fmt.reporter ();
Logs.info (fun m -> m ~header:"START" ?tags:None "Starting main");
Logs.warn (fun m -> m "Hey be warned by %d." 7);
Logs.err (fun m -> m "Hey be errored.");
Logs.debug (fun m -> m "Would you mind to be debugged a bit ?");
Logs.app (fun m -> m "This is for the application console or stdout.");
Logs.app (fun m -> m ~header:"HEAD" "Idem but with a header");
let k = "key" in
let v = "value" in
Logs.err (fun m -> m "invalid kv (%a,%a)" pp_key k pp_val v);
Logs.err (fun m -> m "NO CARRIER");
err_invalid_kv (fun args -> args k v);
err_no_carrier (fun () -> ());
Logs.info (fun m -> m "Ending main");
exit (if (Logs.err_count () > 0) then 1 else 0)
let () = main ()
|
