1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
# A debhelper build system class for handling Meson based projects.
#
# Copyright: © 2017 Michael Biebl
# License: GPL-2+
package Debian::Debhelper::Buildsystem::meson;
use strict;
use warnings;
use Debian::Debhelper::Dh_Lib qw(dpkg_architecture_value is_cross_compiling doit warning error generated_file);
use parent qw(Debian::Debhelper::Buildsystem);
sub DESCRIPTION {
"Meson (meson.build)"
}
sub IS_GENERATOR_BUILD_SYSTEM {
return 1;
}
sub SUPPORTED_TARGET_BUILD_SYSTEMS {
return qw(ninja);
}
sub check_auto_buildable {
my $this=shift;
my ($step)=@_;
return 0 unless -e $this->get_sourcepath("meson.build");
# Handle configure explicitly; inherit the rest
return 1 if $step eq "configure";
my $ret = $this->get_targetbuildsystem->check_auto_buildable(@_);
if ($ret == 0 and $this->check_auto_buildable_clean_oos_buildir(@_)) {
# Assume that the package can be cleaned (i.e. the build directory can
# be removed) as long as it is built out-of-source tree and can be
# configured.
$ret++;
}
return $ret;
}
sub new {
my $class=shift;
my $this=$class->SUPER::new(@_);
$this->prefer_out_of_source_building(@_);
return $this;
}
sub configure {
my $this=shift;
# Standard set of options for meson.
my @opts = (
'--wrap-mode=nodownload',
);
push @opts, "--buildtype=plain";
push @opts, "--prefix=/usr";
push @opts, "--sysconfdir=/etc";
push @opts, "--localstatedir=/var";
my $multiarch=dpkg_architecture_value("DEB_HOST_MULTIARCH");
push @opts, "--libdir=lib/$multiarch";
push(@opts, "--libexecdir=lib/$multiarch") if not compat(11);
if (is_cross_compiling()) {
# http://mesonbuild.com/Cross-compilation.html
my $cross_file = $ENV{'DH_MESON_CROSS_FILE'};
if (not $cross_file) {
my $debcrossgen = '/usr/share/meson/debcrossgen';
if (not -x $debcrossgen) {
warning("Missing debcrossgen (${debcrossgen}) cannot generate a meson cross file and non was provided");
error("Cannot cross-compile: Please use meson (>= 0.42.1) or provide a cross file via DH_MESON_CROSS_FILE");
}
my $filename = generated_file('_source', 'meson-cross-file.conf');
my %options = (
stdout => '/dev/null',
update_env => { LC_ALL => 'C.UTF-8'},
);
doit(\%options, $debcrossgen, "-o${filename}");
$cross_file = $filename;
}
if ($cross_file !~ m{^/}) {
# Make the file name absolute as meson will be called from the build dir.
require Cwd;
$cross_file =~ s{^\./}{};
$cross_file = Cwd::cwd() . "/${cross_file}";
}
push(@opts, '--cross-file', $cross_file);
}
$this->mkdir_builddir();
eval {
my %options = (
update_env => { LC_ALL => 'C.UTF-8'},
);
$this->doit_in_builddir(\%options, "meson", $this->get_source_rel2builddir(), @opts, @_);
};
if ($@) {
if (-e $this->get_buildpath("meson-logs/meson-log.txt")) {
$this->doit_in_builddir('tail', '-v', '-n', '+0', 'meson-logs/meson-log.txt');
}
die $@;
}
}
1
|