write-ptx-dim ( dim -- )

Vocabulary

cuda.ptx

Inputs

dim

an object

Outputs

None

Definition

USING: combinators io kernel math math.parser sequences ;

IN: cuda.ptx

: write-ptx-dim ( dim -- )
    {
        { [ dup zero? ] [ drop "[]" write ] }
        {
            [ dup sequence? ]
            [ [ "[" write number>string write "]" write ] each ]
        }
        [ "[" write number>string write "]" write ]
    } cond ;