start-tftp-server ( directory port/f -- )

Vocabulary

tftp

Inputs

directory	an object
port/f	an object

Outputs

None

Definition

USING: accessors assocs continuations io io.directories
io.sockets kernel namespaces prettyprint ;

IN: tftp

: start-tftp-server ( directory port/f -- )
    get-tftp-host [
        <datagram> tftp-server [
            tftp-server get dup addr>> port>> tftp-servers
            get-global set-at [
                [ read-tftp-command t ]
                [ [ . flush ] with-global f ] recover
            ] loop
        ] with-variable
    ] curry [ [ H{ } clone clients ] ] dip
    [ with-variable ] curry compose with-directory ;