6 files changed, 371 insertions, 0 deletions
diff --git a/Debian/Debhelper/Buildsystem/autoconf.pm b/Debian/Debhelper/Buildsystem/autoconf.pm
new file mode 100644
index 00000000..fcdc2567
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/autoconf.pm
@@ -0,0 +1,56 @@
+# A buildsystem plugin for handling autoconf based projects
+#
+# Copyright: © 2008 Joey Hess
+#            © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::autoconf;
+
+use strict;
+use File::Spec;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem::makefile';
+
+sub DESCRIPTION {
+	"GNU Autoconf (configure)"
+}
+
+sub check_auto_buildable {
+	my $this=shift;
+	my ($action)=@_;
+
+	# Handle configure; the rest - next class
+	if ($action eq "configure") {
+		return -x "configure";
+	}
+	return 0;
+}
+
+sub configure {
+	my $this=shift;
+
+	# Standard set of options for configure.
+	my @opts;
+	push @opts, "--build=" . dpkg_architecture_value("DEB_BUILD_GNU_TYPE");
+	push @opts, "--prefix=/usr";
+	push @opts, "--includedir=\${prefix}/include";
+	push @opts, "--mandir=\${prefix}/share/man";
+	push @opts, "--infodir=\${prefix}/share/info";
+	push @opts, "--sysconfdir=/etc";
+	push @opts, "--localstatedir=/var";
+	push @opts, "--libexecdir=\${prefix}/lib/" . sourcepackage();
+	push @opts, "--disable-maintainer-mode";
+	push @opts, "--disable-dependency-tracking";
+	# Provide --host only if different from --build, as recommended in
+	# autotools-dev README.Debian: When provided (even if equal)
+	# autoconf 2.52+ switches to cross-compiling mode.
+	if (dpkg_architecture_value("DEB_BUILD_GNU_TYPE")
+	    ne dpkg_architecture_value("DEB_HOST_GNU_TYPE")) {
+		push @opts, "--host=" . dpkg_architecture_value("DEB_HOST_GNU_TYPE");
+	}
+
+	$this->mkdir_builddir();
+	$this->doit_in_builddir($this->get_rel2builddir_path("configure"), @opts, @_);
+}
+
+1;
diff --git a/Debian/Debhelper/Buildsystem/cmake.pm b/Debian/Debhelper/Buildsystem/cmake.pm
new file mode 100644
index 00000000..8bdbabbb
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/cmake.pm
@@ -0,0 +1,49 @@
+# A buildsystem plugin for handling CMake based projects.
+# It enforces outside-source building.
+#
+# Copyright: © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::cmake;
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem::makefile';
+
+sub DESCRIPTION {
+	"CMake (CMakeLists.txt)"
+}
+
+sub check_auto_buildable {
+	my $this=shift;
+	my ($action)=@_;
+	my $ret = -e "CMakeLists.txt";
+	$ret &&= $this->SUPER::check_auto_buildable(@_) if $action ne "configure";
+	return $ret;
+}
+
+sub new {
+	my $class=shift;
+	my $this=$class->SUPER::new(@_);
+	# Enforce outside-source tree builds.
+	$this->enforce_outside_source_building();
+	return $this;
+}
+
+sub configure {
+	my $this=shift;
+	my @flags;
+
+	# Standard set of cmake flags
+	push @flags, "-DCMAKE_INSTALL_PREFIX=/usr";
+	push @flags, "-DCMAKE_C_FLAGS=$ENV{CFLAGS}" if (exists $ENV{CFLAGS});
+	push @flags, "-DCMAKE_CXX_FLAGS=$ENV{CXXFLAGS}" if (exists $ENV{CXXFLAGS});
+	push @flags, "-DCMAKE_LD_FLAGS=$ENV{LDFLAGS}" if (exists $ENV{LDFLAGS});
+	push @flags, "-DCMAKE_SKIP_RPATH=ON";
+	push @flags, "-DCMAKE_VERBOSE_MAKEFILE=ON";
+
+	$this->mkdir_builddir();
+	$this->doit_in_builddir("cmake", $this->get_rel2builddir_path(), @flags);
+}
+
+1;
diff --git a/Debian/Debhelper/Buildsystem/makefile.pm b/Debian/Debhelper/Buildsystem/makefile.pm
new file mode 100644
index 00000000..244ef30d
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/makefile.pm
@@ -0,0 +1,94 @@
+# A buildsystem plugin for handling simple Makefile based projects.
+#
+# Copyright: © 2008 Joey Hess
+#            © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::makefile;
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem';
+
+sub get_makecmd_C {
+	my $this=shift;
+	if ($this->get_builddir()) {
+		return $this->{makecmd} . " -C " . $this->get_builddir();
+	}
+	return $this->{makecmd};
+}
+
+sub exists_make_target {
+	my ($this, $target) = @_;
+	my $makecmd=$this->get_makecmd_C();
+
+	# Use make -n to check to see if the target would do
+	# anything. There's no good way to test if a target exists.
+	my $ret=`$makecmd -s -n $target 2>/dev/null`;
+	chomp $ret;
+	return length($ret);
+}
+
+sub make_first_existing_target {
+	my $this=shift;
+	my $targets=shift;
+
+	foreach my $target (@$targets) {
+		if ($this->exists_make_target($target)) {
+			$this->doit_in_builddir($this->{makecmd}, $target, @_);
+			return $target;
+		}
+	}
+	return undef;
+}
+
+sub DESCRIPTION {
+	"simple Makefile"
+}
+
+sub new {
+	my $class=shift;
+	my $this=$class->SUPER::new(@_);
+	$this->{makecmd} = (exists $ENV{MAKE}) ? $ENV{MAKE} : "make";
+	return $this;
+}
+
+sub check_auto_buildable {
+	my $this=shift;
+	my ($action) = @_;
+
+	# Handles build, test, install, clean; configure - next class
+	if (grep /^\Q$action\E$/, qw{build test install clean}) {
+		# This is always called in the source directory, but generally
+		# Makefiles are created (or live) in the the build directory.
+		return -e $this->get_buildpath("Makefile") ||
+		       -e $this->get_buildpath("makefile") ||
+		       -e $this->get_buildpath("GNUmakefile");
+	}
+	return 0;
+}
+
+sub build {
+	my $this=shift;
+	$this->doit_in_builddir($this->{makecmd}, @_);
+}
+
+sub test {
+	my $this=shift;
+	$this->make_first_existing_target(['test', 'check'], @_);
+}
+
+sub install {
+	my $this=shift;
+	my $destdir=shift;
+	$this->make_first_existing_target(['install'], "DESTDIR=$destdir", @_);
+}
+
+sub clean {
+	my $this=shift;
+	if (!$this->clean_builddir()) {
+		$this->make_first_existing_target(['distclean', 'realclean', 'clean'], @_);
+	}
+}
+
+1;
diff --git a/Debian/Debhelper/Buildsystem/perl_build.pm b/Debian/Debhelper/Buildsystem/perl_build.pm
new file mode 100644
index 00000000..ce69f4ce
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/perl_build.pm
@@ -0,0 +1,68 @@
+# A buildsystem plugin for handling Perl Build based projects.
+#
+# Copyright: © 2008-2009 Joey Hess
+#            © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::perl_build;
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem';
+
+sub DESCRIPTION {
+	"Perl Module::Build (Build.PL)"
+}
+
+sub check_auto_buildable {
+	my ($this, $action) = @_;
+
+	# Handles everything
+	my $ret = -e "Build.PL";
+	if ($action ne "configure") {
+		$ret &&= -e "Build";
+	}
+	return $ret;
+}
+
+sub do_perl {
+	my $this=shift;
+	$ENV{MODULEBUILDRC} = "/dev/null";
+	doit("perl", @_);
+}
+
+sub new {
+	my $class=shift;
+	my $this= $class->SUPER::new(@_);
+	$this->enforce_in_source_building();
+	return $this;
+}
+
+sub configure {
+	my $this=shift;
+	$ENV{PERL_MM_USE_DEFAULT}=1;
+	$this->do_perl("Build.PL", "installdirs=vendor", @_);
+}
+
+sub build {
+	my $this=shift;
+	$this->do_perl("Build", @_);
+}
+
+sub test {
+	my $this=shift;
+	$this->do_perl("Build", "test", @_);
+}
+
+sub install {
+	my $this=shift;
+	my $destdir=shift;
+	$this->do_perl("Build", "install", "destdir=$destdir", "create_packlist=0", @_);
+}
+
+sub clean {
+	my $this=shift;
+	$this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+}
+
+1;
diff --git a/Debian/Debhelper/Buildsystem/perl_makemaker.pm b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
new file mode 100644
index 00000000..a7bb5cc9
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
@@ -0,0 +1,53 @@
+# A buildsystem plugin for handling Perl MakeMaker based projects.
+#
+# Copyright: © 2008-2009 Joey Hess
+#            © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::perl_makemaker;
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem::makefile';
+
+sub DESCRIPTION {
+	"Perl ExtUtils::MakeMaker (Makefile.PL)"
+}
+
+sub check_auto_buildable {
+	my $this=shift;
+	my ($action)=@_;
+
+	# Handles configure, install; the rest - next class
+	if ($action eq "install" || $action eq "configure") {
+		return -e "Makefile.PL";
+	}
+	else {
+		return 0;
+	}
+}
+
+sub new {
+	my $class=shift;
+	my $this=$class->SUPER::new(@_);
+	$this->enforce_in_source_building();
+	return $this;
+}
+
+sub configure {
+	my $this=shift;
+	# If set to a true value then MakeMaker's prompt function will
+	# # always return the default without waiting for user input.
+	$ENV{PERL_MM_USE_DEFAULT}=1;
+	doit("perl", "Makefile.PL", "INSTALLDIRS=vendor",
+		"create_packlist=0",
+		@_);
+}
+
+sub install {
+	my $this=shift;
+	my $destdir=shift;
+	$this->SUPER::install($destdir, "PREFIX=/usr", @_);
+}
+
+1;
diff --git a/Debian/Debhelper/Buildsystem/python_distutils.pm b/Debian/Debhelper/Buildsystem/python_distutils.pm
new file mode 100644
index 00000000..01a8c14e
--- /dev/null
+++ b/Debian/Debhelper/Buildsystem/python_distutils.pm
@@ -0,0 +1,51 @@
+# A buildsystem plugin for building Python Distutils based
+# projects.
+#
+# Copyright: © 2008 Joey Hess
+#            © 2008-2009 Modestas Vainius
+# License: GPL-2+
+
+package Debian::Debhelper::Buildsystem::python_distutils;
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+use base 'Debian::Debhelper::Buildsystem';
+
+sub DESCRIPTION {
+	"Python distutils"
+}
+
+sub check_auto_buildable {
+	return -e "setup.py";
+}
+
+sub setup_py {
+	my $this=shift;
+	my $act=shift;
+
+	if ($this->get_builddir()) {
+		unshift @_, "--build-base=" . $this->get_builddir();
+	}
+	doit("python", "setup.py", $act, @_);
+}
+
+sub build {
+	my $this=shift;
+	$this->setup_py("build", @_);
+}
+
+sub install {
+	my $this=shift;
+	my $destdir=shift;
+	$this->setup_py("install", "--root=$destdir", "--no-compile", "-O0", @_);
+}
+
+sub clean {
+	my $this=shift;
+	$this->setup_py("clean", "-a", @_);
+	# The setup.py might import files, leading to python creating pyc
+	# files.
+	doit('find', '.', '-name', '*.pyc', '-exec', 'rm', '{}', ';');
+}
+
+1;