! Copyright (C) 2010 John Benediktsson ! See http://factorcode.org/license.txt for BSD license USING: accessors combinators generic kernel io.sockets io.sockets.private memoize sequences system vocabs.parser ; IN: io.sockets.icmp << { { [ os windows? ] [ "windows.winsock" ] } { [ os unix? ] [ "unix.ffi" ] } } cond use-vocab >> > ; MEMO: IPPROTO_ICMP6 ( -- protocol ) "ipv6-icmp" getprotobyname proto>> ; PRIVATE> GENERIC: with-icmp ( addrspec -- addrspec ) TUPLE: icmp4 < ipv4 ; C: icmp4 M: icmp4 protocol drop IPPROTO_ICMP4 ; M: icmp4 port>> drop 0 ; M: icmp4 parse-sockaddr M\ icmp4 parse-sockaddr (call-next-method) with-icmp ; TUPLE: icmp6 host ; C: icmp6 M: icmp6 protocol drop IPPROTO_ICMP6 ; M: icmp6 port>> drop 0 ; M: icmp6 parse-sockaddr M\ icmp6 parse-sockaddr (call-next-method) with-icmp ; M: ipv4 with-icmp host>> ; M: ipv6 with-icmp host>> ; TUPLE: icmp < hostname ; C: icmp M: icmp resolve-host M\ icmp resolve-host (call-next-method) [ with-icmp ] map ;