Skip to content

auto remove lib from treesitter language libraries #15

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
CarsonEllsworth33 wants to merge 5 commits into
base: master
Choose a base branch
from
Open

auto remove lib from treesitter language libraries #15

Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
ce3515d
lib is now automatically removed
CarsonEllsworth33 Dec 11, 2024
1ef29e7
added comment on .so explicit mention
CarsonEllsworth33 Dec 11, 2024
af08831
Merge pull request #1 from CarsonEllsworth33/lib-extractor
CarsonEllsworth33 Dec 13, 2024
7ec2351
added comment on .so explicit mention
raglnd Feb 21, 2025
9559a31
Merge pull request #2 from CarsonEllsworth33/lib-extractor
CarsonEllsworth33 Feb 21, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 13 additions & 2 deletions high-level.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,10 +41,21 @@
(defvar *language-registry*
(make-hash-table))

(defun remove-first-substring (string substring)
"Remove the first instance of SUBSTRING from STRING."
(let ((pos (search substring string :test #'char-equal)))
(if pos
(concatenate 'string
(subseq string 0 pos)
(subseq string (+ pos (length substring))))
string))) ; If the substring is not found, return the original string

(defmacro register-language (name lib &key fn-name)
; Need to check and see if .so extension is added to lib, if so then remove it
(check-type name symbol)
(check-type fn-name (or null string))
(let ((fn-name (or fn-name (substitute #\_ #\- (pathname-name lib))))
(let ((fn-name (or fn-name (remove-first-substring
(remove-first-substring (substitute #\_ #\- (pathname-name lib)) "lib") ".so")))
(cffi-name (make-symbol (symbol-name name))))
`(progn
(define-foreign-library ,cffi-name
Expand All @@ -53,7 +64,7 @@
(setf (gethash ',name *language-registry*)
(lambda ()
(foreign-funcall ,fn-name ts-language)))
',name)))
',name)))

(defun language-module (name)
(funcall
Expand Down