mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 02:01:24 +01:00
Andrew Cooper
df8601938a
No functional change. Signed-off-by: Andrew Cooper <andrew.cooper3@citrix.com> Acked-by: Christian Lindig <christian.lindig@citrix.com>
16 lines
312 B
OCaml
16 lines
312 B
OCaml
open Arg
|
|
open Printf
|
|
open Xenlight
|
|
|
|
let send_keys ctx s =
|
|
printf "Sending debug key %s\n" s;
|
|
Xenlight.Host.send_debug_keys ctx s;
|
|
()
|
|
|
|
let _ =
|
|
let logger = Xtl.create_stdio_logger () in
|
|
let ctx = Xenlight.ctx_alloc logger in
|
|
Arg.parse [
|
|
] (fun s -> send_keys ctx s) "usage: send_debug_keys <keys>"
|
|
|