]> git.donarmstrong.com Git - debhelper.git/blobdiff - Debian/Debhelper/Buildsystem/python_distutils.pm
Merge commit 'origin/buildsystems' into python-build
[debhelper.git] / Debian / Debhelper / Buildsystem / python_distutils.pm
index bfb76eea0ed24f87e9ab787c39fd26a799b18f73..e1b1aef0ac94842622d6455e9596572c66635106 100644 (file)
@@ -1,5 +1,5 @@
-# A buildsystem plugin for building Python Distutils based
-# projects.
+# A debhelper build system class for building Python Distutils based
+# projects. It prefers out of source tree building.
 #
 # Copyright: © 2008 Joey Hess
 #            © 2008-2009 Modestas Vainius
@@ -8,10 +8,25 @@
 package Debian::Debhelper::Buildsystem::python_distutils;
 
 use strict;
+use Cwd ();
+use Debian::Debhelper::Dh_Lib qw(error);
 use base 'Debian::Debhelper::Buildsystem';
 
 sub DESCRIPTION {
-       "Python distutils"
+       "Python Distutils (setup.py)"
+}
+
+sub DEFAULT_BUILD_DIRECTORY {
+       my $this=shift;
+       return $this->canonpath($this->get_sourcepath("build"));
+}
+
+sub new {
+       my $class=shift;
+       my $this=$class->SUPER::new(@_);
+       # Out of source tree building is prefered.
+       $this->prefer_out_of_source_building(@_);
+       return $this;
 }
 
 sub check_auto_buildable {
@@ -19,14 +34,111 @@ sub check_auto_buildable {
        return -e $this->get_sourcepath("setup.py");
 }
 
+sub not_our_cfg {
+       my $this=shift;
+       my $ret;
+       if (open(my $cfg, $this->get_buildpath(".pydistutils.cfg"))) {
+               $ret = not "# Created by dh_auto\n" eq <$cfg>;
+               close $cfg;
+       }
+       return $ret;
+}
+
+sub create_cfg {
+       my $this=shift;
+       if (open(my $cfg, ">", $this->get_buildpath(".pydistutils.cfg"))) {
+               print $cfg "# Created by dh_auto", "\n";
+               print $cfg "[build]\nbuild-base=", $this->get_build_rel2sourcedir(), "\n";
+               close $cfg;
+               return 1;
+       }
+       return 0;
+}
+
+sub pre_building_step {
+       my $this=shift;
+       my $step=shift;
+
+       return unless grep /$step/, qw(build install clean);
+
+       if ($this->get_buildpath() ne $this->DEFAULT_BUILD_DIRECTORY()) {
+               # --build-base can only be passed to the build command. However,
+               # it is always read from the config file (really weird design).
+               # Therefore create such a cfg config file.
+               # See http://bugs.python.org/issue818201
+               #     http://bugs.python.org/issue1011113
+               not $this->not_our_cfg() or
+                   error("cannot set custom build directory: .pydistutils.cfg is in use");
+               $this->mkdir_builddir();
+               $this->create_cfg() or
+                   error("cannot set custom build directory: unwritable .pydistutils.cfg");
+               # Distutils reads $HOME/.pydistutils.cfg
+               $ENV{HOME} = Cwd::abs_path($this->get_buildpath());
+       }
+
+       $this->SUPER::pre_building_step($step);
+}
+
+sub dbg_build_needed {
+       my $this=shift;
+       my $act=shift;
+
+       # Return a list of python-dbg package which are listed
+       # in the build-dependencies. This is kinda ugly, but building
+       # dbg extensions without checking if they're supposed to be
+       # built may result in various FTBFS if the package is not
+       # built in a clean chroot.
+
+       my @dbg;
+       open (CONTROL, 'debian/control') ||
+               error("cannot read debian/control: $!\n");
+       foreach my $builddeps (join('', <CONTROL>) =~ 
+                       /^Build-Depends[^:]*:.*\n(?:^[^\w\n].*\n)*/gmi) {
+               while ($builddeps =~ /(python[^, ]*-dbg)/g) {
+                       push @dbg, $1;
+               }
+       }
+
+       close CONTROL;
+       return @dbg;
+
+}
+
 sub setup_py {
        my $this=shift;
        my $act=shift;
 
-       if ($this->get_builddir()) {
-               unshift @_, "--build-base=" . $this->get_build_rel2sourcedir();
+       # We need to to run setup.py with the default python first
+       # as distutils/setuptools modifies the shebang lines of scripts.
+       # This ensures that #!/usr/bin/python is used and not pythonX.Y
+       # Take into account that the default Python must not be in
+       # the requested Python versions.
+       # Then, run setup.py with each available python, to build
+        # extensions for each.
+
+        my $python_default = `pyversions -d`;
+        $python_default =~ s/^\s+//;
+        $python_default =~ s/\s+$//;
+        my @python_requested = split ' ', `pyversions -r 2>/dev/null`;
+       if (grep /^\Q$python_default\E/, @python_requested) {
+               @python_requested = ("python", grep(!/^\Q$python_default\E/,
+                                       @python_requested));
+       }
+        my @dbg_build_needed = $this->dbg_build_needed();
+
+       foreach my $python (@python_requested) {
+               if (-x "/usr/bin/".$python) {
+                       $this->doit_in_sourcedir($python, "setup.py", $act, @_);
+               }
+               $python = $python . "-dbg";
+               if (grep /^(python-all-dbg|\Q$python\E)/, @dbg_build_needed) {
+                       $this->doit_in_sourcedir($python, "setup.py", $act, @_);
+               } elsif (($python eq "python-dbg")
+                       and (grep /^$python_default/, @dbg_build_needed)) {
+                       $this->doit_in_sourcedir($python_default."-dbg",
+                               "setup.py", $act, @_);
+               }
        }
-       $this->doit_in_sourcedir("python", "setup.py", $act, @_);
 }
 
 sub build {
@@ -37,15 +149,26 @@ sub build {
 sub install {
        my $this=shift;
        my $destdir=shift;
-       $this->setup_py("install", "--root=$destdir", "--no-compile", "-O0", @_);
+       $this->setup_py("install",
+               "--root=$destdir",
+               "--no-compile",
+               "-O0",
+               "--install-layout=deb",
+               @_);
 }
 
 sub clean {
        my $this=shift;
        $this->setup_py("clean", "-a", @_);
+
+       # Config file will remain if it was created by us
+       if (!$this->not_our_cfg()) {
+               unlink($this->get_buildpath(".pydistutils.cfg"));
+               $this->rmdir_builddir(1); # only if empty
+       }
        # The setup.py might import files, leading to python creating pyc
        # files.
        $this->doit_in_sourcedir('find', '.', '-name', '*.pyc', '-exec', 'rm', '{}', ';');
 }
 
-1;
+1