1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
|
{-# OPTIONS_HADDOCK hide #-}
-- 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.
-- #hide
-- | Maintainer : gtk2hs-devel\@lists.sourceforge.net
-- Stability : alpha
-- Portability : portable (depends on GHC)
module Media.Streaming.GStreamer.Core.MiniHierarchyBase (
miniObjectUnref,
MiniObject(..),
MiniObjectClass(..),
mkMiniObject,
unMiniObject,
isMiniObject,
castToMiniObject,
) where
import System.Glib.FFI
import System.Glib.GType
{# context lib = "gstreamer" prefix = "gst" #}
{# pointer *GstMiniObject as MiniObject foreign newtype #}
mkMiniObject = (MiniObject, miniObjectUnref)
unMiniObject (MiniObject o) = o
isMiniObject :: MiniObjectClass obj
=> obj
-> Bool
isMiniObject _ = True
class MiniObjectClass o where
toMiniObject :: o -> MiniObject
unsafeCastMiniObject :: MiniObject -> o
instance MiniObjectClass MiniObject where
toMiniObject = id
unsafeCastMiniObject = id
castToMiniObject :: MiniObjectClass obj
=> obj
-> MiniObject
castToMiniObject = toMiniObject
-- | Decrease the reference counter of an object
--
foreign import ccall unsafe "&gst_mini_object_unref"
miniObjectUnref :: FinalizerPtr a
|