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

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1301507668 -3600
# Node ID 8ca5df5a9e813a783bc89226f902cd37a73ba09d
# Parent  9cbc18430c281c6082381f67dc1ee739564f20d0
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>

diff -r 9cbc18430c28 -r 8ca5df5a9e81 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 9cbc18430c28 -r 8ca5df5a9e81 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