CP-16624 Added new command 'ignore' to ignore control message

You can now use next:ignore to tell the kernel to ignore the next
control message that it receives.

Signed-off-by: Christian Lindig <[email protected]>

Author: lindig

Makefile

@@ -14,7 +14,6 @@ install: 	all
 		ssh $(HOST) "test -d /boot/guest || mkdir /boot/guest"
 		ssh $(HOST) "cd /boot/guest; rm -f test-vm.xen"
 		scp src/test-vm.xen.gz $(HOST):/boot/guest
-		ssh $(HOST) "cd /boot/guest; gunzip test-vm.xen.gz"
 
 remove: 	
 		true

README.md

@@ -30,14 +30,14 @@ release. The file goes into `/boot/guest` on a host:
 
     HOST=host
     ssh root@$HOST "test -d /boot/guest || mkdir /boot/guest"
-    scp test-vm.xen root@$HOST:/boot/guest
+    scp test-vm.xen.gz root@$HOST:/boot/guest
 
 The kernel needs to be registered with Xen on the host.  As root on
 `$HOST`, do:
 
     xe vm-create name-label=minion
     # this echoes a UUID for the new VM named "minion"
-    xe vm-param-set PV-kernel=/boot/guest/test-vm.xen uuid=$UUID
+    xe vm-param-set PV-kernel=/boot/guest/test-vm.xen.gz uuid=$UUID
 
 Once installed, use the CLI on the host to operate the VM or use
 XenCenter.
@@ -78,6 +78,7 @@ the hypervisor only sends these.
     reboot   
     halt     
     crash    
+    ignore
 
 ## Testing Messages
 
@@ -88,6 +89,7 @@ The kernel reads messages in "control/testing". Legal messages are:
     now:reboot   
     now:halt     
     now:crash    
+    now:ignore
 
 Each makes the kernel respond to these immediately. In addition, these
 messages are legal:
@@ -97,6 +99,7 @@ messages are legal:
     next:reboot   
     next:halt     
     next:crash    
+    next:ignore
 
 The next time the kernel receives a shutdown message, it ignores the
 message it received and acts on the next:message instead. This permits

src/commands.mli

@@ -7,6 +7,7 @@ type shutdown =
   | Reboot
   | Halt
   | Crash
+  | Ignore
 
 type testing =
   | Now   of shutdown

src/commands.mll

@@ -12,6 +12,7 @@
     | Reboot
     | Halt
     | Crash
+    | Ignore
 
   type testing =
     | Now   of shutdown
@@ -24,6 +25,7 @@
     | "reboot"    { Reboot }
     | "halt"      { Halt }
     | "crash"     { Crash }
+    | "ignore"    { Ignore }
     | _           { raise (Error "unknown shutdown command") }
 
   and testing = parse
@@ -45,6 +47,7 @@
       | Reboot    -> "reboot"
       | Halt      -> "halt"
       | Crash     -> "crash"
+      | Ignore    -> "ignore"
 
     let testing = function
       | Now(msg)  -> Printf.sprintf "now:%s"  (shutdown msg)

src/mirage_vm.ml

@@ -62,9 +62,10 @@ module Main (C: V1_LWT.CONSOLE) = struct
     | CMD.Reboot    -> reboot ()
     | CMD.Halt      -> halt ()
     | CMD.Crash     -> crash ()
+    | CMD.Ignore    -> return false
 
 
-   (* event loop *)  
+  (* event loop *)  
   let start c = 
     OS.Xs.make () >>= fun client -> 
     let rec loop tick override =