nbd/client.c

   1 /*
   2  *  Copyright (C) 2016 Red Hat, Inc.
   3  *  Copyright (C) 2005  Anthony Liguori <[email protected]>
   4  *
   5  *  Network Block Device Client Side
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; under version 2 of the License.
  10  *
  11  *  This program is distributed in the hope that it will be useful,
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  *  GNU General Public License for more details.
  15  *
  16  *  You should have received a copy of the GNU General Public License
  17  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include "qemu/osdep.h"
  21 #include "qapi/error.h"
  22 #include "nbd-internal.h"
  23
  24 static int nbd_errno_to_system_errno(int err)
  25 {
  26     int ret;
  27     switch (err) {
  28     case NBD_SUCCESS:
  29         ret = 0;
  30         break;
  31     case NBD_EPERM:
  32         ret = EPERM;
  33         break;
  34     case NBD_EIO:
  35         ret = EIO;
  36         break;
  37     case NBD_ENOMEM:
  38         ret = ENOMEM;
  39         break;
  40     case NBD_ENOSPC:
  41         ret = ENOSPC;
  42         break;
  43     case NBD_ESHUTDOWN:
  44         ret = ESHUTDOWN;
  45         break;
  46     default:
  47         TRACE("Squashing unexpected error %d to EINVAL", err);
  48         /* fallthrough */
  49     case NBD_EINVAL:
  50         ret = EINVAL;
  51         break;
  52     }
  53     return ret;
  54 }
  55
  56 /* Definitions for opaque data types */
  57
  58 static QTAILQ_HEAD(, NBDExport) exports = QTAILQ_HEAD_INITIALIZER(exports);
  59
  60 /* That's all folks */
  61
  62 /* Basic flow for negotiation
  63
  64    Server         Client
  65    Negotiate
  66
  67    or
  68
  69    Server         Client
  70    Negotiate #1
  71                   Option
  72    Negotiate #2
  73
  74    ----
  75
  76    followed by
  77
  78    Server         Client
  79                   Request
  80    Response
  81                   Request
  82    Response
  83                   ...
  84    ...
  85                   Request (type == 2)
  86
  87 */
  88
  89 /* Discard length bytes from channel.  Return -errno on failure and 0 on
  90  * success*/
  91 static int nbd_drop(QIOChannel *ioc, size_t size, Error **errp)
  92 {
  93     ssize_t ret = 0;
  94     char small[1024];
  95     char *buffer;
  96
  97     buffer = sizeof(small) >= size ? small : g_malloc(MIN(65536, size));
  98     while (size > 0) {
  99         ssize_t count = MIN(65536, size);
 100         ret = nbd_read(ioc, buffer, MIN(65536, size), errp);
 101
 102         if (ret < 0) {
 103             goto cleanup;
 104         }
 105         size -= count;
 106     }
 107
 108  cleanup:
 109     if (buffer != small) {
 110         g_free(buffer);
 111     }
 112     return ret;
 113 }
 114
 115 /* Send an option request.
 116  *
 117  * The request is for option @opt, with @data containing @len bytes of
 118  * additional payload for the request (@len may be -1 to treat @data as
 119  * a C string; and @data may be NULL if @len is 0).
 120  * Return 0 if successful, -1 with errp set if it is impossible to
 121  * continue. */
 122 static int nbd_send_option_request(QIOChannel *ioc, uint32_t opt,
 123                                    uint32_t len, const char *data,
 124                                    Error **errp)
 125 {
 126     nbd_option req;
 127     QEMU_BUILD_BUG_ON(sizeof(req) != 16);
 128
 129     if (len == -1) {
 130         req.length = len = strlen(data);
 131     }
 132     TRACE("Sending option request %" PRIu32", len %" PRIu32, opt, len);
 133
 134     stq_be_p(&req.magic, NBD_OPTS_MAGIC);
 135     stl_be_p(&req.option, opt);
 136     stl_be_p(&req.length, len);
 137
 138     if (nbd_write(ioc, &req, sizeof(req), errp) < 0) {
 139         error_prepend(errp, "Failed to send option request header");
 140         return -1;
 141     }
 142
 143     if (len && nbd_write(ioc, (char *) data, len, errp) < 0) {
 144         error_prepend(errp, "Failed to send option request data");
 145         return -1;
 146     }
 147
 148     return 0;
 149 }
 150
 151 /* Send NBD_OPT_ABORT as a courtesy to let the server know that we are
 152  * not going to attempt further negotiation. */
 153 static void nbd_send_opt_abort(QIOChannel *ioc)
 154 {
 155     /* Technically, a compliant server is supposed to reply to us; but
 156      * older servers disconnected instead. At any rate, we're allowed
 157      * to disconnect without waiting for the server reply, so we don't
 158      * even care if the request makes it to the server, let alone
 159      * waiting around for whether the server replies. */
 160     nbd_send_option_request(ioc, NBD_OPT_ABORT, 0, NULL, NULL);
 161 }
 162
 163
 164 /* Receive the header of an option reply, which should match the given
 165  * opt.  Read through the length field, but NOT the length bytes of
 166  * payload. Return 0 if successful, -1 with errp set if it is
 167  * impossible to continue. */
 168 static int nbd_receive_option_reply(QIOChannel *ioc, uint32_t opt,
 169                                     nbd_opt_reply *reply, Error **errp)
 170 {
 171     QEMU_BUILD_BUG_ON(sizeof(*reply) != 20);
 172     if (nbd_read(ioc, reply, sizeof(*reply), errp) < 0) {
 173         error_prepend(errp, "failed to read option reply");
 174         nbd_send_opt_abort(ioc);
 175         return -1;
 176     }
 177     be64_to_cpus(&reply->magic);
 178     be32_to_cpus(&reply->option);
 179     be32_to_cpus(&reply->type);
 180     be32_to_cpus(&reply->length);
 181
 182     TRACE("Received option reply %" PRIx32", type %" PRIx32", len %" PRIu32,
 183           reply->option, reply->type, reply->length);
 184
 185     if (reply->magic != NBD_REP_MAGIC) {
 186         error_setg(errp, "Unexpected option reply magic");
 187         nbd_send_opt_abort(ioc);
 188         return -1;
 189     }
 190     if (reply->option != opt) {
 191         error_setg(errp, "Unexpected option type %x expected %x",
 192                    reply->option, opt);
 193         nbd_send_opt_abort(ioc);
 194         return -1;
 195     }
 196     return 0;
 197 }
 198
 199 /* If reply represents success, return 1 without further action.
 200  * If reply represents an error, consume the optional payload of
 201  * the packet on ioc.  Then return 0 for unsupported (so the client
 202  * can fall back to other approaches), or -1 with errp set for other
 203  * errors.
 204  */
 205 static int nbd_handle_reply_err(QIOChannel *ioc, nbd_opt_reply *reply,
 206                                 Error **errp)
 207 {
 208     char *msg = NULL;
 209     int result = -1;
 210
 211     if (!(reply->type & (1 << 31))) {
 212         return 1;
 213     }
 214
 215     if (reply->length) {
 216         if (reply->length > NBD_MAX_BUFFER_SIZE) {
 217             error_setg(errp, "server's error message is too long");
 218             goto cleanup;
 219         }
 220         msg = g_malloc(reply->length + 1);
 221         if (nbd_read(ioc, msg, reply->length, errp) < 0) {
 222             error_prepend(errp, "failed to read option error message");
 223             goto cleanup;
 224         }
 225         msg[reply->length] = '\0';
 226     }
 227
 228     switch (reply->type) {
 229     case NBD_REP_ERR_UNSUP:
 230         TRACE("server doesn't understand request %" PRIx32
 231               ", attempting fallback", reply->option);
 232         result = 0;
 233         goto cleanup;
 234
 235     case NBD_REP_ERR_POLICY:
 236         error_setg(errp, "Denied by server for option %" PRIx32,
 237                    reply->option);
 238         break;
 239
 240     case NBD_REP_ERR_INVALID:
 241         error_setg(errp, "Invalid data length for option %" PRIx32,
 242                    reply->option);
 243         break;
 244
 245     case NBD_REP_ERR_PLATFORM:
 246         error_setg(errp, "Server lacks support for option %" PRIx32,
 247                    reply->option);
 248         break;
 249
 250     case NBD_REP_ERR_TLS_REQD:
 251         error_setg(errp, "TLS negotiation required before option %" PRIx32,
 252                    reply->option);
 253         break;
 254
 255     case NBD_REP_ERR_SHUTDOWN:
 256         error_setg(errp, "Server shutting down before option %" PRIx32,
 257                    reply->option);
 258         break;
 259
 260     default:
 261         error_setg(errp, "Unknown error code when asking for option %" PRIx32,
 262                    reply->option);
 263         break;
 264     }
 265
 266     if (msg) {
 267         error_append_hint(errp, "%s\n", msg);
 268     }
 269
 270  cleanup:
 271     g_free(msg);
 272     if (result < 0) {
 273         nbd_send_opt_abort(ioc);
 274     }
 275     return result;
 276 }
 277
 278 /* Process another portion of the NBD_OPT_LIST reply.  Set *@match if
 279  * the current reply matches @want or if the server does not support
 280  * NBD_OPT_LIST, otherwise leave @match alone.  Return 0 if iteration
 281  * is complete, positive if more replies are expected, or negative
 282  * with @errp set if an unrecoverable error occurred. */
 283 static int nbd_receive_list(QIOChannel *ioc, const char *want, bool *match,
 284                             Error **errp)
 285 {
 286     nbd_opt_reply reply;
 287     uint32_t len;
 288     uint32_t namelen;
 289     char name[NBD_MAX_NAME_SIZE + 1];
 290     int error;
 291
 292     if (nbd_receive_option_reply(ioc, NBD_OPT_LIST, &reply, errp) < 0) {
 293         return -1;
 294     }
 295     error = nbd_handle_reply_err(ioc, &reply, errp);
 296     if (error <= 0) {
 297         /* The server did not support NBD_OPT_LIST, so set *match on
 298          * the assumption that any name will be accepted.  */
 299         *match = true;
 300         return error;
 301     }
 302     len = reply.length;
 303
 304     if (reply.type == NBD_REP_ACK) {
 305         if (len != 0) {
 306             error_setg(errp, "length too long for option end");
 307             nbd_send_opt_abort(ioc);
 308             return -1;
 309         }
 310         return 0;
 311     } else if (reply.type != NBD_REP_SERVER) {
 312         error_setg(errp, "Unexpected reply type %" PRIx32 " expected %x",
 313                    reply.type, NBD_REP_SERVER);
 314         nbd_send_opt_abort(ioc);
 315         return -1;
 316     }
 317
 318     if (len < sizeof(namelen) || len > NBD_MAX_BUFFER_SIZE) {
 319         error_setg(errp, "incorrect option length %" PRIu32, len);
 320         nbd_send_opt_abort(ioc);
 321         return -1;
 322     }
 323     if (nbd_read(ioc, &namelen, sizeof(namelen), errp) < 0) {
 324         error_prepend(errp, "failed to read option name length");
 325         nbd_send_opt_abort(ioc);
 326         return -1;
 327     }
 328     namelen = be32_to_cpu(namelen);
 329     len -= sizeof(namelen);
 330     if (len < namelen) {
 331         error_setg(errp, "incorrect option name length");
 332         nbd_send_opt_abort(ioc);
 333         return -1;
 334     }
 335     if (namelen != strlen(want)) {
 336         if (nbd_drop(ioc, len, errp) < 0) {
 337             error_prepend(errp, "failed to skip export name with wrong length");
 338             nbd_send_opt_abort(ioc);
 339             return -1;
 340         }
 341         return 1;
 342     }
 343
 344     assert(namelen < sizeof(name));
 345     if (nbd_read(ioc, name, namelen, errp) < 0) {
 346         error_prepend(errp, "failed to read export name");
 347         nbd_send_opt_abort(ioc);
 348         return -1;
 349     }
 350     name[namelen] = '\0';
 351     len -= namelen;
 352     if (nbd_drop(ioc, len, errp) < 0) {
 353         error_prepend(errp, "failed to read export description");
 354         nbd_send_opt_abort(ioc);
 355         return -1;
 356     }
 357     if (!strcmp(name, want)) {
 358         *match = true;
 359     }
 360     return 1;
 361 }
 362
 363
 364 /* Return -1 on failure, 0 if wantname is an available export. */
 365 static int nbd_receive_query_exports(QIOChannel *ioc,
 366                                      const char *wantname,
 367                                      Error **errp)
 368 {
 369     bool foundExport = false;
 370
 371     TRACE("Querying export list for '%s'", wantname);
 372     if (nbd_send_option_request(ioc, NBD_OPT_LIST, 0, NULL, errp) < 0) {
 373         return -1;
 374     }
 375
 376     TRACE("Reading available export names");
 377     while (1) {
 378         int ret = nbd_receive_list(ioc, wantname, &foundExport, errp);
 379
 380         if (ret < 0) {
 381             /* Server gave unexpected reply */
 382             return -1;
 383         } else if (ret == 0) {
 384             /* Done iterating. */
 385             if (!foundExport) {
 386                 error_setg(errp, "No export with name '%s' available",
 387                            wantname);
 388                 nbd_send_opt_abort(ioc);
 389                 return -1;
 390             }
 391             TRACE("Found desired export name '%s'", wantname);
 392             return 0;
 393         }
 394     }
 395 }
 396
 397 static QIOChannel *nbd_receive_starttls(QIOChannel *ioc,
 398                                         QCryptoTLSCreds *tlscreds,
 399                                         const char *hostname, Error **errp)
 400 {
 401     nbd_opt_reply reply;
 402     QIOChannelTLS *tioc;
 403     struct NBDTLSHandshakeData data = { 0 };
 404
 405     TRACE("Requesting TLS from server");
 406     if (nbd_send_option_request(ioc, NBD_OPT_STARTTLS, 0, NULL, errp) < 0) {
 407         return NULL;
 408     }
 409
 410     TRACE("Getting TLS reply from server");
 411     if (nbd_receive_option_reply(ioc, NBD_OPT_STARTTLS, &reply, errp) < 0) {
 412         return NULL;
 413     }
 414
 415     if (reply.type != NBD_REP_ACK) {
 416         error_setg(errp, "Server rejected request to start TLS %" PRIx32,
 417                    reply.type);
 418         nbd_send_opt_abort(ioc);
 419         return NULL;
 420     }
 421
 422     if (reply.length != 0) {
 423         error_setg(errp, "Start TLS response was not zero %" PRIu32,
 424                    reply.length);
 425         nbd_send_opt_abort(ioc);
 426         return NULL;
 427     }
 428
 429     TRACE("TLS request approved, setting up TLS");
 430     tioc = qio_channel_tls_new_client(ioc, tlscreds, hostname, errp);
 431     if (!tioc) {
 432         return NULL;
 433     }
 434     qio_channel_set_name(QIO_CHANNEL(tioc), "nbd-client-tls");
 435     data.loop = g_main_loop_new(g_main_context_default(), FALSE);
 436     TRACE("Starting TLS handshake");
 437     qio_channel_tls_handshake(tioc,
 438                               nbd_tls_handshake,
 439                               &data,
 440                               NULL);
 441
 442     if (!data.complete) {
 443         g_main_loop_run(data.loop);
 444     }
 445     g_main_loop_unref(data.loop);
 446     if (data.error) {
 447         error_propagate(errp, data.error);
 448         object_unref(OBJECT(tioc));
 449         return NULL;
 450     }
 451
 452     return QIO_CHANNEL(tioc);
 453 }
 454
 455
 456 int nbd_receive_negotiate(QIOChannel *ioc, const char *name, uint16_t *flags,
 457                           QCryptoTLSCreds *tlscreds, const char *hostname,
 458                           QIOChannel **outioc,
 459                           off_t *size, Error **errp)
 460 {
 461     char buf[256];
 462     uint64_t magic, s;
 463     int rc;
 464     bool zeroes = true;
 465
 466     TRACE("Receiving negotiation tlscreds=%p hostname=%s.",
 467           tlscreds, hostname ? hostname : "<null>");
 468
 469     rc = -EINVAL;
 470
 471     if (outioc) {
 472         *outioc = NULL;
 473     }
 474     if (tlscreds && !outioc) {
 475         error_setg(errp, "Output I/O channel required for TLS");
 476         goto fail;
 477     }
 478
 479     if (nbd_read(ioc, buf, 8, errp) < 0) {
 480         error_prepend(errp, "Failed to read data");
 481         goto fail;
 482     }
 483
 484     buf[8] = '\0';
 485     if (strlen(buf) == 0) {
 486         error_setg(errp, "Server connection closed unexpectedly");
 487         goto fail;
 488     }
 489
 490     TRACE("Magic is %c%c%c%c%c%c%c%c",
 491           qemu_isprint(buf[0]) ? buf[0] : '.',
 492           qemu_isprint(buf[1]) ? buf[1] : '.',
 493           qemu_isprint(buf[2]) ? buf[2] : '.',
 494           qemu_isprint(buf[3]) ? buf[3] : '.',
 495           qemu_isprint(buf[4]) ? buf[4] : '.',
 496           qemu_isprint(buf[5]) ? buf[5] : '.',
 497           qemu_isprint(buf[6]) ? buf[6] : '.',
 498           qemu_isprint(buf[7]) ? buf[7] : '.');
 499
 500     if (memcmp(buf, "NBDMAGIC", 8) != 0) {
 501         error_setg(errp, "Invalid magic received");
 502         goto fail;
 503     }
 504
 505     if (nbd_read(ioc, &magic, sizeof(magic), errp) < 0) {
 506         error_prepend(errp, "Failed to read magic");
 507         goto fail;
 508     }
 509     magic = be64_to_cpu(magic);
 510     TRACE("Magic is 0x%" PRIx64, magic);
 511
 512     if (magic == NBD_OPTS_MAGIC) {
 513         uint32_t clientflags = 0;
 514         uint16_t globalflags;
 515         bool fixedNewStyle = false;
 516
 517         if (nbd_read(ioc, &globalflags, sizeof(globalflags), errp) < 0) {
 518             error_prepend(errp, "Failed to read server flags");
 519             goto fail;
 520         }
 521         globalflags = be16_to_cpu(globalflags);
 522         TRACE("Global flags are %" PRIx32, globalflags);
 523         if (globalflags & NBD_FLAG_FIXED_NEWSTYLE) {
 524             fixedNewStyle = true;
 525             TRACE("Server supports fixed new style");
 526             clientflags |= NBD_FLAG_C_FIXED_NEWSTYLE;
 527         }
 528         if (globalflags & NBD_FLAG_NO_ZEROES) {
 529             zeroes = false;
 530             TRACE("Server supports no zeroes");
 531             clientflags |= NBD_FLAG_C_NO_ZEROES;
 532         }
 533         /* client requested flags */
 534         clientflags = cpu_to_be32(clientflags);
 535         if (nbd_write(ioc, &clientflags, sizeof(clientflags), errp) < 0) {
 536             error_prepend(errp, "Failed to send clientflags field");
 537             goto fail;
 538         }
 539         if (tlscreds) {
 540             if (fixedNewStyle) {
 541                 *outioc = nbd_receive_starttls(ioc, tlscreds, hostname, errp);
 542                 if (!*outioc) {
 543                     goto fail;
 544                 }
 545                 ioc = *outioc;
 546             } else {
 547                 error_setg(errp, "Server does not support STARTTLS");
 548                 goto fail;
 549             }
 550         }
 551         if (!name) {
 552             TRACE("Using default NBD export name \"\"");
 553             name = "";
 554         }
 555         if (fixedNewStyle) {
 556             /* Check our desired export is present in the
 557              * server export list. Since NBD_OPT_EXPORT_NAME
 558              * cannot return an error message, running this
 559              * query gives us good error reporting if the
 560              * server required TLS
 561              */
 562             if (nbd_receive_query_exports(ioc, name, errp) < 0) {
 563                 goto fail;
 564             }
 565         }
 566         /* write the export name request */
 567         if (nbd_send_option_request(ioc, NBD_OPT_EXPORT_NAME, -1, name,
 568                                     errp) < 0) {
 569             goto fail;
 570         }
 571
 572         /* Read the response */
 573         if (nbd_read(ioc, &s, sizeof(s), errp) < 0) {
 574             error_prepend(errp, "Failed to read export length");
 575             goto fail;
 576         }
 577         *size = be64_to_cpu(s);
 578
 579         if (nbd_read(ioc, flags, sizeof(*flags), errp) < 0) {
 580             error_prepend(errp, "Failed to read export flags");
 581             goto fail;
 582         }
 583         be16_to_cpus(flags);
 584     } else if (magic == NBD_CLIENT_MAGIC) {
 585         uint32_t oldflags;
 586
 587         if (name) {
 588             error_setg(errp, "Server does not support export names");
 589             goto fail;
 590         }
 591         if (tlscreds) {
 592             error_setg(errp, "Server does not support STARTTLS");
 593             goto fail;
 594         }
 595
 596         if (nbd_read(ioc, &s, sizeof(s), errp) < 0) {
 597             error_prepend(errp, "Failed to read export length");
 598             goto fail;
 599         }
 600         *size = be64_to_cpu(s);
 601         TRACE("Size is %" PRIu64, *size);
 602
 603         if (nbd_read(ioc, &oldflags, sizeof(oldflags), errp) < 0) {
 604             error_prepend(errp, "Failed to read export flags");
 605             goto fail;
 606         }
 607         be32_to_cpus(&oldflags);
 608         if (oldflags & ~0xffff) {
 609             error_setg(errp, "Unexpected export flags %0x" PRIx32, oldflags);
 610             goto fail;
 611         }
 612         *flags = oldflags;
 613     } else {
 614         error_setg(errp, "Bad magic received");
 615         goto fail;
 616     }
 617
 618     TRACE("Size is %" PRIu64 ", export flags %" PRIx16, *size, *flags);
 619     if (zeroes && nbd_drop(ioc, 124, errp) < 0) {
 620         error_prepend(errp, "Failed to read reserved block");
 621         goto fail;
 622     }
 623     rc = 0;
 624
 625 fail:
 626     return rc;
 627 }
 628
 629 #ifdef __linux__
 630 int nbd_init(int fd, QIOChannelSocket *sioc, uint16_t flags, off_t size,
 631              Error **errp)
 632 {
 633     unsigned long sectors = size / BDRV_SECTOR_SIZE;
 634     if (size / BDRV_SECTOR_SIZE != sectors) {
 635         error_setg(errp, "Export size %lld too large for 32-bit kernel",
 636                    (long long) size);
 637         return -E2BIG;
 638     }
 639
 640     TRACE("Setting NBD socket");
 641
 642     if (ioctl(fd, NBD_SET_SOCK, (unsigned long) sioc->fd) < 0) {
 643         int serrno = errno;
 644         error_setg(errp, "Failed to set NBD socket");
 645         return -serrno;
 646     }
 647
 648     TRACE("Setting block size to %lu", (unsigned long)BDRV_SECTOR_SIZE);
 649
 650     if (ioctl(fd, NBD_SET_BLKSIZE, (unsigned long)BDRV_SECTOR_SIZE) < 0) {
 651         int serrno = errno;
 652         error_setg(errp, "Failed setting NBD block size");
 653         return -serrno;
 654     }
 655
 656     TRACE("Setting size to %lu block(s)", sectors);
 657     if (size % BDRV_SECTOR_SIZE) {
 658         TRACE("Ignoring trailing %d bytes of export",
 659               (int) (size % BDRV_SECTOR_SIZE));
 660     }
 661
 662     if (ioctl(fd, NBD_SET_SIZE_BLOCKS, sectors) < 0) {
 663         int serrno = errno;
 664         error_setg(errp, "Failed setting size (in blocks)");
 665         return -serrno;
 666     }
 667
 668     if (ioctl(fd, NBD_SET_FLAGS, (unsigned long) flags) < 0) {
 669         if (errno == ENOTTY) {
 670             int read_only = (flags & NBD_FLAG_READ_ONLY) != 0;
 671             TRACE("Setting readonly attribute");
 672
 673             if (ioctl(fd, BLKROSET, (unsigned long) &read_only) < 0) {
 674                 int serrno = errno;
 675                 error_setg(errp, "Failed setting read-only attribute");
 676                 return -serrno;
 677             }
 678         } else {
 679             int serrno = errno;
 680             error_setg(errp, "Failed setting flags");
 681             return -serrno;
 682         }
 683     }
 684
 685     TRACE("Negotiation ended");
 686
 687     return 0;
 688 }
 689
 690 int nbd_client(int fd)
 691 {
 692     int ret;
 693     int serrno;
 694
 695     TRACE("Doing NBD loop");
 696
 697     ret = ioctl(fd, NBD_DO_IT);
 698     if (ret < 0 && errno == EPIPE) {
 699         /* NBD_DO_IT normally returns EPIPE when someone has disconnected
 700          * the socket via NBD_DISCONNECT.  We do not want to return 1 in
 701          * that case.
 702          */
 703         ret = 0;
 704     }
 705     serrno = errno;
 706
 707     TRACE("NBD loop returned %d: %s", ret, strerror(serrno));
 708
 709     TRACE("Clearing NBD queue");
 710     ioctl(fd, NBD_CLEAR_QUE);
 711
 712     TRACE("Clearing NBD socket");
 713     ioctl(fd, NBD_CLEAR_SOCK);
 714
 715     errno = serrno;
 716     return ret;
 717 }
 718
 719 int nbd_disconnect(int fd)
 720 {
 721     ioctl(fd, NBD_CLEAR_QUE);
 722     ioctl(fd, NBD_DISCONNECT);
 723     ioctl(fd, NBD_CLEAR_SOCK);
 724     return 0;
 725 }
 726
 727 #else
 728 int nbd_init(int fd, QIOChannelSocket *ioc, uint16_t flags, off_t size,
 729              Error **errp)
 730 {
 731     error_setg(errp, "nbd_init is only supported on Linux");
 732     return -ENOTSUP;
 733 }
 734
 735 int nbd_client(int fd)
 736 {
 737     return -ENOTSUP;
 738 }
 739 int nbd_disconnect(int fd)
 740 {
 741     return -ENOTSUP;
 742 }
 743 #endif
 744
 745 ssize_t nbd_send_request(QIOChannel *ioc, NBDRequest *request)
 746 {
 747     uint8_t buf[NBD_REQUEST_SIZE];
 748
 749     TRACE("Sending request to server: "
 750           "{ .from = %" PRIu64", .len = %" PRIu32 ", .handle = %" PRIu64
 751           ", .flags = %" PRIx16 ", .type = %" PRIu16 " }",
 752           request->from, request->len, request->handle,
 753           request->flags, request->type);
 754
 755     stl_be_p(buf, NBD_REQUEST_MAGIC);
 756     stw_be_p(buf + 4, request->flags);
 757     stw_be_p(buf + 6, request->type);
 758     stq_be_p(buf + 8, request->handle);
 759     stq_be_p(buf + 16, request->from);
 760     stl_be_p(buf + 24, request->len);
 761
 762     return nbd_write(ioc, buf, sizeof(buf), NULL);
 763 }
 764
 765 ssize_t nbd_receive_reply(QIOChannel *ioc, NBDReply *reply, Error **errp)
 766 {
 767     uint8_t buf[NBD_REPLY_SIZE];
 768     uint32_t magic;
 769     ssize_t ret;
 770
 771     ret = nbd_read_eof(ioc, buf, sizeof(buf), errp);
 772     if (ret <= 0) {
 773         return ret;
 774     }
 775
 776     if (ret != sizeof(buf)) {
 777         error_setg(errp, "read failed");
 778         return -EINVAL;
 779     }
 780
 781     /* Reply
 782        [ 0 ..  3]    magic   (NBD_REPLY_MAGIC)
 783        [ 4 ..  7]    error   (0 == no error)
 784        [ 7 .. 15]    handle
 785      */
 786
 787     magic = ldl_be_p(buf);
 788     reply->error  = ldl_be_p(buf + 4);
 789     reply->handle = ldq_be_p(buf + 8);
 790
 791     reply->error = nbd_errno_to_system_errno(reply->error);
 792
 793     if (reply->error == ESHUTDOWN) {
 794         /* This works even on mingw which lacks a native ESHUTDOWN */
 795         error_setg(errp, "server shutting down");
 796         return -EINVAL;
 797     }
 798     TRACE("Got reply: { magic = 0x%" PRIx32 ", .error = % " PRId32
 799           ", handle = %" PRIu64" }",
 800           magic, reply->error, reply->handle);
 801
 802     if (magic != NBD_REPLY_MAGIC) {
 803         error_setg(errp, "invalid magic (got 0x%" PRIx32 ")", magic);
 804         return -EINVAL;
 805     }
 806     return sizeof(buf);
 807 }
 808