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 |
} |