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 / wait.ph < prev   
Encoding:
Text File  |  2006-07-07  |  3.9 KB  |  104 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_WAIT_H)) {
  6.     eval 'sub _SYS_WAIT_H () {1;}' unless defined(&_SYS_WAIT_H);
  7.     require 'features.ph';
  8.     require 'signal.ph';
  9.     require 'sys/resource.ph';
  10.     if(!defined (defined(&_STDLIB_H) ? &_STDLIB_H : 0) || !defined (defined(&__USE_XOPEN) ? &__USE_XOPEN : 0)) {
  11.     require 'bits/waitflags.ph';
  12.     if(defined(&__USE_BSD)) {
  13.         if(defined (defined(&__GNUC__) ? &__GNUC__ : 0)  && !defined (defined(&__cplusplus) ? &__cplusplus : 0)) {
  14.         eval 'sub __WAIT_INT {
  15.             my($status) = @_;
  16.                 eval q(( &__extension__ (((\'union union\' {  &__typeof($status)  &__in; \'int\'  &__i; }) { . &__in = ($status) }). &__i)));
  17.         }' unless defined(&__WAIT_INT);
  18.         } else {
  19.         eval 'sub __WAIT_INT {
  20.             my($status) = @_;
  21.                 eval q((*( &__const \'int\' *) ($status)));
  22.         }' unless defined(&__WAIT_INT);
  23.         }
  24.         if(!defined (defined(&__GNUC__) ? &__GNUC__ : 0) || (defined(&__GNUC__) ? &__GNUC__ : 0) < 2|| defined (defined(&__cplusplus) ? &__cplusplus : 0)) {
  25.         eval 'sub __WAIT_STATUS () { &void *;}' unless defined(&__WAIT_STATUS);
  26.         eval 'sub __WAIT_STATUS_DEFN () { &void *;}' unless defined(&__WAIT_STATUS_DEFN);
  27.         } else {
  28.         eval 'sub __WAIT_STATUS_DEFN () {\'int\' *;}' unless defined(&__WAIT_STATUS_DEFN);
  29.         }
  30.     } else {
  31.         eval 'sub __WAIT_INT {
  32.             my($status) = @_;
  33.             eval q(($status));
  34.         }' unless defined(&__WAIT_INT);
  35.         eval 'sub __WAIT_STATUS () {\'int\' *;}' unless defined(&__WAIT_STATUS);
  36.         eval 'sub __WAIT_STATUS_DEFN () {\'int\' *;}' unless defined(&__WAIT_STATUS_DEFN);
  37.     }
  38.     require 'bits/waitstatus.ph';
  39.     eval 'sub WEXITSTATUS {
  40.         my($status) = @_;
  41.             eval q( &__WEXITSTATUS( &__WAIT_INT($status)));
  42.     }' unless defined(&WEXITSTATUS);
  43.     eval 'sub WTERMSIG {
  44.         my($status) = @_;
  45.             eval q( &__WTERMSIG( &__WAIT_INT($status)));
  46.     }' unless defined(&WTERMSIG);
  47.     eval 'sub WSTOPSIG {
  48.         my($status) = @_;
  49.             eval q( &__WSTOPSIG( &__WAIT_INT($status)));
  50.     }' unless defined(&WSTOPSIG);
  51.     eval 'sub WIFEXITED {
  52.         my($status) = @_;
  53.             eval q( &__WIFEXITED( &__WAIT_INT($status)));
  54.     }' unless defined(&WIFEXITED);
  55.     eval 'sub WIFSIGNALED {
  56.         my($status) = @_;
  57.             eval q( &__WIFSIGNALED( &__WAIT_INT($status)));
  58.     }' unless defined(&WIFSIGNALED);
  59.     eval 'sub WIFSTOPPED {
  60.         my($status) = @_;
  61.             eval q( &__WIFSTOPPED( &__WAIT_INT($status)));
  62.     }' unless defined(&WIFSTOPPED);
  63.     if(defined(&__WIFCONTINUED)) {
  64.         eval 'sub WIFCONTINUED {
  65.             my($status) = @_;
  66.             eval q( &__WIFCONTINUED( &__WAIT_INT($status)));
  67.         }' unless defined(&WIFCONTINUED);
  68.     }
  69.     }
  70.     if(defined(&__USE_BSD)) {
  71.     eval 'sub WCOREFLAG () { &__WCOREFLAG;}' unless defined(&WCOREFLAG);
  72.     eval 'sub WCOREDUMP {
  73.         my($status) = @_;
  74.             eval q( &__WCOREDUMP( &__WAIT_INT($status)));
  75.     }' unless defined(&WCOREDUMP);
  76.     eval 'sub W_EXITCODE {
  77.         my($ret, $sig) = @_;
  78.             eval q( &__W_EXITCODE($ret, $sig));
  79.     }' unless defined(&W_EXITCODE);
  80.     eval 'sub W_STOPCODE {
  81.         my($sig) = @_;
  82.             eval q( &__W_STOPCODE($sig));
  83.     }' unless defined(&W_STOPCODE);
  84.     }
  85.     if(defined (defined(&__USE_SVID) ? &__USE_SVID : 0) || defined (defined(&__USE_XOPEN) ? &__USE_XOPEN : 0)) {
  86.     eval("sub P_ALL () { 0; }") unless defined(&P_ALL);
  87.     eval("sub P_PID () { 1; }") unless defined(&P_PID);
  88.     eval("sub P_PGID () { 2; }") unless defined(&P_PGID);
  89.     }
  90.     if(defined(&__USE_BSD)) {
  91.     eval 'sub WAIT_ANY () {(-1);}' unless defined(&WAIT_ANY);
  92.     eval 'sub WAIT_MYPGRP () {0;}' unless defined(&WAIT_MYPGRP);
  93.     }
  94.     if(defined (defined(&__USE_SVID) ? &__USE_SVID : 0) || defined (defined(&__USE_XOPEN) ? &__USE_XOPEN : 0)) {
  95.     eval 'sub __need_siginfo_t () {1;}' unless defined(&__need_siginfo_t);
  96.     require 'bits/siginfo.ph';
  97.     }
  98.     if(defined (defined(&__USE_BSD) ? &__USE_BSD : 0) || defined (defined(&__USE_XOPEN_EXTENDED) ? &__USE_XOPEN_EXTENDED : 0)) {
  99.     }
  100.     if(defined(&__USE_BSD)) {
  101.     }
  102. }
  103. 1;
  104.