[Gtk2hs-commit] (main branch): gstreamer: add vorbis-play demo

[Duncan C. <dun...@wo...>]

Sun Oct 21 12:28:36 PDT 2007  Peter Gavin <pg...@gm...>
  * gstreamer: add vorbis-play demo

    adddir ./demo/gstreamer
    addfile ./demo/gstreamer/Makefile
    hunk ./demo/gstreamer/Makefile 1
    +
    +PROGS  = vorbis-play
    +SOURCES = VorbisPlay.hs
    +
    +all: $(PROGS)
    +
    +vorbis-play : VorbisPlay.hs
    +	$(HC_RULE)
    +
    +HC_RULE = $(HC) --make $< -o $@ $(HCFLAGS)
    +
    +clean:
    +	rm -f $(SOURCES:.hs=.hi) $(SOURCES:.hs=.o) $(PROGS)
    +
    +HC=ghc
    addfile ./demo/gstreamer/VorbisPlay.hs
    hunk ./demo/gstreamer/VorbisPlay.hs 1
    +import System.Exit
    +import Data.Maybe
    +import qualified Media.Streaming.GStreamer as Gst
    +import qualified System.Glib as G
    +import qualified System.Glib.MainLoop as G
    +import qualified System.Glib.Properties as G
    +import qualified System.Glib.GError as G
    +import Control.Monad
    +import System.IO
    +import System
    +
    +mkElement action =
    +    do element <- action
    +       case element of
    +         Just element' ->
    +             return element'
    +         Nothing -> [_$_]
    +             do hPutStrLn stderr "could not create all GStreamer elements\n"
    +                exitFailure
    +
    +main =
    +    do args <- getArgs
    +       when (length args /= 1) $
    +            do hPutStrLn stderr "Usage: vorbis-play <Ogg/Vorbis filename>\n"
    +               exitFailure
    +       [_$_]
    +       Gst.init
    +       [_$_]
    +       mainLoop <- G.mainLoopNew Nothing True
    +       [_$_]
    +       pipeline <- Gst.pipelineNew "audio-player"
    +       source <- mkElement $ Gst.elementFactoryMake "filesrc" "file-source"
    +       parser <- mkElement $ Gst.elementFactoryMake "oggdemux" "ogg-parser"
    +       decoder <- mkElement $ Gst.elementFactoryMake "vorbisdec" "vorbis-decoder"
    +       conv <- mkElement $ Gst.elementFactoryMake "audioconvert" "convert"
    +       sink <- mkElement $ Gst.elementFactoryMake "alsasink" "alsa-output"
    +       [_$_]
    +       let elements = [source, parser, decoder, conv, sink]
    +       [_$_]
    +       G.objectSetPropertyString "location" source (head args)
    +       [_$_]
    +       bus <- Gst.pipelineGetBus (Gst.castToPipeline pipeline)
    +       Gst.busAddWatch bus G.priorityDefault $ \bus message ->
    +           do case Gst.messageType message of
    +                Gst.MessageEOS ->
    +                    do putStrLn "end of stream"
    +                       G.mainLoopQuit mainLoop
    +                Gst.MessageError ->
    +                    let G.GError _ _ msg = fst $ fromJust $ Gst.messageParseError message
    +                        messageStr = "Error: " ++ msg
    +                    in do hPutStrLn stderr messageStr
    +                          G.mainLoopQuit mainLoop
    +                _ -> return ()
    +              return True
    +       [_$_]
    +       mapM_ (Gst.binAdd $ Gst.castToBin pipeline) elements
    +       [_$_]
    +       Gst.elementLink source parser
    +       Gst.elementLink decoder conv
    +       Gst.elementLink conv sink
    +       [_$_]
    +       Gst.onElementPadAdded parser $ \pad ->
    +           do sinkPad <- Gst.elementGetPad decoder "sink"
    +              Gst.padLink pad $ fromJust sinkPad
    +              return ()
    +       [_$_]
    +       Gst.elementSetState pipeline Gst.StatePlaying
    +       [_$_]
    +       G.mainLoopRun mainLoop
    +       [_$_]
    +       Gst.elementSetState pipeline Gst.StateNull
    +       [_$_]
    +       return ()