mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* scmsigs.c (s_scm_setitimer): new function.

Browse source 
(s_scm_setitimer): new function.
This commit is contained in:
Rob Browning 2001-07-19 17:43:22 +00:00
parent 7bcbb3f235
commit 53f8a0d20e
1 changed files with 90 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

90
libguile/scmsigs.c
View file

@ -415,6 +415,89 @@ SCM_DEFINE (scm_alarm, "alarm", 1, 0, 0,
}
#undef FUNC_NAME
#ifdef HAVE_SETITIMER
SCM_DEFINE (scm_setitimer, "setitimer", 5, 0, 0,
(SCM which_timer,
SCM interval_seconds, SCM interval_microseconds,
SCM value_seconds, SCM value_microseconds),
"Set the timer specified by @var{which_timer} according to the given\n"
"@var{interval_seconds}, @var{interval_microseconds},\n"
"@var{value_seconds}, and @var{value_microseconds} values.\n"
"\n"
"Return information about the timer's previous setting."
"\n"
"Errors are handled as described in the guile info pages under ``POSIX\n"
"Interface Conventions''.\n"
"\n"
"The timers available are: @code{ITIMER_REAL}, @code{ITIMER_VIRTUAL}, \n"
"and @code{ITIMER_PROF}.\n"
"\n"
"The return value will be a list of two cons pairs representing the\n"
"current state of the given timer. The first pair is the seconds and\n"
"microseconds of the timer @code{it_interval}, and the second pair is\n"
"the seconds and microseconds of the timer @code{it_value}.\n")
#define FUNC_NAME s_scm_setitimer
{
int rv;
int c_which_timer;
struct itimerval new_timer;
struct itimerval old_timer;
c_which_timer = SCM_NUM2INT(1, which_timer);
new_timer.it_interval.tv_sec = SCM_NUM2LONG(2, interval_seconds);
new_timer.it_interval.tv_usec = SCM_NUM2LONG(3, interval_microseconds);
new_timer.it_value.tv_sec = SCM_NUM2LONG(4, value_seconds);
new_timer.it_value.tv_usec = SCM_NUM2LONG(5, value_microseconds);
SCM_SYSCALL(rv = setitimer(c_which_timer, &new_timer, &old_timer));
if(rv != 0)
SCM_SYSERROR;
return scm_list_2(scm_cons(scm_long2num(old_timer.it_interval.tv_sec),
scm_long2num(old_timer.it_interval.tv_usec)),
scm_cons(scm_long2num(old_timer.it_value.tv_sec),
scm_long2num(old_timer.it_value.tv_usec)));
}
#undef FUNC_NAME
#endif /* HAVE_SETITIMER */
#ifdef HAVE_GETITIMER
SCM_DEFINE (scm_getitimer, "getitimer", 1, 0, 0,
(SCM which_timer),
"Return information about the timer specified by @var{which_timer}"
"\n"
"Errors are handled as described in the guile info pages under ``POSIX\n"
"Interface Conventions''.\n"
"\n"
"The timers available are: @code{ITIMER_REAL}, @code{ITIMER_VIRTUAL}, \n"
"and @code{ITIMER_PROF}.\n"
"\n"
"The return value will be a list of two cons pairs representing the\n"
"current state of the given timer. The first pair is the seconds and\n"
"microseconds of the timer @code{it_interval}, and the second pair is\n"
"the seconds and microseconds of the timer @code{it_value}.\n")
#define FUNC_NAME s_scm_getitimer
{
int rv;
int c_which_timer;
struct itimerval old_timer;
c_which_timer = SCM_NUM2INT(1, which_timer);
SCM_SYSCALL(rv = getitimer(c_which_timer, &old_timer));
if(rv != 0)
SCM_SYSERROR;
return scm_list_2(scm_cons(scm_long2num(old_timer.it_interval.tv_sec),
scm_long2num(old_timer.it_interval.tv_usec)),
scm_cons(scm_long2num(old_timer.it_value.tv_sec),
scm_long2num(old_timer.it_value.tv_usec)));
}
#undef FUNC_NAME
#endif /* HAVE_GETITIMER */
#ifdef HAVE_PAUSE
SCM_DEFINE (scm_pause, "pause", 0, 0, 0,
(),
@ -552,6 +635,13 @@ scm_init_scmsigs ()
scm_c_define ("SA_RESTART", scm_long2num (SA_RESTART));
#endif
#if defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER)
/* Stuff needed by setitimer and getitimer. */
scm_c_define ("ITIMER_REAL", SCM_MAKINUM (ITIMER_REAL));
scm_c_define ("ITIMER_VIRTUAL", SCM_MAKINUM (ITIMER_VIRTUAL));
scm_c_define ("ITIMER_PROF", SCM_MAKINUM (ITIMER_PROF));
#endif /* defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER) */
#ifndef SCM_MAGIC_SNARFER
#include "libguile/scmsigs.x"
#endif