Allow an external kernel to be used to boot guests.

[mclu.git] / template.ml

diff --git a/template.ml b/template.ml
index 428ffe4..4db0b66 100644 (file)
--- a/template.ml
+++ b/template.ml
@@ -79,6 +79,7 @@ type template_info = {
   disk_bus : string option;
   network_model : string option;
   has_xml_target : bool;
+  needs_external_kernel : bool;
 }
 
 let probe ?(verbose = false) filename =
@@ -138,10 +139,17 @@ let probe ?(verbose = false) filename =
 
   let has_xml_target = run_template ~verbose filename "xml" [] <> None in
 
+  let needs_external_kernel =
+    match run_template ~verbose filename "needs-external-kernel" [] with
+    | None -> false
+    | Some ["1"|"yes"] -> true
+    | Some _ -> false in
+
   { base_image = base_image;
     minimum_memory = minimum_memory;
     recommended_memory = recommended_memory;
     minimum_size = minimum_size;
     disk_bus = disk_bus;
     network_model = network_model;
-    has_xml_target = has_xml_target }
+    has_xml_target = has_xml_target;
+    needs_external_kernel = needs_external_kernel; }