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

deps on define-return and let-assert + library messages

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-11 01:02:16 +02:00
parent ddb44e1c41
commit 68c2471620
3 changed files with 111 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ffmpeg-definitions.rkt
+20 -15
View File
@@ -6,6 +6,8 @@
(for-syntax racket/base)
"private/utils.rkt"
"private/cstruct-helper.rkt"
let-assert
define-return
)
(provide fmpg-init
@@ -485,27 +487,30 @@
(define-syntax check-support
(syntax-rules ()
((_ from until lib)
(let ((major-version (car (ffmpeg-version lib))))
(cond
((or (< major-version from) (> major-version until))
(error
(format "Unsupported major version of ffmpeg library ~a: ~a (~a).\nSupported range: ~a - ~a"
'lib major-version (ffmpeg-version-string lib) from until)))
(else
(info-sound "Supported ffmpeg library ~a - version ~a between ~a and ~a"
lib (ffmpeg-version-string lib) from until)
)
((_ lib version-hash)
(let ((from (car (hash-ref lib version-hash)))
(until (cadr (hash-ref lib version-hash))))
(let ((major-version (car (ffmpeg-version lib))))
(cond
((or (< major-version from) (> major-version until))
(error
(format "Unsupported major version of ffmpeg library ~a: ~a (~a).\nSupported range: ~a - ~a"
'lib major-version (ffmpeg-version-string lib) from until)))
(else
(info-sound "Supported ffmpeg library ~a - version ~a between ~a and ~a"
lib (ffmpeg-version-string lib) from until)
)
)
)
)
)
)
)
(check-support 58 60 'avutil)
(check-support 60 62 'avcodec)
(check-support 60 62 'avformat)
(check-support 4 6 'swresample)
(check-support 'avutil valid-ffmpeg-versions)
(check-support 'avcodec valid-ffmpeg-versions)
(check-support 'avformat valid-ffmpeg-versions)
(check-support 'swresample valid-ffmpeg-versions)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants