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 / cdefs.ph next >
Encoding:
Text File  |  2006-07-07  |  11.8 KB  |  305 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_CDEFS_H)) {
  6.     eval 'sub _SYS_CDEFS_H () {1;}' unless defined(&_SYS_CDEFS_H);
  7.     unless(defined(&_FEATURES_H)) {
  8.     require 'features.ph';
  9.     }
  10.     if(defined (defined(&__GNUC__) ? &__GNUC__ : 0)  && !defined (defined(&__STDC__) ? &__STDC__ : 0)) {
  11.     die("You need a ISO C conforming compiler to use the glibc headers");
  12.     }
  13.     undef(&__P) if defined(&__P);
  14.     undef(&__PMT) if defined(&__PMT);
  15.     if(defined(&__GNUC__)) {
  16.     if(!defined (defined(&__cplusplus) ? &__cplusplus : 0)  &&  &__GNUC_PREREQ (3, 3)) {
  17.         eval 'sub __THROW () { &__attribute__ (( &__nothrow__));}' unless defined(&__THROW);
  18.         eval 'sub __NTH {
  19.             my($fct) = @_;
  20.             eval q( &__attribute__ (( &__nothrow__)) $fct);
  21.         }' unless defined(&__NTH);
  22.     } else {
  23.         if(defined (defined(&__cplusplus) ? &__cplusplus : 0)  &&  &__GNUC_PREREQ (2,8)) {
  24.         eval 'sub __THROW () { &throw ();}' unless defined(&__THROW);
  25.         eval 'sub __NTH {
  26.             my($fct) = @_;
  27.                 eval q($fct  &throw ());
  28.         }' unless defined(&__NTH);
  29.         } else {
  30.         eval 'sub __THROW () {1;}' unless defined(&__THROW);
  31.         eval 'sub __NTH {
  32.             my($fct) = @_;
  33.                 eval q($fct);
  34.         }' unless defined(&__NTH);
  35.         }
  36.     }
  37.     } else {
  38.     eval 'sub __inline () {1;}' unless defined(&__inline);
  39.     eval 'sub __THROW () {1;}' unless defined(&__THROW);
  40.     eval 'sub __NTH {
  41.         my($fct) = @_;
  42.             eval q($fct);
  43.     }' unless defined(&__NTH);
  44.     eval 'sub __const () { &const;}' unless defined(&__const);
  45.     eval 'sub __signed () {\'signed\';}' unless defined(&__signed);
  46.     eval 'sub __volatile () { &volatile;}' unless defined(&__volatile);
  47.     }
  48.     eval 'sub __P {
  49.         my($args) = @_;
  50.         eval q($args);
  51.     }' unless defined(&__P);
  52.     eval 'sub __PMT {
  53.         my($args) = @_;
  54.         eval q($args);
  55.     }' unless defined(&__PMT);
  56.     eval 'sub __CONCAT {
  57.         my($x,$y) = @_;
  58.         eval q($x  $y);
  59.     }' unless defined(&__CONCAT);
  60.     eval 'sub __STRING {
  61.         my($x) = @_;
  62.         eval q($x);
  63.     }' unless defined(&__STRING);
  64.     eval 'sub __ptr_t () { &void *;}' unless defined(&__ptr_t);
  65.     eval 'sub __long_double_t () {\'long double\';}' unless defined(&__long_double_t);
  66.     if(defined(&__cplusplus)) {
  67.     eval 'sub __BEGIN_DECLS () { &extern "C" {;}' unless defined(&__BEGIN_DECLS);
  68.     eval 'sub __END_DECLS () {};}' unless defined(&__END_DECLS);
  69.     } else {
  70.     eval 'sub __BEGIN_DECLS () {1;}' unless defined(&__BEGIN_DECLS);
  71.     eval 'sub __END_DECLS () {1;}' unless defined(&__END_DECLS);
  72.     }
  73.     if(defined (defined(&__cplusplus) ? &__cplusplus : 0)  && defined (defined(&_GLIBCPP_USE_NAMESPACES) ? &_GLIBCPP_USE_NAMESPACES : 0)) {
  74.     eval 'sub __BEGIN_NAMESPACE_STD () { &namespace  &std {;}' unless defined(&__BEGIN_NAMESPACE_STD);
  75.     eval 'sub __END_NAMESPACE_STD () {};}' unless defined(&__END_NAMESPACE_STD);
  76.     eval 'sub __USING_NAMESPACE_STD {
  77.         my($name) = @_;
  78.             eval q( &using  &std::$name;);
  79.     }' unless defined(&__USING_NAMESPACE_STD);
  80.     eval 'sub __BEGIN_NAMESPACE_C99 () { &namespace  &__c99 {;}' unless defined(&__BEGIN_NAMESPACE_C99);
  81.     eval 'sub __END_NAMESPACE_C99 () {};}' unless defined(&__END_NAMESPACE_C99);
  82.     eval 'sub __USING_NAMESPACE_C99 {
  83.         my($name) = @_;
  84.             eval q( &using  &__c99::$name;);
  85.     }' unless defined(&__USING_NAMESPACE_C99);
  86.     } else {
  87.     eval 'sub __BEGIN_NAMESPACE_STD () {1;}' unless defined(&__BEGIN_NAMESPACE_STD);
  88.     eval 'sub __END_NAMESPACE_STD () {1;}' unless defined(&__END_NAMESPACE_STD);
  89.     eval 'sub __USING_NAMESPACE_STD {
  90.         my($name) = @_;
  91.             eval q();
  92.     }' unless defined(&__USING_NAMESPACE_STD);
  93.     eval 'sub __BEGIN_NAMESPACE_C99 () {1;}' unless defined(&__BEGIN_NAMESPACE_C99);
  94.     eval 'sub __END_NAMESPACE_C99 () {1;}' unless defined(&__END_NAMESPACE_C99);
  95.     eval 'sub __USING_NAMESPACE_C99 {
  96.         my($name) = @_;
  97.             eval q();
  98.     }' unless defined(&__USING_NAMESPACE_C99);
  99.     }
  100.     unless(defined(&__BOUNDED_POINTERS__)) {
  101.     eval 'sub __bounded () {1;}' unless defined(&__bounded);
  102.     eval 'sub __unbounded () {1;}' unless defined(&__unbounded);
  103.     eval 'sub __ptrvalue () {1;}' unless defined(&__ptrvalue);
  104.     }
  105.     eval 'sub __bos {
  106.         my($ptr) = @_;
  107.         eval q( &__builtin_object_size ($ptr,  &__USE_FORTIFY_LEVEL > 1));
  108.     }' unless defined(&__bos);
  109.     eval 'sub __bos0 {
  110.         my($ptr) = @_;
  111.         eval q( &__builtin_object_size ($ptr, 0));
  112.     }' unless defined(&__bos0);
  113.     eval 'sub __warndecl {
  114.         my($name, $msg) = @_;
  115.         eval q( &extern  &void $name ( &void));
  116.     }' unless defined(&__warndecl);
  117.     if( &__GNUC_PREREQ (2,97)) {
  118.     eval 'sub __flexarr () {[];}' unless defined(&__flexarr);
  119.     } else {
  120.     if(defined(&__GNUC__)) {
  121.         eval 'sub __flexarr () {[0];}' unless defined(&__flexarr);
  122.     } else {
  123.         if(defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0) >= 199901) {
  124.         eval 'sub __flexarr () {[];}' unless defined(&__flexarr);
  125.         } else {
  126.         eval 'sub __flexarr () {[1];}' unless defined(&__flexarr);
  127.         }
  128.     }
  129.     }
  130.     if(defined (defined(&__GNUC__) ? &__GNUC__ : 0)  && (defined(&__GNUC__) ? &__GNUC__ : 0) >= 2) {
  131.     eval 'sub __REDIRECT {
  132.         my($name, $proto, $alias) = @_;
  133.             eval q(\\"(assembly code)\\");
  134.     }' unless defined(&__REDIRECT);
  135.     if(defined(&__cplusplus)) {
  136.         eval 'sub __REDIRECT_NTH {
  137.             my($name, $proto, $alias) = @_;
  138.             eval q(\\"(assembly code)\\");
  139.         }' unless defined(&__REDIRECT_NTH);
  140.     } else {
  141.         eval 'sub __REDIRECT_NTH {
  142.             my($name, $proto, $alias) = @_;
  143.             eval q(\\"(assembly code)\\");
  144.         }' unless defined(&__REDIRECT_NTH);
  145.     }
  146.     eval 'sub __ASMNAME {
  147.         my($cname) = @_;
  148.             eval q( &__ASMNAME2 ( &__USER_LABEL_PREFIX__, $cname));
  149.     }' unless defined(&__ASMNAME);
  150.     eval 'sub __ASMNAME2 {
  151.         my($prefix, $cname) = @_;
  152.             eval q( &__STRING ($prefix) $cname);
  153.     }' unless defined(&__ASMNAME2);
  154.     }
  155.     if(!defined (defined(&__GNUC__) ? &__GNUC__ : 0) || (defined(&__GNUC__) ? &__GNUC__ : 0) < 2) {
  156.     eval 'sub __attribute__ {
  157.         my($xyz) = @_;
  158.             eval q();
  159.     }' unless defined(&__attribute__);
  160.     }
  161.     if( &__GNUC_PREREQ (2,96)) {
  162.     eval 'sub __attribute_malloc__ () { &__attribute__ (( &__malloc__));}' unless defined(&__attribute_malloc__);
  163.     } else {
  164.     eval 'sub __attribute_malloc__ () {1;}' unless defined(&__attribute_malloc__);
  165.     }
  166.     if( &__GNUC_PREREQ (2,96)) {
  167.     eval 'sub __attribute_pure__ () { &__attribute__ (( &__pure__));}' unless defined(&__attribute_pure__);
  168.     } else {
  169.     eval 'sub __attribute_pure__ () {1;}' unless defined(&__attribute_pure__);
  170.     }
  171.     if( &__GNUC_PREREQ (3,1)) {
  172.     eval 'sub __attribute_used__ () { &__attribute__ (( &__used__));}' unless defined(&__attribute_used__);
  173.     eval 'sub __attribute_noinline__ () { &__attribute__ (( &__noinline__));}' unless defined(&__attribute_noinline__);
  174.     } else {
  175.     eval 'sub __attribute_used__ () { &__attribute__ (( &__unused__));}' unless defined(&__attribute_used__);
  176.     eval 'sub __attribute_noinline__ () {1;}' unless defined(&__attribute_noinline__);
  177.     }
  178.     if( &__GNUC_PREREQ (3,2)) {
  179.     eval 'sub __attribute_deprecated__ () { &__attribute__ (( &__deprecated__));}' unless defined(&__attribute_deprecated__);
  180.     } else {
  181.     eval 'sub __attribute_deprecated__ () {1;}' unless defined(&__attribute_deprecated__);
  182.     }
  183.     if( &__GNUC_PREREQ (2,8)) {
  184.     eval 'sub __attribute_format_arg__ {
  185.         my($x) = @_;
  186.             eval q( &__attribute__ (( &__format_arg__ ($x))));
  187.     }' unless defined(&__attribute_format_arg__);
  188.     } else {
  189.     eval 'sub __attribute_format_arg__ {
  190.         my($x) = @_;
  191.             eval q();
  192.     }' unless defined(&__attribute_format_arg__);
  193.     }
  194.     if( &__GNUC_PREREQ (2,97)) {
  195.     eval 'sub __attribute_format_strfmon__ {
  196.         my($a,$b) = @_;
  197.             eval q( &__attribute__ (( &__format__ ( &__strfmon__, $a, $b))));
  198.     }' unless defined(&__attribute_format_strfmon__);
  199.     } else {
  200.     eval 'sub __attribute_format_strfmon__ {
  201.         my($a,$b) = @_;
  202.             eval q();
  203.     }' unless defined(&__attribute_format_strfmon__);
  204.     }
  205.     if( &__GNUC_PREREQ (3,3)) {
  206.     eval 'sub __nonnull {
  207.         my($params) = @_;
  208.             eval q( &__attribute__ (( &__nonnull__ $params)));
  209.     }' unless defined(&__nonnull);
  210.     } else {
  211.     eval 'sub __nonnull {
  212.         my($params) = @_;
  213.             eval q();
  214.     }' unless defined(&__nonnull);
  215.     }
  216.     if( &__GNUC_PREREQ (3,4)) {
  217.     eval 'sub __attribute_warn_unused_result__ () { &__attribute__ (( &__warn_unused_result__));}' unless defined(&__attribute_warn_unused_result__);
  218.     if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : 0) > 0) {
  219.         eval 'sub __wur () { &__attribute_warn_unused_result__;}' unless defined(&__wur);
  220.     }
  221.     } else {
  222.     eval 'sub __attribute_warn_unused_result__ () {1;}' unless defined(&__attribute_warn_unused_result__);
  223.     }
  224.     unless(defined(&__wur)) {
  225.     eval 'sub __wur () {1;}' unless defined(&__wur);
  226.     }
  227.     if( &__GNUC_PREREQ (3,2)) {
  228.     eval 'sub __always_inline () { &__inline  &__attribute__ (( &__always_inline__));}' unless defined(&__always_inline);
  229.     } else {
  230.     eval 'sub __always_inline () { &__inline;}' unless defined(&__always_inline);
  231.     }
  232.     if(! &__GNUC_PREREQ (2,8)) {
  233.     eval 'sub __extension__ () {1;}' unless defined(&__extension__);
  234.     }
  235.     if(! &__GNUC_PREREQ (2,92)) {
  236.     eval 'sub __restrict () {1;}' unless defined(&__restrict);
  237.     }
  238.     if( &__GNUC_PREREQ (3,1)  && !defined (defined(&__GNUG__) ? &__GNUG__ : 0)) {
  239.     eval 'sub __restrict_arr () { &__restrict;}' unless defined(&__restrict_arr);
  240.     } else {
  241.     if(defined(&__GNUC__)) {
  242.         eval 'sub __restrict_arr () {1;}' unless defined(&__restrict_arr);
  243.     } else {
  244.         if(defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : 0) >= 199901) {
  245.         eval 'sub __restrict_arr () { &restrict;}' unless defined(&__restrict_arr);
  246.         } else {
  247.         eval 'sub __restrict_arr () {1;}' unless defined(&__restrict_arr);
  248.         }
  249.     }
  250.     }
  251.     require 'bits/wordsize.ph';
  252.     if(defined (defined(&__LONG_DOUBLE_MATH_OPTIONAL) ? &__LONG_DOUBLE_MATH_OPTIONAL : 0)  && defined (defined(&__NO_LONG_DOUBLE_MATH) ? &__NO_LONG_DOUBLE_MATH : 0)) {
  253.     eval 'sub __LDBL_COMPAT () {1;}' unless defined(&__LDBL_COMPAT);
  254.     if(defined(&__REDIRECT)) {
  255.         eval 'sub __LDBL_REDIR1 {
  256.             my($name, $proto, $alias) = @_;
  257.             eval q( &__REDIRECT ($name, $proto, $alias));
  258.         }' unless defined(&__LDBL_REDIR1);
  259.         eval 'sub __LDBL_REDIR {
  260.             my($name, $proto) = @_;
  261.             eval q( &__LDBL_REDIR1 ($name, $proto,  &__nldbl_$name));
  262.         }' unless defined(&__LDBL_REDIR);
  263.         eval 'sub __LDBL_REDIR1_NTH {
  264.             my($name, $proto, $alias) = @_;
  265.             eval q( &__REDIRECT_NTH ($name, $proto, $alias));
  266.         }' unless defined(&__LDBL_REDIR1_NTH);
  267.         eval 'sub __LDBL_REDIR_NTH {
  268.             my($name, $proto) = @_;
  269.             eval q( &__LDBL_REDIR1_NTH ($name, $proto,  &__nldbl_$name));
  270.         }' unless defined(&__LDBL_REDIR_NTH);
  271.         eval 'sub __LDBL_REDIR1_DECL {
  272.             my($name, $alias) = @_;
  273.             eval q( &extern  &__typeof ($name) $name  &__asm ( &__ASMNAME ($alias)););
  274.         }' unless defined(&__LDBL_REDIR1_DECL);
  275.         eval 'sub __LDBL_REDIR_DECL {
  276.             my($name) = @_;
  277.             eval q( &extern  &__typeof ($name) $name  &__asm ( &__ASMNAME (\\"__nldbl_\\" $name)););
  278.         }' unless defined(&__LDBL_REDIR_DECL);
  279.     }
  280.     }
  281.     if(!defined (defined(&__LDBL_COMPAT) ? &__LDBL_COMPAT : 0) || !defined (defined(&__REDIRECT) ? &__REDIRECT : 0)) {
  282.     eval 'sub __LDBL_REDIR1 {
  283.         my($name, $proto, $alias) = @_;
  284.             eval q($name $proto);
  285.     }' unless defined(&__LDBL_REDIR1);
  286.     eval 'sub __LDBL_REDIR {
  287.         my($name, $proto) = @_;
  288.             eval q($name $proto);
  289.     }' unless defined(&__LDBL_REDIR);
  290.     eval 'sub __LDBL_REDIR1_NTH {
  291.         my($name, $proto, $alias) = @_;
  292.             eval q($name $proto  &__THROW);
  293.     }' unless defined(&__LDBL_REDIR1_NTH);
  294.     eval 'sub __LDBL_REDIR_NTH {
  295.         my($name, $proto) = @_;
  296.             eval q($name $proto  &__THROW);
  297.     }' unless defined(&__LDBL_REDIR_NTH);
  298.     eval 'sub __LDBL_REDIR_DECL {
  299.         my($name) = @_;
  300.             eval q();
  301.     }' unless defined(&__LDBL_REDIR_DECL);
  302.     }
  303. }
  304. 1;
  305.