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 / bits / time.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  1.2 KB  |  30 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&__need_timeval)) {
  6.     unless(defined(&_BITS_TIME_H)) {
  7.     eval 'sub _BITS_TIME_H () {1;}' unless defined(&_BITS_TIME_H);
  8.     eval 'sub CLOCKS_PER_SEC () {1000000;}' unless defined(&CLOCKS_PER_SEC);
  9.     if(!defined (defined(&__STRICT_ANSI__) ? &__STRICT_ANSI__ : 0)  && !defined (defined(&__USE_XOPEN2K) ? &__USE_XOPEN2K : 0)) {
  10.         require 'bits/types.ph';
  11.         eval 'sub CLK_TCK () {(( &__clock_t)  &__sysconf (2));}' unless defined(&CLK_TCK);
  12.     }
  13.     if(defined(&__USE_POSIX199309)) {
  14.         eval 'sub CLOCK_REALTIME () {0;}' unless defined(&CLOCK_REALTIME);
  15.         eval 'sub CLOCK_MONOTONIC () {1;}' unless defined(&CLOCK_MONOTONIC);
  16.         eval 'sub CLOCK_PROCESS_CPUTIME_ID () {2;}' unless defined(&CLOCK_PROCESS_CPUTIME_ID);
  17.         eval 'sub CLOCK_THREAD_CPUTIME_ID () {3;}' unless defined(&CLOCK_THREAD_CPUTIME_ID);
  18.         eval 'sub TIMER_ABSTIME () {1;}' unless defined(&TIMER_ABSTIME);
  19.     }
  20.     }
  21. }
  22. if(defined(&__need_timeval)) {
  23.     undef(&__need_timeval) if defined(&__need_timeval);
  24.     unless(defined(&_STRUCT_TIMEVAL)) {
  25.     eval 'sub _STRUCT_TIMEVAL () {1;}' unless defined(&_STRUCT_TIMEVAL);
  26.     require 'bits/types.ph';
  27.     }
  28. }
  29. 1;
  30.