with-mapped-resource ( ..a resource quot: ( ..a device-ptr size -- ..b ) -- ..b )

Vocabulary

cuda.gl

Inputs

resource	an object
quot	a quotation with stack effect ( ..a device-ptr size -- ..b )

Outputs

None

Definition

USING: continuations kernel ;

IN: cuda.gl

: with-mapped-resource
    ( ..a resource quot: ( ..a device-ptr size -- ..b ) -- ..b )
    over [ map-resource ] 2dip [ unmap-resource ] curry finally
    ; inline