[Xen-API] [PATCH 3 of 4] CA-38136:replace any occurence of "snapshot_of" and "snapshot_time" by "snapshot-of" and "snapshot-by" in the CLI fields

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User  Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1268390594 0
# Node ID 8baedbf2d1795f4f62176af93c9272e6802ca5d2
# Parent  628cc77f38df243749d747a2680584b65fdafd2e
CA-38136:replace any occurence of "snapshot_of" and "snapshot_time" by 
"snapshot-of" and "snapshot-by" in the CLI fields.

(this appears in the VM and VDI records)

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>

diff -r 628cc77f38df -r 8baedbf2d179 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml   Fri Mar 12 10:43:14 2010 +0000
+++ b/ocaml/client_records/records.ml   Fri Mar 12 10:43:14 2010 +0000
@@ -579,11 +579,11 @@
                                ~set:(fun x -> Client.VM.set_is_a_template rpc 
session_id vm (safe_bool_of_string "is-a-template" x)) ();
                        make_field ~name:"is-a-snapshot"
                                ~get:(fun () -> string_of_bool (x 
()).API.vM_is_a_snapshot) ();
-                       make_field ~name:"snapshot_of"
+                       make_field ~name:"snapshot-of"
                                ~get:(fun () -> get_uuid_from_ref (x 
()).API.vM_snapshot_of) ();
                        make_field ~name:"snapshots"
                                ~get:(fun () -> String.concat "; " (List.map 
get_uuid_from_ref (x ()).API.vM_snapshots)) ();
-                       make_field ~name:"snapshot_time"
+                       make_field ~name:"snapshot-time"
                                ~get:(fun () -> Date.to_string (x 
()).API.vM_snapshot_time) ();
                        make_field ~name:"transportable-snapshot-id" 
~hidden:true
                                ~get:(fun () -> 
(x()).API.vM_transportable_snapshot_id) ();
@@ -942,9 +942,9 @@
     make_field ~name:"name-description" ~get:(fun () -> (x 
()).API.vDI_name_description)
       ~set:(fun desc -> Client.VDI.set_name_description rpc session_id vdi 
desc) ();
     make_field ~name:"is-a-snapshot" ~get:(fun () -> string_of_bool (x 
()).API.vDI_is_a_snapshot) (); 
-    make_field ~name:"snapshot_of"   ~get:(fun () -> get_uuid_from_ref (x 
()).API.vDI_snapshot_of) ();
+    make_field ~name:"snapshot-of"   ~get:(fun () -> get_uuid_from_ref (x 
()).API.vDI_snapshot_of) ();
     make_field ~name:"snapshots"     ~get:(fun () -> String.concat "; " 
(List.map get_uuid_from_ref (x ()).API.vDI_snapshots)) ();
-    make_field ~name:"snapshot_time" ~get:(fun () -> Date.to_string (x 
()).API.vDI_snapshot_time) ();
+    make_field ~name:"snapshot-time" ~get:(fun () -> Date.to_string (x 
()).API.vDI_snapshot_time) ();
     make_field ~name:"allowed-operations"
       ~get:(fun () -> String.concat "; " (List.map 
Record_util.vdi_operation_to_string (x ()).API.vDI_allowed_operations)) 
       ~get_set:(fun () -> List.map Record_util.vdi_operation_to_string (x 
()).API.vDI_allowed_operations) ();
1 file changed, 4 insertions(+), 4 deletions(-)
ocaml/client_records/records.ml |    8 ++++----

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

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