[Xen-API] [PATCH 13 of 17] Update ocamldoc

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

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


# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
# Date 1294419412 0
# Node ID 14b65539326c2fbb5d91a5cefed4b058e6223e01
# Parent  06e031ca0bc2960d4f8bc0f37f2fc987d0b828c3
Update ocamldoc

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

diff -r 06e031ca0bc2 -r 14b65539326c ocaml/license/fakev6.mli
--- a/ocaml/license/fakev6.mli
+++ b/ocaml/license/fakev6.mli
@@ -15,13 +15,14 @@
 (** An example implementation of a licensing service which always returns 
"real" 
     licenses that never expire. *)
 
-(** Obtain a license *)
+(** Attempt to switch to a given edition. Returns a list of enabled features. 
*)
 val apply_edition : string -> (string * string) list ->
        string * Features.feature list * (string * string) list
 
-(** Release the license *)
+(** Obtain a list of available editions *)
 val get_editions : unit -> (string * string * string * int) list
 
+(** Version of the daemon *)
 val get_version : unit -> string
 
 (** Close and re-open the log file *)
diff -r 06e031ca0bc2 -r 14b65539326c ocaml/license/v6client.mli
--- a/ocaml/license/v6client.mli
+++ b/ocaml/license/v6client.mli
@@ -11,13 +11,19 @@
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU Lesser General Public License for more details.
  *)
-(** Client module to handle v6 licenses with the v6 licensing daemon.
- *  V6 licenses enable the features of Citrix Essentials for XenServer.
+(**
+ * Client module to interact with the licensing daemon [v6d].
+ * [v6d] controls which features are enabled for a given "edition".
  * @group Licensing
  *)
 
+(** Call the [apply_edition] function on the v6d *)
 val apply_edition : __context:Context.t -> string -> (string * string) list ->
        string * Features.feature list * (string * string) list
+
+(** Call the [get_editions] function on the v6d *)
 val get_editions : unit -> (string * string * string * int) list
+
+(** Call the [get_version] function on the v6d *)
 val get_version : unit -> string
 
diff -r 06e031ca0bc2 -r 14b65539326c ocaml/license/v6rpc.mli
--- a/ocaml/license/v6rpc.mli
+++ b/ocaml/license/v6rpc.mli
@@ -12,9 +12,9 @@
  * GNU Lesser General Public License for more details.
  *)
 
-(** XML/RPC handler for the licensing daemon *)
+(** RPC definition of the licensing daemon *)
 
-(** The XML/RPC interface of the licensing daemon *)
+(** The RPC interface of the licensing daemon *)
 module type V6api =
        sig
                (* edition -> additional_params -> enabled_features, 
additional_params *)
@@ -27,38 +27,57 @@
                (* () -> version *)
                val reopen_logs : unit -> bool
        end  
-(** XML/RPC handler *)
 
+(** RPC handler module *)
 module V6process : functor (V : V6api) ->
        sig
-               (** Process an XML/RPC call *)
+               (** Process an RPC call *)
                val process : Rpc.call -> Rpc.response
        end
 
 (** {2 Marshaling functions} *)
 
+(** Definition of [apply_edition] RPC *)
 type apply_edition_in = {
-       edition_in: string;
-       additional_in: (string * string) list;
+       edition_in: string; (** The requested edition *)
+       additional_in: (string * string) list; (** Additional parameters *)
 }
 
+(** Convert RPC into {!apply_edition_in} structure *)
 val apply_edition_in_of_rpc : Rpc.t -> apply_edition_in
+
+(** Convert {!apply_edition_in} structure into RPC *)
 val rpc_of_apply_edition_in : apply_edition_in -> Rpc.t
 
+(** Return type of the [apply_edition] RPC *)
 type apply_edition_out = {
-       edition_out: string;
-       features_out: Features.feature list;
-       additional_out: (string * string) list;
+       edition_out: string; (** The edition that was applied *)
+       features_out: Features.feature list; (** The features that are now 
enabled *)
+       additional_out: (string * string) list; (** Additional parameters *)
 }
 
+(** Convert RPC into {!apply_edition_out} structure *)
 val apply_edition_out_of_rpc : Rpc.t -> apply_edition_out
+
+(** Convert {!apply_edition_out} structure into RPC *)
 val rpc_of_apply_edition_out : apply_edition_out -> Rpc.t
 
+(** Format of the editions list returns by the [get_editions] RPC:
+    - Name of the edition;
+    - Long name of the edition;
+    - Abbreviation of the edition name;
+    - Edition order number.
+ *)
 type names = string * string * string * int
+
+(** Return type of the [get_editions] RPC *)
 type get_editions_out = {
-       editions: names list;
+       editions: names list; (** List of all available editions *)
 }
 
+(** Convert RPC into {!get_editions_out} structure *)
 val get_editions_out_of_rpc : Rpc.t -> get_editions_out
+
+(** Convert {!get_editions_out} structure into RPC *)
 val rpc_of_get_editions_out : get_editions_out -> Rpc.t
 
diff -r 06e031ca0bc2 -r 14b65539326c ocaml/xapi/features.mli
--- a/ocaml/xapi/features.mli
+++ b/ocaml/xapi/features.mli
@@ -26,7 +26,7 @@
        | HA                           (** Enable High Availability (HA) *)
        | Marathon                     (** Currently not used *)
        | Email                        (** Enable email alerting *)
-       | Performance                  (** Currently not used? *)
+       | Performance                  (** Used by XenCenter to restrict the 
performance graphs *)
        | WLB                          (** Enable Workload Balancing (WLB) *)
        | RBAC                         (** Enable Role-Based Access Control 
(RBAC) *)
        | DMC                          (** Enable Dynamic Memory Control (DMC) 
*)
@@ -38,7 +38,10 @@
        | No_nag_dialog                (** Used by XenCenter *)
        | VMPR                         (** Enable use of VM Protection and 
Recovery *)
 
+(** Convert RPC into {!feature}s *)
 val feature_of_rpc : Rpc.t -> feature
+
+(** Convert {!feature}s into RPC *)
 val rpc_of_feature : feature -> Rpc.t
 
 (** The list of all known features. *)

Attachment: xen-api.hg-13.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api