require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(!defined (&_SYS_WAIT_H) && !defined (&_STDLIB_H)) { die("Never include directly; use 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); if(defined(&__USE_BSD)) { require 'endian.ph'; if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) { } if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) { } if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) { } if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) { } eval 'sub w_termsig () { ($__wait_terminated->{__w_termsig});}' unless defined(&w_termsig); eval 'sub w_coredump () { ($__wait_terminated->{__w_coredump});}' unless defined(&w_coredump); eval 'sub w_retcode () { ($__wait_terminated->{__w_retcode});}' unless defined(&w_retcode); eval 'sub w_stopsig () { ($__wait_stopped->{__w_stopsig});}' unless defined(&w_stopsig); eval 'sub w_stopval () { ($__wait_stopped->{__w_stopval});}' unless defined(&w_stopval); } 1;