src/System/Mac/Types.hs @@ -2,6 +2,8 @@ import Control.Concurrent (threadDelay) import Sound.AudioToolbox.AUGraph +import Prelude hiding (any) +import System.Mac.Components -- Define ComponentDescriptions for AudioUnits in example dlsSynth = ComponentDescription { @@ -49,3 +51,6 @@ main = do -- Stop rendering and release graph stop graph dispose graph + + cs <- components $ ComponentDescription "aumu" any any 0 0 + putStrLn =<< componentName (head cs) doc/examples/Test.hs @@ -22,7 +22,8 @@ Library Sound.AudioToolbox.AUGraph, System.Mac.Components, System.Mac.OSStatus, - System.Mac.OSType + System.Mac.OSType, + System.Mac.Types frameworks: AudioToolbox, AudioUnit build-depends: hs-coreaudio.cabal @@ -1,7 +1,9 @@ {-# LANGUAGE EmptyDataDecls, ForeignFunctionInterface, OverloadedStrings, PatternGuards #-} -- | Types and operations corresponding to the definitions in --- @AudioToolbox/AUGraph.h@ +-- @AudioToolbox/AUGraph.h@. For an overview of the api, see the section +-- titled "Hosting Audio Units" in the document at +-- <http://developer.apple.com/mac/library/documentation/MusicAudio/Conceptual/CoreAudioOverview/ARoadmaptoCommonTasks/ARoadmaptoCommonTasks.html>. module Sound.AudioToolbox.AUGraph ( ComponentDescription (..), -- | See "System.Mac.Components" @@ -23,9 +25,10 @@ module Sound.AudioToolbox.AUGraph ( caShow ) where +import Control.Applicative import Foreign (Ptr, Storable (..), alloca, nullPtr) import Foreign.C.Types (CInt, CUInt) -import System.Mac.Components +import System.Mac.Components hiding (componentDescription) import System.Mac.OSStatus import Sound.AudioUnit.AUComponent import Sound.AudioUnit.MusicDevice @@ -149,7 +152,7 @@ musicDevice :: AUGraph -> AUNode -> IO MusicDeviceComponent musicDevice graph node = do cd <- componentDescription graph node case componentType cd of - "aumu" -> return . MusicDeviceComponent =<< audioUnit graph node + "aumu" -> MusicDeviceComponent <$> audioUnit graph node _ -> error $ show (componentType cd) ++ " is not a MusicDevice" {-# INLINE musicDevice #-} src/Sound/AudioToolbox/AUGraph.hs @@ -6,13 +6,26 @@ module System.Mac.Components ( ComponentDescription (..), + Component, ComponentInstance, - ComponentResult + ComponentResult, + any, + noComponent, + countComponents, + findNextComponent, + components, + componentDescription, + componentName ) where -import Foreign (Ptr, Storable (..)) -import Foreign.C.Types (CInt, CUInt) +import Prelude hiding (any) +import Control.Applicative +import Control.Exception (bracket) +import Data.Bits (bitSize) +import Foreign (Ptr, Storable (..), alloca, nullPtr) +import Foreign.C.Types (CInt, CUInt, CLong) import System.Mac.OSType +import System.Mac.Types #include "/System/Library/Frameworks/CoreServices.framework/Frameworks/CarbonCore.framework/Headers/Components.h" #let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__) @@ -42,8 +55,73 @@ instance Storable ComponentDescription where #{poke ComponentDescription, componentFlags} ptr f #{poke ComponentDescription, componentFlagsMask} ptr k +data ComponentRecord + +type Component = Ptr ComponentRecord + data ComponentInstanceRecord type ComponentInstance = Ptr ComponentInstanceRecord type ComponentResult = CInt + +-- | When searching for components by a ComponentDescription, setting a field's +-- value to 'any' causes the component manager to ignore that field. +any :: OSType +any = OSType 0 + +noComponent :: Component +noComponent = nullPtr + +foreign import ccall "Components.h CountComponents" + c_CountComponents :: Ptr ComponentDescription -> IO CLong + +-- | Count the number of components matching a given 'ComponentDescription'. +-- Define any 'ComponentDescription' field as 'any' to ignore it. +countComponents :: ComponentDescription -> IO Int +countComponents desc = alloca $ \ptr -> do + poke ptr desc + fromIntegral <$> c_CountComponents ptr +{-# INLINE countComponents #-} + +foreign import ccall "Components.h FindNextComponent" + c_FindNextComponent :: Component -> Ptr ComponentDescription -> IO Component + +findNextComponent :: Component -> ComponentDescription -> IO (Maybe Component) +findNextComponent component looking = alloca $ \ptr -> do + poke ptr looking + box <$> c_FindNextComponent component ptr + where box found | found == noComponent = Nothing + | otherwise = Just found +{-# INLINE findNextComponent #-} + +-- | Find all 'Component's matching a given description +components :: ComponentDescription -> IO [Component] +components desc = search noComponent [] + where search c cs = do + out <- findNextComponent c desc + case out of + Just found -> search found $ cs ++ [found] + Nothing -> return cs + +foreign import ccall "Components.h GetComponentInfo" + c_GetComponentInfo :: Component -> Ptr ComponentDescription + -> Handle -> Handle -> Handle + -> IO OSErr + +-- | Call @GetComponentInfo@ to retrieve a 'Component''s ComponentDescription +componentDescription :: Component -> IO ComponentDescription +componentDescription component = alloca $ \ptr -> do + c_GetComponentInfo component ptr nullPtr nullPtr nullPtr + peek ptr +{-# INLINE componentDescription #-} + +-- | Call @GetComponentInfo@ to retrieve a 'Component''s name as a String +componentName :: Component -> IO String +componentName component = bracket + (c_NewHandle $ bitSize (undefined::CInt) `div` 8) + c_DisposeHandle + (\h -> do + c_GetComponentInfo component nullPtr h nullPtr nullPtr + peek h >>= peekPascalStr) +{-# INLINE componentName #-} src/System/Mac/Components.hsc 0554dec91229971c12486dad3d5a99d6a22d0219 Jeremy Voorhis jvoorhis@jeremy-voorhiss-macbook-2.local http://github.com/jvoorhis/hs-coreaudio/commit/6ea91ccdcdd714b9e7f3c152c0eccb73e317ad3d 6ea91ccdcdd714b9e7f3c152c0eccb73e317ad3d 2009-10-19T17:17:48-07:00 2009-10-19T17:17:48-07:00 Implemented some Component Manager queries, including looking up components by type, and finding their names and ComponentDescriptions. Added System.Mac.Types module to loosely correspond to MacTypes. Implemented a Handle type and wrappers for related functionality. Implemented peekPascalStr. a917ac88c775d5f03af2bee4e7afa41c4ecca6ac Jeremy Voorhis jvoorhis@jeremy-voorhiss-macbook-2.local