Adding upstream version 2.21.3+deb11u1.upstream/2.21.3+deb11u1upstream

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

1 files changed, 607 insertions, 0 deletions

diff --git a/scripts/mk-build-deps.pl b/scripts/mk-build-deps.pl
new file mode 100755
index 0000000..b0aae66
--- /dev/null
+++ b/scripts/mk-build-deps.pl
@@ -0,0 +1,607 @@
+#!/usr/bin/perl
+
+# mk-build-deps: make a dummy package to satisfy build-deps of a package
+# Copyright 2008 by Vincent Fourmond
+#
+# 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, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+# Changes:
+# * (Vincent Fourmond 4/4/2008): now take Build-Depends-Indep
+#   into consideration
+
+=head1 NAME
+
+mk-build-deps - build a package satisfying a package's build-dependencies
+
+=head1 SYNOPSIS
+
+B<mk-build-deps> B<--help>|B<--version>
+
+B<mk-build-deps> [I<options>] I<control file> | I<package name> ...
+
+=head1 DESCRIPTION
+
+Given a I<package name> and/or I<control file>, B<mk-build-deps>
+will use B<equivs> to generate a binary package which may be installed to
+satisfy all the build dependencies of the given package.
+
+If B<--build-dep> and/or B<--build-indep> are given, then the resulting binary
+package(s) will depend solely on the Build-Depends/Build-Depends-Indep
+dependencies, respectively.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-i>, B<--install>
+
+Install the generated packages and its build-dependencies.
+
+=item B<-t>, B<--tool>
+
+When installing the generated package use the specified tool.
+(default: B<apt-get -o Debug::pkgProblemResolver=yes --no-install-recommends>)
+
+=item B<-r>, B<--remove>
+
+Remove the package file after installing it. Ignored if used without
+the B<--install> switch.
+
+=item B<-a> I<foo>, B<--arch> I<foo>
+
+Set the architecture of the produced binary package to I<foo>. If this option
+is not given, fall back to the value given by B<--host-arch>. If neither this
+option nor B<--host-arch> are given but the Build-Depends contain architecture
+restrictions, use the value printed by `dpkg-architecture -qDEB_HOST_ARCH`.
+Otherwise, use I<all>.
+
+The package architecture must be equal to the host architecture except if the
+package architecture is I<all>.
+
+The package architecture cannot be I<all> if the build and host architecture
+differ.
+
+=item B<--host-arch> I<foo>
+
+Set the host architecture the binary package is built for. This defaults to
+the value printed by `dpkg-architecture -qDEB_HOST_ARCH`. Use this option to
+create a binary package that is able to satisfy crossbuild dependencies.
+
+If this option is used together with B<--arch>, then they must be equal except
+if the value of B<--arch> is I<all>.
+
+If B<--arch> is not given, then this option also sets the package architecture.
+
+=item B<--build-arch> I<foo>
+
+Set the build architecture the binary package is built for. This defaults to
+the value printed by `dpkg-architecture -qDEB_BUILD_ARCH`. Use this option to
+create a binary package that is able to satisfy crossbuild dependencies.
+
+=item B<-B>, B<--build-dep>
+
+Generate a package which only depends on the source package's Build-Depends
+dependencies.
+
+=item B<-A>, B<--build-indep>
+
+Generate a package which only depends on the source package's
+Build-Depends-Indep dependencies.
+
+=item B<-P>, B<--build-profiles> I<profile[,...]>
+
+Generate a package which only depends on build dependencies
+with the build profile(s), given as a comma-separated list.
+The default behavior is to use no specific profile.
+Setting this option will override the B<DEB_BUILD_PROFILES>
+environment variable.
+
+=item B<-h>, B<--help>
+
+Show a summary of options.
+
+=item B<-v>, B<--version>
+
+Show version and copyright information.
+
+=item B<-s>, B<--root-cmd>
+
+Use the specified tool to gain root privileges before installing.
+Ignored if used without the B<--install> switch.
+
+=back
+
+=head1 ENVIRONMENT
+
+=head2 External environment
+
+=over 4
+
+=item B<DEB_BUILD_PROFILES>
+
+If set, it will be used as the active build profile(s) for the
+build dependencies to be installed.
+It is a space separated list of profile names.
+Overridden by the B<-P> option.
+
+=back
+
+=head1 AUTHOR
+
+B<mk-build-deps> is copyright by Vincent Fourmond and was modified for the
+devscripts package by Adam D. Barratt <adam@adam-barratt.org.uk>.
+
+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.
+
+=cut
+
+use 5.01;
+use strict;
+use warnings;
+use Getopt::Long qw(:config bundling permute no_getopt_compat);
+use File::Basename;
+use Pod::Usage;
+use Dpkg::Control;
+use Dpkg::Version;
+use Dpkg::IPC;
+use Dpkg::Deps;
+use FileHandle;
+use Text::ParseWords;
+
+my $progname = basename($0);
+my $opt_install;
+my $opt_remove = 0;
+my ($opt_help, $opt_version, $opt_arch, $opt_dep, $opt_indep, $opt_hostarch,
+    $opt_buildarch, $opt_buildprofiles);
+my $control;
+my $install_tool;
+my $root_cmd;
+my @packages;
+
+my @config_files = ('/etc/devscripts.conf', '~/.devscripts');
+my %config_vars  = (
+    'MKBUILDDEPS_TOOL' =>
+'/usr/bin/apt-get -o Debug::pkgProblemResolver=yes --no-install-recommends',
+    'MKBUILDDEPS_REMOVE_AFTER_INSTALL' => 'no',
+    'MKBUILDDEPS_ROOTCMD'              => '',
+);
+my %config_default = %config_vars;
+
+my $shell_cmd;
+# Set defaults
+foreach my $var (keys %config_vars) {
+    $shell_cmd .= qq[$var="$config_vars{$var}";\n];
+}
+$shell_cmd .= 'for file in ' . join(" ", @config_files) . "; do\n";
+$shell_cmd .= '[ -f $file ] && . $file; done;' . "\n";
+# Read back values
+foreach my $var (keys %config_vars) { $shell_cmd .= "echo \$$var;\n" }
+my $shell_out = `/bin/bash -c '$shell_cmd'`;
+@config_vars{ keys %config_vars } = split /\n/, $shell_out, -1;
+
+# Check validity
+$config_vars{'MKBUILDDEPS_TOOL'} =~ /./
+  or $config_vars{'MKBUILDDEPS_TOOL'} = $config_default{'MKBUILDDEPS_TOOL'};
+$config_vars{'MKBUILDDEPS_REMOVE_AFTER_INSTALL'} =~ /^(yes|no)$/
+  or $config_vars{'MKBUILDDEPS_REMOVE_AFTER_INSTALL'}
+  = $config_default{'MKBUILDDEPS_REMOVE_AFTER_INSTALL'};
+$config_vars{'MKBUILDDEPS_ROOTCMD'} =~ /./
+  or $config_vars{'MKBUILDDEPS_ROOTCMD'}
+  = $config_default{'MKBUILDDEPS_ROOTCMD'};
+
+$install_tool = $config_vars{'MKBUILDDEPS_TOOL'};
+
+if ($config_vars{'MKBUILDDEPS_REMOVE_AFTER_INSTALL'} =~ /yes/) {
+    $opt_remove = 1;
+}
+
+sub usage {
+    my ($exitval) = @_;
+
+    my $verbose = $exitval ? 0 : 1;
+    pod2usage({ -exitval => 'NOEXIT', -verbose => $verbose });
+
+    if ($verbose) {
+        my $modified_conf_msg;
+        foreach my $var (sort keys %config_vars) {
+            if ($config_vars{$var} ne $config_default{$var}) {
+                $modified_conf_msg .= "  $var=$config_vars{$var}\n";
+            }
+        }
+        $modified_conf_msg ||= "  (none)\n";
+        chomp $modified_conf_msg;
+        print <<EOF;
+Default settings modified by devscripts configuration files:
+$modified_conf_msg
+EOF
+    }
+
+    exit $exitval;
+}
+
+GetOptions(
+    "help|h"             => \$opt_help,
+    "version|v"          => \$opt_version,
+    "install|i"          => \$opt_install,
+    "remove|r"           => \$opt_remove,
+    "tool|t=s"           => \$install_tool,
+    "arch|a=s"           => \$opt_arch,
+    "host-arch=s"        => \$opt_hostarch,
+    "build-arch=s"       => \$opt_buildarch,
+    "build-dep|B"        => \$opt_dep,
+    "build-indep|A"      => \$opt_indep,
+    "build-profiles|P=s" => \$opt_buildprofiles,
+    "root-cmd|s=s"       => \$root_cmd,
+) or usage(1);
+
+usage(0) if ($opt_help);
+
+if ($opt_version) { version(); exit 0; }
+
+if (!@ARGV) {
+    if (-r 'debian/control') {
+        push(@ARGV, 'debian/control');
+    }
+}
+
+usage(1) unless @ARGV;
+
+system("command -v equivs-build >/dev/null 2>&1");
+if ($?) {
+    die "$progname: You must have equivs installed to use this program.\n";
+}
+
+while ($control = shift) {
+    my ($name, $fh, $descr, $pid);
+    if (-r $control and -f $control) {
+        open $fh, $control;
+        unless (defined $fh) {
+            warn "Unable to open $control: $!\n";
+            next;
+        }
+        $name  = 'Source';
+        $descr = "control file `$control'";
+    } else {
+        $fh  = FileHandle->new();
+        $pid = spawn(
+            exec      => ['apt-cache', 'showsrc', $control],
+            from_file => '/dev/null',
+            to_pipe   => $fh
+        );
+        unless (defined $pid) {
+            warn "Unable to run apt-cache: $!\n";
+            next;
+        }
+        $name  = 'Package';
+        $descr = "`apt-cache showsrc $control'";
+    }
+
+    my (@pkgInfo, @versions);
+    until (eof $fh) {
+        my $ctrl = Dpkg::Control->new(allow_pgp => 1, type => CTRL_UNKNOWN);
+        # parse() dies if the file isn't syntactically valid and returns undef
+        # if there simply weren't any fields parsed
+        unless ($ctrl->parse($fh, $descr)) {
+            warn "$progname: Unable to find package name in $descr\n";
+            next;
+        }
+        unless (exists $ctrl->{$name}) {
+            next;
+        }
+        my $args = '';
+        my $arch = 'all';
+        my ($build_deps, $build_dep, $build_dep_arch, $build_indep);
+        my ($build_conflicts, $build_conflict, $conflict_arch,
+            $conflict_indep);
+
+        if (exists $ctrl->{'Build-Depends'}) {
+            $build_dep = $ctrl->{'Build-Depends'};
+            $build_dep =~ s/\n/ /g;
+            $build_deps = $build_dep;
+        }
+        if (exists $ctrl->{'Build-Depends-Arch'}) {
+            $build_dep_arch = $ctrl->{'Build-Depends-Arch'};
+            $build_dep_arch =~ s/\n/ /g;
+            $build_dep  .= ', ' if $build_dep;
+            $build_dep  .= $build_dep_arch;
+            $build_deps .= ', ' if $build_deps;
+            $build_deps .= $build_dep_arch;
+        }
+        if (exists $ctrl->{'Build-Depends-Indep'}) {
+            $build_indep = $ctrl->{'Build-Depends-Indep'};
+            $build_indep =~ s/\n/ /g;
+            $build_deps .= ', ' if $build_deps;
+            $build_deps .= $build_indep;
+        }
+        if (exists $ctrl->{'Build-Conflicts'}) {
+            $build_conflict = $ctrl->{'Build-Conflicts'};
+            $build_conflict =~ s/\n/ /g;
+            $build_conflicts = $build_conflict;
+        }
+        if (exists $ctrl->{'Build-Conflicts-Arch'}) {
+            $conflict_arch = $ctrl->{'Build-Conflicts-Arch'};
+            $conflict_arch =~ s/\n/ /g;
+            $build_conflict  .= ', ' if $build_conflict;
+            $build_conflict  .= $conflict_arch;
+            $build_conflicts .= ', ' if $build_conflicts;
+            $build_conflicts .= $conflict_arch;
+        }
+        if (exists $ctrl->{'Build-Conflicts-Indep'}) {
+            $conflict_indep = $ctrl->{'Build-Conflicts-Indep'};
+            $conflict_indep =~ s/\n/ /g;
+            $build_conflicts .= ', ' if $build_conflicts;
+            $build_conflicts .= $conflict_indep;
+        }
+
+        warn "$progname: Unable to find build-deps for $ctrl->{$name}\n"
+          unless $build_deps;
+
+        if (exists $ctrl->{Version}) {
+            push(@versions, $ctrl->{Version});
+        } elsif ($name eq 'Source') {
+            (my $changelog = $control) =~ s@control$@changelog@;
+            if (-f $changelog) {
+                require Dpkg::Changelog::Parse;
+                my $log = Dpkg::Changelog::Parse::changelog_parse(
+                    file => $changelog);
+                if ($ctrl->{$name} eq $log->{$name}) {
+                    $ctrl->{Version} = $log->{Version};
+                    push(@versions, $log->{Version});
+                }
+            }
+        }
+
+        # Only build a package with both B-D and B-D-I in Depends if the
+        # B-D/B-D-I specific packages weren't requested
+        if (!($opt_dep || $opt_indep)) {
+            push(
+                @pkgInfo,
+                {
+                    depends   => $build_deps,
+                    conflicts => $build_conflicts,
+                    name      => $ctrl->{$name},
+                    type      => 'build-deps',
+                    version   => $ctrl->{Version} });
+            next;
+        }
+        if ($opt_dep) {
+            push(
+                @pkgInfo,
+                {
+                    depends   => $build_dep,
+                    conflicts => $build_conflict,
+                    name      => $ctrl->{$name},
+                    type      => 'build-deps-depends',
+                    version   => $ctrl->{Version} });
+        }
+        if ($opt_indep) {
+            push(
+                @pkgInfo,
+                {
+                    depends   => $build_indep,
+                    conflicts => $conflict_indep,
+                    name      => $ctrl->{$name},
+                    type      => 'build-deps-indep',
+                    version   => $ctrl->{Version} });
+        }
+    }
+    wait_child($pid, nocheck => 1) if defined $pid;
+    # Only use the newest version.  We'll only have this if processing showsrc
+    # output or a dsc file.
+    if (@versions) {
+        @versions = map { $_->[0] }
+          sort { $b->[1] <=> $a->[1] }
+          map { [$_, Dpkg::Version->new($_)] } @versions;
+        push(@packages,
+            map { build_equiv($_) }
+            grep { $versions[0] eq $_->{version} } @pkgInfo);
+    } elsif (@pkgInfo) {
+        push(@packages, build_equiv($pkgInfo[0]));
+    } else {
+        die "$progname: Unable to find package name in $descr\n";
+    }
+}
+
+if ($opt_install) {
+    my @root;
+    if ($root_cmd) {
+        push(@root, shellwords($root_cmd));
+    }
+
+    my (@pkg_names, @deb_files, %uniq);
+    for my $package (@packages) {
+        if ($uniq{ $package->{deb_file} }++ == 0) {
+            push @pkg_names, $package->{package};
+            push @deb_files, $package->{deb_file};
+        }
+    }
+
+    system @root, 'dpkg', '--unpack', @deb_files;
+    die("$progname: dpkg --unpack failed\n") if (($? >> 8) != 0);
+    system @root, shellwords($install_tool), '-f', 'install';
+    my $err = $? >> 8;
+    if (!$err) {
+        # $install_tool succeeded. Did the packages get installed? It's
+        # possible that they didn't because $install_tool may have realized
+        # that installation was impossible, and it could have given up,
+        # successfully.
+        for (my $i = 0 ; $i < @pkg_names ; $i++) {
+            my $pkg = $pkg_names[$i];
+            my $status;
+            spawn(
+                exec =>
+                  ['dpkg-query', '-W', '-f', '${db:Status-Status}', $pkg],
+                to_string     => \$status,
+                error_to_file => '/dev/null',
+                nocheck       => 1,
+                wait_child    => 1
+            );
+            if ($status ne 'installed' || ($? >> 8)) {
+                # Restore system to previous state, since $install_tool wasn't
+                # able to resolve a proper way to get the build-dep packages
+                # installed
+                warn "$progname: Unable to install $pkg";
+                $err = 1;
+            } elsif ($opt_remove) {
+                unlink $deb_files[$i];
+            }
+        }
+        if ($err) {
+            die "$progname: Unable to install all build-dep packages\n";
+        }
+    } else {
+        # Restore system to previous state, since $install_tool wasn't able to
+        # resolve a proper way to get the build-dep packages installed
+        system @root, 'dpkg', '--remove', @pkg_names;
+        die("$progname: Unable to install all build-dep packages\n");
+    }
+}
+
+sub version {
+    print <<"EOF";
+This is $progname, from the Debian devscripts package, version ###VERSION###
+Copyright (C) 2008 Vincent Fourmond
+
+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 (at your option) any
+later version.
+EOF
+}
+
+sub build_equiv {
+    my ($opts) = @_;
+    my $args = '';
+
+    my $packagearch = 'all';
+
+    if (defined $opt_arch) {
+        $packagearch = $opt_arch;
+    } elsif (defined $opt_hostarch) {
+        $packagearch = $opt_hostarch;
+    } elsif ($opts->{depends} =~ m/\[|\]/) {
+        chomp($packagearch = `dpkg-architecture -qDEB_HOST_ARCH`);
+    }
+    if ($packagearch ne "all") {
+        $args .= "--arch=$packagearch ";
+    }
+
+    chomp(my $buildarch = `dpkg-architecture -qDEB_BUILD_ARCH`);
+    if (defined $opt_buildarch) {
+        $buildarch = $opt_buildarch;
+    }
+
+    chomp(my $hostarch = `dpkg-architecture -qDEB_HOST_ARCH`);
+    if (defined $opt_hostarch) {
+        $hostarch = $opt_hostarch;
+    }
+
+    if ($packagearch eq "all") {
+        if ($buildarch ne $hostarch) {
+            die
+"build architecture \"$buildarch\" is unequal host architecture \"$hostarch\" in which case the package architecture must not be \"all\" (but \"$hostarch\" instead)\n";
+        }
+    } elsif ($packagearch ne $hostarch) {
+        die
+"The package architecture must be equal to the host architecture except if the package architecture is \"all\"\n";
+    }
+
+    my $build_profiles = [split /\s+/, ($ENV{'DEB_BUILD_PROFILES'} // "")];
+    if (defined $opt_buildprofiles) {
+        $build_profiles = [split /,/, $opt_buildprofiles];
+    }
+
+    my $positive = deps_parse(
+        $opts->{depends} // "",
+        reduce_arch     => 1,
+        host_arch       => $hostarch,
+        build_arch      => $buildarch,
+        build_dep       => 1,
+        reduce_profiles => 1,
+        build_profiles  => $build_profiles
+    );
+    my $negative = deps_parse(
+        $opts->{conflicts} // "",
+        reduce_arch     => 1,
+        host_arch       => $hostarch,
+        build_arch      => $buildarch,
+        build_dep       => 1,
+        union           => 1,
+        reduce_profiles => 1,
+        build_profiles  => $build_profiles
+    );
+
+    # either remove :native for native builds or replace it by the build
+    # architecture
+    my $handle_native_archqual = sub {
+        my ($dep) = @_;
+        if ($dep->{archqual} && $dep->{archqual} eq "native") {
+            if ($hostarch eq $buildarch) {
+                $dep->{archqual} = undef;
+            } else {
+                $dep->{archqual} = $buildarch;
+            }
+        }
+        return 1;
+    };
+    deps_iterate($positive, $handle_native_archqual);
+    deps_iterate($negative, $handle_native_archqual);
+
+    my $pkgname;
+    my $buildess = "build-essential:$buildarch";
+    if ($buildarch eq $hostarch) {
+        $pkgname = "$opts->{name}-$opts->{type}";
+    } else {
+        $pkgname = "$opts->{name}-cross-$opts->{type}";
+        $buildess .= ", crossbuild-essential-$hostarch:$buildarch";
+    }
+
+    my $readme = '/usr/share/devscripts/templates/README.mk-build-deps';
+    open EQUIVS, "| equivs-build $args-"
+      or die "$progname: Failed to execute equivs-build: $!\n";
+    print EQUIVS "Section: devel\n"
+      . "Priority: optional\n"
+      . "Standards-Version: 3.7.3\n\n"
+      . "Package: $pkgname\n"
+      . "Architecture: $packagearch\n"
+      . "Depends: $buildess, $positive\n";
+
+    print EQUIVS "Conflicts: $negative\n" if $negative;
+
+    # Allow the file not to exist to ease testing
+    print EQUIVS "Readme: $readme\n" if -r $readme;
+
+    my $version = '1.0';
+    if (defined $opts->{version}) {
+        $version = $opts->{version};
+    }
+    print EQUIVS "Version: $version\n";
+
+    print EQUIVS "Description: build-dependencies for $opts->{name}\n"
+      . " Dependency package to build the '$opts->{name}' package\n";
+
+    close EQUIVS;
+
+    my $v = Dpkg::Version->new($version);
+    # The version in the .deb filename will not contain the epoch
+    $version = $v->as_string(omit_epoch => 1);
+    my $deb_file = "${pkgname}_${version}_${packagearch}.deb";
+    return {
+        package  => $pkgname,
+        deb_file => $deb_file
+    };
+}