Adding upstream version 2.23.7.upstream/2.23.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 216 insertions, 0 deletions

diff --git a/scripts/cvs-debuild.pl b/scripts/cvs-debuild.pl
new file mode 100755
index 0000000..4a33f0f
--- /dev/null
+++ b/scripts/cvs-debuild.pl
@@ -0,0 +1,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;
+}