tools/: Remove gst-launch-ext. It doesn't work, and is no longer particularly useful.
authorMichael Smith <msmith@xiph.org>
Fri, 9 Dec 2005 10:23:42 +0000 (10:23 +0000)
committerMichael Smith <msmith@xiph.org>
Fri, 9 Dec 2005 10:23:42 +0000 (10:23 +0000)
Original commit message from CVS:
* tools/Makefile.am:
* tools/gst-launch-ext-m.m:
Remove gst-launch-ext. It doesn't work, and is no longer
particularly useful.

ChangeLog
tools/Makefile.am
tools/gst-launch-ext-m.m [deleted file]

index edcccd66997db274970e37516ae6e8acdeb8163b..28cac2c1bca1586f413659801af254d80fc31336 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-12-09  Michael Smith  <msmith@fluendo.com>
+
+       * tools/Makefile.am:
+       * tools/gst-launch-ext-m.m:
+         Remove gst-launch-ext. It doesn't work, and is no longer
+         particularly useful.
+
 2005-12-08  Luca Ognibene  <luogni@tin.it>
 
        * ext/ogg/gstogmparse.c: (gst_ogm_parse_sink_query):
index 1b8ab850ad2bae99f0ce33f948571e8bca267e02..d16646cd679bbc84ce77a096ddce3fad1a0e9ebe 100644 (file)
@@ -1,16 +1,13 @@
 bin_SCRIPTS = \
-       gst-launch-ext-@GST_MAJORMINOR@ \
        gst-visualise-@GST_MAJORMINOR@
 
 man_MANS = \
-        gst-launch-ext-@GST_MAJORMINOR@.1 \
         gst-visualise-@GST_MAJORMINOR@.1
 
 CLEANFILES = $(man_MANS) $(bin_SCRIPTS)
 
 EXTRA_DIST = \
-       gst-launch-ext-m.m gst-visualise-m.m \
-       gst-launch-ext.1.in gst-visualise.1.in
+       gst-visualise-m.m gst-visualise.1.in
 
 # generate versioned scripts from templates
 %-@GST_MAJORMINOR@: %-m.m
@@ -20,17 +17,7 @@ EXTRA_DIST = \
 # 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
diff --git a/tools/gst-launch-ext-m.m b/tools/gst-launch-ext-m.m
deleted file mode 100644 (file)
index 915f2df..0000000
+++ /dev/null
@@ -1,169 +0,0 @@
-#!/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 = $ENV{HOME}."/.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} = "ffmpegcolorspace ! xvimagesink"; }
-  if (!defined $cfg{CVS_PATH})   { $cfg{CVS_PATH} =  $ENV{HOME}."/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", "decodebin name=d { d. ! queue ! $cfg{VIDEOSINK} } { d. ! queue ! audioconvert ! audioscale ! $cfg{AUDIOSINK} }",
-  "asf", "decodebin name=d ! { d. ! queue ! $cfg{VIDEOSINK} } { d. ! queue ! audioconvert ! audioscale ! $cfg{AUDIOSINK} }",
-  "flac", "flacdec ! $cfg{AUDIOSINK}",
-  "fli", "flxdec ! colorspace ! $cfg{VIDEOSINK}",
-  "m1v", "mpeg2dec ! $cfg{VIDEOSINK}",
-  "m2v", "mpeg2dec ! $cfg{VIDEOSINK}",
-  "m4a", "qtdemux .audio_00 ! { queue ! faad ! $cfg{AUDIOSINK} }",
-  "aac", "faad ! $cfg{AUDIOSINK}",
-  "mod", "modplug !  $cfg{AUDIOSINK}",
-  "mpc", "musepackdec ! $cfg{AUDIOSINK}",
-  "mp2", "mad ! $cfg{AUDIOSINK}",
-  "mp3", "mad ! $cfg{AUDIOSINK}",
-  "mp4", "decodebin name=d { d. ! queue ! ffmpegcolorspace ! videoscale ! $cfg{VIDEOSINK} } { d. ! queue ! audioconvert ! audioscale ! $cfg{AUDIOSINK} }",
-  "mpeg", "mpegdemux name=d { d.audio_00 ! queue ! mad ! audioconvert ! audioscale ! $cfg{AUDIOSINK} } { d.video_00 ! queue ! mpeg2dec ! $cfg{VIDEOSINK} }",
-  "mpg", "mpegdemux name=demux { demux.video_00 ! queue ! mpeg2dec ! ffmpegcolorspace ! $cfg{VIDEOSINK} } { demux.audio_00 ! 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=d { d.video_00 ! queue ! mpeg2dec ! $cfg{VIDEOSINK} } { d.audio_00 ! queue ! a52dec ! audioconvert ! audioscale ! $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}",
-  "mov", "decodebin name=d { d. ! queue ! ffmpegcolorspace ! videoscale ! $cfg{VIDEOSINK} } { d. ! queue ! audioconvert ! audioscale ! $cfg{AUDIOSINK} }",
-);
-
-if ($cfg{VISUALIZER}) {
-  %pipes = (
-    %pipes,
-    "vis.mp3", "mad ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! ffmpegcolorspace ! $cfg{VIDEOSINK} } tee. ! $cfg{AUDIOSINK}",
-    "vis.ogg", "vorbisdec ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! ffmpegcolorspace ! $cfg{VIDEOSINK} } tee. ! $cfg{AUDIOSINK}",
-    "vis.wav", "wavparse ! tee name=tee silent=true ! queue leaky=1 ! { $cfg{VISUALIZER} ! ffmpegcolorspace ! $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);
-    }
-}