2727 lines
61 KiB
C
2727 lines
61 KiB
C
/*
|
|
tcp.c
|
|
|
|
Copyright 1995 Philip Homburg
|
|
*/
|
|
|
|
#include "inet.h"
|
|
#include "buf.h"
|
|
#include "clock.h"
|
|
#include "event.h"
|
|
#include "type.h"
|
|
|
|
#include "io.h"
|
|
#include "ip.h"
|
|
#include "sr.h"
|
|
#include "assert.h"
|
|
#include "rand256.h"
|
|
#include "tcp.h"
|
|
#include "tcp_int.h"
|
|
|
|
THIS_FILE
|
|
|
|
tcp_port_t *tcp_port_table;
|
|
tcp_fd_t tcp_fd_table[TCP_FD_NR];
|
|
tcp_conn_t tcp_conn_table[TCP_CONN_NR];
|
|
sr_cancel_t tcp_cancel_f;
|
|
|
|
static void tcp_main ARGS(( tcp_port_t *port ));
|
|
static int tcp_select ARGS(( int fd, unsigned operations ));
|
|
static acc_t *tcp_get_data ARGS(( int fd, size_t offset,
|
|
size_t count, int for_ioctl ));
|
|
static int tcp_put_data ARGS(( int fd, size_t offset,
|
|
acc_t *data, int for_ioctl ));
|
|
static void tcp_put_pkt ARGS(( int fd, acc_t *data, size_t datalen ));
|
|
static void read_ip_packets ARGS(( tcp_port_t *port ));
|
|
static int tcp_setconf ARGS(( tcp_fd_t *tcp_fd ));
|
|
static int tcp_setopt ARGS(( tcp_fd_t *tcp_fd ));
|
|
static int tcp_connect ARGS(( tcp_fd_t *tcp_fd ));
|
|
static int tcp_listen ARGS(( tcp_fd_t *tcp_fd, int do_listenq ));
|
|
static int tcp_acceptto ARGS(( tcp_fd_t *tcp_fd ));
|
|
static tcpport_t find_unused_port ARGS(( int fd ));
|
|
static int is_unused_port ARGS(( tcpport_t port ));
|
|
static int reply_thr_put ARGS(( tcp_fd_t *tcp_fd, int reply,
|
|
int for_ioctl ));
|
|
static void reply_thr_get ARGS(( tcp_fd_t *tcp_fd, int reply,
|
|
int for_ioctl ));
|
|
static tcp_conn_t *find_conn_entry ARGS(( tcpport_t locport,
|
|
ipaddr_t locaddr, tcpport_t remport, ipaddr_t readaddr ));
|
|
static tcp_conn_t *find_empty_conn ARGS(( void ));
|
|
static tcp_conn_t *find_best_conn ARGS(( ip_hdr_t *ip_hdr,
|
|
tcp_hdr_t *tcp_hdr ));
|
|
static tcp_conn_t *new_conn_for_queue ARGS(( tcp_fd_t *tcp_fd ));
|
|
static int maybe_listen ARGS(( ipaddr_t locaddr, tcpport_t locport,
|
|
ipaddr_t remaddr, tcpport_t remport ));
|
|
static int tcp_su4connect ARGS(( tcp_fd_t *tcp_fd ));
|
|
static void tcp_buffree ARGS(( int priority ));
|
|
#ifdef BUF_CONSISTENCY_CHECK
|
|
static void tcp_bufcheck ARGS(( void ));
|
|
#endif
|
|
static void tcp_setup_conn ARGS(( tcp_port_t *tcp_port,
|
|
tcp_conn_t *tcp_conn ));
|
|
static u32_t tcp_rand32 ARGS(( void ));
|
|
|
|
void tcp_prep()
|
|
{
|
|
tcp_port_table= alloc(tcp_conf_nr * sizeof(tcp_port_table[0]));
|
|
}
|
|
|
|
void tcp_init()
|
|
{
|
|
int i, j, k, ifno;
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_port_t *tcp_port;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
assert (BUF_S >= sizeof(struct nwio_ipopt));
|
|
assert (BUF_S >= sizeof(struct nwio_ipconf));
|
|
assert (BUF_S >= sizeof(struct nwio_tcpconf));
|
|
assert (BUF_S >= IP_MAX_HDR_SIZE + TCP_MAX_HDR_SIZE);
|
|
|
|
for (i=0, tcp_fd= tcp_fd_table; i<TCP_FD_NR; i++, tcp_fd++)
|
|
{
|
|
tcp_fd->tf_flags= TFF_EMPTY;
|
|
}
|
|
|
|
for (i=0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++,
|
|
tcp_fd++)
|
|
{
|
|
tcp_conn->tc_flags= TCF_EMPTY;
|
|
tcp_conn->tc_busy= 0;
|
|
}
|
|
|
|
#ifndef BUF_CONSISTENCY_CHECK
|
|
bf_logon(tcp_buffree);
|
|
#else
|
|
bf_logon(tcp_buffree, tcp_bufcheck);
|
|
#endif
|
|
|
|
for (i=0, tcp_port= tcp_port_table; i<tcp_conf_nr; i++, tcp_port++)
|
|
{
|
|
tcp_port->tp_ipdev= tcp_conf[i].tc_port;
|
|
|
|
tcp_port->tp_flags= TPF_EMPTY;
|
|
tcp_port->tp_state= TPS_EMPTY;
|
|
tcp_port->tp_snd_head= NULL;
|
|
tcp_port->tp_snd_tail= NULL;
|
|
ev_init(&tcp_port->tp_snd_event);
|
|
for (j= 0; j<TCP_CONN_HASH_NR; j++)
|
|
{
|
|
for (k= 0; k<4; k++)
|
|
{
|
|
tcp_port->tp_conn_hash[j][k]=
|
|
&tcp_conn_table[0];
|
|
}
|
|
}
|
|
|
|
ifno= ip_conf[tcp_port->tp_ipdev].ic_ifno;
|
|
sr_add_minor(if2minor(ifno, TCP_DEV_OFF),
|
|
i, tcp_open, tcp_close, tcp_read,
|
|
tcp_write, tcp_ioctl, tcp_cancel, tcp_select);
|
|
|
|
tcp_main(tcp_port);
|
|
}
|
|
tcp_cancel_f= tcp_cancel;
|
|
}
|
|
|
|
static void tcp_main(tcp_port)
|
|
tcp_port_t *tcp_port;
|
|
{
|
|
int result, i;
|
|
tcp_conn_t *tcp_conn;
|
|
tcp_fd_t *tcp_fd;
|
|
|
|
switch (tcp_port->tp_state)
|
|
{
|
|
case TPS_EMPTY:
|
|
tcp_port->tp_state= TPS_SETPROTO;
|
|
tcp_port->tp_ipfd= ip_open(tcp_port->tp_ipdev,
|
|
tcp_port->tp_ipdev, tcp_get_data,
|
|
tcp_put_data, tcp_put_pkt, 0 /* no select_res */);
|
|
if (tcp_port->tp_ipfd < 0)
|
|
{
|
|
tcp_port->tp_state= TPS_ERROR;
|
|
DBLOCK(1, printf("%s, %d: unable to open ip port\n",
|
|
__FILE__, __LINE__));
|
|
return;
|
|
}
|
|
|
|
result= ip_ioctl(tcp_port->tp_ipfd, NWIOSIPOPT);
|
|
if (result == NW_SUSPEND)
|
|
tcp_port->tp_flags |= TPF_SUSPEND;
|
|
if (result < 0)
|
|
{
|
|
return;
|
|
}
|
|
if (tcp_port->tp_state != TPS_GETCONF)
|
|
return;
|
|
/* drops through */
|
|
case TPS_GETCONF:
|
|
tcp_port->tp_flags &= ~TPF_SUSPEND;
|
|
|
|
result= ip_ioctl(tcp_port->tp_ipfd, NWIOGIPCONF);
|
|
if (result == NW_SUSPEND)
|
|
tcp_port->tp_flags |= TPF_SUSPEND;
|
|
if (result < 0)
|
|
{
|
|
return;
|
|
}
|
|
if (tcp_port->tp_state != TPS_MAIN)
|
|
return;
|
|
/* drops through */
|
|
case TPS_MAIN:
|
|
tcp_port->tp_flags &= ~TPF_SUSPEND;
|
|
tcp_port->tp_pack= 0;
|
|
|
|
tcp_conn= &tcp_conn_table[tcp_port->tp_ipdev];
|
|
tcp_conn->tc_flags= TCF_INUSE;
|
|
assert(!tcp_conn->tc_busy);
|
|
tcp_conn->tc_locport= 0;
|
|
tcp_conn->tc_locaddr= tcp_port->tp_ipaddr;
|
|
tcp_conn->tc_remport= 0;
|
|
tcp_conn->tc_remaddr= 0;
|
|
tcp_conn->tc_state= TCS_CLOSED;
|
|
tcp_conn->tc_fd= 0;
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_conn->tc_orglisten= FALSE;
|
|
tcp_conn->tc_senddis= 0;
|
|
tcp_conn->tc_ISS= 0;
|
|
tcp_conn->tc_SND_UNA= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_TRM= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_NXT= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_UP= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_IRS= 0;
|
|
tcp_conn->tc_RCV_LO= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_NXT= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_HI= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_UP= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_port= tcp_port;
|
|
tcp_conn->tc_rcvd_data= NULL;
|
|
tcp_conn->tc_adv_data= NULL;
|
|
tcp_conn->tc_send_data= 0;
|
|
tcp_conn->tc_remipopt= NULL;
|
|
tcp_conn->tc_tcpopt= NULL;
|
|
tcp_conn->tc_frag2send= 0;
|
|
tcp_conn->tc_tos= TCP_DEF_TOS;
|
|
tcp_conn->tc_ttl= IP_MAX_TTL;
|
|
tcp_conn->tc_rcv_wnd= TCP_MAX_RCV_WND_SIZE;
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_DEAD;
|
|
tcp_conn->tc_stt= 0;
|
|
tcp_conn->tc_0wnd_to= 0;
|
|
tcp_conn->tc_artt= TCP_DEF_RTT*TCP_RTT_SCALE;
|
|
tcp_conn->tc_drtt= 0;
|
|
tcp_conn->tc_rtt= TCP_DEF_RTT;
|
|
tcp_conn->tc_max_mtu= tcp_port->tp_mtu;
|
|
tcp_conn->tc_mtu= tcp_conn->tc_max_mtu;
|
|
tcp_conn->tc_mtutim= 0;
|
|
tcp_conn->tc_error= NW_OK;
|
|
tcp_conn->tc_snd_wnd= TCP_MAX_SND_WND_SIZE;
|
|
tcp_conn->tc_snd_cinc=
|
|
(long)TCP_DEF_MSS*TCP_DEF_MSS/TCP_MAX_SND_WND_SIZE+1;
|
|
|
|
tcp_conn->tc_rt_time= 0;
|
|
tcp_conn->tc_rt_seq= 0;
|
|
tcp_conn->tc_rt_threshold= tcp_conn->tc_ISS;
|
|
|
|
for (i=0, tcp_fd= tcp_fd_table; i<TCP_FD_NR; i++,
|
|
tcp_fd++)
|
|
{
|
|
if (!(tcp_fd->tf_flags & TFF_INUSE))
|
|
continue;
|
|
if (tcp_fd->tf_port != tcp_port)
|
|
continue;
|
|
if (tcp_fd->tf_flags & TFF_IOC_INIT_SP)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOC_INIT_SP;
|
|
tcp_ioctl(i, tcp_fd->tf_ioreq);
|
|
}
|
|
}
|
|
read_ip_packets(tcp_port);
|
|
return;
|
|
|
|
default:
|
|
ip_panic(( "unknown state" ));
|
|
break;
|
|
}
|
|
}
|
|
|
|
static int tcp_select(fd, operations)
|
|
int fd;
|
|
unsigned operations;
|
|
{
|
|
int i;
|
|
unsigned resops;
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
|
|
resops= 0;
|
|
if (tcp_fd->tf_flags & TFF_LISTENQ)
|
|
{
|
|
/* Special case for LISTENQ */
|
|
if (operations & SR_SELECT_READ)
|
|
{
|
|
for (i= 0; i<TFL_LISTEN_MAX; i++)
|
|
{
|
|
if (tcp_fd->tf_listenq[i] == NULL)
|
|
continue;
|
|
if (tcp_fd->tf_listenq[i]->tc_connInprogress
|
|
== 0)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
if (i >= TFL_LISTEN_MAX)
|
|
tcp_fd->tf_flags |= TFF_SEL_READ;
|
|
else
|
|
resops |= SR_SELECT_READ;
|
|
}
|
|
if (operations & SR_SELECT_WRITE)
|
|
{
|
|
/* We can't handles writes. Just return the error
|
|
* when the user tries to write.
|
|
*/
|
|
resops |= SR_SELECT_WRITE;
|
|
}
|
|
return resops;
|
|
}
|
|
if (tcp_fd->tf_flags & TFF_CONNECTING)
|
|
{
|
|
/* Special case for CONNECTING */
|
|
if (operations & SR_SELECT_WRITE)
|
|
tcp_fd->tf_flags |= TFF_SEL_WRITE;
|
|
return 0;
|
|
}
|
|
if (operations & SR_SELECT_READ)
|
|
{
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
/* We can't handle reads until a connection has been
|
|
* established. Return the error when the user tries
|
|
* to read.
|
|
*/
|
|
resops |= SR_SELECT_READ;
|
|
}
|
|
else if (tcp_conn->tc_state == TCS_CLOSED ||
|
|
tcp_sel_read(tcp_conn))
|
|
{
|
|
resops |= SR_SELECT_READ;
|
|
}
|
|
else if (!(operations & SR_SELECT_POLL))
|
|
tcp_fd->tf_flags |= TFF_SEL_READ;
|
|
}
|
|
if (operations & SR_SELECT_WRITE)
|
|
{
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
/* We can't handle writes until a connection has been
|
|
* established. Return the error when the user tries
|
|
* to write.
|
|
*/
|
|
resops |= SR_SELECT_WRITE;
|
|
}
|
|
else if (tcp_conn->tc_state == TCS_CLOSED ||
|
|
tcp_conn->tc_flags & TCF_FIN_SENT ||
|
|
tcp_sel_write(tcp_conn))
|
|
{
|
|
resops |= SR_SELECT_WRITE;
|
|
}
|
|
else if (!(operations & SR_SELECT_POLL))
|
|
tcp_fd->tf_flags |= TFF_SEL_WRITE;
|
|
}
|
|
if (operations & SR_SELECT_EXCEPTION)
|
|
{
|
|
/* Should add code for exceptions */
|
|
}
|
|
return resops;
|
|
}
|
|
|
|
static acc_t *tcp_get_data (port, offset, count, for_ioctl)
|
|
int port;
|
|
size_t offset;
|
|
size_t count;
|
|
int for_ioctl;
|
|
{
|
|
tcp_port_t *tcp_port;
|
|
int result;
|
|
|
|
tcp_port= &tcp_port_table[port];
|
|
|
|
switch (tcp_port->tp_state)
|
|
{
|
|
case TPS_SETPROTO:
|
|
if (!count)
|
|
{
|
|
result= (int)offset;
|
|
if (result<0)
|
|
{
|
|
tcp_port->tp_state= TPS_ERROR;
|
|
break;
|
|
}
|
|
tcp_port->tp_state= TPS_GETCONF;
|
|
if (tcp_port->tp_flags & TPF_SUSPEND)
|
|
tcp_main(tcp_port);
|
|
return NW_OK;
|
|
}
|
|
assert (!offset);
|
|
assert (count == sizeof(struct nwio_ipopt));
|
|
{
|
|
struct nwio_ipopt *ipopt;
|
|
acc_t *acc;
|
|
|
|
acc= bf_memreq(sizeof(*ipopt));
|
|
ipopt= (struct nwio_ipopt *)ptr2acc_data(acc);
|
|
ipopt->nwio_flags= NWIO_COPY |
|
|
NWIO_EN_LOC | NWIO_DI_BROAD |
|
|
NWIO_REMANY | NWIO_PROTOSPEC |
|
|
NWIO_HDR_O_ANY | NWIO_RWDATALL;
|
|
ipopt->nwio_proto= IPPROTO_TCP;
|
|
return acc;
|
|
}
|
|
case TPS_MAIN:
|
|
assert(tcp_port->tp_flags & TPF_WRITE_IP);
|
|
if (!count)
|
|
{
|
|
result= (int)offset;
|
|
if (result<0)
|
|
{
|
|
if (result == EHOSTUNREACH ||
|
|
result == ENETUNREACH ||
|
|
result == ENETDOWN)
|
|
{
|
|
if (tcp_port->tp_snd_head)
|
|
{
|
|
tcp_notreach(tcp_port->
|
|
tp_snd_head, result);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ip_warning((
|
|
"ip_write failed with error: %d\n",
|
|
result ));
|
|
}
|
|
}
|
|
assert (tcp_port->tp_pack);
|
|
bf_afree (tcp_port->tp_pack);
|
|
tcp_port->tp_pack= 0;
|
|
|
|
if (tcp_port->tp_flags & TPF_WRITE_SP)
|
|
{
|
|
tcp_port->tp_flags &= ~(TPF_WRITE_SP|
|
|
TPF_WRITE_IP);
|
|
if (tcp_port->tp_snd_head)
|
|
tcp_port_write(tcp_port);
|
|
}
|
|
else
|
|
tcp_port->tp_flags &= ~TPF_WRITE_IP;
|
|
}
|
|
else
|
|
{
|
|
return bf_cut (tcp_port->tp_pack, offset,
|
|
count);
|
|
}
|
|
break;
|
|
default:
|
|
printf("tcp_get_data(%d, 0x%x, 0x%x) called but tp_state= 0x%x\n",
|
|
port, offset, count, tcp_port->tp_state);
|
|
break;
|
|
}
|
|
return NW_OK;
|
|
}
|
|
|
|
static int tcp_put_data (fd, offset, data, for_ioctl)
|
|
int fd;
|
|
size_t offset;
|
|
acc_t *data;
|
|
int for_ioctl;
|
|
{
|
|
tcp_port_t *tcp_port;
|
|
int result;
|
|
|
|
tcp_port= &tcp_port_table[fd];
|
|
|
|
switch (tcp_port->tp_state)
|
|
{
|
|
case TPS_GETCONF:
|
|
if (!data)
|
|
{
|
|
result= (int)offset;
|
|
if (result<0)
|
|
{
|
|
tcp_port->tp_state= TPS_ERROR;
|
|
return NW_OK;
|
|
}
|
|
tcp_port->tp_state= TPS_MAIN;
|
|
if (tcp_port->tp_flags & TPF_SUSPEND)
|
|
tcp_main(tcp_port);
|
|
}
|
|
else
|
|
{
|
|
struct nwio_ipconf *ipconf;
|
|
|
|
data= bf_packIffLess(data, sizeof(*ipconf));
|
|
ipconf= (struct nwio_ipconf *)ptr2acc_data(data);
|
|
assert (ipconf->nwic_flags & NWIC_IPADDR_SET);
|
|
tcp_port->tp_ipaddr= ipconf->nwic_ipaddr;
|
|
tcp_port->tp_subnetmask= ipconf->nwic_netmask;
|
|
tcp_port->tp_mtu= ipconf->nwic_mtu;
|
|
bf_afree(data);
|
|
}
|
|
break;
|
|
case TPS_MAIN:
|
|
assert(tcp_port->tp_flags & TPF_READ_IP);
|
|
if (!data)
|
|
{
|
|
result= (int)offset;
|
|
if (result<0)
|
|
ip_panic(( "ip_read() failed" ));
|
|
|
|
if (tcp_port->tp_flags & TPF_READ_SP)
|
|
{
|
|
tcp_port->tp_flags &= ~(TPF_READ_SP|
|
|
TPF_READ_IP);
|
|
read_ip_packets(tcp_port);
|
|
}
|
|
else
|
|
tcp_port->tp_flags &= ~TPF_READ_IP;
|
|
}
|
|
else
|
|
{
|
|
assert(!offset);
|
|
/* this is an invalid assertion but ip sends
|
|
* only whole datagrams up */
|
|
tcp_put_pkt(fd, data, bf_bufsize(data));
|
|
}
|
|
break;
|
|
default:
|
|
printf(
|
|
"tcp_put_data(%d, 0x%x, %p) called but tp_state= 0x%x\n",
|
|
fd, offset, data, tcp_port->tp_state);
|
|
break;
|
|
}
|
|
return NW_OK;
|
|
}
|
|
|
|
/*
|
|
tcp_put_pkt
|
|
*/
|
|
|
|
static void tcp_put_pkt(fd, data, datalen)
|
|
int fd;
|
|
acc_t *data;
|
|
size_t datalen;
|
|
{
|
|
tcp_port_t *tcp_port;
|
|
tcp_conn_t *tcp_conn, **conn_p;
|
|
ip_hdr_t *ip_hdr;
|
|
tcp_hdr_t *tcp_hdr;
|
|
acc_t *ip_pack, *tcp_pack;
|
|
size_t ip_datalen, tcp_datalen, ip_hdr_len, tcp_hdr_len;
|
|
u16_t sum, mtu;
|
|
u32_t bits;
|
|
int i, hash;
|
|
ipaddr_t srcaddr, dstaddr, ipaddr, mask;
|
|
tcpport_t srcport, dstport;
|
|
|
|
tcp_port= &tcp_port_table[fd];
|
|
|
|
/* Extract the IP header. */
|
|
ip_hdr= (ip_hdr_t *)ptr2acc_data(data);
|
|
ip_hdr_len= (ip_hdr->ih_vers_ihl & IH_IHL_MASK) << 2;
|
|
ip_datalen= datalen - ip_hdr_len;
|
|
if (ip_datalen == 0)
|
|
{
|
|
if (ip_hdr->ih_proto == 0)
|
|
{
|
|
/* IP layer reports new IP address */
|
|
ipaddr= ip_hdr->ih_src;
|
|
mask= ip_hdr->ih_dst;
|
|
mtu= ntohs(ip_hdr->ih_length);
|
|
tcp_port->tp_ipaddr= ipaddr;
|
|
tcp_port->tp_subnetmask= mask;
|
|
tcp_port->tp_mtu= mtu;
|
|
DBLOCK(1, printf("tcp_put_pkt: using address ");
|
|
writeIpAddr(ipaddr);
|
|
printf(", netmask ");
|
|
writeIpAddr(mask);
|
|
printf(", mtu %u\n", mtu));
|
|
for (i= 0, tcp_conn= tcp_conn_table+i;
|
|
i<TCP_CONN_NR; i++, tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (tcp_conn->tc_port != tcp_port)
|
|
continue;
|
|
tcp_conn->tc_locaddr= ipaddr;
|
|
}
|
|
}
|
|
else
|
|
DBLOCK(1, printf("tcp_put_pkt: no TCP header\n"));
|
|
bf_afree(data);
|
|
return;
|
|
}
|
|
data->acc_linkC++;
|
|
ip_pack= data;
|
|
ip_pack= bf_align(ip_pack, ip_hdr_len, 4);
|
|
ip_hdr= (ip_hdr_t *)ptr2acc_data(ip_pack);
|
|
data= bf_delhead(data, ip_hdr_len);
|
|
|
|
/* Compute the checksum */
|
|
sum= tcp_pack_oneCsum(ip_hdr, data);
|
|
|
|
/* Extract the TCP header */
|
|
if (ip_datalen < TCP_MIN_HDR_SIZE)
|
|
{
|
|
DBLOCK(1, printf("truncated TCP header\n"));
|
|
bf_afree(ip_pack);
|
|
bf_afree(data);
|
|
return;
|
|
}
|
|
data= bf_packIffLess(data, TCP_MIN_HDR_SIZE);
|
|
tcp_hdr= (tcp_hdr_t *)ptr2acc_data(data);
|
|
tcp_hdr_len= (tcp_hdr->th_data_off & TH_DO_MASK) >> 2;
|
|
/* actualy (>> 4) << 2 */
|
|
if (ip_datalen < tcp_hdr_len || tcp_hdr_len < TCP_MIN_HDR_SIZE)
|
|
{
|
|
if (tcp_hdr_len < TCP_MIN_HDR_SIZE)
|
|
{
|
|
DBLOCK(1, printf("strange tcp header length %d\n",
|
|
tcp_hdr_len));
|
|
}
|
|
else
|
|
{
|
|
DBLOCK(1, printf("truncated TCP header\n"));
|
|
}
|
|
bf_afree(ip_pack);
|
|
bf_afree(data);
|
|
return;
|
|
}
|
|
data->acc_linkC++;
|
|
tcp_pack= data;
|
|
tcp_pack= bf_align(tcp_pack, tcp_hdr_len, 4);
|
|
tcp_hdr= (tcp_hdr_t *)ptr2acc_data(tcp_pack);
|
|
if (ip_datalen == tcp_hdr_len)
|
|
{
|
|
bf_afree(data);
|
|
data= NULL;
|
|
}
|
|
else
|
|
data= bf_delhead(data, tcp_hdr_len);
|
|
tcp_datalen= ip_datalen-tcp_hdr_len;
|
|
|
|
if ((u16_t)~sum)
|
|
{
|
|
DBLOCK(1, printf("checksum error in tcp packet\n");
|
|
printf("tcp_pack_oneCsum(...)= 0x%x length= %d\n",
|
|
(u16_t)~sum, tcp_datalen);
|
|
printf("src ip_addr= "); writeIpAddr(ip_hdr->ih_src);
|
|
printf("\n"));
|
|
bf_afree(ip_pack);
|
|
bf_afree(tcp_pack);
|
|
bf_afree(data);
|
|
return;
|
|
}
|
|
|
|
srcaddr= ip_hdr->ih_src;
|
|
dstaddr= ip_hdr->ih_dst;
|
|
srcport= tcp_hdr->th_srcport;
|
|
dstport= tcp_hdr->th_dstport;
|
|
bits= srcaddr ^ dstaddr ^ srcport ^ dstport;
|
|
bits= (bits >> 16) ^ bits;
|
|
bits= (bits >> 8) ^ bits;
|
|
hash= ((bits >> TCP_CONN_HASH_SHIFT) ^ bits) & (TCP_CONN_HASH_NR-1);
|
|
conn_p= tcp_port->tp_conn_hash[hash];
|
|
if (conn_p[0]->tc_locport == dstport &&
|
|
conn_p[0]->tc_remport == srcport &&
|
|
conn_p[0]->tc_remaddr == srcaddr &&
|
|
conn_p[0]->tc_locaddr == dstaddr)
|
|
{
|
|
tcp_conn= conn_p[0];
|
|
}
|
|
else if (conn_p[1]->tc_locport == dstport &&
|
|
conn_p[1]->tc_remport == srcport &&
|
|
conn_p[1]->tc_remaddr == srcaddr &&
|
|
conn_p[1]->tc_locaddr == dstaddr)
|
|
{
|
|
tcp_conn= conn_p[1];
|
|
conn_p[1]= conn_p[0];
|
|
conn_p[0]= tcp_conn;
|
|
}
|
|
else if (conn_p[2]->tc_locport == dstport &&
|
|
conn_p[2]->tc_remport == srcport &&
|
|
conn_p[2]->tc_remaddr == srcaddr &&
|
|
conn_p[2]->tc_locaddr == dstaddr)
|
|
{
|
|
tcp_conn= conn_p[2];
|
|
conn_p[2]= conn_p[1];
|
|
conn_p[1]= conn_p[0];
|
|
conn_p[0]= tcp_conn;
|
|
}
|
|
else if (conn_p[3]->tc_locport == dstport &&
|
|
conn_p[3]->tc_remport == srcport &&
|
|
conn_p[3]->tc_remaddr == srcaddr &&
|
|
conn_p[3]->tc_locaddr == dstaddr)
|
|
{
|
|
tcp_conn= conn_p[3];
|
|
conn_p[3]= conn_p[2];
|
|
conn_p[2]= conn_p[1];
|
|
conn_p[1]= conn_p[0];
|
|
conn_p[0]= tcp_conn;
|
|
}
|
|
else
|
|
tcp_conn= NULL;
|
|
if ((tcp_conn != NULL && tcp_conn->tc_state == TCS_CLOSED) ||
|
|
(tcp_hdr->th_flags & THF_SYN))
|
|
{
|
|
tcp_conn= NULL;
|
|
}
|
|
|
|
if (tcp_conn == NULL)
|
|
{
|
|
tcp_conn= find_best_conn(ip_hdr, tcp_hdr);
|
|
if (!tcp_conn)
|
|
{
|
|
/* listen backlog hack */
|
|
bf_afree(ip_pack);
|
|
bf_afree(tcp_pack);
|
|
bf_afree(data);
|
|
return;
|
|
}
|
|
if (tcp_conn->tc_state != TCS_CLOSED)
|
|
{
|
|
conn_p[3]= conn_p[2];
|
|
conn_p[2]= conn_p[1];
|
|
conn_p[1]= conn_p[0];
|
|
conn_p[0]= tcp_conn;
|
|
}
|
|
}
|
|
assert(tcp_conn->tc_busy == 0);
|
|
tcp_conn->tc_busy++;
|
|
tcp_frag2conn(tcp_conn, ip_hdr, tcp_hdr, data, tcp_datalen);
|
|
tcp_conn->tc_busy--;
|
|
bf_afree(ip_pack);
|
|
bf_afree(tcp_pack);
|
|
}
|
|
|
|
|
|
int tcp_open (port, srfd, get_userdata, put_userdata, put_pkt,
|
|
select_res)
|
|
int port;
|
|
int srfd;
|
|
get_userdata_t get_userdata;
|
|
put_userdata_t put_userdata;
|
|
put_pkt_t put_pkt;
|
|
select_res_t select_res;
|
|
{
|
|
int i, j;
|
|
|
|
tcp_fd_t *tcp_fd;
|
|
|
|
for (i=0; i<TCP_FD_NR && (tcp_fd_table[i].tf_flags & TFF_INUSE);
|
|
i++);
|
|
if (i>=TCP_FD_NR)
|
|
{
|
|
return EAGAIN;
|
|
}
|
|
|
|
tcp_fd= &tcp_fd_table[i];
|
|
|
|
tcp_fd->tf_flags= TFF_INUSE;
|
|
tcp_fd->tf_flags |= TFF_PUSH_DATA;
|
|
|
|
tcp_fd->tf_port= &tcp_port_table[port];
|
|
tcp_fd->tf_srfd= srfd;
|
|
tcp_fd->tf_tcpconf.nwtc_flags= TCP_DEF_CONF;
|
|
tcp_fd->tf_tcpconf.nwtc_remaddr= 0;
|
|
tcp_fd->tf_tcpconf.nwtc_remport= 0;
|
|
tcp_fd->tf_tcpopt.nwto_flags= TCP_DEF_OPT;
|
|
tcp_fd->tf_get_userdata= get_userdata;
|
|
tcp_fd->tf_put_userdata= put_userdata;
|
|
tcp_fd->tf_select_res= select_res;
|
|
tcp_fd->tf_conn= 0;
|
|
tcp_fd->tf_error= 0;
|
|
for (j= 0; j<TFL_LISTEN_MAX; j++)
|
|
tcp_fd->tf_listenq[j]= NULL;
|
|
return i;
|
|
}
|
|
|
|
/*
|
|
tcp_ioctl
|
|
*/
|
|
int tcp_ioctl (fd, req)
|
|
int fd;
|
|
ioreq_t req;
|
|
{
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_port_t *tcp_port;
|
|
tcp_conn_t *tcp_conn;
|
|
nwio_tcpconf_t *io_tcp_conf;
|
|
nwio_tcpopt_t *tcp_opt;
|
|
tcp_cookie_t *cookiep;
|
|
acc_t *acc, *conf_acc, *opt_acc;
|
|
int result, *bytesp;
|
|
u8_t rndbits[RAND256_BUFSIZE];
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
|
|
tcp_port= tcp_fd->tf_port;
|
|
tcp_fd->tf_flags |= TFF_IOCTL_IP;
|
|
tcp_fd->tf_ioreq= req;
|
|
|
|
if (tcp_port->tp_state != TPS_MAIN)
|
|
{
|
|
tcp_fd->tf_flags |= TFF_IOC_INIT_SP;
|
|
return NW_SUSPEND;
|
|
}
|
|
|
|
switch (req)
|
|
{
|
|
case NWIOSTCPCONF:
|
|
if ((tcp_fd->tf_flags & TFF_CONNECTED) ||
|
|
(tcp_fd->tf_flags & TFF_CONNECTING) ||
|
|
(tcp_fd->tf_flags & TFF_LISTENQ))
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EISCONN, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
result= tcp_setconf(tcp_fd);
|
|
break;
|
|
case NWIOGTCPCONF:
|
|
conf_acc= bf_memreq(sizeof(*io_tcp_conf));
|
|
assert (conf_acc->acc_length == sizeof(*io_tcp_conf));
|
|
io_tcp_conf= (nwio_tcpconf_t *)ptr2acc_data(conf_acc);
|
|
|
|
*io_tcp_conf= tcp_fd->tf_tcpconf;
|
|
if (tcp_fd->tf_flags & TFF_CONNECTED)
|
|
{
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
io_tcp_conf->nwtc_locport= tcp_conn->tc_locport;
|
|
io_tcp_conf->nwtc_remaddr= tcp_conn->tc_remaddr;
|
|
io_tcp_conf->nwtc_remport= tcp_conn->tc_remport;
|
|
}
|
|
io_tcp_conf->nwtc_locaddr= tcp_fd->tf_port->tp_ipaddr;
|
|
result= (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd,
|
|
0, conf_acc, TRUE);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_put(tcp_fd, result, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
case NWIOSTCPOPT:
|
|
result= tcp_setopt(tcp_fd);
|
|
break;
|
|
case NWIOGTCPOPT:
|
|
opt_acc= bf_memreq(sizeof(*tcp_opt));
|
|
assert (opt_acc->acc_length == sizeof(*tcp_opt));
|
|
tcp_opt= (nwio_tcpopt_t *)ptr2acc_data(opt_acc);
|
|
|
|
*tcp_opt= tcp_fd->tf_tcpopt;
|
|
result= (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd,
|
|
0, opt_acc, TRUE);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_put(tcp_fd, result, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
case NWIOTCPCONN:
|
|
if (tcp_fd->tf_flags & TFF_CONNECTING)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EALREADY, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
if (tcp_fd->tf_flags & TFF_CONNECTED)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EISCONN, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
result= tcp_connect(tcp_fd);
|
|
if (result == NW_OK)
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
break;
|
|
case NWIOTCPLISTEN:
|
|
case NWIOTCPLISTENQ:
|
|
if ((tcp_fd->tf_flags & TFF_CONNECTED) ||
|
|
(tcp_fd->tf_flags & TFF_LISTENQ) ||
|
|
(tcp_fd->tf_flags & TFF_CONNECTING))
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EISCONN, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
result= tcp_listen(tcp_fd, (req == NWIOTCPLISTENQ));
|
|
break;
|
|
case NWIOTCPSHUTDOWN:
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, ENOTCONN, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
tcp_fd->tf_flags |= TFF_IOCTL_IP;
|
|
tcp_fd->tf_ioreq= req;
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
|
|
tcp_conn->tc_busy++;
|
|
tcp_fd_write(tcp_conn);
|
|
tcp_conn->tc_busy--;
|
|
tcp_conn_write(tcp_conn, 0);
|
|
if (!(tcp_fd->tf_flags & TFF_IOCTL_IP))
|
|
result= NW_OK;
|
|
else
|
|
result= NW_SUSPEND;
|
|
break;
|
|
case NWIOTCPPUSH:
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, ENOTCONN, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
tcp_conn->tc_SND_PSH= tcp_conn->tc_SND_NXT;
|
|
tcp_conn->tc_flags &= ~TCF_NO_PUSH;
|
|
tcp_conn->tc_flags |= TCF_PUSH_NOW;
|
|
|
|
/* Start the timer (if necessary) */
|
|
if (tcp_conn->tc_SND_TRM == tcp_conn->tc_SND_UNA)
|
|
tcp_set_send_timer(tcp_conn);
|
|
|
|
tcp_conn_write(tcp_conn, 0);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, NW_OK, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
case NWIOGTCPCOOKIE:
|
|
if (!(tcp_fd->tf_flags & TFF_COOKIE))
|
|
{
|
|
tcp_fd->tf_cookie.tc_ref= fd;
|
|
rand256(rndbits);
|
|
assert(sizeof(tcp_fd->tf_cookie.tc_secret) <=
|
|
RAND256_BUFSIZE);
|
|
memcpy(tcp_fd->tf_cookie.tc_secret,
|
|
rndbits, sizeof(tcp_fd->tf_cookie.tc_secret));
|
|
tcp_fd->tf_flags |= TFF_COOKIE;
|
|
}
|
|
acc= bf_memreq(sizeof(*cookiep));
|
|
cookiep= (tcp_cookie_t *)ptr2acc_data(acc);
|
|
|
|
*cookiep= tcp_fd->tf_cookie;
|
|
result= (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd,
|
|
0, acc, TRUE);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_put(tcp_fd, result, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
case NWIOTCPACCEPTTO:
|
|
result= tcp_acceptto(tcp_fd);
|
|
break;
|
|
case FIONREAD:
|
|
acc= bf_memreq(sizeof(*bytesp));
|
|
bytesp= (int *)ptr2acc_data(acc);
|
|
tcp_bytesavailable(tcp_fd, bytesp);
|
|
result= (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd,
|
|
0, acc, TRUE);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_put(tcp_fd, result, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
|
|
case NWIOTCPGERROR:
|
|
acc= bf_memreq(sizeof(*bytesp));
|
|
bytesp= (int *)ptr2acc_data(acc);
|
|
*bytesp= -tcp_fd->tf_error; /* Errors are positive in
|
|
* user space.
|
|
*/
|
|
tcp_fd->tf_error= 0;
|
|
result= (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd,
|
|
0, acc, TRUE);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_put(tcp_fd, result, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
|
|
default:
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, ENOTTY, TRUE);
|
|
result= NW_OK;
|
|
break;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
|
|
/*
|
|
tcp_setconf
|
|
*/
|
|
|
|
static int tcp_setconf(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
nwio_tcpconf_t *tcpconf;
|
|
nwio_tcpconf_t oldconf, newconf;
|
|
acc_t *data;
|
|
tcp_fd_t *fd_ptr;
|
|
unsigned int new_en_flags, new_di_flags,
|
|
old_en_flags, old_di_flags, all_flags, flags;
|
|
int i;
|
|
|
|
data= (*tcp_fd->tf_get_userdata)
|
|
(tcp_fd->tf_srfd, 0,
|
|
sizeof(nwio_tcpconf_t), TRUE);
|
|
|
|
if (!data)
|
|
return EFAULT;
|
|
|
|
data= bf_packIffLess(data, sizeof(nwio_tcpconf_t));
|
|
assert (data->acc_length == sizeof(nwio_tcpconf_t));
|
|
|
|
tcpconf= (nwio_tcpconf_t *)ptr2acc_data(data);
|
|
oldconf= tcp_fd->tf_tcpconf;
|
|
newconf= *tcpconf;
|
|
|
|
old_en_flags= oldconf.nwtc_flags & 0xffff;
|
|
old_di_flags= (oldconf.nwtc_flags >> 16) &
|
|
0xffff;
|
|
new_en_flags= newconf.nwtc_flags & 0xffff;
|
|
new_di_flags= (newconf.nwtc_flags >> 16) &
|
|
0xffff;
|
|
if (new_en_flags & new_di_flags)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
}
|
|
|
|
/* NWTC_ACC_MASK */
|
|
if (new_di_flags & NWTC_ACC_MASK)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
/* access modes can't be disabled */
|
|
}
|
|
|
|
if (!(new_en_flags & NWTC_ACC_MASK))
|
|
new_en_flags |= (old_en_flags & NWTC_ACC_MASK);
|
|
|
|
/* NWTC_LOCPORT_MASK */
|
|
if (new_di_flags & NWTC_LOCPORT_MASK)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
/* the loc ports can't be disabled */
|
|
}
|
|
if (!(new_en_flags & NWTC_LOCPORT_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags &
|
|
NWTC_LOCPORT_MASK);
|
|
newconf.nwtc_locport= oldconf.nwtc_locport;
|
|
}
|
|
else if ((new_en_flags & NWTC_LOCPORT_MASK) == NWTC_LP_SEL)
|
|
{
|
|
newconf.nwtc_locport= find_unused_port(tcp_fd-
|
|
tcp_fd_table);
|
|
}
|
|
else if ((new_en_flags & NWTC_LOCPORT_MASK) == NWTC_LP_SET)
|
|
{
|
|
if (!newconf.nwtc_locport)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
|
|
/* NWTC_REMADDR_MASK */
|
|
if (!((new_en_flags | new_di_flags) &
|
|
NWTC_REMADDR_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags &
|
|
NWTC_REMADDR_MASK);
|
|
new_di_flags |= (old_di_flags &
|
|
NWTC_REMADDR_MASK);
|
|
newconf.nwtc_remaddr= oldconf.nwtc_remaddr;
|
|
}
|
|
else if (new_en_flags & NWTC_SET_RA)
|
|
{
|
|
if (!newconf.nwtc_remaddr)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
assert (new_di_flags & NWTC_REMADDR_MASK);
|
|
newconf.nwtc_remaddr= 0;
|
|
}
|
|
|
|
/* NWTC_REMPORT_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTC_REMPORT_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags &
|
|
NWTC_REMPORT_MASK);
|
|
new_di_flags |= (old_di_flags &
|
|
NWTC_REMPORT_MASK);
|
|
newconf.nwtc_remport=
|
|
oldconf.nwtc_remport;
|
|
}
|
|
else if (new_en_flags & NWTC_SET_RP)
|
|
{
|
|
if (!newconf.nwtc_remport)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
assert (new_di_flags & NWTC_REMPORT_MASK);
|
|
newconf.nwtc_remport= 0;
|
|
}
|
|
|
|
newconf.nwtc_flags= ((unsigned long)new_di_flags
|
|
<< 16) | new_en_flags;
|
|
all_flags= new_en_flags | new_di_flags;
|
|
|
|
/* check the access modes */
|
|
if ((all_flags & NWTC_LOCPORT_MASK) != NWTC_LP_UNSET)
|
|
{
|
|
for (i=0, fd_ptr= tcp_fd_table; i<TCP_FD_NR; i++, fd_ptr++)
|
|
{
|
|
if (fd_ptr == tcp_fd)
|
|
continue;
|
|
if (!(fd_ptr->tf_flags & TFF_INUSE))
|
|
continue;
|
|
if (fd_ptr->tf_port != tcp_fd->tf_port)
|
|
continue;
|
|
flags= fd_ptr->tf_tcpconf.nwtc_flags;
|
|
if ((flags & NWTC_LOCPORT_MASK) == NWTC_LP_UNSET)
|
|
continue;
|
|
if (fd_ptr->tf_tcpconf.nwtc_locport !=
|
|
newconf.nwtc_locport)
|
|
continue;
|
|
if ((flags & NWTC_ACC_MASK) != (all_flags &
|
|
NWTC_ACC_MASK) ||
|
|
(all_flags & NWTC_ACC_MASK) == NWTC_EXCL)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EADDRINUSE, TRUE);
|
|
bf_afree(data);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
tcp_fd->tf_tcpconf= newconf;
|
|
|
|
if ((all_flags & NWTC_ACC_MASK) &&
|
|
((all_flags & NWTC_LOCPORT_MASK) == NWTC_LP_SET ||
|
|
(all_flags & NWTC_LOCPORT_MASK) == NWTC_LP_SEL) &&
|
|
(all_flags & NWTC_REMADDR_MASK) &&
|
|
(all_flags & NWTC_REMPORT_MASK))
|
|
tcp_fd->tf_flags |= TFF_CONF_SET;
|
|
else
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_CONF_SET;
|
|
}
|
|
bf_afree(data);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, NW_OK, TRUE);
|
|
return NW_OK;
|
|
}
|
|
|
|
|
|
/*
|
|
tcp_setopt
|
|
*/
|
|
|
|
static int tcp_setopt(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
nwio_tcpopt_t *tcpopt;
|
|
nwio_tcpopt_t oldopt, newopt;
|
|
acc_t *data;
|
|
unsigned int new_en_flags, new_di_flags,
|
|
old_en_flags, old_di_flags;
|
|
|
|
data= (*tcp_fd->tf_get_userdata) (tcp_fd->tf_srfd, 0,
|
|
sizeof(nwio_tcpopt_t), TRUE);
|
|
|
|
if (!data)
|
|
return EFAULT;
|
|
|
|
data= bf_packIffLess(data, sizeof(nwio_tcpopt_t));
|
|
assert (data->acc_length == sizeof(nwio_tcpopt_t));
|
|
|
|
tcpopt= (nwio_tcpopt_t *)ptr2acc_data(data);
|
|
oldopt= tcp_fd->tf_tcpopt;
|
|
newopt= *tcpopt;
|
|
|
|
old_en_flags= oldopt.nwto_flags & 0xffff;
|
|
old_di_flags= (oldopt.nwto_flags >> 16) & 0xffff;
|
|
new_en_flags= newopt.nwto_flags & 0xffff;
|
|
new_di_flags= (newopt.nwto_flags >> 16) & 0xffff;
|
|
if (new_en_flags & new_di_flags)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
return NW_OK;
|
|
}
|
|
|
|
/* NWTO_SND_URG_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTO_SND_URG_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags & NWTO_SND_URG_MASK);
|
|
new_di_flags |= (old_di_flags & NWTO_SND_URG_MASK);
|
|
}
|
|
|
|
/* NWTO_RCV_URG_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTO_RCV_URG_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags & NWTO_RCV_URG_MASK);
|
|
new_di_flags |= (old_di_flags & NWTO_RCV_URG_MASK);
|
|
}
|
|
|
|
/* NWTO_BSD_URG_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTO_BSD_URG_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags & NWTO_BSD_URG_MASK);
|
|
new_di_flags |= (old_di_flags & NWTO_BSD_URG_MASK);
|
|
}
|
|
else
|
|
{
|
|
if (tcp_fd->tf_conn == NULL)
|
|
{
|
|
bf_afree(data);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EINVAL, TRUE);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
|
|
/* NWTO_DEL_RST_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTO_DEL_RST_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags & NWTO_DEL_RST_MASK);
|
|
new_di_flags |= (old_di_flags & NWTO_DEL_RST_MASK);
|
|
}
|
|
|
|
/* NWTO_BULK_MASK */
|
|
if (!((new_en_flags | new_di_flags) & NWTO_BULK_MASK))
|
|
{
|
|
new_en_flags |= (old_en_flags & NWTO_BULK_MASK);
|
|
new_di_flags |= (old_di_flags & NWTO_BULK_MASK);
|
|
}
|
|
|
|
newopt.nwto_flags= ((unsigned long)new_di_flags << 16) |
|
|
new_en_flags;
|
|
tcp_fd->tf_tcpopt= newopt;
|
|
if (newopt.nwto_flags & NWTO_SND_URG)
|
|
tcp_fd->tf_flags |= TFF_WR_URG;
|
|
else
|
|
tcp_fd->tf_flags &= ~TFF_WR_URG;
|
|
|
|
if (newopt.nwto_flags & NWTO_RCV_URG)
|
|
tcp_fd->tf_flags |= TFF_RECV_URG;
|
|
else
|
|
tcp_fd->tf_flags &= ~TFF_RECV_URG;
|
|
|
|
if (tcp_fd->tf_conn)
|
|
{
|
|
if (newopt.nwto_flags & NWTO_BSD_URG)
|
|
tcp_fd->tf_conn->tc_flags |= TCF_BSD_URG;
|
|
else
|
|
tcp_fd->tf_conn->tc_flags &= ~TCF_BSD_URG;
|
|
}
|
|
|
|
if (newopt.nwto_flags & NWTO_DEL_RST)
|
|
tcp_fd->tf_flags |= TFF_DEL_RST;
|
|
else
|
|
tcp_fd->tf_flags &= ~TFF_DEL_RST;
|
|
|
|
if (newopt.nwto_flags & NWTO_BULK)
|
|
tcp_fd->tf_flags &= ~TFF_PUSH_DATA;
|
|
else
|
|
tcp_fd->tf_flags |= TFF_PUSH_DATA;
|
|
|
|
bf_afree(data);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, NW_OK, TRUE);
|
|
return NW_OK;
|
|
}
|
|
|
|
|
|
static tcpport_t find_unused_port(int fd)
|
|
{
|
|
tcpport_t port, nw_port;
|
|
|
|
for (port= 0x8000+fd; port < 0xffff-TCP_FD_NR; port+= TCP_FD_NR)
|
|
{
|
|
nw_port= htons(port);
|
|
if (is_unused_port(nw_port))
|
|
return nw_port;
|
|
}
|
|
for (port= 0x8000; port < 0xffff; port++)
|
|
{
|
|
nw_port= htons(port);
|
|
if (is_unused_port(nw_port))
|
|
return nw_port;
|
|
}
|
|
ip_panic(( "unable to find unused port (shouldn't occur)" ));
|
|
return 0;
|
|
}
|
|
|
|
static int is_unused_port(tcpport_t port)
|
|
{
|
|
int i;
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
for (i= 0, tcp_fd= tcp_fd_table; i<TCP_FD_NR; i++,
|
|
tcp_fd++)
|
|
{
|
|
if (!(tcp_fd->tf_flags & TFF_CONF_SET))
|
|
continue;
|
|
if (tcp_fd->tf_tcpconf.nwtc_locport == port)
|
|
return FALSE;
|
|
}
|
|
for (i= tcp_conf_nr, tcp_conn= tcp_conn_table+i;
|
|
i<TCP_CONN_NR; i++, tcp_conn++)
|
|
/* the first tcp_conf_nr ports are special */
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (tcp_conn->tc_locport == port)
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static int reply_thr_put(tcp_fd, reply, for_ioctl)
|
|
tcp_fd_t *tcp_fd;
|
|
int reply;
|
|
int for_ioctl;
|
|
{
|
|
assert (tcp_fd);
|
|
|
|
return (*tcp_fd->tf_put_userdata)(tcp_fd->tf_srfd, reply,
|
|
(acc_t *)0, for_ioctl);
|
|
}
|
|
|
|
static void reply_thr_get(tcp_fd, reply, for_ioctl)
|
|
tcp_fd_t *tcp_fd;
|
|
int reply;
|
|
int for_ioctl;
|
|
{
|
|
acc_t *result;
|
|
|
|
result= (*tcp_fd->tf_get_userdata)(tcp_fd->tf_srfd, reply,
|
|
(size_t)0, for_ioctl);
|
|
assert (!result);
|
|
}
|
|
|
|
int tcp_su4listen(tcp_fd, tcp_conn, do_listenq)
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
int do_listenq;
|
|
{
|
|
tcp_conn->tc_locport= tcp_fd->tf_tcpconf.nwtc_locport;
|
|
tcp_conn->tc_locaddr= tcp_fd->tf_port->tp_ipaddr;
|
|
if (tcp_fd->tf_tcpconf.nwtc_flags & NWTC_SET_RP)
|
|
tcp_conn->tc_remport= tcp_fd->tf_tcpconf.nwtc_remport;
|
|
else
|
|
tcp_conn->tc_remport= 0;
|
|
if (tcp_fd->tf_tcpconf.nwtc_flags & NWTC_SET_RA)
|
|
tcp_conn->tc_remaddr= tcp_fd->tf_tcpconf.nwtc_remaddr;
|
|
else
|
|
tcp_conn->tc_remaddr= 0;
|
|
|
|
tcp_setup_conn(tcp_fd->tf_port, tcp_conn);
|
|
tcp_conn->tc_fd= tcp_fd;
|
|
tcp_conn->tc_connInprogress= 1;
|
|
tcp_conn->tc_orglisten= TRUE;
|
|
tcp_conn->tc_state= TCS_LISTEN;
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_MAX_LISTEN;
|
|
if (do_listenq)
|
|
{
|
|
tcp_fd->tf_flags |= TFF_LISTENQ;
|
|
tcp_reply_ioctl(tcp_fd, NW_OK);
|
|
return NW_OK;
|
|
}
|
|
return NW_SUSPEND;
|
|
}
|
|
|
|
/*
|
|
find_empty_conn
|
|
|
|
This function returns a connection that is not inuse.
|
|
This includes connections that are never used, and connections without a
|
|
user that are not used for a while.
|
|
*/
|
|
|
|
static tcp_conn_t *find_empty_conn()
|
|
{
|
|
int i;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
for (i=tcp_conf_nr, tcp_conn= tcp_conn_table+i;
|
|
i<TCP_CONN_NR; i++, tcp_conn++)
|
|
/* the first tcp_conf_nr connections are reserved for
|
|
* RSTs
|
|
*/
|
|
{
|
|
if (tcp_conn->tc_flags == TCF_EMPTY)
|
|
{
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_conn->tc_fd= NULL;
|
|
return tcp_conn;
|
|
}
|
|
if (tcp_conn->tc_fd)
|
|
continue;
|
|
if (tcp_conn->tc_senddis > get_time())
|
|
continue;
|
|
if (tcp_conn->tc_state != TCS_CLOSED)
|
|
{
|
|
tcp_close_connection (tcp_conn, ENOCONN);
|
|
}
|
|
tcp_conn->tc_flags= 0;
|
|
return tcp_conn;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
|
|
/*
|
|
find_conn_entry
|
|
|
|
This function return a connection matching locport, locaddr, remport, remaddr.
|
|
If no such connection exists NULL is returned.
|
|
If a connection exists without mainuser it is closed.
|
|
*/
|
|
|
|
static tcp_conn_t *find_conn_entry(
|
|
tcpport_t locport,
|
|
ipaddr_t locaddr,
|
|
tcpport_t remport,
|
|
ipaddr_t remaddr
|
|
)
|
|
{
|
|
tcp_conn_t *tcp_conn;
|
|
int i, state;
|
|
|
|
assert(remport);
|
|
assert(remaddr);
|
|
for (i=tcp_conf_nr, tcp_conn= tcp_conn_table+i; i<TCP_CONN_NR;
|
|
i++, tcp_conn++)
|
|
/* the first tcp_conf_nr connections are reserved for
|
|
RSTs */
|
|
{
|
|
if (tcp_conn->tc_flags == TCF_EMPTY)
|
|
continue;
|
|
if (tcp_conn->tc_locport != locport ||
|
|
tcp_conn->tc_locaddr != locaddr ||
|
|
tcp_conn->tc_remport != remport ||
|
|
tcp_conn->tc_remaddr != remaddr)
|
|
continue;
|
|
if (tcp_conn->tc_fd)
|
|
return tcp_conn;
|
|
state= tcp_conn->tc_state;
|
|
if (state != TCS_CLOSED)
|
|
{
|
|
tcp_close_connection(tcp_conn, ENOCONN);
|
|
}
|
|
return tcp_conn;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static void read_ip_packets(tcp_port)
|
|
tcp_port_t *tcp_port;
|
|
{
|
|
int result;
|
|
|
|
do
|
|
{
|
|
tcp_port->tp_flags |= TPF_READ_IP;
|
|
result= ip_read(tcp_port->tp_ipfd, TCP_MAX_DATAGRAM);
|
|
if (result == NW_SUSPEND)
|
|
{
|
|
tcp_port->tp_flags |= TPF_READ_SP;
|
|
return;
|
|
}
|
|
assert(result == NW_OK);
|
|
tcp_port->tp_flags &= ~TPF_READ_IP;
|
|
} while(!(tcp_port->tp_flags & TPF_READ_IP));
|
|
}
|
|
|
|
/*
|
|
find_best_conn
|
|
*/
|
|
|
|
static tcp_conn_t *find_best_conn(ip_hdr, tcp_hdr)
|
|
ip_hdr_t *ip_hdr;
|
|
tcp_hdr_t *tcp_hdr;
|
|
{
|
|
|
|
int best_level, new_level;
|
|
tcp_conn_t *best_conn, *listen_conn, *tcp_conn;
|
|
tcp_fd_t *tcp_fd;
|
|
int i;
|
|
ipaddr_t locaddr;
|
|
ipaddr_t remaddr;
|
|
tcpport_t locport;
|
|
tcpport_t remport;
|
|
|
|
locaddr= ip_hdr->ih_dst;
|
|
remaddr= ip_hdr->ih_src;
|
|
locport= tcp_hdr->th_dstport;
|
|
remport= tcp_hdr->th_srcport;
|
|
if (!remport) /* This can interfere with a listen, so we reject it
|
|
* by clearing the requested port
|
|
*/
|
|
locport= 0;
|
|
|
|
best_level= 0;
|
|
best_conn= NULL;
|
|
listen_conn= NULL;
|
|
for (i= tcp_conf_nr, tcp_conn= tcp_conn_table+i;
|
|
i<TCP_CONN_NR; i++, tcp_conn++)
|
|
/* the first tcp_conf_nr connections are reserved for
|
|
RSTs */
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
/* First fast check for open connections. */
|
|
if (tcp_conn->tc_locaddr == locaddr &&
|
|
tcp_conn->tc_locport == locport &&
|
|
tcp_conn->tc_remport == remport &&
|
|
tcp_conn->tc_remaddr == remaddr &&
|
|
tcp_conn->tc_fd)
|
|
{
|
|
return tcp_conn;
|
|
}
|
|
|
|
/* Now check for listens and abandoned connections. */
|
|
if (tcp_conn->tc_locaddr != locaddr)
|
|
{
|
|
continue;
|
|
}
|
|
new_level= 0;
|
|
if (tcp_conn->tc_locport)
|
|
{
|
|
if (tcp_conn->tc_locport != locport)
|
|
{
|
|
continue;
|
|
}
|
|
new_level += 4;
|
|
}
|
|
if (tcp_conn->tc_remport)
|
|
{
|
|
if (tcp_conn->tc_remport != remport)
|
|
{
|
|
continue;
|
|
}
|
|
new_level += 1;
|
|
}
|
|
if (tcp_conn->tc_remaddr)
|
|
{
|
|
if (tcp_conn->tc_remaddr != remaddr)
|
|
{
|
|
continue;
|
|
}
|
|
new_level += 2;
|
|
}
|
|
if (new_level<best_level)
|
|
continue;
|
|
if (new_level != 7 && tcp_conn->tc_state != TCS_LISTEN)
|
|
continue;
|
|
if (new_level == 7)
|
|
/* We found an abandoned connection */
|
|
{
|
|
assert(!tcp_conn->tc_fd);
|
|
if (best_conn && tcp_Lmod4G(tcp_conn->tc_ISS,
|
|
best_conn->tc_ISS))
|
|
{
|
|
continue;
|
|
}
|
|
best_conn= tcp_conn;
|
|
continue;
|
|
}
|
|
if (!(tcp_hdr->th_flags & THF_SYN))
|
|
continue;
|
|
best_level= new_level;
|
|
listen_conn= tcp_conn;
|
|
assert(listen_conn->tc_fd != NULL);
|
|
}
|
|
|
|
if (listen_conn && listen_conn->tc_fd->tf_flags & TFF_LISTENQ &&
|
|
listen_conn->tc_fd->tf_conn == listen_conn)
|
|
{
|
|
/* Special processing for listen queues. Only accept the
|
|
* connection if there is empty space in the queue and
|
|
* there are empty connections as well.
|
|
*/
|
|
listen_conn= new_conn_for_queue(listen_conn->tc_fd);
|
|
|
|
if (listen_conn)
|
|
return listen_conn;
|
|
}
|
|
|
|
if (!best_conn && !listen_conn)
|
|
{
|
|
if ((tcp_hdr->th_flags & THF_SYN) &&
|
|
maybe_listen(locaddr, locport, remaddr, remport))
|
|
{
|
|
/* Quick hack to implement listen back logs:
|
|
* if a SYN arrives and there is no listen waiting
|
|
* for that packet, then no reply is sent.
|
|
*/
|
|
return NULL;
|
|
}
|
|
|
|
for (i=0, tcp_conn= tcp_conn_table; i<tcp_conf_nr;
|
|
i++, tcp_conn++)
|
|
{
|
|
/* find valid port to send RST */
|
|
if ((tcp_conn->tc_flags & TCF_INUSE) &&
|
|
tcp_conn->tc_locaddr==locaddr)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
assert (tcp_conn);
|
|
assert (tcp_conn->tc_state == TCS_CLOSED);
|
|
|
|
tcp_conn->tc_locport= locport;
|
|
tcp_conn->tc_locaddr= locaddr;
|
|
tcp_conn->tc_remport= remport;
|
|
tcp_conn->tc_remaddr= remaddr;
|
|
assert (!tcp_conn->tc_fd);
|
|
return tcp_conn;
|
|
}
|
|
|
|
if (best_conn)
|
|
{
|
|
if (!listen_conn)
|
|
{
|
|
assert(!best_conn->tc_fd);
|
|
return best_conn;
|
|
}
|
|
|
|
assert(listen_conn->tc_connInprogress);
|
|
tcp_fd= listen_conn->tc_fd;
|
|
assert(tcp_fd);
|
|
assert((tcp_fd->tf_flags & TFF_LISTENQ) ||
|
|
tcp_fd->tf_conn == listen_conn);
|
|
|
|
if (best_conn->tc_state != TCS_CLOSED)
|
|
tcp_close_connection(best_conn, ENOCONN);
|
|
|
|
listen_conn->tc_ISS= best_conn->tc_ISS;
|
|
if (best_conn->tc_senddis > listen_conn->tc_senddis)
|
|
listen_conn->tc_senddis= best_conn->tc_senddis;
|
|
return listen_conn;
|
|
}
|
|
assert (listen_conn);
|
|
return listen_conn;
|
|
}
|
|
|
|
/*
|
|
new_conn_for_queue
|
|
*/
|
|
static tcp_conn_t *new_conn_for_queue(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
int i;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
assert(tcp_fd->tf_flags & TFF_LISTENQ);
|
|
|
|
for (i= 0; i<TFL_LISTEN_MAX; i++)
|
|
{
|
|
if (tcp_fd->tf_listenq[i] == NULL)
|
|
break;
|
|
}
|
|
if (i >= TFL_LISTEN_MAX)
|
|
return NULL;
|
|
|
|
tcp_conn= find_empty_conn();
|
|
if (!tcp_conn)
|
|
return NULL;
|
|
tcp_fd->tf_listenq[i]= tcp_conn;
|
|
(void)tcp_su4listen(tcp_fd, tcp_conn, 0 /* !do_listenq */);
|
|
return tcp_conn;
|
|
}
|
|
|
|
/*
|
|
maybe_listen
|
|
*/
|
|
static int maybe_listen(
|
|
ipaddr_t locaddr,
|
|
tcpport_t locport,
|
|
ipaddr_t remaddr,
|
|
tcpport_t remport
|
|
)
|
|
{
|
|
int i;
|
|
tcp_conn_t *tcp_conn;
|
|
tcp_fd_t *fd;
|
|
|
|
for (i= tcp_conf_nr, tcp_conn= tcp_conn_table+i;
|
|
i<TCP_CONN_NR; i++, tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
|
|
if (tcp_conn->tc_locaddr != locaddr)
|
|
{
|
|
continue;
|
|
}
|
|
if (tcp_conn->tc_locport != locport )
|
|
{
|
|
continue;
|
|
}
|
|
if (!tcp_conn->tc_orglisten)
|
|
continue;
|
|
fd= tcp_conn->tc_fd;
|
|
if (!fd)
|
|
continue;
|
|
if ((fd->tf_tcpconf.nwtc_flags & NWTC_SET_RP) &&
|
|
tcp_conn->tc_remport != remport)
|
|
{
|
|
continue;
|
|
}
|
|
if ((fd->tf_tcpconf.nwtc_flags & NWTC_SET_RA) &&
|
|
tcp_conn->tc_remaddr != remaddr)
|
|
{
|
|
continue;
|
|
}
|
|
if (!(fd->tf_flags & TFF_DEL_RST))
|
|
continue;
|
|
return 1;
|
|
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
void tcp_reply_ioctl(tcp_fd, reply)
|
|
tcp_fd_t *tcp_fd;
|
|
int reply;
|
|
{
|
|
assert (tcp_fd->tf_flags & TFF_IOCTL_IP);
|
|
assert (tcp_fd->tf_ioreq == NWIOTCPSHUTDOWN ||
|
|
tcp_fd->tf_ioreq == NWIOTCPLISTEN ||
|
|
tcp_fd->tf_ioreq == NWIOTCPLISTENQ ||
|
|
tcp_fd->tf_ioreq == NWIOTCPACCEPTTO ||
|
|
tcp_fd->tf_ioreq == NWIOTCPCONN);
|
|
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, reply, TRUE);
|
|
}
|
|
|
|
void tcp_reply_write(tcp_fd, reply)
|
|
tcp_fd_t *tcp_fd;
|
|
size_t reply;
|
|
{
|
|
assert (tcp_fd->tf_flags & TFF_WRITE_IP);
|
|
|
|
tcp_fd->tf_flags &= ~TFF_WRITE_IP;
|
|
reply_thr_get (tcp_fd, reply, FALSE);
|
|
}
|
|
|
|
void tcp_reply_read(tcp_fd, reply)
|
|
tcp_fd_t *tcp_fd;
|
|
size_t reply;
|
|
{
|
|
assert (tcp_fd->tf_flags & TFF_READ_IP);
|
|
|
|
tcp_fd->tf_flags &= ~TFF_READ_IP;
|
|
reply_thr_put (tcp_fd, reply, FALSE);
|
|
}
|
|
|
|
int tcp_write(fd, count)
|
|
int fd;
|
|
size_t count;
|
|
{
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
reply_thr_get (tcp_fd, ENOTCONN, FALSE);
|
|
return NW_OK;
|
|
}
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
if (tcp_conn->tc_state == TCS_CLOSED)
|
|
{
|
|
reply_thr_get(tcp_fd, tcp_conn->tc_error, FALSE);
|
|
return NW_OK;
|
|
}
|
|
if (tcp_conn->tc_flags & TCF_FIN_SENT)
|
|
{
|
|
reply_thr_get (tcp_fd, ESHUTDOWN, FALSE);
|
|
return NW_OK;
|
|
}
|
|
|
|
tcp_fd->tf_flags |= TFF_WRITE_IP;
|
|
tcp_fd->tf_write_offset= 0;
|
|
tcp_fd->tf_write_count= count;
|
|
|
|
/* New data may cause a segment to be sent. Clear PUSH_NOW
|
|
* from last NWIOTCPPUSH ioctl.
|
|
*/
|
|
tcp_conn->tc_flags &= ~(TCF_NO_PUSH|TCF_PUSH_NOW);
|
|
|
|
/* Start the timer (if necessary) */
|
|
if (tcp_conn->tc_SND_TRM == tcp_conn->tc_SND_UNA)
|
|
tcp_set_send_timer(tcp_conn);
|
|
|
|
assert(tcp_conn->tc_busy == 0);
|
|
tcp_conn->tc_busy++;
|
|
tcp_fd_write(tcp_conn);
|
|
tcp_conn->tc_busy--;
|
|
tcp_conn_write(tcp_conn, 0);
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_WRITE_IP))
|
|
return NW_OK;
|
|
else
|
|
return NW_SUSPEND;
|
|
}
|
|
|
|
int
|
|
tcp_read(fd, count)
|
|
int fd;
|
|
size_t count;
|
|
{
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_CONNECTED))
|
|
{
|
|
reply_thr_put (tcp_fd, ENOTCONN, FALSE);
|
|
return NW_OK;
|
|
}
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
|
|
tcp_fd->tf_flags |= TFF_READ_IP;
|
|
tcp_fd->tf_read_offset= 0;
|
|
tcp_fd->tf_read_count= count;
|
|
|
|
assert(tcp_conn->tc_busy == 0);
|
|
tcp_conn->tc_busy++;
|
|
tcp_fd_read(tcp_conn, 0);
|
|
tcp_conn->tc_busy--;
|
|
if (!(tcp_fd->tf_flags & TFF_READ_IP))
|
|
return NW_OK;
|
|
else
|
|
return NW_SUSPEND;
|
|
}
|
|
|
|
/*
|
|
tcp_restart_connect
|
|
|
|
reply the success or failure of a connect to the user.
|
|
*/
|
|
|
|
|
|
void tcp_restart_connect(tcp_conn)
|
|
tcp_conn_t *tcp_conn;
|
|
{
|
|
tcp_fd_t *tcp_fd;
|
|
int reply;
|
|
|
|
assert(tcp_conn->tc_connInprogress);
|
|
tcp_conn->tc_connInprogress= 0;
|
|
|
|
tcp_fd= tcp_conn->tc_fd;
|
|
assert(tcp_fd);
|
|
if (tcp_fd->tf_flags & TFF_LISTENQ)
|
|
{
|
|
/* Special code for listen queues */
|
|
assert(tcp_conn->tc_state != TCS_CLOSED);
|
|
|
|
/* Reply for select */
|
|
if ((tcp_fd->tf_flags & TFF_SEL_READ) &&
|
|
tcp_fd->tf_select_res)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_SEL_READ;
|
|
tcp_fd->tf_select_res(tcp_fd->tf_srfd,
|
|
SR_SELECT_READ);
|
|
}
|
|
|
|
/* Reply for acceptto */
|
|
if (tcp_fd->tf_flags & TFF_IOCTL_IP)
|
|
(void) tcp_acceptto(tcp_fd);
|
|
|
|
return;
|
|
}
|
|
|
|
if (tcp_conn->tc_state == TCS_CLOSED)
|
|
{
|
|
reply= tcp_conn->tc_error;
|
|
assert(tcp_conn->tc_fd == tcp_fd);
|
|
tcp_fd->tf_conn= NULL;
|
|
tcp_conn->tc_fd= NULL;
|
|
tcp_fd->tf_error= reply;
|
|
}
|
|
else
|
|
{
|
|
tcp_fd->tf_flags |= TFF_CONNECTED;
|
|
reply= NW_OK;
|
|
}
|
|
|
|
if (tcp_fd->tf_flags & TFF_CONNECTING)
|
|
{
|
|
/* Special code for asynchronous connects */
|
|
tcp_fd->tf_flags &= ~TFF_CONNECTING;
|
|
|
|
/* Reply for select */
|
|
if ((tcp_fd->tf_flags & TFF_SEL_WRITE) &&
|
|
tcp_fd->tf_select_res)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_SEL_WRITE;
|
|
tcp_fd->tf_select_res(tcp_fd->tf_srfd,
|
|
SR_SELECT_WRITE);
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
assert(tcp_fd->tf_flags & TFF_IOCTL_IP);
|
|
assert(tcp_fd->tf_ioreq == NWIOTCPLISTEN ||
|
|
tcp_fd->tf_ioreq == NWIOTCPCONN);
|
|
|
|
tcp_reply_ioctl (tcp_fd, reply);
|
|
}
|
|
|
|
/*
|
|
tcp_close
|
|
*/
|
|
|
|
void tcp_close(fd)
|
|
int fd;
|
|
{
|
|
int i;
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
assert (!(tcp_fd->tf_flags &
|
|
(TFF_IOCTL_IP|TFF_READ_IP|TFF_WRITE_IP)));
|
|
|
|
if (tcp_fd->tf_flags & TFF_LISTENQ)
|
|
{
|
|
/* Special code for listen queues */
|
|
for (i= 0; i<TFL_LISTEN_MAX; i++)
|
|
{
|
|
tcp_conn= tcp_fd->tf_listenq[i];
|
|
if (!tcp_conn)
|
|
continue;
|
|
|
|
tcp_fd->tf_listenq[i]= NULL;
|
|
assert(tcp_conn->tc_fd == tcp_fd);
|
|
tcp_conn->tc_fd= NULL;
|
|
|
|
if (tcp_conn->tc_connInprogress)
|
|
{
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_close_connection(tcp_conn, ENOCONN);
|
|
continue;
|
|
}
|
|
|
|
tcp_shutdown (tcp_conn);
|
|
if (tcp_conn->tc_state == TCS_ESTABLISHED)
|
|
tcp_conn->tc_state= TCS_CLOSING;
|
|
|
|
/* Set the retransmission timeout a bit smaller. */
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_MAX_CLOSING;
|
|
|
|
/* If all data has been acknowledged, close the connection. */
|
|
if (tcp_conn->tc_SND_UNA == tcp_conn->tc_SND_NXT)
|
|
tcp_close_connection(tcp_conn, ENOTCONN);
|
|
}
|
|
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
assert(tcp_conn->tc_fd == tcp_fd);
|
|
assert (tcp_conn->tc_connInprogress);
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_conn->tc_fd= NULL;
|
|
tcp_fd->tf_conn= NULL;
|
|
tcp_close_connection(tcp_conn, ENOCONN);
|
|
}
|
|
for (i= 0; i<TFL_LISTEN_MAX; i++)
|
|
{
|
|
assert(tcp_fd->tf_listenq[i] == NULL);
|
|
}
|
|
|
|
if (tcp_fd->tf_flags & TFF_CONNECTING)
|
|
{
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
assert(tcp_conn != NULL);
|
|
|
|
assert (tcp_conn->tc_connInprogress);
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_conn->tc_fd= NULL;
|
|
tcp_fd->tf_conn= NULL;
|
|
tcp_close_connection(tcp_conn, ENOCONN);
|
|
|
|
tcp_fd->tf_flags &= ~TFF_CONNECTING;
|
|
}
|
|
|
|
tcp_fd->tf_flags &= ~TFF_INUSE;
|
|
if (!tcp_fd->tf_conn)
|
|
return;
|
|
|
|
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
assert(tcp_conn->tc_fd == tcp_fd);
|
|
tcp_conn->tc_fd= NULL;
|
|
|
|
assert (!tcp_conn->tc_connInprogress);
|
|
|
|
tcp_shutdown (tcp_conn);
|
|
if (tcp_conn->tc_state == TCS_ESTABLISHED)
|
|
{
|
|
tcp_conn->tc_state= TCS_CLOSING;
|
|
}
|
|
|
|
/* Set the retransmission timeout a bit smaller. */
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_MAX_CLOSING;
|
|
|
|
/* If all data has been acknowledged, close the connection. */
|
|
if (tcp_conn->tc_SND_UNA == tcp_conn->tc_SND_NXT)
|
|
tcp_close_connection(tcp_conn, ENOTCONN);
|
|
}
|
|
|
|
int tcp_cancel(fd, which_operation)
|
|
int fd;
|
|
int which_operation;
|
|
{
|
|
tcp_fd_t *tcp_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_fd= &tcp_fd_table[fd];
|
|
|
|
assert (tcp_fd->tf_flags & TFF_INUSE);
|
|
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
|
|
switch (which_operation)
|
|
{
|
|
case SR_CANCEL_WRITE:
|
|
assert (tcp_fd->tf_flags & TFF_WRITE_IP);
|
|
tcp_fd->tf_flags &= ~TFF_WRITE_IP;
|
|
|
|
if (tcp_fd->tf_write_offset)
|
|
reply_thr_get (tcp_fd, tcp_fd->tf_write_offset, FALSE);
|
|
else
|
|
reply_thr_get (tcp_fd, EINTR, FALSE);
|
|
break;
|
|
case SR_CANCEL_READ:
|
|
assert (tcp_fd->tf_flags & TFF_READ_IP);
|
|
tcp_fd->tf_flags &= ~TFF_READ_IP;
|
|
if (tcp_fd->tf_read_offset)
|
|
reply_thr_put (tcp_fd, tcp_fd->tf_read_offset, FALSE);
|
|
else
|
|
reply_thr_put (tcp_fd, EINTR, FALSE);
|
|
break;
|
|
case SR_CANCEL_IOCTL:
|
|
assert (tcp_fd->tf_flags & TFF_IOCTL_IP);
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
|
|
if (tcp_fd->tf_flags & TFF_IOC_INIT_SP)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOC_INIT_SP;
|
|
reply_thr_put (tcp_fd, EINTR, TRUE);
|
|
break;
|
|
}
|
|
|
|
switch (tcp_fd->tf_ioreq)
|
|
{
|
|
case NWIOGTCPCONF:
|
|
reply_thr_put (tcp_fd, EINTR, TRUE);
|
|
break;
|
|
case NWIOSTCPCONF:
|
|
case NWIOTCPSHUTDOWN:
|
|
reply_thr_get (tcp_fd, EINTR, TRUE);
|
|
break;
|
|
case NWIOTCPCONN:
|
|
case NWIOTCPLISTEN:
|
|
assert (tcp_conn->tc_connInprogress);
|
|
tcp_conn->tc_connInprogress= 0;
|
|
tcp_conn->tc_fd= NULL;
|
|
tcp_fd->tf_conn= NULL;
|
|
tcp_close_connection(tcp_conn, ENOCONN);
|
|
reply_thr_get (tcp_fd, EINTR, TRUE);
|
|
break;
|
|
default:
|
|
ip_warning(( "unknown ioctl inprogress: 0x%x",
|
|
tcp_fd->tf_ioreq ));
|
|
reply_thr_get (tcp_fd, EINTR, TRUE);
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
ip_panic(( "unknown cancel request" ));
|
|
break;
|
|
}
|
|
return NW_OK;
|
|
}
|
|
|
|
/*
|
|
tcp_connect
|
|
*/
|
|
|
|
static int tcp_connect(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
tcp_conn_t *tcp_conn;
|
|
nwio_tcpcl_t *tcpcl;
|
|
long nwtcl_flags;
|
|
int r, do_asynch;
|
|
acc_t *data;
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_CONF_SET))
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EBADMODE);
|
|
return NW_OK;
|
|
}
|
|
assert (!(tcp_fd->tf_flags & TFF_CONNECTED) &&
|
|
!(tcp_fd->tf_flags & TFF_CONNECTING) &&
|
|
!(tcp_fd->tf_flags & TFF_LISTENQ));
|
|
if ((tcp_fd->tf_tcpconf.nwtc_flags & (NWTC_SET_RA|NWTC_SET_RP))
|
|
!= (NWTC_SET_RA|NWTC_SET_RP))
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EBADMODE);
|
|
return NW_OK;
|
|
}
|
|
|
|
data= (*tcp_fd->tf_get_userdata) (tcp_fd->tf_srfd, 0,
|
|
sizeof(*tcpcl), TRUE);
|
|
if (!data)
|
|
return EFAULT;
|
|
|
|
data= bf_packIffLess(data, sizeof(*tcpcl));
|
|
assert (data->acc_length == sizeof(*tcpcl));
|
|
tcpcl= (nwio_tcpcl_t *)ptr2acc_data(data);
|
|
|
|
nwtcl_flags= tcpcl->nwtcl_flags;
|
|
bf_afree(data); data= NULL; tcpcl= NULL;
|
|
|
|
if (nwtcl_flags == TCF_ASYNCH)
|
|
do_asynch= 1;
|
|
else if (nwtcl_flags == TCF_DEFAULT)
|
|
do_asynch= 0;
|
|
else
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EINVAL);
|
|
return NW_OK;
|
|
}
|
|
|
|
assert(!tcp_fd->tf_conn);
|
|
tcp_conn= find_conn_entry(tcp_fd->tf_tcpconf.nwtc_locport,
|
|
tcp_fd->tf_port->tp_ipaddr,
|
|
tcp_fd->tf_tcpconf.nwtc_remport,
|
|
tcp_fd->tf_tcpconf.nwtc_remaddr);
|
|
if (tcp_conn)
|
|
{
|
|
if (tcp_conn->tc_fd)
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EADDRINUSE);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
tcp_conn= find_empty_conn();
|
|
if (!tcp_conn)
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EAGAIN);
|
|
return NW_OK;
|
|
}
|
|
}
|
|
tcp_fd->tf_conn= tcp_conn;
|
|
|
|
r= tcp_su4connect(tcp_fd);
|
|
if (r == NW_SUSPEND && do_asynch)
|
|
{
|
|
tcp_fd->tf_flags |= TFF_CONNECTING;
|
|
tcp_reply_ioctl(tcp_fd, EINPROGRESS);
|
|
r= NW_OK;
|
|
}
|
|
return r;
|
|
}
|
|
|
|
/*
|
|
tcp_su4connect
|
|
*/
|
|
|
|
static int tcp_su4connect(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
|
|
tcp_conn->tc_locport= tcp_fd->tf_tcpconf.nwtc_locport;
|
|
tcp_conn->tc_locaddr= tcp_fd->tf_port->tp_ipaddr;
|
|
|
|
assert (tcp_fd->tf_tcpconf.nwtc_flags & NWTC_SET_RP);
|
|
assert (tcp_fd->tf_tcpconf.nwtc_flags & NWTC_SET_RA);
|
|
tcp_conn->tc_remport= tcp_fd->tf_tcpconf.nwtc_remport;
|
|
tcp_conn->tc_remaddr= tcp_fd->tf_tcpconf.nwtc_remaddr;
|
|
|
|
tcp_setup_conn(tcp_fd->tf_port, tcp_conn);
|
|
|
|
tcp_conn->tc_fd= tcp_fd;
|
|
tcp_conn->tc_connInprogress= 1;
|
|
tcp_conn->tc_orglisten= FALSE;
|
|
tcp_conn->tc_state= TCS_SYN_SENT;
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_MAX_CONNECT;
|
|
|
|
/* Start the timer (if necessary) */
|
|
tcp_set_send_timer(tcp_conn);
|
|
|
|
tcp_conn_write(tcp_conn, 0);
|
|
|
|
if (tcp_conn->tc_connInprogress)
|
|
return NW_SUSPEND;
|
|
else
|
|
return NW_OK;
|
|
}
|
|
|
|
|
|
/*
|
|
tcp_listen
|
|
*/
|
|
|
|
static int tcp_listen(tcp_fd, do_listenq)
|
|
tcp_fd_t *tcp_fd;
|
|
int do_listenq;
|
|
{
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_CONF_SET))
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get(tcp_fd, EBADMODE, TRUE);
|
|
return NW_OK;
|
|
}
|
|
assert (!(tcp_fd->tf_flags & TFF_CONNECTED) &&
|
|
!(tcp_fd->tf_flags & TFF_CONNECTING) &&
|
|
!(tcp_fd->tf_flags & TFF_LISTENQ));
|
|
tcp_conn= tcp_fd->tf_conn;
|
|
assert(!tcp_conn);
|
|
|
|
if ((tcp_fd->tf_tcpconf.nwtc_flags & (NWTC_SET_RA|NWTC_SET_RP))
|
|
== (NWTC_SET_RA|NWTC_SET_RP))
|
|
{
|
|
tcp_conn= find_conn_entry(
|
|
tcp_fd->tf_tcpconf.nwtc_locport,
|
|
tcp_fd->tf_port->tp_ipaddr,
|
|
tcp_fd->tf_tcpconf.nwtc_remport,
|
|
tcp_fd->tf_tcpconf.nwtc_remaddr);
|
|
if (tcp_conn)
|
|
{
|
|
if (tcp_conn->tc_fd)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EADDRINUSE, TRUE);
|
|
return NW_OK;
|
|
}
|
|
tcp_fd->tf_conn= tcp_conn;
|
|
return tcp_su4listen(tcp_fd, tcp_conn, do_listenq);
|
|
}
|
|
}
|
|
tcp_conn= find_empty_conn();
|
|
if (!tcp_conn)
|
|
{
|
|
tcp_fd->tf_flags &= ~TFF_IOCTL_IP;
|
|
reply_thr_get (tcp_fd, EAGAIN, TRUE);
|
|
return NW_OK;
|
|
}
|
|
tcp_fd->tf_conn= tcp_conn;
|
|
return tcp_su4listen(tcp_fd, tcp_conn, do_listenq);
|
|
}
|
|
|
|
/*
|
|
tcp_acceptto
|
|
*/
|
|
|
|
static int tcp_acceptto(tcp_fd)
|
|
tcp_fd_t *tcp_fd;
|
|
{
|
|
int i, dst_nr;
|
|
tcp_fd_t *dst_fd;
|
|
tcp_conn_t *tcp_conn;
|
|
tcp_cookie_t *cookiep;
|
|
acc_t *data;
|
|
tcp_cookie_t cookie;
|
|
|
|
if (!(tcp_fd->tf_flags & TFF_LISTENQ))
|
|
{
|
|
tcp_reply_ioctl(tcp_fd, EINVAL);
|
|
return NW_OK;
|
|
}
|
|
for (i= 0; i<TFL_LISTEN_MAX; i++)
|
|
{
|
|
tcp_conn= tcp_fd->tf_listenq[i];
|
|
if (tcp_conn && !tcp_conn->tc_connInprogress)
|
|
break;
|
|
}
|
|
if (i >= TFL_LISTEN_MAX)
|
|
{
|
|
/* Nothing, suspend caller */
|
|
return NW_SUSPEND;
|
|
}
|
|
|
|
data= (*tcp_fd->tf_get_userdata) (tcp_fd->tf_srfd, 0,
|
|
sizeof(*cookiep), TRUE);
|
|
if (!data)
|
|
return EFAULT;
|
|
|
|
data= bf_packIffLess(data, sizeof(*cookiep));
|
|
cookiep= (tcp_cookie_t *)ptr2acc_data(data);
|
|
cookie= *cookiep;
|
|
|
|
bf_afree(data); data= NULL;
|
|
|
|
dst_nr= cookie.tc_ref;
|
|
if (dst_nr < 0 || dst_nr >= TCP_FD_NR)
|
|
{
|
|
printf("tcp_acceptto: bad fd %d\n", dst_nr);
|
|
tcp_reply_ioctl(tcp_fd, EINVAL);
|
|
return NW_OK;
|
|
}
|
|
dst_fd= &tcp_fd_table[dst_nr];
|
|
if (!(dst_fd->tf_flags & TFF_INUSE) ||
|
|
(dst_fd->tf_flags & (TFF_READ_IP|TFF_WRITE_IP|TFF_IOCTL_IP)) ||
|
|
dst_fd->tf_conn != NULL ||
|
|
!(dst_fd->tf_flags & TFF_COOKIE))
|
|
{
|
|
printf("tcp_acceptto: bad flags 0x%lx or conn %p for fd %d\n",
|
|
dst_fd->tf_flags, dst_fd->tf_conn, dst_nr);
|
|
tcp_reply_ioctl(tcp_fd, EINVAL);
|
|
return NW_OK;
|
|
}
|
|
if (memcmp(&cookie, &dst_fd->tf_cookie, sizeof(cookie)) != 0)
|
|
{
|
|
printf("tcp_acceptto: bad cookie\n");
|
|
return NW_OK;
|
|
}
|
|
|
|
/* Move connection */
|
|
tcp_fd->tf_listenq[i]= NULL;
|
|
tcp_conn->tc_fd= dst_fd;
|
|
dst_fd->tf_conn= tcp_conn;
|
|
dst_fd->tf_flags |= TFF_CONNECTED;
|
|
|
|
tcp_reply_ioctl(tcp_fd, NW_OK);
|
|
return NW_OK;
|
|
}
|
|
|
|
|
|
static void tcp_buffree (priority)
|
|
int priority;
|
|
{
|
|
int i;
|
|
tcp_conn_t *tcp_conn;
|
|
|
|
if (priority == TCP_PRI_FRAG2SEND)
|
|
{
|
|
for (i=0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++,
|
|
tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (!tcp_conn->tc_frag2send)
|
|
continue;
|
|
if (tcp_conn->tc_busy)
|
|
continue;
|
|
bf_afree(tcp_conn->tc_frag2send);
|
|
tcp_conn->tc_frag2send= 0;
|
|
}
|
|
}
|
|
|
|
if (priority == TCP_PRI_CONN_EXTRA)
|
|
{
|
|
for (i=0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++,
|
|
tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (tcp_conn->tc_busy)
|
|
continue;
|
|
if (tcp_conn->tc_adv_data)
|
|
{
|
|
bf_afree(tcp_conn->tc_adv_data);
|
|
tcp_conn->tc_adv_data= NULL;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (priority == TCP_PRI_CONNwoUSER)
|
|
{
|
|
for (i=0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++,
|
|
tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (tcp_conn->tc_busy)
|
|
continue;
|
|
if (tcp_conn->tc_fd)
|
|
continue;
|
|
if (tcp_conn->tc_state == TCS_CLOSED)
|
|
continue;
|
|
if (tcp_conn->tc_rcvd_data == NULL &&
|
|
tcp_conn->tc_send_data == NULL)
|
|
{
|
|
continue;
|
|
}
|
|
tcp_close_connection (tcp_conn, ENOBUFS);
|
|
}
|
|
}
|
|
|
|
if (priority == TCP_PRI_CONN_INUSE)
|
|
{
|
|
for (i=0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++,
|
|
tcp_conn++)
|
|
{
|
|
if (!(tcp_conn->tc_flags & TCF_INUSE))
|
|
continue;
|
|
if (tcp_conn->tc_busy)
|
|
continue;
|
|
if (tcp_conn->tc_state == TCS_CLOSED)
|
|
continue;
|
|
if (tcp_conn->tc_rcvd_data == NULL &&
|
|
tcp_conn->tc_send_data == NULL)
|
|
{
|
|
continue;
|
|
}
|
|
tcp_close_connection (tcp_conn, ENOBUFS);
|
|
}
|
|
}
|
|
}
|
|
|
|
#ifdef BUF_CONSISTENCY_CHECK
|
|
static void tcp_bufcheck()
|
|
{
|
|
int i;
|
|
tcp_conn_t *tcp_conn;
|
|
tcp_port_t *tcp_port;
|
|
|
|
for (i= 0, tcp_port= tcp_port_table; i<tcp_conf_nr; i++, tcp_port++)
|
|
{
|
|
if (tcp_port->tp_pack)
|
|
bf_check_acc(tcp_port->tp_pack);
|
|
}
|
|
for (i= 0, tcp_conn= tcp_conn_table; i<TCP_CONN_NR; i++, tcp_conn++)
|
|
{
|
|
assert(!tcp_conn->tc_busy);
|
|
if (tcp_conn->tc_rcvd_data)
|
|
bf_check_acc(tcp_conn->tc_rcvd_data);
|
|
if (tcp_conn->tc_adv_data)
|
|
bf_check_acc(tcp_conn->tc_adv_data);
|
|
if (tcp_conn->tc_send_data)
|
|
bf_check_acc(tcp_conn->tc_send_data);
|
|
if (tcp_conn->tc_remipopt)
|
|
bf_check_acc(tcp_conn->tc_remipopt);
|
|
if (tcp_conn->tc_tcpopt)
|
|
bf_check_acc(tcp_conn->tc_tcpopt);
|
|
if (tcp_conn->tc_frag2send)
|
|
bf_check_acc(tcp_conn->tc_frag2send);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
void tcp_notreach(tcp_conn, error)
|
|
tcp_conn_t *tcp_conn;
|
|
int error;
|
|
{
|
|
int new_ttl;
|
|
|
|
new_ttl= tcp_conn->tc_ttl;
|
|
if (new_ttl == IP_MAX_TTL)
|
|
{
|
|
if (tcp_conn->tc_state == TCS_SYN_SENT)
|
|
tcp_close_connection(tcp_conn, error);
|
|
return;
|
|
}
|
|
else if (new_ttl < TCP_DEF_TTL_NEXT)
|
|
new_ttl= TCP_DEF_TTL_NEXT;
|
|
else
|
|
{
|
|
new_ttl *= 2;
|
|
if (new_ttl> IP_MAX_TTL)
|
|
new_ttl= IP_MAX_TTL;
|
|
}
|
|
tcp_conn->tc_ttl= new_ttl;
|
|
tcp_conn->tc_stt= 0;
|
|
tcp_conn->tc_SND_TRM= tcp_conn->tc_SND_UNA;
|
|
tcp_conn_write(tcp_conn, 1);
|
|
}
|
|
|
|
static u32_t mtu_table[]=
|
|
{ /* From RFC-1191 */
|
|
/* Plateau MTU Comments Reference */
|
|
/* ------ --- -------- --------- */
|
|
/* 65535 Official maximum MTU RFC 791 */
|
|
/* 65535 Hyperchannel RFC 1044 */
|
|
65535,
|
|
32000, /* Just in case */
|
|
/* 17914 16Mb IBM Token Ring ref. [6] */
|
|
17914,
|
|
/* 8166 IEEE 802.4 RFC 1042 */
|
|
8166,
|
|
/* 4464 IEEE 802.5 (4Mb max) RFC 1042 */
|
|
/* 4352 FDDI (Revised) RFC 1188 */
|
|
4352, /* (1%) */
|
|
/* 2048 Wideband Network RFC 907 */
|
|
/* 2002 IEEE 802.5 (4Mb recommended) RFC 1042 */
|
|
2002, /* (2%) */
|
|
/* 1536 Exp. Ethernet Nets RFC 895 */
|
|
/* 1500 Ethernet Networks RFC 894 */
|
|
/* 1500 Point-to-Point (default) RFC 1134 */
|
|
/* 1492 IEEE 802.3 RFC 1042 */
|
|
1492, /* (3%) */
|
|
/* 1006 SLIP RFC 1055 */
|
|
/* 1006 ARPANET BBN 1822 */
|
|
1006,
|
|
/* 576 X.25 Networks RFC 877 */
|
|
/* 544 DEC IP Portal ref. [10] */
|
|
/* 512 NETBIOS RFC 1088 */
|
|
/* 508 IEEE 802/Source-Rt Bridge RFC 1042 */
|
|
/* 508 ARCNET RFC 1051 */
|
|
508, /* (13%) */
|
|
/* 296 Point-to-Point (low delay) RFC 1144 */
|
|
296,
|
|
68, /* Official minimum MTU RFC 791 */
|
|
0, /* End of list */
|
|
};
|
|
|
|
void tcp_mtu_exceeded(tcp_conn)
|
|
tcp_conn_t *tcp_conn;
|
|
{
|
|
u16_t mtu;
|
|
int i;
|
|
clock_t curr_time;
|
|
|
|
if (!(tcp_conn->tc_flags & TCF_PMTU))
|
|
{
|
|
/* Strange, got MTU exceeded but DF is not set. Ignore
|
|
* the error. If the problem persists, the connection will
|
|
* time-out.
|
|
*/
|
|
return;
|
|
}
|
|
curr_time= get_time();
|
|
|
|
/* We get here in cases. Either were are trying to find an MTU
|
|
* that works at all, or we are trying see how far we can increase
|
|
* the current MTU. If the last change to the MTU was a long time
|
|
* ago, we assume the second case.
|
|
*/
|
|
if (curr_time >= tcp_conn->tc_mtutim + TCP_PMTU_INCR_IV)
|
|
{
|
|
mtu= tcp_conn->tc_mtu;
|
|
mtu -= mtu/TCP_PMTU_INCR_FRAC;
|
|
tcp_conn->tc_mtu= mtu;
|
|
tcp_conn->tc_mtutim= curr_time;
|
|
DBLOCK(1, printf(
|
|
"tcp_mtu_exceeded: new (lowered) mtu %d for conn %d\n",
|
|
mtu, tcp_conn-tcp_conn_table));
|
|
tcp_conn->tc_stt= 0;
|
|
tcp_conn->tc_SND_TRM= tcp_conn->tc_SND_UNA;
|
|
tcp_conn_write(tcp_conn, 1);
|
|
return;
|
|
}
|
|
|
|
tcp_conn->tc_mtutim= curr_time;
|
|
mtu= tcp_conn->tc_mtu;
|
|
for (i= 0; mtu_table[i] >= mtu; i++)
|
|
; /* Nothing to do */
|
|
mtu= mtu_table[i];
|
|
if (mtu >= TCP_MIN_PATH_MTU)
|
|
{
|
|
tcp_conn->tc_mtu= mtu;
|
|
}
|
|
else
|
|
{
|
|
/* Small MTUs can be used for denial-of-service attacks.
|
|
* Switch-off PMTU if the MTU becomes too small.
|
|
*/
|
|
tcp_conn->tc_flags &= ~TCF_PMTU;
|
|
tcp_conn->tc_mtu= TCP_MIN_PATH_MTU;
|
|
DBLOCK(1, printf(
|
|
"tcp_mtu_exceeded: clearing TCF_PMTU for conn %d\n",
|
|
tcp_conn-tcp_conn_table););
|
|
|
|
}
|
|
DBLOCK(1, printf("tcp_mtu_exceeded: new mtu %d for conn %d\n",
|
|
mtu, tcp_conn-tcp_conn_table););
|
|
tcp_conn->tc_stt= 0;
|
|
tcp_conn->tc_SND_TRM= tcp_conn->tc_SND_UNA;
|
|
tcp_conn_write(tcp_conn, 1);
|
|
}
|
|
|
|
void tcp_mtu_incr(tcp_conn)
|
|
tcp_conn_t *tcp_conn;
|
|
{
|
|
clock_t curr_time;
|
|
u32_t mtu;
|
|
|
|
assert(tcp_conn->tc_mtu < tcp_conn->tc_max_mtu);
|
|
if (!(tcp_conn->tc_flags & TCF_PMTU))
|
|
{
|
|
/* Use a much longer time-out for retrying PMTU discovery
|
|
* after is has been disabled. Note that PMTU discovery
|
|
* can be disabled during a short loss of connectivity.
|
|
*/
|
|
curr_time= get_time();
|
|
if (curr_time > tcp_conn->tc_mtutim+TCP_PMTU_EN_IV)
|
|
{
|
|
tcp_conn->tc_flags |= TCF_PMTU;
|
|
DBLOCK(1, printf(
|
|
"tcp_mtu_incr: setting TCF_PMTU for conn %d\n",
|
|
tcp_conn-tcp_conn_table););
|
|
}
|
|
return;
|
|
}
|
|
|
|
mtu= tcp_conn->tc_mtu;
|
|
mtu += mtu/TCP_PMTU_INCR_FRAC;
|
|
if (mtu > tcp_conn->tc_max_mtu)
|
|
mtu= tcp_conn->tc_max_mtu;
|
|
tcp_conn->tc_mtu= mtu;
|
|
DBLOCK(0x1, printf("tcp_mtu_incr: new mtu %u for conn %u\n",
|
|
mtu, tcp_conn-tcp_conn_table););
|
|
}
|
|
|
|
/*
|
|
tcp_setup_conn
|
|
*/
|
|
|
|
static void tcp_setup_conn(tcp_port, tcp_conn)
|
|
tcp_port_t *tcp_port;
|
|
tcp_conn_t *tcp_conn;
|
|
{
|
|
u16_t mss;
|
|
|
|
assert(!tcp_conn->tc_connInprogress);
|
|
tcp_conn->tc_port= tcp_port;
|
|
if (tcp_conn->tc_flags & TCF_INUSE)
|
|
{
|
|
assert (tcp_conn->tc_state == TCS_CLOSED);
|
|
assert (!tcp_conn->tc_send_data);
|
|
if (tcp_conn->tc_senddis < get_time())
|
|
tcp_conn->tc_ISS= 0;
|
|
}
|
|
else
|
|
{
|
|
assert(!tcp_conn->tc_busy);
|
|
tcp_conn->tc_senddis= 0;
|
|
tcp_conn->tc_ISS= 0;
|
|
tcp_conn->tc_tos= TCP_DEF_TOS;
|
|
tcp_conn->tc_ttl= TCP_DEF_TTL;
|
|
tcp_conn->tc_rcv_wnd= TCP_MAX_RCV_WND_SIZE;
|
|
tcp_conn->tc_fd= NULL;
|
|
}
|
|
if (!tcp_conn->tc_ISS)
|
|
{
|
|
tcp_conn->tc_ISS= tcp_rand32();
|
|
}
|
|
tcp_conn->tc_SND_UNA= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_TRM= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_NXT= tcp_conn->tc_ISS+1;
|
|
tcp_conn->tc_SND_UP= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_SND_PSH= tcp_conn->tc_ISS+1;
|
|
tcp_conn->tc_IRS= 0;
|
|
tcp_conn->tc_RCV_LO= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_NXT= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_HI= tcp_conn->tc_IRS;
|
|
tcp_conn->tc_RCV_UP= tcp_conn->tc_IRS;
|
|
|
|
assert(tcp_conn->tc_rcvd_data == NULL);
|
|
assert(tcp_conn->tc_adv_data == NULL);
|
|
assert(tcp_conn->tc_send_data == NULL);
|
|
|
|
tcp_conn->tc_ka_time= TCP_DEF_KEEPALIVE;
|
|
|
|
tcp_conn->tc_remipopt= NULL;
|
|
tcp_conn->tc_tcpopt= NULL;
|
|
|
|
assert(tcp_conn->tc_frag2send == NULL);
|
|
|
|
tcp_conn->tc_stt= 0;
|
|
tcp_conn->tc_rt_dead= TCP_DEF_RT_DEAD;
|
|
tcp_conn->tc_0wnd_to= 0;
|
|
tcp_conn->tc_artt= TCP_DEF_RTT*TCP_RTT_SCALE;
|
|
tcp_conn->tc_drtt= 0;
|
|
tcp_conn->tc_rtt= TCP_DEF_RTT;
|
|
tcp_conn->tc_max_mtu= tcp_conn->tc_port->tp_mtu;
|
|
tcp_conn->tc_mtu= tcp_conn->tc_max_mtu;
|
|
tcp_conn->tc_mtutim= 0;
|
|
tcp_conn->tc_error= NW_OK;
|
|
mss= tcp_conn->tc_mtu-IP_TCP_MIN_HDR_SIZE;
|
|
tcp_conn->tc_snd_cwnd= tcp_conn->tc_SND_UNA + 2*mss;
|
|
tcp_conn->tc_snd_cthresh= TCP_MAX_SND_WND_SIZE;
|
|
tcp_conn->tc_snd_cinc=
|
|
(long)TCP_DEF_MSS*TCP_DEF_MSS/TCP_MAX_SND_WND_SIZE+1;
|
|
tcp_conn->tc_snd_wnd= TCP_MAX_SND_WND_SIZE;
|
|
tcp_conn->tc_rt_time= 0;
|
|
tcp_conn->tc_rt_seq= 0;
|
|
tcp_conn->tc_rt_threshold= tcp_conn->tc_ISS;
|
|
tcp_conn->tc_flags= TCF_INUSE;
|
|
tcp_conn->tc_flags |= TCF_PMTU;
|
|
|
|
clck_untimer(&tcp_conn->tc_transmit_timer);
|
|
tcp_conn->tc_transmit_seq= 0;
|
|
}
|
|
|
|
static u32_t tcp_rand32()
|
|
{
|
|
u8_t bits[RAND256_BUFSIZE];
|
|
|
|
rand256(bits);
|
|
return bits[0] | (bits[1] << 8) | (bits[2] << 16) | (bits[3] << 24);
|
|
}
|
|
|
|
/*
|
|
* $PchId: tcp.c,v 1.34 2005/06/28 14:20:27 philip Exp $
|
|
*/
|