with-buffer-ptr ( ..a buffer-ptr target quot: ( ..a c-ptr -- ..b ) -- ..b )

Vocabulary

gpu.buffers

Inputs

buffer-ptr	an object
target	an object
quot	a quotation with stack effect ( ..a c-ptr -- ..b )

Outputs

None

Definition

USING: accessors alien kernel ;

IN: gpu.buffers

: with-buffer-ptr
    ( ..a buffer-ptr target quot: ( ..a c-ptr -- ..b ) -- ..b )
    [ [ offset>> <alien> ] [ buffer>> handle>> ] bi ] 2dip
    with-bound-buffer ; inline