From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

FELIPE / Linux-Perl-0.15 / lib / Linux / Perl / sigprocmask.pm 

            

              
1
2
3
4
—
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
—
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
—
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
—
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

              
package Linux::Perl::sigprocmask;
use strict;
use warnings;
=encoding utf-8
=head1 NAME
Linux::Perl::sigprocmask
=head1 SYNOPSIS
    # These all return the complete former signal mask (as numbers)
    # when called in list context.
    @oldlist = Linux::Perl::sigprocmask->block( 2, 'USR1' );
    Linux::Perl::sigprocmask->block( 2, 'USR1' );
    Linux::Perl::sigprocmask->unblock( 2, 'USR1' );
    Linux::Perl::sigprocmask->set( 2, 'USR1' );
=head1 DESCRIPTION
An implementation of the kernel’s logic to set the signal mask.
=cut
use parent 'Linux::Perl::Base';
use Linux::Perl;
use Linux::Perl::SigSet;
use constant {
    _SIG_BLOCK => 0,
    _SIG_UNBLOCK => 1,
    _SIG_SETMASK => 2,
};
#----------------------------------------------------------------------
=head1 METHODS
=head2 I<CLASS>->block( @SIGNALS )
Add to the list of currently blocked signals.
The return in list context is the group of signals that,
prior to this function call, were blocked. (Signals are
referenced by number only.)
=cut
sub block {
    return $_[0]->_do(
        _SIG_BLOCK(),
        @_[ 1 .. $#_ ],
    );
}
#----------------------------------------------------------------------
=head2 I<CLASS>->unblock( @SIGNALS )
The inverse of C<block()>.
=cut
sub unblock {
    return $_[0]->_do(
        _SIG_UNBLOCK(),
        @_[ 1 .. $#_ ],
    );
}
#----------------------------------------------------------------------
=head2 I<CLASS>->set( @SIGNALS )
Like C<block()> and C<unblock()> but sets/clobbers the entire set
of blocked signals.
=cut
sub set {
    return $_[0]->_do(
        _SIG_SETMASK(),
        @_[ 1 .. $#_ ],
    );
}
#----------------------------------------------------------------------
sub _do {
    my ($class, $how, @signals) = @_;
    my $mask = Linux::Perl::SigSet::from_list(@signals);
    my $oldmask = "\0" x length($mask);
    my $arch_module = $class->_get_arch_module();
    Linux::Perl::call(
        $arch_module->NR_rt_sigprocmask(),
        0 + $how,
        $mask,
        $oldmask,
        length $mask,
    );
    return wantarray ? Linux::Perl::SigSet::to_list($oldmask) : undef;
}
1;