top ( message# #lines -- seq )
POP3 client library

Prev:	list ( -- assoc )
Next:	consolidate ( -- seq )

Vocabulary
pop3

Inputs

message#	a fixnum
#lines	a fixnum

Outputs

seq	a sequence

Word description
Lists the header for message# and the first #lines of the message text. For example, 1 0 top would list just the headers for message 1, where as 1 5 top would list the headers and first 5 lines of the message text.

Definition

USING: accessors io.streams.duplex kernel math.parser namespaces
pop3.private sequences ;

IN: pop3

: top ( message# #lines -- seq )
    <raw-source> raw-source set [ stream ] 2dip [
        [ [ "TOP " ] ] dip
        [ number>string append " " append ] curry compose
    ] dip
    [ number>string append command readlns dup raw top<< ] curry
    compose with-stream* ;