read-param ( -- param/f )

Vocabulary

pbrt.private

Inputs

None

Outputs

param/f

an object

Definition

USING: arrays combinators kernel pbrt sequences strings ;

IN: pbrt.private

: read-param ( -- param/f )
    next-token {
        { [ dup not ] [ drop f ] }
        {
            [ dup string? ]
            [
                dup 32 swap member? [
                    parse-param-descriptor next-token dup
                    open-bracket?
                    [ drop read-bracketed-values ] [ 1array ] if
                    pbrt-param boa
                ] [ save-token f ] if
            ]
        }
        [ save-token f ]
    } cond ;