File Coverage

File:Dpkg/Vendor/Default.pm
Coverage:43.8%

linestmtbrancondsubpodtimecode
1# Copyright © 2009 Raphaël Hertzog <hertzog@debian.org>
2#
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 2 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program.  If not, see <https://www.gnu.org/licenses/>.
15
16=encoding utf8
17
18 - 38
=head1 NAME

Dpkg::Vendor::Default - default vendor class

=head1 DESCRIPTION

A vendor class is used to provide vendor specific behaviour
in various places. This is the default class used in case
there's none for the current vendor or in case the vendor could
not be identified (see L<Dpkg::Vendor> documentation).

It provides some hooks that are called by various dpkg-* tools.
If you need a new hook, please file a bug against dpkg-dev and explain
your need. Note that the hook API has no guarantee to be stable over an
extended period of time. If you run an important distribution that makes
use of vendor hooks, you'd better submit them for integration so that
we avoid breaking your code.

B<Note>: This is a private module, its API can change at any time.

=cut
39
40package Dpkg::Vendor::Default 0.01;
41
42
60
60
60
15773
60
954
use strict;
43
60
60
60
94
41
9837
use warnings;
44
45# If you use this file as template to create a new vendor class, please
46# uncomment the following lines
47#use parent qw(Dpkg::Vendor::Default);
48
49 - 58
=head1 METHODS

=over 4

=item $vendor_obj = Dpkg::Vendor::Default->new()

Creates the default vendor object. Can be inherited by all vendor objects
if they don't need any specific initialization at object creation time.

=cut
59
60sub new {
61
66
1
85
    my $this = shift;
62
66
289
    my $class = ref($this) || $this;
63
66
72
    my $self = {};
64
66
57
    bless $self, $class;
65
66
312
    return $self;
66}
67
68 - 169
=item $vendor_obj->run_hook($id, @params)

Run the corresponding hook. The parameters are hook-specific. The
supported hooks are:

=over 8

=item before-source-build ($srcpkg)

The first parameter is a L<Dpkg::Source::Package> object. The hook is called
just before the execution of $srcpkg->build().

=item package-keyrings ()

The hook is called when dpkg-source is checking a signature on a source
package (since dpkg 1.18.11). It takes no parameters, but returns a
(possibly empty) list of vendor-specific keyrings.

=item archive-keyrings ()

The hook is called when there is a need to check signatures on artifacts
from repositories, for example by a download method (since dpkg 1.18.11).
It takes no parameters, but returns a (possibly empty) list of
vendor-specific keyrings.

=item archive-keyrings-historic ()

The hook is called when there is a need to check signatures on artifacts
from historic repositories, for example by a download method
(since dpkg 1.18.11). It takes no parameters, but returns a (possibly empty)
list of vendor-specific keyrings.

=item builtin-build-depends ()

The hook is called when dpkg-checkbuilddeps is initializing the source
package build dependencies (since dpkg 1.18.2). It takes no parameters,
but returns a (possibly empty) list of vendor-specific B<Build-Depends>.

=item builtin-build-conflicts ()

The hook is called when dpkg-checkbuilddeps is initializing the source
package build conflicts (since dpkg 1.18.2). It takes no parameters,
but returns a (possibly empty) list of vendor-specific B<Build-Conflicts>.

=item register-custom-fields ()

The hook is called in L<Dpkg::Control::Fields> to register custom fields.
You should return a list of arrays. Each array is an operation to perform.
The first item is the name of the operation and corresponds
to a field_* function provided by L<Dpkg::Control::Fields>. The remaining
fields are the parameters that are passed unchanged to the corresponding
function.

Known operations are "register", "insert_after" and "insert_before".

=item post-process-changelog-entry ($fields)

The hook is called in L<Dpkg::Changelog> to post-process a
L<Dpkg::Changelog::Entry> after it has been created and filled with the
appropriate values.

=item update-buildflags ($flags)

The hook is called in L<Dpkg::BuildFlags> to allow the vendor to override
the default values set for the various build flags. $flags is a
L<Dpkg::BuildFlags> object.

=item builtin-system-build-paths ()

The hook is called by dpkg-genbuildinfo to determine if the current path
should be recorded in the B<Build-Path> field (since dpkg 1.18.11). It takes
no parameters, but returns a (possibly empty) list of root paths considered
acceptable. As an example, if the list contains "/build/", a Build-Path
field will be created if the current directory is "/build/dpkg-1.18.0". If
the list contains "/", the path will always be recorded. If the list is
empty, the current path will never be recorded.

=item build-tainted-by ()

The hook is called by dpkg-genbuildinfo to determine if the current system
has been tainted in some way that could affect the resulting build, which
will be recorded in the B<Build-Tainted-By> field (since dpkg 1.19.5). It
takes no parameters, but returns a (possibly empty) list of tainted reason
tags (formed by alphanumeric and dash characters).

=item sanitize-environment ()

The hook is called by dpkg-buildpackage to sanitize its build environment
(since dpkg 1.20.0).

=item backport-version-regex ()

The hook is called by dpkg-genchanges and dpkg-mergechangelog to determine
the backport version string that should be specially handled as not an earlier
than version or remapped so that it does not get considered as a pre-release
(since dpkg 1.21.3).
The returned string is a regex with one capture group for the backport
delimiter string, or undef if there is no regex.

=back

=cut
170
171sub run_hook {
172
750
1
713
    my ($self, $hook, @params) = @_;
173
174
750
1677
    if ($hook eq 'before-source-build') {
175
0
0
        my $srcpkg = shift @params;
176    } elsif ($hook eq 'package-keyrings') {
177
0
0
        return ();
178    } elsif ($hook eq 'archive-keyrings') {
179
0
0
        return ();
180    } elsif ($hook eq 'archive-keyrings-historic') {
181
0
0
        return ();
182    } elsif ($hook eq 'register-custom-fields') {
183
0
0
        return ();
184    } elsif ($hook eq 'builtin-build-depends') {
185
0
0
        return ();
186    } elsif ($hook eq 'builtin-build-conflicts') {
187
0
0
        return ();
188    } elsif ($hook eq 'post-process-changelog-entry') {
189
750
673
        my $fields = shift @params;
190    } elsif ($hook eq 'extend-patch-header') {
191
0
0
        my ($textref, $ch_info) = @params;
192    } elsif ($hook eq 'update-buildflags') {
193
0
0
        my $flags = shift @params;
194    } elsif ($hook eq 'builtin-system-build-paths') {
195
0
0
        return ();
196    } elsif ($hook eq 'build-tainted-by') {
197
0
0
        return ();
198    } elsif ($hook eq 'sanitize-environment') {
199
0
0
        return;
200    } elsif ($hook eq 'backport-version-regex') {
201
0
0
        return;
202    }
203
204    # Default return value for unknown/unimplemented hooks
205
750
1070
    return;
206}
207
208 - 213
=item $vendor->set_build_features($flags)

Sets the vendor build features, which will then be used to initialize the
build flags.

=cut
214
215sub set_build_features {
216
0
1
    my ($self, $flags) = @_;
217
218
0
    return;
219}
220
221 - 226
=item $vendor->add_build_flags($flags)

Adds the vendor build flags to the compiler flag variables based on the
vendor defaults and previously set build features.

=cut
227
228sub add_build_flags {
229
0
1
    my ($self, $flags) = @_;
230
231
0
    return;
232}
233
234=back
235
236 - 242
=head1 CHANGES

=head2 Version 0.xx

This is a private module.

=cut
243
2441;