parse-peer4s ( peersbin -- inet4s )

Vocabulary

bittorrent

Inputs

peersbin

an object

Outputs

inet4s

an object

Definition

USING: arrays assocs grouping io.sockets kernel sequences ;

IN: bittorrent

: parse-peer4s ( peersbin -- inet4s )
    dup array?
    [ [ [ "ip" of ] [ "port" of ] bi <inet4> ] map ]
    [ 6 <groups> [ parse-peer4 ] map ] if ;