ipv6

Vocabulary

io.sockets

Definition

USING: math ;

IN: io.sockets

TUPLE: ipv6 < hostname
    { scope-id integer read-only initial: 0 } ;

Methods

USING: io.sockets io.sockets.private kernel ;

M: ipv6 address-size drop 16 ;


USING: io.sockets io.sockets.private kernel unix.ffi ;

M: ipv6 empty-sockaddr drop sockaddr-in6 new ;


USING: alien.data endian grouping io.sockets io.sockets.private
kernel math.parser sequences ;

M: ipv6 inet-ntop
    drop 16 memory>byte-array 2 <groups> [ be> >hex ] map
    ":" join ;


USING: continuations io.sockets io.sockets.private ip-parser
kernel ;

M: ipv6 inet-pton
    drop [ parse-ipv6 ipv6-bytes ] [ invalid-ipv6 ] recover ;


USING: accessors io.sockets io.sockets.private kernel ;

M: ipv6 make-sockaddr
    [ make-sockaddr-in6-part ]
    [ [ host>> "::" or ] keep inet-pton >>addr ]
    [ scope-id>> >>scopeid ] tri ;


USING: accessors io.sockets io.sockets.private kernel sequences
;

M: ipv6 make-sockaddr-outgoing
    [ make-sockaddr-in6-part ] [
        [ host>> dup { f "::" } member? [ drop "::1" ] when ]
        keep inet-pton >>addr
    ] [ scope-id>> >>scopeid ] tri ;


USING: accessors io.sockets io.sockets.private kernel ;

M: ipv6 parse-sockaddr
    [ [ addr>> ] dip inet-ntop ] [ drop scopeid>> ] 2bi ipv6 boa
    ;


USING: accessors io.sockets kernel math math.parser present
sequences ;

M: ipv6 present
    [ host>> ] [ scope-id>> ] bi
    [ number>string "%" glue ] unless-zero ;


USING: io.sockets io.sockets.private kernel unix.ffi ;

M: ipv6 protocol-family drop PF_INET6 ;


USING: alien.c-types io.sockets io.sockets.private kernel
unix.ffi ;

M: ipv6 sockaddr-size drop sockaddr-in6 heap-size ;


USING: accessors io.sockets io.sockets.icmp
io.sockets.icmp.private ;

M: ipv6 with-icmp host>> <icmp6> ;


USING: accessors io.sockets kernel ;

M: ipv6 with-port
    [ [ host>> ] [ scope-id>> ] bi ] dip inet6 boa ;