From: Tomasz Wroblewski <tomasz.wroblewski@citrix.com>
Date: Mon, 16 Nov 2009 15:50:06 +0000 (+0000)
Subject: Added get-acpi-state command
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=960f043f0643a915c933bfaee3e223065bb513d6;p=xenclient%2Ftoolstack.git

Added get-acpi-state command
---

diff --git a/xenvm/tasks.ml b/xenvm/tasks.ml
index 5a7fab5..edba10e 100644
--- a/xenvm/tasks.ml
+++ b/xenvm/tasks.ml
@@ -28,6 +28,7 @@ type action =
 	| Checkpoint
 	| GetDomid
 	| GetStatus
+	| GetAcpiState
 	| GetVNC
 	| Get
 	| Set
@@ -93,6 +94,8 @@ let actions_table = [
 	(S3Suspend,  mk_desc_args "s3suspend" [ "timeout", O, ArgInt ]);
 	(GetDomid,   mk_desc_nb "get-domid");
 	(GetStatus,  mk_desc_nb "get-status");
+        (GetAcpiState, mk_desc_nb "get-acpi-state");
+
 	(GetVNC,     mk_desc_nb "get-vnc");
 	(Trigger,    mk_desc_args "trigger" [ "params", R, ArgString ]);
 	(Device,     mk_desc_args "device" [ "type", R, ArgString;
diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index 387c4e2..37883bd 100644
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -456,6 +456,9 @@ let do_task state (task, args) =
 		Xenvmlib.Ok
 	| Tasks.GetDomid -> Xenvmlib.Msg (string_of_int state.vm_domid)
 	| Tasks.GetStatus -> Xenvmlib.Msg (string_of_vmlifestate state.vm_lifestate)
+	| Tasks.GetAcpiState ->
+	        let acpi = with_xc (fun xc -> Xc.domain_get_acpi_s_state xc state.vm_domid) in
+	        Xenvmlib.Msg (string_of_int acpi)
 	| Tasks.GetVNC -> Xenvmlib.Msg (string_of_int state.vm_vnc_port)
 	| Tasks.AddDisk ->
 		let path = Tasks.args_get_string args "path" in