home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / bits / select.ph < prev    next >
Encoding:
Text File  |  2009-06-26  |  852 b   |  33 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SELECT_H)) {
  6.     die("Never use <bits/select.h> directly; include <sys/select.h> instead.");
  7. }
  8. unless(defined(&__FD_ZERO)) {
  9.     sub __FD_ZERO {
  10.     my($s) = @_;
  11.     eval q( &do { 'unsigned int __i';  &fd_set * &__arr = ($s);  &for ( &__i = 0;  &__i < $sizeof{ &fd_set} / $sizeof{ &__fd_mask}; ++ &__i)  &__FDS_BITS ( &__arr)[ &__i] = 0; }  &while (0));
  12.     }
  13. }
  14. unless(defined(&__FD_SET)) {
  15.     sub __FD_SET {
  16.     my($d, $s) = @_;
  17.     eval q(( &__FDS_BITS ($s)[ &__FDELT($d)] |=  &__FDMASK($d)));
  18.     }
  19. }
  20. unless(defined(&__FD_CLR)) {
  21.     sub __FD_CLR {
  22.     my($d, $s) = @_;
  23.     eval q(( &__FDS_BITS ($s)[ &__FDELT($d)] &= ~ &__FDMASK($d)));
  24.     }
  25. }
  26. unless(defined(&__FD_ISSET)) {
  27.     sub __FD_ISSET {
  28.     my($d, $s) = @_;
  29.     eval q((( &__FDS_BITS ($s)[ &__FDELT($d)] &  &__FDMASK($d)) != 0));
  30.     }
  31. }
  32. 1;
  33.