gforth/unix/socket.fs - diff

Return to socket.fs CVS log

Up to [gforth] / gforth / unix

version 1.45, 2011/12/12 20:47:56	version 1.46, 2011/12/12 22:00:37
Line 124 Variable sockopt-on	Line 124 Variable sockopt-on

0 Constant PF_UNSPEC	0 Constant PF_UNSPEC
2 Constant PF_INET	2 Constant PF_INET
environment os-type s" darwin" string-prefix? [IF]	environment os-type s" darwin" string-prefix? [IF] : darwin ; [THEN]
	[IFDEF] darwin
30 Constant PF_INET6	30 Constant PF_INET6
$0210 Constant AF_INET	$0210 Constant AF_INET
$1E1C Constant AF_INET6	$1E1C Constant AF_INET6
Line 167 $004 Constant POLLOUT	Line 168 $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 IP_PMTUDISC_DO over l! 4 setsockopt drop ;	[IFUNDEF] darwin
	dup IPPROTO_IP IP_MTU_DISCOVER sockopt-on IP_PMTUDISC_DO over l! 4
	setsockopt drop
	[THEN] ;

: 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 IP_PMTUDISC_DO over l! 4 setsockopt drop	[IFUNDEF] darwin
	dup IPPROTO_IPV6 IPV6_MTU_DISCOVER sockopt-on IP_PMTUDISC_DO over l! 4
	setsockopt drop
	[THEN]
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