can-serve-file? ( path -- ? )

Vocabulary

ftp.server

Inputs

path

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit io.files io.files.info ;

IN: ftp.server

: can-serve-file? ( path -- ? )
    {
        [ file-exists? ]
        [ file-info regular-file? ]
        [ serving? ]
    } 1&& ;