diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt')
12 files changed, 147 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/CLEAR.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/CLEAR.al new file mode 100755 index 00000000000..78d3d5bb622 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/CLEAR.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1041 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\CLEAR.al)" +sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } +# end of POSIX::SigRt::CLEAR +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/DELETE.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/DELETE.al new file mode 100755 index 00000000000..6bac474d05b --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/DELETE.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1040 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\DELETE.al)" +sub DELETE { delete $SIG{ &_check } } +# end of POSIX::SigRt::DELETE +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/EXISTS.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/EXISTS.al new file mode 100755 index 00000000000..2f2c73d94a8 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/EXISTS.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1034 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\EXISTS.al)" +sub EXISTS { &_exist } +# end of POSIX::SigRt::EXISTS +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/FETCH.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/FETCH.al new file mode 100755 index 00000000000..ed18ab0d9b6 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/FETCH.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1035 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" +sub FETCH { my $rtsig = &_check; + my $oa = POSIX::SigAction->new(); + POSIX::sigaction($rtsig, undef, $oa); + return $oa->{HANDLER} } +# end of POSIX::SigRt::FETCH +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/SCALAR.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/SCALAR.al new file mode 100755 index 00000000000..feec293431c --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/SCALAR.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1042 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\SCALAR.al)" +sub SCALAR { &_croak; $_sigrtn + 1 } +1; +# end of POSIX::SigRt::SCALAR diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/STORE.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/STORE.al new file mode 100755 index 00000000000..f4c6466a06b --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/STORE.al @@ -0,0 +1,9 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1039 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\STORE.al)" +sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } +# end of POSIX::SigRt::STORE +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_check.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_check.al new file mode 100755 index 00000000000..c1a46c3e6c3 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_check.al @@ -0,0 +1,15 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1018 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_check.al)" +sub _check { + my ($rtsig, $ok) = &_exist; + die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" + unless $ok; + return $rtsig; +} + +# end of POSIX::SigRt::_check +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_croak.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_croak.al new file mode 100755 index 00000000000..742d4e9cd46 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_croak.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 998 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_croak.al)" +sub _croak { + &_init unless defined $_sigrtn; + die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; +} + +# end of POSIX::SigRt::_croak +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_exist.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_exist.al new file mode 100755 index 00000000000..075bbed6ab8 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_exist.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1012 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_exist.al)" +sub _exist { + my $rtsig = _getsig($_[1]); + my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; + ($rtsig, $ok); +} + +# end of POSIX::SigRt::_exist +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_getsig.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_getsig.al new file mode 100755 index 00000000000..1cdbfaaf197 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_getsig.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1003 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_getsig.al)" +sub _getsig { + &_croak; + my $rtsig = $_[0]; + # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. + $rtsig = $_SIGRTMIN + ($1 || 0) + if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; + return $rtsig; +} + +# end of POSIX::SigRt::_getsig +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_init.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_init.al new file mode 100755 index 00000000000..8ac96299ec6 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/_init.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 992 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_init.al)" +sub _init { + $_SIGRTMIN = &POSIX::SIGRTMIN; + $_SIGRTMAX = &POSIX::SIGRTMAX; + $_sigrtn = $_SIGRTMAX - $_SIGRTMIN; +} + +# end of POSIX::SigRt::_init +1; diff --git a/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/new.al new file mode 100755 index 00000000000..30b6100a634 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/auto/POSIX/SigRt/new.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX::SigRt; + +#line 1025 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)" +sub new { + my ($rtsig, $handler, $flags) = @_; + my $sigset = POSIX::SigSet->new($rtsig); + my $sigact = POSIX::SigAction->new($handler, + $sigset, + $flags); + POSIX::sigaction($rtsig, $sigact); +} + +# end of POSIX::SigRt::new +1; |