-- GENERATED by C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} -- GIMP Toolkit (GTK) Binding for Haskell: binding to gstreamer -*-haskell-*- -- -- Author : Peter Gavin -- Created: 1-Apr-2007 -- -- Copyright (c) 2007 Peter Gavin -- -- This library is free software: you can redistribute it and/or -- modify it under the terms of the GNU Lesser General Public License -- as published by the Free Software Foundation, either version 3 of -- the License, or (at your option) any later version. -- -- This library is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- Lesser General Public License for more details. -- -- You should have received a copy of the GNU Lesser General Public -- License along with this program. If not, see -- <http://www.gnu.org/licenses/>. -- -- GStreamer, the C library which this Haskell library depends on, is -- available under LGPL Version 2. The documentation included with -- this library is based on the original GStreamer documentation. -- -- | Maintainer : gtk2hs-devel@lists.sourceforge.net -- Stability : alpha -- Portability : portable (depends on GHC) module Media.Streaming.GStreamer.Audio.AudioClock ( AudioClock , ) where import Control.Monad (liftM) import Media.Streaming.GStreamer.Audio.Types {-# LINE 35 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} import Media.Streaming.GStreamer.Core import System.Glib.FFI import System.Glib.UTFString {-# LINE 40 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} type AudioClockGetTimeFunc = Clock -> IO ClockTime type CAudioClockGetTimeFunc = Ptr Clock -> ((Ptr ())) {-# LINE 45 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} -> IO (CULLong) {-# LINE 46 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} marshalAudioClockGetTimeFunc :: AudioClockGetTimeFunc -> IO ((FunPtr ((Ptr Clock) -> ((Ptr ()) -> (IO CULLong))))) {-# LINE 48 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} marshalAudioClockGetTimeFunc func = makeAudioClockGetTimeFunc cFunc where cFunc :: CAudioClockGetTimeFunc cFunc cClock _ = do clock <- peekObject cClock liftM fromIntegral $ func clock foreign import ccall unsafe "wrapper" makeAudioClockGetTimeFunc :: CAudioClockGetTimeFunc -> IO ((FunPtr ((Ptr Clock) -> ((Ptr ()) -> (IO CULLong))))) {-# LINE 57 "./Media/Streaming/GStreamer/Audio/AudioClock.chs" #-} audioClockNew :: String -> AudioClockGetTimeFunc -> IO Clock audioClockNew name func = do cFunc <- marshalAudioClockGetTimeFunc func withUTFString name $ \cName -> gst_audio_clock_new cName cFunc nullPtr >>= takeObject foreign import ccall safe "gst_audio_clock_new" gst_audio_clock_new :: ((Ptr CChar) -> ((FunPtr ((Ptr Clock) -> ((Ptr ()) -> (IO CULLong)))) -> ((Ptr ()) -> (IO (Ptr Clock)))))