handle-SIZE ( obj -- )

Vocabulary

ftp.server

Inputs

obj

an object

Outputs

None

Definition

USING: accessors io.files.info kernel math.parser sequences ;

IN: ftp.server

: handle-SIZE ( obj -- )
    tokenized>> second dup can-serve-file?
    [ file-info size>> number>string 213 server-response ]
    [ not-a-plain-file ] if ;