diff options
author | David Scott <dave.scott@eu.citrix.com> | 2011-03-30 18:54:28 +0100 |
---|---|---|
committer | David Scott <dave.scott@eu.citrix.com> | 2011-03-30 18:54:28 +0100 |
commit | dc11e2762d619d396d54648611a9d8b11ca4eb24 (patch) | |
tree | 8e221d0aa86fbf1b1abb2a56ef3eb7d9cd6285af /tools/ocaml | |
parent | 226a5d6458a51ba43a40d08c1e9c3aa2ba53dbce (diff) | |
download | xen-dc11e2762d619d396d54648611a9d8b11ca4eb24.tar.gz xen-dc11e2762d619d396d54648611a9d8b11ca4eb24.tar.bz2 xen-dc11e2762d619d396d54648611a9d8b11ca4eb24.zip |
tools: ocaml: rename the disk_info types and functions
The aims are:
1. make the records instantiable if they have field names in common; and
2. to make it easier to derive the names programatically from the IDL
Signed-off-by: David Scott <dave.scott@eu.citrix.com>
Signed-off-by: Ian Campbell <ian.campbell@citrix.com>
Acked-by: Ian Jackson <ian.jackson.citrix.com>
Committed-by: Ian Jackson <ian.jackson.citrix.com>
Diffstat (limited to 'tools/ocaml')
-rw-r--r-- | tools/ocaml/libs/xl/xl.ml | 28 | ||||
-rw-r--r-- | tools/ocaml/libs/xl/xl.mli | 28 | ||||
-rw-r--r-- | tools/ocaml/libs/xl/xl_stubs.c | 6 |
3 files changed, 33 insertions, 29 deletions
diff --git a/tools/ocaml/libs/xl/xl.ml b/tools/ocaml/libs/xl/xl.ml index 10661c4342..1be9efe657 100644 --- a/tools/ocaml/libs/xl/xl.ml +++ b/tools/ocaml/libs/xl/xl.ml @@ -82,16 +82,21 @@ type disk_phystype = | PHYSTYPE_FILE | PHYSTYPE_PHY -type disk_info = -{ - backend_domid : domid; - physpath : string; - phystype : disk_phystype; - virtpath : string; - unpluggable : bool; - readwrite : bool; - is_cdrom : bool; -} +module Device_disk = struct + type t = + { + backend_domid : domid; + physpath : string; + phystype : disk_phystype; + virtpath : string; + unpluggable : bool; + readwrite : bool; + is_cdrom : bool; + } + + external add : t -> domid -> unit = "stub_xl_device_disk_add" + external del : t -> domid -> unit = "stub_xl_device_disk_del" +end type nic_type = | NICTYPE_IOEMU @@ -191,9 +196,6 @@ type sched_credit = external domain_make : create_info -> domid = "stub_xl_domain_make" external domain_build : build_info -> domid -> build_state = "stub_xl_domain_build" -external disk_add : disk_info -> domid -> unit = "stub_xl_disk_add" -external disk_remove : disk_info -> domid -> unit = "stub_xl_disk_remove" - external console_add : console_info -> build_state -> domid -> unit = "stub_xl_console_add" external vkb_add : vkb_info -> domid -> unit = "stub_xl_vkb_add" diff --git a/tools/ocaml/libs/xl/xl.mli b/tools/ocaml/libs/xl/xl.mli index ef78143cab..11fc1c132e 100644 --- a/tools/ocaml/libs/xl/xl.mli +++ b/tools/ocaml/libs/xl/xl.mli @@ -82,16 +82,21 @@ type disk_phystype = | PHYSTYPE_FILE | PHYSTYPE_PHY -type disk_info = -{ - backend_domid : domid; - physpath : string; - phystype : disk_phystype; - virtpath : string; - unpluggable : bool; - readwrite : bool; - is_cdrom : bool; -} +module Device_disk : sig + type t = + { + backend_domid : domid; + physpath : string; + phystype : disk_phystype; + virtpath : string; + unpluggable : bool; + readwrite : bool; + is_cdrom : bool; + } + + external add : t -> domid -> unit = "stub_xl_device_disk_add" + external del : t -> domid -> unit = "stub_xl_device_disk_del" +end type nic_type = | NICTYPE_IOEMU @@ -191,9 +196,6 @@ type sched_credit = external domain_make : create_info -> domid = "stub_xl_domain_make" external domain_build : build_info -> domid -> build_state = "stub_xl_domain_build" -external disk_add : disk_info -> domid -> unit = "stub_xl_disk_add" -external disk_remove : disk_info -> domid -> unit = "stub_xl_disk_remove" - external console_add : console_info -> build_state -> domid -> unit = "stub_xl_console_add" external vkb_add : vkb_info -> domid -> unit = "stub_xl_vkb_add" diff --git a/tools/ocaml/libs/xl/xl_stubs.c b/tools/ocaml/libs/xl/xl_stubs.c index dc565837d0..692bf071f6 100644 --- a/tools/ocaml/libs/xl/xl_stubs.c +++ b/tools/ocaml/libs/xl/xl_stubs.c @@ -368,7 +368,7 @@ static value Val_topologyinfo(libxl_topologyinfo *c_val) CAMLreturn(topologyinfo); } -value stub_xl_disk_add(value info, value domid) +value stub_xl_device_disk_add(value info, value domid) { CAMLparam2(info, domid); libxl_device_disk c_info; @@ -385,7 +385,7 @@ value stub_xl_disk_add(value info, value domid) CAMLreturn(Val_unit); } -value stub_xl_disk_remove(value info, value domid) +value stub_xl_device_disk_del(value info, value domid) { CAMLparam2(info, domid); libxl_device_disk c_info; @@ -397,7 +397,7 @@ value stub_xl_disk_remove(value info, value domid) INIT_CTX(); ret = libxl_device_disk_del(ctx, Int_val(domid), &c_info, 0); if (ret != 0) - failwith_xl("disk_remove", &lg); + failwith_xl("disk_del", &lg); FREE_CTX(); CAMLreturn(Val_unit); } |