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 / socket.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  2.0 KB  |  42 lines

  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SOCKET_H)) {
  6.     eval 'sub _SYS_SOCKET_H () {1;}' unless defined(&_SYS_SOCKET_H);
  7.     require 'features.ph';
  8.     require 'sys/uio.ph';
  9.     eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
  10.     require 'stddef.ph';
  11.     require 'bits/socket.ph';
  12.     if(defined(&__USE_BSD)) {
  13.     }
  14.     eval("sub SHUT_RD () { 0; }") unless defined(&SHUT_RD);
  15.     eval("sub SHUT_WR () { 1; }") unless defined(&SHUT_WR);
  16.     eval("sub SHUT_RDWR () { 2; }") unless defined(&SHUT_RDWR);
  17.     if(defined (defined(&__cplusplus) ? &__cplusplus : 0) || ! &__GNUC_PREREQ (2, 7) || !defined (defined(&__USE_GNU) ? &__USE_GNU : 0)) {
  18.     eval 'sub __SOCKADDR_ARG () {1;}' unless defined(&__SOCKADDR_ARG);
  19.     eval 'sub __CONST_SOCKADDR_ARG () { 1;}' unless defined(&__CONST_SOCKADDR_ARG);
  20.     } else {
  21.     eval 'sub __SOCKADDR_ALLTYPES () { &__SOCKADDR_ONETYPE ( &sockaddr)  &__SOCKADDR_ONETYPE ( &sockaddr_at)  &__SOCKADDR_ONETYPE ( &sockaddr_ax25)  &__SOCKADDR_ONETYPE ( &sockaddr_dl)  &__SOCKADDR_ONETYPE ( &sockaddr_eon)  &__SOCKADDR_ONETYPE ( &sockaddr_in)  &__SOCKADDR_ONETYPE ( &sockaddr_in6)  &__SOCKADDR_ONETYPE ( &sockaddr_inarp)  &__SOCKADDR_ONETYPE ( &sockaddr_ipx)  &__SOCKADDR_ONETYPE ( &sockaddr_iso)  &__SOCKADDR_ONETYPE ( &sockaddr_ns)  &__SOCKADDR_ONETYPE ( &sockaddr_un)  &__SOCKADDR_ONETYPE ( &sockaddr_x25);}' unless defined(&__SOCKADDR_ALLTYPES);
  22.     eval 'sub __SOCKADDR_ONETYPE {
  23.         my($type) = @_;
  24.             eval q(1;);
  25.     }' unless defined(&__SOCKADDR_ONETYPE);
  26.     undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE);
  27.     eval 'sub __SOCKADDR_ONETYPE {
  28.         my($type) = @_;
  29.             eval q( 1;);
  30.     }' unless defined(&__SOCKADDR_ONETYPE);
  31.     undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE);
  32.     }
  33.     if(defined(&__USE_XOPEN2K)) {
  34.     }
  35.     if(defined(&__USE_MISC)) {
  36.     }
  37.     if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : 0) > 0 && !defined (defined(&__cplusplus) ? &__cplusplus : 0)) {
  38.     require 'bits/socket2.ph';
  39.     }
  40. }
  41. 1;
  42.