{-# LINE 2 "./Media/Streaming/GStreamer/Core/Init.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:---- 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)moduleMedia.Streaming.GStreamer.Core.Init(init,initCheck,deinit,version,versionString,segtrapIsEnabled,segtrapSetEnabled,registryForkIsEnabled,registryForkSetEnabled,updateRegistry)whereimportControl.Exception(assert)importControl.Monad(liftM)importPreludehiding(init)importSystem.Glib.FFIimportSystem.Glib.GErrorimportSystem.Glib.UTFString(peekUTFString){-# LINE 55 "./Media/Streaming/GStreamer/Core/Init.chs" #-}init::IO()init=gst_initnullPtrnullPtrinitCheck::IO()initCheck=propagateGError$\gErrorPtr->dosucceeded<-liftMtoBool$gst_init_checknullPtrnullPtrgErrorPtrassert(ifsucceededthengErrorPtr==nullPtrelsegErrorPtr/=nullPtr)$return()deinit::IO()deinit=gst_deinit{-# LINE 72 "./Media/Streaming/GStreamer/Core/Init.chs" #-}version::(Word,Word,Word,Word)version=unsafePerformIO$alloca$\majorPtr->alloca$\minorPtr->alloca$\microPtr->alloca$\nanoPtr->dogst_versionmajorPtrminorPtrmicroPtrnanoPtrmajor<-peekmajorPtrminor<-peekminorPtrmicro<-peekmicroPtrnano<-peeknanoPtrreturn(fromIntegralmajor,fromIntegralminor,fromIntegralmicro,fromIntegralnano)versionString::StringversionString=unsafePerformIO$gst_version_string>>=peekUTFStringsegtrapIsEnabled::IOBoolsegtrapIsEnabled=liftMtoBoolgst_segtrap_is_enabled{-# LINE 99 "./Media/Streaming/GStreamer/Core/Init.chs" #-}segtrapSetEnabled::Bool->IO()segtrapSetEnabledenabled=gst_segtrap_set_enabled$fromBoolenabledregistryForkIsEnabled::IOBoolregistryForkIsEnabled=liftMtoBoolgst_registry_fork_is_enabled{-# LINE 108 "./Media/Streaming/GStreamer/Core/Init.chs" #-}registryForkSetEnabled::Bool->IO()registryForkSetEnabledenabled=gst_registry_fork_set_enabled$fromBoolenabledupdateRegistry::IOBoolupdateRegistry=liftMtoBoolgst_update_registry{-# LINE 119 "./Media/Streaming/GStreamer/Core/Init.chs" #-}foreignimportccallsafe"gst_init"gst_init::((PtrCInt)->((Ptr(Ptr(PtrCChar)))->(IO())))foreignimportccallsafe"gst_init_check"gst_init_check::((PtrCInt)->((Ptr(Ptr(PtrCChar)))->((Ptr(Ptr()))->(IOCInt))))foreignimportccallsafe"gst_deinit"gst_deinit::(IO())foreignimportccallsafe"gst_version"gst_version::((PtrCUInt)->((PtrCUInt)->((PtrCUInt)->((PtrCUInt)->(IO())))))foreignimportccallsafe"gst_version_string"gst_version_string::(IO(PtrCChar))foreignimportccallsafe"gst_segtrap_is_enabled"gst_segtrap_is_enabled::(IOCInt)foreignimportccallsafe"gst_segtrap_set_enabled"gst_segtrap_set_enabled::(CInt->(IO()))foreignimportccallsafe"gst_registry_fork_is_enabled"gst_registry_fork_is_enabled::(IOCInt)foreignimportccallsafe"gst_registry_fork_set_enabled"gst_registry_fork_set_enabled::(CInt->(IO()))foreignimportccallsafe"gst_update_registry"gst_update_registry::(IOCInt)