Debian/Debhelper/Buildsystem/python_distutils.pm

   1 # A debhelper build system class for building Python Distutils based
   2 # projects. It prefers out of source tree building.
   3 #
   4 # Copyright: © 2008 Joey Hess
   5 #            © 2008-2009 Modestas Vainius
   6 # License: GPL-2+
   7
   8 package Debian::Debhelper::Buildsystem::python_distutils;
   9
  10 use strict;
  11 use Cwd ();
  12 use Debian::Debhelper::Dh_Lib qw(error);
  13 use base 'Debian::Debhelper::Buildsystem';
  14
  15 sub DESCRIPTION {
  16         "Python Distutils (setup.py)"
  17 }
  18
  19 sub DEFAULT_BUILD_DIRECTORY {
  20         my $this=shift;
  21         return $this->_canonpath($this->get_sourcepath("build"));
  22 }
  23
  24 sub new {
  25         my $class=shift;
  26         my $this=$class->SUPER::new(@_);
  27         # Out of source tree building is prefered.
  28         $this->enforce_out_of_source_building(@_);
  29         return $this;
  30 }
  31
  32 sub check_auto_buildable {
  33         my $this=shift;
  34         return -e $this->get_sourcepath("setup.py");
  35 }
  36
  37 sub not_our_cfg {
  38         my $this=shift;
  39         my $ret;
  40         if (open(my $cfg, $this->get_buildpath(".pydistutils.cfg"))) {
  41                 $ret = not "# Created by dh_auto\n" eq <$cfg>;
  42                 close $cfg;
  43         }
  44         return $ret;
  45 }
  46
  47 sub create_cfg {
  48         my $this=shift;
  49         if (open(my $cfg, ">", $this->get_buildpath(".pydistutils.cfg"))) {
  50                 print $cfg "# Created by dh_auto", "\n";
  51                 print $cfg "[build]\nbuild-base=", $this->get_build_rel2sourcedir(), "\n";
  52                 close $cfg;
  53                 return 1;
  54         }
  55         return 0;
  56 }
  57
  58 sub pre_building_step {
  59         my $this=shift;
  60         my $step=shift;
  61
  62         return unless grep /$step/, qw(build install clean);
  63
  64         # --build-base can only be passed to the build command. However,
  65         # it is always read from the config file (really weird design).
  66         # Therefore create such a cfg config file.
  67         if ($this->get_buildpath() ne $this->DEFAULT_BUILD_DIRECTORY()) {
  68                 not $this->not_our_cfg() or
  69                     error("cannot set custom build directory: .pydistutils.cfg is in use");
  70                 $this->mkdir_builddir();
  71                 $this->create_cfg() or
  72                     error("cannot set custom build directory: unwritable .pydistutils.cfg");
  73                 # Distutils reads $HOME/.pydistutils.cfg
  74                 $ENV{HOME} = Cwd::abs_path($this->get_buildpath());
  75         }
  76 }
  77
  78 sub setup_py {
  79         my $this=shift;
  80         my $act=shift;
  81         $this->doit_in_sourcedir("python", "setup.py", $act, @_);
  82 }
  83
  84 sub build {
  85         my $this=shift;
  86         $this->setup_py("build", @_);
  87 }
  88
  89 sub install {
  90         my $this=shift;
  91         my $destdir=shift;
  92         $this->setup_py("install",
  93                 "--root=$destdir",
  94                 "--no-compile",
  95                 "-O0",
  96                 "--install-layout=deb",
  97                 @_);
  98 }
  99
 100 sub clean {
 101         my $this=shift;
 102         $this->setup_py("clean", "-a", @_);
 103
 104         # Config file will remain if it was created by us
 105         if (!$this->not_our_cfg()) {
 106                 unlink($this->get_buildpath(".pydistutils.cfg"));
 107                 $this->rmdir_builddir(1); # only if empty
 108         }
 109         # The setup.py might import files, leading to python creating pyc
 110         # files.
 111         $this->doit_in_sourcedir('find', '.', '-name', '*.pyc', '-exec', 'rm', '{}', ';');
 112 }
 113
 114 1