mirror of
https://gitlab.freedesktop.org/gstreamer/gstreamer.git
synced 2024-11-30 21:51:09 +00:00
update to new jack api
Original commit message from CVS: update to new jack api
This commit is contained in:
parent
94b7d94b79
commit
4812cd69cf
2 changed files with 1 additions and 74 deletions
|
@ -455,7 +455,7 @@ GST_CHECK_FEATURE(HTTP, [http plugins], gsthttpsrc, [
|
||||||
|
|
||||||
dnl *** Jack ***
|
dnl *** Jack ***
|
||||||
translit(dnm, m, l) AM_CONDITIONAL(USE_JACK, true)
|
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")
|
PKG_CHECK_MODULES(JACK, jack, HAVE_JACK="yes", HAVE_JACK="no")
|
||||||
AC_SUBST(JACK_CFLAGS)
|
AC_SUBST(JACK_CFLAGS)
|
||||||
AC_SUBST(JACK_LIBS)
|
AC_SUBST(JACK_LIBS)
|
||||||
|
|
|
@ -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 ();
|
|
||||||
|
|
Loading…
Reference in a new issue