racket-tree-sitter🔗 i

1Guide🔗 i

(require racket-tree-sitter

ffi/unsafe

ffi/unsafe/define)

(define-ffi-definerdefine-racket

(ffi-lib"./zig-out/lib/libtree-sitter-racket"'(#f)))

(define-racketrkt-language(fun->_TSLanguageRef )

#:c-idtree_sitter_racket)

(define p(parser-new ))

(set-language p(rkt-language))

(define source-code"\n(+ 1 2)\n(define x 1)\n(define (foo a b)\n(+ a b x))\n")

(define tree(parse-string p#fsource-code))

(define root(root-nodetree))

(displayln (node->stringroot))

(tree-deletetree)

2Reference🔗 i