gopher-get ( args -- )

Vocabulary

gopher.cli

Inputs

args

an object

Outputs

None

Definition

USING: arrays gopher io io.encodings.utf8 io.files io.files.temp
kernel sequences urls ;

IN: gopher.cli

: gopher-get ( args -- )
    dup array? [ first ] when dup URL set-first >url gopher over
    { 48 49 55 } member? [
        "gopher.txt" temp-file
        [ utf8 [ gopher-print ] with-file-writer ]
        [ utf8 file-contents print ] bi
    ] [ "ERROR: Cannot display '" "'" surround print drop ] if ;