Просмотр исходного кода

dpkg-checkbuilddeps: add -d and -c options to override build-depends/conflicts

* scripts/dpkg-checkbuilddeps.pl: Add support of options -d and -c to use
build dependencies/conflicts given on the command line instead of those
retrieved from debian/control.
* man/dpkg-checkbuilddeps.1: Document the new options.
Raphael Hertzog лет назад: 18
Родитель
Сommit
0231fa0b4c
4 измененных файлов с 42 добавлено и 21 удалено
  1. 5 0
      ChangeLog
  2. 2 0
      debian/changelog
  3. 6 0
      man/dpkg-checkbuilddeps.1
  4. 29 21
      scripts/dpkg-checkbuilddeps.pl

+ 5 - 0
ChangeLog

@@ -3,6 +3,11 @@
 	* scripts/dpkg-genchanges.pl: Warn if the current version is
 	smaller than the previous one.
 
+	* scripts/dpkg-checkbuilddeps.pl: Add support of options -d and -c to use
+	build dependencies/conflicts given on the command line instead of those
+	retrieved from debian/control.
+	* man/dpkg-checkbuilddeps.1: Document the new options.
+
 2008-01-22  Guillem Jover  <guillem@debian.org>
 
 	* dpkg-deb/extract.c (extracthalf): Refactor fflush and its buggy

+ 2 - 0
debian/changelog

@@ -10,6 +10,8 @@ dpkg (1.14.17) UNRELEASED; urgency=low
   [ Raphael Hertzog ]
   * Add a warning displayed by dpkg-genchanges if the current version is
     smaller than the previous one. Closes: #4655
+  * Add -d and -c options in dpkg-checkbuilddeps to override
+    build-depends/conflicts. Closes: #114774
 
   [ Updated manpages translations ]
   * German (Helge Kreutzmann).

+ 6 - 0
man/dpkg-checkbuilddeps.1

@@ -25,6 +25,12 @@ Change the location of the \fBdpkg\fR database. The default location is
 Ignore \fIBuild\-Depends\-Indep\fR lines. Use when no arch-indep packages will
 be built.
 .TP
+.BI "\-d " build-depends-string
+.TP
+.BI "\-c " build-conflicts-string
+Use the given build dependencies/conflicts instead of those contained in the
+debian/control file.
+.TP
 .B \-h
 Show the usage message and exit.
 .

+ 29 - 21
scripts/dpkg-checkbuilddeps.pl

@@ -21,6 +21,10 @@ sub usage {
 Options:
   control-file   control file to process (default: debian/control).
   -B             binary-only, ignore -Indep.
+  -d build-deps  use given string as build dependencies instead of
+                 retrieving them from control file
+  -c build-conf  use given string for build conflicts instead of
+                 retrieving them from control file
   --admindir=<directory>
                  change the administrative directory.
   -h             show this help message.
@@ -29,8 +33,11 @@ Options:
 
 my $binary_only=0;
 my $want_help=0;
+my ($bd_value, $bc_value);
 if (! GetOptions('-B' => \$binary_only,
 		 '-h' => \$want_help,
+		 '-d=s' => \$bd_value,
+		 '-c=s' => \$bc_value,
 		 '--admindir=s' => \$admindir)) {
 	usage();
 	exit(2);
@@ -46,30 +53,31 @@ my $control = Dpkg::Control->new($controlfile);
 my $fields = $control->get_source();
 
 my $facts = parse_status("$admindir/status");
-my (@unmet, @conflicts);
-
-push @unmet, build_depends('Implicit-Build-Depends',
-                           Dpkg::Deps::parse('build-essential'), $facts);
 
-if (defined($fields->{"Build-Depends"})) {
-	push @unmet, build_depends('Build-Depends',
-                                   Dpkg::Deps::parse($fields->{"Build-Depends"},
-                                        reduce_arch => 1), $facts);
-}
-if (defined($fields->{"Build-Conflicts"})) {
-	push @conflicts, build_conflicts('Build-Conflicts',
-                                         Dpkg::Deps::parse($fields->{"Build-Conflicts"},
-                                            reduce_arch => 1, union => 1), $facts);
+unless (defined($bd_value) or defined($bc_value)) {
+    $bd_value = 'build-essential';
+    $bd_value .= ", " . $fields->{"Build-Depends"} if defined $fields->{"Build-Depends"};
+    if (not $binary_only and defined $fields->{"Build-Depends-Indep"}) {
+	$bd_value .= ", " . $fields->{"Build-Depends-Indep"};
+    }
+    $bc_value = $fields->{"Build-Conflicts"} if defined $fields->{"Build-Conflicts"};
+    if (not $binary_only and defined $fields->{"Build-Conflicts-Indep"}) {
+	if ($bc_value) {
+	    $bc_value .= ", " . $fields->{"Build-Conflicts-Indep"};
+	} else {
+	    $bc_value = $fields->{"Build-Conflicts-Indep"};
+	}
+    }
 }
-if (! $binary_only && defined($fields->{"Build-Depends-Indep"})) {
-	push @unmet, build_depends('Build-Depends-Indep',
-                                   Dpkg::Deps::parse($fields->{"Build-Depends-Indep"},
-                                        reduce_arch => 1), $facts);
+my (@unmet, @conflicts);
+
+if ($bd_value) {
+	push @unmet, build_depends('Build-Depends/Build-Depends-Indep)',
+		Dpkg::Deps::parse($bd_value, reduce_arch => 1), $facts);
 }
-if (! $binary_only && defined($fields->{"Build-Conflicts-Indep"})) {
-	push @conflicts, build_conflicts('Build-Conflicts-Indep',
-                                         Dpkg::Deps::parse($fields->{"Build-Conflicts-Indep"},
-                                            reduce_arch => 1, union => 1), $facts);
+if ($bc_value) {
+	push @conflicts, build_conflicts('Build-Conflicts/Build-Conflicts-Indep',
+		Dpkg::Deps::parse($bc_value, reduce_arch => 1, union => 1), $facts);
 }
 
 if (@unmet) {