add filter code for components

diff --git a/bin/wanna-build b/bin/wanna-build
index d1fc48e167a988cba5adb5032bd1c9aff08bbadb..f6634a22583afa189ba9c8a8d100a1df6e6c8619 100755 (executable)
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -1912,6 +1912,9 @@ sub list_packages {
                push @list, calculate_prio($db->{$name});
        }
 
+        # filter components
+        @list = grep { my $i = $_->{'component'}; grep { $i eq $_ } split /[, ]+/, $yamlmap->{"restrict"}{'component'} } @list;
+
        foreach $pkg (sort sort_list_func @list) {
                 if ($printformat) {
                     print print_format($printformat, $pkg, {'cnt' => $cnt, 'scnt' => \%scnt})."\n";

diff --git a/etc/yaml/wanna-build.yaml b/etc/yaml/wanna-build.yaml
index eb56539142aa42da922d5be7dec79ad755b3c839..9d5f24d15ba323c79277c722ab9fbf8a314a76c1 100644 (file)
--- a/etc/yaml/wanna-build.yaml
+++ b/etc/yaml/wanna-build.yaml
@@ -25,3 +25,5 @@ list-order:
     failed: fPcpsn
     needs-build: CWn
     building: bn
+restrict:
+    component: main contrib