-- 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/Segment.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.Segment(Segment(..),segmentClip,segmentSetDuration,segmentSetLastStop,segmentSetNewsegment,segmentSetSeek,segmentToRunningTime,segmentToStreamTime)where{-# LINE 43 "./Media/Streaming/GStreamer/Core/Segment.chs" #-}importControl.Monad(liftM)importSystem.Glib.FFIimportSystem.Glib.FlagsimportMedia.Streaming.GStreamer.Core.Types{-# LINE 48 "./Media/Streaming/GStreamer/Core/Segment.chs" #-}segmentClip::Segment->Format->Int64->Int64->(Segment,Bool,Int64,Int64)segmentClipsegmentformatstartstop=unsafePerformIO$alloca$\clipStartPtr->alloca$\clipStopPtr->withsegment$\segmentPtr->doresult<-liftMtoBool$gst_segment_clip(castPtrsegmentPtr)(fromIntegral$fromFormatformat)(fromIntegralstart)(fromIntegralstop)clipStartPtrclipStopPtrsegment'<-peeksegmentPtrclipStart<-liftMfromIntegral$peekclipStartPtrclipStop<-liftMfromIntegral$peekclipStopPtrreturn(segment',result,clipStart,clipStop)segmentSetDuration::Segment->Format->Int64->SegmentsegmentSetDurationsegmentformatduration=unsafePerformIO$withsegment$\segmentPtr->dogst_segment_set_duration(castPtrsegmentPtr)(fromIntegral$fromFormatformat)(fromIntegralduration)peeksegmentPtrsegmentSetLastStop::Segment->Format->Int64->SegmentsegmentSetLastStopsegmentformatposition=unsafePerformIO$withsegment$\segmentPtr->dogst_segment_set_last_stop(castPtrsegmentPtr)(fromIntegral$fromFormatformat)(fromIntegralposition)peeksegmentPtrsegmentSetNewsegment::Segment->Bool->Double->Format->Int64->Int64->Int64->SegmentsegmentSetNewsegmentsegmentupdaterateformatstartstoptime=unsafePerformIO$withsegment$\segmentPtr->dogst_segment_set_newsegment(castPtrsegmentPtr)(fromBoolupdate)(realToFracrate)(fromIntegral$fromFormatformat)(fromIntegralstart)(fromIntegralstop)(fromIntegraltime)peeksegmentPtrsegmentSetSeek::Segment->Double->Format->[SeekFlags]->SeekType->Int64->SeekType->Int64->(Segment,Bool)segmentSetSeeksegmentrateformatflagsstartTypestartstopTypestop=unsafePerformIO$withsegment$\segmentPtr->alloca$\updatePtr->dogst_segment_set_seek(castPtrsegmentPtr)(realToFracrate)(fromIntegral$fromFormatformat)(fromIntegral$fromFlagsflags)(cFromEnumstartType)(fromIntegralstart)(cFromEnumstopType)(fromIntegralstop)updatePtrupdate<-liftMtoBool$peekupdatePtrsegment'<-peeksegmentPtrreturn(segment',update)segmentToRunningTime::Segment->Format->Int64->Int64segmentToRunningTimesegmentformatposition=fromIntegral$unsafePerformIO$withsegment$\segmentPtr->gst_segment_to_running_time(castPtrsegmentPtr)(fromIntegral$fromFormatformat)(fromIntegralposition)segmentToStreamTime::Segment->Format->Int64->Int64segmentToStreamTimesegmentformatposition=fromIntegral$unsafePerformIO$withsegment$\segmentPtr->gst_segment_to_stream_time(castPtrsegmentPtr)(fromIntegral$fromFormatformat)(fromIntegralposition)foreignimportccallsafe"gst_segment_clip"gst_segment_clip::((Ptr())->(CInt->(CLLong->(CLLong->((PtrCLLong)->((PtrCLLong)->(IOCInt)))))))foreignimportccallsafe"gst_segment_set_duration"gst_segment_set_duration::((Ptr())->(CInt->(CLLong->(IO()))))foreignimportccallsafe"gst_segment_set_last_stop"gst_segment_set_last_stop::((Ptr())->(CInt->(CLLong->(IO()))))foreignimportccallsafe"gst_segment_set_newsegment"gst_segment_set_newsegment::((Ptr())->(CInt->(CDouble->(CInt->(CLLong->(CLLong->(CLLong->(IO()))))))))foreignimportccallsafe"gst_segment_set_seek"gst_segment_set_seek::((Ptr())->(CDouble->(CInt->(CInt->(CInt->(CLLong->(CInt->(CLLong->((PtrCInt)->(IO()))))))))))foreignimportccallsafe"gst_segment_to_running_time"gst_segment_to_running_time::((Ptr())->(CInt->(CLLong->(IOCLLong))))foreignimportccallsafe"gst_segment_to_stream_time"gst_segment_to_stream_time::((Ptr())->(CInt->(CLLong->(IOCLLong))))