home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl5 / i586-linux / sys / cdefs.ph next >
Encoding:
Text File  |  1995-08-18  |  2.9 KB  |  118 lines
  1. if (!defined &_SYS_CDEFS_H) {
  2.     eval 'sub _SYS_CDEFS_H {1;}';
  3.     if (defined &__GNU_LIBRARY__) {
  4.     require 'features.ph';
  5.     }
  6.     if (defined &__GNUC__) {
  7.     if (!defined &__P) {
  8.         eval 'sub __P {
  9.             local($args) = @_;
  10.             eval "$args";
  11.         }';
  12.     }
  13.     eval 'sub __DOTS {, ...;}';
  14.     if ((defined(&__GNUC__) ? &__GNUC__ : 0) < 2 || ((defined(&__GNUC__) ? &__GNUC__ : 0) == 2 && ((defined(&__GNUC_MINOR__) ? &__GNUC_MINOR__ : 0) < 5 || (defined( &__cplusplus) && (defined(&__GNUC_MINOR__) ? &__GNUC_MINOR__ : 0) < 6)))) {
  15.         if (!defined &__CONSTVALUE) {
  16.         eval 'sub __CONSTVALUE { &__const__;}';
  17.         eval 'sub __CONSTVALUE2 {1;}';
  18.         }
  19.         if (!defined &__NORETURN) {
  20.         eval 'sub __NORETURN { &__volatile__;}';
  21.         eval 'sub __NORETURN2 {1;}';
  22.         }
  23.     }
  24.     else {
  25.         if (!defined &__CONSTVALUE) {
  26.         eval 'sub __CONSTVALUE {1;}';
  27.         if (defined( &const) || !defined( &__STDC__)) {
  28.             eval 'sub __CONSTVALUE2 {1;}';
  29.         }
  30.         else {
  31.             eval 'sub __CONSTVALUE2 { &__attribute__ (( &const));}';
  32.         }
  33.         }
  34.         if (!defined &__NORETURN) {
  35.         eval 'sub __NORETURN {1;}';
  36.         if (defined &noreturn) {
  37.             eval 'sub __NORETURN2 {1;}';
  38.         }
  39.         else {
  40.             eval 'sub __NORETURN2 { &__attribute__ (( &noreturn));}';
  41.         }
  42.         }
  43.     }
  44.     }
  45.     else {
  46.     eval 'sub __inline {1;}';
  47.     eval 'sub __CONSTVALUE {1;}';
  48.     eval 'sub __CONSTVALUE2 {1;}';
  49.     eval 'sub __NORETURN {1;}';
  50.     eval 'sub __NORETURN2 {1;}';
  51.     if ((defined ((defined(&__STDC__) ? &__STDC__ : 0)) && (defined(&__STDC__) ? &__STDC__ : 0)) || defined ((defined(&__cplusplus) ? &__cplusplus : 0))) {
  52.         if (!defined &__P) {
  53.         eval 'sub __P {
  54.             local($args) = @_;
  55.             eval "$args";
  56.         }';
  57.         }
  58.         eval 'sub __const { &const;}';
  59.         eval 'sub __signed { &signed;}';
  60.         eval 'sub __volatile { &volatile;}';
  61.         eval 'sub __DOTS {, ...;}';
  62.     }
  63.     else {
  64.         if (!defined &__P) {
  65.         eval 'sub __P {
  66.             local($args) = @_;
  67.             eval "()";
  68.         }';
  69.         }
  70.         eval 'sub __const {1;}';
  71.         eval 'sub __signed {1;}';
  72.         eval 'sub __volatile {1;}';
  73.         eval 'sub __DOTS {1;}';
  74.     }
  75.     }
  76.     if (defined ((defined(&__GNUC__) ? &__GNUC__ : 0)) && (defined(&__GNUC__) ? &__GNUC__ : 0) < 2) {
  77.     eval 'sub __extension__ {1;}';
  78.     }
  79.     if (defined ((defined(&__STDC__) ? &__STDC__ : 0)) && (defined(&__STDC__) ? &__STDC__ : 0)) {
  80.     eval 'sub __CONCAT {
  81.         local($x,$y) = @_;
  82.         eval "$x ## $y";
  83.     }';
  84.     eval 'sub __STRING {
  85.         local($x) = @_;
  86.         eval "#$x";
  87.     }';
  88.     eval 'sub __ptr_t { &void *;}';
  89.     }
  90.     else {
  91.     eval 'sub __CONCAT {
  92.         local($x,$y) = @_;
  93.         eval " &xy";
  94.     }';
  95.     eval 'sub __STRING {
  96.         local($x) = @_;
  97.         eval "\\"x\\"";
  98.     }';
  99.     eval 'sub __ptr_t {char *;}';
  100.     }
  101.     if (defined &__USE_BSD) {
  102.     if (0) {
  103.         eval 'sub const { &__const;}';
  104.     }
  105.     eval 'sub signed { &__signed;}';
  106.     eval 'sub volatile { &__volatile;}';
  107.     }
  108.     if (defined &__cplusplus) {
  109.     eval 'sub __BEGIN_DECLS { &extern "C" {;}';
  110.     eval 'sub __END_DECLS {};}';
  111.     }
  112.     else {
  113.     eval 'sub __BEGIN_DECLS {1;}';
  114.     eval 'sub __END_DECLS {1;}';
  115.     }
  116. }
  117. 1;
  118.