gopher-type ( entry -- type )

Vocabulary

gopher.server.private

Inputs

entry

an object

Outputs

type

an object

Definition

USING: accessors combinators io.files.types kernel mime.types ;

IN: gopher.server.private

: gopher-type ( entry -- type )
    dup type>> {
        { +directory+ [ drop "1" ] }
        {
            +regular-file+
            [
                name>> mime-type {
                    { ~quotation~ ~quotation~ }
                    { ~quotation~ ~quotation~ }
                    { ~quotation~ ~quotation~ }
                    [ drop "9" ]
                } cond
            ]
        }
        [ 2drop f ]
    } case ;