home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / features.ph < prev    next >
Encoding:
Text File  |  2007-03-05  |  10.8 KB  |  182 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_FEATURES_H)) {
  6.     eval 'sub _FEATURES_H () {1;}' unless defined(&_FEATURES_H);
  7.     undef(&__USE_ISOC99) if defined(&__USE_ISOC99);
  8.     undef(&__USE_POSIX) if defined(&__USE_POSIX);
  9.     undef(&__USE_POSIX2) if defined(&__USE_POSIX2);
  10.     undef(&__USE_POSIX199309) if defined(&__USE_POSIX199309);
  11.     undef(&__USE_POSIX199506) if defined(&__USE_POSIX199506);
  12.     undef(&__USE_XOPEN) if defined(&__USE_XOPEN);
  13.     undef(&__USE_XOPEN_EXTENDED) if defined(&__USE_XOPEN_EXTENDED);
  14.     undef(&__USE_UNIX98) if defined(&__USE_UNIX98);
  15.     undef(&__USE_XOPEN2K) if defined(&__USE_XOPEN2K);
  16.     undef(&__USE_LARGEFILE) if defined(&__USE_LARGEFILE);
  17.     undef(&__USE_LARGEFILE64) if defined(&__USE_LARGEFILE64);
  18.     undef(&__USE_FILE_OFFSET64) if defined(&__USE_FILE_OFFSET64);
  19.     undef(&__USE_BSD) if defined(&__USE_BSD);
  20.     undef(&__USE_SVID) if defined(&__USE_SVID);
  21.     undef(&__USE_MISC) if defined(&__USE_MISC);
  22.     undef(&__USE_ATFILE) if defined(&__USE_ATFILE);
  23.     undef(&__USE_GNU) if defined(&__USE_GNU);
  24.     undef(&__USE_REENTRANT) if defined(&__USE_REENTRANT);
  25.     undef(&__USE_FORTIFY_LEVEL) if defined(&__USE_FORTIFY_LEVEL);
  26.     undef(&__FAVOR_BSD) if defined(&__FAVOR_BSD);
  27.     undef(&__KERNEL_STRICT_NAMES) if defined(&__KERNEL_STRICT_NAMES);
  28.     unless(defined(&_LOOSE_KERNEL_NAMES)) {
  29.     eval 'sub __KERNEL_STRICT_NAMES () {1;}' unless defined(&__KERNEL_STRICT_NAMES);
  30.     }
  31.     eval 'sub __USE_ANSI () {1;}' unless defined(&__USE_ANSI);
  32.     if(defined (defined(&__GNUC__) ? &__GNUC__ : 0)  && defined (defined(&__GNUC_MINOR__) ? &__GNUC_MINOR__ : 0)) {
  33.     eval 'sub __GNUC_PREREQ {
  34.         my($maj, $min) = @_;
  35.             eval q((( &__GNUC__ << 16) +  &__GNUC_MINOR__ >= (($maj) << 16) + ($min)));
  36.     }' unless defined(&__GNUC_PREREQ);
  37.     } else {
  38.     eval 'sub __GNUC_PREREQ {
  39.         my($maj, $min) = @_;
  40.             eval q(0);
  41.     }' unless defined(&__GNUC_PREREQ);
  42.     }
  43.     if(defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : 0)  && !(defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : 0) || defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) || defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) || defined (defined(&_XOPEN_SOURCE_EXTENDED) ? &_XOPEN_SOURCE_EXTENDED : 0) || defined (defined(&_GNU_SOURCE) ? &_GNU_SOURCE : 0) || defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : 0))) {
  44.     eval 'sub __FAVOR_BSD () {1;}' unless defined(&__FAVOR_BSD);
  45.     }
  46.     if(defined(&_GNU_SOURCE)) {
  47.     undef(&_ISOC99_SOURCE) if defined(&_ISOC99_SOURCE);
  48.     eval 'sub _ISOC99_SOURCE () {1;}' unless defined(&_ISOC99_SOURCE);
  49.     undef(&_POSIX_SOURCE) if defined(&_POSIX_SOURCE);
  50.     eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  51.     undef(&_POSIX_C_SOURCE) if defined(&_POSIX_C_SOURCE);
  52.     eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&_POSIX_C_SOURCE);
  53.     undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE);
  54.     eval 'sub _XOPEN_SOURCE () {600;}' unless defined(&_XOPEN_SOURCE);
  55.     undef(&_XOPEN_SOURCE_EXTENDED) if defined(&_XOPEN_SOURCE_EXTENDED);
  56.     eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  57.     undef(&_LARGEFILE64_SOURCE) if defined(&_LARGEFILE64_SOURCE);
  58.     eval 'sub _LARGEFILE64_SOURCE () {1;}' unless defined(&_LARGEFILE64_SOURCE);
  59.     undef(&_BSD_SOURCE) if defined(&_BSD_SOURCE);
  60.     eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE);
  61.     undef(&_SVID_SOURCE) if defined(&_SVID_SOURCE);
  62.     eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE);
  63.     undef(&_ATFILE_SOURCE) if defined(&_ATFILE_SOURCE);
  64.     eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&_ATFILE_SOURCE);
  65.     }
  66.     if((!defined (defined(&__STRICT_ANSI__) ? &__STRICT_ANSI__ : 0)  && !defined (defined(&_ISOC99_SOURCE) ? &_ISOC99_SOURCE : 0)  && !defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : 0)  && !defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0)  && !defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)  && !defined (defined(&_XOPEN_SOURCE_EXTENDED) ? &_XOPEN_SOURCE_EXTENDED : 0)  && !defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : 0)  && !defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : 0))) {
  67.     eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE);
  68.     eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE);
  69.     }
  70.     if((defined (defined(&_ISOC99_SOURCE) ? &_ISOC99_SOURCE : 0) || defined (defined(&_ISOC9X_SOURCE) ? &_ISOC9X_SOURCE : 0) || (defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0) >= 199901))) {
  71.     eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99);
  72.     }
  73.     if(((!defined (defined(&__STRICT_ANSI__) ? &__STRICT_ANSI__ : 0) || ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) - 0) >= 500)  && !defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : 0)  && !defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0))) {
  74.     eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  75.     if(defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)  && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) - 0) < 500) {
  76.         eval 'sub _POSIX_C_SOURCE () {2;}' unless defined(&_POSIX_C_SOURCE);
  77.     }
  78.  elsif(defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)  && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) - 0) < 600) {
  79.         eval 'sub _POSIX_C_SOURCE () {199506;}' unless defined(&_POSIX_C_SOURCE);
  80.     } else {
  81.         eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&_POSIX_C_SOURCE);
  82.     }
  83.     }
  84.     if(defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : 0) || (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) >= 1|| defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)) {
  85.     eval 'sub __USE_POSIX () {1;}' unless defined(&__USE_POSIX);
  86.     }
  87.     if(defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0)  && (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) >= 2|| defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)) {
  88.     eval 'sub __USE_POSIX2 () {1;}' unless defined(&__USE_POSIX2);
  89.     }
  90.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) - 0) >= 199309) {
  91.     eval 'sub __USE_POSIX199309 () {1;}' unless defined(&__USE_POSIX199309);
  92.     }
  93.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) - 0) >= 199506) {
  94.     eval 'sub __USE_POSIX199506 () {1;}' unless defined(&__USE_POSIX199506);
  95.     }
  96.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) - 0) >= 200112) {
  97.     eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K);
  98.     }
  99.     if(defined(&_XOPEN_SOURCE)) {
  100.     eval 'sub __USE_XOPEN () {1;}' unless defined(&__USE_XOPEN);
  101.     if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) - 0) >= 500) {
  102.         eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED);
  103.         eval 'sub __USE_UNIX98 () {1;}' unless defined(&__USE_UNIX98);
  104.         undef(&_LARGEFILE_SOURCE) if defined(&_LARGEFILE_SOURCE);
  105.         eval 'sub _LARGEFILE_SOURCE () {1;}' unless defined(&_LARGEFILE_SOURCE);
  106.         if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) - 0) >= 600) {
  107.         eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K);
  108.         undef(&__USE_ISOC99) if defined(&__USE_ISOC99);
  109.         eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99);
  110.         }
  111.     } else {
  112.         if(defined(&_XOPEN_SOURCE_EXTENDED)) {
  113.         eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED);
  114.         }
  115.     }
  116.     }
  117.     if(defined(&_LARGEFILE_SOURCE)) {
  118.     eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE);
  119.     }
  120.     if(defined(&_LARGEFILE64_SOURCE)) {
  121.     eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64);
  122.     }
  123.     if(defined (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0)  && (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : 0) == 64) {
  124.     eval 'sub __USE_FILE_OFFSET64 () {1;}' unless defined(&__USE_FILE_OFFSET64);
  125.     }
  126.     if(defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : 0) || defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : 0)) {
  127.     eval 'sub __USE_MISC () {1;}' unless defined(&__USE_MISC);
  128.     }
  129.     if(defined(&_BSD_SOURCE)) {
  130.     eval 'sub __USE_BSD () {1;}' unless defined(&__USE_BSD);
  131.     }
  132.     if(defined(&_SVID_SOURCE)) {
  133.     eval 'sub __USE_SVID () {1;}' unless defined(&__USE_SVID);
  134.     }
  135.     if(defined(&_ATFILE_SOURCE)) {
  136.     eval 'sub __USE_ATFILE () {1;}' unless defined(&__USE_ATFILE);
  137.     }
  138.     if(defined(&_GNU_SOURCE)) {
  139.     eval 'sub __USE_GNU () {1;}' unless defined(&__USE_GNU);
  140.     }
  141.     if(defined (defined(&_REENTRANT) ? &_REENTRANT : 0) || defined (defined(&_THREAD_SAFE) ? &_THREAD_SAFE : 0)) {
  142.     eval 'sub __USE_REENTRANT () {1;}' unless defined(&__USE_REENTRANT);
  143.     }
  144.     if(defined (defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : 0)  && (defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : 0) > 0 &&  &__GNUC_PREREQ (4, 1)  && defined (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : 0)  && (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : 0) > 0) {
  145.     if((defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : 0) > 1) {
  146.         eval 'sub __USE_FORTIFY_LEVEL () {2;}' unless defined(&__USE_FORTIFY_LEVEL);
  147.     } else {
  148.         eval 'sub __USE_FORTIFY_LEVEL () {1;}' unless defined(&__USE_FORTIFY_LEVEL);
  149.     }
  150.     } else {
  151.     eval 'sub __USE_FORTIFY_LEVEL () {0;}' unless defined(&__USE_FORTIFY_LEVEL);
  152.     }
  153.     eval 'sub __STDC_IEC_559__ () {1;}' unless defined(&__STDC_IEC_559__);
  154.     eval 'sub __STDC_IEC_559_COMPLEX__ () {1;}' unless defined(&__STDC_IEC_559_COMPLEX__);
  155.     eval 'sub __STDC_ISO_10646__ () {200009;}' unless defined(&__STDC_ISO_10646__);
  156.     undef(&__GNU_LIBRARY__) if defined(&__GNU_LIBRARY__);
  157.     eval 'sub __GNU_LIBRARY__ () {6;}' unless defined(&__GNU_LIBRARY__);
  158.     eval 'sub __GLIBC__ () {2;}' unless defined(&__GLIBC__);
  159.     eval 'sub __GLIBC_MINOR__ () {4;}' unless defined(&__GLIBC_MINOR__);
  160.     eval 'sub __GLIBC_PREREQ {
  161.         my($maj, $min) = @_;
  162.         eval q((( &__GLIBC__ << 16) +  &__GLIBC_MINOR__ >= (($maj) << 16) + ($min)));
  163.     }' unless defined(&__GLIBC_PREREQ);
  164.     if(defined (defined(&__GNUC__) ? &__GNUC__ : 0) || (defined (defined(&__PGI) ? &__PGI : 0)  && defined (defined(&__i386__) ? &__i386__ : 0) ) || (defined (defined(&__INTEL_COMPILER) ? &__INTEL_COMPILER : 0)  && (defined (defined(&__i386__) ? &__i386__ : 0) || defined (defined(&__ia64__) ? &__ia64__ : 0))) || (defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0) >= 199901)) {
  165.     eval 'sub __GLIBC_HAVE_LONG_LONG () {1;}' unless defined(&__GLIBC_HAVE_LONG_LONG);
  166.     }
  167.     unless(defined(&__ASSEMBLER__)) {
  168.     unless(defined(&_SYS_CDEFS_H)) {
  169.         require 'sys/cdefs.ph';
  170.     }
  171.     if(defined (defined(&__USE_FILE_OFFSET64) ? &__USE_FILE_OFFSET64 : 0)  && !defined (defined(&__REDIRECT) ? &__REDIRECT : 0)) {
  172.         eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE);
  173.         eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64);
  174.     }
  175.     }
  176.     if( &__GNUC_PREREQ (2, 7)  && defined (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : 0)  && !defined (defined(&__OPTIMIZE_SIZE__) ? &__OPTIMIZE_SIZE__ : 0)  && !defined (defined(&__NO_INLINE__) ? &__NO_INLINE__ : 0)) {
  177.     eval 'sub __USE_EXTERN_INLINES () {1;}' unless defined(&__USE_EXTERN_INLINES);
  178.     }
  179.     require 'gnu/stubs.ph';
  180. }
  181. 1;
  182.