Cách phát tệp âm thanh từ mã Haskell, nền tảng

Question

Tôi đang viết ứng dụng dòng lệnh Haskell chạy trên Linux, Windows và OS X. Bây giờ tôi phải phát tệp âm thanh (.wav, .ogg và .mp3) từ nó. Làm thế nào tôi sẽ đi về việc thực hiện một chức năng

playAudioFile :: FilePath -> IO() 

hoặc thậm chí tốt hơn

playAudio :: ByteString -> IO() 

mà chỉ đơn giản hoạt động trên tất cả các hệ thống?

(Tôi đang hạnh phúc để gọi công cụ dòng lệnh phổ biến và cũng không nhớ bundling họ cho việc phân phối Windows.)

Answer 1

Đây là mã tôi đã đưa ra, sử dụng SDL-1.2:

module PlaySound (withSound, playSound) where 

import Control.Monad 
import System.IO 
import System.Directory 
import Data.Foldable 
import Control.Exception 
import qualified Data.ByteString.Lazy as B 
import Foreign.ForeignPtr 

import Graphics.UI.SDL as SDL 
import Graphics.UI.SDL.Mixer as Mix 

withSound :: IO a -> IO a 
withSound = bracket_ init cleanup 
    where 
    init = do 
     SDL.init [SDL.InitAudio] 
     getError >>= traverse_ putStrLn 
     ok <- Mix.tryOpenAudio Mix.defaultFrequency Mix.AudioS16LSB 2 4096 
     unless ok $ 
      putStrLn "Failed to open SDL audio device" 

    cleanup = do 
     Mix.closeAudio 
     SDL.quit 

playSound :: B.ByteString -> IO() 
playSound content = do 
     dir <- getTemporaryDirectory 
     (tmp, h) <- openTempFile dir "sdl-input" 
     B.hPutStr h content 
     hClose h 

     mus <- Mix.loadMUS tmp 
     Mix.playMusic mus 1 
     wait 

     -- This would double-free the Music, as it is also freed via a 
     -- finalizer 
     --Mix.freeMusic mus 
     finalizeForeignPtr mus 
     removeFile tmp 

wait :: IO() 
wait = do 
    SDL.delay 50 
    stillPlaying <- Mix.playingMusic 
    when stillPlaying wait 

chương trình cuối cùng hoạt động tốt, nhưng

• biên soạn các ràng buộc SDL dưới Windows là khéo léo. Tôi đã theo dõi this nice explanation on how to do it
• các ràng buộc SDL cho SDL-1.2 dường như không được duy trì và do not even compile with GHC-7.8 or newer. Ban đầu tôi không nhận thấy, vì bản phân phối (Debian) của tôi bị vá xung quanh các vấn đề như vậy, nhưng điều đó có nghĩa là người dùng của tôi không thể dễ dàng thêm các phụ thuộc nữa.
• có các ràng buộc cho SDL-2, nhưng không có giá trị nào cho SDL_mixer mà tôi cần ở đây (tôi tin).

Vì vậy, tôi sẽ vui vẻ đọc câu trả lời hay hơn.