write-ptx-element ( elt -- )

Vocabulary

cuda.ptx

Inputs

elt

an object

Outputs

None

Definition

USING: io kernel ;

IN: cuda.ptx

: write-ptx-element ( elt -- )
    dup ptx-element-label [ write ":" write ] when* "\t" write
    dup (write-ptx-element) ptx-semicolon?
    [ ";" print ] [ nl ] if ;