हास्केल कोड से ऑडियो फ़ाइल कैसे चलाएं, क्रॉस-प्लेटफ़ॉर्म

Question

मैं एक हास्केल कमांड लाइन एप्लिकेशन लिख रहा हूं जो लिनक्स, विंडोज और ओएस एक्स पर चलता है। अब मुझे ऑडियो फाइलें (.wav, .ogg और .mp3) खेलना है यह। मैं एक समारोह

playAudioFile :: FilePath -> IO() 

या और भी बेहतर

playAudio :: ByteString -> IO() 

कि बस सभी सिस्टम पर काम करता है को लागू करने के बारे में कैसे जाना होगा?

(मैं आम कमांड लाइन उपकरण आह्वान करने के लिए और भी उन्हें विंडोज वितरण के लिए बंडल कोई आपत्ति नहीं है खुश हूँ।)

Answer 1

इस कोड को मैं के साथ आया था, एसडीएल-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 

अंत में कार्यक्रम ठीक काम करता है, लेकिन

• Windows के तहत एसडीएल बाइंडिंग संकलन मुश्किल है। मैं पीछा किया this nice explanation on how to do it
• एसडीएल-1.2 के लिए एसडीएल बाइंडिंग unmaintained और do not even compile with GHC-7.8 or newer होने लगते हैं। मैंने पहले नोटिस नहीं किया था, क्योंकि मेरा वितरण (डेबियन) ऐसे मुद्दों के आसपास पैच करता है, लेकिन इसका मतलब है कि मेरे उपयोगकर्ता अब निर्भरता cabal install निर्भरताओं को आसानी से नहीं कर सकते हैं।
• वहाँ एसडीएल -2 के लिए बाइंडिंग हैं, लेकिन SDL_mixer, जिसे मैंने यहां की जरूरत के लिए कोई नहीं (मेरा मानना ​​है कि)।

तो मैं खुशी से बेहतर उत्तर पढ़ लेंगे।