| Current File : /home/mmdealscpanel/yummmdeals.com/select.ph.tar |
lib64/perl5/sys/select.ph 0000644 00000004076 15046704606 0011160 0 ustar 00 require '_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;
usr/lib64/perl5/bits/select.ph 0000644 00000002555 15052130311 0012073 0 ustar 00 require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_SYS_SELECT_H)) {
die("Never use <bits/select.h> directly; include <sys/select.h> 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;