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

21
unikernel/duniverse/logs/test/test_browser.ml Normal file
View file

@ -0,0 +1,21 @@
(*---------------------------------------------------------------------------
Copyright (c) 2015 The logs programmers. All rights reserved.
SPDX-License-Identifier: ISC
---------------------------------------------------------------------------*)
open Js_of_ocaml
let main _ =
Logs.set_level @@ Some Logs.Debug;
Logs.set_reporter @@ Logs_browser.console_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");
Logs.err (fun m -> m "NO CARRIER");
Logs.info (fun m -> m "Ending main");
Js._false
let () = Js.Unsafe.set Dom_html.window "onload" (Dom_html.handler main)