Server IP : 85.214.239.14 / Your IP : 18.189.194.225 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/perl5/Dpkg/Source/Package/V3/ |
Upload File : |
# Copyright © 2008-2012 Raphaël Hertzog <hertzog@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/>. package Dpkg::Source::Package::V3::Quilt; use strict; use warnings; our $VERSION = '0.01'; use List::Util qw(any); use File::Spec; use File::Copy; use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::File; use Dpkg::Version; use Dpkg::Source::Patch; use Dpkg::Source::Functions qw(erasedir chmod_if_needed fs_time); use Dpkg::Source::Quilt; use Dpkg::Exit; # Based on wig&pen implementation use parent qw(Dpkg::Source::Package::V2); our $CURRENT_MINOR_VERSION = '0'; sub init_options { my $self = shift; $self->{options}{single_debian_patch} //= 0; $self->{options}{allow_version_of_quilt_db} //= []; $self->SUPER::init_options(); } my @module_cmdline = ( { name => '--single-debian-patch', help => N_('use a single debianization patch'), when => 'build', }, { name => '--allow-version-of-quilt-db=<version>', help => N_('accept quilt metadata <version> even if unknown'), when => 'build', } ); sub describe_cmdline_options { my $self = shift; my @cmdline = ( $self->SUPER::describe_cmdline_options(), @module_cmdline ); return @cmdline; } sub parse_cmdline_option { my ($self, $opt) = @_; return 1 if $self->SUPER::parse_cmdline_option($opt); if ($opt eq '--single-debian-patch') { $self->{options}{single_debian_patch} = 1; # For backwards compatibility. $self->{options}{auto_commit} = 1; return 1; } elsif ($opt =~ /^--allow-version-of-quilt-db=(.*)$/) { push @{$self->{options}{allow_version_of_quilt_db}}, $1; return 1; } return 0; } sub _build_quilt_object { my ($self, $dir) = @_; return $self->{quilt}{$dir} if exists $self->{quilt}{$dir}; $self->{quilt}{$dir} = Dpkg::Source::Quilt->new($dir); return $self->{quilt}{$dir}; } sub can_build { my ($self, $dir) = @_; my ($code, $msg) = $self->SUPER::can_build($dir); return ($code, $msg) if $code == 0; my $v = Dpkg::Version->new($self->{fields}->{'Version'}); return (0, g_('non-native package version does not contain a revision')) if $v->is_native(); my $quilt = $self->_build_quilt_object($dir); $msg = $quilt->find_problems(); return (0, $msg) if $msg; return 1; } sub get_autopatch_name { my $self = shift; if ($self->{options}{single_debian_patch}) { return 'debian-changes'; } else { return 'debian-changes-' . $self->{fields}{'Version'}; } } sub apply_patches { my ($self, $dir, %opts) = @_; if ($opts{usage} eq 'unpack') { $opts{verbose} = 1; } elsif ($opts{usage} eq 'build') { $opts{warn_options} = 1; $opts{verbose} = 0; } my $quilt = $self->_build_quilt_object($dir); $quilt->load_series(%opts) if $opts{warn_options}; # Trigger warnings # Always create the quilt db so that if the maintainer calls quilt to # create a patch, it's stored in the right directory $quilt->save_db(); # Update debian/patches/series symlink if needed to allow quilt usage my $series = $quilt->get_series_file(); my $basename = (File::Spec->splitpath($series))[2]; if ($basename ne 'series') { my $dest = $quilt->get_patch_file('series'); unlink($dest) if -l $dest; unless (-f _) { # Don't overwrite real files symlink($basename, $dest) or syserr(g_("can't create symlink %s"), $dest); } } return unless scalar($quilt->series()); info(g_('using patch list from %s'), "debian/patches/$basename"); if ($opts{usage} eq 'preparation' and $self->{options}{unapply_patches} eq 'auto') { # We're applying the patches in --before-build, remember to unapply # them afterwards in --after-build my $pc_unapply = $quilt->get_db_file('.dpkg-source-unapply'); file_touch($pc_unapply); } # Apply patches my $pc_applied = $quilt->get_db_file('applied-patches'); $opts{timestamp} = fs_time($pc_applied); if ($opts{skip_auto}) { my $auto_patch = $self->get_autopatch_name(); $quilt->push(%opts) while ($quilt->next() and $quilt->next() ne $auto_patch); } else { $quilt->push(%opts) while $quilt->next(); } } sub unapply_patches { my ($self, $dir, %opts) = @_; my $quilt = $self->_build_quilt_object($dir); $opts{verbose} //= 1; my $pc_applied = $quilt->get_db_file('applied-patches'); my @applied = $quilt->applied(); $opts{timestamp} = fs_time($pc_applied) if @applied; $quilt->pop(%opts) while $quilt->top(); erasedir($quilt->get_db_dir()); } sub prepare_build { my ($self, $dir) = @_; $self->SUPER::prepare_build($dir); # Skip .pc directories of quilt by default and ignore difference # on debian/patches/series symlinks and d/p/.dpkg-source-applied # stamp file created by ourselves my $func = sub { my $pathname = shift; return 1 if $pathname eq 'debian/patches/series' and -l $pathname; return 1 if $pathname =~ /^\.pc(\/|$)/; return 1 if $pathname =~ /$self->{options}{diff_ignore_regex}/; return 0; }; $self->{diff_options}{diff_ignore_func} = $func; } sub do_build { my ($self, $dir) = @_; my $quilt = $self->_build_quilt_object($dir); my $version = $quilt->get_db_version(); if (defined($version) and $version != 2) { if (any { $version eq $_ } @{$self->{options}{allow_version_of_quilt_db}}) { warning(g_('unsupported version of the quilt metadata: %s'), $version); } else { error(g_('unsupported version of the quilt metadata: %s'), $version); } } $self->SUPER::do_build($dir); } sub after_build { my ($self, $dir) = @_; my $quilt = $self->_build_quilt_object($dir); my $pc_unapply = $quilt->get_db_file('.dpkg-source-unapply'); my $opt_unapply = $self->{options}{unapply_patches}; if (($opt_unapply eq 'auto' and -e $pc_unapply) or $opt_unapply eq 'yes') { unlink($pc_unapply); $self->unapply_patches($dir); } } sub check_patches_applied { my ($self, $dir) = @_; my $quilt = $self->_build_quilt_object($dir); my $next = $quilt->next(); return if not defined $next; my $first_patch = File::Spec->catfile($dir, 'debian', 'patches', $next); my $patch_obj = Dpkg::Source::Patch->new(filename => $first_patch); return unless $patch_obj->check_apply($dir, fatal_dupes => 1); $self->apply_patches($dir, usage => 'preparation', verbose => 1); } sub register_patch { my ($self, $dir, $tmpdiff, $patch_name) = @_; my $quilt = $self->_build_quilt_object($dir); my $patch = $quilt->get_patch_file($patch_name); if (-s $tmpdiff) { copy($tmpdiff, $patch) or syserr(g_('failed to copy %s to %s'), $tmpdiff, $patch); chmod_if_needed(0666 & ~ umask(), $patch) or syserr(g_("unable to change permission of '%s'"), $patch); } elsif (-e $patch) { unlink($patch) or syserr(g_('cannot remove %s'), $patch); } if (-e $patch) { # Add patch to series file $quilt->register($patch_name); } else { # Remove auto_patch from series $quilt->unregister($patch_name); } return $patch; } 1;