[Xen-API] [PATCH] Add a xenops command to trigger a sleep button push in a domain

[Paul Durrant <paul.durrant@xxxxxxxxxx>]

# HG changeset patch
# User Paul Durrant <paul.durrant@xxxxxxxxxx>
# Date 1262711225 0
# Node ID c19bc31140410977e6ce1634d3d90456b51b6ad7
# Parent  0107ef3d493a3402bab596e112cf00b14d148723
Add a xenops command to trigger a sleep button push in a domain

signed-off-by: Paul Durrant <paul.durrant@xxxxxxxxxx>

diff -r 0107ef3d493a -r c19bc3114041 series
--- a/series    Tue Dec 22 16:32:35 2009 +0000
+++ b/series    Tue Jan 05 17:07:05 2010 +0000
@@ -61,6 +61,7 @@
 
 vswitch-pool-controller-config.patch
 xenops-trigger-power.patch
+xenops-trigger-sleep.patch
 
 # experimental networking improvements
 netw-reset-call #+new-netw
diff -r 0107ef3d493a -r c19bc3114041 xenops-trigger-sleep.patch
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/xenops-trigger-sleep.patch        Tue Jan 05 17:07:05 2010 +0000
@@ -0,0 +1,45 @@
+diff -r 8a20aae0586b ocaml/xenops/domain.ml
+--- a/ocaml/xenops/domain.ml   Tue Dec 22 16:09:38 2009 +0000
++++ b/ocaml/xenops/domain.ml   Wed Dec 23 14:18:35 2009 +0000
+@@ -798,6 +798,7 @@
+ let send_s3resume ~xc domid = Xc.domain_send_s3resume xc domid
+ 
+ let trigger_power ~xc domid = Xc.domain_trigger_power xc domid
++let trigger_sleep ~xc domid = Xc.domain_trigger_sleep xc domid
+ 
+ let vcpu_affinity_set ~xc domid vcpu cpumap =
+       let bitmap = ref Int64.zero in
+diff -r 8a20aae0586b ocaml/xenops/domain.mli
+--- a/ocaml/xenops/domain.mli  Tue Dec 22 16:09:38 2009 +0000
++++ b/ocaml/xenops/domain.mli  Wed Dec 23 14:18:35 2009 +0000
+@@ -154,6 +154,9 @@
+ (** send a power button push to a domain *)
+ val trigger_power: xc: Xc.handle -> domid -> unit
+ 
++(** send a sleep button push to a domain *)
++val trigger_sleep: xc: Xc.handle -> domid -> unit
++
+ (** Set cpu affinity of some vcpus of a domain using an boolean array *)
+ val vcpu_affinity_set: xc: Xc.handle -> domid -> int -> bool array -> unit
+ 
+diff -r 8a20aae0586b ocaml/xenops/xenops.ml
+--- a/ocaml/xenops/xenops.ml   Tue Dec 22 16:09:38 2009 +0000
++++ b/ocaml/xenops/xenops.ml   Wed Dec 23 14:18:35 2009 +0000
+@@ -604,6 +604,7 @@
+               ("watchdog"       , watchdog_args);
+               ("send-s3resume"  , common);
+               ("trigger-power"  , common);
++              ("trigger-sleep"  , common);
+               ("dmesg"          , []);
+               ("debugkeys"      , []);
+               ("physinfo"       , []);
+@@ -813,6 +814,9 @@
+       | "trigger-power" ->
+               assert_domid ();
+               with_xc (fun xc -> Domain.trigger_power ~xc domid);
++      | "trigger-sleep" ->
++              assert_domid ();
++              with_xc (fun xc -> Domain.trigger_sleep ~xc domid);
+       | "dmesg" ->
+               with_xc (fun xc -> print_xen_dmesg ~xc);
+       | "debugkeys" ->

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api