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 / time.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  2.6 KB  |  66 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_TIME_H)) {
  6.     eval 'sub _SYS_TIME_H () {1;}' unless defined(&_SYS_TIME_H);
  7.     require 'features.ph';
  8.     require 'bits/types.ph';
  9.     eval 'sub __need_time_t () {1;}' unless defined(&__need_time_t);
  10.     require 'time.ph';
  11.     eval 'sub __need_timeval () {1;}' unless defined(&__need_timeval);
  12.     require 'bits/time.ph';
  13.     require 'sys/select.ph';
  14.     unless(defined(&__suseconds_t_defined)) {
  15.     eval 'sub __suseconds_t_defined () {1;}' unless defined(&__suseconds_t_defined);
  16.     }
  17.     if(defined(&__USE_GNU)) {
  18.     eval 'sub TIMEVAL_TO_TIMESPEC {
  19.         my($tv, $ts) = @_;
  20.             eval q({ ($ts)-> &tv_sec = ($tv)-> &tv_sec; ($ts)-> &tv_nsec = ($tv)-> &tv_usec * 1000; });
  21.     }' unless defined(&TIMEVAL_TO_TIMESPEC);
  22.     eval 'sub TIMESPEC_TO_TIMEVAL {
  23.         my($tv, $ts) = @_;
  24.             eval q({ ($tv)-> &tv_sec = ($ts)-> &tv_sec; ($tv)-> &tv_usec = ($ts)-> &tv_nsec / 1000; });
  25.     }' unless defined(&TIMESPEC_TO_TIMEVAL);
  26.     }
  27.     if(defined(&__USE_BSD)) {
  28.     } else {
  29.     }
  30.     if(defined(&__USE_BSD)) {
  31.     }
  32.     eval("sub ITIMER_REAL () { 0; }") unless defined(&ITIMER_REAL);
  33.     eval("sub ITIMER_VIRTUAL () { 1; }") unless defined(&ITIMER_VIRTUAL);
  34.     eval("sub ITIMER_PROF () { 2; }") unless defined(&ITIMER_PROF);
  35.     if(defined (defined(&__USE_GNU) ? &__USE_GNU : 0)  && !defined (defined(&__cplusplus) ? &__cplusplus : 0)) {
  36.     } else {
  37.     }
  38.     if(defined(&__USE_BSD)) {
  39.     }
  40.     if(defined(&__USE_ATFILE)) {
  41.     }
  42.     if(defined(&__USE_BSD)) {
  43.     eval 'sub timerisset {
  44.         my($tvp) = @_;
  45.             eval q((($tvp)-> &tv_sec || ($tvp)-> &tv_usec));
  46.     }' unless defined(&timerisset);
  47.     eval 'sub timerclear {
  48.         my($tvp) = @_;
  49.             eval q((($tvp)-> &tv_sec = ($tvp)-> &tv_usec = 0));
  50.     }' unless defined(&timerclear);
  51.     eval 'sub timercmp {
  52.         my($a, $b, $CMP) = @_;
  53.             eval q(((($a)-> &tv_sec == ($b)-> &tv_sec) ? (($a)-> &tv_usec $CMP ($b)-> &tv_usec) : (($a)-> &tv_sec $CMP ($b)-> &tv_sec)));
  54.     }' unless defined(&timercmp);
  55.     eval 'sub timeradd {
  56.         my($a, $b, $result) = @_;
  57.             eval q( &do { ($result)-> &tv_sec = ($a)-> &tv_sec + ($b)-> &tv_sec; ($result)-> &tv_usec = ($a)-> &tv_usec + ($b)-> &tv_usec;  &if (($result)-> &tv_usec >= 1000000) { ++($result)-> &tv_sec; ($result)-> &tv_usec -= 1000000; } }  &while (0));
  58.     }' unless defined(&timeradd);
  59.     eval 'sub timersub {
  60.         my($a, $b, $result) = @_;
  61.             eval q( &do { ($result)-> &tv_sec = ($a)-> &tv_sec - ($b)-> &tv_sec; ($result)-> &tv_usec = ($a)-> &tv_usec - ($b)-> &tv_usec;  &if (($result)-> &tv_usec < 0) { --($result)-> &tv_sec; ($result)-> &tv_usec += 1000000; } }  &while (0));
  62.     }' unless defined(&timersub);
  63.     }
  64. }
  65. 1;
  66.