with-clang-cursor ( path quot: ( tu path cursor -- ) -- )

Vocabulary

libclang

Inputs

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

Outputs

None

Definition

USING: kernel libclang.ffi ;

IN: libclang

: with-clang-cursor ( path quot: ( tu path cursor -- ) -- )
    dupd [ [ over clang_getTranslationUnitCursor ] curry ] dip
    compose [ [ f 0 f 0 CXTranslationUnit_None ] curry ] dip
    [ with-clang-translation-unit ] curry compose
    with-clang-index ; inline