get-ok-and-total ( -- total )

Vocabulary

pop3.private

Inputs

None

Outputs

total

an object

Definition

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

IN: pop3.private

: get-ok-and-total ( -- total )
    stream [
        readln dup "+OK" head?
        [ split-words second string>number dup account count<< ]
        [ throw ] if
    ] with-stream* ;