package modalias;

# TODO:
# - be faster (Elapsed time: lspcidrake.pl ~ 0.28s instead of 0.12s for old lspcidrake

use strict;
use MDK::Common;
use c;

my @config_groups = (
    [
	"/lib/module-init-tools/modprobe.default",
	"/etc/modprobe.conf",
	"/etc/modprobe.d",
    ],
);
my @system_groups = (
    [
        "/lib/module-init-tools/ldetect-lst-modules.alias",
    ],
    [
        "/lib/modules/" . c::kernel_version() . "/modules.alias",
    ],
);
my @classes = qw(ide ieee1394 input pci pcmcia pnp serio usb);
my @alias_groups;

my $alias_re = qr/^\s*alias\s+(([^:]+):\S+)\s+(\S+)$/;

sub alias_to_ids {
    my ($alias) = @_;
    my ($vendor, $device);
    # returns (vendor, device)
    if (($vendor, $device) = $alias =~ /:v([0-9A-F]{4})[dp]([0-9A-F]{4})/) {
        return ($vendor, $device);
    } elsif (($vendor, $device) = $alias =~ /:v0{4}([0-9A-F]{4})[dp]0{4}([0-9A-F]{4})/) {
        return ($vendor, $device);
    }
}

sub parse_path {
    my ($group, $path) = @_;
    if (-d $path) {
        parse_path($group, "$path/$_") foreach all($path);
    } elsif (-f $path) {
        foreach (cat_($path)) {
            if (my ($alias, $class, $module) = $_ =~ $alias_re) {
                if (member($class, @classes)) {
                    my ($vendor, $device) = alias_to_ids($alias);
                    if ($vendor) {
                        $group->{$class} ||= {};
                        $group->{$class}{$vendor} ||= {};
                        $group->{$class}{$vendor}{$device} ||= [];
                        push @{$group->{$class}{$vendor}{$device}}, $alias, $module;
                    } else {
                        push @{$group->{$class}{other}}, $alias, $module;
                    }
                }
            }
        }
    }
}

sub parse_file_modules {
    my ($path) = @_;
    my %modules;
    foreach (cat_($path)) {
        if (my ($alias, undef, $module) = $_ =~ $alias_re) {
            push @{$modules{$module}}, $alias;
        }
    }
    \%modules;
}

sub get_alias_groups {
    my ($o_skip_config) = @_;
    #- FIXME: only o_skip_config from the first call is considered
    @alias_groups = map {
        my $group = {};
        parse_path($group, $_) foreach @$_;
        $group;
    } if_(!$o_skip_config, @config_groups), @system_groups unless @alias_groups;
    @alias_groups;
}

sub get_modules {
    my ($modalias, $o_skip_config) = @_;
    my ($class) = $modalias =~ /^([^:]+):\S+$/;
    my ($vendor, $device) = alias_to_ids($modalias);
    $class && member($class, @classes) or return;

    require File::FnMatch;
    foreach my $group (get_alias_groups($o_skip_config)) {
        my @aliases;
        foreach my $subgroup ($group->{$class}{$vendor}{$device}, $group->{$class}{other}) {
            foreach (group_by2(@$subgroup)) {
                File::FnMatch::fnmatch($_->[0], $modalias) and push @aliases, $_->[1];
            }
        }
        return uniq(@aliases) if @aliases;
    }
}

