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