/[soft]/ldetect-lst/trunk/dkms-modules-info/merge_dkms_info.pl
ViewVC logotype

Contents of /ldetect-lst/trunk/dkms-modules-info/merge_dkms_info.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1357 - (show annotations) (download)
Tue May 17 09:21:22 2011 UTC (12 years, 10 months ago) by dmorgan
File MIME type: text/plain
File size: 759 byte(s)
Import  ldetect
1 #!/usr/bin/perl
2
3 use MDK::Common;
4
5 my $prefix = "dkms-modules";
6
7 my %fields;
8 my %filters = (
9 alias => sub {
10 my ($module, $values) = @_;
11 map { "alias $_ $module\n" } sort(uniq(@$values));
12 },
13 description => sub {
14 my ($module, $values) = @_;
15 my $desc = find { $_} @$values;
16 if_($desc, "$module\t$desc\n");
17 },
18 );
19
20 foreach my $kver (grep { $_ ne ".svn" && -d $_ } all(".")) {
21 foreach my $file (all($kver)) {
22 my ($module, $type) = $file =~ /^(.+)\.(.+?)$/ or next;
23 push @{$fields{$type}{$module}}, chomp_(cat_($kver . '/' . $file));
24 }
25 }
26
27 foreach my $type (keys %filters) {
28 output("$prefix.$type", map { $filters{$type}->($_, $fields{$type}{$_}) } sort(keys(%{$fields{$type}})));
29 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.30