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

tagfile wchar fix.

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-09 08:41:33 +02:00
parent 6ed566c6cd
commit 091664044c
1 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
taglib.rkt
+5 -10
View File
@@ -137,20 +137,15 @@
(make-tags-picture mimetype kind bm #:description description)) (make-tags-picture mimetype kind bm #:description description))
(define (open-tag-file file) (define (open-tag-file file)
(if (eq? (system-type 'os) 'windows)
(let ((tag-file (taglib_file_new_wchar file)))
(if (and tag-file (taglib_file_is_valid tag-file))
tag-file
#f))
(let ((tag-file (taglib_file_new file))) (let ((tag-file (taglib_file_new file)))
(if (and tag-file (taglib_file_is_valid tag-file)) (if (and tag-file (taglib_file_is_valid tag-file))
tag-file tag-file
(begin
(when (and tag-file (not (eq? tag-file #f))) (taglib_file_free tag-file))
(if (eq? (system-type 'os) 'windows)
(begin
(dbg-sound "Could not open file ~a, trying wchar version on windows" file)
(let ((wtag-file (taglib_file_new_wchar file)))
(if (and wtag-file (taglib_file_is_valid wtag-file)) wtag-file
(begin
(when (and wtag-file (not (eq? wtag-file #f))) (taglib_file_free wtag-file))
#f)))) #f))))
#f)))))
(define (read-property-map tag-file) (define (read-property-map tag-file)
(define key-store (make-hash)) (define key-store (make-hash))