src/api/tcpip.c

   1 /*
   2  * Copyright (c) 2001-2004 Swedish Institute of Computer Science.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without modification,
   6  * are permitted provided that the following conditions are met:
   7  *
   8  * 1. Redistributions of source code must retain the above copyright notice,
   9  *    this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright notice,
  11  *    this list of conditions and the following disclaimer in the documentation
  12  *    and/or other materials provided with the distribution.
  13  * 3. The name of the author may not be used to endorse or promote products
  14  *    derived from this software without specific prior written permission.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
  17  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  18  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
  19  * SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  20  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
  21  * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  22  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  23  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  24  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
  25  * OF SUCH DAMAGE.
  26  *
  27  * This file is part of the lwIP TCP/IP stack.
  28  *
  29  * Author: Adam Dunkels <adam@sics.se>
  30  *
  31  */
  32
  33 #include "lwip/opt.h"
  34
  35 #include "lwip/sys.h"
  36
  37 #include "lwip/memp.h"
  38 #include "lwip/pbuf.h"
  39
  40 #include "netif/etharp.h"
  41
  42 #include "lwip/ip.h"
  43 #include "lwip/ip_frag.h"
  44 #include "lwip/udp.h"
  45 #include "lwip/tcp.h"
  46
  47 #include "lwip/tcpip.h"
  48
  49 static void (* tcpip_init_done)(void *arg) = NULL;
  50 static void *tcpip_init_done_arg;
  51 static sys_mbox_t mbox;
  52
  53 #if LWIP_TCP
  54 static int tcpip_tcp_timer_active = 0;
  55
  56 static void
  57 tcpip_tcp_timer(void *arg)
  58 {
  59   (void)arg;
  60
  61   /* call TCP timer handler */
  62   tcp_tmr();
  63   /* timer still needed? */
  64   if (tcp_active_pcbs || tcp_tw_pcbs) {
  65     /* restart timer */
  66     sys_timeout( TCP_TMR_INTERVAL, tcpip_tcp_timer, NULL);
  67   } else {
  68     /* disable timer */
  69     tcpip_tcp_timer_active = 0;
  70   }
  71 }
  72
  73 #if !NO_SYS
  74 void
  75 tcp_timer_needed(void)
  76 {
  77   /* timer is off but needed again? */
  78   if (!tcpip_tcp_timer_active && (tcp_active_pcbs || tcp_tw_pcbs)) {
  79     /* enable and start timer */
  80     tcpip_tcp_timer_active = 1;
  81     sys_timeout( TCP_TMR_INTERVAL, tcpip_tcp_timer, NULL);
  82   }
  83 }
  84 #endif /* !NO_SYS */
  85 #endif /* LWIP_TCP */
  86
  87 #if IP_REASSEMBLY
  88 static void
  89 ip_timer(void *data)
  90 {
  91   LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip: ip_reass_tmr()\n"));
  92   ip_reass_tmr();
  93   sys_timeout( IP_TMR_INTERVAL, ip_timer, NULL);
  94 }
  95 #endif
  96
  97 static void
  98 arp_timer(void *arg)
  99 {
 100   LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip: etharp_tmr()\n"));
 101   etharp_tmr();
 102   sys_timeout( ARP_TMR_INTERVAL, arp_timer, NULL);
 103 }
 104
 105 #if ETHARP_TCPIP_ETHINPUT
 106 static void
 107 ethernet_input(struct pbuf *p, struct netif *netif)
 108 {
 109   struct eth_hdr* ethhdr;
 110
 111   /* points to packet payload, which starts with an Ethernet header */
 112   ethhdr = p->payload;
 113
 114   switch (htons(ethhdr->type)) {
 115     /* IP packet? */
 116     case ETHTYPE_IP:
 117       #if ETHARP_TRUST_IP_MAC
 118       /* update ARP table */
 119       etharp_ip_input( netif, p);
 120       #endif
 121       /* skip Ethernet header */
 122       pbuf_header(p, -sizeof(struct eth_hdr));
 123       /* pass to IP layer */
 124       ip_input(p, netif);
 125       break;
 126
 127     case ETHTYPE_ARP:
 128       /* pass p to ARP module  */
 129       etharp_arp_input(netif, (struct eth_addr*)(netif->hwaddr), p);
 130       break;
 131
 132     default:
 133       pbuf_free(p);
 134       p = NULL;
 135       break;
 136   }
 137 }
 138 #endif /* ETHARP_TCPIP_ETHINPUT */
 139
 140 static void
 141 tcpip_thread(void *arg)
 142 {
 143   struct tcpip_msg *msg;
 144
 145 #if IP_REASSEMBLY
 146   sys_timeout( IP_TMR_INTERVAL, ip_timer, NULL);
 147 #endif
 148   sys_timeout( ARP_TMR_INTERVAL, arp_timer, NULL);
 149
 150   if (tcpip_init_done != NULL) {
 151     tcpip_init_done(tcpip_init_done_arg);
 152   }
 153
 154   while (1) {                          /* MAIN Loop */
 155     sys_mbox_fetch(mbox, (void *)&msg, 0);
 156     switch (msg->type) {
 157     case TCPIP_MSG_API:
 158       LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip_thread: API message %p\n", (void *)msg));
 159       api_msg_input(msg->msg.apimsg);
 160       break;
 161
 162 #if ETHARP_TCPIP_INPUT
 163     case TCPIP_MSG_INPUT:
 164       LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip_thread: IP packet %p\n", (void *)msg));
 165       ip_input(msg->msg.inp.p, msg->msg.inp.netif);
 166       break;
 167 #endif /* ETHARP_TCPIP_INPUT */
 168
 169 #if ETHARP_TCPIP_ETHINPUT
 170     case TCPIP_MSG_ETHINPUT:
 171       LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip_thread: Ethernet packet %p\n", (void *)msg));
 172       ethernet_input(msg->msg.inp.p, msg->msg.inp.netif);
 173       break;
 174 #endif /* ETHARP_TCPIP_ETHINPUT */
 175
 176     case TCPIP_MSG_CALLBACK:
 177       LWIP_DEBUGF(TCPIP_DEBUG, ("tcpip_thread: CALLBACK %p\n", (void *)msg));
 178       msg->msg.cb.f(msg->msg.cb.ctx);
 179       break;
 180     default:
 181       break;
 182     }
 183     memp_free(MEMP_TCPIP_MSG, msg);
 184   }
 185 }
 186
 187 #if ETHARP_TCPIP_INPUT
 188 err_t
 189 tcpip_input(struct pbuf *p, struct netif *inp)
 190 {
 191   struct tcpip_msg *msg;
 192
 193   msg = memp_malloc(MEMP_TCPIP_MSG);
 194   if (msg == NULL) {
 195     pbuf_free(p);
 196     return ERR_MEM;
 197   }
 198
 199   msg->type = TCPIP_MSG_INPUT;
 200   msg->msg.inp.p = p;
 201   msg->msg.inp.netif = inp;
 202   sys_mbox_post(mbox, msg);
 203   return ERR_OK;
 204 }
 205 #endif /* ETHARP_TCPIP_INPUT */
 206
 207 #if ETHARP_TCPIP_ETHINPUT
 208 err_t
 209 tcpip_ethinput(struct pbuf *p, struct netif *inp)
 210 {
 211   struct tcpip_msg *msg;
 212
 213   msg = memp_malloc(MEMP_TCPIP_MSG);
 214   if (msg == NULL) {
 215     pbuf_free(p);
 216     return ERR_MEM;
 217   }
 218
 219   msg->type = TCPIP_MSG_ETHINPUT;
 220   msg->msg.inp.p = p;
 221   msg->msg.inp.netif = inp;
 222   sys_mbox_post(mbox, msg);
 223   return ERR_OK;
 224 }
 225 #endif /* ETHARP_TCPIP_ETHINPUT */
 226
 227 err_t
 228 tcpip_callback(void (*f)(void *ctx), void *ctx)
 229 {
 230   struct tcpip_msg *msg;
 231
 232   msg = memp_malloc(MEMP_TCPIP_MSG);
 233   if (msg == NULL) {
 234     return ERR_MEM;
 235   }
 236
 237   msg->type = TCPIP_MSG_CALLBACK;
 238   msg->msg.cb.f = f;
 239   msg->msg.cb.ctx = ctx;
 240   sys_mbox_post(mbox, msg);
 241   return ERR_OK;
 242 }
 243
 244 void
 245 tcpip_apimsg(struct api_msg *apimsg)
 246 {
 247   struct tcpip_msg *msg;
 248   msg = memp_malloc(MEMP_TCPIP_MSG);
 249   if (msg == NULL) {
 250     return;
 251   }
 252   msg->type = TCPIP_MSG_API;
 253   msg->msg.apimsg = apimsg;
 254   sys_mbox_post(mbox, msg);
 255 }
 256
 257 void
 258 tcpip_init(void (* initfunc)(void *), void *arg)
 259 {
 260   ip_init();
 261 #if LWIP_UDP
 262   udp_init();
 263 #endif
 264 #if LWIP_TCP
 265   tcp_init();
 266 #endif
 267
 268   tcpip_init_done = initfunc;
 269   tcpip_init_done_arg = arg;
 270   mbox = sys_mbox_new();
 271   sys_thread_new(tcpip_thread, NULL, TCPIP_THREAD_PRIO);
 272 }
 273
 274
 275
 276