skip-ws ( -- )

Vocabulary

pbrt.private

Inputs

None

Outputs

None

Definition

USING: ascii combinators io kernel ;

IN: pbrt.private

: skip-ws ( -- )
    pbrt-read1 {
        { [ dup not ] [ drop ] }
        { [ dup 35 = ] [ drop "\n" read-until 2drop skip-ws ] }
        { [ dup blank? ] [ drop skip-ws ] }
        [ save-char ]
    } cond ;