home *** CD-ROM | disk | FTP | other *** search
- /****************************************************************************
- *
- * $Source: /unixb/home/unixlib/source/unixlib37/src/sys/c/RCS/alarm,v $
- * $Date: 1996/10/30 21:59:00 $
- * $Revision: 1.3 $
- * $State: Rel $
- * $Author: unixlib $
- *
- * $Log: alarm,v $
- * Revision 1.3 1996/10/30 21:59:00 unixlib
- * Massive changes made by Nick Burret and Peter Burwood.
- *
- * Revision 1.2 1996/05/06 09:01:34 unixlib
- * Updates to sources made by Nick Burrett, Peter Burwood and Simon Callan.
- * Saved for 3.7a release.
- *
- * Revision 1.1 1996/04/19 21:34:24 simon
- * Initial revision
- *
- ***************************************************************************/
-
- static const char rcs_id[] = "$Id: alarm,v 1.3 1996/10/30 21:59:00 unixlib Rel $";
-
- #include <unistd.h>
- #include <sys/time.h>
-
- unsigned int
- alarm (unsigned int seconds)
- {
- struct itimerval old, new_timer;
- new_timer.it_interval.tv_usec = 0;
- new_timer.it_interval.tv_sec = 0;
- new_timer.it_value.tv_usec = 0;
- new_timer.it_value.tv_sec = (int) seconds;
- return (setitimer (ITIMER_REAL, &new_timer, &old) < 0) ? 0 : old.it_value.tv_sec;
- }
-