bf3fe05dfb
This needs some more testing before it's on by default. If the card is otherwise functioning, these messages may be confusing to the user. If the card is not functioning, the driver can be reloaded with debug to check for this condition. Signed-off-by: Shaun Ruffell <sruffell@digium.com> git-svn-id: http://svn.asterisk.org/svn/dahdi/linux/trunk@9205 a0bf4364-ded3-4de4-8d8a-66a801d63aff
41 lines
982 B
Perl
Executable File
41 lines
982 B
Perl
Executable File
#! /usr/bin/perl -w
|
|
use strict;
|
|
#
|
|
# Extract parameter documentation from *.ko files.
|
|
# Assumes that parameter description include the default
|
|
# value in the format we use in our DEF_PARM() macro
|
|
#
|
|
|
|
@ARGV || die "Usage: $0 module.ko....\n";
|
|
|
|
my $modinfo = '/sbin/modinfo';
|
|
my @mod_params;
|
|
|
|
foreach my $file (glob "@ARGV") {
|
|
undef @mod_params;
|
|
print "$file:\n";
|
|
open(F, "$modinfo '$file' |") || die;
|
|
while(<F>) {
|
|
chomp;
|
|
next unless s/^parm:\s*//;
|
|
my ($name, $description) = split(/:/, $_, 2);
|
|
# Extract type
|
|
$description =~ s/\s*\(([^)]+)\)$//;
|
|
my $type = $1;
|
|
# Extract default value
|
|
$description =~ s/\s*\[default\s+([^]]+)\]$//;
|
|
my $default = $1;
|
|
push(@mod_params, {
|
|
NAME => $name,
|
|
TYPE => $type,
|
|
DEFVAL => $default,
|
|
DESC => $description,
|
|
});
|
|
}
|
|
# Print sorted list
|
|
foreach my $p (sort { $a->{NAME} cmp $b->{NAME} } @mod_params) {
|
|
printf "\t%-8s %-22s = %-20s %s\n", $p->{TYPE}, $p->{NAME}, $p->{DEFVAL}, $p->{DESC};
|
|
}
|
|
close F || die;
|
|
}
|