ओएस एक्स पर हास्केल ऑडियो आउटपुट?

Question

मैं हास्केल से ऑडियो आउटपुट करने में सक्षम होना चाहता हूं। मैं वर्तमान में ओएस एक्स (हिम तेंदुए) पर जीएचसी 6.10 का उपयोग कर रहा हूं। मैंने जैक लाइब्रेरी (जैकओएसएक्स का उपयोग करके) और पोर्टऑडियो लाइब्रेरी का निर्माण करने की कोशिश की है, लेकिन उनमें से कोई भी प्रभावी नहीं लग रहा था। क्या मैक पर हास्केल प्रोग्राम से लाइव ऑडियो आउटपुट करने का अपेक्षाकृत सरल तरीका है?

संपादित करें: स्पष्टता

Answer 1

मैं PortAudio का सफलतापूर्वक उपयोग किया गया है।

मैं अपने खिलौना कार्यक्रम से कुछ अंश ले लिया एक बहुत ही सरल "गूंज" उदाहरण बनाने के लिए नीचे दिए गए:।

(हेडफोन के साथ चलाने के इस वक्ताओं करने के लिए माइक से एक राय पाश है और बहुत जोर से बन सकते हैं कुछ प्रतिक्रिया दौर के बाद)

import Control.Monad (forever) 
import Data.Int (Int16) 
import Foreign.Ptr (nullPtr) 
import Sound.PortAudio 

initPortAudio :: Int -> IO (PaStream Int16) 
initPortAudio blockSize = do 
    Right NoError <- initialize 
    Just micDevIdx <- getDefaultInputDevice 
    Just spkDevIdx <- getDefaultOutputDevice 
    Right paStream <- 
    openStream 
    (Just (StreamParameters micDevIdx 1 PaInt16 0.1 nullPtr)) 
    (Just (StreamParameters spkDevIdx 1 PaInt16 0.1 nullPtr)) 
    44100 blockSize 
    :: IO (Either String (PaStream Int16)) 
    Right NoError <- startStream paStream 
    let zeroBlock = replicate blockSize [0] 
    Right NoError <- writeStream paStream zeroBlock blockSize 
    return paStream 

main :: IO() 
main = do 
    paStream <- initPortAudio blockSize 
    forever $ do 
    Right numSampsAvail <- getStreamReadAvailable paStream 
    Right curSamps <- readStream paStream 1 numSampsAvail 
    Right NoError <- writeStream paStream curSamps numSampsAvail 
    return() 
    where 
    blockSize = 0x800 

GHC 6.10.4 साथ तेंदुए में यहां काम करता है।

मेरा अपना खिलौना कार्यक्रम वास्तव में केवल ऑडियो इनपुट का उपयोग करता है, और यह (कर कि PortAudio शिकायत के बिना) ऑडियो आउटपुट के लिए शून्य आउटपुट।