From 19a8820683a410362b32cc6f4e48ee369a68502a Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 13 May 2002 18:08:33 +0000
Subject: update to new jack api

Original commit message from CVS:
update to new jack api
---
 tools/gst-inspect-check | 73 -------------------------------------------------
 1 file changed, 73 deletions(-)
 delete mode 100755 tools/gst-inspect-check

(limited to 'tools')

diff --git a/tools/gst-inspect-check b/tools/gst-inspect-check
deleted file mode 100755
index 8f16ee77..00000000
--- 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 ();
-
-- 
cgit