git.sur5r.net Git - freertos/blob - Demo/lwIP_MCF5235_GCC/lwip/src/core/tcp.c

   1 /**\r
   2  * @file\r
   3  *\r
   4  * Transmission Control Protocol for IP\r
   5  *\r
   6  * This file contains common functions for the TCP implementation, such as functinos\r
   7  * for manipulating the data structures and the TCP timer functions. TCP functions\r
   8  * related to input and output is found in tcp_in.c and tcp_out.c respectively.\r
   9  *\r
  10  */\r
  11 \r
  12 /*\r
  13  * Copyright (c) 2001-2004 Swedish Institute of Computer Science.\r
  14  * All rights reserved. \r
  15  * \r
  16  * Redistribution and use in source and binary forms, with or without modification, \r
  17  * are permitted provided that the following conditions are met:\r
  18  *\r
  19  * 1. Redistributions of source code must retain the above copyright notice,\r
  20  *    this list of conditions and the following disclaimer.\r
  21  * 2. Redistributions in binary form must reproduce the above copyright notice,\r
  22  *    this list of conditions and the following disclaimer in the documentation\r
  23  *    and/or other materials provided with the distribution.\r
  24  * 3. The name of the author may not be used to endorse or promote products\r
  25  *    derived from this software without specific prior written permission. \r
  26  *\r
  27  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED \r
  28  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF \r
  29  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT \r
  30  * SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, \r
  31  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT \r
  32  * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS \r
  33  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN \r
  34  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING \r
  35  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY \r
  36  * OF SUCH DAMAGE.\r
  37  *\r
  38  * This file is part of the lwIP TCP/IP stack.\r
  39  * \r
  40  * Author: Adam Dunkels <adam@sics.se>\r
  41  *\r
  42  */\r
  43 \r
  44 #include <string.h>\r
  45 \r
  46 #include "lwip/opt.h"\r
  47 #include "lwip/def.h"\r
  48 #include "lwip/mem.h"\r
  49 #include "lwip/memp.h"\r
  50 \r
  51 #include "lwip/tcp.h"\r
  52 #if LWIP_TCP\r
  53 \r
  54 /* Incremented every coarse grained timer shot\r
  55    (typically every 500 ms, determined by TCP_COARSE_TIMEOUT). */\r
  56 u32_t tcp_ticks;\r
  57 const u8_t tcp_backoff[13] =\r
  58     { 1, 2, 3, 4, 5, 6, 7, 7, 7, 7, 7, 7, 7};\r
  59 \r
  60 /* The TCP PCB lists. */\r
  61 \r
  62 /** List of all TCP PCBs in LISTEN state */\r
  63 union tcp_listen_pcbs_t tcp_listen_pcbs;\r
  64 /** List of all TCP PCBs that are in a state in which\r
  65  * they accept or send data. */\r
  66 struct tcp_pcb *tcp_active_pcbs;  \r
  67 /** List of all TCP PCBs in TIME-WAIT state */\r
  68 struct tcp_pcb *tcp_tw_pcbs;\r
  69 \r
  70 struct tcp_pcb *tcp_tmp_pcb;\r
  71 \r
  72 static u8_t tcp_timer;\r
  73 static u16_t tcp_new_port(void);\r
  74 \r
  75 /**\r
  76  * Initializes the TCP layer.\r
  77  */\r
  78 void\r
  79 tcp_init(void)\r
  80 {\r
  81   /* Clear globals. */\r
  82   tcp_listen_pcbs.listen_pcbs = NULL;\r
  83   tcp_active_pcbs = NULL;\r
  84   tcp_tw_pcbs = NULL;\r
  85   tcp_tmp_pcb = NULL;\r
  86   \r
  87   /* initialize timer */\r
  88   tcp_ticks = 0;\r
  89   tcp_timer = 0;\r
  90   \r
  91 }\r
  92 \r
  93 /**\r
  94  * Called periodically to dispatch TCP timers.\r
  95  *\r
  96  */\r
  97 void\r
  98 tcp_tmr(void)\r
  99 {\r
 100   /* Call tcp_fasttmr() every 250 ms */\r
 101   tcp_fasttmr();\r
 102 \r
 103   if (++tcp_timer & 1) {\r
 104     /* Call tcp_tmr() every 500 ms, i.e., every other timer\r
 105        tcp_tmr() is called. */\r
 106     tcp_slowtmr();\r
 107   }\r
 108 }\r
 109 \r
 110 /**\r
 111  * Closes the connection held by the PCB.\r
 112  *\r
 113  */\r
 114 err_t\r
 115 tcp_close(struct tcp_pcb *pcb)\r
 116 {\r
 117   err_t err;\r
 118 \r
 119 #if TCP_DEBUG\r
 120   LWIP_DEBUGF(TCP_DEBUG, ("tcp_close: closing in state "));\r
 121   tcp_debug_print_state(pcb->state);\r
 122   LWIP_DEBUGF(TCP_DEBUG, ("\n"));\r
 123 #endif /* TCP_DEBUG */\r
 124   switch (pcb->state) {\r
 125   case CLOSED:\r
 126     /* Closing a pcb in the CLOSED state might seem erroneous,\r
 127      * however, it is in this state once allocated and as yet unused\r
 128      * and the user needs some way to free it should the need arise.\r
 129      * Calling tcp_close() with a pcb that has already been closed, (i.e. twice)\r
 130      * or for a pcb that has been used and then entered the CLOSED state \r
 131      * is erroneous, but this should never happen as the pcb has in those cases\r
 132      * been freed, and so any remaining handles are bogus. */\r
 133     err = ERR_OK;\r
 134     memp_free(MEMP_TCP_PCB, pcb);\r
 135     pcb = NULL;\r
 136     break;\r
 137   case LISTEN:\r
 138     err = ERR_OK;\r
 139     tcp_pcb_remove((struct tcp_pcb **)&tcp_listen_pcbs.pcbs, pcb);\r
 140     memp_free(MEMP_TCP_PCB_LISTEN, pcb);\r
 141     pcb = NULL;\r
 142     break;\r
 143   case SYN_SENT:\r
 144     err = ERR_OK;\r
 145     tcp_pcb_remove(&tcp_active_pcbs, pcb);\r
 146     memp_free(MEMP_TCP_PCB, pcb);\r
 147     pcb = NULL;\r
 148     break;\r
 149   case SYN_RCVD:\r
 150   case ESTABLISHED:\r
 151     err = tcp_send_ctrl(pcb, TCP_FIN);\r
 152     if (err == ERR_OK) {\r
 153       pcb->state = FIN_WAIT_1;\r
 154     }\r
 155     break;\r
 156   case CLOSE_WAIT:\r
 157     err = tcp_send_ctrl(pcb, TCP_FIN);\r
 158     if (err == ERR_OK) {\r
 159       pcb->state = LAST_ACK;\r
 160     }\r
 161     break;\r
 162   default:\r
 163     /* Has already been closed, do nothing. */\r
 164     err = ERR_OK;\r
 165     pcb = NULL;\r
 166     break;\r
 167   }\r
 168 \r
 169   if (pcb != NULL && err == ERR_OK) {\r
 170     err = tcp_output(pcb);\r
 171   }\r
 172   return err;\r
 173 }\r
 174 \r
 175 /**\r
 176  * Aborts a connection by sending a RST to the remote host and deletes\r
 177  * the local protocol control block. This is done when a connection is\r
 178  * killed because of shortage of memory.\r
 179  *\r
 180  */\r
 181 void\r
 182 tcp_abort(struct tcp_pcb *pcb)\r
 183 {\r
 184   u32_t seqno, ackno;\r
 185   u16_t remote_port, local_port;\r
 186   struct ip_addr remote_ip, local_ip;\r
 187 #if LWIP_CALLBACK_API  \r
 188   void (* errf)(void *arg, err_t err);\r
 189 #endif /* LWIP_CALLBACK_API */\r
 190   void *errf_arg;\r
 191 \r
 192   \r
 193   /* Figure out on which TCP PCB list we are, and remove us. If we\r
 194      are in an active state, call the receive function associated with\r
 195      the PCB with a NULL argument, and send an RST to the remote end. */\r
 196   if (pcb->state == TIME_WAIT) {\r
 197     tcp_pcb_remove(&tcp_tw_pcbs, pcb);\r
 198     memp_free(MEMP_TCP_PCB, pcb);\r
 199   } else {\r
 200     seqno = pcb->snd_nxt;\r
 201     ackno = pcb->rcv_nxt;\r
 202     ip_addr_set(&local_ip, &(pcb->local_ip));\r
 203     ip_addr_set(&remote_ip, &(pcb->remote_ip));\r
 204     local_port = pcb->local_port;\r
 205     remote_port = pcb->remote_port;\r
 206 #if LWIP_CALLBACK_API\r
 207     errf = pcb->errf;\r
 208 #endif /* LWIP_CALLBACK_API */\r
 209     errf_arg = pcb->callback_arg;\r
 210     tcp_pcb_remove(&tcp_active_pcbs, pcb);\r
 211     if (pcb->unacked != NULL) {\r
 212       tcp_segs_free(pcb->unacked);\r
 213     }\r
 214     if (pcb->unsent != NULL) {\r
 215       tcp_segs_free(pcb->unsent);\r
 216     }\r
 217 #if TCP_QUEUE_OOSEQ    \r
 218     if (pcb->ooseq != NULL) {\r
 219       tcp_segs_free(pcb->ooseq);\r
 220     }\r
 221 #endif /* TCP_QUEUE_OOSEQ */\r
 222     memp_free(MEMP_TCP_PCB, pcb);\r
 223     TCP_EVENT_ERR(errf, errf_arg, ERR_ABRT);\r
 224     LWIP_DEBUGF(TCP_RST_DEBUG, ("tcp_abort: sending RST\n"));\r
 225     tcp_rst(seqno, ackno, &local_ip, &remote_ip, local_port, remote_port);\r
 226   }\r
 227 }\r
 228 \r
 229 /**\r
 230  * Binds the connection to a local portnumber and IP address. If the\r
 231  * IP address is not given (i.e., ipaddr == NULL), the IP address of\r
 232  * the outgoing network interface is used instead.\r
 233  *\r
 234  */\r
 235 \r
 236 err_t\r
 237 tcp_bind(struct tcp_pcb *pcb, struct ip_addr *ipaddr, u16_t port)\r
 238 {\r
 239   struct tcp_pcb *cpcb;\r
 240 \r
 241   if (port == 0) {\r
 242     port = tcp_new_port();\r
 243   }\r
 244   /* Check if the address already is in use. */\r
 245   for(cpcb = (struct tcp_pcb *)tcp_listen_pcbs.pcbs;\r
 246       cpcb != NULL; cpcb = cpcb->next) {\r
 247     if (cpcb->local_port == port) {\r
 248       if (ip_addr_isany(&(cpcb->local_ip)) ||\r
 249         ip_addr_isany(ipaddr) ||\r
 250         ip_addr_cmp(&(cpcb->local_ip), ipaddr)) {\r
 251           return ERR_USE;\r
 252       }\r
 253     }\r
 254   }\r
 255   for(cpcb = tcp_active_pcbs;\r
 256       cpcb != NULL; cpcb = cpcb->next) {\r
 257     if (cpcb->local_port == port) {\r
 258       if (ip_addr_isany(&(cpcb->local_ip)) ||\r
 259    ip_addr_isany(ipaddr) ||\r
 260    ip_addr_cmp(&(cpcb->local_ip), ipaddr)) {\r
 261   return ERR_USE;\r
 262       }\r
 263     }\r
 264   }\r
 265 \r
 266   if (!ip_addr_isany(ipaddr)) {\r
 267     pcb->local_ip = *ipaddr;\r
 268   }\r
 269   pcb->local_port = port;\r
 270   LWIP_DEBUGF(TCP_DEBUG, ("tcp_bind: bind to port %"U16_F"\n", port));\r
 271   return ERR_OK;\r
 272 }\r
 273 #if LWIP_CALLBACK_API\r
 274 static err_t\r
 275 tcp_accept_null(void *arg, struct tcp_pcb *pcb, err_t err)\r
 276 {\r
 277   (void)arg;\r
 278   (void)pcb;\r
 279   (void)err;\r
 280 \r
 281   return ERR_ABRT;\r
 282 }\r
 283 #endif /* LWIP_CALLBACK_API */\r
 284 \r
 285 /**\r
 286  * Set the state of the connection to be LISTEN, which means that it\r
 287  * is able to accept incoming connections. The protocol control block\r
 288  * is reallocated in order to consume less memory. Setting the\r
 289  * connection to LISTEN is an irreversible process.\r
 290  *\r
 291  */\r
 292 struct tcp_pcb *\r
 293 tcp_listen(struct tcp_pcb *pcb)\r
 294 {\r
 295   struct tcp_pcb_listen *lpcb;\r
 296 \r
 297   /* already listening? */\r
 298   if (pcb->state == LISTEN) {\r
 299     return pcb;\r
 300   }\r
 301   lpcb = memp_malloc(MEMP_TCP_PCB_LISTEN);\r
 302   if (lpcb == NULL) {\r
 303     return NULL;\r
 304   }\r
 305   lpcb->callback_arg = pcb->callback_arg;\r
 306   lpcb->local_port = pcb->local_port;\r
 307   lpcb->state = LISTEN;\r
 308   lpcb->so_options = pcb->so_options;\r
 309   lpcb->so_options |= SOF_ACCEPTCONN;\r
 310   lpcb->ttl = pcb->ttl;\r
 311   lpcb->tos = pcb->tos;\r
 312   ip_addr_set(&lpcb->local_ip, &pcb->local_ip);\r
 313   memp_free(MEMP_TCP_PCB, pcb);\r
 314 #if LWIP_CALLBACK_API\r
 315   lpcb->accept = tcp_accept_null;\r
 316 #endif /* LWIP_CALLBACK_API */\r
 317   TCP_REG(&tcp_listen_pcbs.listen_pcbs, lpcb);\r
 318   return (struct tcp_pcb *)lpcb;\r
 319 }\r
 320 \r
 321 /**\r
 322  * This function should be called by the application when it has\r
 323  * processed the data. The purpose is to advertise a larger window\r
 324  * when the data has been processed.\r
 325  *\r
 326  */\r
 327 void\r
 328 tcp_recved(struct tcp_pcb *pcb, u16_t len)\r
 329 {\r
 330   if ((u32_t)pcb->rcv_wnd + len > TCP_WND) {\r
 331     pcb->rcv_wnd = TCP_WND;\r
 332   } else {\r
 333     pcb->rcv_wnd += len;\r
 334   }\r
 335   if (!(pcb->flags & TF_ACK_DELAY) &&\r
 336      !(pcb->flags & TF_ACK_NOW)) {\r
 337     /*\r
 338      * We send an ACK here (if one is not already pending, hence\r
 339      * the above tests) as tcp_recved() implies that the application\r
 340      * has processed some data, and so we can open the receiver's\r
 341      * window to allow more to be transmitted.  This could result in\r
 342      * two ACKs being sent for each received packet in some limited cases\r
 343      * (where the application is only receiving data, and is slow to\r
 344      * process it) but it is necessary to guarantee that the sender can\r
 345      * continue to transmit.\r
 346      */\r
 347     tcp_ack(pcb);\r
 348   } \r
 349   else if (pcb->flags & TF_ACK_DELAY && pcb->rcv_wnd >= TCP_WND/2) {\r
 350     /* If we can send a window update such that there is a full\r
 351      * segment available in the window, do so now.  This is sort of\r
 352      * nagle-like in its goals, and tries to hit a compromise between\r
 353      * sending acks each time the window is updated, and only sending\r
 354      * window updates when a timer expires.  The "threshold" used\r
 355      * above (currently TCP_WND/2) can be tuned to be more or less\r
 356      * aggressive  */\r
 357     tcp_ack_now(pcb);\r
 358   }\r
 359 \r
 360   LWIP_DEBUGF(TCP_DEBUG, ("tcp_recved: recveived %"U16_F" bytes, wnd %"U16_F" (%"U16_F").\n",\r
 361          len, pcb->rcv_wnd, TCP_WND - pcb->rcv_wnd));\r
 362 }\r
 363 \r
 364 /**\r
 365  * A nastly hack featuring 'goto' statements that allocates a\r
 366  * new TCP local port.\r
 367  */\r
 368 static u16_t\r
 369 tcp_new_port(void)\r
 370 {\r
 371   struct tcp_pcb *pcb;\r
 372 #ifndef TCP_LOCAL_PORT_RANGE_START\r
 373 #define TCP_LOCAL_PORT_RANGE_START 4096\r
 374 #define TCP_LOCAL_PORT_RANGE_END   0x7fff\r
 375 #endif\r
 376   static u16_t port = TCP_LOCAL_PORT_RANGE_START;\r
 377   \r
 378  again:\r
 379   if (++port > TCP_LOCAL_PORT_RANGE_END) {\r
 380     port = TCP_LOCAL_PORT_RANGE_START;\r
 381   }\r
 382   \r
 383   for(pcb = tcp_active_pcbs; pcb != NULL; pcb = pcb->next) {\r
 384     if (pcb->local_port == port) {\r
 385       goto again;\r
 386     }\r
 387   }\r
 388   for(pcb = tcp_tw_pcbs; pcb != NULL; pcb = pcb->next) {\r
 389     if (pcb->local_port == port) {\r
 390       goto again;\r
 391     }\r
 392   }\r
 393   for(pcb = (struct tcp_pcb *)tcp_listen_pcbs.pcbs; pcb != NULL; pcb = pcb->next) {\r
 394     if (pcb->local_port == port) {\r
 395       goto again;\r
 396     }\r
 397   }\r
 398   return port;\r
 399 }\r
 400 \r
 401 /**\r
 402  * Connects to another host. The function given as the "connected"\r
 403  * argument will be called when the connection has been established.\r
 404  *\r
 405  */\r
 406 err_t\r
 407 tcp_connect(struct tcp_pcb *pcb, struct ip_addr *ipaddr, u16_t port,\r
 408       err_t (* connected)(void *arg, struct tcp_pcb *tpcb, err_t err))\r
 409 {\r
 410   u32_t optdata;\r
 411   err_t ret;\r
 412   u32_t iss;\r
 413 \r
 414   LWIP_DEBUGF(TCP_DEBUG, ("tcp_connect to port %"U16_F"\n", port));\r
 415   if (ipaddr != NULL) {\r
 416     pcb->remote_ip = *ipaddr;\r
 417   } else {\r
 418     return ERR_VAL;\r
 419   }\r
 420   pcb->remote_port = port;\r
 421   if (pcb->local_port == 0) {\r
 422     pcb->local_port = tcp_new_port();\r
 423   }\r
 424   iss = tcp_next_iss();\r
 425   pcb->rcv_nxt = 0;\r
 426   pcb->snd_nxt = iss;\r
 427   pcb->lastack = iss - 1;\r
 428   pcb->snd_lbb = iss - 1;\r
 429   pcb->rcv_wnd = TCP_WND;\r
 430   pcb->snd_wnd = TCP_WND;\r
 431   pcb->mss = TCP_MSS;\r
 432   pcb->cwnd = 1;\r
 433   pcb->ssthresh = pcb->mss * 10;\r
 434   pcb->state = SYN_SENT;\r
 435 #if LWIP_CALLBACK_API  \r
 436   pcb->connected = connected;\r
 437 #endif /* LWIP_CALLBACK_API */  \r
 438   TCP_REG(&tcp_active_pcbs, pcb);\r
 439   \r
 440   /* Build an MSS option */\r
 441   optdata = htonl(((u32_t)2 << 24) | \r
 442       ((u32_t)4 << 16) | \r
 443       (((u32_t)pcb->mss / 256) << 8) |\r
 444       (pcb->mss & 255));\r
 445 \r
 446   ret = tcp_enqueue(pcb, NULL, 0, TCP_SYN, 0, (u8_t *)&optdata, 4);\r
 447   if (ret == ERR_OK) { \r
 448     tcp_output(pcb);\r
 449   }\r
 450   return ret;\r
 451 } \r
 452 \r
 453 /**\r
 454  * Called every 500 ms and implements the retransmission timer and the timer that\r
 455  * removes PCBs that have been in TIME-WAIT for enough time. It also increments\r
 456  * various timers such as the inactivity timer in each PCB.\r
 457  */\r
 458 void\r
 459 tcp_slowtmr(void)\r
 460 {\r
 461   struct tcp_pcb *pcb, *pcb2, *prev;\r
 462   u32_t eff_wnd;\r
 463   u8_t pcb_remove;      /* flag if a PCB should be removed */\r
 464   err_t err;\r
 465 \r
 466   err = ERR_OK;\r
 467 \r
 468   ++tcp_ticks;\r
 469 \r
 470   /* Steps through all of the active PCBs. */\r
 471   prev = NULL;\r
 472   pcb = tcp_active_pcbs;\r
 473   if (pcb == NULL) {\r
 474     LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: no active pcbs\n"));\r
 475   }\r
 476   while (pcb != NULL) {\r
 477     LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: processing active pcb\n"));\r
 478     LWIP_ASSERT("tcp_slowtmr: active pcb->state != CLOSED\n", pcb->state != CLOSED);\r
 479     LWIP_ASSERT("tcp_slowtmr: active pcb->state != LISTEN\n", pcb->state != LISTEN);\r
 480     LWIP_ASSERT("tcp_slowtmr: active pcb->state != TIME-WAIT\n", pcb->state != TIME_WAIT);\r
 481 \r
 482     pcb_remove = 0;\r
 483 \r
 484     if (pcb->state == SYN_SENT && pcb->nrtx == TCP_SYNMAXRTX) {\r
 485       ++pcb_remove;\r
 486       LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: max SYN retries reached\n"));\r
 487     }\r
 488     else if (pcb->nrtx == TCP_MAXRTX) {\r
 489       ++pcb_remove;\r
 490       LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: max DATA retries reached\n"));\r
 491     } else {\r
 492       ++pcb->rtime;\r
 493       if (pcb->unacked != NULL && pcb->rtime >= pcb->rto) {\r
 494 \r
 495         /* Time for a retransmission. */\r
 496         LWIP_DEBUGF(TCP_RTO_DEBUG, ("tcp_slowtmr: rtime %"U16_F" pcb->rto %"U16_F"\n",\r
 497           pcb->rtime, pcb->rto));\r
 498 \r
 499         /* Double retransmission time-out unless we are trying to\r
 500          * connect to somebody (i.e., we are in SYN_SENT). */\r
 501         if (pcb->state != SYN_SENT) {\r
 502           pcb->rto = ((pcb->sa >> 3) + pcb->sv) << tcp_backoff[pcb->nrtx];\r
 503         }\r
 504         /* Reduce congestion window and ssthresh. */\r
 505         eff_wnd = LWIP_MIN(pcb->cwnd, pcb->snd_wnd);\r
 506         pcb->ssthresh = eff_wnd >> 1;\r
 507         if (pcb->ssthresh < pcb->mss) {\r
 508           pcb->ssthresh = pcb->mss * 2;\r
 509         }\r
 510         pcb->cwnd = pcb->mss;\r
 511         LWIP_DEBUGF(TCP_CWND_DEBUG, ("tcp_slowtmr: cwnd %"U16_F" ssthresh %"U16_F"\n",\r
 512                                 pcb->cwnd, pcb->ssthresh));\r
 513  \r
 514         /* The following needs to be called AFTER cwnd is set to one mss - STJ */\r
 515         tcp_rexmit_rto(pcb);\r
 516      }\r
 517     }\r
 518     /* Check if this PCB has stayed too long in FIN-WAIT-2 */\r
 519     if (pcb->state == FIN_WAIT_2) {\r
 520       if ((u32_t)(tcp_ticks - pcb->tmr) >\r
 521         TCP_FIN_WAIT_TIMEOUT / TCP_SLOW_INTERVAL) {\r
 522         ++pcb_remove;\r
 523         LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: removing pcb stuck in FIN-WAIT-2\n"));\r
 524       }\r
 525     }\r
 526 \r
 527    /* Check if KEEPALIVE should be sent */\r
 528    if((pcb->so_options & SOF_KEEPALIVE) && ((pcb->state == ESTABLISHED) || (pcb->state == CLOSE_WAIT))) {\r
 529       if((u32_t)(tcp_ticks - pcb->tmr) > (pcb->keepalive + TCP_MAXIDLE) / TCP_SLOW_INTERVAL)  {\r
 530          LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: KEEPALIVE timeout. Aborting connection to %"U16_F".%"U16_F".%"U16_F".%"U16_F".\n",\r
 531                                  ip4_addr1(&pcb->remote_ip), ip4_addr2(&pcb->remote_ip),\r
 532                                  ip4_addr3(&pcb->remote_ip), ip4_addr4(&pcb->remote_ip)));\r
 533 \r
 534          tcp_abort(pcb);\r
 535       }\r
 536       else if((u32_t)(tcp_ticks - pcb->tmr) > (pcb->keepalive + pcb->keep_cnt * TCP_KEEPINTVL) / TCP_SLOW_INTERVAL) {\r
 537          tcp_keepalive(pcb);\r
 538          pcb->keep_cnt++;\r
 539       }\r
 540    }\r
 541 \r
 542     /* If this PCB has queued out of sequence data, but has been\r
 543        inactive for too long, will drop the data (it will eventually\r
 544        be retransmitted). */\r
 545 #if TCP_QUEUE_OOSEQ    \r
 546     if (pcb->ooseq != NULL &&\r
 547        (u32_t)tcp_ticks - pcb->tmr >=\r
 548        pcb->rto * TCP_OOSEQ_TIMEOUT) {\r
 549       tcp_segs_free(pcb->ooseq);\r
 550       pcb->ooseq = NULL;\r
 551       LWIP_DEBUGF(TCP_CWND_DEBUG, ("tcp_slowtmr: dropping OOSEQ queued data\n"));\r
 552     }\r
 553 #endif /* TCP_QUEUE_OOSEQ */\r
 554 \r
 555     /* Check if this PCB has stayed too long in SYN-RCVD */\r
 556     if (pcb->state == SYN_RCVD) {\r
 557       if ((u32_t)(tcp_ticks - pcb->tmr) >\r
 558         TCP_SYN_RCVD_TIMEOUT / TCP_SLOW_INTERVAL) {\r
 559         ++pcb_remove;\r
 560         LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: removing pcb stuck in SYN-RCVD\n"));\r
 561       }\r
 562     }\r
 563 \r
 564     /* Check if this PCB has stayed too long in LAST-ACK */\r
 565     if (pcb->state == LAST_ACK) {\r
 566       if ((u32_t)(tcp_ticks - pcb->tmr) > 2 * TCP_MSL / TCP_SLOW_INTERVAL) {\r
 567         ++pcb_remove;\r
 568         LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: removing pcb stuck in LAST-ACK\n"));\r
 569       }\r
 570     }\r
 571 \r
 572     /* If the PCB should be removed, do it. */\r
 573     if (pcb_remove) {\r
 574       tcp_pcb_purge(pcb);      \r
 575       /* Remove PCB from tcp_active_pcbs list. */\r
 576       if (prev != NULL) {\r
 577   LWIP_ASSERT("tcp_slowtmr: middle tcp != tcp_active_pcbs", pcb != tcp_active_pcbs);\r
 578         prev->next = pcb->next;\r
 579       } else {\r
 580         /* This PCB was the first. */\r
 581         LWIP_ASSERT("tcp_slowtmr: first pcb == tcp_active_pcbs", tcp_active_pcbs == pcb);\r
 582         tcp_active_pcbs = pcb->next;\r
 583       }\r
 584 \r
 585       TCP_EVENT_ERR(pcb->errf, pcb->callback_arg, ERR_ABRT);\r
 586 \r
 587       pcb2 = pcb->next;\r
 588       memp_free(MEMP_TCP_PCB, pcb);\r
 589       pcb = pcb2;\r
 590     } else {\r
 591 \r
 592       /* We check if we should poll the connection. */\r
 593       ++pcb->polltmr;\r
 594       if (pcb->polltmr >= pcb->pollinterval) {\r
 595         pcb->polltmr = 0;\r
 596         LWIP_DEBUGF(TCP_DEBUG, ("tcp_slowtmr: polling application\n"));\r
 597         TCP_EVENT_POLL(pcb, err);\r
 598         if (err == ERR_OK) {\r
 599           tcp_output(pcb);\r
 600         }\r
 601       }\r
 602       \r
 603       prev = pcb;\r
 604       pcb = pcb->next;\r
 605     }\r
 606   }\r
 607 \r
 608   \r
 609   /* Steps through all of the TIME-WAIT PCBs. */\r
 610   prev = NULL;    \r
 611   pcb = tcp_tw_pcbs;\r
 612   while (pcb != NULL) {\r
 613     LWIP_ASSERT("tcp_slowtmr: TIME-WAIT pcb->state == TIME-WAIT", pcb->state == TIME_WAIT);\r
 614     pcb_remove = 0;\r
 615 \r
 616     /* Check if this PCB has stayed long enough in TIME-WAIT */\r
 617     if ((u32_t)(tcp_ticks - pcb->tmr) > 2 * TCP_MSL / TCP_SLOW_INTERVAL) {\r
 618       ++pcb_remove;\r
 619     }\r
 620     \r
 621 \r
 622 \r
 623     /* If the PCB should be removed, do it. */\r
 624     if (pcb_remove) {\r
 625       tcp_pcb_purge(pcb);      \r
 626       /* Remove PCB from tcp_tw_pcbs list. */\r
 627       if (prev != NULL) {\r
 628   LWIP_ASSERT("tcp_slowtmr: middle tcp != tcp_tw_pcbs", pcb != tcp_tw_pcbs);\r
 629         prev->next = pcb->next;\r
 630       } else {\r
 631         /* This PCB was the first. */\r
 632         LWIP_ASSERT("tcp_slowtmr: first pcb == tcp_tw_pcbs", tcp_tw_pcbs == pcb);\r
 633         tcp_tw_pcbs = pcb->next;\r
 634       }\r
 635       pcb2 = pcb->next;\r
 636       memp_free(MEMP_TCP_PCB, pcb);\r
 637       pcb = pcb2;\r
 638     } else {\r
 639       prev = pcb;\r
 640       pcb = pcb->next;\r
 641     }\r
 642   }\r
 643 }\r
 644 \r
 645 /**\r
 646  * Is called every TCP_FAST_INTERVAL (250 ms) and sends delayed ACKs.\r
 647  */\r
 648 void\r
 649 tcp_fasttmr(void)\r
 650 {\r
 651   struct tcp_pcb *pcb;\r
 652 \r
 653   /* send delayed ACKs */  \r
 654   for(pcb = tcp_active_pcbs; pcb != NULL; pcb = pcb->next) {\r
 655     if (pcb->flags & TF_ACK_DELAY) {\r
 656       LWIP_DEBUGF(TCP_DEBUG, ("tcp_fasttmr: delayed ACK\n"));\r
 657       tcp_ack_now(pcb);\r
 658       pcb->flags &= ~(TF_ACK_DELAY | TF_ACK_NOW);\r
 659     }\r
 660   }\r
 661 }\r
 662 \r
 663 /**\r
 664  * Deallocates a list of TCP segments (tcp_seg structures).\r
 665  *\r
 666  */\r
 667 u8_t\r
 668 tcp_segs_free(struct tcp_seg *seg)\r
 669 {\r
 670   u8_t count = 0;\r
 671   struct tcp_seg *next;\r
 672   while (seg != NULL) {\r
 673     next = seg->next;\r
 674     count += tcp_seg_free(seg);\r
 675     seg = next;\r
 676   }\r
 677   return count;\r
 678 }\r
 679 \r
 680 /**\r
 681  * Frees a TCP segment.\r
 682  *\r
 683  */\r
 684 u8_t\r
 685 tcp_seg_free(struct tcp_seg *seg)\r
 686 {\r
 687   u8_t count = 0;\r
 688   \r
 689   if (seg != NULL) {\r
 690     if (seg->p != NULL) {\r
 691       count = pbuf_free(seg->p);\r
 692 #if TCP_DEBUG\r
 693       seg->p = NULL;\r
 694 #endif /* TCP_DEBUG */\r
 695     }\r
 696     memp_free(MEMP_TCP_SEG, seg);\r
 697   }\r
 698   return count;\r
 699 }\r
 700 \r
 701 /**\r
 702  * Sets the priority of a connection.\r
 703  *\r
 704  */\r
 705 void\r
 706 tcp_setprio(struct tcp_pcb *pcb, u8_t prio)\r
 707 {\r
 708   pcb->prio = prio;\r
 709 }\r
 710 #if TCP_QUEUE_OOSEQ\r
 711 \r
 712 /**\r
 713  * Returns a copy of the given TCP segment.\r
 714  *\r
 715  */ \r
 716 struct tcp_seg *\r
 717 tcp_seg_copy(struct tcp_seg *seg)\r
 718 {\r
 719   struct tcp_seg *cseg;\r
 720 \r
 721   cseg = memp_malloc(MEMP_TCP_SEG);\r
 722   if (cseg == NULL) {\r
 723     return NULL;\r
 724   }\r
 725   memcpy((u8_t *)cseg, (const u8_t *)seg, sizeof(struct tcp_seg)); \r
 726   pbuf_ref(cseg->p);\r
 727   return cseg;\r
 728 }\r
 729 #endif\r
 730 \r
 731 #if LWIP_CALLBACK_API\r
 732 static err_t\r
 733 tcp_recv_null(void *arg, struct tcp_pcb *pcb, struct pbuf *p, err_t err)\r
 734 {\r
 735   arg = arg;\r
 736   if (p != NULL) {\r
 737     pbuf_free(p);\r
 738   } else if (err == ERR_OK) {\r
 739     return tcp_close(pcb);\r
 740   }\r
 741   return ERR_OK;\r
 742 }\r
 743 #endif /* LWIP_CALLBACK_API */\r
 744 \r
 745 static void\r
 746 tcp_kill_prio(u8_t prio)\r
 747 {\r
 748   struct tcp_pcb *pcb, *inactive;\r
 749   u32_t inactivity;\r
 750   u8_t mprio;\r
 751 \r
 752 \r
 753   mprio = TCP_PRIO_MAX;\r
 754   \r
 755   /* We kill the oldest active connection that has lower priority than\r
 756      prio. */\r
 757   inactivity = 0;\r
 758   inactive = NULL;\r
 759   for(pcb = tcp_active_pcbs; pcb != NULL; pcb = pcb->next) {\r
 760     if (pcb->prio <= prio &&\r
 761        pcb->prio <= mprio &&\r
 762        (u32_t)(tcp_ticks - pcb->tmr) >= inactivity) {\r
 763       inactivity = tcp_ticks - pcb->tmr;\r
 764       inactive = pcb;\r
 765       mprio = pcb->prio;\r
 766     }\r
 767   }\r
 768   if (inactive != NULL) {\r
 769     LWIP_DEBUGF(TCP_DEBUG, ("tcp_kill_prio: killing oldest PCB %p (%"S32_F")\n",\r
 770            (void *)inactive, inactivity));\r
 771     tcp_abort(inactive);\r
 772   }      \r
 773 }\r
 774 \r
 775 \r
 776 static void\r
 777 tcp_kill_timewait(void)\r
 778 {\r
 779   struct tcp_pcb *pcb, *inactive;\r
 780   u32_t inactivity;\r
 781 \r
 782   inactivity = 0;\r
 783   inactive = NULL;\r
 784   for(pcb = tcp_tw_pcbs; pcb != NULL; pcb = pcb->next) {\r
 785     if ((u32_t)(tcp_ticks - pcb->tmr) >= inactivity) {\r
 786       inactivity = tcp_ticks - pcb->tmr;\r
 787       inactive = pcb;\r
 788     }\r
 789   }\r
 790   if (inactive != NULL) {\r
 791     LWIP_DEBUGF(TCP_DEBUG, ("tcp_kill_timewait: killing oldest TIME-WAIT PCB %p (%"S32_F")\n",\r
 792            (void *)inactive, inactivity));\r
 793     tcp_abort(inactive);\r
 794   }      \r
 795 }\r
 796 \r
 797 \r
 798 \r
 799 struct tcp_pcb *\r
 800 tcp_alloc(u8_t prio)\r
 801 {\r
 802   struct tcp_pcb *pcb;\r
 803   u32_t iss;\r
 804   \r
 805   pcb = memp_malloc(MEMP_TCP_PCB);\r
 806   if (pcb == NULL) {\r
 807     /* Try killing oldest connection in TIME-WAIT. */\r
 808     LWIP_DEBUGF(TCP_DEBUG, ("tcp_alloc: killing off oldest TIME-WAIT connection\n"));\r
 809     tcp_kill_timewait();\r
 810     pcb = memp_malloc(MEMP_TCP_PCB);\r
 811     if (pcb == NULL) {\r
 812       tcp_kill_prio(prio);    \r
 813       pcb = memp_malloc(MEMP_TCP_PCB);\r
 814     }\r
 815   }\r
 816   if (pcb != NULL) {\r
 817     memset(pcb, 0, sizeof(struct tcp_pcb));\r
 818     pcb->prio = TCP_PRIO_NORMAL;\r
 819     pcb->snd_buf = TCP_SND_BUF;\r
 820     pcb->snd_queuelen = 0;\r
 821     pcb->rcv_wnd = TCP_WND;\r
 822     pcb->tos = 0;\r
 823     pcb->ttl = TCP_TTL;\r
 824     pcb->mss = TCP_MSS;\r
 825     pcb->rto = 3000 / TCP_SLOW_INTERVAL;\r
 826     pcb->sa = 0;\r
 827     pcb->sv = 3000 / TCP_SLOW_INTERVAL;\r
 828     pcb->rtime = 0;\r
 829     pcb->cwnd = 1;\r
 830     iss = tcp_next_iss();\r
 831     pcb->snd_wl2 = iss;\r
 832     pcb->snd_nxt = iss;\r
 833     pcb->snd_max = iss;\r
 834     pcb->lastack = iss;\r
 835     pcb->snd_lbb = iss;   \r
 836     pcb->tmr = tcp_ticks;\r
 837 \r
 838     pcb->polltmr = 0;\r
 839 \r
 840 #if LWIP_CALLBACK_API\r
 841     pcb->recv = tcp_recv_null;\r
 842 #endif /* LWIP_CALLBACK_API */  \r
 843     \r
 844     /* Init KEEPALIVE timer */\r
 845     pcb->keepalive = TCP_KEEPDEFAULT;\r
 846     pcb->keep_cnt = 0;\r
 847   }\r
 848   return pcb;\r
 849 }\r
 850 \r
 851 /**\r
 852  * Creates a new TCP protocol control block but doesn't place it on\r
 853  * any of the TCP PCB lists.\r
 854  *\r
 855  * @internal: Maybe there should be a idle TCP PCB list where these\r
 856  * PCBs are put on. We can then implement port reservation using\r
 857  * tcp_bind(). Currently, we lack this (BSD socket type of) feature.\r
 858  */\r
 859 \r
 860 struct tcp_pcb *\r
 861 tcp_new(void)\r
 862 {\r
 863   return tcp_alloc(TCP_PRIO_NORMAL);\r
 864 }\r
 865 \r
 866 /*\r
 867  * tcp_arg():\r
 868  *\r
 869  * Used to specify the argument that should be passed callback\r
 870  * functions.\r
 871  *\r
 872  */ \r
 873 \r
 874 void\r
 875 tcp_arg(struct tcp_pcb *pcb, void *arg)\r
 876 {  \r
 877   pcb->callback_arg = arg;\r
 878 }\r
 879 #if LWIP_CALLBACK_API\r
 880 \r
 881 /**\r
 882  * Used to specify the function that should be called when a TCP\r
 883  * connection receives data.\r
 884  *\r
 885  */ \r
 886 void\r
 887 tcp_recv(struct tcp_pcb *pcb,\r
 888    err_t (* recv)(void *arg, struct tcp_pcb *tpcb, struct pbuf *p, err_t err))\r
 889 {\r
 890   pcb->recv = recv;\r
 891 }\r
 892 \r
 893 /**\r
 894  * Used to specify the function that should be called when TCP data\r
 895  * has been successfully delivered to the remote host.\r
 896  *\r
 897  */ \r
 898 \r
 899 void\r
 900 tcp_sent(struct tcp_pcb *pcb,\r
 901    err_t (* sent)(void *arg, struct tcp_pcb *tpcb, u16_t len))\r
 902 {\r
 903   pcb->sent = sent;\r
 904 }\r
 905 \r
 906 /**\r
 907  * Used to specify the function that should be called when a fatal error\r
 908  * has occured on the connection.\r
 909  *\r
 910  */ \r
 911 void\r
 912 tcp_err(struct tcp_pcb *pcb,\r
 913    void (* errf)(void *arg, err_t err))\r
 914 {\r
 915   pcb->errf = errf;\r
 916 }\r
 917 \r
 918 /**\r
 919  * Used for specifying the function that should be called when a\r
 920  * LISTENing connection has been connected to another host.\r
 921  *\r
 922  */ \r
 923 void\r
 924 tcp_accept(struct tcp_pcb *pcb,\r
 925      err_t (* accept)(void *arg, struct tcp_pcb *newpcb, err_t err))\r
 926 {\r
 927   ((struct tcp_pcb_listen *)pcb)->accept = accept;\r
 928 }\r
 929 #endif /* LWIP_CALLBACK_API */\r
 930 \r
 931 \r
 932 /**\r
 933  * Used to specify the function that should be called periodically\r
 934  * from TCP. The interval is specified in terms of the TCP coarse\r
 935  * timer interval, which is called twice a second.\r
 936  *\r
 937  */ \r
 938 void\r
 939 tcp_poll(struct tcp_pcb *pcb,\r
 940    err_t (* poll)(void *arg, struct tcp_pcb *tpcb), u8_t interval)\r
 941 {\r
 942 #if LWIP_CALLBACK_API\r
 943   pcb->poll = poll;\r
 944 #endif /* LWIP_CALLBACK_API */  \r
 945   pcb->pollinterval = interval;\r
 946 }\r
 947 \r
 948 /**\r
 949  * Purges a TCP PCB. Removes any buffered data and frees the buffer memory.\r
 950  *\r
 951  */\r
 952 void\r
 953 tcp_pcb_purge(struct tcp_pcb *pcb)\r
 954 {\r
 955   if (pcb->state != CLOSED &&\r
 956      pcb->state != TIME_WAIT &&\r
 957      pcb->state != LISTEN) {\r
 958 \r
 959     LWIP_DEBUGF(TCP_DEBUG, ("tcp_pcb_purge\n"));\r
 960     \r
 961     if (pcb->unsent != NULL) {    \r
 962       LWIP_DEBUGF(TCP_DEBUG, ("tcp_pcb_purge: not all data sent\n"));\r
 963     }\r
 964     if (pcb->unacked != NULL) {    \r
 965       LWIP_DEBUGF(TCP_DEBUG, ("tcp_pcb_purge: data left on ->unacked\n"));\r
 966     }\r
 967 #if TCP_QUEUE_OOSEQ /* LW */\r
 968     if (pcb->ooseq != NULL) {    \r
 969       LWIP_DEBUGF(TCP_DEBUG, ("tcp_pcb_purge: data left on ->ooseq\n"));\r
 970     }\r
 971     \r
 972     tcp_segs_free(pcb->ooseq);\r
 973     pcb->ooseq = NULL;\r
 974 #endif /* TCP_QUEUE_OOSEQ */\r
 975     tcp_segs_free(pcb->unsent);\r
 976     tcp_segs_free(pcb->unacked);\r
 977     pcb->unacked = pcb->unsent = NULL;\r
 978   }\r
 979 }\r
 980 \r
 981 /**\r
 982  * Purges the PCB and removes it from a PCB list. Any delayed ACKs are sent first.\r
 983  *\r
 984  */\r
 985 void\r
 986 tcp_pcb_remove(struct tcp_pcb **pcblist, struct tcp_pcb *pcb)\r
 987 {\r
 988   TCP_RMV(pcblist, pcb);\r
 989 \r
 990   tcp_pcb_purge(pcb);\r
 991   \r
 992   /* if there is an outstanding delayed ACKs, send it */\r
 993   if (pcb->state != TIME_WAIT &&\r
 994      pcb->state != LISTEN &&\r
 995      pcb->flags & TF_ACK_DELAY) {\r
 996     pcb->flags |= TF_ACK_NOW;\r
 997     tcp_output(pcb);\r
 998   }  \r
 999   pcb->state = CLOSED;\r
1000 \r
1001   LWIP_ASSERT("tcp_pcb_remove: tcp_pcbs_sane()", tcp_pcbs_sane());\r
1002 }\r
1003 \r
1004 /**\r
1005  * Calculates a new initial sequence number for new connections.\r
1006  *\r
1007  */\r
1008 u32_t\r
1009 tcp_next_iss(void)\r
1010 {\r
1011   static u32_t iss = 6510;\r
1012   \r
1013   iss += tcp_ticks;       /* XXX */\r
1014   return iss;\r
1015 }\r
1016 \r
1017 #if TCP_DEBUG || TCP_INPUT_DEBUG || TCP_OUTPUT_DEBUG\r
1018 void\r
1019 tcp_debug_print(struct tcp_hdr *tcphdr)\r
1020 {\r
1021   LWIP_DEBUGF(TCP_DEBUG, ("TCP header:\n"));\r
1022   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1023   LWIP_DEBUGF(TCP_DEBUG, ("|    %5"U16_F"      |    %5"U16_F"      | (src port, dest port)\n",\r
1024          ntohs(tcphdr->src), ntohs(tcphdr->dest)));\r
1025   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1026   LWIP_DEBUGF(TCP_DEBUG, ("|           %010"U32_F"          | (seq no)\n",\r
1027           ntohl(tcphdr->seqno)));\r
1028   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1029   LWIP_DEBUGF(TCP_DEBUG, ("|           %010"U32_F"          | (ack no)\n",\r
1030          ntohl(tcphdr->ackno)));\r
1031   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1032   LWIP_DEBUGF(TCP_DEBUG, ("| %2"U16_F" |   |%"U16_F"%"U16_F"%"U16_F"%"U16_F"%"U16_F"%"U16_F"|     %5"U16_F"     | (hdrlen, flags (",\r
1033        TCPH_HDRLEN(tcphdr),\r
1034          TCPH_FLAGS(tcphdr) >> 5 & 1,\r
1035          TCPH_FLAGS(tcphdr) >> 4 & 1,\r
1036          TCPH_FLAGS(tcphdr) >> 3 & 1,\r
1037          TCPH_FLAGS(tcphdr) >> 2 & 1,\r
1038          TCPH_FLAGS(tcphdr) >> 1 & 1,\r
1039          TCPH_FLAGS(tcphdr) & 1,\r
1040          ntohs(tcphdr->wnd)));\r
1041   tcp_debug_print_flags(TCPH_FLAGS(tcphdr));\r
1042   LWIP_DEBUGF(TCP_DEBUG, ("), win)\n"));\r
1043   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1044   LWIP_DEBUGF(TCP_DEBUG, ("|    0x%04"X16_F"     |     %5"U16_F"     | (chksum, urgp)\n",\r
1045          ntohs(tcphdr->chksum), ntohs(tcphdr->urgp)));\r
1046   LWIP_DEBUGF(TCP_DEBUG, ("+-------------------------------+\n"));\r
1047 }\r
1048 \r
1049 void\r
1050 tcp_debug_print_state(enum tcp_state s)\r
1051 {\r
1052   LWIP_DEBUGF(TCP_DEBUG, ("State: "));\r
1053   switch (s) {\r
1054   case CLOSED:\r
1055     LWIP_DEBUGF(TCP_DEBUG, ("CLOSED\n"));\r
1056     break;\r
1057  case LISTEN:\r
1058    LWIP_DEBUGF(TCP_DEBUG, ("LISTEN\n"));\r
1059    break;\r
1060   case SYN_SENT:\r
1061     LWIP_DEBUGF(TCP_DEBUG, ("SYN_SENT\n"));\r
1062     break;\r
1063   case SYN_RCVD:\r
1064     LWIP_DEBUGF(TCP_DEBUG, ("SYN_RCVD\n"));\r
1065     break;\r
1066   case ESTABLISHED:\r
1067     LWIP_DEBUGF(TCP_DEBUG, ("ESTABLISHED\n"));\r
1068     break;\r
1069   case FIN_WAIT_1:\r
1070     LWIP_DEBUGF(TCP_DEBUG, ("FIN_WAIT_1\n"));\r
1071     break;\r
1072   case FIN_WAIT_2:\r
1073     LWIP_DEBUGF(TCP_DEBUG, ("FIN_WAIT_2\n"));\r
1074     break;\r
1075   case CLOSE_WAIT:\r
1076     LWIP_DEBUGF(TCP_DEBUG, ("CLOSE_WAIT\n"));\r
1077     break;\r
1078   case CLOSING:\r
1079     LWIP_DEBUGF(TCP_DEBUG, ("CLOSING\n"));\r
1080     break;\r
1081   case LAST_ACK:\r
1082     LWIP_DEBUGF(TCP_DEBUG, ("LAST_ACK\n"));\r
1083     break;\r
1084   case TIME_WAIT:\r
1085     LWIP_DEBUGF(TCP_DEBUG, ("TIME_WAIT\n"));\r
1086    break;\r
1087   }\r
1088 }\r
1089 \r
1090 void\r
1091 tcp_debug_print_flags(u8_t flags)\r
1092 {\r
1093   if (flags & TCP_FIN) {\r
1094     LWIP_DEBUGF(TCP_DEBUG, ("FIN "));\r
1095   }\r
1096   if (flags & TCP_SYN) {\r
1097     LWIP_DEBUGF(TCP_DEBUG, ("SYN "));\r
1098   }\r
1099   if (flags & TCP_RST) {\r
1100     LWIP_DEBUGF(TCP_DEBUG, ("RST "));\r
1101   }\r
1102   if (flags & TCP_PSH) {\r
1103     LWIP_DEBUGF(TCP_DEBUG, ("PSH "));\r
1104   }\r
1105   if (flags & TCP_ACK) {\r
1106     LWIP_DEBUGF(TCP_DEBUG, ("ACK "));\r
1107   }\r
1108   if (flags & TCP_URG) {\r
1109     LWIP_DEBUGF(TCP_DEBUG, ("URG "));\r
1110   }\r
1111   if (flags & TCP_ECE) {\r
1112     LWIP_DEBUGF(TCP_DEBUG, ("ECE "));\r
1113   }\r
1114   if (flags & TCP_CWR) {\r
1115     LWIP_DEBUGF(TCP_DEBUG, ("CWR "));\r
1116   }\r
1117 }\r
1118 \r
1119 void\r
1120 tcp_debug_print_pcbs(void)\r
1121 {\r
1122   struct tcp_pcb *pcb;\r
1123   LWIP_DEBUGF(TCP_DEBUG, ("Active PCB states:\n"));\r
1124   for(pcb = tcp_active_pcbs; pcb != NULL; pcb = pcb->next) {\r
1125     LWIP_DEBUGF(TCP_DEBUG, ("Local port %"U16_F", foreign port %"U16_F" snd_nxt %"U32_F" rcv_nxt %"U32_F" ",\r
1126                        pcb->local_port, pcb->remote_port,\r
1127                        pcb->snd_nxt, pcb->rcv_nxt));\r
1128     tcp_debug_print_state(pcb->state);\r
1129   }    \r
1130   LWIP_DEBUGF(TCP_DEBUG, ("Listen PCB states:\n"));\r
1131   for(pcb = (struct tcp_pcb *)tcp_listen_pcbs.pcbs; pcb != NULL; pcb = pcb->next) {\r
1132     LWIP_DEBUGF(TCP_DEBUG, ("Local port %"U16_F", foreign port %"U16_F" snd_nxt %"U32_F" rcv_nxt %"U32_F" ",\r
1133                        pcb->local_port, pcb->remote_port,\r
1134                        pcb->snd_nxt, pcb->rcv_nxt));\r
1135     tcp_debug_print_state(pcb->state);\r
1136   }    \r
1137   LWIP_DEBUGF(TCP_DEBUG, ("TIME-WAIT PCB states:\n"));\r
1138   for(pcb = tcp_tw_pcbs; pcb != NULL; pcb = pcb->next) {\r
1139     LWIP_DEBUGF(TCP_DEBUG, ("Local port %"U16_F", foreign port %"U16_F" snd_nxt %"U32_F" rcv_nxt %"U32_F" ",\r
1140                        pcb->local_port, pcb->remote_port,\r
1141                        pcb->snd_nxt, pcb->rcv_nxt));\r
1142     tcp_debug_print_state(pcb->state);\r
1143   }    \r
1144 }\r
1145 \r
1146 s16_t\r
1147 tcp_pcbs_sane(void)\r
1148 {\r
1149   struct tcp_pcb *pcb;\r
1150   for(pcb = tcp_active_pcbs; pcb != NULL; pcb = pcb->next) {\r
1151     LWIP_ASSERT("tcp_pcbs_sane: active pcb->state != CLOSED", pcb->state != CLOSED);\r
1152     LWIP_ASSERT("tcp_pcbs_sane: active pcb->state != LISTEN", pcb->state != LISTEN);\r
1153     LWIP_ASSERT("tcp_pcbs_sane: active pcb->state != TIME-WAIT", pcb->state != TIME_WAIT);\r
1154   }\r
1155   for(pcb = tcp_tw_pcbs; pcb != NULL; pcb = pcb->next) {\r
1156     LWIP_ASSERT("tcp_pcbs_sane: tw pcb->state == TIME-WAIT", pcb->state == TIME_WAIT);\r
1157   }\r
1158   return 1;\r
1159 }\r
1160 #endif /* TCP_DEBUG */\r
1161 #endif /* LWIP_TCP */\r
1162 \r
1163 \r
1164 \r
1165 \r
1166 \r
1167 \r
1168 \r
1169 \r
1170 \r
1171 \r