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