mirrors/gstreamer
mirrors/gstreamer
1
1
Fork 0
mirror of https://gitlab.freedesktop.org/gstreamer/gstreamer.git synced 2024-10-02 16:52:42 +00:00
Code Issues 1 Projects Releases Wiki Activity

commit patch from leif

Browse source 
Original commit message from CVS:
commit patch from leif
This commit is contained in:
Thomas Vander Stichele 2003-01-18 18:23:01 +00:00
parent 2f97061260
commit e6c9ca909c
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tools/gst-launch-ext
View file

@ -26,6 +26,8 @@ sub extension
sub read_config sub read_config
{ {
my $command = shift;
my $config_file = `echo -n ~`."/.gst"; my $config_file = `echo -n ~`."/.gst";
if (-e $config_file) if (-e $config_file)
{ {
@ -56,6 +58,11 @@ sub read_config
if (!defined $cfg{AUDIOSINK}) { $cfg{AUDIOSINK} = "osssink"; } if (!defined $cfg{AUDIOSINK}) { $cfg{AUDIOSINK} = "osssink"; }
if (!defined $cfg{VIDEOSINK}) { $cfg{VIDEOSINK} = "colorspace ! xvideosink"; } if (!defined $cfg{VIDEOSINK}) { $cfg{VIDEOSINK} = "colorspace ! xvideosink"; }
if (!defined $cfg{CVS_PATH}) { $cfg{CVS_PATH} = `echo -n ~`."/gst/cvs"; } if (!defined $cfg{CVS_PATH}) { $cfg{CVS_PATH} = `echo -n ~`."/gst/cvs"; }
if ($command =~ /(.+)\/gst-launch-ext$/)
{ $cfg{COMMAND_PATH} = "$1"; }
else
{ $cfg{COMMAND_PATH} = ""; }
} }
sub playfile($$) sub playfile($$)
@ -63,6 +70,11 @@ sub playfile($$)
my ($file, $ext) = @_; my ($file, $ext) = @_;
my $command; my $command;
my $pipe; my $pipe;
my $path = "\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools";
if ($cfg{COMMAND_PATH} ne "") {
$path = $cfg{COMMAND_PATH}.":$path";
}
$ext = lc $ext; $ext = lc $ext;
@ -70,13 +82,13 @@ sub playfile($$)
{ {
$command = "gst-launch filesrc location=\"$file\" ! $pipe"; $command = "gst-launch filesrc location=\"$file\" ! $pipe";
print "Running command-line\n$command\n\n"; print "Running command-line\n$command\n\n";
system ("PATH=\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools $command"); system ("PATH=$path $command");
} }
elsif ($pipe = $pipes{$ext}) elsif ($pipe = $pipes{$ext})
{ {
$command = "gst-launch filesrc location=\"$file\" ! $pipe"; $command = "gst-launch filesrc location=\"$file\" ! $pipe";
print "Running command-line\n$command\n\n"; print "Running command-line\n$command\n\n";
system ("PATH=\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools $command"); system ("PATH=$path $command");
} }
else else
{ {
@ -86,7 +98,7 @@ sub playfile($$)
### main ### main
read_config (); read_config ($0);
%pipes = ( %pipes = (
"ac3", "a52dec ! $cfg{AUDIOSINK}", "ac3", "a52dec ! $cfg{AUDIOSINK}",