From 4812cd69cf68d29b1f23c2caaefed2db8553f978 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 13 May 2002 18:08:33 +0000 Subject: [PATCH] update to new jack api Original commit message from CVS: update to new jack api --- configure.ac | 2 +- tools/gst-inspect-check | 73 ------------------------------------------------- 2 files changed, 1 insertion(+), 74 deletions(-) delete mode 100755 tools/gst-inspect-check diff --git a/configure.ac b/configure.ac index 6f3b50c..cfc3bd9 100644 --- a/configure.ac +++ b/configure.ac @@ -455,7 +455,7 @@ GST_CHECK_FEATURE(HTTP, [http plugins], gsthttpsrc, [ dnl *** Jack *** translit(dnm, m, l) AM_CONDITIONAL(USE_JACK, true) -GST_CHECK_FEATURE(JACK, Jack, jack, [ +GST_CHECK_FEATURE(JACK, Jack, jack > 0.29.0, [ PKG_CHECK_MODULES(JACK, jack, HAVE_JACK="yes", HAVE_JACK="no") AC_SUBST(JACK_CFLAGS) AC_SUBST(JACK_LIBS) diff --git a/tools/gst-inspect-check b/tools/gst-inspect-check deleted file mode 100755 index 8f16ee7..0000000 --- a/tools/gst-inspect-check +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/bin/perl -w - -# checks all built plugins by running gst-inspect on each element -# and checking for warnings on stderr - -### packages - -use File::Basename; - -my $num_warnings = 0; - -sub check_all_elements -{ - #send stderr to /dev/null - my $command = "gst-inspect 2>/dev/null"; - my @lines = `$command`; - - while ($_ = shift(@lines)){ - my @matches = m/^\w+\s+element:\s+(\w+):/g; - if(@matches){ - check_element($matches[0]); - } - } - if ($num_warnings > 0){ - print("there are $num_warnings warnings to be fixed\n"); - return -1; - } - return 0; -} - -sub check_element($) -{ - my ($element) = @_; - print "running inspect on $element\n"; - - # capture stderr, send stdout to /dev/null - my $command = "gst-inspect $element 2>&1 1>/dev/null"; - - my @lines = `$command`; - - while ($_ = shift(@lines)){ - # ignore INFO lines, they are ok - if (! /INFO/){ - print $_; - - # do this to ignore empty lines - if (length > 1){ - $num_warnings++; - } - } - } - system("gst-inspect $element 2>/dev/null 1>/dev/null"); - if ($? != 0){ - my $exit_value = $? >> 8; - my $signal_num = $? & 127; - my $dumped_core = $? & 128; - if ($exit_value){ - print("error value on exit: $exit_value\n"); - } - if ($signal_num){ - print("signal caused exit: $signal_num\n"); - } - if ($dumped_core){ - print("dumped core: $dumped_core\n"); - } - $num_warnings++ - } -} - -### main - -exit check_all_elements (); - -- 2.7.4