2 * Copyright (c) 1995 Danny Gasparovski.
4 * Please read the file COPYRIGHT for the
5 * terms and conditions of the copyright.
8 #include "qemu-common.h"
12 #include <sys/filio.h>
15 static void sofcantrcvmore(struct socket
*so
);
16 static void sofcantsendmore(struct socket
*so
);
19 solookup(struct socket
**last
, struct socket
*head
,
20 struct in_addr laddr
, u_int lport
,
21 struct in_addr faddr
, u_int fport
)
23 struct socket
*so
= *last
;
27 so
->so_lport
== lport
&&
28 so
->so_laddr
.s_addr
== laddr
.s_addr
&&
30 (so
->so_faddr
.s_addr
== faddr
.s_addr
&&
31 so
->so_fport
== fport
))) {
35 for (so
= head
->so_next
; so
!= head
; so
= so
->so_next
) {
36 if (so
->so_lport
== lport
&&
37 so
->so_laddr
.s_addr
== laddr
.s_addr
&&
39 (so
->so_faddr
.s_addr
== faddr
.s_addr
&&
40 so
->so_fport
== fport
))) {
46 return (struct socket
*)NULL
;
50 * Create a new socket, initialise the fields
51 * It is the responsibility of the caller to
52 * insque() it into the correct linked-list
55 socreate(Slirp
*slirp
)
59 so
= (struct socket
*)malloc(sizeof(struct socket
));
61 memset(so
, 0, sizeof(struct socket
));
62 so
->so_state
= SS_NOFDREF
;
71 * remque and free a socket, clobber cache
74 sofree(struct socket
*so
)
76 Slirp
*slirp
= so
->slirp
;
78 if (so
->so_emu
==EMU_RSH
&& so
->extra
) {
82 if (so
== slirp
->tcp_last_so
) {
83 slirp
->tcp_last_so
= &slirp
->tcb
;
84 } else if (so
== slirp
->udp_last_so
) {
85 slirp
->udp_last_so
= &slirp
->udb
;
86 } else if (so
== slirp
->icmp_last_so
) {
87 slirp
->icmp_last_so
= &slirp
->icmp
;
91 if(so
->so_next
&& so
->so_prev
)
92 remque(so
); /* crashes if so is not in a queue */
97 size_t sopreprbuf(struct socket
*so
, struct iovec
*iov
, int *np
)
100 struct sbuf
*sb
= &so
->so_snd
;
101 int len
= sb
->sb_datalen
- sb
->sb_cc
;
102 int mss
= so
->so_tcpcb
->t_maxseg
;
104 DEBUG_CALL("sopreprbuf");
105 DEBUG_ARG("so = %p", so
);
110 iov
[0].iov_base
= sb
->sb_wptr
;
111 iov
[1].iov_base
= NULL
;
113 if (sb
->sb_wptr
< sb
->sb_rptr
) {
114 iov
[0].iov_len
= sb
->sb_rptr
- sb
->sb_wptr
;
115 /* Should never succeed, but... */
116 if (iov
[0].iov_len
> len
)
117 iov
[0].iov_len
= len
;
118 if (iov
[0].iov_len
> mss
)
119 iov
[0].iov_len
-= iov
[0].iov_len
%mss
;
122 iov
[0].iov_len
= (sb
->sb_data
+ sb
->sb_datalen
) - sb
->sb_wptr
;
123 /* Should never succeed, but... */
124 if (iov
[0].iov_len
> len
) iov
[0].iov_len
= len
;
125 len
-= iov
[0].iov_len
;
127 iov
[1].iov_base
= sb
->sb_data
;
128 iov
[1].iov_len
= sb
->sb_rptr
- sb
->sb_data
;
129 if(iov
[1].iov_len
> len
)
130 iov
[1].iov_len
= len
;
131 total
= iov
[0].iov_len
+ iov
[1].iov_len
;
134 if (iov
[1].iov_len
> lss
) {
135 iov
[1].iov_len
-= lss
;
138 lss
-= iov
[1].iov_len
;
139 iov
[0].iov_len
-= lss
;
145 if (iov
[0].iov_len
> mss
)
146 iov
[0].iov_len
-= iov
[0].iov_len
%mss
;
153 return iov
[0].iov_len
+ (n
- 1) * iov
[1].iov_len
;
157 * Read from so's socket into sb_snd, updating all relevant sbuf fields
158 * NOTE: This will only be called if it is select()ed for reading, so
159 * a read() of 0 (or less) means it's disconnected
162 soread(struct socket
*so
)
165 struct sbuf
*sb
= &so
->so_snd
;
168 DEBUG_CALL("soread");
169 DEBUG_ARG("so = %p", so
);
172 * No need to check if there's enough room to read.
173 * soread wouldn't have been called if there weren't
175 sopreprbuf(so
, iov
, &n
);
178 nn
= readv(so
->s
, (struct iovec
*)iov
, n
);
179 DEBUG_MISC((dfd
, " ... read nn = %d bytes\n", nn
));
181 nn
= qemu_recv(so
->s
, iov
[0].iov_base
, iov
[0].iov_len
,0);
184 if (nn
< 0 && (errno
== EINTR
|| errno
== EAGAIN
))
187 DEBUG_MISC((dfd
, " --- soread() disconnected, nn = %d, errno = %d-%s\n", nn
, errno
,strerror(errno
)));
189 tcp_sockclosed(sototcpcb(so
));
196 * If there was no error, try and read the second time round
197 * We read again if n = 2 (ie, there's another part of the buffer)
198 * and we read as much as we could in the first read
199 * We don't test for <= 0 this time, because there legitimately
200 * might not be any more data (since the socket is non-blocking),
201 * a close will be detected on next iteration.
202 * A return of -1 wont (shouldn't) happen, since it didn't happen above
204 if (n
== 2 && nn
== iov
[0].iov_len
) {
206 ret
= qemu_recv(so
->s
, iov
[1].iov_base
, iov
[1].iov_len
,0);
211 DEBUG_MISC((dfd
, " ... read nn = %d bytes\n", nn
));
217 if (sb
->sb_wptr
>= (sb
->sb_data
+ sb
->sb_datalen
))
218 sb
->sb_wptr
-= sb
->sb_datalen
;
222 int soreadbuf(struct socket
*so
, const char *buf
, int size
)
224 int n
, nn
, copy
= size
;
225 struct sbuf
*sb
= &so
->so_snd
;
228 DEBUG_CALL("soreadbuf");
229 DEBUG_ARG("so = %p", so
);
232 * No need to check if there's enough room to read.
233 * soread wouldn't have been called if there weren't
235 if (sopreprbuf(so
, iov
, &n
) < size
)
238 nn
= MIN(iov
[0].iov_len
, copy
);
239 memcpy(iov
[0].iov_base
, buf
, nn
);
247 memcpy(iov
[1].iov_base
, buf
, copy
);
253 if (sb
->sb_wptr
>= (sb
->sb_data
+ sb
->sb_datalen
))
254 sb
->sb_wptr
-= sb
->sb_datalen
;
259 tcp_sockclosed(sototcpcb(so
));
260 fprintf(stderr
, "soreadbuf buffer to small");
267 * When the socket is created, we set it SO_OOBINLINE,
268 * so when OOB data arrives, we soread() it and everything
269 * in the send buffer is sent as urgent data
272 sorecvoob(struct socket
*so
)
274 struct tcpcb
*tp
= sototcpcb(so
);
276 DEBUG_CALL("sorecvoob");
277 DEBUG_ARG("so = %p", so
);
280 * We take a guess at how much urgent data has arrived.
281 * In most situations, when urgent data arrives, the next
282 * read() should get all the urgent data. This guess will
283 * be wrong however if more data arrives just after the
284 * urgent data, or the read() doesn't return all the
288 tp
->snd_up
= tp
->snd_una
+ so
->so_snd
.sb_cc
;
296 * There's a lot duplicated code here, but...
299 sosendoob(struct socket
*so
)
301 struct sbuf
*sb
= &so
->so_rcv
;
302 char buff
[2048]; /* XXX Shouldn't be sending more oob data than this */
306 DEBUG_CALL("sosendoob");
307 DEBUG_ARG("so = %p", so
);
308 DEBUG_ARG("sb->sb_cc = %d", sb
->sb_cc
);
310 if (so
->so_urgc
> 2048)
311 so
->so_urgc
= 2048; /* XXXX */
313 if (sb
->sb_rptr
< sb
->sb_wptr
) {
314 /* We can send it directly */
315 n
= slirp_send(so
, sb
->sb_rptr
, so
->so_urgc
, (MSG_OOB
)); /* |MSG_DONTWAIT)); */
318 DEBUG_MISC((dfd
, " --- sent %d bytes urgent data, %d urgent bytes left\n", n
, so
->so_urgc
));
321 * Since there's no sendv or sendtov like writev,
322 * we must copy all data to a linear buffer then
325 len
= (sb
->sb_data
+ sb
->sb_datalen
) - sb
->sb_rptr
;
326 if (len
> so
->so_urgc
) len
= so
->so_urgc
;
327 memcpy(buff
, sb
->sb_rptr
, len
);
330 n
= sb
->sb_wptr
- sb
->sb_data
;
331 if (n
> so
->so_urgc
) n
= so
->so_urgc
;
332 memcpy((buff
+ len
), sb
->sb_data
, n
);
336 n
= slirp_send(so
, buff
, len
, (MSG_OOB
)); /* |MSG_DONTWAIT)); */
339 DEBUG_ERROR((dfd
, "Didn't send all data urgently XXXXX\n"));
341 DEBUG_MISC((dfd
, " ---2 sent %d bytes urgent data, %d urgent bytes left\n", n
, so
->so_urgc
));
346 if (sb
->sb_rptr
>= (sb
->sb_data
+ sb
->sb_datalen
))
347 sb
->sb_rptr
-= sb
->sb_datalen
;
353 * Write data from so_rcv to so's socket,
354 * updating all sbuf field as necessary
357 sowrite(struct socket
*so
)
360 struct sbuf
*sb
= &so
->so_rcv
;
364 DEBUG_CALL("sowrite");
365 DEBUG_ARG("so = %p", so
);
374 * No need to check if there's something to write,
375 * sowrite wouldn't have been called otherwise
378 iov
[0].iov_base
= sb
->sb_rptr
;
379 iov
[1].iov_base
= NULL
;
381 if (sb
->sb_rptr
< sb
->sb_wptr
) {
382 iov
[0].iov_len
= sb
->sb_wptr
- sb
->sb_rptr
;
383 /* Should never succeed, but... */
384 if (iov
[0].iov_len
> len
) iov
[0].iov_len
= len
;
387 iov
[0].iov_len
= (sb
->sb_data
+ sb
->sb_datalen
) - sb
->sb_rptr
;
388 if (iov
[0].iov_len
> len
) iov
[0].iov_len
= len
;
389 len
-= iov
[0].iov_len
;
391 iov
[1].iov_base
= sb
->sb_data
;
392 iov
[1].iov_len
= sb
->sb_wptr
- sb
->sb_data
;
393 if (iov
[1].iov_len
> len
) iov
[1].iov_len
= len
;
398 /* Check if there's urgent data to send, and if so, send it */
401 nn
= writev(so
->s
, (const struct iovec
*)iov
, n
);
403 DEBUG_MISC((dfd
, " ... wrote nn = %d bytes\n", nn
));
405 nn
= slirp_send(so
, iov
[0].iov_base
, iov
[0].iov_len
,0);
407 /* This should never happen, but people tell me it does *shrug* */
408 if (nn
< 0 && (errno
== EAGAIN
|| errno
== EINTR
))
412 DEBUG_MISC((dfd
, " --- sowrite disconnected, so->so_state = %x, errno = %d\n",
413 so
->so_state
, errno
));
415 tcp_sockclosed(sototcpcb(so
));
420 if (n
== 2 && nn
== iov
[0].iov_len
) {
422 ret
= slirp_send(so
, iov
[1].iov_base
, iov
[1].iov_len
,0);
426 DEBUG_MISC((dfd
, " ... wrote nn = %d bytes\n", nn
));
432 if (sb
->sb_rptr
>= (sb
->sb_data
+ sb
->sb_datalen
))
433 sb
->sb_rptr
-= sb
->sb_datalen
;
436 * If in DRAIN mode, and there's no more data, set
439 if ((so
->so_state
& SS_FWDRAIN
) && sb
->sb_cc
== 0)
446 * recvfrom() a UDP socket
449 sorecvfrom(struct socket
*so
)
451 struct sockaddr_storage addr
;
452 struct sockaddr_storage saddr
, daddr
;
453 socklen_t addrlen
= sizeof(struct sockaddr_storage
);
455 DEBUG_CALL("sorecvfrom");
456 DEBUG_ARG("so = %p", so
);
458 if (so
->so_type
== IPPROTO_ICMP
) { /* This is a "ping" reply */
462 len
= recvfrom(so
->s
, buff
, 256, 0,
463 (struct sockaddr
*)&addr
, &addrlen
);
464 /* XXX Check if reply is "correct"? */
466 if(len
== -1 || len
== 0) {
467 u_char code
=ICMP_UNREACH_PORT
;
469 if(errno
== EHOSTUNREACH
) code
=ICMP_UNREACH_HOST
;
470 else if(errno
== ENETUNREACH
) code
=ICMP_UNREACH_NET
;
472 DEBUG_MISC((dfd
," udp icmp rx errno = %d-%s\n",
473 errno
,strerror(errno
)));
474 icmp_error(so
->so_m
, ICMP_UNREACH
,code
, 0,strerror(errno
));
476 icmp_reflect(so
->so_m
);
477 so
->so_m
= NULL
; /* Don't m_free() it again! */
479 /* No need for this socket anymore, udp_detach it */
481 } else { /* A "normal" UDP packet */
490 m
= m_get(so
->slirp
);
494 m
->m_data
+= IF_MAXLINKHDR
;
497 * XXX Shouldn't FIONREAD packets destined for port 53,
498 * but I don't know the max packet size for DNS lookups
501 /* if (so->so_fport != htons(53)) { */
502 ioctlsocket(so
->s
, FIONREAD
, &n
);
505 n
= (m
->m_data
- m
->m_dat
) + m
->m_len
+ n
+ 1;
511 m
->m_len
= recvfrom(so
->s
, m
->m_data
, len
, 0,
512 (struct sockaddr
*)&addr
, &addrlen
);
513 DEBUG_MISC((dfd
, " did recvfrom %d, errno = %d-%s\n",
514 m
->m_len
, errno
,strerror(errno
)));
516 u_char code
=ICMP_UNREACH_PORT
;
518 if(errno
== EHOSTUNREACH
) code
=ICMP_UNREACH_HOST
;
519 else if(errno
== ENETUNREACH
) code
=ICMP_UNREACH_NET
;
521 DEBUG_MISC((dfd
," rx error, tx icmp ICMP_UNREACH:%i\n", code
));
522 icmp_error(so
->so_m
, ICMP_UNREACH
,code
, 0,strerror(errno
));
526 * Hack: domain name lookup will be used the most for UDP,
527 * and since they'll only be used once there's no need
528 * for the 4 minute (or whatever) timeout... So we time them
529 * out much quicker (10 seconds for now...)
532 if (so
->so_fport
== htons(53))
533 so
->so_expire
= curtime
+ SO_EXPIREFAST
;
535 so
->so_expire
= curtime
+ SO_EXPIRE
;
539 * If this packet was destined for CTL_ADDR,
540 * make it look like that's where it came from
543 sotranslate_in(so
, &saddr
);
544 daddr
= so
->lhost
.ss
;
546 switch (so
->so_ffamily
) {
548 udp_output(so
, m
, (struct sockaddr_in
*) &saddr
,
549 (struct sockaddr_in
*) &daddr
,
556 } /* if ping packet */
563 sosendto(struct socket
*so
, struct mbuf
*m
)
566 struct sockaddr_storage addr
;
568 DEBUG_CALL("sosendto");
569 DEBUG_ARG("so = %p", so
);
570 DEBUG_ARG("m = %p", m
);
573 DEBUG_CALL(" sendto()ing)");
574 sotranslate_out(so
, &addr
);
576 /* Don't care what port we get */
577 ret
= sendto(so
->s
, m
->m_data
, m
->m_len
, 0,
578 (struct sockaddr
*)&addr
, sizeof(addr
));
583 * Kill the socket if there's no reply in 4 minutes,
584 * but only if it's an expirable socket
587 so
->so_expire
= curtime
+ SO_EXPIRE
;
588 so
->so_state
&= SS_PERSISTENT_MASK
;
589 so
->so_state
|= SS_ISFCONNECTED
; /* So that it gets select()ed */
594 * Listen for incoming TCP connections
597 tcp_listen(Slirp
*slirp
, uint32_t haddr
, u_int hport
, uint32_t laddr
,
598 u_int lport
, int flags
)
600 struct sockaddr_in addr
;
603 socklen_t addrlen
= sizeof(addr
);
604 memset(&addr
, 0, addrlen
);
606 DEBUG_CALL("tcp_listen");
607 DEBUG_ARG("haddr = %x", haddr
);
608 DEBUG_ARG("hport = %d", hport
);
609 DEBUG_ARG("laddr = %x", laddr
);
610 DEBUG_ARG("lport = %d", lport
);
611 DEBUG_ARG("flags = %x", flags
);
613 so
= socreate(slirp
);
618 /* Don't tcp_attach... we don't need so_snd nor so_rcv */
619 if ((so
->so_tcpcb
= tcp_newtcpcb(so
)) == NULL
) {
623 insque(so
, &slirp
->tcb
);
626 * SS_FACCEPTONCE sockets must time out.
628 if (flags
& SS_FACCEPTONCE
)
629 so
->so_tcpcb
->t_timer
[TCPT_KEEP
] = TCPTV_KEEP_INIT
*2;
631 so
->so_state
&= SS_PERSISTENT_MASK
;
632 so
->so_state
|= (SS_FACCEPTCONN
| flags
);
633 so
->so_lfamily
= AF_INET
;
634 so
->so_lport
= lport
; /* Kept in network format */
635 so
->so_laddr
.s_addr
= laddr
; /* Ditto */
637 addr
.sin_family
= AF_INET
;
638 addr
.sin_addr
.s_addr
= haddr
;
639 addr
.sin_port
= hport
;
641 if (((s
= qemu_socket(AF_INET
,SOCK_STREAM
,0)) < 0) ||
642 (socket_set_fast_reuse(s
) < 0) ||
643 (bind(s
,(struct sockaddr
*)&addr
, sizeof(addr
)) < 0) ||
645 int tmperrno
= errno
; /* Don't clobber the real reason we failed */
649 /* Restore the real errno */
651 WSASetLastError(tmperrno
);
657 qemu_setsockopt(s
, SOL_SOCKET
, SO_OOBINLINE
, &opt
, sizeof(int));
659 getsockname(s
,(struct sockaddr
*)&addr
,&addrlen
);
660 so
->so_ffamily
= AF_INET
;
661 so
->so_fport
= addr
.sin_port
;
662 if (addr
.sin_addr
.s_addr
== 0 || addr
.sin_addr
.s_addr
== loopback_addr
.s_addr
)
663 so
->so_faddr
= slirp
->vhost_addr
;
665 so
->so_faddr
= addr
.sin_addr
;
672 * Various session state calls
673 * XXX Should be #define's
674 * The socket state stuff needs work, these often get call 2 or 3
675 * times each when only 1 was needed
678 soisfconnecting(struct socket
*so
)
680 so
->so_state
&= ~(SS_NOFDREF
|SS_ISFCONNECTED
|SS_FCANTRCVMORE
|
681 SS_FCANTSENDMORE
|SS_FWDRAIN
);
682 so
->so_state
|= SS_ISFCONNECTING
; /* Clobber other states */
686 soisfconnected(struct socket
*so
)
688 so
->so_state
&= ~(SS_ISFCONNECTING
|SS_FWDRAIN
|SS_NOFDREF
);
689 so
->so_state
|= SS_ISFCONNECTED
; /* Clobber other states */
693 sofcantrcvmore(struct socket
*so
)
695 if ((so
->so_state
& SS_NOFDREF
) == 0) {
698 so
->so_state
&= ~(SS_ISFCONNECTING
);
699 if (so
->so_state
& SS_FCANTSENDMORE
) {
700 so
->so_state
&= SS_PERSISTENT_MASK
;
701 so
->so_state
|= SS_NOFDREF
; /* Don't select it */
703 so
->so_state
|= SS_FCANTRCVMORE
;
708 sofcantsendmore(struct socket
*so
)
710 if ((so
->so_state
& SS_NOFDREF
) == 0) {
711 shutdown(so
->s
,1); /* send FIN to fhost */
713 so
->so_state
&= ~(SS_ISFCONNECTING
);
714 if (so
->so_state
& SS_FCANTRCVMORE
) {
715 so
->so_state
&= SS_PERSISTENT_MASK
;
716 so
->so_state
|= SS_NOFDREF
; /* as above */
718 so
->so_state
|= SS_FCANTSENDMORE
;
723 * Set write drain mode
724 * Set CANTSENDMORE once all data has been write()n
727 sofwdrain(struct socket
*so
)
729 if (so
->so_rcv
.sb_cc
)
730 so
->so_state
|= SS_FWDRAIN
;
736 * Translate addr in host addr when it is a virtual address
738 void sotranslate_out(struct socket
*so
, struct sockaddr_storage
*addr
)
740 Slirp
*slirp
= so
->slirp
;
741 struct sockaddr_in
*sin
= (struct sockaddr_in
*)addr
;
743 switch (addr
->ss_family
) {
745 if ((so
->so_faddr
.s_addr
& slirp
->vnetwork_mask
.s_addr
) ==
746 slirp
->vnetwork_addr
.s_addr
) {
748 if (so
->so_faddr
.s_addr
== slirp
->vnameserver_addr
.s_addr
) {
749 if (get_dns_addr(&sin
->sin_addr
) < 0) {
750 sin
->sin_addr
= loopback_addr
;
753 sin
->sin_addr
= loopback_addr
;
757 DEBUG_MISC((dfd
, " addr.sin_port=%d, "
758 "addr.sin_addr.s_addr=%.16s\n",
759 ntohs(sin
->sin_port
), inet_ntoa(sin
->sin_addr
)));
767 void sotranslate_in(struct socket
*so
, struct sockaddr_storage
*addr
)
769 Slirp
*slirp
= so
->slirp
;
770 struct sockaddr_in
*sin
= (struct sockaddr_in
*)addr
;
772 switch (addr
->ss_family
) {
774 if ((so
->so_faddr
.s_addr
& slirp
->vnetwork_mask
.s_addr
) ==
775 slirp
->vnetwork_addr
.s_addr
) {
776 uint32_t inv_mask
= ~slirp
->vnetwork_mask
.s_addr
;
778 if ((so
->so_faddr
.s_addr
& inv_mask
) == inv_mask
) {
779 sin
->sin_addr
= slirp
->vhost_addr
;
780 } else if (sin
->sin_addr
.s_addr
== loopback_addr
.s_addr
||
781 so
->so_faddr
.s_addr
!= slirp
->vhost_addr
.s_addr
) {
782 sin
->sin_addr
= so
->so_faddr
;
793 * Translate connections from localhost to the real hostname
795 void sotranslate_accept(struct socket
*so
)
797 Slirp
*slirp
= so
->slirp
;
799 switch (so
->so_ffamily
) {
801 if (so
->so_faddr
.s_addr
== INADDR_ANY
||
802 (so
->so_faddr
.s_addr
& loopback_mask
) ==
803 (loopback_addr
.s_addr
& loopback_mask
)) {
804 so
->so_faddr
= slirp
->vhost_addr
;