-- 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/Core/IndexFactory.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.Core.IndexFactory ( IndexFactory, IndexFactoryClass, castToIndexFactory, gTypeIndexFactory, indexFactoryFind, indexFactoryCreate, indexFactoryMake ) where import Media.Streaming.GStreamer.Core.Types {-# LINE 41 "./Media/Streaming/GStreamer/Core/IndexFactory.chs" #-} import System.Glib.FFI import System.Glib.UTFString {-# LINE 45 "./Media/Streaming/GStreamer/Core/IndexFactory.chs" #-} indexFactoryFind :: String -> IO (Maybe IndexFactory) indexFactoryFind name = withUTFString name gst_index_factory_find >>= maybePeek takeObject indexFactoryCreate :: IndexFactory -> IO Index indexFactoryCreate indexFactory = (\(IndexFactory arg1) -> withForeignPtr arg1 $ \argPtr1 ->gst_index_factory_create argPtr1) indexFactory >>= takeObject indexFactoryMake :: String -> IO Index indexFactoryMake name = withUTFString name gst_index_factory_make >>= takeObject foreign import ccall safe "gst_index_factory_find" gst_index_factory_find :: ((Ptr CChar) -> (IO (Ptr IndexFactory))) foreign import ccall safe "gst_index_factory_create" gst_index_factory_create :: ((Ptr IndexFactory) -> (IO (Ptr Index))) foreign import ccall safe "gst_index_factory_make" gst_index_factory_make :: ((Ptr CChar) -> (IO (Ptr Index)))