parse-list ( ftp-response -- ftp-response )


Vocabulary
ftp.client.listing-parser

Inputs
ftp-responsean object


Outputs
ftp-responsean object


Definition
USING: accessors combinators kernel sequences splitting ;

IN: ftp.client.listing-parser

: parse-list ( ftp-response -- ftp-response )
dup strings>> [ split-words harvest ] map dup length {
{ 11 [ parse-list-11 ] }
{ 9 [ parse-list-11 ] }
{ 8 [ parse-list-8 ] }
{ 3 [ parse-list-3 ] }
[ drop ]
} case >>parsed ;