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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
|
#!/usr/bin/perl
# A wrapper for cvs-buildpackage to use debuild, still giving access
# to all of debuild's functionality.
# Copyright 2003, Julian Gilbey <jdg@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
# We will do simple option processing. The calling syntax of this
# program is:
#
# cvs-debuild [<debuild options>] [<cvs-buildpackage options>]
# [--lintian-opts <lintian options>]
#
# cvs-debuild will run cvs-buildpackage, using debuild as the
# package-building program, passing the debuild and lintian options to
# it. For details of these options, and more information on debuild in
# general, refer to debuild(1).
use 5.006;
use strict;
use warnings;
use FileHandle;
use File::Basename;
use File::Temp qw/ tempfile /;
use Fcntl;
my $progname = basename($0);
# Predeclare functions
sub fatal($);
sub usage {
print <<"EOF";
$progname [<debuild options>] [<cvs-buildpackage options>]
[--lintian-opts <lintian options>]
to run cvs-buildpackage using debuild as the package building program
Accepted debuild options, see debuild(1) or debuild --help for more info:
--no-conf, --noconf
--lintian, --no-lintian
--rootcmd=<gain-root-command>, -r<gain-root-command>
--preserve-envvar=<envvar>, -e<envvar>
--set-envvar=<envvar>=<value>, -e<envvar>=<value>
--preserve-env
--check-dirname-level=<value>, --check-dirname-regex=<regex>
-d, -D
--help display this message
--version show version and copyright information
All cvs-buildpackage options are accepted, as are all lintian options.
Note that any cvs-buildpackage options (command line or configuration file)
for setting a root command will override any debuild configuration file
options for this.
Default settings modified by devscripts configuration files:
(no configuration files are read by $progname)
For information on default debuild settings modified by the
configuration files, run: debuild --help
EOF
}
sub version {
print <<"EOF";
This is $progname, from the Debian devscripts package, version ###VERSION###
This code is copyright 2003 by Julian Gilbey <jdg\@debian.org>,
all rights reserved.
This program comes with ABSOLUTELY NO WARRANTY.
You are free to redistribute this code under the terms of the
GNU General Public License, version 2 or later.
EOF
}
# First check we can execute cvs-buildpackage
unless (system("command -v cvs-buildpackage >/dev/null 2>&1") == 0) {
fatal "can't run cvs-buildpackage; have you installed it?";
}
# We start by parsing the command line to collect debuild and
# lintian options. We stash them away in temporary files,
# which we will pass to debuild.
my (@debuild_opts, @cvs_opts, @lin_opts);
{
no locale;
# debuild opts first
while (@ARGV) {
my $arg = shift;
$arg eq '--help' and usage(), exit 0;
$arg eq '--version' and version(), exit 0;
# rootcmd gets passed on to cvs-buildpackage
if ($arg eq '-r' or $arg eq '--rootcmd') {
push @cvs_opts, '-r' . shift;
next;
}
if ($arg =~ /^(?:-r|--rootcmd=)(.*)$/) {
push @cvs_opts, "-r$1";
next;
}
# other debuild options are stashed
if ($arg =~ /^--(no-?conf|(no-?)?lintian)$/) {
push @debuild_opts, $arg;
next;
}
if ($arg =~ /^--preserve-env$/) {
push @debuild_opts, $arg;
next;
}
if ($arg =~ /^--check-dirname-(level|regex)$/) {
push @debuild_opts, $arg, shift;
next;
}
if ($arg =~ /^--check-dirname-(level|regex)=/) {
push @debuild_opts, $arg;
next;
}
if ($arg =~ /^--(preserve|set)-envvar$/) {
push @debuild_opts, $arg, shift;
next;
}
if ($arg =~ /^--(preserve|set)-envvar=/) {
push @debuild_opts, $arg;
next;
}
# dpkg-buildpackage now has a -e option, so we have to be
# careful not to confuse the two; their option will always have
# the form -e<maintainer email> or similar
if ($arg eq '-e') {
push @debuild_opts, $arg, shift;
next;
}
if ($arg =~ /^-e(\w+(=.*)?)$/) {
push @debuild_opts, $arg;
next;
}
if ($arg eq '-d' or $arg eq '-D') {
push @debuild_opts, $arg;
next;
}
# Anything else matching /^-e/ is a dpkg-buildpackage option,
# and we've also now considered all debuild options.
# So now handle cvs-buildpackage options
unshift @ARGV, $arg;
last;
}
while (@ARGV) {
my $arg = shift;
if ($arg eq '-L' or $arg eq '--lintian') {
fatal "$arg argument not recognised; use --lintian-opts instead";
}
if ($arg =~ /^--lin(tian|da)-opts$/) {
push @lin_opts, $arg;
last;
}
push @cvs_opts, $arg;
}
if (@ARGV) {
push @lin_opts, @ARGV;
}
}
# So we've now got three arrays, and we'll have to store the debuild
# options in temporary files
my $debuild_cmd = 'debuild --cvs-debuild';
my ($fhdeb, $fhlin);
if (@debuild_opts) {
$fhdeb = tempfile("cvspreXXXXXX", UNLINK => 1)
or fatal "cannot create temporary file: $!";
fcntl $fhdeb, Fcntl::F_SETFD(), 0
or fatal "disabling close-on-exec for temporary file: $!";
print $fhdeb join("\0", @debuild_opts);
$debuild_cmd .= ' --cvs-debuild-deb /dev/fd/' . fileno($fhdeb);
}
if (@lin_opts) {
$fhlin = tempfile("cvspreXXXXXX", UNLINK => 1)
or fatal "cannot create temporary file: $!";
fcntl $fhlin, Fcntl::F_SETFD(), 0
or fatal "disabling close-on-exec for temporary file: $!";
print $fhlin join("\0", @lin_opts);
$debuild_cmd .= ' --cvs-debuild-lin /dev/fd/' . fileno($fhlin);
}
# Now we can run cvs-buildpackage
my $status = system('cvs-buildpackage', '-C' . $debuild_cmd, @cvs_opts);
if ($status & 255) {
die "cvs-debuild: cvs-buildpackage terminated abnormally: "
. sprintf("%#x", $status) . "\n";
} else {
exit($status >> 8);
}
sub fatal($) {
my ($pack, $file, $line);
($pack, $file, $line) = caller();
(my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
$msg =~ s/\n\n$/\n/;
die $msg;
}
|