1;
firewall'>topic/firewall</option>
<option value='topic/gdk-pixbuf-0-branch'>topic/gdk-pixbuf-0-branch</option>
<option value='topic/gi-ppc'>topic/gi-ppc</option>
<option value='topic/ia64-8_1'>topic/ia64-8_1</option>
<option value='topic/mandrakesoft'>topic/mandrakesoft</option>
<option value='topic/mlcd4'>topic/mlcd4</option>
<option value='topic/ppp'>topic/ppp</option>
<option value='topic/rp-pppoe'>topic/rp-pppoe</option>
<option value='topic/switching_to_dnf'>topic/switching_to_dnf</option>
<option value='topic/switching_to_urpmi'>topic/switching_to_urpmi</option>
<option value='topic/unlabeled-1.1.1'>topic/unlabeled-1.1.1</option>
<option value='topic/v_webmin_0_87'>topic/v_webmin_0_87</option>
<option value='topic/x86_64-branch'>topic/x86_64-branch</option>
<option value='user/animtim/designWork'>user/animtim/designWork</option>
<option value='user/colin/rescue-systemd'>user/colin/rescue-systemd</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=14.48'>summary</a><a href='/software/drakx/refs/?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>refs</a><a class='active' href='/software/drakx/log/perl-install/share?h=14.48'>log</a><a href='/software/drakx/tree/perl-install/share?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>tree</a><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>commit</a><a href='/software/drakx/diff/perl-install/share?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>diff</a><a href='/software/drakx/stats/perl-install/share?h=14.48'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/share'>
<input type='hidden' name='h' value='14.48'/><input type='hidden' name='id' value='e2fa2957786e78efb9e3bc988896e4ad1825de24'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/log/?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>root</a>/<a href='/software/drakx/log/perl-install?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>perl-install</a>/<a href='/software/drakx/log/perl-install/share?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24'>share</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th></th><th class='left'>Commit message (<a href='/software/drakx/log/perl-install/share?h=14.48&amp;id=e2fa2957786e78efb9e3bc988896e4ad1825de24&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th><th class='left'>Age</th><th class='left'>Files</th><th class='left'>Lines</th></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=179ab5be266fb386c92319192507c46b27e1205a'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-07-14 21:16:23 +0000'>2003-07-14</span></td><td>1</td><td><span class='deletions'>-138</span>/<span class='insertions'>+418</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=237b145f26fbd66625511236e85fb7b44c5e3ec3'>changed "Country" . " / Region" to "Country / Region" and fixed Chinese po's</a></td><td>Pablo Saratxaga</td><td><span title='2003-07-12 10:34:16 +0000'>2003-07-12</span></td><td>1</td><td><span class='deletions'>-12</span>/<span class='insertions'>+7</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=21aa3d6311b76697f6014ef47ddc31c10497107c'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-07-10 17:20:53 +0000'>2003-07-10</span></td><td>1</td><td><span class='deletions'>-95</span>/<span class='insertions'>+129</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=390d698135af1dfab48938defa011099575d7df9'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-07-09 12:50:56 +0000'>2003-07-09</span></td><td>2</td><td><span class='deletions'>-10998</span>/<span class='insertions'>+11474</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=1a3716bbcc283225fae00b846d21f6b688d6d749'>install netprofile on laptops</a></td><td>Frederic Lepied</td><td><span title='2003-07-08 05:18:06 +0000'>2003-07-08</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=a42feda9d7a248b8b013afb497a8c4a56aa50925'>iAdded various new keyboard layouts</a></td><td>Pablo Saratxaga</td><td><span title='2003-07-01 20:43:05 +0000'>2003-07-01</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+0</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=e7fa0c9d793e6f88f98d08dab2e66e73943e4f5c'>Moved Bokmaal file to nb.po</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-28 15:21:08 +0000'>2003-06-28</span></td><td>1</td><td><span class='deletions'>-21449</span>/<span class='insertions'>+0</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=daf8586c63f2e8d526b5b0c3a0c8401a98fbe422'>Fixed typos; updated Ukrainian po file</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-27 12:18:09 +0000'>2003-06-27</span></td><td>2</td><td><span class='deletions'>-33</span>/<span class='insertions'>+33</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=0e142d9947c70bfd399ba5000d0cbe75daae1a1b'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-27 06:32:43 +0000'>2003-06-27</span></td><td>2</td><td><span class='deletions'>-498</span>/<span class='insertions'>+721</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=04343ff4d430b0af1a73f24ddda0c6b5fefd97fd'>use the mkswap command</a></td><td>Pascal Rigaux</td><td><span title='2003-06-18 11:02:10 +0000'>2003-06-18</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=74c10ded4e563dfeead00cf23334d116cab5d66e'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-16 15:32:52 +0000'>2003-06-16</span></td><td>2</td><td><span class='deletions'>-458</span>/<span class='insertions'>+572</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=adacd16f063aa87662388e6810eed86ff659f4a0'>change a bit how strings are passed to advertising system</a></td><td>Guillaume Cottenceau</td><td><span title='2003-06-12 20:55:54 +0000'>2003-06-12</span></td><td>16</td><td><span class='deletions'>-1252</span>/<span class='insertions'>+1632</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=f849b68fce455b013d4493fc372e8da41147dd57'>cooker</a></td><td>Guillaume Cottenceau</td><td><span title='2003-06-06 15:10:14 +0000'>2003-06-06</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+0</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=98d8aa6727de9bdba8ef650bbc669f241d06467b'>updated Estonien, Japanese, Albanian and Vietnamese po files</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-03 14:30:57 +0000'>2003-06-03</span></td><td>3</td><td><span class='deletions'>-3301</span>/<span class='insertions'>+3539</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=98e86b68ead1420e25051733c2169553f5a73c9e'>Update</a></td><td>Arkadiusz Lipiec</td><td><span title='2003-06-02 17:55:36 +0000'>2003-06-02</span></td><td>1</td><td><span class='deletions'>-195</span>/<span class='insertions'>+308</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=8ecb343fbabb87cd4bdcc65e5d2ad52574ca0f55'>updated Spanish translations</a></td><td>Fabián Mandelbaum</td><td><span title='2003-06-02 14:42:15 +0000'>2003-06-02</span></td><td>1</td><td><span class='deletions'>-154</span>/<span class='insertions'>+271</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=3e71d95d16e0602d4ba0e22c6dc5054a66220172'>changed the name of the russian phonetic layout</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-31 10:02:24 +0000'>2003-05-31</span></td><td>47</td><td><span class='deletions'>-6454</span>/<span class='insertions'>+11245</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=6c1748195382462f95fafbee578f8e8eb69d7309'>updated Vietnamese file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-30 18:31:40 +0000'>2003-05-30</span></td><td>2</td><td><span class='deletions'>-67</span>/<span class='insertions'>+68</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=039f6d5d590742c5ee4c2fae96fb37d01f8a9b17'>updated Albanian file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-28 15:32:12 +0000'>2003-05-28</span></td><td>1</td><td><span class='deletions'>-5</span>/<span class='insertions'>+46</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=e3da407f233805e159a7bfd42e1363738bc9687d'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-26 15:23:24 +0000'>2003-05-26</span></td><td>1</td><td><span class='deletions'>-3</span>/<span class='insertions'>+43</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=85e90a38fe5dbd0b88e7a8254c29e55714b34fa3'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-22 17:39:30 +0000'>2003-05-22</span></td><td>2</td><td><span class='deletions'>-75</span>/<span class='insertions'>+134</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=9daaa3f09953412921ea636ce409bd830afe8443'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-20 23:54:27 +0000'>2003-05-20</span></td><td>2</td><td><span class='deletions'>-98</span>/<span class='insertions'>+147</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=869ec05f3d954962ae1c66c27a018b979d0629bf'>updated German, Estonian and Finnish files</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-20 10:43:15 +0000'>2003-05-20</span></td><td>3</td><td><span class='deletions'>-1420</span>/<span class='insertions'>+1964</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=1a375e61453fc7d7a32fbdc475f84a8b908a5847'>update french translation</a></td><td>Thierry Vignaud</td><td><span title='2003-05-20 09:37:27 +0000'>2003-05-20</span></td><td>1</td><td><span class='deletions'>-67</span>/<span class='insertions'>+54</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=120da3b0016efb83c568cbfe43b1735d8ec29a87'>updated Spanish translations</a></td><td>Fabián Mandelbaum</td><td><span title='2003-05-19 13:52:26 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-221</span>/<span class='insertions'>+176</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=14.48&amp;id=411e0e9d500d91cf111fb93209acd7d461ee2453'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-16 15:55:38 +0000'>2003-05-16</span>