Commit 73a1c513 authored by Thomas Vander Stichele's avatar Thomas Vander Stichele
Browse files

updating tools generation

Original commit message from CVS:
updating tools generation
parent 31224b92
2004-03-10 Thomas Vander Stichele <thomas at apestaart dot org>
* configure.ac:
* tools/Makefile.am:
* tools/Makefile.in:
* tools/gst-launch-ext-m.m:
* tools/gst-launch-ext.1.in:
* tools/gst-visualise-m.m:
* tools/gst-visualise.1:
* tools/gst-visualise.1.in:
reorganizing generation of script tools
2004-03-10 Ronald Bultje <rbultje@ronald.bitfreak.net>
* ext/divx/gstdivxdec.c:
......
......@@ -12,7 +12,7 @@ AM_MAINTAINER_MODE
dnl when going to/from release please set the nano (fourth number) right !
dnl releases only do Wall, cvs and prerelease does Werror too
AS_VERSION(gst-plugins, GST_PLUGINS_VERSION, 0, 7, 6, 0, GST_CVS="no", GST_CVS="yes")
AS_VERSION(gst-plugins, GST_PLUGINS_VERSION, 0, 7, 6, 1, GST_CVS="no", GST_CVS="yes")
dnl add a suffix to apps
if test x$program_suffix = xNONE ; then
......@@ -1707,7 +1707,6 @@ testsuite/spider/Makefile
testsuite/alsa/Makefile
testsuite/Makefile
tools/Makefile
tools/gst-launch-ext
gconf/Makefile
gconf/gstreamer.schemas
pkgconfig/Makefile
......
bin_SCRIPTS = gst-launch-ext gst-visualise
bin_SCRIPTS = \
gst-launch-ext-@GST_MAJORMINOR@ \
gst-visualise-@GST_MAJORMINOR@
man_MANS = gst-launch-ext.1 gst-visualise.1
man_MANS = \
gst-launch-ext-@GST_MAJORMINOR@.1 \
gst-visualise-@GST_MAJORMINOR@.1
all: all-am chmod
CLEANFILES = $(man_MANS)
EXTRA_DIST = \
gst-launch-ext-m.m gst-visualise-m.m \
gst-launch-ext.in gst-visualise.in
# generate versioned scripts from templates
%-@GST_MAJORMINOR@: %-m.m
sed -e s,\@GST_MAJORMINOR\@,@GST_MAJORMINOR@,g $< > $@
chmod +x $@
EXTRA_DIST = $(bin_SCRIPTS) $(man_MANS) gst-launch-ext.in
# generate man pages
%-@GST_MAJORMINOR@.1: %.1.in
sed \
-e s,gst-complete,gst-complete-@GST_MAJORMINOR@,g \
-e s,gst-compprep,gst-compprep-@GST_MAJORMINOR@,g \
-e s,gst-feedback,gst-feedback-@GST_MAJORMINOR@,g \
-e s,gst-inspect,gst-inspect-@GST_MAJORMINOR@,g \
-e s,gst-launch,gst-launch-@GST_MAJORMINOR@,g \
-e s,gst-launch-ext,gst-launch-ext-@GST_MAJORMINOR@,g \
-e s,gst-md5sum,gst-md5sum-@GST_MAJORMINOR@,g \
-e s,gst-register,gst-register-@GST_MAJORMINOR@,g \
-e s,gst-typefind,gst-typefind-@GST_MAJORMINOR@,g \
-e s,gst-visualise,gst-visualise-@GST_MAJORMINOR@,g \
-e s,gst-xmllaunch,gst-xmllaunch-@GST_MAJORMINOR@,g \
$< >$@
all: all-am chmod
chmod: $(bin_SCRIPTS)
chmod +x $^
This diff is collapsed.
#!/usr/bin/perl -w
use strict;
# 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
my (%pipes, %cfg);
sub extension
{
my $path = shift;
my $ext;
# get only the bit after the last period. We don't deal with
# .tar.gz extensions do we ?
if ($path =~ /\./)
{
$ext = $path;
$ext =~ s/^.*\.//;
}
else { $ext = ""; }
return $ext;
}
sub read_config
{
my $command = shift;
my $config_file = `echo -n ~`."/.gst";
if (-e $config_file)
{
open CONFIG, $config_file;
while (<CONFIG>)
{
chomp;
s/#.*//;
s/\s+$//;
next unless length;
my ($var, $value) = split (/\s*=\s*/, $_, 2);
$cfg{$var} = $value;
}
if (!($cfg{AUDIOSINK}))
{
print "Please add an AUDIOSINK to $config_file !\n";
}
if (!($cfg{VIDEOSINK}))
{
print "Please add a VIDEOSINK to $config_file !\n";
}
}
else
{
print "No configuration file $config_file found. You might want to create one.\n";
print "This is not an error, just a friendly reminder... Check the man page.\n\n";
}
if (!defined $cfg{AUDIOSINK}) { $cfg{AUDIOSINK} = "osssink"; }
if (!defined $cfg{VIDEOSINK}) { $cfg{VIDEOSINK} = "ffcolorspace ! xvimagesink"; }
if (!defined $cfg{CVS_PATH}) { $cfg{CVS_PATH} = `echo -n ~`."/gst/cvs"; }
if ($command =~ /(.+)\/gst-launch-ext-@GST_MAJORMINOR@$/)
{ $cfg{COMMAND_PATH} = "$1"; }
else
{ $cfg{COMMAND_PATH} = ""; }
}
sub playfile($$)
{
my ($file, $ext) = @_;
my $command;
my $pipe;
my $path = "\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools";
if ($cfg{COMMAND_PATH} ne "") {
$path = $cfg{COMMAND_PATH}.":$path";
}
$ext = lc $ext;
if ($cfg{VISUALIZER} && ($pipe = $pipes{"vis." . $ext}))
{
$command = "gst-launch-@GST_MAJORMINOR@ filesrc location=\"$file\" ! $pipe";
print "Running command-line\n$command\n\n";
system ("PATH=$path $command");
}
elsif ($pipe = $pipes{$ext})
{
$command = "gst-launch-@GST_MAJORMINOR@ filesrc location=\"$file\" ! $pipe";
print "Running command-line\n$command\n\n";
system ("PATH=$path $command");
}
else
{
print "No suitable pipe found for extension $ext.\n";
}
}
### main
read_config ($0);
%pipes = (
"ac3", "a52dec ! $cfg{AUDIOSINK}",
"au", "auparse ! $cfg{AUDIOSINK}",
"avi", "avidemux name=demux ! { queue ! spider ! $cfg{VIDEOSINK} } { demux. ! queue ! spider ! $cfg{AUDIOSINK} }",
"asf", "asfdemux name=demux ! { queue ! spider ! $cfg{VIDEOSINK} } { demux. ! queue ! spider ! $cfg{AUDIOSINK} }",
"flac", "flacdec ! $cfg{AUDIOSINK}",
"fli", "flxdec ! colorspace ! $cfg{VIDEOSINK}",
"m1v", "mpegdemux ! { queue ! mpeg2dec ! $cfg{VIDEOSINK} }",
"m2v", "mpegdemux ! { queue ! mpeg2dec ! $cfg{VIDEOSINK} }",
"m4a", "qtdemux .audio_00 ! { queue ! faad ! $cfg{AUDIOSINK} }",
"mod", "modplug ! $cfg{AUDIOSINK}",
"mp2", "mad ! $cfg{AUDIOSINK}",
"mp3", "mad ! $cfg{AUDIOSINK}",
"mpeg", "mpegdemux name=demux ! { queue ! mpeg2dec ! $cfg{VIDEOSINK} } { demux. ! queue ! mad ! $cfg{AUDIOSINK} }",
"mpg", "mpegdemux name=demux ! { queue ! mpeg2dec ! $cfg{VIDEOSINK} } { demux. ! queue ! mad ! $cfg{AUDIOSINK} }",
"ogg", "oggdemux ! vorbisdec ! audioconvert ! $cfg{AUDIOSINK}",
"sid", "siddec ! $cfg{AUDIOSINK}",
"swf", "swfdec name=swfdec ! { queue ! colorspace ! $cfg{VIDEOSINK} } { swfdec. ! queue ! $cfg{AUDIOSINK} }",
"vob", "mpegdemux name=demux ! { queue ! mpeg2dec ! $cfg{VIDEOSINK} } { demux. ! queue ! a52dec ! $cfg{AUDIOSINK} }",
"wav", "wavparse ! $cfg{AUDIOSINK}",
"wm", "asfdemux name=demux ! { queue ! spider ! $cfg{VIDEOSINK} } { demux. ! queue ! spider ! $cfg{AUDIOSINK} }",
### a wma file can use wmav1 or wmav2 codec so we must use spider to decode it
"wma", "asfdemux name=demux ! spider ! $cfg{AUDIOSINK}",
"wmv", "asfdemux name=demux ! { queue ! spider ! $cfg{VIDEOSINK} } { demux. ! queue ! spider ! $cfg{AUDIOSINK} }",
"mkv", "matroskademux name=demux ! { queue ! spider ! $cfg{VIDEOSINK} } { demux. ! queue ! spider ! $cfg{AUDIOSINK} }",
"mka", "matroskademux ! spider ! $cfg{AUDIOSINK}",
);
if ($cfg{VISUALIZER}) {
%pipes = (
%pipes,
"vis.mp3", "mad ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! colorspace ! $cfg{VIDEOSINK} } tee. ! $cfg{AUDIOSINK}",
"vis.ogg", "vorbisdec ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! colorspace ! $cfg{VIDEOSINK} } tee. ! $cfg{AUDIOSINK}",
"vis.wav", "wavparse ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! colorspace ! $cfg{VIDEOSINK} } tee. ! $cfg{AUDIOSINK}",
);
}
if ($#ARGV == -1) {
print STDERR "Usage: gst-launch-ext-@GST_MAJORMINOR@ filename[s]\n";
exit 1;
}
my $file;
while ($file = shift @ARGV) {
my $ext = extension ($file);
if (!$ext) {
print "file $file doesn't have an extension !\n";
exit;
}
if ($ext eq 'm3u')
{
open (PLAYLIST, '<', $file);
my $file2;
while ($file2 = <PLAYLIST>) {
chomp $file2;
my $ext2 = extension ($file2);
playfile($file2, $ext2);
}
close PLAYLIST;
} else {
playfile($file, $ext);
}
}
.TH "GStreamer" "1" "February 2002" "" ""
.SH "NAME"
gst\-launch\-ext \- Run a predefined GStreamer pipeline
.SH "SYNOPSIS"
\fBgst\-launch\-ext\fR \fIfilename [filename...]\fR
.SH "DESCRIPTION"
.LP
\fIgst\-launch\-ext\fP is a tool that is used to run a basic predefined
\fIGStreamer\fP pipeline. This application is only used as a quick test to
ensure proper working of codecs and GStreamer. It doesn't handle more advanced
features like synchronisation.
All supported formats in GStreamer should be playable by simply typing:
gst\-launch\-ext filename
It will also print out the pipeline it uses, so you can customize it using
cut and paste.
.SH "CONFIGURATION"
.LP
\fIgst\-launch\-ext\fP can be configured by creating a .gst file in your
home directory. This is a perl-style configuration file and can override
the defaults for audio and video output sinks.
Here is an example .gst file that implements the same defaults as hard-coded
in the script :
AUDIOSINK = "osssink";
VIDEOSINK = "colorspace ! xvideosink";
You can change osssink to any of esdsink, alsasink, jacksink (if you have
the plug-in), and you can change xvideosink to aasink or sdlvideosink.
Other plug-ins might be used as well if GStreamer has them.
.SH "SEE ALSO"
.BR gst\-guilaunch (1),
.BR gst\-complete (1),
.BR gst\-register (1),
.BR gst\-inspect (1),
.BR gst\-launch (1),
.SH "AUTHOR"
The GStreamer team at http://gstreamer.net/
#!/usr/bin/perl -w
# launch a gst-launch pipeline to display a visualisation of the
# input audio.
# make use of default input srcs.
# visualisation plugin is specified on command line.
### packages
use File::Basename;
my (%pipes, %cfg);
sub read_config
{
my $config_file = `echo -n ~`."/.gst";
if (-e $config_file)
{
open CONFIG, $config_file;
while (<CONFIG>)
{
chomp;
s/#.*//;
s/\s+$//;
next unless length;
my ($var, $value) = split (/\s*=\s*/, $_, 2);
$cfg{$var} = $value;
}
if (!($cfg{AUDIOSRC}))
{
print "Please add an AUDIOSRC to $config_file !\n";
}
if (!($cfg{VIDEOSINK}))
{
print "Please add a VIDEOSINK to $config_file !\n";
}
}
else
{
print "No configuration file $config_file found. You might want to create one.\n";
}
if (!defined $cfg{AUDIOSRC}) { $cfg{AUDIOSRC} = "esdmon"; }
if (!defined $cfg{VIDEOSINK}) { $cfg{VIDEOSINK} = "sdlvideosink"; }
if (!defined $cfg{CVS_PATH}) { $cfg{CVS_PATH} = `echo -n ~`."/gst/cvs"; }
}
sub visualise(@)
{
my $vis = $cfg{VISUALIZER};
$vis = shift() if ($#_ != -1);
$vis = "goom" unless $vis;
my $pipe;
$pipe = $vis unless $pipe = $pipes{$vis};
$command = "gst-launch-@GST_MAJORMINOR@ $cfg{AUDIOSRC} ! $pipe ! { queue ! colorspace ! $cfg{VIDEOSINK} }";
print "Running $command\n";
system ("PATH=\$PATH:".$cfg{CVS_PATH}."/gstreamer/tools $command");
}
### main
read_config ();
%pipes = (
"goom", "goom",
"chart", "stereo2mono ! chart",
"synaesthesia", "synaesthesia",
"monoscope", "stereo2mono ! monoscope"
);
if ($#ARGV > 0) {
print STDERR "Usage: gst-visualise [visualiser]\n";
exit 1;
}
visualise(@ARGV);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment