blockdev.c

   1 /*
   2  * QEMU host block devices
   3  *
   4  * Copyright (c) 2003-2008 Fabrice Bellard
   5  *
   6  * This work is licensed under the terms of the GNU GPL, version 2 or
   7  * later.  See the COPYING file in the top-level directory.
   8  */
   9
  10 #include "block.h"
  11 #include "blockdev.h"
  12 #include "monitor.h"
  13 #include "qerror.h"
  14 #include "qemu-option.h"
  15 #include "qemu-config.h"
  16 #include "qemu-objects.h"
  17 #include "sysemu.h"
  18 #include "block_int.h"
  19 #include "qmp-commands.h"
  20 #include "trace.h"
  21 #include "arch_init.h"
  22
  23 static QTAILQ_HEAD(drivelist, DriveInfo) drives = QTAILQ_HEAD_INITIALIZER(drives);
  24
  25 static const char *const if_name[IF_COUNT] = {
  26     [IF_NONE] = "none",
  27     [IF_IDE] = "ide",
  28     [IF_SCSI] = "scsi",
  29     [IF_FLOPPY] = "floppy",
  30     [IF_PFLASH] = "pflash",
  31     [IF_MTD] = "mtd",
  32     [IF_SD] = "sd",
  33     [IF_VIRTIO] = "virtio",
  34     [IF_XEN] = "xen",
  35 };
  36
  37 static const int if_max_devs[IF_COUNT] = {
  38     /*
  39      * Do not change these numbers!  They govern how drive option
  40      * index maps to unit and bus.  That mapping is ABI.
  41      *
  42      * All controllers used to imlement if=T drives need to support
  43      * if_max_devs[T] units, for any T with if_max_devs[T] != 0.
  44      * Otherwise, some index values map to "impossible" bus, unit
  45      * values.
  46      *
  47      * For instance, if you change [IF_SCSI] to 255, -drive
  48      * if=scsi,index=12 no longer means bus=1,unit=5, but
  49      * bus=0,unit=12.  With an lsi53c895a controller (7 units max),
  50      * the drive can't be set up.  Regression.
  51      */
  52     [IF_IDE] = 2,
  53     [IF_SCSI] = 7,
  54 };
  55
  56 /*
  57  * We automatically delete the drive when a device using it gets
  58  * unplugged.  Questionable feature, but we can't just drop it.
  59  * Device models call blockdev_mark_auto_del() to schedule the
  60  * automatic deletion, and generic qdev code calls blockdev_auto_del()
  61  * when deletion is actually safe.
  62  */
  63 void blockdev_mark_auto_del(BlockDriverState *bs)
  64 {
  65     DriveInfo *dinfo = drive_get_by_blockdev(bs);
  66
  67     if (bs->job) {
  68         block_job_cancel(bs->job);
  69     }
  70     if (dinfo) {
  71         dinfo->auto_del = 1;
  72     }
  73 }
  74
  75 void blockdev_auto_del(BlockDriverState *bs)
  76 {
  77     DriveInfo *dinfo = drive_get_by_blockdev(bs);
  78
  79     if (dinfo && dinfo->auto_del) {
  80         drive_put_ref(dinfo);
  81     }
  82 }
  83
  84 static int drive_index_to_bus_id(BlockInterfaceType type, int index)
  85 {
  86     int max_devs = if_max_devs[type];
  87     return max_devs ? index / max_devs : 0;
  88 }
  89
  90 static int drive_index_to_unit_id(BlockInterfaceType type, int index)
  91 {
  92     int max_devs = if_max_devs[type];
  93     return max_devs ? index % max_devs : index;
  94 }
  95
  96 QemuOpts *drive_def(const char *optstr)
  97 {
  98     return qemu_opts_parse(qemu_find_opts("drive"), optstr, 0);
  99 }
 100
 101 QemuOpts *drive_add(BlockInterfaceType type, int index, const char *file,
 102                     const char *optstr)
 103 {
 104     QemuOpts *opts;
 105     char buf[32];
 106
 107     opts = drive_def(optstr);
 108     if (!opts) {
 109         return NULL;
 110     }
 111     if (type != IF_DEFAULT) {
 112         qemu_opt_set(opts, "if", if_name[type]);
 113     }
 114     if (index >= 0) {
 115         snprintf(buf, sizeof(buf), "%d", index);
 116         qemu_opt_set(opts, "index", buf);
 117     }
 118     if (file)
 119         qemu_opt_set(opts, "file", file);
 120     return opts;
 121 }
 122
 123 DriveInfo *drive_get(BlockInterfaceType type, int bus, int unit)
 124 {
 125     DriveInfo *dinfo;
 126
 127     /* seek interface, bus and unit */
 128
 129     QTAILQ_FOREACH(dinfo, &drives, next) {
 130         if (dinfo->type == type &&
 131             dinfo->bus == bus &&
 132             dinfo->unit == unit)
 133             return dinfo;
 134     }
 135
 136     return NULL;
 137 }
 138
 139 DriveInfo *drive_get_by_index(BlockInterfaceType type, int index)
 140 {
 141     return drive_get(type,
 142                      drive_index_to_bus_id(type, index),
 143                      drive_index_to_unit_id(type, index));
 144 }
 145
 146 int drive_get_max_bus(BlockInterfaceType type)
 147 {
 148     int max_bus;
 149     DriveInfo *dinfo;
 150
 151     max_bus = -1;
 152     QTAILQ_FOREACH(dinfo, &drives, next) {
 153         if(dinfo->type == type &&
 154            dinfo->bus > max_bus)
 155             max_bus = dinfo->bus;
 156     }
 157     return max_bus;
 158 }
 159
 160 /* Get a block device.  This should only be used for single-drive devices
 161    (e.g. SD/Floppy/MTD).  Multi-disk devices (scsi/ide) should use the
 162    appropriate bus.  */
 163 DriveInfo *drive_get_next(BlockInterfaceType type)
 164 {
 165     static int next_block_unit[IF_COUNT];
 166
 167     return drive_get(type, 0, next_block_unit[type]++);
 168 }
 169
 170 DriveInfo *drive_get_by_blockdev(BlockDriverState *bs)
 171 {
 172     DriveInfo *dinfo;
 173
 174     QTAILQ_FOREACH(dinfo, &drives, next) {
 175         if (dinfo->bdrv == bs) {
 176             return dinfo;
 177         }
 178     }
 179     return NULL;
 180 }
 181
 182 static void bdrv_format_print(void *opaque, const char *name)
 183 {
 184     error_printf(" %s", name);
 185 }
 186
 187 static void drive_uninit(DriveInfo *dinfo)
 188 {
 189     qemu_opts_del(dinfo->opts);
 190     bdrv_delete(dinfo->bdrv);
 191     g_free(dinfo->id);
 192     QTAILQ_REMOVE(&drives, dinfo, next);
 193     g_free(dinfo);
 194 }
 195
 196 void drive_put_ref(DriveInfo *dinfo)
 197 {
 198     assert(dinfo->refcount);
 199     if (--dinfo->refcount == 0) {
 200         drive_uninit(dinfo);
 201     }
 202 }
 203
 204 void drive_get_ref(DriveInfo *dinfo)
 205 {
 206     dinfo->refcount++;
 207 }
 208
 209 typedef struct {
 210     QEMUBH *bh;
 211     DriveInfo *dinfo;
 212 } DrivePutRefBH;
 213
 214 static void drive_put_ref_bh(void *opaque)
 215 {
 216     DrivePutRefBH *s = opaque;
 217
 218     drive_put_ref(s->dinfo);
 219     qemu_bh_delete(s->bh);
 220     g_free(s);
 221 }
 222
 223 /*
 224  * Release a drive reference in a BH
 225  *
 226  * It is not possible to use drive_put_ref() from a callback function when the
 227  * callers still need the drive.  In such cases we schedule a BH to release the
 228  * reference.
 229  */
 230 static void drive_put_ref_bh_schedule(DriveInfo *dinfo)
 231 {
 232     DrivePutRefBH *s;
 233
 234     s = g_new(DrivePutRefBH, 1);
 235     s->bh = qemu_bh_new(drive_put_ref_bh, s);
 236     s->dinfo = dinfo;
 237     qemu_bh_schedule(s->bh);
 238 }
 239
 240 static int parse_block_error_action(const char *buf, int is_read)
 241 {
 242     if (!strcmp(buf, "ignore")) {
 243         return BLOCK_ERR_IGNORE;
 244     } else if (!is_read && !strcmp(buf, "enospc")) {
 245         return BLOCK_ERR_STOP_ENOSPC;
 246     } else if (!strcmp(buf, "stop")) {
 247         return BLOCK_ERR_STOP_ANY;
 248     } else if (!strcmp(buf, "report")) {
 249         return BLOCK_ERR_REPORT;
 250     } else {
 251         error_report("'%s' invalid %s error action",
 252                      buf, is_read ? "read" : "write");
 253         return -1;
 254     }
 255 }
 256
 257 static bool do_check_io_limits(BlockIOLimit *io_limits)
 258 {
 259     bool bps_flag;
 260     bool iops_flag;
 261
 262     assert(io_limits);
 263
 264     bps_flag  = (io_limits->bps[BLOCK_IO_LIMIT_TOTAL] != 0)
 265                  && ((io_limits->bps[BLOCK_IO_LIMIT_READ] != 0)
 266                  || (io_limits->bps[BLOCK_IO_LIMIT_WRITE] != 0));
 267     iops_flag = (io_limits->iops[BLOCK_IO_LIMIT_TOTAL] != 0)
 268                  && ((io_limits->iops[BLOCK_IO_LIMIT_READ] != 0)
 269                  || (io_limits->iops[BLOCK_IO_LIMIT_WRITE] != 0));
 270     if (bps_flag || iops_flag) {
 271         return false;
 272     }
 273
 274     return true;
 275 }
 276
 277 DriveInfo *drive_init(QemuOpts *opts, int default_to_scsi)
 278 {
 279     const char *buf;
 280     const char *file = NULL;
 281     char devname[128];
 282     const char *serial;
 283     const char *mediastr = "";
 284     BlockInterfaceType type;
 285     enum { MEDIA_DISK, MEDIA_CDROM } media;
 286     int bus_id, unit_id;
 287     int cyls, heads, secs, translation;
 288     BlockDriver *drv = NULL;
 289     int max_devs;
 290     int index;
 291     int ro = 0;
 292     int bdrv_flags = 0;
 293     int on_read_error, on_write_error;
 294     const char *devaddr;
 295     DriveInfo *dinfo;
 296     BlockIOLimit io_limits;
 297     int snapshot = 0;
 298     bool copy_on_read;
 299     int ret;
 300
 301     translation = BIOS_ATA_TRANSLATION_AUTO;
 302     media = MEDIA_DISK;
 303
 304     /* extract parameters */
 305     bus_id  = qemu_opt_get_number(opts, "bus", 0);
 306     unit_id = qemu_opt_get_number(opts, "unit", -1);
 307     index   = qemu_opt_get_number(opts, "index", -1);
 308
 309     cyls  = qemu_opt_get_number(opts, "cyls", 0);
 310     heads = qemu_opt_get_number(opts, "heads", 0);
 311     secs  = qemu_opt_get_number(opts, "secs", 0);
 312
 313     snapshot = qemu_opt_get_bool(opts, "snapshot", 0);
 314     ro = qemu_opt_get_bool(opts, "readonly", 0);
 315     copy_on_read = qemu_opt_get_bool(opts, "copy-on-read", false);
 316
 317     file = qemu_opt_get(opts, "file");
 318     serial = qemu_opt_get(opts, "serial");
 319
 320     if ((buf = qemu_opt_get(opts, "if")) != NULL) {
 321         pstrcpy(devname, sizeof(devname), buf);
 322         for (type = 0; type < IF_COUNT && strcmp(buf, if_name[type]); type++)
 323             ;
 324         if (type == IF_COUNT) {
 325             error_report("unsupported bus type '%s'", buf);
 326             return NULL;
 327         }
 328     } else {
 329         type = default_to_scsi ? IF_SCSI : IF_IDE;
 330         pstrcpy(devname, sizeof(devname), if_name[type]);
 331     }
 332
 333     max_devs = if_max_devs[type];
 334
 335     if (cyls || heads || secs) {
 336         if (cyls < 1 || (type == IF_IDE && cyls > 16383)) {
 337             error_report("invalid physical cyls number");
 338             return NULL;
 339         }
 340         if (heads < 1 || (type == IF_IDE && heads > 16)) {
 341             error_report("invalid physical heads number");
 342             return NULL;
 343         }
 344         if (secs < 1 || (type == IF_IDE && secs > 63)) {
 345             error_report("invalid physical secs number");
 346             return NULL;
 347         }
 348     }
 349
 350     if ((buf = qemu_opt_get(opts, "trans")) != NULL) {
 351         if (!cyls) {
 352             error_report("'%s' trans must be used with cyls, heads and secs",
 353                          buf);
 354             return NULL;
 355         }
 356         if (!strcmp(buf, "none"))
 357             translation = BIOS_ATA_TRANSLATION_NONE;
 358         else if (!strcmp(buf, "lba"))
 359             translation = BIOS_ATA_TRANSLATION_LBA;
 360         else if (!strcmp(buf, "auto"))
 361             translation = BIOS_ATA_TRANSLATION_AUTO;
 362         else {
 363             error_report("'%s' invalid translation type", buf);
 364             return NULL;
 365         }
 366     }
 367
 368     if ((buf = qemu_opt_get(opts, "media")) != NULL) {
 369         if (!strcmp(buf, "disk")) {
 370             media = MEDIA_DISK;
 371         } else if (!strcmp(buf, "cdrom")) {
 372             if (cyls || secs || heads) {
 373                 error_report("CHS can't be set with media=%s", buf);
 374                 return NULL;
 375             }
 376             media = MEDIA_CDROM;
 377         } else {
 378             error_report("'%s' invalid media", buf);
 379             return NULL;
 380         }
 381     }
 382
 383     if ((buf = qemu_opt_get(opts, "cache")) != NULL) {
 384         if (bdrv_parse_cache_flags(buf, &bdrv_flags) != 0) {
 385             error_report("invalid cache option");
 386             return NULL;
 387         }
 388     }
 389
 390 #ifdef CONFIG_LINUX_AIO
 391     if ((buf = qemu_opt_get(opts, "aio")) != NULL) {
 392         if (!strcmp(buf, "native")) {
 393             bdrv_flags |= BDRV_O_NATIVE_AIO;
 394         } else if (!strcmp(buf, "threads")) {
 395             /* this is the default */
 396         } else {
 397            error_report("invalid aio option");
 398            return NULL;
 399         }
 400     }
 401 #endif
 402
 403     if ((buf = qemu_opt_get(opts, "format")) != NULL) {
 404        if (strcmp(buf, "?") == 0) {
 405            error_printf("Supported formats:");
 406            bdrv_iterate_format(bdrv_format_print, NULL);
 407            error_printf("\n");
 408            return NULL;
 409         }
 410         drv = bdrv_find_whitelisted_format(buf);
 411         if (!drv) {
 412             error_report("'%s' invalid format", buf);
 413             return NULL;
 414         }
 415     }
 416
 417     /* disk I/O throttling */
 418     io_limits.bps[BLOCK_IO_LIMIT_TOTAL]  =
 419                            qemu_opt_get_number(opts, "bps", 0);
 420     io_limits.bps[BLOCK_IO_LIMIT_READ]   =
 421                            qemu_opt_get_number(opts, "bps_rd", 0);
 422     io_limits.bps[BLOCK_IO_LIMIT_WRITE]  =
 423                            qemu_opt_get_number(opts, "bps_wr", 0);
 424     io_limits.iops[BLOCK_IO_LIMIT_TOTAL] =
 425                            qemu_opt_get_number(opts, "iops", 0);
 426     io_limits.iops[BLOCK_IO_LIMIT_READ]  =
 427                            qemu_opt_get_number(opts, "iops_rd", 0);
 428     io_limits.iops[BLOCK_IO_LIMIT_WRITE] =
 429                            qemu_opt_get_number(opts, "iops_wr", 0);
 430
 431     if (!do_check_io_limits(&io_limits)) {
 432         error_report("bps(iops) and bps_rd/bps_wr(iops_rd/iops_wr) "
 433                      "cannot be used at the same time");
 434         return NULL;
 435     }
 436
 437     if (qemu_opt_get(opts, "boot") != NULL) {
 438         fprintf(stderr, "qemu-kvm: boot=on|off is deprecated and will be "
 439                 "ignored. Future versions will reject this parameter. Please "
 440                 "update your scripts.\n");
 441     }
 442
 443     on_write_error = BLOCK_ERR_STOP_ENOSPC;
 444     if ((buf = qemu_opt_get(opts, "werror")) != NULL) {
 445         if (type != IF_IDE && type != IF_SCSI && type != IF_VIRTIO && type != IF_NONE) {
 446             error_report("werror is not supported by this bus type");
 447             return NULL;
 448         }
 449
 450         on_write_error = parse_block_error_action(buf, 0);
 451         if (on_write_error < 0) {
 452             return NULL;
 453         }
 454     }
 455
 456     on_read_error = BLOCK_ERR_REPORT;
 457     if ((buf = qemu_opt_get(opts, "rerror")) != NULL) {
 458         if (type != IF_IDE && type != IF_VIRTIO && type != IF_SCSI && type != IF_NONE) {
 459             error_report("rerror is not supported by this bus type");
 460             return NULL;
 461         }
 462
 463         on_read_error = parse_block_error_action(buf, 1);
 464         if (on_read_error < 0) {
 465             return NULL;
 466         }
 467     }
 468
 469     if ((devaddr = qemu_opt_get(opts, "addr")) != NULL) {
 470         if (type != IF_VIRTIO) {
 471             error_report("addr is not supported by this bus type");
 472             return NULL;
 473         }
 474     }
 475
 476     /* compute bus and unit according index */
 477
 478     if (index != -1) {
 479         if (bus_id != 0 || unit_id != -1) {
 480             error_report("index cannot be used with bus and unit");
 481             return NULL;
 482         }
 483         bus_id = drive_index_to_bus_id(type, index);
 484         unit_id = drive_index_to_unit_id(type, index);
 485     }
 486
 487     /* if user doesn't specify a unit_id,
 488      * try to find the first free
 489      */
 490
 491     if (unit_id == -1) {
 492        unit_id = 0;
 493        while (drive_get(type, bus_id, unit_id) != NULL) {
 494            unit_id++;
 495            if (max_devs && unit_id >= max_devs) {
 496                unit_id -= max_devs;
 497                bus_id++;
 498            }
 499        }
 500     }
 501
 502     /* check unit id */
 503
 504     if (max_devs && unit_id >= max_devs) {
 505         error_report("unit %d too big (max is %d)",
 506                      unit_id, max_devs - 1);
 507         return NULL;
 508     }
 509
 510     /*
 511      * catch multiple definitions
 512      */
 513
 514     if (drive_get(type, bus_id, unit_id) != NULL) {
 515         error_report("drive with bus=%d, unit=%d (index=%d) exists",
 516                      bus_id, unit_id, index);
 517         return NULL;
 518     }
 519
 520     /* init */
 521
 522     dinfo = g_malloc0(sizeof(*dinfo));
 523     if ((buf = qemu_opts_id(opts)) != NULL) {
 524         dinfo->id = g_strdup(buf);
 525     } else {
 526         /* no id supplied -> create one */
 527         dinfo->id = g_malloc0(32);
 528         if (type == IF_IDE || type == IF_SCSI)
 529             mediastr = (media == MEDIA_CDROM) ? "-cd" : "-hd";
 530         if (max_devs)
 531             snprintf(dinfo->id, 32, "%s%i%s%i",
 532                      devname, bus_id, mediastr, unit_id);
 533         else
 534             snprintf(dinfo->id, 32, "%s%s%i",
 535                      devname, mediastr, unit_id);
 536     }
 537     dinfo->bdrv = bdrv_new(dinfo->id);
 538     dinfo->devaddr = devaddr;
 539     dinfo->type = type;
 540     dinfo->bus = bus_id;
 541     dinfo->unit = unit_id;
 542     dinfo->opts = opts;
 543     dinfo->refcount = 1;
 544     if (serial) {
 545         pstrcpy(dinfo->serial, sizeof(dinfo->serial), serial);
 546     }
 547     QTAILQ_INSERT_TAIL(&drives, dinfo, next);
 548
 549     bdrv_set_on_error(dinfo->bdrv, on_read_error, on_write_error);
 550
 551     /* disk I/O throttling */
 552     bdrv_set_io_limits(dinfo->bdrv, &io_limits);
 553
 554     switch(type) {
 555     case IF_IDE:
 556     case IF_SCSI:
 557     case IF_XEN:
 558     case IF_NONE:
 559         switch(media) {
 560         case MEDIA_DISK:
 561             if (cyls != 0) {
 562                 bdrv_set_geometry_hint(dinfo->bdrv, cyls, heads, secs);
 563                 bdrv_set_translation_hint(dinfo->bdrv, translation);
 564             }
 565             break;
 566         case MEDIA_CDROM:
 567             dinfo->media_cd = 1;
 568             break;
 569         }
 570         break;
 571     case IF_SD:
 572     case IF_FLOPPY:
 573     case IF_PFLASH:
 574     case IF_MTD:
 575         break;
 576     case IF_VIRTIO:
 577         /* add virtio block device */
 578         opts = qemu_opts_create(qemu_find_opts("device"), NULL, 0);
 579         if (arch_type == QEMU_ARCH_S390X) {
 580             qemu_opt_set(opts, "driver", "virtio-blk-s390");
 581         } else {
 582             qemu_opt_set(opts, "driver", "virtio-blk-pci");
 583         }
 584         qemu_opt_set(opts, "drive", dinfo->id);
 585         if (devaddr)
 586             qemu_opt_set(opts, "addr", devaddr);
 587         break;
 588     default:
 589         abort();
 590     }
 591     if (!file || !*file) {
 592         return dinfo;
 593     }
 594     if (snapshot) {
 595         /* always use cache=unsafe with snapshot */
 596         bdrv_flags &= ~BDRV_O_CACHE_MASK;
 597         bdrv_flags |= (BDRV_O_SNAPSHOT|BDRV_O_CACHE_WB|BDRV_O_NO_FLUSH);
 598     }
 599
 600     if (copy_on_read) {
 601         bdrv_flags |= BDRV_O_COPY_ON_READ;
 602     }
 603
 604     if (runstate_check(RUN_STATE_INMIGRATE)) {
 605         bdrv_flags |= BDRV_O_INCOMING;
 606     }
 607
 608     if (media == MEDIA_CDROM) {
 609         /* CDROM is fine for any interface, don't check.  */
 610         ro = 1;
 611     } else if (ro == 1) {
 612         if (type != IF_SCSI && type != IF_VIRTIO && type != IF_FLOPPY &&
 613             type != IF_NONE && type != IF_PFLASH) {
 614             error_report("readonly not supported by this bus type");
 615             goto err;
 616         }
 617     }
 618
 619     bdrv_flags |= ro ? 0 : BDRV_O_RDWR;
 620
 621     ret = bdrv_open(dinfo->bdrv, file, bdrv_flags, drv);
 622     if (ret < 0) {
 623         error_report("could not open disk image %s: %s",
 624                      file, strerror(-ret));
 625         goto err;
 626     }
 627
 628     if (bdrv_key_required(dinfo->bdrv))
 629         autostart = 0;
 630     return dinfo;
 631
 632 err:
 633     bdrv_delete(dinfo->bdrv);
 634     g_free(dinfo->id);
 635     QTAILQ_REMOVE(&drives, dinfo, next);
 636     g_free(dinfo);
 637     return NULL;
 638 }
 639
 640 void do_commit(Monitor *mon, const QDict *qdict)
 641 {
 642     const char *device = qdict_get_str(qdict, "device");
 643     BlockDriverState *bs;
 644     int ret;
 645
 646     if (!strcmp(device, "all")) {
 647         ret = bdrv_commit_all();
 648         if (ret == -EBUSY) {
 649             qerror_report(QERR_DEVICE_IN_USE, device);
 650             return;
 651         }
 652     } else {
 653         bs = bdrv_find(device);
 654         if (!bs) {
 655             qerror_report(QERR_DEVICE_NOT_FOUND, device);
 656             return;
 657         }
 658         ret = bdrv_commit(bs);
 659         if (ret == -EBUSY) {
 660             qerror_report(QERR_DEVICE_IN_USE, device);
 661             return;
 662         }
 663     }
 664 }
 665
 666 static void blockdev_do_action(int kind, void *data, Error **errp)
 667 {
 668     BlockdevAction action;
 669     BlockdevActionList list;
 670
 671     action.kind = kind;
 672     action.data = data;
 673     list.value = &action;
 674     list.next = NULL;
 675     qmp_transaction(&list, errp);
 676 }
 677
 678 void qmp_blockdev_snapshot_sync(const char *device, const char *snapshot_file,
 679                                 bool has_format, const char *format,
 680                                 bool has_mode, enum NewImageMode mode,
 681                                 Error **errp)
 682 {
 683     BlockdevSnapshot snapshot = {
 684         .device = (char *) device,
 685         .snapshot_file = (char *) snapshot_file,
 686         .has_format = has_format,
 687         .format = (char *) format,
 688         .has_mode = has_mode,
 689         .mode = mode,
 690     };
 691     blockdev_do_action(BLOCKDEV_ACTION_KIND_BLOCKDEV_SNAPSHOT_SYNC, &snapshot,
 692                        errp);
 693 }
 694
 695
 696 /* New and old BlockDriverState structs for group snapshots */
 697 typedef struct BlkTransactionStates {
 698     BlockDriverState *old_bs;
 699     BlockDriverState *new_bs;
 700     QSIMPLEQ_ENTRY(BlkTransactionStates) entry;
 701 } BlkTransactionStates;
 702
 703 /*
 704  * 'Atomic' group snapshots.  The snapshots are taken as a set, and if any fail
 705  *  then we do not pivot any of the devices in the group, and abandon the
 706  *  snapshots
 707  */
 708 void qmp_transaction(BlockdevActionList *dev_list, Error **errp)
 709 {
 710     int ret = 0;
 711     BlockdevActionList *dev_entry = dev_list;
 712     BlkTransactionStates *states, *next;
 713
 714     QSIMPLEQ_HEAD(snap_bdrv_states, BlkTransactionStates) snap_bdrv_states;
 715     QSIMPLEQ_INIT(&snap_bdrv_states);
 716
 717     /* drain all i/o before any snapshots */
 718     bdrv_drain_all();
 719
 720     /* We don't do anything in this loop that commits us to the snapshot */
 721     while (NULL != dev_entry) {
 722         BlockdevAction *dev_info = NULL;
 723         BlockDriver *proto_drv;
 724         BlockDriver *drv;
 725         int flags;
 726         enum NewImageMode mode;
 727         const char *new_image_file;
 728         const char *device;
 729         const char *format = "qcow2";
 730
 731         dev_info = dev_entry->value;
 732         dev_entry = dev_entry->next;
 733
 734         states = g_malloc0(sizeof(BlkTransactionStates));
 735         QSIMPLEQ_INSERT_TAIL(&snap_bdrv_states, states, entry);
 736
 737         switch (dev_info->kind) {
 738         case BLOCKDEV_ACTION_KIND_BLOCKDEV_SNAPSHOT_SYNC:
 739             device = dev_info->blockdev_snapshot_sync->device;
 740             if (!dev_info->blockdev_snapshot_sync->has_mode) {
 741                 dev_info->blockdev_snapshot_sync->mode = NEW_IMAGE_MODE_ABSOLUTE_PATHS;
 742             }
 743             new_image_file = dev_info->blockdev_snapshot_sync->snapshot_file;
 744             if (dev_info->blockdev_snapshot_sync->has_format) {
 745                 format = dev_info->blockdev_snapshot_sync->format;
 746             }
 747             mode = dev_info->blockdev_snapshot_sync->mode;
 748             break;
 749         default:
 750             abort();
 751         }
 752
 753         drv = bdrv_find_format(format);
 754         if (!drv) {
 755             error_set(errp, QERR_INVALID_BLOCK_FORMAT, format);
 756             goto delete_and_fail;
 757         }
 758
 759         states->old_bs = bdrv_find(device);
 760         if (!states->old_bs) {
 761             error_set(errp, QERR_DEVICE_NOT_FOUND, device);
 762             goto delete_and_fail;
 763         }
 764
 765         if (!bdrv_is_inserted(states->old_bs)) {
 766             error_set(errp, QERR_DEVICE_HAS_NO_MEDIUM, device);
 767             goto delete_and_fail;
 768         }
 769
 770         if (bdrv_in_use(states->old_bs)) {
 771             error_set(errp, QERR_DEVICE_IN_USE, device);
 772             goto delete_and_fail;
 773         }
 774
 775         if (!bdrv_is_read_only(states->old_bs)) {
 776             if (bdrv_flush(states->old_bs)) {
 777                 error_set(errp, QERR_IO_ERROR);
 778                 goto delete_and_fail;
 779             }
 780         }
 781
 782         flags = states->old_bs->open_flags;
 783
 784         proto_drv = bdrv_find_protocol(new_image_file);
 785         if (!proto_drv) {
 786             error_set(errp, QERR_INVALID_BLOCK_FORMAT, format);
 787             goto delete_and_fail;
 788         }
 789
 790         /* create new image w/backing file */
 791         if (mode != NEW_IMAGE_MODE_EXISTING) {
 792             ret = bdrv_img_create(new_image_file, format,
 793                                   states->old_bs->filename,
 794                                   states->old_bs->drv->format_name,
 795                                   NULL, -1, flags);
 796             if (ret) {
 797                 error_set(errp, QERR_OPEN_FILE_FAILED, new_image_file);
 798                 goto delete_and_fail;
 799             }
 800         }
 801
 802         /* We will manually add the backing_hd field to the bs later */
 803         states->new_bs = bdrv_new("");
 804         ret = bdrv_open(states->new_bs, new_image_file,
 805                         flags | BDRV_O_NO_BACKING, drv);
 806         if (ret != 0) {
 807             error_set(errp, QERR_OPEN_FILE_FAILED, new_image_file);
 808             goto delete_and_fail;
 809         }
 810     }
 811
 812
 813     /* Now we are going to do the actual pivot.  Everything up to this point
 814      * is reversible, but we are committed at this point */
 815     QSIMPLEQ_FOREACH(states, &snap_bdrv_states, entry) {
 816         /* This removes our old bs from the bdrv_states, and adds the new bs */
 817         bdrv_append(states->new_bs, states->old_bs);
 818     }
 819
 820     /* success */
 821     goto exit;
 822
 823 delete_and_fail:
 824     /*
 825     * failure, and it is all-or-none; abandon each new bs, and keep using
 826     * the original bs for all images
 827     */
 828     QSIMPLEQ_FOREACH(states, &snap_bdrv_states, entry) {
 829         if (states->new_bs) {
 830              bdrv_delete(states->new_bs);
 831         }
 832     }
 833 exit:
 834     QSIMPLEQ_FOREACH_SAFE(states, &snap_bdrv_states, entry, next) {
 835         g_free(states);
 836     }
 837     return;
 838 }
 839
 840
 841 static void eject_device(BlockDriverState *bs, int force, Error **errp)
 842 {
 843     if (bdrv_in_use(bs)) {
 844         error_set(errp, QERR_DEVICE_IN_USE, bdrv_get_device_name(bs));
 845         return;
 846     }
 847     if (!bdrv_dev_has_removable_media(bs)) {
 848         error_set(errp, QERR_DEVICE_NOT_REMOVABLE, bdrv_get_device_name(bs));
 849         return;
 850     }
 851
 852     if (bdrv_dev_is_medium_locked(bs) && !bdrv_dev_is_tray_open(bs)) {
 853         bdrv_dev_eject_request(bs, force);
 854         if (!force) {
 855             error_set(errp, QERR_DEVICE_LOCKED, bdrv_get_device_name(bs));
 856             return;
 857         }
 858     }
 859
 860     bdrv_close(bs);
 861 }
 862
 863 void qmp_eject(const char *device, bool has_force, bool force, Error **errp)
 864 {
 865     BlockDriverState *bs;
 866
 867     bs = bdrv_find(device);
 868     if (!bs) {
 869         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
 870         return;
 871     }
 872
 873     eject_device(bs, force, errp);
 874 }
 875
 876 void qmp_block_passwd(const char *device, const char *password, Error **errp)
 877 {
 878     BlockDriverState *bs;
 879     int err;
 880
 881     bs = bdrv_find(device);
 882     if (!bs) {
 883         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
 884         return;
 885     }
 886
 887     err = bdrv_set_key(bs, password);
 888     if (err == -EINVAL) {
 889         error_set(errp, QERR_DEVICE_NOT_ENCRYPTED, bdrv_get_device_name(bs));
 890         return;
 891     } else if (err < 0) {
 892         error_set(errp, QERR_INVALID_PASSWORD);
 893         return;
 894     }
 895 }
 896
 897 static void qmp_bdrv_open_encrypted(BlockDriverState *bs, const char *filename,
 898                                     int bdrv_flags, BlockDriver *drv,
 899                                     const char *password, Error **errp)
 900 {
 901     if (bdrv_open(bs, filename, bdrv_flags, drv) < 0) {
 902         error_set(errp, QERR_OPEN_FILE_FAILED, filename);
 903         return;
 904     }
 905
 906     if (bdrv_key_required(bs)) {
 907         if (password) {
 908             if (bdrv_set_key(bs, password) < 0) {
 909                 error_set(errp, QERR_INVALID_PASSWORD);
 910             }
 911         } else {
 912             error_set(errp, QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs),
 913                       bdrv_get_encrypted_filename(bs));
 914         }
 915     } else if (password) {
 916         error_set(errp, QERR_DEVICE_NOT_ENCRYPTED, bdrv_get_device_name(bs));
 917     }
 918 }
 919
 920 void qmp_change_blockdev(const char *device, const char *filename,
 921                          bool has_format, const char *format, Error **errp)
 922 {
 923     BlockDriverState *bs;
 924     BlockDriver *drv = NULL;
 925     int bdrv_flags;
 926     Error *err = NULL;
 927
 928     bs = bdrv_find(device);
 929     if (!bs) {
 930         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
 931         return;
 932     }
 933
 934     if (format) {
 935         drv = bdrv_find_whitelisted_format(format);
 936         if (!drv) {
 937             error_set(errp, QERR_INVALID_BLOCK_FORMAT, format);
 938             return;
 939         }
 940     }
 941
 942     eject_device(bs, 0, &err);
 943     if (error_is_set(&err)) {
 944         error_propagate(errp, err);
 945         return;
 946     }
 947
 948     bdrv_flags = bdrv_is_read_only(bs) ? 0 : BDRV_O_RDWR;
 949     bdrv_flags |= bdrv_is_snapshot(bs) ? BDRV_O_SNAPSHOT : 0;
 950
 951     qmp_bdrv_open_encrypted(bs, filename, bdrv_flags, drv, NULL, errp);
 952 }
 953
 954 /* throttling disk I/O limits */
 955 void qmp_block_set_io_throttle(const char *device, int64_t bps, int64_t bps_rd,
 956                                int64_t bps_wr, int64_t iops, int64_t iops_rd,
 957                                int64_t iops_wr, Error **errp)
 958 {
 959     BlockIOLimit io_limits;
 960     BlockDriverState *bs;
 961
 962     bs = bdrv_find(device);
 963     if (!bs) {
 964         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
 965         return;
 966     }
 967
 968     io_limits.bps[BLOCK_IO_LIMIT_TOTAL] = bps;
 969     io_limits.bps[BLOCK_IO_LIMIT_READ]  = bps_rd;
 970     io_limits.bps[BLOCK_IO_LIMIT_WRITE] = bps_wr;
 971     io_limits.iops[BLOCK_IO_LIMIT_TOTAL]= iops;
 972     io_limits.iops[BLOCK_IO_LIMIT_READ] = iops_rd;
 973     io_limits.iops[BLOCK_IO_LIMIT_WRITE]= iops_wr;
 974
 975     if (!do_check_io_limits(&io_limits)) {
 976         error_set(errp, QERR_INVALID_PARAMETER_COMBINATION);
 977         return;
 978     }
 979
 980     bs->io_limits = io_limits;
 981     bs->slice_time = BLOCK_IO_SLICE_TIME;
 982
 983     if (!bs->io_limits_enabled && bdrv_io_limits_enabled(bs)) {
 984         bdrv_io_limits_enable(bs);
 985     } else if (bs->io_limits_enabled && !bdrv_io_limits_enabled(bs)) {
 986         bdrv_io_limits_disable(bs);
 987     } else {
 988         if (bs->block_timer) {
 989             qemu_mod_timer(bs->block_timer, qemu_get_clock_ns(vm_clock));
 990         }
 991     }
 992 }
 993
 994 int do_drive_del(Monitor *mon, const QDict *qdict, QObject **ret_data)
 995 {
 996     const char *id = qdict_get_str(qdict, "id");
 997     BlockDriverState *bs;
 998
 999     bs = bdrv_find(id);
1000     if (!bs) {
1001         qerror_report(QERR_DEVICE_NOT_FOUND, id);
1002         return -1;
1003     }
1004     if (bdrv_in_use(bs)) {
1005         qerror_report(QERR_DEVICE_IN_USE, id);
1006         return -1;
1007     }
1008
1009     /* quiesce block driver; prevent further io */
1010     bdrv_drain_all();
1011     bdrv_flush(bs);
1012     bdrv_close(bs);
1013
1014     /* if we have a device attached to this BlockDriverState
1015      * then we need to make the drive anonymous until the device
1016      * can be removed.  If this is a drive with no device backing
1017      * then we can just get rid of the block driver state right here.
1018      */
1019     if (bdrv_get_attached_dev(bs)) {
1020         bdrv_make_anon(bs);
1021     } else {
1022         drive_uninit(drive_get_by_blockdev(bs));
1023     }
1024
1025     return 0;
1026 }
1027
1028 void qmp_block_resize(const char *device, int64_t size, Error **errp)
1029 {
1030     BlockDriverState *bs;
1031
1032     bs = bdrv_find(device);
1033     if (!bs) {
1034         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
1035         return;
1036     }
1037
1038     if (size < 0) {
1039         error_set(errp, QERR_INVALID_PARAMETER_VALUE, "size", "a >0 size");
1040         return;
1041     }
1042
1043     switch (bdrv_truncate(bs, size)) {
1044     case 0:
1045         break;
1046     case -ENOMEDIUM:
1047         error_set(errp, QERR_DEVICE_HAS_NO_MEDIUM, device);
1048         break;
1049     case -ENOTSUP:
1050         error_set(errp, QERR_UNSUPPORTED);
1051         break;
1052     case -EACCES:
1053         error_set(errp, QERR_DEVICE_IS_READ_ONLY, device);
1054         break;
1055     case -EBUSY:
1056         error_set(errp, QERR_DEVICE_IN_USE, device);
1057         break;
1058     default:
1059         error_set(errp, QERR_UNDEFINED_ERROR);
1060         break;
1061     }
1062 }
1063
1064 static QObject *qobject_from_block_job(BlockJob *job)
1065 {
1066     return qobject_from_jsonf("{ 'type': %s,"
1067                               "'device': %s,"
1068                               "'len': %" PRId64 ","
1069                               "'offset': %" PRId64 ","
1070                               "'speed': %" PRId64 " }",
1071                               job->job_type->job_type,
1072                               bdrv_get_device_name(job->bs),
1073                               job->len,
1074                               job->offset,
1075                               job->speed);
1076 }
1077
1078 static void block_stream_cb(void *opaque, int ret)
1079 {
1080     BlockDriverState *bs = opaque;
1081     QObject *obj;
1082
1083     trace_block_stream_cb(bs, bs->job, ret);
1084
1085     assert(bs->job);
1086     obj = qobject_from_block_job(bs->job);
1087     if (ret < 0) {
1088         QDict *dict = qobject_to_qdict(obj);
1089         qdict_put(dict, "error", qstring_from_str(strerror(-ret)));
1090     }
1091
1092     if (block_job_is_cancelled(bs->job)) {
1093         monitor_protocol_event(QEVENT_BLOCK_JOB_CANCELLED, obj);
1094     } else {
1095         monitor_protocol_event(QEVENT_BLOCK_JOB_COMPLETED, obj);
1096     }
1097     qobject_decref(obj);
1098
1099     drive_put_ref_bh_schedule(drive_get_by_blockdev(bs));
1100 }
1101
1102 void qmp_block_stream(const char *device, bool has_base,
1103                       const char *base, bool has_speed,
1104                       int64_t speed, Error **errp)
1105 {
1106     BlockDriverState *bs;
1107     BlockDriverState *base_bs = NULL;
1108     Error *local_err = NULL;
1109
1110     bs = bdrv_find(device);
1111     if (!bs) {
1112         error_set(errp, QERR_DEVICE_NOT_FOUND, device);
1113         return;
1114     }
1115
1116     if (base) {
1117         base_bs = bdrv_find_backing_image(bs, base);
1118         if (base_bs == NULL) {
1119             error_set(errp, QERR_BASE_NOT_FOUND, base);
1120             return;
1121         }
1122     }
1123
1124     stream_start(bs, base_bs, base, has_speed ? speed : 0,
1125                  block_stream_cb, bs, &local_err);
1126     if (error_is_set(&local_err)) {
1127         error_propagate(errp, local_err);
1128         return;
1129     }
1130
1131     /* Grab a reference so hotplug does not delete the BlockDriverState from
1132      * underneath us.
1133      */
1134     drive_get_ref(drive_get_by_blockdev(bs));
1135
1136     trace_qmp_block_stream(bs, bs->job);
1137 }
1138
1139 static BlockJob *find_block_job(const char *device)
1140 {
1141     BlockDriverState *bs;
1142
1143     bs = bdrv_find(device);
1144     if (!bs || !bs->job) {
1145         return NULL;
1146     }
1147     return bs->job;
1148 }
1149
1150 void qmp_block_job_set_speed(const char *device, int64_t speed, Error **errp)
1151 {
1152     BlockJob *job = find_block_job(device);
1153
1154     if (!job) {
1155         error_set(errp, QERR_DEVICE_NOT_ACTIVE, device);
1156         return;
1157     }
1158
1159     block_job_set_speed(job, speed, errp);
1160 }
1161
1162 void qmp_block_job_cancel(const char *device, Error **errp)
1163 {
1164     BlockJob *job = find_block_job(device);
1165
1166     if (!job) {
1167         error_set(errp, QERR_DEVICE_NOT_ACTIVE, device);
1168         return;
1169     }
1170
1171     trace_qmp_block_job_cancel(job);
1172     block_job_cancel(job);
1173 }
1174
1175 static void do_qmp_query_block_jobs_one(void *opaque, BlockDriverState *bs)
1176 {
1177     BlockJobInfoList **prev = opaque;
1178     BlockJob *job = bs->job;
1179
1180     if (job) {
1181         BlockJobInfoList *elem;
1182         BlockJobInfo *info = g_new(BlockJobInfo, 1);
1183         *info = (BlockJobInfo){
1184             .type   = g_strdup(job->job_type->job_type),
1185             .device = g_strdup(bdrv_get_device_name(bs)),
1186             .len    = job->len,
1187             .offset = job->offset,
1188             .speed  = job->speed,
1189         };
1190
1191         elem = g_new0(BlockJobInfoList, 1);
1192         elem->value = info;
1193
1194         (*prev)->next = elem;
1195         *prev = elem;
1196     }
1197 }
1198
1199 BlockJobInfoList *qmp_query_block_jobs(Error **errp)
1200 {
1201     /* Dummy is a fake list element for holding the head pointer */
1202     BlockJobInfoList dummy = {};
1203     BlockJobInfoList *prev = &dummy;
1204     bdrv_iterate(do_qmp_query_block_jobs_one, &prev);
1205     return dummy.next;
1206 }