read-response ( -- ftp-response )

Vocabulary

ftp.client

Inputs

None

Outputs

ftp-response

an object

Definition

USING: accessors ftp io kernel sequences ;

IN: ftp.client

: read-response ( -- ftp-response )
    <ftp-response> readln
    [ (ftp-response-code) >>n ] [ add-response-line ]
    [ fourth 45 = ] tri [ read-response-loop ] when ;