[Xen-devel] [PATCH 26/28] libxl: ocaml: add disk and cdrom helper functions

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>
---
 tools/ocaml/libs/xl/genwrap.py       |    5 ++++-
 tools/ocaml/libs/xl/xenlight_stubs.c |   19 ++++++++++++++-----
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/tools/ocaml/libs/xl/genwrap.py b/tools/ocaml/libs/xl/genwrap.py
index becdef8..5bc165d 100644
--- a/tools/ocaml/libs/xl/genwrap.py
+++ b/tools/ocaml/libs/xl/genwrap.py
@@ -30,7 +30,10 @@ DEVICE_FUNCTIONS = [ ("add",            ["ctx", "?async:'a", 
"t", "domid", "unit
 functions = { # ( name , [type1,type2,....] )
     "device_vfb":     DEVICE_FUNCTIONS,
     "device_vkb":     DEVICE_FUNCTIONS,
-    "device_disk":    DEVICE_FUNCTIONS,
+    "device_disk":    DEVICE_FUNCTIONS +
+                      [ ("insert",         ["ctx", "?async:'a", "t", "domid", 
"unit"]),
+                        ("of_vdev",        ["ctx", "domid", "string", "t"]),
+                      ],
     "device_nic":     DEVICE_FUNCTIONS +
                       [ ("list",           ["ctx", "domid", "t list"]),
                         ("of_devid",       ["ctx", "domid", "int", "t"]),
diff --git a/tools/ocaml/libs/xl/xenlight_stubs.c 
b/tools/ocaml/libs/xl/xenlight_stubs.c
index 7be5dd4..f832f37 100644
--- a/tools/ocaml/libs/xl/xenlight_stubs.c
+++ b/tools/ocaml/libs/xl/xenlight_stubs.c
@@ -337,7 +337,7 @@ void async_callback(libxl_ctx *ctx, int rc, void 
*for_callback)
 #define _STRINGIFY(x) #x
 #define STRINGIFY(x) _STRINGIFY(x)
 
-#define _DEVICE_ADDREMOVE(type,op)                                     \
+#define _DEVICE_ADDREMOVE(type,fn,op)                                  \
 value stub_xl_device_##type##_##op(value ctx, value async, value info, \
        value domid)                                                    \
 {                                                                      \
@@ -356,7 +356,7 @@ value stub_xl_device_##type##_##op(value ctx, value async, 
value info,      \
        else                                                            \
                ao_how = NULL;                                          \
                                                                        \
-       ret = libxl_device_##type##_##op(CTX, Int_val(domid), &c_info,  \
+       ret = libxl_##fn##_##op(CTX, Int_val(domid), &c_info,           \
                ao_how);                                                \
                                                                        \
        libxl_device_##type##_dispose(&c_info);                         \
@@ -370,15 +370,16 @@ value stub_xl_device_##type##_##op(value ctx, value 
async, value info,    \
 }
 
 #define DEVICE_ADDREMOVE(type) \
-       _DEVICE_ADDREMOVE(type, add) \
-       _DEVICE_ADDREMOVE(type, remove) \
-       _DEVICE_ADDREMOVE(type, destroy)
+       _DEVICE_ADDREMOVE(type, device_##type, add) \
+       _DEVICE_ADDREMOVE(type, device_##type, remove) \
+       _DEVICE_ADDREMOVE(type, device_##type, destroy)
 
 DEVICE_ADDREMOVE(disk)
 DEVICE_ADDREMOVE(nic)
 DEVICE_ADDREMOVE(vfb)
 DEVICE_ADDREMOVE(vkb)
 DEVICE_ADDREMOVE(pci)
+_DEVICE_ADDREMOVE(disk, cdrom, insert)
 
 value stub_xl_device_nic_of_devid(value ctx, value domid, value devid)
 {
@@ -416,6 +417,14 @@ value stub_xl_device_nic_list(value ctx, value domid)
        CAMLreturn(list);
 }
 
+value stub_xl_device_disk_of_vdev(value ctx, value domid, value vdev)
+{
+       CAMLparam3(ctx, domid, vdev);
+       libxl_device_disk disk;
+       libxl_vdev_to_device_disk(CTX, Int_val(domid), String_val(vdev), &disk);
+       CAMLreturn(Val_device_disk(&disk));
+}
+
 value stub_xl_device_pci_list(value ctx, value domid)
 {
        CAMLparam2(ctx, domid);
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel