handle-send-file-next ( block -- )

Vocabulary

tftp

Inputs

block

an object

Outputs

None

Definition

USING: accessors assocs kernel math namespaces ;

IN: tftp

: handle-send-file-next ( block -- )
    drop tftp-client get clients get ?at [
        [ [ path>> ] [ block>> ] bi read-file-block ]
        [ [ 1 + ] change-block block>> ] bi send-file-block
    ] [ drop ] if ;