read-token ( -- token )

Vocabulary

images.pgm

Inputs

None

Outputs

token

an object

Definition

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

IN: images.pgm

: read-token ( -- token )
    [
        read1 dup blank?
        [ t ] [ dup 35 = [ "\n" read-until 2drop t ] [ f ] if ]
        if
    ] [ drop ] while " \n\r\t" read-until drop swap prefix
    ascii decode ;