mir/lm-sensors
2
0
Fork 0
mirror of https://github.com/lm-sensors/lm-sensors synced 2025-08-31 14:25:39 +00:00
Code Issues Releases Wiki Activity

doc-features now understands command-line given chip prefixes

Browse Source 
git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@390 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Frodo Looijaard
1999-04-14 20:44:42 +00:00
parent 2c4f8804a5
commit b5860b65b0
1 changed files with 30 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
prog/doc/doc-features.pl
View File

@@ -215,13 +215,13 @@ sub scan_kernel_module
# $_[0]: Base directory
sub scan_all
{
my ($prefix,@modules) = @_;
my ($prefix) = @_;
my ($filename);
scan_chips_h $prefix . "/lib/chips.h";
scan_chips_c_1 $prefix . "/lib/chips.c";
scan_chips_c_2 $prefix . "/lib/chips.c";
foreach $filename (@modules) {
scan_kernel_module "$prefix/kernel/chips/$filename"
foreach $filename (glob ($prefix . "/kernel/chips/*.c")) {
scan_kernel_module "$filename"
}
}
@@ -265,40 +265,50 @@ sub initialize
sub help_message
{
print STDERR "Syntax: doc-features PATH MODULES...\n";
print STDERR "Syntax: doc-features PATH PREFIXES...\n";
print STDERR "PATH is the path to the base of the lm_sensors tree.\n";
print STDERR "MODULES are the modules that need to be examined. If none ".
print STDERR "PREFIXES are the chips that have to be output. If none ".
"are specified,\n".
"all modules are examined. Modules are looked for in ".
"PATH/kernel/chips\n.";
"all chips are printed.\n";
}
# @_: @ARGV
# Returns ($base_dir,@modules)
sub scan_arguments
{
my ($base_dir,@modules);
my ($base_dir,@chips);
if (@_ < 1 or @_[0] =~ /^-/) {
help_message;
exit 0;
}
$base_dir = @_[0];
if (@_ == 1) {
@modules = map { substr $_, length "$base_dir/kernel/chips/" }
glob "$base_dir/kernel/chips/*.c";
@chips = ();
} else {
splice(@_,0,1);
@modules = map { $_ !~ /\./ ? $_.".c" : $_ } @_;
@chips = @_;
splice(@chips,0,1);
}
return ($base_dir,@modules)
return ($base_dir,@chips)
}
initialize;
scan_all scan_arguments @ARGV;
my $el;
foreach $el (keys %features) {
if (exists $sysctls{$features{$el}->{features}->[0]->{sysctl}}) {
output_data $el;
print "\n\n";
sub main {
my ($el,$base_dir,@prefixes,$prefix);
initialize;
my ($base_dir,@prefixes) = scan_arguments @_;
scan_all $base_dir;
if (@prefixes) {
foreach $prefix (@prefixes) {
foreach $el (keys %features) {
output_data ($el), print "\n\n"
if ($features{$el}->{prefix} eq $prefix);
}
}
} else {
foreach $el (keys %features) {
output_data $el;
print "\n\n";
}
}
}
main @ARGV;