fluidsynth (empty) → 0.1.0.0

raw patch · 5 files changed

+264/−0 lines, 5 filesdep +basedep +bindings-DSLsetup-changed

Dependencies added: base, bindings-DSL

Files

• LICENSE +19/−0
• Setup.hs +2/−0
• Sound/Fluidsynth.hs +98/−0
• Sound/Fluidsynth/Internal.hsc +117/−0
• fluidsynth.cabal +28/−0

@@ -0,0 +1,19 @@+Copyright (c) 2013 Corbin Simpson++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,98 @@+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Sound.Fluidsynth+    (newSettings+    ,newSynth+    ,newDriver+    ,newPlayer+    ,loadSF+    ,playerAdd+    ,playerPlay+    ,playerJoin+    ,synthNoteOn+    ,synthNoteOff)+where++import Control.Monad+import Foreign.C.String+import Foreign.C.Types+import Foreign.ForeignPtr.Safe++import Sound.Fluidsynth.Internal++newtype Settings = Settings (ForeignPtr C'fluid_settings_t)+newtype Synth = Synth (ForeignPtr C'fluid_synth_t)+newtype Driver = Driver (ForeignPtr C'fluid_audio_driver_t)+newtype Player = Player (ForeignPtr C'fluid_player_t)++newtype Channel = Channel Int+    deriving (Num)+newtype Key = Key Int+    deriving (Num)+newtype Velocity = Velocity Int+    deriving (Num)++newSettings :: IO Settings+newSettings = do+    ptr <- c'new_fluid_settings+    settings <- newForeignPtr p'delete_fluid_settings ptr+    withForeignPtr settings $ \ptr' ->+        withCAString "audio.driver" $ \cstr ->+            withCAString "alsa" $ \cstr' ->+                void $ c'fluid_settings_setstr ptr' cstr cstr'+    return $! Settings settings++newSynth :: Settings -> IO Synth+newSynth (Settings settings) = do+    withForeignPtr settings $ \ptr -> do+        ptr' <- c'new_fluid_synth ptr+        synth <- newForeignPtr p'delete_fluid_synth ptr'+        return $! Synth synth++newDriver :: Settings -> Synth -> IO Driver+newDriver (Settings settings) (Synth synth) = do+    withForeignPtr settings $ \ptr -> do+        withForeignPtr synth $ \ptr' -> do+            ptr'' <- c'new_fluid_audio_driver ptr ptr'+            driver <- newForeignPtr p'delete_fluid_audio_driver ptr''+            return $! Driver driver++newPlayer :: Synth -> IO Player+newPlayer (Synth synth) = do+    withForeignPtr synth $ \ptr -> do+        ptr' <- c'new_fluid_player ptr+        player <- newForeignPtr p'delete_fluid_player ptr'+        return $! Player player++loadSF :: Synth -> String -> IO ()+loadSF (Synth synth) path = do+    withForeignPtr synth $ \ptr ->+        withCAString path $ \cstr ->+            void $ c'fluid_synth_sfload ptr cstr 1++synthNoteOn :: Synth -> Channel -> Key -> Velocity -> IO ()+synthNoteOn (Synth synth) (Channel c) (Key k) (Velocity v) =+    void $ withForeignPtr synth $ \ptr ->+        c'fluid_synth_noteon ptr (fromIntegral c) (fromIntegral k)+            (fromIntegral v)++synthNoteOff :: Synth -> Channel -> Key -> IO ()+synthNoteOff (Synth synth) (Channel c) (Key k) =+    withForeignPtr synth $ \ptr ->+        void $ c'fluid_synth_noteoff ptr (fromIntegral c) (fromIntegral k)++playerAdd :: Player -> String -> IO ()+playerAdd (Player player) path = do+    withForeignPtr player $ \ptr ->+        withCAString path $ \cstr ->+            void $ c'fluid_player_add ptr cstr++playerPlay :: Player -> IO ()+playerPlay (Player player) = do+    withForeignPtr player c'fluid_player_play+    return ()++playerJoin :: Player -> IO ()+playerJoin (Player player) = do+    withForeignPtr player c'fluid_player_join+    return ()

