1open Printf
2
3let _ =
4	Xenlight.register_exceptions ();
5	let logger = Xtl.create_stdio_logger ~level:Xentoollog.Debug () in
6	let ctx = Xenlight.ctx_alloc logger in
7
8	let open Xenlight.Host in
9	let reader = xen_console_read_start ctx 0 in
10	(try
11		while true do
12			let line = xen_console_read_line ctx reader in
13			print_string line
14		done
15	with End_of_file -> ());
16	let _ = xen_console_read_finish ctx reader in
17	()
18
19