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

trying the right libraries

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-11 09:40:06 +02:00
parent 9eb09537e6
commit 84f4719513
2 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ffmpeg-definitions.rkt
+12 -13
View File
@@ -256,23 +256,22 @@
;;;; Needed functions for audio decoder ;;;; Needed functions for audio decoder
(define libavutil (get-lib (case (system-type 'os)
(define libavutil (get-lib (list (case (system-type 'os) [(windows) '("avutil-60")]
[(windows) "avutil-60"] [else '("avutil" "libavutil")]) '(#f)))
[else "avutil"])) '(#f)))
(define libswresample (get-lib (list (case (system-type 'os) (define libswresample (get-lib (case (system-type 'os)
[(windows) "swresample-6"] [(windows) '("swresample-6")]
[else "swresample"])) '(#f))) [else '("swresample" "libswresample")]) '(#f)))
(define libavcodec (get-lib (list (case (system-type 'os) (define libavcodec (get-lib (case (system-type 'os)
[(windows) "avcodec-62"] [(windows) '("avcodec-62")]
[else "avcodec"])) '(#f))) [else '("avcodec" "libavcodec")]) '(#f)))
(define libavformat (get-lib (list (case (system-type 'os) (define libavformat (get-lib (case (system-type 'os)
[(windows) "avformat-62"] [(windows) '("avformat-62")]
[else "avformat"])) '(#f))) [else '("avformat" "libavformat")]) '(#f)))
(define-ffi-definer def-avutil libavutil #:default-make-fail make-not-available) (define-ffi-definer def-avutil libavutil #:default-make-fail make-not-available)
private/utils.rkt
+2
View File
@@ -157,8 +157,10 @@
(cons (soundlibs-directory) p))) (cons (soundlibs-directory) p)))
(define (get-lib* libs-to-try orig-libs versions) (define (get-lib* libs-to-try orig-libs versions)
(unless (soundlibs-available?) (unless (soundlibs-available?)
(download-soundlibs)) (download-soundlibs))
(let ((libs-path (build-lib-path (get-lib-search-dirs)))) (let ((libs-path (build-lib-path (get-lib-search-dirs))))
(if (null? libs-to-try) (if (null? libs-to-try)
(begin (begin