usr/lib64/perl5/bits/select.ph000064400000002555147204727460012121 0ustar00require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SELECT_H)) { die("Never use directly; include instead."); } require 'bits/wordsize.ph'; if(defined (&__GNUC__) && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) { if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { eval 'sub __FD_ZERO_STOS () {"stosq";}' unless defined(&__FD_ZERO_STOS); } else { eval 'sub __FD_ZERO_STOS () {"stosl";}' unless defined(&__FD_ZERO_STOS); } eval 'sub __FD_ZERO { my($fdsp) = @_; eval q(\\"(assembly code)\\"); }' unless defined(&__FD_ZERO); } else { eval 'sub __FD_ZERO { my($set) = @_; eval q( &do { \'unsigned int __i\'; &fd_set * &__arr = ($set); &for ( &__i = 0; &__i < $sizeof{ &fd_set} / $sizeof{ &__fd_mask}; ++ &__i) &__FDS_BITS ( &__arr)[ &__i] = 0; } &while (0)); }' unless defined(&__FD_ZERO); } unless(defined(&__FD_SET)) { sub __FD_SET { my($d, $set) = @_; eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] |= &__FD_MASK ($d)))); } } unless(defined(&__FD_CLR)) { sub __FD_CLR { my($d, $set) = @_; eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &= ~ &__FD_MASK ($d)))); } } unless(defined(&__FD_ISSET)) { sub __FD_ISSET { my($d, $set) = @_; eval q((( &__FDS_BITS ($set)[ &__FD_ELT ($d)] & &__FD_MASK ($d)) != 0)); } } 1; usr/lib64/perl5/sys/select.ph000064400000004076147205013160011760 0ustar00require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SELECT_H)) { eval 'sub _SYS_SELECT_H () {1;}' unless defined(&_SYS_SELECT_H); require 'features.ph'; require 'bits/types.ph'; require 'bits/select.ph'; require 'bits/types/sigset_t.ph'; require 'bits/types/time_t.ph'; require 'bits/types/struct_timeval.ph'; if(defined(&__USE_XOPEN2K)) { require 'bits/types/struct_timespec.ph'; } unless(defined(&__suseconds_t_defined)) { eval 'sub __suseconds_t_defined () {1;}' unless defined(&__suseconds_t_defined); } undef(&__NFDBITS) if defined(&__NFDBITS); eval 'sub __NFDBITS () {(8* $sizeof{ &__fd_mask});}' unless defined(&__NFDBITS); eval 'sub __FD_ELT { my($d) = @_; eval q((($d) / &__NFDBITS)); }' unless defined(&__FD_ELT); eval 'sub __FD_MASK { my($d) = @_; eval q((( &__fd_mask) (1 << (($d) % &__NFDBITS)))); }' unless defined(&__FD_MASK); if(defined(&__USE_XOPEN)) { eval 'sub __FDS_BITS { my($set) = @_; eval q((($set)-> &fds_bits)); }' unless defined(&__FDS_BITS); } else { eval 'sub __FDS_BITS { my($set) = @_; eval q((($set)-> &__fds_bits)); }' unless defined(&__FDS_BITS); } eval 'sub FD_SETSIZE () { &__FD_SETSIZE;}' unless defined(&FD_SETSIZE); if(defined(&__USE_MISC)) { eval 'sub NFDBITS () { &__NFDBITS;}' unless defined(&NFDBITS); } eval 'sub FD_SET { my($fd, $fdsetp) = @_; eval q( &__FD_SET ($fd, $fdsetp)); }' unless defined(&FD_SET); eval 'sub FD_CLR { my($fd, $fdsetp) = @_; eval q( &__FD_CLR ($fd, $fdsetp)); }' unless defined(&FD_CLR); eval 'sub FD_ISSET { my($fd, $fdsetp) = @_; eval q( &__FD_ISSET ($fd, $fdsetp)); }' unless defined(&FD_ISSET); eval 'sub FD_ZERO { my($fdsetp) = @_; eval q( &__FD_ZERO ($fdsetp)); }' unless defined(&FD_ZERO); if(defined(&__USE_XOPEN2K)) { } if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : undef) > 0 && defined (&__GNUC__)) { require 'bits/select2.ph'; } } 1;