Free (GPLv2) TCP/IP stack developed by TASS Belgium
Dependents: lpc1768-picotcp-demo ZeroMQ_PicoTCP_Publisher_demo TCPSocket_HelloWorld_PicoTCP Pico_TCP_UDP_Test ... more
PicoTCP. Copyright (c) 2013 TASS Belgium NV.
Released under the GNU General Public License, version 2.
Different licensing models may exist, at the sole discretion of the Copyright holders.
Official homepage: http://www.picotcp.com
Bug tracker: https://github.com/tass-belgium/picotcp/issues
Development steps:
initial integration with mbed RTOSgeneric mbed Ethernet driverhigh performance NXP LPC1768 specific Ethernet driverMulti-threading support for mbed RTOSBerkeley sockets and integration with the New Socket APIFork of the apps running on top of the New Socket APIScheduling optimizations- Debugging/benchmarking/testing
Demo application (measuring TCP sender performance):
Import programlpc1768-picotcp-demo
A PicoTCP demo app testing the ethernet throughput on the lpc1768 mbed board.
modules/pico_socket_tcp.c
- Committer:
- tass
- Date:
- 2015-09-28
- Revision:
- 152:a3d286bf94e5
- Parent:
- 150:551effcf6a39
File content as of revision 152:a3d286bf94e5:
#include "pico_config.h" #include "pico_socket.h" #include "pico_ipv4.h" #include "pico_ipv6.h" #include "pico_tcp.h" #include "pico_socket_tcp.h" static int sockopt_validate_args(struct pico_socket *s, void *value) { if (!value) { pico_err = PICO_ERR_EINVAL; return -1; } if (s->proto->proto_number != PICO_PROTO_TCP) { pico_err = PICO_ERR_EPROTONOSUPPORT; return -1; } return 0; } int pico_getsockopt_tcp(struct pico_socket *s, int option, void *value) { if (sockopt_validate_args(s, value) < 0) return -1; #ifdef PICO_SUPPORT_TCP if (option == PICO_TCP_NODELAY) { /* state of the NODELAY option */ *(int *)value = PICO_SOCKET_GETOPT(s, PICO_SOCKET_OPT_TCPNODELAY); return 0; } else if (option == PICO_SOCKET_OPT_RCVBUF) { return pico_tcp_get_bufsize_in(s, (uint32_t *)value); } else if (option == PICO_SOCKET_OPT_SNDBUF) { return pico_tcp_get_bufsize_out(s, (uint32_t *)value); } #endif return -1; } static void tcp_set_nagle_option(struct pico_socket *s, void *value) { int *val = (int*)value; if (*val > 0) { dbg("setsockopt: Nagle algorithm disabled.\n"); PICO_SOCKET_SETOPT_EN(s, PICO_SOCKET_OPT_TCPNODELAY); } else { dbg("setsockopt: Nagle algorithm enabled.\n"); PICO_SOCKET_SETOPT_DIS(s, PICO_SOCKET_OPT_TCPNODELAY); } } int pico_setsockopt_tcp(struct pico_socket *s, int option, void *value) { if (sockopt_validate_args(s, value) < 0) return -1; #ifdef PICO_SUPPORT_TCP if (option == PICO_TCP_NODELAY) { tcp_set_nagle_option(s, value); return 0; } else if (option == PICO_SOCKET_OPT_RCVBUF) { uint32_t *val = (uint32_t*)value; pico_tcp_set_bufsize_in(s, *val); return 0; } else if (option == PICO_SOCKET_OPT_SNDBUF) { uint32_t *val = (uint32_t*)value; pico_tcp_set_bufsize_out(s, *val); return 0; } else if (option == PICO_SOCKET_OPT_KEEPCNT) { uint32_t *val = (uint32_t*)value; pico_tcp_set_keepalive_probes(s, *val); return 0; } else if (option == PICO_SOCKET_OPT_KEEPIDLE) { uint32_t *val = (uint32_t*)value; pico_tcp_set_keepalive_time(s, *val); return 0; } else if (option == PICO_SOCKET_OPT_KEEPINTVL) { uint32_t *val = (uint32_t*)value; pico_tcp_set_keepalive_intvl(s, *val); return 0; } else if (option == PICO_SOCKET_OPT_LINGER) { uint32_t *val = (uint32_t*)value; pico_tcp_set_linger(s, *val); return 0; } #endif pico_err = PICO_ERR_EINVAL; return -1; } void pico_socket_tcp_cleanup(struct pico_socket *sock) { #ifdef PICO_SUPPORT_TCP /* for tcp sockets go further and clean the sockets inside queue */ if(is_sock_tcp(sock)) pico_tcp_cleanup_queues(sock); #endif } void pico_socket_tcp_delete(struct pico_socket *s) { #ifdef PICO_SUPPORT_TCP if(s->parent) s->parent->number_of_pending_conn--; #endif } static struct pico_socket *socket_tcp_deliver_ipv4(struct pico_socket *s, struct pico_frame *f) { struct pico_socket *found = NULL; #ifdef PICO_SUPPORT_IPV4 struct pico_ip4 s_local, s_remote, p_src, p_dst; struct pico_ipv4_hdr *ip4hdr = (struct pico_ipv4_hdr*)(f->net_hdr); struct pico_trans *tr = (struct pico_trans *) f->transport_hdr; s_local.addr = s->local_addr.ip4.addr; s_remote.addr = s->remote_addr.ip4.addr; p_src.addr = ip4hdr->src.addr; p_dst.addr = ip4hdr->dst.addr; if ((s->remote_port == tr->sport) && /* remote port check */ (s_remote.addr == p_src.addr) && /* remote addr check */ ((s_local.addr == PICO_IPV4_INADDR_ANY) || (s_local.addr == p_dst.addr))) { /* Either local socket is ANY, or matches dst */ found = s; return found; } else if ((s->remote_port == 0) && /* not connected... listening */ ((s_local.addr == PICO_IPV4_INADDR_ANY) || (s_local.addr == p_dst.addr))) { /* Either local socket is ANY, or matches dst */ /* listen socket */ found = s; } #endif return found; } static struct pico_socket *socket_tcp_deliver_ipv6(struct pico_socket *s, struct pico_frame *f) { struct pico_socket *found = NULL; #ifdef PICO_SUPPORT_IPV6 struct pico_trans *tr = (struct pico_trans *) f->transport_hdr; struct pico_ip6 s_local = {{0}}, s_remote = {{0}}, p_src = {{0}}, p_dst = {{0}}; struct pico_ipv6_hdr *ip6hdr = (struct pico_ipv6_hdr *)(f->net_hdr); s_local = s->local_addr.ip6; s_remote = s->remote_addr.ip6; p_src = ip6hdr->src; p_dst = ip6hdr->dst; if ((s->remote_port == tr->sport) && (!memcmp(s_remote.addr, p_src.addr, PICO_SIZE_IP6)) && ((!memcmp(s_local.addr, PICO_IP6_ANY, PICO_SIZE_IP6)) || (!memcmp(s_local.addr, p_dst.addr, PICO_SIZE_IP6)))) { found = s; return found; } else if ((s->remote_port == 0) && /* not connected... listening */ ((!memcmp(s_local.addr, PICO_IP6_ANY, PICO_SIZE_IP6)) || (!memcmp(s_local.addr, p_dst.addr, PICO_SIZE_IP6)))) { /* listen socket */ found = s; } #else (void) s; (void) f; #endif return found; } static int socket_tcp_do_deliver(struct pico_socket *s, struct pico_frame *f) { if (s != NULL) { pico_tcp_input(s, f); if ((s->ev_pending) && s->wakeup) { s->wakeup(s->ev_pending, s); if(!s->parent) s->ev_pending = 0; } return 0; } dbg("TCP SOCKET> Not s.\n"); return -1; } int pico_socket_tcp_deliver(struct pico_sockport *sp, struct pico_frame *f) { struct pico_socket *found = NULL; struct pico_tree_node *index = NULL; struct pico_tree_node *_tmp; struct pico_socket *s = NULL; pico_tree_foreach_safe(index, &sp->socks, _tmp){ s = index->keyValue; /* 4-tuple identification of socket (port-IP) */ if (IS_IPV4(f)) { found = socket_tcp_deliver_ipv4(s, f); } if (IS_IPV6(f)) { found = socket_tcp_deliver_ipv6(s, f); } if (found) break; } /* FOREACH */ return socket_tcp_do_deliver(found, f); } struct pico_socket *pico_socket_tcp_open(uint16_t family) { struct pico_socket *s = NULL; (void) family; #ifdef PICO_SUPPORT_TCP s = pico_tcp_open(family); if (!s) { pico_err = PICO_ERR_ENOMEM; return NULL; } s->proto = &pico_proto_tcp; /*check if Nagle enabled */ /* if (!IS_NAGLE_ENABLED(s)) dbg("ERROR Nagle should be enabled here\n\n"); */ #endif return s; } int pico_socket_tcp_read(struct pico_socket *s, void *buf, uint32_t len) { #ifdef PICO_SUPPORT_TCP /* check if in shutdown state and if no more data in tcpq_in */ if ((s->state & PICO_SOCKET_STATE_SHUT_REMOTE) && pico_tcp_queue_in_is_empty(s)) { pico_err = PICO_ERR_ESHUTDOWN; return -1; } else { return (int)(pico_tcp_read(s, buf, (uint32_t)len)); } #else return 0; #endif } void transport_flags_update(struct pico_frame *f, struct pico_socket *s) { #ifdef PICO_SUPPORT_TCP if(is_sock_tcp(s)) pico_tcp_flags_update(f, s); #endif }