mirror of
https://gitlab.freedesktop.org/gstreamer/gstreamer.git
synced 2025-02-23 22:46:24 +00:00
49 lines
1.4 KiB
Perl
49 lines
1.4 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use Gst;
|
||
|
|
|
||
|
|
Gst::init ();
|
||
|
|
|
||
|
|
my $bin = Gst::gst_pipeline_new ("pipeline")
|
||
|
|
or die "Cannot create pipeline !\n";
|
||
|
|
print "DEBUG: bin: $bin\n";
|
||
|
|
|
||
|
|
my $file = shift || die "Please give a file to test !";
|
||
|
|
|
||
|
|
my $parse = Gst::gst_elementfactory_make ("mp3parse", "parse")
|
||
|
|
or die "Cannot create mp3parse element !\n";
|
||
|
|
|
||
|
|
my $disksrc = Gst::gst_elementfactory_make ("disksrc", "disk_source")
|
||
|
|
or die "Cannot create disksrc element !\n";
|
||
|
|
Gst::gobject_set ($disksrc, "location", $file);
|
||
|
|
|
||
|
|
my $decoder = Gst::gst_elementfactory_make ("mpg123", "decoder")
|
||
|
|
or die "Cannot create decoder element !\n";
|
||
|
|
my $osssink = Gst::gst_elementfactory_make ("osssink", "play_audio")
|
||
|
|
or die "Cannot create decoder element !\n";
|
||
|
|
|
||
|
|
Gst::wrap_gst_bin_add ($bin, $disksrc);
|
||
|
|
Gst::wrap_gst_bin_add ($bin, $parse);
|
||
|
|
Gst::wrap_gst_bin_add ($bin, $decoder);
|
||
|
|
Gst::wrap_gst_bin_add ($bin, $osssink);
|
||
|
|
|
||
|
|
Gst::gst_pad_connect (Gst::gst_element_get_pad ($disksrc, "src"),
|
||
|
|
Gst::gst_element_get_pad ($parse, "sink"));
|
||
|
|
Gst::gst_pad_connect (Gst::gst_element_get_pad ($parse, "src"),
|
||
|
|
Gst::gst_element_get_pad ($decoder, "sink"));
|
||
|
|
Gst::gst_pad_connect (Gst::gst_element_get_pad ($decoder, "src"),
|
||
|
|
Gst::gst_element_get_pad ($osssink, "sink"));
|
||
|
|
#print "DEBUG: disksrc: $disksrc\n";
|
||
|
|
|
||
|
|
#FIXME
|
||
|
|
#Gst::gst_element_set_state ($bin, GST_STATE_PLAYING);
|
||
|
|
Gst::gst_element_set_state_play ($bin);
|
||
|
|
|
||
|
|
my $playing = 1;
|
||
|
|
|
||
|
|
while ($playing)
|
||
|
|
{
|
||
|
|
Gst::wrap_gst_bin_iterate ($bin);
|
||
|
|
}
|
||
|
|
|