D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
blackhat.pw
:
/
kunden
/
kunden
/
usr
/
share
/
perl5
/
Dpkg
/
Filename :
BuildTypes.pm
back
Copy
# Copyright © 2007 Frank Lichtenheld <djpig@debian.org> # Copyright © 2010, 2013-2016 Guillem Jover <guillem@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/>. =encoding utf8 =head1 NAME Dpkg::BuildTypes - track build types =head1 DESCRIPTION The Dpkg::BuildTypes module is used by various tools to track and decide what artifacts need to be built. The build types are bit constants that are exported by default. Multiple types can be ORed. B<Note>: This is a private module, its API can change at any time. =cut package Dpkg::BuildTypes 0.02; use strict; use warnings; our @EXPORT = qw( BUILD_DEFAULT BUILD_SOURCE BUILD_ARCH_DEP BUILD_ARCH_INDEP BUILD_BINARY BUILD_FULL build_has_any build_has_all build_has_none build_is set_build_type set_build_type_from_options set_build_type_from_targets get_build_options_from_type ); use Exporter qw(import); use Dpkg::Gettext; use Dpkg::ErrorHandling; =head1 CONSTANTS =over 4 =item BUILD_DEFAULT This build is the default. =item BUILD_SOURCE This build includes source artifacts. =item BUILD_ARCH_DEP This build includes architecture dependent binary artifacts. =item BUILD_ARCH_INDEP This build includes architecture independent binary artifacts. =item BUILD_BINARY This build includes binary artifacts. =item BUILD_FULL This build includes source and binary artifacts. =cut # Simple types. use constant { BUILD_DEFAULT => 1, BUILD_SOURCE => 2, BUILD_ARCH_DEP => 4, BUILD_ARCH_INDEP => 8, }; # Composed types. use constant BUILD_BINARY => BUILD_ARCH_DEP | BUILD_ARCH_INDEP; use constant BUILD_FULL => BUILD_BINARY | BUILD_SOURCE; my $current_type = BUILD_FULL | BUILD_DEFAULT; my $current_option = undef; my @build_types = qw(full source binary any all); my %build_types = ( full => BUILD_FULL, source => BUILD_SOURCE, binary => BUILD_BINARY, any => BUILD_ARCH_DEP, all => BUILD_ARCH_INDEP, ); my %build_targets = ( 'clean' => BUILD_SOURCE, 'build' => BUILD_BINARY, 'build-arch' => BUILD_ARCH_DEP, 'build-indep' => BUILD_ARCH_INDEP, 'binary' => BUILD_BINARY, 'binary-arch' => BUILD_ARCH_DEP, 'binary-indep' => BUILD_ARCH_INDEP, ); =back =head1 FUNCTIONS =over 4 =item build_has_any($bits) Return a boolean indicating whether the current build type has any of the specified $bits. =cut sub build_has_any { my ($bits) = @_; return $current_type & $bits; } =item build_has_all($bits) Return a boolean indicating whether the current build type has all the specified $bits. =cut sub build_has_all { my ($bits) = @_; return ($current_type & $bits) == $bits; } =item build_has_none($bits) Return a boolean indicating whether the current build type has none of the specified $bits. =cut sub build_has_none { my ($bits) = @_; return !($current_type & $bits); } =item build_is($bits) Return a boolean indicating whether the current build type is the specified set of $bits. =cut sub build_is { my ($bits) = @_; return $current_type == $bits; } =item set_build_type($build_type, $build_option, %opts) Set the current build type to $build_type, which was specified via the $build_option command-line option. The function will check and abort on incompatible build type assignments, this behavior can be disabled by using the boolean option "nocheck". =cut sub set_build_type { my ($build_type, $build_option, %opts) = @_; usageerr(g_('cannot combine %s and %s'), $current_option, $build_option) if not $opts{nocheck} and build_has_none(BUILD_DEFAULT) and $current_type != $build_type; $current_type = $build_type; $current_option = $build_option; } =item set_build_type_from_options($build_types, $build_option, %opts) Set the current build type from a list of comma-separated build type components. The function will check and abort on incompatible build type assignments, this behavior can be disabled by using the boolean option "nocheck". =cut sub set_build_type_from_options { my ($build_parts, $build_option, %opts) = @_; my $build_type = 0; foreach my $type (split /,/, $build_parts) { usageerr(g_('unknown build type %s'), $type) unless exists $build_types{$type}; $build_type |= $build_types{$type}; } set_build_type($build_type, $build_option, %opts); } =item set_build_type_from_targets($build_targets, $build_option, %opts) Set the current build type from a list of comma-separated build target components. The function will check and abort on incompatible build type assignments, this behavior can be disabled by using the boolean option "nocheck". =cut sub set_build_type_from_targets { my ($build_targets, $build_option, %opts) = @_; my $build_type = 0; foreach my $target (split /,/, $build_targets) { $build_type |= $build_targets{$target} // BUILD_BINARY; } set_build_type($build_type, $build_option, %opts); } =item get_build_options_from_type() Get the current build type as a set of comma-separated string options. =cut sub get_build_options_from_type { my $local_type = $current_type; my @parts; foreach my $type (@build_types) { my $part_bits = $build_types{$type}; if (($local_type & $part_bits) == $part_bits) { push @parts, $type; $local_type &= ~$part_bits; } } return join ',', @parts; } =back =head1 CHANGES =head2 Version 0.xx This is a private module. =cut 1;