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;
ic/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/bcornec/fixntp'>user/bcornec/fixntp</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=18.44'>summary</a><a href='/software/drakx/refs/?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>refs</a><a class='active' href='/software/drakx/log/perl-install?h=18.44'>log</a><a href='/software/drakx/tree/perl-install?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>tree</a><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>commit</a><a href='/software/drakx/diff/perl-install?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>diff</a><a href='/software/drakx/stats/perl-install?h=18.44'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install'>
<input type='hidden' name='h' value='18.44'/><input type='hidden' name='id' value='686c70f8f8b37ea58b04d339e15d4825924c67b9'/><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=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>root</a>/<a href='/software/drakx/log/perl-install?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>perl-install</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?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9&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?h=18.44&amp;id=686c70f8f8b37ea58b04d339e15d4825924c67b9'>further fix #2826 (lilo failling to handle entry with spaces): replace</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 14:05:30 +0000'>2003-05-19</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?h=18.44&amp;id=5b2538065e8bd7804e2d2ab9c8a556ea653e8a3b'>when configuring to install grub bootloader, we first install lilo, then grub.</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 14:05:18 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=906e4b2dbf4e16595bfd006a6dad0133600bd025'>let further consolidate make_label_lilo_compatible()</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 14:04:50 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-2</span>/<span class='insertions'>+2</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=adb28fd17b640bf98bdda7a31c07769b04f8acd8'>fix network::netconnect::save_conf() callee</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 14:01:42 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&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?h=18.44&amp;id=55e98190ab6057f82cfee6631198c4b759fd4f69'>simplify</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:16:19 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-5</span>/<span class='insertions'>+2</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=28c7d782d296945f1df60401d57d298ecec21bbb'>do not drop return values from regexp but use them to ensure we do not</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:14:55 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=89c443eaf88e7d0f1c169e66b5779a95f4aff598'>move expert stuff under the "advanced" button like in all other drakx/drakxto...</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:13:21 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-7</span>/<span class='insertions'>+6</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=ffe6c8587419746bbcd8ee958f443b41bf153fbf'>%langs: first column is supposed to be localized in english</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:11:46 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-3</span>/<span class='insertions'>+3</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=a8d171226e1a3ef35db69b59bee372104740dd68'>last 9.1-38mdk bits</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:10:32 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+7</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=ad0320a64bef7f4e0d33aa920f03ef06d07d5478'>update perl-gtk0 users list (drakcronat being ported to gtk+2)</a></td><td>Thierry Vignaud</td><td><span title='2003-05-19 13:10:31 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+4</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&amp;id=8cfc0ca2ff0db1b91d61dc0791fc32e672ab0bcb'>first bits of 9.1-38mdk</a></td><td>Thierry Vignaud</td><td><span title='2003-05-16 17:26:01 +0000'>2003-05-16</span></td><td>1</td><td><span class='deletions'>-2</span>/<span class='insertions'>+5</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install?h=18.44&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>