taglib wchar support

2026-04-30 16:22:56 +02:00
parent 0d862b909e
commit 229485e40b
2 changed files with 18 additions and 0 deletions
@@ -73,6 +73,19 @@
        (if (eq? tag-file #f)
            (set! valid? #f)
            (set! valid? (taglib_file_is_valid tag-file)))
+        
+        (unless valid?
+          (when (eq? (system-type 'os) 'windows)
+            (set! tag-file (taglib_file_new_wchar file))
+            (if (eq? tag-file #f)
+                (set! valid? #f)
+                (set! valid? (taglib_file_is_valid tag-file)))))
+
+        (unless valid?
+          (unless (eq? tag-file #f)
+            (taglib_file_free tag-file)
+            (set! tag-file #f)))
+        
        (when valid?
          (let ((tag (taglib_file_tag tag-file))
                (ap (taglib_file_audioproperties tag-file))