with-cursor-tokens ( cursor quot: ( tu token -- obj ) -- seq )

Vocabulary

libclang

Inputs

cursor	an object
quot	a quotation with stack effect ( tu token -- obj )

Outputs

seq

an object

Definition

USING: continuations kernel libclang.ffi sequences ;

IN: libclang

:: with-cursor-tokens
    ( cursor quot: ( tu token -- obj ) -- seq )
    cursor clang_Cursor_getTranslationUnit :> tu tu cursor
    clang_getCursorExtent clang-tokenize :> ( tokens ntokens ) [
        tokens CXToken ntokens ptr-array>array
        [ tu swap quot call ] map
    ] [ tu tokens ntokens clang_disposeTokens ] finally ; inline