-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Media/Streaming/GStreamer/Net/NetClientClock.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.Net.NetClientClock ( ) where import Media.Streaming.GStreamer.Net.Types {-# LINE 32 "./Media/Streaming/GStreamer/Net/NetClientClock.chs" #-} import System.Glib.FFI import System.Glib.UTFString {-# LINE 36 "./Media/Streaming/GStreamer/Net/NetClientClock.chs" #-} netClientClockNew :: String -> String -> Int -> ClockTime -> IO Clock netClientClockNew name remoteAddress remotePort baseTime = withUTFString name $ \cName -> withUTFString remoteAddress $ \cRemoteAddress -> gst_net_client_clock_new cName cRemoteAddress (fromIntegral remotePort) (fromIntegral baseTime) >>= takeObject foreign import ccall safe "gst_net_client_clock_new" gst_net_client_clock_new :: ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (CULong -> (IO (Ptr Clock))))))