@@ -0,0 +1,117 @@+#include <bindings.dsl.h>+#include <fluidsynth.h>++module Sound.Fluidsynth.Internal where+#strict_import++#opaque_t fluid_settings_t++#ccall new_fluid_settings , IO (Ptr <fluid_settings_t>)+#ccall delete_fluid_settings , Ptr <fluid_settings_t> -> IO ()+#ccall fluid_settings_get_type , Ptr <fluid_settings_t> -> CString -> IO CInt+#ccall fluid_settings_setstr , Ptr <fluid_settings_t> -> CString \+                            -> CString -> IO CInt+#ccall fluid_settings_getstr , Ptr <fluid_settings_t> -> CString \+                            -> Ptr CString -> IO CInt+#ccall fluid_settings_setnum , Ptr <fluid_settings_t> -> CString \+                            -> CDouble -> IO CInt+#ccall fluid_settings_getnum , Ptr <fluid_settings_t> -> CString \+                            -> Ptr CDouble -> IO CInt+#ccall fluid_settings_setint , Ptr <fluid_settings_t> -> CString \+                            -> CInt -> IO CInt+#ccall fluid_settings_getint , Ptr <fluid_settings_t> -> CString \+                            -> Ptr CInt -> IO CInt++#num FLUID_NO_TYPE+#num FLUID_NUM_TYPE+#num FLUID_INT_TYPE+#num FLUID_STR_TYPE+#num FLUID_SET_TYPE++#opaque_t fluid_synth_t++#ccall new_fluid_synth , Ptr <fluid_settings_t> -> IO (Ptr <fluid_synth_t>)+#ccall delete_fluid_synth , Ptr <fluid_synth_t> -> IO ()+#ccall fluid_synth_noteon , Ptr <fluid_synth_t> -> CInt -> CInt -> CInt \+                         -> IO CInt+#ccall fluid_synth_noteoff , Ptr <fluid_synth_t> -> CInt -> CInt -> IO CInt+#ccall fluid_synth_cc , Ptr <fluid_synth_t> -> CInt -> CInt -> CInt -> IO CInt+#ccall fluid_synth_pitch_bend , Ptr <fluid_synth_t> -> CInt -> CInt -> IO CInt+#ccall fluid_synth_pitch_wheel_sens , Ptr <fluid_synth_t> -> CInt -> CInt \+                                   -> IO CInt+#ccall fluid_synth_program_change , Ptr <fluid_synth_t> -> CInt -> CInt \+                                 -> IO CInt+#ccall fluid_synth_bank_select , Ptr <fluid_synth_t> -> CInt -> CInt \+                              -> IO CInt+#ccall fluid_synth_sfload , Ptr <fluid_synth_t> -> CString -> CInt -> IO CInt+#ccall fluid_synth_sfreload , Ptr <fluid_synth_t> -> CUInt -> IO CInt+#ccall fluid_synth_sfunload , Ptr <fluid_synth_t> -> CUInt -> CInt -> IO CInt++#opaque_t fluid_audio_driver_t++#ccall new_fluid_audio_driver , Ptr <fluid_settings_t> \+                             -> Ptr <fluid_synth_t> \+                             -> IO (Ptr <fluid_audio_driver_t>)+#ccall delete_fluid_audio_driver , Ptr <fluid_audio_driver_t> -> IO ()++#opaque_t fluid_player_t++#ccall new_fluid_player , Ptr <fluid_synth_t> -> IO (Ptr <fluid_player_t>)+#ccall delete_fluid_player , Ptr <fluid_player_t> -> IO ()+#ccall fluid_player_add , Ptr <fluid_player_t> -> CString -> IO CInt+#ccall fluid_player_play , Ptr <fluid_player_t> -> IO CInt+#ccall fluid_player_stop , Ptr <fluid_player_t> -> IO CInt+#ccall fluid_player_join , Ptr <fluid_player_t> -> IO CInt++#opaque_t fluid_event_t++#ccall new_fluid_event , IO (Ptr <fluid_event_t>)+#ccall delete_fluid_event , Ptr <fluid_event_t> -> IO ()+#ccall fluid_event_set_source , Ptr <fluid_event_t> -> CShort -> IO ()+#ccall fluid_event_set_dest , Ptr <fluid_event_t> -> CShort -> IO ()+#ccall fluid_event_timer , Ptr <fluid_event_t> -> Ptr () -> IO ()+#ccall fluid_event_note , Ptr <fluid_event_t> -> CInt -> CShort -> CShort \+                       -> CUInt -> IO ()+#ccall fluid_event_noteon , Ptr <fluid_event_t> -> CInt -> CShort -> CShort \+                         -> IO ()+#ccall fluid_event_noteoff , Ptr <fluid_event_t> -> CInt -> CShort -> IO ()+#ccall fluid_event_program_change , Ptr <fluid_event_t> -> CInt -> CShort \+                                 -> IO ()+#ccall fluid_event_pitch_bend , Ptr <fluid_event_t> -> CInt -> CInt -> IO ()+#ccall fluid_event_pitch_wheelsens , Ptr <fluid_event_t> -> CInt -> CShort \+                                  -> IO ()+#ccall fluid_event_volume , Ptr <fluid_event_t> -> CInt -> CShort -> IO ()+#ccall fluid_event_get_source , Ptr <fluid_event_t> -> CShort+#ccall fluid_event_get_dest , Ptr <fluid_event_t> -> CShort++#opaque_t fluid_sequencer_t++#callback fluid_event_callback_t , \+          FunPtr (CUInt -> Ptr <fluid_event_t> -> Ptr <fluid_sequencer_t> \+               -> Ptr () -> IO ())++#ccall new_fluid_sequencer , IO (Ptr <fluid_sequencer_t>)+#ccall delete_fluid_sequencer , Ptr <fluid_sequencer_t> -> IO ()+#ccall fluid_sequencer_register_client , Ptr <fluid_sequencer_t> -> CString \+                                      -> Ptr <fluid_event_callback_t> \+                                      -> Ptr () -> IO CShort+#ccall fluid_sequencer_unregister_client , Ptr <fluid_sequencer_t> -> CShort \+                                        -> IO ()+#ccall fluid_sequencer_count_clients , Ptr <fluid_sequencer_t> -> IO CInt+#ccall fluid_sequencer_get_client_id , Ptr <fluid_sequencer_t> -> CInt \+                                    -> IO CShort+#ccall fluid_sequencer_get_client_name , Ptr <fluid_sequencer_t> -> CInt \+                                      -> IO CString+#ccall fluid_sequencer_client_is_dest , Ptr <fluid_sequencer_t> -> CInt \+                                     -> IO CInt+#ccall fluid_sequencer_send_now , Ptr <fluid_sequencer_t> \+                               -> Ptr <fluid_event_t> -> IO ()+#ccall fluid_sequencer_send_at , Ptr <fluid_sequencer_t> \+                               -> Ptr <fluid_event_t> -> CUInt -> Int -> IO ()+#ccall fluid_sequencer_get_tick , Ptr <fluid_sequencer_t> -> IO CUInt+#ccall fluid_sequencer_set_time_scale , Ptr <fluid_sequencer_t> -> CDouble \+                                     -> IO ()+#ccall fluid_sequencer_get_time_scale , Ptr <fluid_sequencer_t> -> IO CDouble++#ccall fluid_sequencer_register_fluidsynth , Ptr <fluid_sequencer_t> \+                                          -> Ptr <fluid_synth_t> -> IO CShort

@@ -0,0 +1,28 @@+-- Initial fluidsynth.cabal generated by cabal init.  For further +-- documentation, see http://haskell.org/cabal/users-guide/++name:                fluidsynth+version:             0.1.0.0+synopsis:            Haskell bindings to FluidSynth+description:         Simple Haskell bindings to FluidSynth.+homepage:            https://github.com/MostAwesomeDude/hsfluidsynth+license:             MIT+license-file:        LICENSE+author:              Corbin Simpson+maintainer:          cds@corbinsimpson.com+-- copyright:           +category:            Sound+build-type:          Simple+cabal-version:       >=1.8++source-repository head+  type:                git+  location:            git://github.com/MostAwesomeDude/hsfluidsynth.git++library+  exposed-modules:     Sound.Fluidsynth+  other-modules:       Sound.Fluidsynth.Internal+  build-depends:       base >= 3 && < 5,+                       bindings-DSL >= 1.0.6 && < 1.1+  extra-libraries:     fluidsynth+  extensions:          ForeignFunctionInterface