USING: alien.syntax ;

IN: unix.linux.route

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: struct-rtentry
  { "ulong"           "rt_pad1" }
  { "struct-sockaddr" "rt_dst" }
  { "struct-sockaddr" "rt_gateway" }
  { "struct-sockaddr" "rt_genmask" }
  { "ushort"          "rt_flags" }
  { "short"           "rt_pad2" }
  { "ulong"           "rt_pad3" }
  { "uchar"	      "rt_tos" }
  { "uchar"	      "rt_class" }
  { "short"	      "rt_pad4" }
  { "short"	      "rt_metric" }
  { "char*"	      "rt_dev" }
  { "ulong"	      "rt_mtu" }
  { "ulong"	      "rt_window" }
  { "ushort"	      "rt_irtt" } ;

: RTF_UP	 HEX: 0001 ;		! Route usable.
: RTF_GATEWAY	 HEX: 0002 ;		! Destination is a gateway.

: RTF_HOST	 HEX: 0004 ;		! Host entry (net otherwise).
: RTF_REINSTATE	 HEX: 0008 ;		! Reinstate route after timeout.
: RTF_DYNAMIC	 HEX: 0010 ;		! Created dyn. (by redirect).
: RTF_MODIFIED	 HEX: 0020 ;		! Modified dyn. (by redirect).
: RTF_MTU	 HEX: 0040 ;		! Specific MTU for this route.
: RTF_MSS	 RTF_MTU ;		! Compatibility.
: RTF_WINDOW	 HEX: 0080 ;		! Per route window clamping.
: RTF_IRTT	 HEX: 0100 ;		! Initial round trip time.
: RTF_REJECT	 HEX: 0200 ;		! Reject route.
: RTF_STATIC	 HEX: 0400 ;		! Manually injected route.
: RTF_XRESOLVE	 HEX: 0800 ;		! External resolver.
: 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
       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 ;