swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
unikernel/duniverse/logs/test/test_fmt.ml Normal file
View file

@ -0,0 +1,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 ()