X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fvirt_mem_types.ml;h=071f6de1e07db93cfafb9c27702d3bad445aa0d7;hb=f7abd816091c98cf1e1c227ecbbfebc9e791819c;hp=34f3fe7a9176b6b83c8dd7680d372bc7a5694d3d;hpb=643e58b5e26c18f2cfc1c7b9aa676cb44feee847;p=virt-mem.git

diff --git a/lib/virt_mem_types.ml b/lib/virt_mem_types.ml
index 34f3fe7..071f6de 100644
--- a/lib/virt_mem_types.ml
+++ b/lib/virt_mem_types.ml
@@ -20,32 +20,29 @@
    Common types.
  *)
 
-(** A kernel image. *)
-type image0 =
-    int option				(* Domain ID, if known. *)
-    * string				(* Domain name. *)
-    * Virt_mem_utils.architecture	(* Architecture, eg. i386. *)
-    * ([`Wordsize], [`Endian], [`HasMapping]) Virt_mem_mmap.t (* Memory map. *)
-
-(** A kernel symbol. *)
+module D = Libvirt.Domain
+
+open Virt_mem_mmap
+
 type ksym = string
 
-(** A kernel image, after finding kernel symbols. *)
+module Ksymmap = Map.Make (String)
+
+type image0 = {
+  dom : Libvirt.ro D.t option;
+  domname : string;
+  arch : Virt_mem_utils.architecture;
+  mem : ([`Wordsize], [`Endian], [`HasMapping]) Virt_mem_mmap.t;
+}
+
 type image1 =
-    int option				(* Domain ID, if known. *)
-    * string				(* Domain name. *)
-    * Virt_mem_utils.architecture	(* Architecture, eg. i386. *)
-    * ([`Wordsize], [`Endian], [`HasMapping]) Virt_mem_mmap.t (* Memory map. *)
-    * (ksym -> Virt_mem_mmap.addr)	(* Kernel symbol lookup function. *)
+    image0
+    * addr Ksymmap.t
 
-(** A kernel image, after finding kernel version (like 'uname'). *)
 type image2 =
-    int option				(* Domain ID, if known. *)
-    * string				(* Domain name. *)
-    * Virt_mem_utils.architecture	(* Architecture, eg. i386. *)
-    * ([`Wordsize], [`Endian], [`HasMapping]) Virt_mem_mmap.t (* Memory map. *)
-    * (ksym -> Virt_mem_mmap.addr)	(* Kernel symbol lookup function. *)
-    * utsname option			(* Kernel version, etc., if known. *)
+    image0
+    * addr Ksymmap.t
+    * utsname option
 
 and utsname = {
   kernel_name : string;