}
/* user interface for installation of signal handlers. */
-SCM_DEFINE(scm_sigaction, "sigaction", 1, 2, 0,
+SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
(SCM signum, SCM handler, SCM flags),
"Install or report the signal hander for a specified signal.
SCM *scheme_handlers = SCM_VELTS (*signal_handlers);
SCM old_handler;
- SCM_VALIDATE_INUM_COPY(1,signum,csig);
+ SCM_VALIDATE_INUM_COPY (1,signum,csig);
#if defined(HAVE_SIGACTION)
#if defined(SA_RESTART) && defined(HAVE_RESTARTABLE_SYSCALLS)
/* don't allow SA_RESTART to be omitted if HAVE_RESTARTABLE_SYSCALLS
#endif
if (!SCM_UNBNDP (flags))
{
- SCM_VALIDATE_INUM(3,flags);
+ SCM_VALIDATE_INUM (3,flags);
action.sa_flags |= SCM_INUM (flags);
}
sigemptyset (&action.sa_mask);
}
#undef FUNC_NAME
-SCM_DEFINE(scm_alarm, "alarm", 1, 0, 0,
+SCM_DEFINE (scm_alarm, "alarm", 1, 0, 0,
(SCM i),
"Set a timer to raise a @code{SIGALRM} signal after the specified
number of seconds (an integer). It's advisable to install a signal
#define FUNC_NAME s_scm_alarm
{
unsigned int j;
- SCM_VALIDATE_INUM(1,i);
+ SCM_VALIDATE_INUM (1,i);
j = alarm (SCM_INUM (i));
return SCM_MAKINUM (j);
}
#undef FUNC_NAME
#ifdef HAVE_PAUSE
-SCM_DEFINE(scm_pause, "pause", 0, 0, 0,
+SCM_DEFINE (scm_pause, "pause", 0, 0, 0,
(),
"Pause the current process (thread?) until a signal arrives whose
action is to either terminate the current process or invoke a
#undef FUNC_NAME
#endif
-SCM_DEFINE(scm_sleep, "sleep", 1, 0, 0,
+SCM_DEFINE (scm_sleep, "sleep", 1, 0, 0,
(SCM i),
"Wait for the given number of seconds (an integer) or until a signal
arrives. The return value is zero if the time elapses or the number
#define FUNC_NAME s_scm_sleep
{
unsigned long j;
- SCM_VALIDATE_INUM_MIN(1,i,0);
+ SCM_VALIDATE_INUM_MIN (1,i,0);
#ifdef USE_THREADS
j = scm_thread_sleep (SCM_INUM(i));
#else
#undef FUNC_NAME
#if defined(USE_THREADS) || defined(HAVE_USLEEP)
-SCM_DEFINE(scm_usleep, "usleep", 1, 0, 0,
+SCM_DEFINE (scm_usleep, "usleep", 1, 0, 0,
(SCM i),
"")
#define FUNC_NAME s_scm_usleep
{
- SCM_VALIDATE_INUM_MIN(1,i,0);
+ SCM_VALIDATE_INUM_MIN (1,i,0);
#ifdef USE_THREADS
/* If we have threads, we use the thread system's sleep function. */
#undef FUNC_NAME
#endif /* GUILE_ISELECT || HAVE_USLEEP */
-SCM_DEFINE(scm_raise, "raise", 1, 0, 0,
+SCM_DEFINE (scm_raise, "raise", 1, 0, 0,
(SCM sig),
"
Sends a specified signal @var{sig} to the current process, where
@var{sig} is as described for the kill procedure.")
#define FUNC_NAME s_scm_raise
{
- SCM_VALIDATE_INUM(1,sig);
+ SCM_VALIDATE_INUM (1,sig);
SCM_DEFER_INTS;
if (kill (getpid (), (int) SCM_INUM (sig)) != 0)
SCM_SYSERROR;