mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 10:11:27 +01:00
Rob Hoes
78e2e6b591
Also: * Reorganise toplevel OCaml functions into modules of Xenlight. * Factor out the management of ao_how into the function aohow_val. The ao_how is now malloc'ed, just to make this function a little easier to use. Signed-off-by: Rob Hoes <rob.hoes@citrix.com> Acked-by: Ian Campbell <ian.campbell@citrix.com> Acked-by: David Scott <dave.scott@eu.citrix.com>
16 lines
314 B
OCaml
16 lines
314 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>"
|
|
|