home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / sys / select.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  2.2 KB  |  69 lines

  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SELECT_H)) {
  6.     eval 'sub _SYS_SELECT_H () {1;}' unless defined(&_SYS_SELECT_H);
  7.     require 'features.ph';
  8.     require 'bits/types.ph';
  9.     require 'bits/select.ph';
  10.     require 'bits/sigset.ph';
  11.     unless(defined(&__sigset_t_defined)) {
  12.     eval 'sub __sigset_t_defined () {1;}' unless defined(&__sigset_t_defined);
  13.     }
  14.     eval 'sub __need_time_t () {1;}' unless defined(&__need_time_t);
  15.     eval 'sub __need_timespec () {1;}' unless defined(&__need_timespec);
  16.     require 'time.ph';
  17.     eval 'sub __need_timeval () {1;}' unless defined(&__need_timeval);
  18.     require 'bits/time.ph';
  19.     unless(defined(&__suseconds_t_defined)) {
  20.     eval 'sub __suseconds_t_defined () {1;}' unless defined(&__suseconds_t_defined);
  21.     }
  22.     undef(&__NFDBITS) if defined(&__NFDBITS);
  23.     undef(&__FDELT) if defined(&__FDELT);
  24.     undef(&__FDMASK) if defined(&__FDMASK);
  25.     eval 'sub __NFDBITS () {(8* $sizeof{ &__fd_mask});}' unless defined(&__NFDBITS);
  26.     eval 'sub __FDELT {
  27.         my($d) = @_;
  28.         eval q((($d) /  &__NFDBITS));
  29.     }' unless defined(&__FDELT);
  30.     eval 'sub __FDMASK {
  31.         my($d) = @_;
  32.         eval q((( &__fd_mask) 1<< (($d) %  &__NFDBITS)));
  33.     }' unless defined(&__FDMASK);
  34.     if(defined(&__USE_XOPEN)) {
  35.     eval 'sub __FDS_BITS {
  36.         my($set) = @_;
  37.             eval q((($set)-> &fds_bits));
  38.     }' unless defined(&__FDS_BITS);
  39.     } else {
  40.     eval 'sub __FDS_BITS {
  41.         my($set) = @_;
  42.             eval q((($set)-> &__fds_bits));
  43.     }' unless defined(&__FDS_BITS);
  44.     }
  45.     eval 'sub FD_SETSIZE () { &__FD_SETSIZE;}' unless defined(&FD_SETSIZE);
  46.     if(defined(&__USE_MISC)) {
  47.     eval 'sub NFDBITS () { &__NFDBITS;}' unless defined(&NFDBITS);
  48.     }
  49.     eval 'sub FD_SET {
  50.         my($fd, $fdsetp) = @_;
  51.         eval q( &__FD_SET ($fd, $fdsetp));
  52.     }' unless defined(&FD_SET);
  53.     eval 'sub FD_CLR {
  54.         my($fd, $fdsetp) = @_;
  55.         eval q( &__FD_CLR ($fd, $fdsetp));
  56.     }' unless defined(&FD_CLR);
  57.     eval 'sub FD_ISSET {
  58.         my($fd, $fdsetp) = @_;
  59.         eval q( &__FD_ISSET ($fd, $fdsetp));
  60.     }' unless defined(&FD_ISSET);
  61.     eval 'sub FD_ZERO {
  62.         my($fdsetp) = @_;
  63.         eval q( &__FD_ZERO ($fdsetp));
  64.     }' unless defined(&FD_ZERO);
  65.     if(defined(&__USE_XOPEN2K)) {
  66.     }
  67. }
  68. 1;
  69.