net.c

   1 /*
   2  * QEMU System Emulator
   3  *
   4  * Copyright (c) 2003-2008 Fabrice Bellard
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining a copy
   7  * of this software and associated documentation files (the "Software"), to deal
   8  * in the Software without restriction, including without limitation the rights
   9  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  10  * copies of the Software, and to permit persons to whom the Software is
  11  * furnished to do so, subject to the following conditions:
  12  *
  13  * The above copyright notice and this permission notice shall be included in
  14  * all copies or substantial portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  19  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  21  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  22  * THE SOFTWARE.
  23  */
  24 #include "net.h"
  25
  26 #include "config-host.h"
  27
  28 #include "net/tap.h"
  29 #include "net/socket.h"
  30 #include "net/dump.h"
  31 #include "net/slirp.h"
  32 #include "net/vde.h"
  33 #include "net/util.h"
  34 #include "monitor.h"
  35 #include "qemu-common.h"
  36 #include "qemu_socket.h"
  37 #include "hw/qdev.h"
  38 #include "iov.h"
  39
  40 static QTAILQ_HEAD(, VLANState) vlans;
  41 static QTAILQ_HEAD(, VLANClientState) non_vlan_clients;
  42
  43 int default_net = 1;
  44
  45 /***********************************************************/
  46 /* network device redirectors */
  47
  48 #if defined(DEBUG_NET)
  49 static void hex_dump(FILE *f, const uint8_t *buf, int size)
  50 {
  51     int len, i, j, c;
  52
  53     for(i=0;i<size;i+=16) {
  54         len = size - i;
  55         if (len > 16)
  56             len = 16;
  57         fprintf(f, "%08x ", i);
  58         for(j=0;j<16;j++) {
  59             if (j < len)
  60                 fprintf(f, " %02x", buf[i+j]);
  61             else
  62                 fprintf(f, "   ");
  63         }
  64         fprintf(f, " ");
  65         for(j=0;j<len;j++) {
  66             c = buf[i+j];
  67             if (c < ' ' || c > '~')
  68                 c = '.';
  69             fprintf(f, "%c", c);
  70         }
  71         fprintf(f, "\n");
  72     }
  73 }
  74 #endif
  75
  76 static int get_str_sep(char *buf, int buf_size, const char **pp, int sep)
  77 {
  78     const char *p, *p1;
  79     int len;
  80     p = *pp;
  81     p1 = strchr(p, sep);
  82     if (!p1)
  83         return -1;
  84     len = p1 - p;
  85     p1++;
  86     if (buf_size > 0) {
  87         if (len > buf_size - 1)
  88             len = buf_size - 1;
  89         memcpy(buf, p, len);
  90         buf[len] = '\0';
  91     }
  92     *pp = p1;
  93     return 0;
  94 }
  95
  96 int parse_host_port(struct sockaddr_in *saddr, const char *str)
  97 {
  98     char buf[512];
  99     struct hostent *he;
 100     const char *p, *r;
 101     int port;
 102
 103     p = str;
 104     if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
 105         return -1;
 106     saddr->sin_family = AF_INET;
 107     if (buf[0] == '\0') {
 108         saddr->sin_addr.s_addr = 0;
 109     } else {
 110         if (qemu_isdigit(buf[0])) {
 111             if (!inet_aton(buf, &saddr->sin_addr))
 112                 return -1;
 113         } else {
 114             if ((he = gethostbyname(buf)) == NULL)
 115                 return - 1;
 116             saddr->sin_addr = *(struct in_addr *)he->h_addr;
 117         }
 118     }
 119     port = strtol(p, (char **)&r, 0);
 120     if (r == p)
 121         return -1;
 122     saddr->sin_port = htons(port);
 123     return 0;
 124 }
 125
 126 void qemu_format_nic_info_str(VLANClientState *vc, uint8_t macaddr[6])
 127 {
 128     snprintf(vc->info_str, sizeof(vc->info_str),
 129              "model=%s,macaddr=%02x:%02x:%02x:%02x:%02x:%02x",
 130              vc->model,
 131              macaddr[0], macaddr[1], macaddr[2],
 132              macaddr[3], macaddr[4], macaddr[5]);
 133 }
 134
 135 void qemu_macaddr_default_if_unset(MACAddr *macaddr)
 136 {
 137     static int index = 0;
 138     static const MACAddr zero = { .a = { 0,0,0,0,0,0 } };
 139
 140     if (memcmp(macaddr, &zero, sizeof(zero)) != 0)
 141         return;
 142     macaddr->a[0] = 0x52;
 143     macaddr->a[1] = 0x54;
 144     macaddr->a[2] = 0x00;
 145     macaddr->a[3] = 0x12;
 146     macaddr->a[4] = 0x34;
 147     macaddr->a[5] = 0x56 + index++;
 148 }
 149
 150 static char *assign_name(VLANClientState *vc1, const char *model)
 151 {
 152     VLANState *vlan;
 153     VLANClientState *vc;
 154     char buf[256];
 155     int id = 0;
 156
 157     QTAILQ_FOREACH(vlan, &vlans, next) {
 158         QTAILQ_FOREACH(vc, &vlan->clients, next) {
 159             if (vc != vc1 && strcmp(vc->model, model) == 0) {
 160                 id++;
 161             }
 162         }
 163     }
 164
 165     QTAILQ_FOREACH(vc, &non_vlan_clients, next) {
 166         if (vc != vc1 && strcmp(vc->model, model) == 0) {
 167             id++;
 168         }
 169     }
 170
 171     snprintf(buf, sizeof(buf), "%s.%d", model, id);
 172
 173     return g_strdup(buf);
 174 }
 175
 176 static ssize_t qemu_deliver_packet(VLANClientState *sender,
 177                                    unsigned flags,
 178                                    const uint8_t *data,
 179                                    size_t size,
 180                                    void *opaque);
 181 static ssize_t qemu_deliver_packet_iov(VLANClientState *sender,
 182                                        unsigned flags,
 183                                        const struct iovec *iov,
 184                                        int iovcnt,
 185                                        void *opaque);
 186
 187 VLANClientState *qemu_new_net_client(NetClientInfo *info,
 188                                      VLANState *vlan,
 189                                      VLANClientState *peer,
 190                                      const char *model,
 191                                      const char *name)
 192 {
 193     VLANClientState *vc;
 194
 195     assert(info->size >= sizeof(VLANClientState));
 196
 197     vc = g_malloc0(info->size);
 198
 199     vc->info = info;
 200     vc->model = g_strdup(model);
 201     if (name) {
 202         vc->name = g_strdup(name);
 203     } else {
 204         vc->name = assign_name(vc, model);
 205     }
 206
 207     if (vlan) {
 208         assert(!peer);
 209         vc->vlan = vlan;
 210         QTAILQ_INSERT_TAIL(&vc->vlan->clients, vc, next);
 211     } else {
 212         if (peer) {
 213             assert(!peer->peer);
 214             vc->peer = peer;
 215             peer->peer = vc;
 216         }
 217         QTAILQ_INSERT_TAIL(&non_vlan_clients, vc, next);
 218
 219         vc->send_queue = qemu_new_net_queue(qemu_deliver_packet,
 220                                             qemu_deliver_packet_iov,
 221                                             vc);
 222     }
 223
 224     return vc;
 225 }
 226
 227 NICState *qemu_new_nic(NetClientInfo *info,
 228                        NICConf *conf,
 229                        const char *model,
 230                        const char *name,
 231                        void *opaque)
 232 {
 233     VLANClientState *nc;
 234     NICState *nic;
 235
 236     assert(info->type == NET_CLIENT_TYPE_NIC);
 237     assert(info->size >= sizeof(NICState));
 238
 239     nc = qemu_new_net_client(info, conf->vlan, conf->peer, model, name);
 240
 241     nic = DO_UPCAST(NICState, nc, nc);
 242     nic->conf = conf;
 243     nic->opaque = opaque;
 244
 245     return nic;
 246 }
 247
 248 static void qemu_cleanup_vlan_client(VLANClientState *vc)
 249 {
 250     if (vc->vlan) {
 251         QTAILQ_REMOVE(&vc->vlan->clients, vc, next);
 252     } else {
 253         QTAILQ_REMOVE(&non_vlan_clients, vc, next);
 254     }
 255
 256     if (vc->info->cleanup) {
 257         vc->info->cleanup(vc);
 258     }
 259 }
 260
 261 static void qemu_free_vlan_client(VLANClientState *vc)
 262 {
 263     if (!vc->vlan) {
 264         if (vc->send_queue) {
 265             qemu_del_net_queue(vc->send_queue);
 266         }
 267         if (vc->peer) {
 268             vc->peer->peer = NULL;
 269         }
 270     }
 271     g_free(vc->name);
 272     g_free(vc->model);
 273     g_free(vc);
 274 }
 275
 276 void qemu_del_vlan_client(VLANClientState *vc)
 277 {
 278     /* If there is a peer NIC, delete and cleanup client, but do not free. */
 279     if (!vc->vlan && vc->peer && vc->peer->info->type == NET_CLIENT_TYPE_NIC) {
 280         NICState *nic = DO_UPCAST(NICState, nc, vc->peer);
 281         if (nic->peer_deleted) {
 282             return;
 283         }
 284         nic->peer_deleted = true;
 285         /* Let NIC know peer is gone. */
 286         vc->peer->link_down = true;
 287         if (vc->peer->info->link_status_changed) {
 288             vc->peer->info->link_status_changed(vc->peer);
 289         }
 290         qemu_cleanup_vlan_client(vc);
 291         return;
 292     }
 293
 294     /* If this is a peer NIC and peer has already been deleted, free it now. */
 295     if (!vc->vlan && vc->peer && vc->info->type == NET_CLIENT_TYPE_NIC) {
 296         NICState *nic = DO_UPCAST(NICState, nc, vc);
 297         if (nic->peer_deleted) {
 298             qemu_free_vlan_client(vc->peer);
 299         }
 300     }
 301
 302     qemu_cleanup_vlan_client(vc);
 303     qemu_free_vlan_client(vc);
 304 }
 305
 306 VLANClientState *
 307 qemu_find_vlan_client_by_name(Monitor *mon, int vlan_id,
 308                               const char *client_str)
 309 {
 310     VLANState *vlan;
 311     VLANClientState *vc;
 312
 313     vlan = qemu_find_vlan(vlan_id, 0);
 314     if (!vlan) {
 315         monitor_printf(mon, "unknown VLAN %d\n", vlan_id);
 316         return NULL;
 317     }
 318
 319     QTAILQ_FOREACH(vc, &vlan->clients, next) {
 320         if (!strcmp(vc->name, client_str)) {
 321             break;
 322         }
 323     }
 324     if (!vc) {
 325         monitor_printf(mon, "can't find device %s on VLAN %d\n",
 326                        client_str, vlan_id);
 327     }
 328
 329     return vc;
 330 }
 331
 332 void qemu_foreach_nic(qemu_nic_foreach func, void *opaque)
 333 {
 334     VLANClientState *nc;
 335     VLANState *vlan;
 336
 337     QTAILQ_FOREACH(nc, &non_vlan_clients, next) {
 338         if (nc->info->type == NET_CLIENT_TYPE_NIC) {
 339             func(DO_UPCAST(NICState, nc, nc), opaque);
 340         }
 341     }
 342
 343     QTAILQ_FOREACH(vlan, &vlans, next) {
 344         QTAILQ_FOREACH(nc, &vlan->clients, next) {
 345             if (nc->info->type == NET_CLIENT_TYPE_NIC) {
 346                 func(DO_UPCAST(NICState, nc, nc), opaque);
 347             }
 348         }
 349     }
 350 }
 351
 352 int qemu_can_send_packet(VLANClientState *sender)
 353 {
 354     VLANState *vlan = sender->vlan;
 355     VLANClientState *vc;
 356
 357     if (sender->peer) {
 358         if (sender->peer->receive_disabled) {
 359             return 0;
 360         } else if (sender->peer->info->can_receive &&
 361                    !sender->peer->info->can_receive(sender->peer)) {
 362             return 0;
 363         } else {
 364             return 1;
 365         }
 366     }
 367
 368     if (!sender->vlan) {
 369         return 1;
 370     }
 371
 372     QTAILQ_FOREACH(vc, &vlan->clients, next) {
 373         if (vc == sender) {
 374             continue;
 375         }
 376
 377         /* no can_receive() handler, they can always receive */
 378         if (vc->info->can_receive && !vc->info->can_receive(vc)) {
 379             return 0;
 380         }
 381     }
 382     return 1;
 383 }
 384
 385 static ssize_t qemu_deliver_packet(VLANClientState *sender,
 386                                    unsigned flags,
 387                                    const uint8_t *data,
 388                                    size_t size,
 389                                    void *opaque)
 390 {
 391     VLANClientState *vc = opaque;
 392     ssize_t ret;
 393
 394     if (vc->link_down) {
 395         return size;
 396     }
 397
 398     if (vc->receive_disabled) {
 399         return 0;
 400     }
 401
 402     if (flags & QEMU_NET_PACKET_FLAG_RAW && vc->info->receive_raw) {
 403         ret = vc->info->receive_raw(vc, data, size);
 404     } else {
 405         ret = vc->info->receive(vc, data, size);
 406     }
 407
 408     if (ret == 0) {
 409         vc->receive_disabled = 1;
 410     };
 411
 412     return ret;
 413 }
 414
 415 static ssize_t qemu_vlan_deliver_packet(VLANClientState *sender,
 416                                         unsigned flags,
 417                                         const uint8_t *buf,
 418                                         size_t size,
 419                                         void *opaque)
 420 {
 421     VLANState *vlan = opaque;
 422     VLANClientState *vc;
 423     ssize_t ret = -1;
 424
 425     QTAILQ_FOREACH(vc, &vlan->clients, next) {
 426         ssize_t len;
 427
 428         if (vc == sender) {
 429             continue;
 430         }
 431
 432         if (vc->link_down) {
 433             ret = size;
 434             continue;
 435         }
 436
 437         if (vc->receive_disabled) {
 438             ret = 0;
 439             continue;
 440         }
 441
 442         if (flags & QEMU_NET_PACKET_FLAG_RAW && vc->info->receive_raw) {
 443             len = vc->info->receive_raw(vc, buf, size);
 444         } else {
 445             len = vc->info->receive(vc, buf, size);
 446         }
 447
 448         if (len == 0) {
 449             vc->receive_disabled = 1;
 450         }
 451
 452         ret = (ret >= 0) ? ret : len;
 453
 454     }
 455
 456     return ret;
 457 }
 458
 459 void qemu_purge_queued_packets(VLANClientState *vc)
 460 {
 461     NetQueue *queue;
 462
 463     if (!vc->peer && !vc->vlan) {
 464         return;
 465     }
 466
 467     if (vc->peer) {
 468         queue = vc->peer->send_queue;
 469     } else {
 470         queue = vc->vlan->send_queue;
 471     }
 472
 473     qemu_net_queue_purge(queue, vc);
 474 }
 475
 476 void qemu_flush_queued_packets(VLANClientState *vc)
 477 {
 478     NetQueue *queue;
 479
 480     vc->receive_disabled = 0;
 481
 482     if (vc->vlan) {
 483         queue = vc->vlan->send_queue;
 484     } else {
 485         queue = vc->send_queue;
 486     }
 487
 488     qemu_net_queue_flush(queue);
 489 }
 490
 491 static ssize_t qemu_send_packet_async_with_flags(VLANClientState *sender,
 492                                                  unsigned flags,
 493                                                  const uint8_t *buf, int size,
 494                                                  NetPacketSent *sent_cb)
 495 {
 496     NetQueue *queue;
 497
 498 #ifdef DEBUG_NET
 499     printf("qemu_send_packet_async:\n");
 500     hex_dump(stdout, buf, size);
 501 #endif
 502
 503     if (sender->link_down || (!sender->peer && !sender->vlan)) {
 504         return size;
 505     }
 506
 507     if (sender->peer) {
 508         queue = sender->peer->send_queue;
 509     } else {
 510         queue = sender->vlan->send_queue;
 511     }
 512
 513     return qemu_net_queue_send(queue, sender, flags, buf, size, sent_cb);
 514 }
 515
 516 ssize_t qemu_send_packet_async(VLANClientState *sender,
 517                                const uint8_t *buf, int size,
 518                                NetPacketSent *sent_cb)
 519 {
 520     return qemu_send_packet_async_with_flags(sender, QEMU_NET_PACKET_FLAG_NONE,
 521                                              buf, size, sent_cb);
 522 }
 523
 524 void qemu_send_packet(VLANClientState *vc, const uint8_t *buf, int size)
 525 {
 526     qemu_send_packet_async(vc, buf, size, NULL);
 527 }
 528
 529 ssize_t qemu_send_packet_raw(VLANClientState *vc, const uint8_t *buf, int size)
 530 {
 531     return qemu_send_packet_async_with_flags(vc, QEMU_NET_PACKET_FLAG_RAW,
 532                                              buf, size, NULL);
 533 }
 534
 535 static ssize_t vc_sendv_compat(VLANClientState *vc, const struct iovec *iov,
 536                                int iovcnt)
 537 {
 538     uint8_t buffer[4096];
 539     size_t offset;
 540
 541     offset = iov_to_buf(iov, iovcnt, buffer, 0, sizeof(buffer));
 542
 543     return vc->info->receive(vc, buffer, offset);
 544 }
 545
 546 static ssize_t qemu_deliver_packet_iov(VLANClientState *sender,
 547                                        unsigned flags,
 548                                        const struct iovec *iov,
 549                                        int iovcnt,
 550                                        void *opaque)
 551 {
 552     VLANClientState *vc = opaque;
 553
 554     if (vc->link_down) {
 555         return iov_size(iov, iovcnt);
 556     }
 557
 558     if (vc->info->receive_iov) {
 559         return vc->info->receive_iov(vc, iov, iovcnt);
 560     } else {
 561         return vc_sendv_compat(vc, iov, iovcnt);
 562     }
 563 }
 564
 565 static ssize_t qemu_vlan_deliver_packet_iov(VLANClientState *sender,
 566                                             unsigned flags,
 567                                             const struct iovec *iov,
 568                                             int iovcnt,
 569                                             void *opaque)
 570 {
 571     VLANState *vlan = opaque;
 572     VLANClientState *vc;
 573     ssize_t ret = -1;
 574
 575     QTAILQ_FOREACH(vc, &vlan->clients, next) {
 576         ssize_t len;
 577
 578         if (vc == sender) {
 579             continue;
 580         }
 581
 582         if (vc->link_down) {
 583             ret = iov_size(iov, iovcnt);
 584             continue;
 585         }
 586
 587         assert(!(flags & QEMU_NET_PACKET_FLAG_RAW));
 588
 589         if (vc->info->receive_iov) {
 590             len = vc->info->receive_iov(vc, iov, iovcnt);
 591         } else {
 592             len = vc_sendv_compat(vc, iov, iovcnt);
 593         }
 594
 595         ret = (ret >= 0) ? ret : len;
 596     }
 597
 598     return ret;
 599 }
 600
 601 ssize_t qemu_sendv_packet_async(VLANClientState *sender,
 602                                 const struct iovec *iov, int iovcnt,
 603                                 NetPacketSent *sent_cb)
 604 {
 605     NetQueue *queue;
 606
 607     if (sender->link_down || (!sender->peer && !sender->vlan)) {
 608         return iov_size(iov, iovcnt);
 609     }
 610
 611     if (sender->peer) {
 612         queue = sender->peer->send_queue;
 613     } else {
 614         queue = sender->vlan->send_queue;
 615     }
 616
 617     return qemu_net_queue_send_iov(queue, sender,
 618                                    QEMU_NET_PACKET_FLAG_NONE,
 619                                    iov, iovcnt, sent_cb);
 620 }
 621
 622 ssize_t
 623 qemu_sendv_packet(VLANClientState *vc, const struct iovec *iov, int iovcnt)
 624 {
 625     return qemu_sendv_packet_async(vc, iov, iovcnt, NULL);
 626 }
 627
 628 /* find or alloc a new VLAN */
 629 VLANState *qemu_find_vlan(int id, int allocate)
 630 {
 631     VLANState *vlan;
 632
 633     QTAILQ_FOREACH(vlan, &vlans, next) {
 634         if (vlan->id == id) {
 635             return vlan;
 636         }
 637     }
 638
 639     if (!allocate) {
 640         return NULL;
 641     }
 642
 643     vlan = g_malloc0(sizeof(VLANState));
 644     vlan->id = id;
 645     QTAILQ_INIT(&vlan->clients);
 646
 647     vlan->send_queue = qemu_new_net_queue(qemu_vlan_deliver_packet,
 648                                           qemu_vlan_deliver_packet_iov,
 649                                           vlan);
 650
 651     QTAILQ_INSERT_TAIL(&vlans, vlan, next);
 652
 653     return vlan;
 654 }
 655
 656 VLANClientState *qemu_find_netdev(const char *id)
 657 {
 658     VLANClientState *vc;
 659
 660     QTAILQ_FOREACH(vc, &non_vlan_clients, next) {
 661         if (vc->info->type == NET_CLIENT_TYPE_NIC)
 662             continue;
 663         if (!strcmp(vc->name, id)) {
 664             return vc;
 665         }
 666     }
 667
 668     return NULL;
 669 }
 670
 671 static int nic_get_free_idx(void)
 672 {
 673     int index;
 674
 675     for (index = 0; index < MAX_NICS; index++)
 676         if (!nd_table[index].used)
 677             return index;
 678     return -1;
 679 }
 680
 681 int qemu_show_nic_models(const char *arg, const char *const *models)
 682 {
 683     int i;
 684
 685     if (!arg || strcmp(arg, "?"))
 686         return 0;
 687
 688     fprintf(stderr, "qemu: Supported NIC models: ");
 689     for (i = 0 ; models[i]; i++)
 690         fprintf(stderr, "%s%c", models[i], models[i+1] ? ',' : '\n');
 691     return 1;
 692 }
 693
 694 void qemu_check_nic_model(NICInfo *nd, const char *model)
 695 {
 696     const char *models[2];
 697
 698     models[0] = model;
 699     models[1] = NULL;
 700
 701     if (qemu_show_nic_models(nd->model, models))
 702         exit(0);
 703     if (qemu_find_nic_model(nd, models, model) < 0)
 704         exit(1);
 705 }
 706
 707 int qemu_find_nic_model(NICInfo *nd, const char * const *models,
 708                         const char *default_model)
 709 {
 710     int i;
 711
 712     if (!nd->model)
 713         nd->model = g_strdup(default_model);
 714
 715     for (i = 0 ; models[i]; i++) {
 716         if (strcmp(nd->model, models[i]) == 0)
 717             return i;
 718     }
 719
 720     error_report("Unsupported NIC model: %s", nd->model);
 721     return -1;
 722 }
 723
 724 int net_handle_fd_param(Monitor *mon, const char *param)
 725 {
 726     int fd;
 727
 728     if (!qemu_isdigit(param[0]) && mon) {
 729
 730         fd = monitor_get_fd(mon, param);
 731         if (fd == -1) {
 732             error_report("No file descriptor named %s found", param);
 733             return -1;
 734         }
 735     } else {
 736         char *endptr = NULL;
 737
 738         fd = strtol(param, &endptr, 10);
 739         if (*endptr || (fd == 0 && param == endptr)) {
 740             return -1;
 741         }
 742     }
 743
 744     return fd;
 745 }
 746
 747 static int net_init_nic(QemuOpts *opts,
 748                         Monitor *mon,
 749                         const char *name,
 750                         VLANState *vlan)
 751 {
 752     int idx;
 753     NICInfo *nd;
 754     const char *netdev;
 755
 756     idx = nic_get_free_idx();
 757     if (idx == -1 || nb_nics >= MAX_NICS) {
 758         error_report("Too Many NICs");
 759         return -1;
 760     }
 761
 762     nd = &nd_table[idx];
 763
 764     memset(nd, 0, sizeof(*nd));
 765
 766     if ((netdev = qemu_opt_get(opts, "netdev"))) {
 767         nd->netdev = qemu_find_netdev(netdev);
 768         if (!nd->netdev) {
 769             error_report("netdev '%s' not found", netdev);
 770             return -1;
 771         }
 772     } else {
 773         assert(vlan);
 774         nd->vlan = vlan;
 775     }
 776     if (name) {
 777         nd->name = g_strdup(name);
 778     }
 779     if (qemu_opt_get(opts, "model")) {
 780         nd->model = g_strdup(qemu_opt_get(opts, "model"));
 781     }
 782     if (qemu_opt_get(opts, "addr")) {
 783         nd->devaddr = g_strdup(qemu_opt_get(opts, "addr"));
 784     }
 785
 786     if (qemu_opt_get(opts, "macaddr") &&
 787         net_parse_macaddr(nd->macaddr.a, qemu_opt_get(opts, "macaddr")) < 0) {
 788         error_report("invalid syntax for ethernet address");
 789         return -1;
 790     }
 791     qemu_macaddr_default_if_unset(&nd->macaddr);
 792
 793     nd->nvectors = qemu_opt_get_number(opts, "vectors",
 794                                        DEV_NVECTORS_UNSPECIFIED);
 795     if (nd->nvectors != DEV_NVECTORS_UNSPECIFIED &&
 796         (nd->nvectors < 0 || nd->nvectors > 0x7ffffff)) {
 797         error_report("invalid # of vectors: %d", nd->nvectors);
 798         return -1;
 799     }
 800
 801     nd->used = 1;
 802     nb_nics++;
 803
 804     return idx;
 805 }
 806
 807 #define NET_COMMON_PARAMS_DESC                     \
 808     {                                              \
 809         .name = "type",                            \
 810         .type = QEMU_OPT_STRING,                   \
 811         .help = "net client type (nic, tap etc.)", \
 812      }, {                                          \
 813         .name = "vlan",                            \
 814         .type = QEMU_OPT_NUMBER,                   \
 815         .help = "vlan number",                     \
 816      }, {                                          \
 817         .name = "name",                            \
 818         .type = QEMU_OPT_STRING,                   \
 819         .help = "identifier for monitor commands", \
 820      }
 821
 822 typedef int (*net_client_init_func)(QemuOpts *opts,
 823                                     Monitor *mon,
 824                                     const char *name,
 825                                     VLANState *vlan);
 826
 827 /* magic number, but compiler will warn if too small */
 828 #define NET_MAX_DESC 20
 829
 830 static const struct {
 831     const char *type;
 832     net_client_init_func init;
 833     QemuOptDesc desc[NET_MAX_DESC];
 834 } net_client_types[NET_CLIENT_TYPE_MAX] = {
 835     [NET_CLIENT_TYPE_NONE] = {
 836         .type = "none",
 837         .desc = {
 838             NET_COMMON_PARAMS_DESC,
 839             { /* end of list */ }
 840         },
 841     },
 842     [NET_CLIENT_TYPE_NIC] = {
 843         .type = "nic",
 844         .init = net_init_nic,
 845         .desc = {
 846             NET_COMMON_PARAMS_DESC,
 847             {
 848                 .name = "netdev",
 849                 .type = QEMU_OPT_STRING,
 850                 .help = "id of -netdev to connect to",
 851             },
 852             {
 853                 .name = "macaddr",
 854                 .type = QEMU_OPT_STRING,
 855                 .help = "MAC address",
 856             }, {
 857                 .name = "model",
 858                 .type = QEMU_OPT_STRING,
 859                 .help = "device model (e1000, rtl8139, virtio etc.)",
 860             }, {
 861                 .name = "addr",
 862                 .type = QEMU_OPT_STRING,
 863                 .help = "PCI device address",
 864             }, {
 865                 .name = "vectors",
 866                 .type = QEMU_OPT_NUMBER,
 867                 .help = "number of MSI-x vectors, 0 to disable MSI-X",
 868             },
 869             { /* end of list */ }
 870         },
 871     },
 872 #ifdef CONFIG_SLIRP
 873     [NET_CLIENT_TYPE_USER] = {
 874         .type = "user",
 875         .init = net_init_slirp,
 876         .desc = {
 877             NET_COMMON_PARAMS_DESC,
 878             {
 879                 .name = "hostname",
 880                 .type = QEMU_OPT_STRING,
 881                 .help = "client hostname reported by the builtin DHCP server",
 882             }, {
 883                 .name = "restrict",
 884                 .type = QEMU_OPT_STRING,
 885                 .help = "isolate the guest from the host (y|yes|n|no)",
 886             }, {
 887                 .name = "ip",
 888                 .type = QEMU_OPT_STRING,
 889                 .help = "legacy parameter, use net= instead",
 890             }, {
 891                 .name = "net",
 892                 .type = QEMU_OPT_STRING,
 893                 .help = "IP address and optional netmask",
 894             }, {
 895                 .name = "host",
 896                 .type = QEMU_OPT_STRING,
 897                 .help = "guest-visible address of the host",
 898             }, {
 899                 .name = "tftp",
 900                 .type = QEMU_OPT_STRING,
 901                 .help = "root directory of the built-in TFTP server",
 902             }, {
 903                 .name = "bootfile",
 904                 .type = QEMU_OPT_STRING,
 905                 .help = "BOOTP filename, for use with tftp=",
 906             }, {
 907                 .name = "dhcpstart",
 908                 .type = QEMU_OPT_STRING,
 909                 .help = "the first of the 16 IPs the built-in DHCP server can assign",
 910             }, {
 911                 .name = "dns",
 912                 .type = QEMU_OPT_STRING,
 913                 .help = "guest-visible address of the virtual nameserver",
 914             }, {
 915                 .name = "smb",
 916                 .type = QEMU_OPT_STRING,
 917                 .help = "root directory of the built-in SMB server",
 918             }, {
 919                 .name = "smbserver",
 920                 .type = QEMU_OPT_STRING,
 921                 .help = "IP address of the built-in SMB server",
 922             }, {
 923                 .name = "hostfwd",
 924                 .type = QEMU_OPT_STRING,
 925                 .help = "guest port number to forward incoming TCP or UDP connections",
 926             }, {
 927                 .name = "guestfwd",
 928                 .type = QEMU_OPT_STRING,
 929                 .help = "IP address and port to forward guest TCP connections",
 930             },
 931             { /* end of list */ }
 932         },
 933     },
 934 #endif
 935     [NET_CLIENT_TYPE_TAP] = {
 936         .type = "tap",
 937         .init = net_init_tap,
 938         .desc = {
 939             NET_COMMON_PARAMS_DESC,
 940             {
 941                 .name = "ifname",
 942                 .type = QEMU_OPT_STRING,
 943                 .help = "interface name",
 944             },
 945 #ifndef _WIN32
 946             {
 947                 .name = "fd",
 948                 .type = QEMU_OPT_STRING,
 949                 .help = "file descriptor of an already opened tap",
 950             }, {
 951                 .name = "script",
 952                 .type = QEMU_OPT_STRING,
 953                 .help = "script to initialize the interface",
 954             }, {
 955                 .name = "downscript",
 956                 .type = QEMU_OPT_STRING,
 957                 .help = "script to shut down the interface",
 958             }, {
 959                 .name = "sndbuf",
 960                 .type = QEMU_OPT_SIZE,
 961                 .help = "send buffer limit"
 962             }, {
 963                 .name = "vnet_hdr",
 964                 .type = QEMU_OPT_BOOL,
 965                 .help = "enable the IFF_VNET_HDR flag on the tap interface"
 966             }, {
 967                 .name = "vhost",
 968                 .type = QEMU_OPT_BOOL,
 969                 .help = "enable vhost-net network accelerator",
 970             }, {
 971                 .name = "vhostfd",
 972                 .type = QEMU_OPT_STRING,
 973                 .help = "file descriptor of an already opened vhost net device",
 974             }, {
 975                 .name = "vhostforce",
 976                 .type = QEMU_OPT_BOOL,
 977                 .help = "force vhost on for non-MSIX virtio guests",
 978         },
 979 #endif /* _WIN32 */
 980             { /* end of list */ }
 981         },
 982     },
 983     [NET_CLIENT_TYPE_SOCKET] = {
 984         .type = "socket",
 985         .init = net_init_socket,
 986         .desc = {
 987             NET_COMMON_PARAMS_DESC,
 988             {
 989                 .name = "fd",
 990                 .type = QEMU_OPT_STRING,
 991                 .help = "file descriptor of an already opened socket",
 992             }, {
 993                 .name = "listen",
 994                 .type = QEMU_OPT_STRING,
 995                 .help = "port number, and optional hostname, to listen on",
 996             }, {
 997                 .name = "connect",
 998                 .type = QEMU_OPT_STRING,
 999                 .help = "port number, and optional hostname, to connect to",
1000             }, {
1001                 .name = "mcast",
1002                 .type = QEMU_OPT_STRING,
1003                 .help = "UDP multicast address and port number",
1004             }, {
1005                 .name = "localaddr",
1006                 .type = QEMU_OPT_STRING,
1007                 .help = "source address for multicast packets",
1008             },
1009             { /* end of list */ }
1010         },
1011     },
1012 #ifdef CONFIG_VDE
1013     [NET_CLIENT_TYPE_VDE] = {
1014         .type = "vde",
1015         .init = net_init_vde,
1016         .desc = {
1017             NET_COMMON_PARAMS_DESC,
1018             {
1019                 .name = "sock",
1020                 .type = QEMU_OPT_STRING,
1021                 .help = "socket path",
1022             }, {
1023                 .name = "port",
1024                 .type = QEMU_OPT_NUMBER,
1025                 .help = "port number",
1026             }, {
1027                 .name = "group",
1028                 .type = QEMU_OPT_STRING,
1029                 .help = "group owner of socket",
1030             }, {
1031                 .name = "mode",
1032                 .type = QEMU_OPT_NUMBER,
1033                 .help = "permissions for socket",
1034             },
1035             { /* end of list */ }
1036         },
1037     },
1038 #endif
1039     [NET_CLIENT_TYPE_DUMP] = {
1040         .type = "dump",
1041         .init = net_init_dump,
1042         .desc = {
1043             NET_COMMON_PARAMS_DESC,
1044             {
1045                 .name = "len",
1046                 .type = QEMU_OPT_SIZE,
1047                 .help = "per-packet size limit (64k default)",
1048             }, {
1049                 .name = "file",
1050                 .type = QEMU_OPT_STRING,
1051                 .help = "dump file path (default is qemu-vlan0.pcap)",
1052             },
1053             { /* end of list */ }
1054         },
1055     },
1056 };
1057
1058 int net_client_init(Monitor *mon, QemuOpts *opts, int is_netdev)
1059 {
1060     const char *name;
1061     const char *type;
1062     int i;
1063
1064     type = qemu_opt_get(opts, "type");
1065     if (!type) {
1066         qerror_report(QERR_MISSING_PARAMETER, "type");
1067         return -1;
1068     }
1069
1070     if (is_netdev) {
1071         if (strcmp(type, "tap") != 0 &&
1072 #ifdef CONFIG_SLIRP
1073             strcmp(type, "user") != 0 &&
1074 #endif
1075 #ifdef CONFIG_VDE
1076             strcmp(type, "vde") != 0 &&
1077 #endif
1078             strcmp(type, "socket") != 0) {
1079             qerror_report(QERR_INVALID_PARAMETER_VALUE, "type",
1080                           "a netdev backend type");
1081             return -1;
1082         }
1083
1084         if (qemu_opt_get(opts, "vlan")) {
1085             qerror_report(QERR_INVALID_PARAMETER, "vlan");
1086             return -1;
1087         }
1088         if (qemu_opt_get(opts, "name")) {
1089             qerror_report(QERR_INVALID_PARAMETER, "name");
1090             return -1;
1091         }
1092         if (!qemu_opts_id(opts)) {
1093             qerror_report(QERR_MISSING_PARAMETER, "id");
1094             return -1;
1095         }
1096     }
1097
1098     name = qemu_opts_id(opts);
1099     if (!name) {
1100         name = qemu_opt_get(opts, "name");
1101     }
1102
1103     for (i = 0; i < NET_CLIENT_TYPE_MAX; i++) {
1104         if (net_client_types[i].type != NULL &&
1105             !strcmp(net_client_types[i].type, type)) {
1106             VLANState *vlan = NULL;
1107             int ret;
1108
1109             if (qemu_opts_validate(opts, &net_client_types[i].desc[0]) == -1) {
1110                 return -1;
1111             }
1112
1113             /* Do not add to a vlan if it's a -netdev or a nic with a
1114              * netdev= parameter. */
1115             if (!(is_netdev ||
1116                   (strcmp(type, "nic") == 0 && qemu_opt_get(opts, "netdev")))) {
1117                 vlan = qemu_find_vlan(qemu_opt_get_number(opts, "vlan", 0), 1);
1118             }
1119
1120             ret = 0;
1121             if (net_client_types[i].init) {
1122                 ret = net_client_types[i].init(opts, mon, name, vlan);
1123                 if (ret < 0) {
1124                     /* TODO push error reporting into init() methods */
1125                     qerror_report(QERR_DEVICE_INIT_FAILED, type);
1126                     return -1;
1127                 }
1128             }
1129             return ret;
1130         }
1131     }
1132
1133     qerror_report(QERR_INVALID_PARAMETER_VALUE, "type",
1134                   "a network client type");
1135     return -1;
1136 }
1137
1138 static int net_host_check_device(const char *device)
1139 {
1140     int i;
1141     const char *valid_param_list[] = { "tap", "socket", "dump"
1142 #ifdef CONFIG_SLIRP
1143                                        ,"user"
1144 #endif
1145 #ifdef CONFIG_VDE
1146                                        ,"vde"
1147 #endif
1148     };
1149     for (i = 0; i < sizeof(valid_param_list) / sizeof(char *); i++) {
1150         if (!strncmp(valid_param_list[i], device,
1151                      strlen(valid_param_list[i])))
1152             return 1;
1153     }
1154
1155     return 0;
1156 }
1157
1158 void net_host_device_add(Monitor *mon, const QDict *qdict)
1159 {
1160     const char *device = qdict_get_str(qdict, "device");
1161     const char *opts_str = qdict_get_try_str(qdict, "opts");
1162     QemuOpts *opts;
1163
1164     if (!net_host_check_device(device)) {
1165         monitor_printf(mon, "invalid host network device %s\n", device);
1166         return;
1167     }
1168
1169     opts = qemu_opts_parse(qemu_find_opts("net"), opts_str ? opts_str : "", 0);
1170     if (!opts) {
1171         return;
1172     }
1173
1174     qemu_opt_set(opts, "type", device);
1175
1176     if (net_client_init(mon, opts, 0) < 0) {
1177         monitor_printf(mon, "adding host network device %s failed\n", device);
1178     }
1179 }
1180
1181 void net_host_device_remove(Monitor *mon, const QDict *qdict)
1182 {
1183     VLANClientState *vc;
1184     int vlan_id = qdict_get_int(qdict, "vlan_id");
1185     const char *device = qdict_get_str(qdict, "device");
1186
1187     vc = qemu_find_vlan_client_by_name(mon, vlan_id, device);
1188     if (!vc) {
1189         return;
1190     }
1191     if (!net_host_check_device(vc->model)) {
1192         monitor_printf(mon, "invalid host network device %s\n", device);
1193         return;
1194     }
1195     qemu_del_vlan_client(vc);
1196 }
1197
1198 int do_netdev_add(Monitor *mon, const QDict *qdict, QObject **ret_data)
1199 {
1200     QemuOpts *opts;
1201     int res;
1202
1203     opts = qemu_opts_from_qdict(qemu_find_opts("netdev"), qdict);
1204     if (!opts) {
1205         return -1;
1206     }
1207
1208     res = net_client_init(mon, opts, 1);
1209     if (res < 0) {
1210         qemu_opts_del(opts);
1211     }
1212
1213     return res;
1214 }
1215
1216 int do_netdev_del(Monitor *mon, const QDict *qdict, QObject **ret_data)
1217 {
1218     const char *id = qdict_get_str(qdict, "id");
1219     VLANClientState *vc;
1220
1221     vc = qemu_find_netdev(id);
1222     if (!vc) {
1223         qerror_report(QERR_DEVICE_NOT_FOUND, id);
1224         return -1;
1225     }
1226     qemu_del_vlan_client(vc);
1227     qemu_opts_del(qemu_opts_find(qemu_find_opts("netdev"), id));
1228     return 0;
1229 }
1230
1231 static void print_net_client(Monitor *mon, VLANClientState *vc)
1232 {
1233     monitor_printf(mon, "%s: type=%s,%s\n", vc->name,
1234                    net_client_types[vc->info->type].type, vc->info_str);
1235 }
1236
1237 void do_info_network(Monitor *mon)
1238 {
1239     VLANState *vlan;
1240     VLANClientState *vc, *peer;
1241     net_client_type type;
1242
1243     QTAILQ_FOREACH(vlan, &vlans, next) {
1244         monitor_printf(mon, "VLAN %d devices:\n", vlan->id);
1245
1246         QTAILQ_FOREACH(vc, &vlan->clients, next) {
1247             monitor_printf(mon, "  ");
1248             print_net_client(mon, vc);
1249         }
1250     }
1251     monitor_printf(mon, "Devices not on any VLAN:\n");
1252     QTAILQ_FOREACH(vc, &non_vlan_clients, next) {
1253         peer = vc->peer;
1254         type = vc->info->type;
1255         if (!peer || type == NET_CLIENT_TYPE_NIC) {
1256             monitor_printf(mon, "  ");
1257             print_net_client(mon, vc);
1258         } /* else it's a netdev connected to a NIC, printed with the NIC */
1259         if (peer && type == NET_CLIENT_TYPE_NIC) {
1260             monitor_printf(mon, "   \\ ");
1261             print_net_client(mon, peer);
1262         }
1263     }
1264 }
1265
1266 int do_set_link(Monitor *mon, const QDict *qdict, QObject **ret_data)
1267 {
1268     VLANState *vlan;
1269     VLANClientState *vc = NULL;
1270     const char *name = qdict_get_str(qdict, "name");
1271     int up = qdict_get_bool(qdict, "up");
1272
1273     QTAILQ_FOREACH(vlan, &vlans, next) {
1274         QTAILQ_FOREACH(vc, &vlan->clients, next) {
1275             if (strcmp(vc->name, name) == 0) {
1276                 goto done;
1277             }
1278         }
1279     }
1280     QTAILQ_FOREACH(vc, &non_vlan_clients, next) {
1281         if (!strcmp(vc->name, name)) {
1282             goto done;
1283         }
1284     }
1285 done:
1286
1287     if (!vc) {
1288         qerror_report(QERR_DEVICE_NOT_FOUND, name);
1289         return -1;
1290     }
1291
1292     vc->link_down = !up;
1293
1294     if (vc->info->link_status_changed) {
1295         vc->info->link_status_changed(vc);
1296     }
1297
1298     /* Notify peer. Don't update peer link status: this makes it possible to
1299      * disconnect from host network without notifying the guest.
1300      * FIXME: is disconnected link status change operation useful?
1301      *
1302      * Current behaviour is compatible with qemu vlans where there could be
1303      * multiple clients that can still communicate with each other in
1304      * disconnected mode. For now maintain this compatibility. */
1305     if (vc->peer && vc->peer->info->link_status_changed) {
1306         vc->peer->info->link_status_changed(vc->peer);
1307     }
1308     return 0;
1309 }
1310
1311 void net_cleanup(void)
1312 {
1313     VLANState *vlan;
1314     VLANClientState *vc, *next_vc;
1315
1316     QTAILQ_FOREACH(vlan, &vlans, next) {
1317         QTAILQ_FOREACH_SAFE(vc, &vlan->clients, next, next_vc) {
1318             qemu_del_vlan_client(vc);
1319         }
1320     }
1321
1322     QTAILQ_FOREACH_SAFE(vc, &non_vlan_clients, next, next_vc) {
1323         qemu_del_vlan_client(vc);
1324     }
1325 }
1326
1327 void net_check_clients(void)
1328 {
1329     VLANState *vlan;
1330     VLANClientState *vc;
1331     int i;
1332
1333     /* Don't warn about the default network setup that you get if
1334      * no command line -net or -netdev options are specified. There
1335      * are two cases that we would otherwise complain about:
1336      * (1) board doesn't support a NIC but the implicit "-net nic"
1337      * requested one
1338      * (2) CONFIG_SLIRP not set, in which case the implicit "-net nic"
1339      * sets up a nic that isn't connected to anything.
1340      */
1341     if (default_net) {
1342         return;
1343     }
1344
1345     QTAILQ_FOREACH(vlan, &vlans, next) {
1346         int has_nic = 0, has_host_dev = 0;
1347
1348         QTAILQ_FOREACH(vc, &vlan->clients, next) {
1349             switch (vc->info->type) {
1350             case NET_CLIENT_TYPE_NIC:
1351                 has_nic = 1;
1352                 break;
1353             case NET_CLIENT_TYPE_USER:
1354             case NET_CLIENT_TYPE_TAP:
1355             case NET_CLIENT_TYPE_SOCKET:
1356             case NET_CLIENT_TYPE_VDE:
1357                 has_host_dev = 1;
1358                 break;
1359             default: ;
1360             }
1361         }
1362         if (has_host_dev && !has_nic)
1363             fprintf(stderr, "Warning: vlan %d with no nics\n", vlan->id);
1364         if (has_nic && !has_host_dev)
1365             fprintf(stderr,
1366                     "Warning: vlan %d is not connected to host network\n",
1367                     vlan->id);
1368     }
1369     QTAILQ_FOREACH(vc, &non_vlan_clients, next) {
1370         if (!vc->peer) {
1371             fprintf(stderr, "Warning: %s %s has no peer\n",
1372                     vc->info->type == NET_CLIENT_TYPE_NIC ? "nic" : "netdev",
1373                     vc->name);
1374         }
1375     }
1376
1377     /* Check that all NICs requested via -net nic actually got created.
1378      * NICs created via -device don't need to be checked here because
1379      * they are always instantiated.
1380      */
1381     for (i = 0; i < MAX_NICS; i++) {
1382         NICInfo *nd = &nd_table[i];
1383         if (nd->used && !nd->instantiated) {
1384             fprintf(stderr, "Warning: requested NIC (%s, model %s) "
1385                     "was not created (not supported by this machine?)\n",
1386                     nd->name ? nd->name : "anonymous",
1387                     nd->model ? nd->model : "unspecified");
1388         }
1389     }
1390 }
1391
1392 static int net_init_client(QemuOpts *opts, void *dummy)
1393 {
1394     if (net_client_init(NULL, opts, 0) < 0)
1395         return -1;
1396     return 0;
1397 }
1398
1399 static int net_init_netdev(QemuOpts *opts, void *dummy)
1400 {
1401     return net_client_init(NULL, opts, 1);
1402 }
1403
1404 int net_init_clients(void)
1405 {
1406     QemuOptsList *net = qemu_find_opts("net");
1407
1408     if (default_net) {
1409         /* if no clients, we use a default config */
1410         qemu_opts_set(net, NULL, "type", "nic");
1411 #ifdef CONFIG_SLIRP
1412         qemu_opts_set(net, NULL, "type", "user");
1413 #endif
1414     }
1415
1416     QTAILQ_INIT(&vlans);
1417     QTAILQ_INIT(&non_vlan_clients);
1418
1419     if (qemu_opts_foreach(qemu_find_opts("netdev"), net_init_netdev, NULL, 1) == -1)
1420         return -1;
1421
1422     if (qemu_opts_foreach(net, net_init_client, NULL, 1) == -1) {
1423         return -1;
1424     }
1425
1426     return 0;
1427 }
1428
1429 int net_client_parse(QemuOptsList *opts_list, const char *optarg)
1430 {
1431 #if defined(CONFIG_SLIRP)
1432     int ret;
1433     if (net_slirp_parse_legacy(opts_list, optarg, &ret)) {
1434         return ret;
1435     }
1436 #endif
1437
1438     if (!qemu_opts_parse(opts_list, optarg, 1)) {
1439         return -1;
1440     }
1441
1442     default_net = 0;
1443     return 0;
1444 }