mirrors/gstreamer
mirrors/gstreamer
1
1
Fork 0
mirror of https://gitlab.freedesktop.org/gstreamer/gstreamer.git synced 2024-09-30 07:42:32 +00:00
Code Issues 1 Projects Releases Wiki Activity

small test script

Browse source 
Original commit message from CVS:
small test script
This commit is contained in:
Thomas Vander Stichele 2001-08-13 14:45:28 +00:00
parent 2f1ce27730
commit cfc8e88be3
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
swig/test.pl Executable file
View file

@ -0,0 +1,16 @@
#!/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 $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";
print "DEBUG: disksrc: $disksrc\n";
Gst::gobject_set ($disksrc, "location", $ARGV[1]);