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