[Xen-devel] [PATCH 19 of 32] tools: ocaml: rename the create_info types and functions

[Ian Campbell <ian.campbell@xxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1301507668 -3600
# Node ID b11a5837b9a0df49095301288776b018219c2fc6
# Parent  4f34773dc6a0a3c098b7e8abd75ddffbf16ce7e4
tools: ocaml: rename the create_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>
Signed-off-by: Ian Campbell <ian.campbell@xxxxxxxxxx>

diff -r 4f34773dc6a0 -r b11a5837b9a0 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
@@ -15,19 +15,21 @@
 
 exception Error of string
 
-type create_info =
-{
-       hvm : bool;
-       hap : bool;
-       oos : bool;
-       ssidref : int32;
-       name : string;
-       uuid : int array;
-       xsdata : (string * string) list;
-       platformdata : (string * string) list;
-       poolid : int32;
-       poolname : string;
-}
+module Domain_create_info = struct
+       type t =
+       {
+               hvm : bool;
+               hap : bool;
+               oos : bool;
+               ssidref : int32;
+               name : string;
+               uuid : int array;
+               xsdata : (string * string) list;
+               platformdata : (string * string) list;
+               poolid : int32;
+               poolname : string;
+       }
+end
 
 type build_pv_info =
 {
diff -r 4f34773dc6a0 -r b11a5837b9a0 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
@@ -15,19 +15,21 @@
 
 exception Error of string
 
-type create_info =
-{
-       hvm : bool;
-       hap : bool;
-       oos : bool;
-       ssidref : int32;
-       name : string;
-       uuid : int array;
-       xsdata : (string * string) list;
-       platformdata : (string * string) list;
-       poolid : int32;
-       poolname : string;
-}
+module Domain_create_info : sig
+       type t =
+       {
+               hvm : bool;
+               hap : bool;
+               oos : bool;
+               ssidref : int32;
+               name : string;
+               uuid : int array;
+               xsdata : (string * string) list;
+               platformdata : (string * string) list;
+               poolid : int32;
+               poolname : string;
+       }
+end
 
 type build_pv_info =
 {

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