write-message ( message -- )

Vocabulary

bittorrent

Inputs

message

an object

Outputs

None

Definition

IN: bittorrent

GENERIC: write-message ( message -- )

Methods

USING: accessors bittorrent io ;

M: allowed-fast write-message
    5 write-int 17 write1 index>> write-int ;


USING: accessors bittorrent io kernel math sequences ;

M: bitfield write-message
    field>> dup length 1 + write-int 5 write1 write ;


USING: accessors bittorrent io kernel ;

M: cancel write-message
    [ index>> ] [ offset>> ] [ length>> ] tri 13 write-int
    8 write1 [ write-int ] tri@ ;


USING: bittorrent io kernel ;

M: choke write-message drop 1 write-int 0 write1 ;


USING: accessors bittorrent io kernel math sequences ;

M: extended write-message
    [ payload>> ] [ id>> ] bi over length 2 + write-int
    20 write1 write1 write ;


USING: bittorrent io kernel ;

M: have-all write-message drop 1 write-int 14 write1 ;


USING: bittorrent io kernel ;

M: have-none write-message drop 1 write-int 15 write1 ;


USING: accessors bittorrent io ;

M: have write-message 5 write-int 4 write1 index>> write-int ;


USING: bittorrent io kernel ;

M: interested write-message drop 1 write-int 2 write1 ;


USING: bittorrent kernel ;

M: keep-alive write-message drop 0 write-int ;


USING: bittorrent io kernel ;

M: not-interested write-message drop 1 write-int 3 write1 ;


USING: accessors bittorrent io kernel math sequences ;

M: piece write-message
    [ index>> ] [ offset>> ] [ block>> ] tri dup length 9 +
    write-int 7 write1
    [ write-int ] [ write-int ] [ write ] tri* ;


USING: accessors bittorrent io ;

M: port write-message 5 write-int 9 write1 port>> write-int ;


USING: accessors bittorrent io kernel ;

M: reject-request write-message
    [ index>> ] [ begin>> ] [ length>> ] tri 13 write-int
    16 write1 [ write-int ] tri@ ;


USING: accessors bittorrent io kernel ;

M: request write-message
    [ index>> ] [ begin>> ] [ length>> ] tri 13 write-int
    6 write1 [ write-int ] tri@ ;


USING: accessors bittorrent io ;

M: suggest-piece write-message
    5 write-int 13 write1 index>> write-int ;


USING: bittorrent io kernel ;

M: unchoke write-message drop 1 write-int 1 write1 ;


USING: accessors bittorrent io kernel math sequences ;

M: unknown write-message
    [ payload>> ] [ id>> ] bi over length 1 + write-int write1
    write ;