write-param ( param -- )

Vocabulary

pbrt.private

Inputs

param

an object

Outputs

None

Definition

USING: accessors io kernel sequences strings ;

IN: pbrt.private

: write-param ( param -- )
    " " write dup [ type>> ] [ name>> ] bi " " glue write-quoted
    " " write values>> dup length 1 =
    [ first dup string? [ write-quoted ] [ write-number ] if ] [
        "[" write [
            " " write dup string?
            [ write-quoted ] [ write-number ] if
        ] each "]" write
    ] if ;