mirrors/gstreamer
mirrors/gstreamer
1
1
Fork 0
mirror of https://gitlab.freedesktop.org/gstreamer/gstreamer.git synced 2024-11-27 20:21:24 +00:00
Code Issues 1 Projects Releases Wiki Activity

start of a gst-launch helper based on extension

Browse source 
Original commit message from CVS:
start of a gst-launch helper based on extension
This commit is contained in:
Thomas Vander Stichele 2002-02-04 19:57:35 +00:00
parent c28e95c7a2
commit ccffc1f9e6
1 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
tools/gst-launch-ext Executable file
View file

@ -0,0 +1,48 @@
#!/usr/bin/perl -w
# launch a gst-launch pipeline for the supplied media file
# use the extension to determine the gst-launch pipeline
# make use of default output sinks
### packages
use File::Basename;
### defaults
my $VIDEOSINK = "xvideosink";
my $AUDIOSINK = "osssink";
my $GST_CVS_PATH = "~/gst/cvs";
my %pipes = (
"mp3", "mad ! $AUDIOSINK",
"ogg", "vorbisdec ! $AUDIOSINK",
"mpg", "mpegdemux video_00! { queue ! mpeg2dec ! $VIDEOSINK } audio_00! { queue ! mad ! $AUDIOSINK }",
"avi", "avidemux video_00! { queue ! windec ! $VIDEOSINK }",
"vob", "mpegdemux video_00! { queue ! mpeg2dec ! $VIDEOSINK }",
);
sub extension
{
my $path = shift;
my $ext = (fileparse ($path, '\..*'))[2];
$ext =~ s/^\.//;
return $ext;
}
### main
my $file = shift @ARGV or die "Please give a file name !";
my $ext = extension ($file);
if ($pipe = $pipes{$ext})
{
$command = "$GST_CVS_PATH/gstreamer/tools/gst-launch filesrc location=\"$file\" ! $pipe";
print "Running $command\n";
system ($command);
}
else
{
print "No suitable pipe found for extension $ext.\n";
}