1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/usr/bin/perl
# Generate a debian/control from the control stub, the kernel-versions
# files, and the package-list.
use strict;
use warnings;
use KernelWedge qw(CONFIG_DIR CONTROL_FIELDS read_kernel_versions
read_package_lists for_each_package);
my @builddeps;
my %excluded;
my $fixkernelversion = $ARGV[0];
if (open(EXCLUDED, CONFIG_DIR . "/exclude-packages")) {
while (<EXCLUDED>) {
chomp;
$excluded{$_}=1;
}
close EXCLUDED;
}
my $versions = read_kernel_versions($fixkernelversion);
for my $ver (@$versions) {
(my $arch, my $kernelversion, undef, undef, undef, my $builddep) =
@$ver;
if (defined($fixkernelversion)) {
$ver->[1] = $fixkernelversion;
}
elsif ($kernelversion eq "-") {
die "kernel version not set in file or on command line";
}
if ($builddep ne "-") {
foreach my $pkg (split(", ", $builddep)) {
push @builddeps, "$pkg [$arch]";
}
}
}
# Building with installed kernel package, or as part of a package?
if (@builddeps) {
open(STUB, "debian/control.stub") || die "debian/control.stub: $!";
while (<STUB>) {
chomp;
if (/^Build-Depends:/) {
$_=join(", ", $_, @builddeps);
}
print $_."\n";
}
close STUB;
}
my $packages = read_package_lists();
for_each_package($packages, $versions, sub {
my ($arch, $kernelversion, $flavour, $modlistdir, $template) = @_;
my %override;
$override{Architecture}=$arch;
$override{Package}=$template->("Package")."-".$kernelversion."-".$flavour."-di";
$override{'Package-Type'}="udeb";
$override{'Kernel-Version'}=$kernelversion."-".$flavour;
return if $excluded{$override{Package}};
print "\n";
if (! defined $template->("Section") || $template->("Section") !~ /debian-installer$/) {
$override{Section}="debian-installer";
}
if (defined $template->("Depends")) {
$override{Depends}=join(", ",
map { $_."-".$kernelversion."-".$flavour."-di" }
# Remove force marker.
map { s/!$//; $_ }
# If the dep is not built for this arch,
# skip it, unless it's forced.
grep { -e "$modlistdir/$_" || /!$/ }
split(", ", $template->("Depends")));
}
foreach my $field (CONTROL_FIELDS) {
my $value = $override{$field} || $template->($field);
if ($field eq 'Provides') {
if (defined $value) {
print $field.": ".$template->("Package").", ".$value."\n";
}
else {
print $field.": ".$template->("Package")."\n";
}
}
else {
print $field.": ".$value."\n" if defined $value;
}
}
});
|
