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 14 of 24] tools: ocaml: rename the create_info types

To: xen-devel@xxxxxxxxxxxxxxxxxxx
Subject: [Xen-devel] [PATCH 14 of 24] tools: ocaml: rename the create_info types and functions
From: Ian Campbell <ian.campbell@xxxxxxxxxx>
Date: Wed, 13 Apr 2011 15:36:55 +0100
Cc: Vincent Hanquez <Vincent.Hanquez@xxxxxxxxxxxxx>, Dave Scott <Dave.Scott@xxxxxxxxxxxxx>
Delivery-date: Wed, 13 Apr 2011 07:53:48 -0700
Envelope-to: www-data@xxxxxxxxxxxxxxxxxxx
In-reply-to: <patchbomb.1302705401@xxxxxxxxxxxxxxxxxxxxxxxxx>
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.1302705401@xxxxxxxxxxxxxxxxxxxxxxxxx>
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 21fe28c477f161c38c7073e2844d9cbca9add6ca
# Parent  7c7094664ff1873d22b133094836654ae58b2de8
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 7c7094664ff1 -r 21fe28c477f1 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 7c7094664ff1 -r 21fe28c477f1 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

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