summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/POSIX/SigRt')
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al9
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al9
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al9
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al12
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al9
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al9
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al15
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al13
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al14
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al17
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al14
-rw-r--r--Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al17
12 files changed, 147 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al
new file mode 100644
index 00000000000..78d3d5bb622
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/DELETE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al
new file mode 100644
index 00000000000..6bac474d05b
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al
new file mode 100644
index 00000000000..2f2c73d94a8
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/FETCH.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al
new file mode 100644
index 00000000000..ed18ab0d9b6
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/SCALAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al
new file mode 100644
index 00000000000..feec293431c
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/STORE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al
new file mode 100644
index 00000000000..f4c6466a06b
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/_check.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al
new file mode 100644
index 00000000000..c1a46c3e6c3
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/_croak.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al
new file mode 100644
index 00000000000..742d4e9cd46
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/_exist.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al
new file mode 100644
index 00000000000..075bbed6ab8
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/_getsig.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al
new file mode 100644
index 00000000000..1cdbfaaf197
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/_init.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al
new file mode 100644
index 00000000000..8ac96299ec6
--- /dev/null
+++ b/Master/tlpkg/tlperl/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/tlperl/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al
new file mode 100644
index 00000000000..30b6100a634
--- /dev/null
+++ b/Master/tlpkg/tlperl/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;