hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-19 20:26:41 +01:00
parent 7c404ea3b9
commit 4a0a0b9f96
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
libtag/taglib-ffi.rkt
View File

@@ -45,20 +45,21 @@
) )
(define-ffi-definer define-tag-lib ;(define-ffi-definer define-tag-lib
(ffi-lib "tag" '("0" #f) ; (ffi-lib "tag" '("0" #f)
#:get-lib-dirs (lambda () ; #:get-lib-dirs (lambda ()
(cons (build-path ".") (get-lib-search-dirs))) ; (cons (build-path ".") (get-lib-search-dirs)))
#:fail (lambda () ; #:fail (lambda ()
(ffi-lib (get-lib-path "tag.dll"))) ; (ffi-lib (get-lib-path "tag.dll")))
)) ; ))d
(define-ffi-definer define-tag-c-lib (define-ffi-definer define-tag-c-lib
(ffi-lib "tag_c" '("0" "1" "2" #f) (ffi-lib "libtag_c" '("2" #f)
#:get-lib-dirs (lambda () #:get-lib-dirs (lambda ()
(cons (build-path ".") (get-lib-search-dirs))) (cons (build-path ".") (get-lib-search-dirs)))
#:fail (lambda () #:fail (lambda ()
(ffi-lib (get-lib-path "tag_c.dll"))) (let ((path (get-lib-path "tag_c.dll")))
(ffi-lib path)))
)) ))
(define TagLib_File_Type (define TagLib_File_Type