racket-tree-sitter🔗ℹ

1 Guide🔗ℹ

(require racket-tree-sitter

ffi/unsafe

ffi/unsafe/define)

(define-ffi-definer define-racket

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

(define-racket rkt-language (fun -> _TSLanguageRef)

#:c-id tree_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 #f source-code))

(define root (root-node tree))

(displayln (node->string root))

(tree-delete tree)

2 Reference🔗ℹ