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

generate_firmware_task: move code around 

This is a preparatory step for the following commit, there should be no
functional changes.
This commit is contained in:
Cyril Brulebois 2023-01-26 23:22:40 +01:00
parent 14d2664459
commit 90739b8cde
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
tools/generate_firmware_task
View File

@ -25,6 +25,52 @@ my ($pkg, $filename, $arch);
my %seen;
my @components;
sub contains_firmware($$) {
my $count = 0;
open (PKGLISTING, "dpkg --contents $mirror/$filename | grep ' ./lib/firmware/' |") or
die "Can't check package file $filename: $!\n";
while ($_ = <PKGLISTING>) {
$count++;
}
if ($count) {
return 1;
} else {
return 0;
}
}
sub check_packages($$) {
my $use_bp = shift;
my $packages = shift;
open (INPKG, "\$BASEDIR/tools/catz $packages |") or die "Can't read input package files: $!\n";
$/ = ''; # Browse by paragraph
while (defined($_ = <INPKG>)) {
m/^Package: (\S+)/m and $pkg = $1;
m/^Filename: (\S+)/m and $filename = $1;
if (! ($pkg =~ /(microcode|firmware)/)) {
next;
}
if (!exists $seen{$filename}) {
$seen{$filename} = 1;
if (contains_firmware($mirror, $filename)) {
print " $pkg ($filename)\n";
if ($use_bp) {
print OUT "$pkg/$codename-backports\n";
} else {
print OUT "$pkg\n";
}
}
}
}
close INPKG;
}
# Either the caller tells us explicitly which components to use, or we make this
# determination on our own, based on various environment variables:
sub read_env {
@ -51,7 +97,6 @@ if (!@components) {
push @components, (split / /, read_env('NONFREE_COMPONENTS', ''));
}
}
$codename = $ENV{'CODENAME'};
$mirror = $ENV{'MIRROR'};
$localdebs = $ENV{'LOCALDEBS'};
@ -101,54 +146,9 @@ print OUT " */\n";
print "$0: Checking for firmware packages:\n";
sub contains_firmware($$) {
my $count = 0;
open (PKGLISTING, "dpkg --contents $mirror/$filename | grep ' ./lib/firmware/' |") or
die "Can't check package file $filename: $!\n";
while ($_ = <PKGLISTING>) {
$count++;
}
if ($count) {
return 1;
} else {
return 0;
}
}
sub check_packages($$) {
my $use_bp = shift;
my $packages = shift;
open (INPKG, "\$BASEDIR/tools/catz $packages |") or die "Can't read input package files: $!\n";
$/ = ''; # Browse by paragraph
while (defined($_ = <INPKG>)) {
m/^Package: (\S+)/m and $pkg = $1;
m/^Filename: (\S+)/m and $filename = $1;
if (! ($pkg =~ /(microcode|firmware)/)) {
next;
}
if (!exists $seen{$filename}) {
$seen{$filename} = 1;
if (contains_firmware($mirror, $filename)) {
print " $pkg ($filename)\n";
if ($use_bp) {
print OUT "$pkg/$codename-backports\n";
} else {
print OUT "$pkg\n";
}
}
}
}
close INPKG;
}
if (defined($backports)) {
check_packages(1, $bp_pkgfiles);
}
check_packages(0, $pkgfiles);
close OUT;