# HG changeset patch # User Thomas Gazagnaire <[email protected]> # Date 1262958466 0 # Node ID 90fd186e17ef6bc1193681c157a6fa683be7b668 # Parent 45bd84d8701763d0e13863113cf6c3e9f2135063 [rpc-light] Add some basic RPC int functions.
This patch adds rpc_of_unit and unit_of_rpc Signed-off-by: Thomas Gazagnaire <[email protected]> diff -r 45bd84d87017 -r 90fd186e17ef rpc-light/rpc.ml --- a/rpc-light/rpc.ml Fri Jan 08 13:47:46 2010 +0000 +++ b/rpc-light/rpc.ml Fri Jan 08 13:47:46 2010 +0000 @@ -47,6 +47,7 @@ let rpc_of_bool b = Bool b let rpc_of_float f = Float f let rpc_of_string s = String s +let rpc_of_unit () = Null let t_of_rpc x = x let int64_of_rpc = function @@ -67,6 +68,7 @@ | String s -> float_of_string s | _ -> failwith "float_of_rpc" let string_of_rpc = function String s -> s | _ -> failwith "string_of_rpc" +let unit_of_rpc = function Null -> () | _ -> failwith "unit_of_rpc" type callback = string list -> t -> unit diff -r 45bd84d87017 -r 90fd186e17ef rpc-light/rpc.mli --- a/rpc-light/rpc.mli Fri Jan 08 13:47:46 2010 +0000 +++ b/rpc-light/rpc.mli Fri Jan 08 13:47:46 2010 +0000 @@ -48,6 +48,9 @@ val t_of_rpc : t -> t val rpc_of_t : t -> t +val unit_of_rpc : t -> unit +val rpc_of_unit : unit -> t + (** {2 Calls} *) type callback = string list -> t -> unit 2 files changed, 5 insertions(+) rpc-light/rpc.ml | 2 ++ rpc-light/rpc.mli | 3 +++
# HG changeset patch # User Thomas Gazagnaire <[email protected]> # Date 1262958466 0 # Node ID 90fd186e17ef6bc1193681c157a6fa683be7b668 # Parent 45bd84d8701763d0e13863113cf6c3e9f2135063 [rpc-light] Add some basic RPC int functions. This patch adds rpc_of_unit and unit_of_rpc Signed-off-by: Thomas Gazagnaire <[email protected]> diff -r 45bd84d87017 -r 90fd186e17ef rpc-light/rpc.ml --- a/rpc-light/rpc.ml Fri Jan 08 13:47:46 2010 +0000 +++ b/rpc-light/rpc.ml Fri Jan 08 13:47:46 2010 +0000 @@ -47,6 +47,7 @@ let rpc_of_bool b = Bool b let rpc_of_float f = Float f let rpc_of_string s = String s +let rpc_of_unit () = Null let t_of_rpc x = x let int64_of_rpc = function @@ -67,6 +68,7 @@ | String s -> float_of_string s | _ -> failwith "float_of_rpc" let string_of_rpc = function String s -> s | _ -> failwith "string_of_rpc" +let unit_of_rpc = function Null -> () | _ -> failwith "unit_of_rpc" type callback = string list -> t -> unit diff -r 45bd84d87017 -r 90fd186e17ef rpc-light/rpc.mli --- a/rpc-light/rpc.mli Fri Jan 08 13:47:46 2010 +0000 +++ b/rpc-light/rpc.mli Fri Jan 08 13:47:46 2010 +0000 @@ -48,6 +48,9 @@ val t_of_rpc : t -> t val rpc_of_t : t -> t +val unit_of_rpc : t -> unit +val rpc_of_unit : unit -> t + (** {2 Calls} *) type callback = string list -> t -> unit
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
