steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add route word to unix.linux.route

release
Eduardo Cavazos 2007-11-13 17:45:01 -06:00
parent 001456e4bb
commit 30b1f9fd87
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/unix/linux/route/route.factor
View File

@ -3,6 +3,8 @@ USING: alien.syntax ;
IN: unix.linux.route
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C-STRUCT: struct-rtentry
{ "ulong" "rt_pad1" }
{ "struct-sockaddr" "rt_dst" }
@ -37,3 +39,17 @@ C-STRUCT: struct-rtentry
: RTF_NOFORWARD HEX: 1000 ; ! Forwarding inhibited.
: RTF_THROW HEX: 2000 ; ! Go to next class.
: RTF_NOPMTUDISC HEX: 4000 ; ! Do not send packets with DF.
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USING: kernel alien.c-types io.sockets io.sockets.impl
unix unix.linux.sockios ;
: route ( dst gateway genmask flags -- )
>r >r >r >r
"struct-rtentry" <c-object>
r> 0 <inet4> make-sockaddr over set-struct-rtentry-rt_dst
r> 0 <inet4> make-sockaddr over set-struct-rtentry-rt_gateway
r> 0 <inet4> make-sockaddr over set-struct-rtentry-rt_genmask
r> over set-struct-rtentry-rt_flags
AF_INET SOCK_DGRAM 0 socket SIOCADDRT rot ioctl drop ;