Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Keep track of all firmware packages found.

This commit is contained in:
Cyril Brulebois 2021-07-25 08:16:44 +02:00
parent c9f7df2963
commit 91508a24c9
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/generate_firmware_patterns
View File

@ -51,6 +51,7 @@ sub process_components {
die "only gz and xz suffixes are supported"; die "only gz and xz suffixes are supported";
} }
my @packages;
foreach my $array (Load $content) { foreach my $array (Load $content) {
# XXX: Drop the condition once we have the required metadata # XXX: Drop the condition once we have the required metadata
# in the archive. # in the archive.
@ -74,7 +75,9 @@ sub process_components {
write_file($patterns_file, write_file($patterns_file,
map { $a = $_; $a =~ s/[*]/.*/g; "^$a\$\n" } map { $a = $_; $a =~ s/[*]/.*/g; "^$a\$\n" }
@{ $array->{Provides}->{modaliases} }); @{ $array->{Provides}->{modaliases} });
push @packages, $array->{Package};
} }
return @packages;
} }
@ -90,6 +93,11 @@ write_file("$output_dir/README.txt",
# Generate a .patterns file for each firmware package found in # Generate a .patterns file for each firmware package found in
# Components-* files: # Components-* files:
my @all_packages;
foreach my $component (@ARGV) { foreach my $component (@ARGV) {
process_components($component); my @packages = process_components($component);
push @all_packages, @packages;
} }
@all_packages = sort @all_packages;
print STDERR "all firmware packages found across all components: @all_packages\n"
if $verbose;