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