home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / itimers.pl < prev    next >
Encoding:
Text File  |  1990-10-29  |  2.2 KB  |  82 lines
  1. #    itimers.pl - timer manipulation functions
  2. #    written by tom christiansen <tchrist@convex.com>
  3. #
  4. #    getitimer, setitimer  - like syscalls but return true on success
  5. #                NB: require packed data for args
  6. #
  7. #    itimer              - conversion function for packing and 
  8. #                unpacking itimers.  packs in scalar context,
  9. #                unpacks in array context.
  10. #
  11. #    alarm              - like libc call but can take and returns floats
  12. #
  13.  
  14. require 'sizeof.ph';
  15. require 'syscall.ph';
  16. require 'sys/time.ph';
  17.  
  18. #
  19. # careful: implementation dependent!
  20. #
  21. $itimer_t = 'L4';  # itimers consist of four longs
  22. $sizeof{'itimer'} = '16' unless defined $sizeof{'itimer'};  # from sizeof.ph?
  23.  
  24. ###########################################################################
  25. # itimer conversion function; this one goes both ways
  26. #
  27. sub itimer {
  28.     if (wantarray) {
  29.     warn "itimer: only expected one arg in array context" if $#_;
  30.     warn "itimer: itimer to unpack not length ".$sizeof{'itimer'} 
  31.         unless length($_[0]) == $sizeof{'itimer'};
  32.     return unpack($itimer_t, $_[0]);
  33.     } else {
  34.     return pack($itimer_t, $_[0], $_[1], $_[2], $_[3]); 
  35.     } 
  36. } 
  37.  
  38.  
  39. ###########################################################################
  40. sub setitimer {
  41.     local($which) = shift;
  42.     local($retval);
  43.  
  44.     die "setitimer: input itimer not length ".$sizeof{'itimer'} 
  45.     unless length($_[0]) == $sizeof{'itimer'};
  46.  
  47.     $_[1] = &itimer(0,0,0,0);
  48.     syscall(&SYS_setitimer, $which, $_[0], $_[1]) != -1;
  49. } 
  50.  
  51. ###########################################################################
  52. sub getitimer {
  53.     local($which) = shift;
  54.  
  55.     $_[0] = &itimer(0,0,0,0);
  56.  
  57.     syscall(&SYS_getitimer, $which, $_[0]) != -1;
  58. } 
  59.  
  60. ###########################################################################
  61. # 
  62. # alarm; send me a SIGALRM in this many seconds (fractions ok)
  63. # 
  64. #
  65. sub alarm {
  66.     local($ticks) = @_;
  67.     local($itimer,$otimer);
  68.     local($isecs, $iusecs, $secs, $usecs);
  69.  
  70.     $secs = int($ticks);
  71.     $usecs = ($ticks - $secs) * 1e6;
  72.  
  73.     $otimer = &itimer(0,0,0,0);
  74.     $itimer = &itimer(0,0,$secs,$usecs);
  75.  
  76.     &setitimer(&ITIMER_REAL, $itimer, $otimer) 
  77.     || warn "alarm: setitimer failed: $!";
  78.  
  79.     ($isecs, $iusecs, $secs, $usecs) = &itimer($otimer);
  80.     return $secs + ($usecs/1e6);
  81. } 
  82.