WARNING - OLD ARCHIVES

This is an archived copy of the Xen.org mailing list, which we have preserved to ensure that existing links to archives are not broken. The live archive, which contains the latest emails, can be found at http://lists.xen.org/
   
 
 
Xen 
 
Home Products Support Community News
 
   
 

xen-devel

[Xen-devel] [PATCH 09 of 14] tools: ocaml: rename the build_info types a

To: xen-devel@xxxxxxxxxxxxxxxxxxx
Subject: [Xen-devel] [PATCH 09 of 14] tools: ocaml: rename the build_info types and functions
From: David Scott <dave.scott@xxxxxxxxxxxxx>
Date: Wed, 30 Mar 2011 19:05:30 +0100
Delivery-date: Wed, 30 Mar 2011 14:45:13 -0700
Envelope-to: www-data@xxxxxxxxxxxxxxxxxxx
In-reply-to: <patchbomb.1301508321@xxxxxxxxxxxxxxxxxxxxx>
List-help: <mailto:xen-devel-request@lists.xensource.com?subject=help>
List-id: Xen developer discussion <xen-devel.lists.xensource.com>
List-post: <mailto:xen-devel@lists.xensource.com>
List-subscribe: <http://lists.xensource.com/mailman/listinfo/xen-devel>, <mailto:xen-devel-request@lists.xensource.com?subject=subscribe>
List-unsubscribe: <http://lists.xensource.com/mailman/listinfo/xen-devel>, <mailto:xen-devel-request@lists.xensource.com?subject=unsubscribe>
References: <patchbomb.1301508321@xxxxxxxxxxxxxxxxxxxxx>
Sender: xen-devel-bounces@xxxxxxxxxxxxxxxxxxx
User-agent: Mercurial-patchbomb/1.6.4
# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1301507668 -3600
# Node ID 3ca2e83310a56de7a025b2f2c50426a3b40598e4
# Parent  8ca5df5a9e813a783bc89226f902cd37a73ba09d
tools: ocaml: rename the build_info types and functions

The aims are:
1. make the records instantiable if they have field names in common; and
2. to make it easier to derive the names programatically from the IDL

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 8ca5df5a9e81 -r 3ca2e83310a5 tools/ocaml/libs/xl/xl.ml
--- a/tools/ocaml/libs/xl/xl.ml Wed Mar 30 18:54:28 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.ml Wed Mar 30 18:54:28 2011 +0100
@@ -31,40 +31,44 @@ module Domain_create_info = struct
        }
 end
 
-type build_pv_info =
-{
-       slack_memkb : int64;
-       cmdline : string;
-       ramdisk : string;
-       features : string;
-}
+module Domain_build_info = struct
+       module Hvm = struct
+               type t =
+               {
+                       pae : bool;
+                       apic : bool;
+                       acpi : bool;
+                       nx : bool;
+                       viridian : bool;
+                       timeoffset : string;
+                       timer_mode : int;
+                       hpet : int;
+                       vpt_align : int;
+               }
+       end
 
-type build_hvm_info =
-{
-       pae : bool;
-       apic : bool;
-       acpi : bool;
-       nx : bool;
-       viridian : bool;
-       timeoffset : string;
-       timer_mode : int;
-       hpet : int;
-       vpt_align : int;
-}
+       module Pv = struct
+               type t =
+               {
+                       slack_memkb : int64;
+                       cmdline : string;
+                       ramdisk : string;
+                       features : string;
+               }
+       end
 
-type build_spec = BuildHVM of build_hvm_info | BuildPV of build_pv_info
-
-type build_info =
-{
-       max_vcpus : int;
-       cur_vcpus : int;
-       max_memkb : int64;
-       target_memkb : int64;
-       video_memkb : int64;
-       shadow_memkb : int64;
-       kernel : string;
-       priv: build_spec;
-}
+       type t =
+       {
+               max_vcpus : int;
+               cur_vcpus : int;
+               max_memkb : int64;
+               target_memkb : int64;
+               video_memkb : int64;
+               shadow_memkb : int64;
+               kernel : string;
+               u : [ `HVM of Hvm.t | `PV of Pv.t ];
+       }
+end
 
 type build_state =
 {
diff -r 8ca5df5a9e81 -r 3ca2e83310a5 tools/ocaml/libs/xl/xl.mli
--- a/tools/ocaml/libs/xl/xl.mli        Wed Mar 30 18:54:28 2011 +0100
+++ b/tools/ocaml/libs/xl/xl.mli        Wed Mar 30 18:54:28 2011 +0100
@@ -31,40 +31,44 @@ module Domain_create_info : sig
        }
 end
 
-type build_pv_info =
-{
-       slack_memkb : int64;
-       cmdline : string;
-       ramdisk : string;
-       features : string;
-}
+module Domain_build_info : sig
+       module Hvm : sig
+               type t =
+               {
+                       pae : bool;
+                       apic : bool;
+                       acpi : bool;
+                       nx : bool;
+                       viridian : bool;
+                       timeoffset : string;
+                       timer_mode : int;
+                       hpet : int;
+                       vpt_align : int;
+               }
+       end
 
-type build_hvm_info =
-{
-       pae : bool;
-       apic : bool;
-       acpi : bool;
-       nx : bool;
-       viridian : bool;
-       timeoffset : string;
-       timer_mode : int;
-       hpet : int;
-       vpt_align : int;
-}
+       module Pv : sig
+               type t =
+               {
+                       slack_memkb : int64;
+                       cmdline : string;
+                       ramdisk : string;
+                       features : string;
+               }
+       end
 
-type build_spec = BuildHVM of build_hvm_info | BuildPV of build_pv_info
-
-type build_info =
-{
-       max_vcpus : int;
-       cur_vcpus : int;
-       max_memkb : int64;
-       target_memkb : int64;
-       video_memkb : int64;
-       shadow_memkb : int64;
-       kernel : string;
-       priv: build_spec;
-}
+       type t =
+       {
+               max_vcpus : int;
+               cur_vcpus : int;
+               max_memkb : int64;
+               target_memkb : int64;
+               video_memkb : int64;
+               shadow_memkb : int64;
+               kernel : string;
+               u : [ `HVM of Hvm.t | `PV of Pv.t ];
+       }
+end
 
 type build_state =
 {

_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-devel

<Prev in Thread] Current Thread [Next in Thread>