read-gopher-path ( -- path )

Vocabulary

gopher.server.private

Inputs

None

Outputs

path

an object

Definition

USING: io io.pathnames kernel sequences urls.encoding ;

IN: gopher.server.private

: read-gopher-path ( -- path )
    readln dup [ "\t\r\n" member? ] find drop [ head ] when*
    trim-tail-separators url-decode ;