(read-line-tokens) ( seq stream -- seq )

Vocabulary

gpu.demos.bunny

Inputs

seq	an object
stream	an object

Outputs

seq

an object

Definition

USING: combinators io kernel sequences ;

IN: gpu.demos.bunny

: (read-line-tokens) ( seq stream -- seq )
    " \n" over stream-read-until
    [ [ pick push ] unless-empty ] [
        {
            { 32 [ (read-line-tokens) ] }
            { 10 [ drop ] }
            [ 2drop [ f ] when-empty ]
        } case
    ] bi* ; inline recursive