From: Jonathan Ludlam <Jonathan.Ludlam@eu.citrix.com>
Date: Fri, 15 Jan 2010 12:02:42 +0000 (+0000)
Subject: Fix camldm after renaming of jsonrpc to rpc-light.json. Also add a datatype maybe... 
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=826bdace34a0689c13b2cd6eb0190a39815ba155;p=xcp%2Fxen-api-libs.git

Fix camldm after renaming of jsonrpc to rpc-light.json. Also add a datatype maybe needed for rpc-light

Signed-off-by: Jonathan Ludlam <Jonathan.Ludlam@eu.citrix.com>
Acked-by: David Scott <dave.scott@eu.citrix.com>
---

diff --git a/camldm/META.in b/camldm/META.in
index 44a4060..9774760 100644
--- a/camldm/META.in
+++ b/camldm/META.in
@@ -1,5 +1,5 @@
 version = "@VERSION@"
 description = "device-mapper ocaml interface"
-requires = "unix,jsonrpc"
+requires = "unix,rpc-light.json"
 archive(byte) = "camldm.cma"
 archive(native) = "camldm.cmxa"
diff --git a/camldm/camldm.mli b/camldm/camldm.mli
index fc57112..45140f0 100644
--- a/camldm/camldm.mli
+++ b/camldm/camldm.mli
@@ -17,6 +17,9 @@ type dev = { device : devty; offset : int64; }
 type stripety = { chunk_size : int64; dests : dev array; }
 type mapty = Linear of dev | Striped of stripety
 type mapping = { start : int64; len : int64; map : mapty; }
+type mapping_array = {
+  m : mapping array 
+} 
 type status = {
   exists : bool;
   suspended : bool;
@@ -33,6 +36,8 @@ type status = {
 exception CreateError of string
 exception ReloadError of string
 
+val rpc_of_mapping_array : mapping_array -> Rpc.t
+val mapping_array_of_rpc : Rpc.t -> mapping_array
 val convert_mapty : mapty -> (string * string) list -> string * string
 val create : string -> mapping array -> (string * string) list -> unit
 val reload : string -> mapping array -> (string * string) list -> unit