write-ptx-operand ( operand -- )

Vocabulary

cuda.ptx

Inputs

operand

an object

Outputs

None

Definition

IN: cuda.ptx

GENERIC: write-ptx-operand ( operand -- )

Methods

USING: cuda.ptx io math math.parser sequences ;

M: float write-ptx-operand
    "0d" write double>bits >hex 16 48 pad-head write ;


USING: cuda.ptx io math math.parser ;

M: integer write-ptx-operand number>string write ;


USING: accessors cuda.ptx io kernel math.parser ;

M: ptx-element write-ptx-operand
    dup var>> write "[" write index>> number>string write
    "]" write ;


USING: accessors combinators cuda.ptx io kernel math math.parser
;

M: ptx-indirect write-ptx-operand
    "[" write dup base>> write-ptx-operand offset>> {
        { [ dup zero? ] [ drop ] }
        { [ dup 0 < ] [ number>string write ] }
        [ "+" write number>string write ]
    } cond "]" write ;


USING: accessors cuda.ptx io ;

M: ptx-negation write-ptx-operand "!" write var>> write ;


USING: accessors cuda.ptx io sequences ;

M: ptx-vector write-ptx-operand
    "{" write elements>>
    [ ", " write ] [ write-ptx-operand ] interleave "}" write ;


USING: cuda.ptx io strings ;

M: string write-ptx-operand write ;