- Fix the stupid mess we created when making this from the cmake branch
[reactos.git] / lib / drivers / lwip / src / core / netif.c
1 /**
2 * @file
3 * lwIP network interface abstraction
4 *
5 */
6
7 /*
8 * Copyright (c) 2001-2004 Swedish Institute of Computer Science.
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms, with or without modification,
12 * are permitted provided that the following conditions are met:
13 *
14 * 1. Redistributions of source code must retain the above copyright notice,
15 * this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright notice,
17 * this list of conditions and the following disclaimer in the documentation
18 * and/or other materials provided with the distribution.
19 * 3. The name of the author may not be used to endorse or promote products
20 * derived from this software without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
23 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
24 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
25 * SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
26 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
27 * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
29 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
30 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
31 * OF SUCH DAMAGE.
32 *
33 * This file is part of the lwIP TCP/IP stack.
34 *
35 * Author: Adam Dunkels <adam@sics.se>
36 *
37 */
38
39 #include "lwip/opt.h"
40
41 #include "lwip/def.h"
42 #include "lwip/ip_addr.h"
43 #include "lwip/netif.h"
44 #include "lwip/tcp_impl.h"
45 #include "lwip/snmp.h"
46 #include "lwip/igmp.h"
47 #include "netif/etharp.h"
48 #include "lwip/stats.h"
49 #if ENABLE_LOOPBACK
50 #include "lwip/sys.h"
51 #if LWIP_NETIF_LOOPBACK_MULTITHREADING
52 #include "lwip/tcpip.h"
53 #endif /* LWIP_NETIF_LOOPBACK_MULTITHREADING */
54 #endif /* ENABLE_LOOPBACK */
55
56 #if LWIP_AUTOIP
57 #include "lwip/autoip.h"
58 #endif /* LWIP_AUTOIP */
59 #if LWIP_DHCP
60 #include "lwip/dhcp.h"
61 #endif /* LWIP_DHCP */
62
63 #if LWIP_NETIF_STATUS_CALLBACK
64 #define NETIF_STATUS_CALLBACK(n) do{ if (n->status_callback) { (n->status_callback)(n); }}while(0)
65 #else
66 #define NETIF_STATUS_CALLBACK(n)
67 #endif /* LWIP_NETIF_STATUS_CALLBACK */
68
69 #if LWIP_NETIF_LINK_CALLBACK
70 #define NETIF_LINK_CALLBACK(n) do{ if (n->link_callback) { (n->link_callback)(n); }}while(0)
71 #else
72 #define NETIF_LINK_CALLBACK(n)
73 #endif /* LWIP_NETIF_LINK_CALLBACK */
74
75 struct netif *netif_list;
76 struct netif *netif_default;
77
78 #if LWIP_HAVE_LOOPIF
79 static struct netif loop_netif;
80
81 /**
82 * Initialize a lwip network interface structure for a loopback interface
83 *
84 * @param netif the lwip network interface structure for this loopif
85 * @return ERR_OK if the loopif is initialized
86 * ERR_MEM if private data couldn't be allocated
87 */
88 static err_t
89 netif_loopif_init(struct netif *netif)
90 {
91 /* initialize the snmp variables and counters inside the struct netif
92 * ifSpeed: no assumption can be made!
93 */
94 NETIF_INIT_SNMP(netif, snmp_ifType_softwareLoopback, 0);
95
96 netif->name[0] = 'l';
97 netif->name[1] = 'o';
98 netif->output = netif_loop_output;
99 return ERR_OK;
100 }
101 #endif /* LWIP_HAVE_LOOPIF */
102
103 void
104 netif_init(void)
105 {
106 #if LWIP_HAVE_LOOPIF
107 ip_addr_t loop_ipaddr, loop_netmask, loop_gw;
108 IP4_ADDR(&loop_gw, 127,0,0,1);
109 IP4_ADDR(&loop_ipaddr, 127,0,0,1);
110 IP4_ADDR(&loop_netmask, 255,0,0,0);
111
112 #if NO_SYS
113 netif_add(&loop_netif, &loop_ipaddr, &loop_netmask, &loop_gw, NULL, netif_loopif_init, ip_input);
114 #else /* NO_SYS */
115 netif_add(&loop_netif, &loop_ipaddr, &loop_netmask, &loop_gw, NULL, netif_loopif_init, tcpip_input);
116 #endif /* NO_SYS */
117 netif_set_up(&loop_netif);
118
119 #endif /* LWIP_HAVE_LOOPIF */
120 }
121
122 /**
123 * Add a network interface to the list of lwIP netifs.
124 *
125 * @param netif a pre-allocated netif structure
126 * @param ipaddr IP address for the new netif
127 * @param netmask network mask for the new netif
128 * @param gw default gateway IP address for the new netif
129 * @param state opaque data passed to the new netif
130 * @param init callback function that initializes the interface
131 * @param input callback function that is called to pass
132 * ingress packets up in the protocol layer stack.
133 *
134 * @return netif, or NULL if failed.
135 */
136 struct netif *
137 netif_add(struct netif *netif, ip_addr_t *ipaddr, ip_addr_t *netmask,
138 ip_addr_t *gw, void *state, netif_init_fn init, netif_input_fn input)
139 {
140 static u8_t netifnum = 0;
141
142 LWIP_ASSERT("No init function given", init != NULL);
143
144 /* reset new interface configuration state */
145 ip_addr_set_zero(&netif->ip_addr);
146 ip_addr_set_zero(&netif->netmask);
147 ip_addr_set_zero(&netif->gw);
148 netif->flags = 0;
149 #if LWIP_DHCP
150 /* netif not under DHCP control by default */
151 netif->dhcp = NULL;
152 #endif /* LWIP_DHCP */
153 #if LWIP_AUTOIP
154 /* netif not under AutoIP control by default */
155 netif->autoip = NULL;
156 #endif /* LWIP_AUTOIP */
157 #if LWIP_NETIF_STATUS_CALLBACK
158 netif->status_callback = NULL;
159 #endif /* LWIP_NETIF_STATUS_CALLBACK */
160 #if LWIP_NETIF_LINK_CALLBACK
161 netif->link_callback = NULL;
162 #endif /* LWIP_NETIF_LINK_CALLBACK */
163 #if LWIP_IGMP
164 netif->igmp_mac_filter = NULL;
165 #endif /* LWIP_IGMP */
166 #if ENABLE_LOOPBACK
167 netif->loop_first = NULL;
168 netif->loop_last = NULL;
169 #endif /* ENABLE_LOOPBACK */
170
171 /* remember netif specific state information data */
172 netif->state = state;
173 netif->num = netifnum++;
174 netif->input = input;
175 #if LWIP_NETIF_HWADDRHINT
176 netif->addr_hint = NULL;
177 #endif /* LWIP_NETIF_HWADDRHINT*/
178 #if ENABLE_LOOPBACK && LWIP_LOOPBACK_MAX_PBUFS
179 netif->loop_cnt_current = 0;
180 #endif /* ENABLE_LOOPBACK && LWIP_LOOPBACK_MAX_PBUFS */
181
182 netif_set_addr(netif, ipaddr, netmask, gw);
183
184 /* call user specified initialization function for netif */
185 if (init(netif) != ERR_OK) {
186 return NULL;
187 }
188
189 /* add this netif to the list */
190 netif->next = netif_list;
191 netif_list = netif;
192 snmp_inc_iflist();
193
194 #if LWIP_IGMP
195 /* start IGMP processing */
196 if (netif->flags & NETIF_FLAG_IGMP) {
197 igmp_start(netif);
198 }
199 #endif /* LWIP_IGMP */
200
201 LWIP_DEBUGF(NETIF_DEBUG, ("netif: added interface %c%c IP addr ",
202 netif->name[0], netif->name[1]));
203 ip_addr_debug_print(NETIF_DEBUG, ipaddr);
204 LWIP_DEBUGF(NETIF_DEBUG, (" netmask "));
205 ip_addr_debug_print(NETIF_DEBUG, netmask);
206 LWIP_DEBUGF(NETIF_DEBUG, (" gw "));
207 ip_addr_debug_print(NETIF_DEBUG, gw);
208 LWIP_DEBUGF(NETIF_DEBUG, ("\n"));
209 return netif;
210 }
211
212 /**
213 * Change IP address configuration for a network interface (including netmask
214 * and default gateway).
215 *
216 * @param netif the network interface to change
217 * @param ipaddr the new IP address
218 * @param netmask the new netmask
219 * @param gw the new default gateway
220 */
221 void
222 netif_set_addr(struct netif *netif, ip_addr_t *ipaddr, ip_addr_t *netmask,
223 ip_addr_t *gw)
224 {
225 netif_set_ipaddr(netif, ipaddr);
226 netif_set_netmask(netif, netmask);
227 netif_set_gw(netif, gw);
228 }
229
230 /**
231 * Remove a network interface from the list of lwIP netifs.
232 *
233 * @param netif the network interface to remove
234 */
235 void
236 netif_remove(struct netif *netif)
237 {
238 if (netif == NULL) {
239 return;
240 }
241
242 #if LWIP_IGMP
243 /* stop IGMP processing */
244 if (netif->flags & NETIF_FLAG_IGMP) {
245 igmp_stop(netif);
246 }
247 #endif /* LWIP_IGMP */
248 if (netif_is_up(netif)) {
249 /* set netif down before removing (call callback function) */
250 netif_set_down(netif);
251 }
252
253 snmp_delete_ipaddridx_tree(netif);
254
255 /* is it the first netif? */
256 if (netif_list == netif) {
257 netif_list = netif->next;
258 } else {
259 /* look for netif further down the list */
260 struct netif * tmpNetif;
261 for (tmpNetif = netif_list; tmpNetif != NULL; tmpNetif = tmpNetif->next) {
262 if (tmpNetif->next == netif) {
263 tmpNetif->next = netif->next;
264 break;
265 }
266 }
267 if (tmpNetif == NULL)
268 return; /* we didn't find any netif today */
269 }
270 snmp_dec_iflist();
271 /* this netif is default? */
272 if (netif_default == netif) {
273 /* reset default netif */
274 netif_set_default(NULL);
275 }
276 LWIP_DEBUGF( NETIF_DEBUG, ("netif_remove: removed netif\n") );
277 }
278
279 /**
280 * Find a network interface by searching for its name
281 *
282 * @param name the name of the netif (like netif->name) plus concatenated number
283 * in ascii representation (e.g. 'en0')
284 */
285 struct netif *
286 netif_find(char *name)
287 {
288 struct netif *netif;
289 u8_t num;
290
291 if (name == NULL) {
292 return NULL;
293 }
294
295 num = name[2] - '0';
296
297 for(netif = netif_list; netif != NULL; netif = netif->next) {
298 if (num == netif->num &&
299 name[0] == netif->name[0] &&
300 name[1] == netif->name[1]) {
301 LWIP_DEBUGF(NETIF_DEBUG, ("netif_find: found %c%c\n", name[0], name[1]));
302 return netif;
303 }
304 }
305 LWIP_DEBUGF(NETIF_DEBUG, ("netif_find: didn't find %c%c\n", name[0], name[1]));
306 return NULL;
307 }
308
309 /**
310 * Change the IP address of a network interface
311 *
312 * @param netif the network interface to change
313 * @param ipaddr the new IP address
314 *
315 * @note call netif_set_addr() if you also want to change netmask and
316 * default gateway
317 */
318 void
319 netif_set_ipaddr(struct netif *netif, ip_addr_t *ipaddr)
320 {
321 /* TODO: Handling of obsolete pcbs */
322 /* See: http://mail.gnu.org/archive/html/lwip-users/2003-03/msg00118.html */
323 #if LWIP_TCP
324 struct tcp_pcb *pcb;
325 struct tcp_pcb_listen *lpcb;
326
327 /* address is actually being changed? */
328 if ((ip_addr_cmp(ipaddr, &(netif->ip_addr))) == 0) {
329 /* extern struct tcp_pcb *tcp_active_pcbs; defined by tcp.h */
330 LWIP_DEBUGF(NETIF_DEBUG | LWIP_DBG_STATE, ("netif_set_ipaddr: netif address being changed\n"));
331 pcb = tcp_active_pcbs;
332 while (pcb != NULL) {
333 /* PCB bound to current local interface address? */
334 if (ip_addr_cmp(&(pcb->local_ip), &(netif->ip_addr))
335 #if LWIP_AUTOIP
336 /* connections to link-local addresses must persist (RFC3927 ch. 1.9) */
337 && !ip_addr_islinklocal(&(pcb->local_ip))
338 #endif /* LWIP_AUTOIP */
339 ) {
340 /* this connection must be aborted */
341 struct tcp_pcb *next = pcb->next;
342 LWIP_DEBUGF(NETIF_DEBUG | LWIP_DBG_STATE, ("netif_set_ipaddr: aborting TCP pcb %p\n", (void *)pcb));
343 tcp_abort(pcb);
344 pcb = next;
345 } else {
346 pcb = pcb->next;
347 }
348 }
349 for (lpcb = tcp_listen_pcbs.listen_pcbs; lpcb != NULL; lpcb = lpcb->next) {
350 /* PCB bound to current local interface address? */
351 if ((!(ip_addr_isany(&(lpcb->local_ip)))) &&
352 (ip_addr_cmp(&(lpcb->local_ip), &(netif->ip_addr)))) {
353 /* The PCB is listening to the old ipaddr and
354 * is set to listen to the new one instead */
355 ip_addr_set(&(lpcb->local_ip), ipaddr);
356 }
357 }
358 }
359 #endif
360 snmp_delete_ipaddridx_tree(netif);
361 snmp_delete_iprteidx_tree(0,netif);
362 /* set new IP address to netif */
363 ip_addr_set(&(netif->ip_addr), ipaddr);
364 snmp_insert_ipaddridx_tree(netif);
365 snmp_insert_iprteidx_tree(0,netif);
366
367 LWIP_DEBUGF(NETIF_DEBUG | LWIP_DBG_TRACE | LWIP_DBG_STATE, ("netif: IP address of interface %c%c set to %"U16_F".%"U16_F".%"U16_F".%"U16_F"\n",
368 netif->name[0], netif->name[1],
369 ip4_addr1_16(&netif->ip_addr),
370 ip4_addr2_16(&netif->ip_addr),
371 ip4_addr3_16(&netif->ip_addr),
372 ip4_addr4_16(&netif->ip_addr)));
373 }
374
375 /**
376 * Change the default gateway for a network interface
377 *
378 * @param netif the network interface to change
379 * @param gw the new default gateway
380 *
381 * @note call netif_set_addr() if you also want to change ip address and netmask
382 */
383 void
384 netif_set_gw(struct netif *netif, ip_addr_t *gw)
385 {
386 ip_addr_set(&(netif->gw), gw);
387 LWIP_DEBUGF(NETIF_DEBUG | LWIP_DBG_TRACE | LWIP_DBG_STATE, ("netif: GW address of interface %c%c set to %"U16_F".%"U16_F".%"U16_F".%"U16_F"\n",
388 netif->name[0], netif->name[1],
389 ip4_addr1_16(&netif->gw),
390 ip4_addr2_16(&netif->gw),
391 ip4_addr3_16(&netif->gw),
392 ip4_addr4_16(&netif->gw)));
393 }
394
395 /**
396 * Change the netmask of a network interface
397 *
398 * @param netif the network interface to change
399 * @param netmask the new netmask
400 *
401 * @note call netif_set_addr() if you also want to change ip address and
402 * default gateway
403 */
404 void
405 netif_set_netmask(struct netif *netif, ip_addr_t *netmask)
406 {
407 snmp_delete_iprteidx_tree(0, netif);
408 /* set new netmask to netif */
409 ip_addr_set(&(netif->netmask), netmask);
410 snmp_insert_iprteidx_tree(0, netif);
411 LWIP_DEBUGF(NETIF_DEBUG | LWIP_DBG_TRACE | LWIP_DBG_STATE, ("netif: netmask of interface %c%c set to %"U16_F".%"U16_F".%"U16_F".%"U16_F"\n",
412 netif->name[0], netif->name[1],
413 ip4_addr1_16(&netif->netmask),
414 ip4_addr2_16(&netif->netmask),
415 ip4_addr3_16(&netif->netmask),
416 ip4_addr4_16(&netif->netmask)));
417 }
418
419 /**
420 * Set a network interface as the default network interface
421 * (used to output all packets for which no specific route is found)
422 *
423 * @param netif the default network interface
424 */
425 void
426 netif_set_default(struct netif *netif)
427 {
428 if (netif == NULL) {
429 /* remove default route */
430 snmp_delete_iprteidx_tree(1, netif);
431 } else {
432 /* install default route */
433 snmp_insert_iprteidx_tree(1, netif);
434 }
435 netif_default = netif;
436 LWIP_DEBUGF(NETIF_DEBUG, ("netif: setting default interface %c%c\n",
437 netif ? netif->name[0] : '\'', netif ? netif->name[1] : '\''));
438 }
439
440 /**
441 * Bring an interface up, available for processing
442 * traffic.
443 *
444 * @note: Enabling DHCP on a down interface will make it come
445 * up once configured.
446 *
447 * @see dhcp_start()
448 */
449 void netif_set_up(struct netif *netif)
450 {
451 if (!(netif->flags & NETIF_FLAG_UP)) {
452 netif->flags |= NETIF_FLAG_UP;
453
454 #if LWIP_SNMP
455 snmp_get_sysuptime(&netif->ts);
456 #endif /* LWIP_SNMP */
457
458 NETIF_STATUS_CALLBACK(netif);
459
460 if (netif->flags & NETIF_FLAG_LINK_UP) {
461 #if LWIP_ARP
462 /* For Ethernet network interfaces, we would like to send a "gratuitous ARP" */
463 if (netif->flags & (NETIF_FLAG_ETHARP)) {
464 etharp_gratuitous(netif);
465 }
466 #endif /* LWIP_ARP */
467
468 #if LWIP_IGMP
469 /* resend IGMP memberships */
470 if (netif->flags & NETIF_FLAG_IGMP) {
471 igmp_report_groups( netif);
472 }
473 #endif /* LWIP_IGMP */
474 }
475 }
476 }
477
478 /**
479 * Bring an interface down, disabling any traffic processing.
480 *
481 * @note: Enabling DHCP on a down interface will make it come
482 * up once configured.
483 *
484 * @see dhcp_start()
485 */
486 void netif_set_down(struct netif *netif)
487 {
488 if (netif->flags & NETIF_FLAG_UP) {
489 netif->flags &= ~NETIF_FLAG_UP;
490 #if LWIP_SNMP
491 snmp_get_sysuptime(&netif->ts);
492 #endif
493
494 NETIF_STATUS_CALLBACK(netif);
495 }
496 }
497
498 #if LWIP_NETIF_STATUS_CALLBACK
499 /**
500 * Set callback to be called when interface is brought up/down
501 */
502 void netif_set_status_callback(struct netif *netif, netif_status_callback_fn status_callback)
503 {
504 if (netif) {
505 netif->status_callback = status_callback;
506 }
507 }
508 #endif /* LWIP_NETIF_STATUS_CALLBACK */
509
510 /**
511 * Called by a driver when its link goes up
512 */
513 void netif_set_link_up(struct netif *netif )
514 {
515 if (!(netif->flags & NETIF_FLAG_LINK_UP)) {
516 netif->flags |= NETIF_FLAG_LINK_UP;
517
518 #if LWIP_DHCP
519 if (netif->dhcp) {
520 dhcp_network_changed(netif);
521 }
522 #endif /* LWIP_DHCP */
523
524 #if LWIP_AUTOIP
525 if (netif->autoip) {
526 autoip_network_changed(netif);
527 }
528 #endif /* LWIP_AUTOIP */
529
530 if (netif->flags & NETIF_FLAG_UP) {
531 #if LWIP_ARP
532 /* For Ethernet network interfaces, we would like to send a "gratuitous ARP" */
533 if (netif->flags & NETIF_FLAG_ETHARP) {
534 etharp_gratuitous(netif);
535 }
536 #endif /* LWIP_ARP */
537
538 #if LWIP_IGMP
539 /* resend IGMP memberships */
540 if (netif->flags & NETIF_FLAG_IGMP) {
541 igmp_report_groups( netif);
542 }
543 #endif /* LWIP_IGMP */
544 }
545 NETIF_LINK_CALLBACK(netif);
546 }
547 }
548
549 /**
550 * Called by a driver when its link goes down
551 */
552 void netif_set_link_down(struct netif *netif )
553 {
554 if (netif->flags & NETIF_FLAG_LINK_UP) {
555 netif->flags &= ~NETIF_FLAG_LINK_UP;
556 NETIF_LINK_CALLBACK(netif);
557 }
558 }
559
560 #if LWIP_NETIF_LINK_CALLBACK
561 /**
562 * Set callback to be called when link is brought up/down
563 */
564 void netif_set_link_callback(struct netif *netif, netif_status_callback_fn link_callback)
565 {
566 if (netif) {
567 netif->link_callback = link_callback;
568 }
569 }
570 #endif /* LWIP_NETIF_LINK_CALLBACK */
571
572 #if ENABLE_LOOPBACK
573 /**
574 * Send an IP packet to be received on the same netif (loopif-like).
575 * The pbuf is simply copied and handed back to netif->input.
576 * In multithreaded mode, this is done directly since netif->input must put
577 * the packet on a queue.
578 * In callback mode, the packet is put on an internal queue and is fed to
579 * netif->input by netif_poll().
580 *
581 * @param netif the lwip network interface structure
582 * @param p the (IP) packet to 'send'
583 * @param ipaddr the ip address to send the packet to (not used)
584 * @return ERR_OK if the packet has been sent
585 * ERR_MEM if the pbuf used to copy the packet couldn't be allocated
586 */
587 err_t
588 netif_loop_output(struct netif *netif, struct pbuf *p,
589 ip_addr_t *ipaddr)
590 {
591 struct pbuf *r;
592 err_t err;
593 struct pbuf *last;
594 #if LWIP_LOOPBACK_MAX_PBUFS
595 u8_t clen = 0;
596 #endif /* LWIP_LOOPBACK_MAX_PBUFS */
597 /* If we have a loopif, SNMP counters are adjusted for it,
598 * if not they are adjusted for 'netif'. */
599 #if LWIP_SNMP
600 #if LWIP_HAVE_LOOPIF
601 struct netif *stats_if = &loop_netif;
602 #else /* LWIP_HAVE_LOOPIF */
603 struct netif *stats_if = netif;
604 #endif /* LWIP_HAVE_LOOPIF */
605 #endif /* LWIP_SNMP */
606 SYS_ARCH_DECL_PROTECT(lev);
607 LWIP_UNUSED_ARG(ipaddr);
608
609 /* Allocate a new pbuf */
610 r = pbuf_alloc(PBUF_LINK, p->tot_len, PBUF_RAM);
611 if (r == NULL) {
612 LINK_STATS_INC(link.memerr);
613 LINK_STATS_INC(link.drop);
614 snmp_inc_ifoutdiscards(stats_if);
615 return ERR_MEM;
616 }
617 #if LWIP_LOOPBACK_MAX_PBUFS
618 clen = pbuf_clen(r);
619 /* check for overflow or too many pbuf on queue */
620 if(((netif->loop_cnt_current + clen) < netif->loop_cnt_current) ||
621 ((netif->loop_cnt_current + clen) > LWIP_LOOPBACK_MAX_PBUFS)) {
622 pbuf_free(r);
623 LINK_STATS_INC(link.memerr);
624 LINK_STATS_INC(link.drop);
625 snmp_inc_ifoutdiscards(stats_if);
626 return ERR_MEM;
627 }
628 netif->loop_cnt_current += clen;
629 #endif /* LWIP_LOOPBACK_MAX_PBUFS */
630
631 /* Copy the whole pbuf queue p into the single pbuf r */
632 if ((err = pbuf_copy(r, p)) != ERR_OK) {
633 pbuf_free(r);
634 LINK_STATS_INC(link.memerr);
635 LINK_STATS_INC(link.drop);
636 snmp_inc_ifoutdiscards(stats_if);
637 return err;
638 }
639
640 /* Put the packet on a linked list which gets emptied through calling
641 netif_poll(). */
642
643 /* let last point to the last pbuf in chain r */
644 for (last = r; last->next != NULL; last = last->next);
645
646 SYS_ARCH_PROTECT(lev);
647 if(netif->loop_first != NULL) {
648 LWIP_ASSERT("if first != NULL, last must also be != NULL", netif->loop_last != NULL);
649 netif->loop_last->next = r;
650 netif->loop_last = last;
651 } else {
652 netif->loop_first = r;
653 netif->loop_last = last;
654 }
655 SYS_ARCH_UNPROTECT(lev);
656
657 LINK_STATS_INC(link.xmit);
658 snmp_add_ifoutoctets(stats_if, p->tot_len);
659 snmp_inc_ifoutucastpkts(stats_if);
660
661 #if LWIP_NETIF_LOOPBACK_MULTITHREADING
662 /* For multithreading environment, schedule a call to netif_poll */
663 tcpip_callback((tcpip_callback_fn)netif_poll, netif);
664 #endif /* LWIP_NETIF_LOOPBACK_MULTITHREADING */
665
666 return ERR_OK;
667 }
668
669 /**
670 * Call netif_poll() in the main loop of your application. This is to prevent
671 * reentering non-reentrant functions like tcp_input(). Packets passed to
672 * netif_loop_output() are put on a list that is passed to netif->input() by
673 * netif_poll().
674 */
675 void
676 netif_poll(struct netif *netif)
677 {
678 struct pbuf *in;
679 /* If we have a loopif, SNMP counters are adjusted for it,
680 * if not they are adjusted for 'netif'. */
681 #if LWIP_SNMP
682 #if LWIP_HAVE_LOOPIF
683 struct netif *stats_if = &loop_netif;
684 #else /* LWIP_HAVE_LOOPIF */
685 struct netif *stats_if = netif;
686 #endif /* LWIP_HAVE_LOOPIF */
687 #endif /* LWIP_SNMP */
688 SYS_ARCH_DECL_PROTECT(lev);
689
690 do {
691 /* Get a packet from the list. With SYS_LIGHTWEIGHT_PROT=1, this is protected */
692 SYS_ARCH_PROTECT(lev);
693 in = netif->loop_first;
694 if (in != NULL) {
695 struct pbuf *in_end = in;
696 #if LWIP_LOOPBACK_MAX_PBUFS
697 u8_t clen = pbuf_clen(in);
698 /* adjust the number of pbufs on queue */
699 LWIP_ASSERT("netif->loop_cnt_current underflow",
700 ((netif->loop_cnt_current - clen) < netif->loop_cnt_current));
701 netif->loop_cnt_current -= clen;
702 #endif /* LWIP_LOOPBACK_MAX_PBUFS */
703 while (in_end->len != in_end->tot_len) {
704 LWIP_ASSERT("bogus pbuf: len != tot_len but next == NULL!", in_end->next != NULL);
705 in_end = in_end->next;
706 }
707 /* 'in_end' now points to the last pbuf from 'in' */
708 if (in_end == netif->loop_last) {
709 /* this was the last pbuf in the list */
710 netif->loop_first = netif->loop_last = NULL;
711 } else {
712 /* pop the pbuf off the list */
713 netif->loop_first = in_end->next;
714 LWIP_ASSERT("should not be null since first != last!", netif->loop_first != NULL);
715 }
716 /* De-queue the pbuf from its successors on the 'loop_' list. */
717 in_end->next = NULL;
718 }
719 SYS_ARCH_UNPROTECT(lev);
720
721 if (in != NULL) {
722 LINK_STATS_INC(link.recv);
723 snmp_add_ifinoctets(stats_if, in->tot_len);
724 snmp_inc_ifinucastpkts(stats_if);
725 /* loopback packets are always IP packets! */
726 if (ip_input(in, netif) != ERR_OK) {
727 pbuf_free(in);
728 }
729 /* Don't reference the packet any more! */
730 in = NULL;
731 }
732 /* go on while there is a packet on the list */
733 } while (netif->loop_first != NULL);
734 }
735
736 #if !LWIP_NETIF_LOOPBACK_MULTITHREADING
737 /**
738 * Calls netif_poll() for every netif on the netif_list.
739 */
740 void
741 netif_poll_all(void)
742 {
743 struct netif *netif = netif_list;
744 /* loop through netifs */
745 while (netif != NULL) {
746 netif_poll(netif);
747 /* proceed to next network interface */
748 netif = netif->next;
749 }
750 }
751 #endif /* !LWIP_NETIF_LOOPBACK_MULTITHREADING */
752 #endif /* ENABLE_LOOPBACK */