Merge branch 'dh_overrides'

[debhelper.git] / dh

diff --git a/dh b/dh
index e3a5943e959c36802e279789b7bcc52c8e986c24..7cba15610e39fd806187c0934cbe34b3d04bce9d 100755 (executable)
--- a/dh
+++ b/dh
@@ -39,7 +39,7 @@ then when it gets to that command in the sequence, dh will run that
 target from the rules file, rather than running the actual command. The
 override target can then run the command with additional options, or run
 entirely different commands instead. (Note that to use this feature,
-you should Build-Depend on debhelper 7.2 or above.)
+you should Build-Depend on debhelper 7.0.50 or above.)
 
 =head1 OPTIONS
 
@@ -182,12 +182,28 @@ after a particular debhelper command is run.
                dh_fixperms
                chmod 4755 debian/foo/usr/bin/foo
 
+If your package is a python package, dh will use dh_pysupport by
+default. This is how to use dh_pycentral instead.
+
+       #!/usr/bin/make -f
+       %:
+               dh --with python-central $@
+
 =cut
 
 # Stash this away before init modifies it.
 my @ARGV_orig=@ARGV;
 
-init();
+init(options => {
+       "until=s" => \$dh{UNTIL},
+       "after=s" => \$dh{AFTER},
+       "before=s" => \$dh{BEFORE},
+       "remaining" => \$dh{REMAINING},
+       "with=s" => sub {
+               my ($option,$value)=@_;
+               push @{$dh{WITH}},$value;
+       },
+});
 inhibit_log();
 
 # Definitions of sequences.
@@ -311,8 +327,14 @@ if (! @ARGV) {
        error "specify a sequence to run";
 }
 my $sequence=shift;
-if (! exists $sequences{$sequence}) {
-       error "Unknown sequence $sequence (chose from: ".
+if ($sequence eq 'debian/rules' ||
+    $sequence =~ /^override_dh_/) {
+       # make -B causes the rules file to be run as a target
+       # and support completly empty override targets
+       exit 0
+}      
+elsif (! exists $sequences{$sequence}) {
+       error "Unknown sequence $sequence (choose from: ".
                join(" ", sort keys %sequences).")";
 }
 my @sequence=@{$sequences{$sequence}};
@@ -363,7 +385,7 @@ foreach my $package (@packages) {
                # no commands remain to run after it, communicating to
                # future dh instances that the specified command should not
                # be run again.
-               writelog($package, $sequence[$startpoint{$package}-1]);
+               writelog($sequence[$startpoint{$package}-1], $package);
        }
        elsif ($dh{REMAINING}) {
                # Start at the beginning so all remaining commands will get
@@ -457,7 +479,7 @@ sub run {
                        # been run by the rules file target.
                        my %packages=map { $_ => 1 } @packages;
                        map { delete $packages{$_} } @exclude;
-                       Debian::Debhelper::Dh_Lib::write_log($override_command, keys %packages);
+                       writelog($override_command, keys %packages);
                }
        }
 }
@@ -476,15 +498,9 @@ sub loadlog {
        close LOG;
        return @log;
 }
-               
+
 sub writelog {
-       my $package=shift;
-       my $cmd=shift;
-       my $ext=pkgext($package);
-       
-       open(LOG, ">>", "debian/${ext}debhelper.log") || error("failed to write to log");
-       print LOG $cmd."\n";
-       close LOG;
+       Debian::Debhelper::Dh_Lib::write_log(@_);
 }
 
 {
@@ -495,24 +511,27 @@ sub rules_explicit_target {
        # Checks if a specified target exists as an explicit target
        # in debian/rules. 
        my $target=shift;
-       my $processing_targets = 0;
-       my $not_a_target = 0;
        
        if (! $rules_parsed) {  
-               open(MAKE, "make -Rrnpsf debian/rules debhelper-fail-me 2>/dev/null |");
+               my $processing_targets = 0;
+               my $not_a_target = 0;
+               open(MAKE, "LANG=C make -Rrnpsf debian/rules debhelper-fail-me 2>/dev/null |");
                while (<MAKE>) {
                        if ($processing_targets) {
                                if (/^# Not a target:/) {
                                        $not_a_target = 1;
-                               } else {
-                                       if (!$not_a_target && /^([^#:]+)::?/ && !exists $targets{$1}) {
+                               }
+                               else {
+                                       if (!$not_a_target && /^([^#:]+)::?/) {
                                                # Target is defined.
-                                               # NOTE: if it is a depenency of .PHONY it will be
+                                               # NOTE: if it is a depenency
+                                               # of .PHONY it will be
                                                # defined too but that's ok.
                                                $targets{$1} = 1;
                                        }
-                                       # "Not a target:" is always followed by a target name,
-                                       # so resetting this one here is safe.
+                                       # "Not a target:" is always followed by
+                                       # a target name, so resetting this one
+                                       # here is safe.
                                        $not_a_target = 0;
                                }
                        } elsif (/^# Files$/) {