[libvirt] [RFC PATCH 13/30] qemu: block: Format 'read-only' attribute for JSON disk protocol

[Peter Krempa]

This will be required when doing blockdev-add to conform with the
approach qemu would chose to create the disks.

Signed-off-by: Peter Krempa <pkrempa at redhat.com>
---
 src/qemu/qemu_block.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/qemu/qemu_block.c b/src/qemu/qemu_block.c
index eb246ebd60..44662a4603 100644
--- a/src/qemu/qemu_block.c
+++ b/src/qemu/qemu_block.c
@@ -1154,6 +1154,9 @@ qemuBlockStorageSourceGetBackendProps(virStorageSourcePtr src,
     if (!legacy) {
         if (qemuBlockStorageSourceGetBlockdevGetCacheProps(src, fileprops) < 0)
             goto cleanup;
+
+        if (virJSONValueObjectAdd(fileprops, "b:read-only", src->readonly, NULL) < 0)
+            goto cleanup;
     }

     VIR_STEAL_PTR(ret, fileprops);
-- 
2.14.3