[Xen-changelog] [xen-unstable] tools: ocaml: rename the create_info types and functions

[Xen patchbot-unstable <patchbot@xxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1301507668 -3600
# Node ID f36670803f152558aaedd570f9feab089c435819
# Parent  7f160bf4ba525ce9bf4f29f91165fe433815e8d8
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>
Acked-by: Ian Jackson <ian.jackson.citrix.com>
Committed-by: Ian Jackson <ian.jackson.citrix.com>
---


diff -r 7f160bf4ba52 -r f36670803f15 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 7f160bf4ba52 -r f36670803f15 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-changelog mailing list
Xen-changelog@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/xen-changelog