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

Vocabulary

tftp

Inputs

directory	an object
port/f	an object

Outputs

None

Definition

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

IN: tftp

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