read-response ( -- status meta body/f )

Vocabulary

gemini.private

Inputs

None

Outputs

status	an object
meta	an object
body/f	an object

Definition

USING: ascii io io.encodings.string io.encodings.utf8 kernel
splitting ;

IN: gemini.private

: read-response ( -- status meta body/f )
    readln utf8 decode "\r" ?tail drop
    [ blank? ] split1-when over ?read-body ;