-- 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/Query.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)moduleMedia.Streaming.GStreamer.Core.Query(Query,QueryClass,toQuery,castToQuery,gTypeQuery,)whereimportMedia.Streaming.GStreamer.Core.Types{-# LINE 39 "./Media/Streaming/GStreamer/Core/Query.chs" #-}importSystem.Glib.FFIimportSystem.Glib.GObject{-# LINE 41 "./Media/Streaming/GStreamer/Core/Query.chs" #-}importSystem.Glib.UTFString{-# LINE 44 "./Media/Streaming/GStreamer/Core/Query.chs" #-}queryNone,queryPosition,queryDuration,queryLatency,queryJitter,queryRate,querySeeking,querySegment,queryConvert,queryFormats::QueryTypequeryNone=0queryPosition=1queryDuration=2queryLatency=3queryJitter=4queryRate=5querySeeking=6querySegment=7queryConvert=8queryFormats=9queryTypeGetName::QueryType->IOStringqueryTypeGetNamequeryType=gst_query_type_get_name(fromIntegralqueryType)>>=peekUTFStringqueryType::Query->QueryTypequeryTypequery=unsafePerformIO$withMiniObjectquerycQueryTypeforeignimportccallunsafe"_hs_gst_query_type"cQueryType::PtrQuery->IO(CInt){-# LINE 74 "./Media/Streaming/GStreamer/Core/Query.chs" #-}queryTypeName::Query->IOStringqueryTypeName=queryTypeGetName.queryTypequeryTypeToQuark::QueryType->IOQuarkqueryTypeToQuark=gst_query_type_to_quark{-# LINE 83 "./Media/Streaming/GStreamer/Core/Query.chs" #-}queryTypeRegister::String->String->IOQueryTypequeryTypeRegisternickdescription=withUTFStringnick$\cNick->withUTFStringdescription$gst_query_type_registercNickqueryTypeGetByNick::String->IOQueryTypequeryTypeGetByNicknick=withUTFStringnickgst_query_type_get_by_nick{-# LINE 96 "./Media/Streaming/GStreamer/Core/Query.chs" #-}queryTypeGetDetails::QueryType->IO(MaybeQueryTypeDefinition)queryTypeGetDetailsqueryType=gst_query_type_get_detailsqueryType>>=maybePeek(peek.castPtr)queryTypeIterateDefinitions::IO(IteratorQueryTypeDefinition)queryTypeIterateDefinitions=gst_query_type_iterate_definitions>>=takeIteratorqueryNewConvert::Format->Word64->Format->IOQueryqueryNewConvertsrcFormatvaluedestFormat=gst_query_new_convert(fromIntegral$fromFormatsrcFormat)(fromIntegralvalue)(fromIntegral$fromFormatdestFormat)>>=takeMiniObjectforeignimportccallsafe"gst_query_type_get_name"gst_query_type_get_name::(CInt->(IO(PtrCChar)))foreignimportccallsafe"gst_query_type_to_quark"gst_query_type_to_quark::(CInt->(IOCUInt))foreignimportccallsafe"gst_query_type_register"gst_query_type_register::((PtrCChar)->((PtrCChar)->(IOCInt)))foreignimportccallsafe"gst_query_type_get_by_nick"gst_query_type_get_by_nick::((PtrCChar)->(IOCInt))foreignimportccallsafe"gst_query_type_get_details"gst_query_type_get_details::(CInt->(IO(Ptr())))foreignimportccallsafe"gst_query_type_iterate_definitions"gst_query_type_iterate_definitions::(IO(PtrPtrIterator))foreignimportccallsafe"gst_query_new_convert"gst_query_new_convert::(CInt->(CLLong->(CInt->(IO(PtrQuery)))))