read-tftp-command ( -- )

Vocabulary

tftp

Inputs

None

Outputs

None

Definition

USING: combinators endian io.sockets kernel math.parser
namespaces sequences ;

IN: tftp

: read-tftp-command ( -- )
    tftp-server get receive tftp-client [
        2 cut swap be> {
            { TFTP-RRQ [ handle-send-file ] }
            { TFTP-ACK [ be> handle-send-file-next ] }
            [ number>string " unimplemented" append throw ]
        } case
    ] with-variable ;