????
Current Path : /proc/thread-self/root/proc/thread-self/root/usr/lib64/perl5/bits/ |
Current File : //proc/thread-self/root/proc/thread-self/root/usr/lib64/perl5/bits/waitstatus.ph |
require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(!defined (&_SYS_WAIT_H) && !defined (&_STDLIB_H)) { die("Never include <bits/waitstatus.h> directly; use <sys/wait.h> instead."); } unless(defined(&__WEXITSTATUS)) { sub __WEXITSTATUS { my($status) = @_; eval q(((($status) & 0xff00) >> 8)); } } unless(defined(&__WTERMSIG)) { sub __WTERMSIG { my($status) = @_; eval q((($status) & 0x7f)); } } unless(defined(&__WSTOPSIG)) { sub __WSTOPSIG { my($status) = @_; eval q( &__WEXITSTATUS($status)); } } unless(defined(&__WIFEXITED)) { sub __WIFEXITED { my($status) = @_; eval q(( &__WTERMSIG($status) == 0)); } } unless(defined(&__WIFSIGNALED)) { sub __WIFSIGNALED { my($status) = @_; eval q((( ((($status) & 0x7f) + 1) >> 1) > 0)); } } unless(defined(&__WIFSTOPPED)) { sub __WIFSTOPPED { my($status) = @_; eval q(((($status) & 0xff) == 0x7f)); } } if(defined(&WCONTINUED)) { eval 'sub __WIFCONTINUED { my($status) = @_; eval q((($status) == &__W_CONTINUED)); }' unless defined(&__WIFCONTINUED); } unless(defined(&__WCOREDUMP)) { sub __WCOREDUMP { my($status) = @_; eval q((($status) & &__WCOREFLAG)); } } unless(defined(&__W_EXITCODE)) { sub __W_EXITCODE { my($ret, $sig) = @_; eval q((($ret) << 8| ($sig))); } } unless(defined(&__W_STOPCODE)) { sub __W_STOPCODE { my($sig) = @_; eval q((($sig) << 8| 0x7f)); } } eval 'sub __W_CONTINUED () {0xffff;}' unless defined(&__W_CONTINUED); eval 'sub __WCOREFLAG () {0x80;}' unless defined(&__WCOREFLAG); 1;