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 / sysmacros.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  1.2 KB  |  35 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SYSMACROS_H)) {
  6.     eval 'sub _SYS_SYSMACROS_H () {1;}' unless defined(&_SYS_SYSMACROS_H);
  7.     require 'features.ph';
  8.     if(defined(&__GLIBC_HAVE_LONG_LONG)) {
  9.     if(defined (defined(&__GNUC__) ? &__GNUC__ : 0)  && (defined(&__GNUC__) ? &__GNUC__ : 0) >= 2) {
  10.         eval 'sub __NTH {
  11.             eval q(( &gnu_dev_major ) { (( &__dev >> 8) & 0xfff) | ( ( &__dev >> 32) & ~0xfff); });
  12.         }' unless defined(&__NTH);
  13.         eval 'sub __NTH {
  14.             eval q(( &gnu_dev_minor ) { ( &__dev & 0xff) | ( ( &__dev >> 12) & ~0xff); });
  15.         }' unless defined(&__NTH);
  16.         eval 'sub __NTH {
  17.             eval q(( &gnu_dev_makedev (my $__major, my $__minor)) { (( $__minor & 0xff) | (( $__major & 0xfff) << 8) | (( ( $__minor & ~0xff)) << 12) | (( ( $__major & ~0xfff)) << 32)); });
  18.         }' unless defined(&__NTH);
  19.     }
  20.     eval 'sub major {
  21.         my($dev) = @_;
  22.             eval q( &gnu_dev_major ($dev));
  23.     }' unless defined(&major);
  24.     eval 'sub minor {
  25.         my($dev) = @_;
  26.             eval q( &gnu_dev_minor ($dev));
  27.     }' unless defined(&minor);
  28.     eval 'sub makedev {
  29.         my($maj, $min) = @_;
  30.             eval q( &gnu_dev_makedev ($maj, $min));
  31.     }' unless defined(&makedev);
  32.     }
  33. }
  34. 1;
  35.