next-block ( peer -- peer )

Vocabulary

bittorrent

Inputs

peer

an object

Outputs

peer

an object

Definition

USING: accessors kernel math sequences ;

IN: bittorrent

:: next-block ( peer -- peer )
    peer current-index>> [ 1 + ] [ 0 ] if*
    peer #pieces>> peer bitfield>> [ check-bitfield ] curry
    find-integer-from peer current-index<<
    0 peer current-piece>> set-length peer ;