CP-24903: Network.purposes field for CLI

In the CLI, the Network object now has a purposes field.
The field has accessors
  get
  get_set
  add_to_set
  remove_from_set

Signed-off-by: Thomas Sanders <[email protected]>

Author: thomassa

ocaml/xapi/records.ml

@@ -443,6 +443,15 @@ let net_record rpc session_id net =
         ~get:(fun () -> Record_util.network_default_locking_mode_to_string (x ()).API.network_default_locking_mode)
         ~set:(fun value -> Client.Network.set_default_locking_mode rpc session_id net
                  (Record_util.string_to_network_default_locking_mode value)) ();
+
+      make_field ~name:"purposes"
+        ~get:(fun () -> (x ()).API.network_purposes |> List.map Record_util.network_purpose_to_string |> (String.concat ", "))
+        ~get_set:(fun () -> (x ()).API.network_purposes |> List.map Record_util.network_purpose_to_string)
+        ~add_to_set:(fun s -> Client.Network.add_purpose rpc session_id net
+                        (Record_util.string_to_network_purpose s))
+        ~remove_from_set:(fun s -> Client.Network.remove_purpose rpc session_id net
+                             (Record_util.string_to_network_purpose s)) ();
+
     ]}