Add v6 interface

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

Author: robhoes

v6/v6_client.ml

@@ -0,0 +1,45 @@
+(*
+ * Copyright (C) Citrix Systems Inc.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published
+ * by the Free Software Foundation; version 2.1 only. with the special
+ * exception on linking described in file LICENSE.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
+ * GNU Lesser General Public License for more details.
+ *)
+
+open V6_interface
+open Xcp_client
+
+let retry_econnrefused f =
+	let rec loop retry =
+		let result =
+			try
+				Some (f ())
+			with Unix.Unix_error((Unix.ECONNREFUSED | Unix.ENOENT), _, _) ->
+				Thread.delay 1.;
+				None in
+		match result with
+		| Some x -> x
+		| None -> if retry then loop false else raise V6d_failure
+	in
+	loop true
+
+module Client = V6_interface.Client(struct
+	let rpc call =
+		retry_econnrefused (fun () ->
+			if !use_switch
+			then json_switch_rpc !queue_name call
+			else xml_http_rpc
+				~srcstr:(Xcp_client.get_user_agent ())
+				~dststr:"v6"
+				V6_interface.uri
+				call
+		)
+end)
+
+include Client

v6/v6_interface.ml

@@ -0,0 +1,39 @@
+(*
+ * Copyright (C) Citrix Systems Inc.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published
+ * by the Free Software Foundation; version 2.1 only. with the special
+ * exception on linking described in file LICENSE.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Lesser General Public License for more details.
+ *)
+
+let service_name = "v6d"
+let queue_name = ref (Xcp_service.common_prefix ^ service_name)
+let default_sockets_dir = "/var/lib/xcp"
+let default_path = ref (Filename.concat default_sockets_dir service_name)
+let uri () = "file:" ^ !default_path
+
+type debug_info = string
+
+exception Invalid_edition of string
+exception V6d_failure
+exception License_expired
+exception License_processing_error
+exception Missing_connection_details
+exception License_checkout_error of string
+
+(* dbg_str -> requested edition -> current params ->
+   new edition * new xapi params * new additional params *)
+external apply_edition : debug_info -> string -> (string * string) list ->
+	string * (string * string) list * (string * string) list = ""
+
+(* dbg_str -> list of editions *)
+external get_editions : debug_info -> (string * (string * string * int)) list = ""
+
+(* dbg_str -> result *)
+external get_version : debug_info -> string = ""