1open Printf
2
3let send_keys ctx s =
4  printf "Sending debug key %s\n" s;
5  Xenlight.Host.send_debug_keys ctx s;
6  ()
7
8let _ =
9  let logger = Xtl.create_stdio_logger () in
10  let ctx = Xenlight.ctx_alloc logger in
11  Arg.parse [
12  ] (fun s -> send_keys ctx s) "usage: send_debug_keys <keys>"
13
14