gforth/unix/socket.fs - diff

Return to socket.fs CVS log

Up to [gforth] / gforth / unix

version 1.43, 2011/04/13 20:11:12	version 1.44, 2011/12/12 19:45:40
Line 143 $802 Constant O_NONBLOCK\|O_RDWR	Line 143 $802 Constant O_NONBLOCK\|O_RDWR
[THEN]	[THEN]
1 Constant SOCK_STREAM	1 Constant SOCK_STREAM
2 Constant SOCK_DGRAM	2 Constant SOCK_DGRAM
	0 Constant IPPROTO_IP
41 Constant IPPROTO_IPV6	41 Constant IPPROTO_IPV6
	10 Constant IP_MTU_DISCOVER
	23 Constant IPV6_MTU_DISCOVER
4 Constant F_SETFL	4 Constant F_SETFL
$001 Constant POLLIN	$001 Constant POLLIN
$002 Constant POLLPRI	$002 Constant POLLPRI
Line 162 $004 Constant POLLOUT	Line 165 $004 Constant POLLOUT

: new-udp-socket ( -- socket )	: new-udp-socket ( -- socket )
PF_INET SOCK_DGRAM 0 socket	PF_INET SOCK_DGRAM 0 socket
dup 0<= abort" no free socket" ;	dup 0<= abort" no free socket"
	dup IPPROTO_IP IP_MTU_DISCOVER sockopt-on 1 over l! 4 setsockopt drop ;

: new-udp-socket6 ( -- socket )	: new-udp-socket6 ( -- socket )
PF_INET6 SOCK_DGRAM 0 socket	PF_INET6 SOCK_DGRAM 0 socket
dup 0<= abort" no free socket"	dup 0<= abort" no free socket"
	dup IPPROTO_IPV6 IPV6_MTU_DISCOVER sockopt-on 1 over l! 4 setsockopt drop
dup IPPROTO_IPV6 IPV6_V6ONLY sockopt-on dup on 4 setsockopt drop ;	dup IPPROTO_IPV6 IPV6_V6ONLY sockopt-on dup on 4 setsockopt drop ;

\ getaddrinfo based open-socket	\ getaddrinfo based open-socket