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/hub.h"
  34 #include "net/util.h"
  35 #include "monitor.h"
  36 #include "qemu-common.h"
  37 #include "qemu_socket.h"
  38 #include "qmp-commands.h"
  39 #include "hw/qdev.h"
  40 #include "iov.h"
  41 #include "qapi-visit.h"
  42 #include "qapi/opts-visitor.h"
  43 #include "qapi/qapi-dealloc-visitor.h"
  44
  45 /* Net bridge is currently not supported for W32. */
  46 #if !defined(_WIN32)
  47 # define CONFIG_NET_BRIDGE
  48 #endif
  49
  50 static QTAILQ_HEAD(, NetClientState) net_clients;
  51
  52 int default_net = 1;
  53
  54 /***********************************************************/
  55 /* network device redirectors */
  56
  57 #if defined(DEBUG_NET)
  58 static void hex_dump(FILE *f, const uint8_t *buf, int size)
  59 {
  60     int len, i, j, c;
  61
  62     for(i=0;i<size;i+=16) {
  63         len = size - i;
  64         if (len > 16)
  65             len = 16;
  66         fprintf(f, "%08x ", i);
  67         for(j=0;j<16;j++) {
  68             if (j < len)
  69                 fprintf(f, " %02x", buf[i+j]);
  70             else
  71                 fprintf(f, "   ");
  72         }
  73         fprintf(f, " ");
  74         for(j=0;j<len;j++) {
  75             c = buf[i+j];
  76             if (c < ' ' || c > '~')
  77                 c = '.';
  78             fprintf(f, "%c", c);
  79         }
  80         fprintf(f, "\n");
  81     }
  82 }
  83 #endif
  84
  85 static int get_str_sep(char *buf, int buf_size, const char **pp, int sep)
  86 {
  87     const char *p, *p1;
  88     int len;
  89     p = *pp;
  90     p1 = strchr(p, sep);
  91     if (!p1)
  92         return -1;
  93     len = p1 - p;
  94     p1++;
  95     if (buf_size > 0) {
  96         if (len > buf_size - 1)
  97             len = buf_size - 1;
  98         memcpy(buf, p, len);
  99         buf[len] = '\0';
 100     }
 101     *pp = p1;
 102     return 0;
 103 }
 104
 105 int parse_host_port(struct sockaddr_in *saddr, const char *str)
 106 {
 107     char buf[512];
 108     struct hostent *he;
 109     const char *p, *r;
 110     int port;
 111
 112     p = str;
 113     if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
 114         return -1;
 115     saddr->sin_family = AF_INET;
 116     if (buf[0] == '\0') {
 117         saddr->sin_addr.s_addr = 0;
 118     } else {
 119         if (qemu_isdigit(buf[0])) {
 120             if (!inet_aton(buf, &saddr->sin_addr))
 121                 return -1;
 122         } else {
 123             if ((he = gethostbyname(buf)) == NULL)
 124                 return - 1;
 125             saddr->sin_addr = *(struct in_addr *)he->h_addr;
 126         }
 127     }
 128     port = strtol(p, (char **)&r, 0);
 129     if (r == p)
 130         return -1;
 131     saddr->sin_port = htons(port);
 132     return 0;
 133 }
 134
 135 void qemu_format_nic_info_str(NetClientState *nc, uint8_t macaddr[6])
 136 {
 137     snprintf(nc->info_str, sizeof(nc->info_str),
 138              "model=%s,macaddr=%02x:%02x:%02x:%02x:%02x:%02x",
 139              nc->model,
 140              macaddr[0], macaddr[1], macaddr[2],
 141              macaddr[3], macaddr[4], macaddr[5]);
 142 }
 143
 144 void qemu_macaddr_default_if_unset(MACAddr *macaddr)
 145 {
 146     static int index = 0;
 147     static const MACAddr zero = { .a = { 0,0,0,0,0,0 } };
 148
 149     if (memcmp(macaddr, &zero, sizeof(zero)) != 0)
 150         return;
 151     macaddr->a[0] = 0x52;
 152     macaddr->a[1] = 0x54;
 153     macaddr->a[2] = 0x00;
 154     macaddr->a[3] = 0x12;
 155     macaddr->a[4] = 0x34;
 156     macaddr->a[5] = 0x56 + index++;
 157 }
 158
 159 /**
 160  * Generate a name for net client
 161  *
 162  * Only net clients created with the legacy -net option need this.  Naming is
 163  * mandatory for net clients created with -netdev.
 164  */
 165 static char *assign_name(NetClientState *nc1, const char *model)
 166 {
 167     NetClientState *nc;
 168     char buf[256];
 169     int id = 0;
 170
 171     QTAILQ_FOREACH(nc, &net_clients, next) {
 172         if (nc == nc1) {
 173             continue;
 174         }
 175         /* For compatibility only bump id for net clients on a vlan */
 176         if (strcmp(nc->model, model) == 0 &&
 177             net_hub_id_for_client(nc, NULL) == 0) {
 178             id++;
 179         }
 180     }
 181
 182     snprintf(buf, sizeof(buf), "%s.%d", model, id);
 183
 184     return g_strdup(buf);
 185 }
 186
 187 static ssize_t qemu_deliver_packet(NetClientState *sender,
 188                                    unsigned flags,
 189                                    const uint8_t *data,
 190                                    size_t size,
 191                                    void *opaque);
 192 static ssize_t qemu_deliver_packet_iov(NetClientState *sender,
 193                                        unsigned flags,
 194                                        const struct iovec *iov,
 195                                        int iovcnt,
 196                                        void *opaque);
 197
 198 NetClientState *qemu_new_net_client(NetClientInfo *info,
 199                                     NetClientState *peer,
 200                                     const char *model,
 201                                     const char *name)
 202 {
 203     NetClientState *nc;
 204
 205     assert(info->size >= sizeof(NetClientState));
 206
 207     nc = g_malloc0(info->size);
 208
 209     nc->info = info;
 210     nc->model = g_strdup(model);
 211     if (name) {
 212         nc->name = g_strdup(name);
 213     } else {
 214         nc->name = assign_name(nc, model);
 215     }
 216
 217     if (peer) {
 218         assert(!peer->peer);
 219         nc->peer = peer;
 220         peer->peer = nc;
 221     }
 222     QTAILQ_INSERT_TAIL(&net_clients, nc, next);
 223
 224     nc->send_queue = qemu_new_net_queue(qemu_deliver_packet,
 225                                         qemu_deliver_packet_iov,
 226                                         nc);
 227
 228     return nc;
 229 }
 230
 231 NICState *qemu_new_nic(NetClientInfo *info,
 232                        NICConf *conf,
 233                        const char *model,
 234                        const char *name,
 235                        void *opaque)
 236 {
 237     NetClientState *nc;
 238     NICState *nic;
 239
 240     assert(info->type == NET_CLIENT_OPTIONS_KIND_NIC);
 241     assert(info->size >= sizeof(NICState));
 242
 243     nc = qemu_new_net_client(info, conf->peer, model, name);
 244
 245     nic = DO_UPCAST(NICState, nc, nc);
 246     nic->conf = conf;
 247     nic->opaque = opaque;
 248
 249     return nic;
 250 }
 251
 252 static void qemu_cleanup_vlan_client(NetClientState *nc)
 253 {
 254     QTAILQ_REMOVE(&net_clients, nc, next);
 255
 256     if (nc->info->cleanup) {
 257         nc->info->cleanup(nc);
 258     }
 259 }
 260
 261 static void qemu_free_vlan_client(NetClientState *nc)
 262 {
 263     if (nc->send_queue) {
 264         qemu_del_net_queue(nc->send_queue);
 265     }
 266     if (nc->peer) {
 267         nc->peer->peer = NULL;
 268     }
 269     g_free(nc->name);
 270     g_free(nc->model);
 271     g_free(nc);
 272 }
 273
 274 void qemu_del_vlan_client(NetClientState *nc)
 275 {
 276     /* If there is a peer NIC, delete and cleanup client, but do not free. */
 277     if (nc->peer && nc->peer->info->type == NET_CLIENT_OPTIONS_KIND_NIC) {
 278         NICState *nic = DO_UPCAST(NICState, nc, nc->peer);
 279         if (nic->peer_deleted) {
 280             return;
 281         }
 282         nic->peer_deleted = true;
 283         /* Let NIC know peer is gone. */
 284         nc->peer->link_down = true;
 285         if (nc->peer->info->link_status_changed) {
 286             nc->peer->info->link_status_changed(nc->peer);
 287         }
 288         qemu_cleanup_vlan_client(nc);
 289         return;
 290     }
 291
 292     /* If this is a peer NIC and peer has already been deleted, free it now. */
 293     if (nc->peer && nc->info->type == NET_CLIENT_OPTIONS_KIND_NIC) {
 294         NICState *nic = DO_UPCAST(NICState, nc, nc);
 295         if (nic->peer_deleted) {
 296             qemu_free_vlan_client(nc->peer);
 297         }
 298     }
 299
 300     qemu_cleanup_vlan_client(nc);
 301     qemu_free_vlan_client(nc);
 302 }
 303
 304 void qemu_foreach_nic(qemu_nic_foreach func, void *opaque)
 305 {
 306     NetClientState *nc;
 307
 308     QTAILQ_FOREACH(nc, &net_clients, next) {
 309         if (nc->info->type == NET_CLIENT_OPTIONS_KIND_NIC) {
 310             func(DO_UPCAST(NICState, nc, nc), opaque);
 311         }
 312     }
 313 }
 314
 315 int qemu_can_send_packet(NetClientState *sender)
 316 {
 317     if (!sender->peer) {
 318         return 1;
 319     }
 320
 321     if (sender->peer->receive_disabled) {
 322         return 0;
 323     } else if (sender->peer->info->can_receive &&
 324                !sender->peer->info->can_receive(sender->peer)) {
 325         return 0;
 326     }
 327     return 1;
 328 }
 329
 330 static ssize_t qemu_deliver_packet(NetClientState *sender,
 331                                    unsigned flags,
 332                                    const uint8_t *data,
 333                                    size_t size,
 334                                    void *opaque)
 335 {
 336     NetClientState *nc = opaque;
 337     ssize_t ret;
 338
 339     if (nc->link_down) {
 340         return size;
 341     }
 342
 343     if (nc->receive_disabled) {
 344         return 0;
 345     }
 346
 347     if (flags & QEMU_NET_PACKET_FLAG_RAW && nc->info->receive_raw) {
 348         ret = nc->info->receive_raw(nc, data, size);
 349     } else {
 350         ret = nc->info->receive(nc, data, size);
 351     }
 352
 353     if (ret == 0) {
 354         nc->receive_disabled = 1;
 355     };
 356
 357     return ret;
 358 }
 359
 360 void qemu_purge_queued_packets(NetClientState *nc)
 361 {
 362     if (!nc->peer) {
 363         return;
 364     }
 365
 366     qemu_net_queue_purge(nc->peer->send_queue, nc);
 367 }
 368
 369 void qemu_flush_queued_packets(NetClientState *nc)
 370 {
 371     nc->receive_disabled = 0;
 372
 373     qemu_net_queue_flush(nc->send_queue);
 374 }
 375
 376 static ssize_t qemu_send_packet_async_with_flags(NetClientState *sender,
 377                                                  unsigned flags,
 378                                                  const uint8_t *buf, int size,
 379                                                  NetPacketSent *sent_cb)
 380 {
 381     NetQueue *queue;
 382
 383 #ifdef DEBUG_NET
 384     printf("qemu_send_packet_async:\n");
 385     hex_dump(stdout, buf, size);
 386 #endif
 387
 388     if (sender->link_down || !sender->peer) {
 389         return size;
 390     }
 391
 392     queue = sender->peer->send_queue;
 393
 394     return qemu_net_queue_send(queue, sender, flags, buf, size, sent_cb);
 395 }
 396
 397 ssize_t qemu_send_packet_async(NetClientState *sender,
 398                                const uint8_t *buf, int size,
 399                                NetPacketSent *sent_cb)
 400 {
 401     return qemu_send_packet_async_with_flags(sender, QEMU_NET_PACKET_FLAG_NONE,
 402                                              buf, size, sent_cb);
 403 }
 404
 405 void qemu_send_packet(NetClientState *nc, const uint8_t *buf, int size)
 406 {
 407     qemu_send_packet_async(nc, buf, size, NULL);
 408 }
 409
 410 ssize_t qemu_send_packet_raw(NetClientState *nc, const uint8_t *buf, int size)
 411 {
 412     return qemu_send_packet_async_with_flags(nc, QEMU_NET_PACKET_FLAG_RAW,
 413                                              buf, size, NULL);
 414 }
 415
 416 static ssize_t nc_sendv_compat(NetClientState *nc, const struct iovec *iov,
 417                                int iovcnt)
 418 {
 419     uint8_t buffer[4096];
 420     size_t offset;
 421
 422     offset = iov_to_buf(iov, iovcnt, 0, buffer, sizeof(buffer));
 423
 424     return nc->info->receive(nc, buffer, offset);
 425 }
 426
 427 static ssize_t qemu_deliver_packet_iov(NetClientState *sender,
 428                                        unsigned flags,
 429                                        const struct iovec *iov,
 430                                        int iovcnt,
 431                                        void *opaque)
 432 {
 433     NetClientState *nc = opaque;
 434
 435     if (nc->link_down) {
 436         return iov_size(iov, iovcnt);
 437     }
 438
 439     if (nc->info->receive_iov) {
 440         return nc->info->receive_iov(nc, iov, iovcnt);
 441     } else {
 442         return nc_sendv_compat(nc, iov, iovcnt);
 443     }
 444 }
 445
 446 ssize_t qemu_sendv_packet_async(NetClientState *sender,
 447                                 const struct iovec *iov, int iovcnt,
 448                                 NetPacketSent *sent_cb)
 449 {
 450     NetQueue *queue;
 451
 452     if (sender->link_down || !sender->peer) {
 453         return iov_size(iov, iovcnt);
 454     }
 455
 456     queue = sender->peer->send_queue;
 457
 458     return qemu_net_queue_send_iov(queue, sender,
 459                                    QEMU_NET_PACKET_FLAG_NONE,
 460                                    iov, iovcnt, sent_cb);
 461 }
 462
 463 ssize_t
 464 qemu_sendv_packet(NetClientState *nc, const struct iovec *iov, int iovcnt)
 465 {
 466     return qemu_sendv_packet_async(nc, iov, iovcnt, NULL);
 467 }
 468
 469 NetClientState *qemu_find_netdev(const char *id)
 470 {
 471     NetClientState *nc;
 472
 473     QTAILQ_FOREACH(nc, &net_clients, next) {
 474         if (nc->info->type == NET_CLIENT_OPTIONS_KIND_NIC)
 475             continue;
 476         if (!strcmp(nc->name, id)) {
 477             return nc;
 478         }
 479     }
 480
 481     return NULL;
 482 }
 483
 484 static int nic_get_free_idx(void)
 485 {
 486     int index;
 487
 488     for (index = 0; index < MAX_NICS; index++)
 489         if (!nd_table[index].used)
 490             return index;
 491     return -1;
 492 }
 493
 494 int qemu_show_nic_models(const char *arg, const char *const *models)
 495 {
 496     int i;
 497
 498     if (!arg || strcmp(arg, "?"))
 499         return 0;
 500
 501     fprintf(stderr, "qemu: Supported NIC models: ");
 502     for (i = 0 ; models[i]; i++)
 503         fprintf(stderr, "%s%c", models[i], models[i+1] ? ',' : '\n');
 504     return 1;
 505 }
 506
 507 void qemu_check_nic_model(NICInfo *nd, const char *model)
 508 {
 509     const char *models[2];
 510
 511     models[0] = model;
 512     models[1] = NULL;
 513
 514     if (qemu_show_nic_models(nd->model, models))
 515         exit(0);
 516     if (qemu_find_nic_model(nd, models, model) < 0)
 517         exit(1);
 518 }
 519
 520 int qemu_find_nic_model(NICInfo *nd, const char * const *models,
 521                         const char *default_model)
 522 {
 523     int i;
 524
 525     if (!nd->model)
 526         nd->model = g_strdup(default_model);
 527
 528     for (i = 0 ; models[i]; i++) {
 529         if (strcmp(nd->model, models[i]) == 0)
 530             return i;
 531     }
 532
 533     error_report("Unsupported NIC model: %s", nd->model);
 534     return -1;
 535 }
 536
 537 int net_handle_fd_param(Monitor *mon, const char *param)
 538 {
 539     int fd;
 540
 541     if (!qemu_isdigit(param[0]) && mon) {
 542
 543         fd = monitor_get_fd(mon, param);
 544         if (fd == -1) {
 545             error_report("No file descriptor named %s found", param);
 546             return -1;
 547         }
 548     } else {
 549         fd = qemu_parse_fd(param);
 550     }
 551
 552     return fd;
 553 }
 554
 555 static int net_init_nic(const NetClientOptions *opts, const char *name,
 556                         NetClientState *peer)
 557 {
 558     int idx;
 559     NICInfo *nd;
 560     const NetLegacyNicOptions *nic;
 561
 562     assert(opts->kind == NET_CLIENT_OPTIONS_KIND_NIC);
 563     nic = opts->nic;
 564
 565     idx = nic_get_free_idx();
 566     if (idx == -1 || nb_nics >= MAX_NICS) {
 567         error_report("Too Many NICs");
 568         return -1;
 569     }
 570
 571     nd = &nd_table[idx];
 572
 573     memset(nd, 0, sizeof(*nd));
 574
 575     if (nic->has_netdev) {
 576         nd->netdev = qemu_find_netdev(nic->netdev);
 577         if (!nd->netdev) {
 578             error_report("netdev '%s' not found", nic->netdev);
 579             return -1;
 580         }
 581     } else {
 582         assert(peer);
 583         nd->netdev = peer;
 584     }
 585     if (name) {
 586         nd->name = g_strdup(name);
 587     }
 588     if (nic->has_model) {
 589         nd->model = g_strdup(nic->model);
 590     }
 591     if (nic->has_addr) {
 592         nd->devaddr = g_strdup(nic->addr);
 593     }
 594
 595     if (nic->has_macaddr &&
 596         net_parse_macaddr(nd->macaddr.a, nic->macaddr) < 0) {
 597         error_report("invalid syntax for ethernet address");
 598         return -1;
 599     }
 600     qemu_macaddr_default_if_unset(&nd->macaddr);
 601
 602     if (nic->has_vectors) {
 603         if (nic->vectors > 0x7ffffff) {
 604             error_report("invalid # of vectors: %"PRIu32, nic->vectors);
 605             return -1;
 606         }
 607         nd->nvectors = nic->vectors;
 608     } else {
 609         nd->nvectors = DEV_NVECTORS_UNSPECIFIED;
 610     }
 611
 612     nd->used = 1;
 613     nb_nics++;
 614
 615     return idx;
 616 }
 617
 618
 619 static int (* const net_client_init_fun[NET_CLIENT_OPTIONS_KIND_MAX])(
 620     const NetClientOptions *opts,
 621     const char *name,
 622     NetClientState *peer) = {
 623         [NET_CLIENT_OPTIONS_KIND_NIC]       = net_init_nic,
 624 #ifdef CONFIG_SLIRP
 625         [NET_CLIENT_OPTIONS_KIND_USER]      = net_init_slirp,
 626 #endif
 627         [NET_CLIENT_OPTIONS_KIND_TAP]       = net_init_tap,
 628         [NET_CLIENT_OPTIONS_KIND_SOCKET]    = net_init_socket,
 629 #ifdef CONFIG_VDE
 630         [NET_CLIENT_OPTIONS_KIND_VDE]       = net_init_vde,
 631 #endif
 632         [NET_CLIENT_OPTIONS_KIND_DUMP]      = net_init_dump,
 633 #ifdef CONFIG_NET_BRIDGE
 634         [NET_CLIENT_OPTIONS_KIND_BRIDGE]    = net_init_bridge,
 635 #endif
 636         [NET_CLIENT_OPTIONS_KIND_HUBPORT]   = net_init_hubport,
 637 };
 638
 639
 640 static int net_client_init1(const void *object, int is_netdev, Error **errp)
 641 {
 642     union {
 643         const Netdev    *netdev;
 644         const NetLegacy *net;
 645     } u;
 646     const NetClientOptions *opts;
 647     const char *name;
 648
 649     if (is_netdev) {
 650         u.netdev = object;
 651         opts = u.netdev->opts;
 652         name = u.netdev->id;
 653
 654         switch (opts->kind) {
 655 #ifdef CONFIG_SLIRP
 656         case NET_CLIENT_OPTIONS_KIND_USER:
 657 #endif
 658         case NET_CLIENT_OPTIONS_KIND_TAP:
 659         case NET_CLIENT_OPTIONS_KIND_SOCKET:
 660 #ifdef CONFIG_VDE
 661         case NET_CLIENT_OPTIONS_KIND_VDE:
 662 #endif
 663 #ifdef CONFIG_NET_BRIDGE
 664         case NET_CLIENT_OPTIONS_KIND_BRIDGE:
 665 #endif
 666         case NET_CLIENT_OPTIONS_KIND_HUBPORT:
 667             break;
 668
 669         default:
 670             error_set(errp, QERR_INVALID_PARAMETER_VALUE, "type",
 671                       "a netdev backend type");
 672             return -1;
 673         }
 674     } else {
 675         u.net = object;
 676         opts = u.net->opts;
 677         /* missing optional values have been initialized to "all bits zero" */
 678         name = u.net->has_id ? u.net->id : u.net->name;
 679     }
 680
 681     if (net_client_init_fun[opts->kind]) {
 682         NetClientState *peer = NULL;
 683
 684         /* Do not add to a vlan if it's a -netdev or a nic with a netdev=
 685          * parameter. */
 686         if (!is_netdev &&
 687             (opts->kind != NET_CLIENT_OPTIONS_KIND_NIC ||
 688              !opts->nic->has_netdev)) {
 689             peer = net_hub_add_port(u.net->has_vlan ? u.net->vlan : 0, NULL);
 690         }
 691
 692         if (net_client_init_fun[opts->kind](opts, name, peer) < 0) {
 693             /* TODO push error reporting into init() methods */
 694             error_set(errp, QERR_DEVICE_INIT_FAILED,
 695                       NetClientOptionsKind_lookup[opts->kind]);
 696             return -1;
 697         }
 698     }
 699     return 0;
 700 }
 701
 702
 703 static void net_visit(Visitor *v, int is_netdev, void **object, Error **errp)
 704 {
 705     if (is_netdev) {
 706         visit_type_Netdev(v, (Netdev **)object, NULL, errp);
 707     } else {
 708         visit_type_NetLegacy(v, (NetLegacy **)object, NULL, errp);
 709     }
 710 }
 711
 712
 713 int net_client_init(QemuOpts *opts, int is_netdev, Error **errp)
 714 {
 715     void *object = NULL;
 716     Error *err = NULL;
 717     int ret = -1;
 718
 719     {
 720         OptsVisitor *ov = opts_visitor_new(opts);
 721
 722         net_visit(opts_get_visitor(ov), is_netdev, &object, &err);
 723         opts_visitor_cleanup(ov);
 724     }
 725
 726     if (!err) {
 727         ret = net_client_init1(object, is_netdev, &err);
 728     }
 729
 730     if (object) {
 731         QapiDeallocVisitor *dv = qapi_dealloc_visitor_new();
 732
 733         net_visit(qapi_dealloc_get_visitor(dv), is_netdev, &object, NULL);
 734         qapi_dealloc_visitor_cleanup(dv);
 735     }
 736
 737     error_propagate(errp, err);
 738     return ret;
 739 }
 740
 741
 742 static int net_host_check_device(const char *device)
 743 {
 744     int i;
 745     const char *valid_param_list[] = { "tap", "socket", "dump"
 746 #ifdef CONFIG_NET_BRIDGE
 747                                        , "bridge"
 748 #endif
 749 #ifdef CONFIG_SLIRP
 750                                        ,"user"
 751 #endif
 752 #ifdef CONFIG_VDE
 753                                        ,"vde"
 754 #endif
 755     };
 756     for (i = 0; i < sizeof(valid_param_list) / sizeof(char *); i++) {
 757         if (!strncmp(valid_param_list[i], device,
 758                      strlen(valid_param_list[i])))
 759             return 1;
 760     }
 761
 762     return 0;
 763 }
 764
 765 void net_host_device_add(Monitor *mon, const QDict *qdict)
 766 {
 767     const char *device = qdict_get_str(qdict, "device");
 768     const char *opts_str = qdict_get_try_str(qdict, "opts");
 769     Error *local_err = NULL;
 770     QemuOpts *opts;
 771
 772     if (!net_host_check_device(device)) {
 773         monitor_printf(mon, "invalid host network device %s\n", device);
 774         return;
 775     }
 776
 777     opts = qemu_opts_parse(qemu_find_opts("net"), opts_str ? opts_str : "", 0);
 778     if (!opts) {
 779         return;
 780     }
 781
 782     qemu_opt_set(opts, "type", device);
 783
 784     net_client_init(opts, 0, &local_err);
 785     if (error_is_set(&local_err)) {
 786         qerror_report_err(local_err);
 787         error_free(local_err);
 788         monitor_printf(mon, "adding host network device %s failed\n", device);
 789     }
 790 }
 791
 792 void net_host_device_remove(Monitor *mon, const QDict *qdict)
 793 {
 794     NetClientState *nc;
 795     int vlan_id = qdict_get_int(qdict, "vlan_id");
 796     const char *device = qdict_get_str(qdict, "device");
 797
 798     nc = net_hub_find_client_by_name(vlan_id, device);
 799     if (!nc) {
 800         return;
 801     }
 802     if (!net_host_check_device(nc->model)) {
 803         monitor_printf(mon, "invalid host network device %s\n", device);
 804         return;
 805     }
 806     qemu_del_vlan_client(nc);
 807 }
 808
 809 void netdev_add(QemuOpts *opts, Error **errp)
 810 {
 811     net_client_init(opts, 1, errp);
 812 }
 813
 814 int qmp_netdev_add(Monitor *mon, const QDict *qdict, QObject **ret)
 815 {
 816     Error *local_err = NULL;
 817     QemuOptsList *opts_list;
 818     QemuOpts *opts;
 819
 820     opts_list = qemu_find_opts_err("netdev", &local_err);
 821     if (error_is_set(&local_err)) {
 822         goto exit_err;
 823     }
 824
 825     opts = qemu_opts_from_qdict(opts_list, qdict, &local_err);
 826     if (error_is_set(&local_err)) {
 827         goto exit_err;
 828     }
 829
 830     netdev_add(opts, &local_err);
 831     if (error_is_set(&local_err)) {
 832         qemu_opts_del(opts);
 833         goto exit_err;
 834     }
 835
 836     return 0;
 837
 838 exit_err:
 839     qerror_report_err(local_err);
 840     error_free(local_err);
 841     return -1;
 842 }
 843
 844 void qmp_netdev_del(const char *id, Error **errp)
 845 {
 846     NetClientState *nc;
 847
 848     nc = qemu_find_netdev(id);
 849     if (!nc) {
 850         error_set(errp, QERR_DEVICE_NOT_FOUND, id);
 851         return;
 852     }
 853
 854     qemu_del_vlan_client(nc);
 855     qemu_opts_del(qemu_opts_find(qemu_find_opts_err("netdev", errp), id));
 856 }
 857
 858 static void print_net_client(Monitor *mon, NetClientState *nc)
 859 {
 860     monitor_printf(mon, "%s: type=%s,%s\n", nc->name,
 861                    NetClientOptionsKind_lookup[nc->info->type], nc->info_str);
 862 }
 863
 864 void do_info_network(Monitor *mon)
 865 {
 866     NetClientState *nc, *peer;
 867     NetClientOptionsKind type;
 868
 869     monitor_printf(mon, "Devices not on any VLAN:\n");
 870     QTAILQ_FOREACH(nc, &net_clients, next) {
 871         peer = nc->peer;
 872         type = nc->info->type;
 873         if (!peer || type == NET_CLIENT_OPTIONS_KIND_NIC) {
 874             monitor_printf(mon, "  ");
 875             print_net_client(mon, nc);
 876         } /* else it's a netdev connected to a NIC, printed with the NIC */
 877         if (peer && type == NET_CLIENT_OPTIONS_KIND_NIC) {
 878             monitor_printf(mon, "   \\ ");
 879             print_net_client(mon, peer);
 880         }
 881     }
 882     net_hub_info(mon);
 883 }
 884
 885 void qmp_set_link(const char *name, bool up, Error **errp)
 886 {
 887     NetClientState *nc = NULL;
 888
 889     QTAILQ_FOREACH(nc, &net_clients, next) {
 890         if (!strcmp(nc->name, name)) {
 891             goto done;
 892         }
 893     }
 894 done:
 895     if (!nc) {
 896         error_set(errp, QERR_DEVICE_NOT_FOUND, name);
 897         return;
 898     }
 899
 900     nc->link_down = !up;
 901
 902     if (nc->info->link_status_changed) {
 903         nc->info->link_status_changed(nc);
 904     }
 905
 906     /* Notify peer. Don't update peer link status: this makes it possible to
 907      * disconnect from host network without notifying the guest.
 908      * FIXME: is disconnected link status change operation useful?
 909      *
 910      * Current behaviour is compatible with qemu vlans where there could be
 911      * multiple clients that can still communicate with each other in
 912      * disconnected mode. For now maintain this compatibility. */
 913     if (nc->peer && nc->peer->info->link_status_changed) {
 914         nc->peer->info->link_status_changed(nc->peer);
 915     }
 916 }
 917
 918 void net_cleanup(void)
 919 {
 920     NetClientState *nc, *next_vc;
 921
 922     QTAILQ_FOREACH_SAFE(nc, &net_clients, next, next_vc) {
 923         qemu_del_vlan_client(nc);
 924     }
 925 }
 926
 927 void net_check_clients(void)
 928 {
 929     NetClientState *nc;
 930     int i;
 931
 932     /* Don't warn about the default network setup that you get if
 933      * no command line -net or -netdev options are specified. There
 934      * are two cases that we would otherwise complain about:
 935      * (1) board doesn't support a NIC but the implicit "-net nic"
 936      * requested one
 937      * (2) CONFIG_SLIRP not set, in which case the implicit "-net nic"
 938      * sets up a nic that isn't connected to anything.
 939      */
 940     if (default_net) {
 941         return;
 942     }
 943
 944     net_hub_check_clients();
 945
 946     QTAILQ_FOREACH(nc, &net_clients, next) {
 947         if (!nc->peer) {
 948             fprintf(stderr, "Warning: %s %s has no peer\n",
 949                     nc->info->type == NET_CLIENT_OPTIONS_KIND_NIC ?
 950                     "nic" : "netdev", nc->name);
 951         }
 952     }
 953
 954     /* Check that all NICs requested via -net nic actually got created.
 955      * NICs created via -device don't need to be checked here because
 956      * they are always instantiated.
 957      */
 958     for (i = 0; i < MAX_NICS; i++) {
 959         NICInfo *nd = &nd_table[i];
 960         if (nd->used && !nd->instantiated) {
 961             fprintf(stderr, "Warning: requested NIC (%s, model %s) "
 962                     "was not created (not supported by this machine?)\n",
 963                     nd->name ? nd->name : "anonymous",
 964                     nd->model ? nd->model : "unspecified");
 965         }
 966     }
 967 }
 968
 969 static int net_init_client(QemuOpts *opts, void *dummy)
 970 {
 971     Error *local_err = NULL;
 972
 973     net_client_init(opts, 0, &local_err);
 974     if (error_is_set(&local_err)) {
 975         qerror_report_err(local_err);
 976         error_free(local_err);
 977         return -1;
 978     }
 979
 980     return 0;
 981 }
 982
 983 static int net_init_netdev(QemuOpts *opts, void *dummy)
 984 {
 985     Error *local_err = NULL;
 986     int ret;
 987
 988     ret = net_client_init(opts, 1, &local_err);
 989     if (error_is_set(&local_err)) {
 990         qerror_report_err(local_err);
 991         error_free(local_err);
 992         return -1;
 993     }
 994
 995     return ret;
 996 }
 997
 998 int net_init_clients(void)
 999 {
1000     QemuOptsList *net = qemu_find_opts("net");
1001
1002     if (default_net) {
1003         /* if no clients, we use a default config */
1004         qemu_opts_set(net, NULL, "type", "nic");
1005 #ifdef CONFIG_SLIRP
1006         qemu_opts_set(net, NULL, "type", "user");
1007 #endif
1008     }
1009
1010     QTAILQ_INIT(&net_clients);
1011
1012     if (qemu_opts_foreach(qemu_find_opts("netdev"), net_init_netdev, NULL, 1) == -1)
1013         return -1;
1014
1015     if (qemu_opts_foreach(net, net_init_client, NULL, 1) == -1) {
1016         return -1;
1017     }
1018
1019     return 0;
1020 }
1021
1022 int net_client_parse(QemuOptsList *opts_list, const char *optarg)
1023 {
1024 #if defined(CONFIG_SLIRP)
1025     int ret;
1026     if (net_slirp_parse_legacy(opts_list, optarg, &ret)) {
1027         return ret;
1028     }
1029 #endif
1030
1031     if (!qemu_opts_parse(opts_list, optarg, 1)) {
1032         return -1;
1033     }
1034
1035     default_net = 0;
1036     return 0;
1037 }
1038
1039 /* From FreeBSD */
1040 /* XXX: optimize */
1041 unsigned compute_mcast_idx(const uint8_t *ep)
1042 {
1043     uint32_t crc;
1044     int carry, i, j;
1045     uint8_t b;
1046
1047     crc = 0xffffffff;
1048     for (i = 0; i < 6; i++) {
1049         b = *ep++;
1050         for (j = 0; j < 8; j++) {
1051             carry = ((crc & 0x80000000L) ? 1 : 0) ^ (b & 0x01);
1052             crc <<= 1;
1053             b >>= 1;
1054             if (carry) {
1055                 crc = ((crc ^ POLYNOMIAL) | carry);
1056             }
1057         }
1058     }
1059     return crc >> 26;
1060 }