parse-type ( string -- string' )

Vocabulary

ftp.server

Inputs

string

an object

Outputs

string'

an object

Definition

USING: combinators unicode ;

IN: ftp.server

: parse-type ( string -- string' )
    >upper {
        { "IMAGE" [ "Binary" ] }
        { "I" [ "Binary" ] }
        [ type-error ]
    } case ;