parse-sockaddr ( sockaddr addrspec -- newaddrspec )

Vocabulary

io.sockets.private

Inputs

sockaddr	an object
addrspec	an object

Outputs

newaddrspec

an object

Definition

IN: io.sockets.private

GENERIC: parse-sockaddr ( sockaddr addrspec -- newaddrspec )

Methods

USING: io.sockets.private kernel ;

M: f parse-sockaddr nip ;


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

M: icmp4 parse-sockaddr
    M\ icmp4 parse-sockaddr (call-next-method) with-icmp ;


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

M: icmp6 parse-sockaddr
    M\ icmp6 parse-sockaddr (call-next-method) with-icmp ;


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

M: inet4 parse-sockaddr
    [ M\ inet4 parse-sockaddr (call-next-method) ]
    [ drop port>> ntohs ] 2bi with-port ;


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

M: inet6 parse-sockaddr
    [ M\ inet6 parse-sockaddr (call-next-method) ]
    [ drop port>> ntohs ] 2bi with-port ;


USING: accessors alien.c-types alien.data io.sockets
io.sockets.private kernel ;

M: ipv4 parse-sockaddr
    [ addr>> uint <ref> ] dip inet-ntop <ipv4> ;


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

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


USING: accessors alien.strings io.encodings.utf8 io.sockets
io.sockets.private kernel ;

M: local parse-sockaddr drop path>> utf8 alien>string <local> ;


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

M: secure parse-sockaddr addrspec>> parse-sockaddr f <secure> ;