write-entry ( entry -- )

Vocabulary

cuda.ptx

Inputs

entry

an object

Outputs

None

Definition

USING: accessors io kernel sequences ;

IN: cuda.ptx

: write-entry ( entry -- )
    dup name>> write dup params>> [ bl write-params ] when*
    nl dup directives>> [ (write-ptx-element) nl ] each
    dup body>> write-body drop ;