ping ( host -- reply )


Vocabulary
ping

Inputs
hostan object


Outputs
replyan object


Definition
USING: calendar destructors io.sockets io.sockets.icmp
io.timeouts kernel ping.private random sequences ;

IN: ping

: ping ( host -- reply )
<icmp> resolve-host [ icmp4? ] filter
random f <icmp4> <ping-port> 1 seconds over set-timeout
[ [ send-ping ] [ recv-ping ] 2bi ] with-disposal ;