write-command ( command literal tag -- )

Vocabulary

imap.private

Inputs

command	an object
literal	an object
tag	an object

Outputs

None

Definition

USING: formatting io io.crlf io.encodings.ascii
io.encodings.string kernel sequences ;

IN: imap.private

: write-command ( command literal tag -- )
    -rot [
        [ "%s %s\r\n" sprintf ]
        [ length "%s %s {%d}\r\n" sprintf ] if-empty
        ascii encode write flush
    ] keep
    [ read-?crlf drop "\r\n" append write flush ] unless-empty ;