#define signal ssignal /* Needed for TURBOC V1.0 */
#endif
+#ifdef USE_MIT_PTHREADS
+#undef signal
+#define signal pthread_signal
+#endif
+
\f
/* SIGRETTYPE is the type that signal handlers return. See <signal.h>*/
\f
SCM_PROC(s_alarm, "alarm", 1, 0, 0, scm_alarm);
-#ifdef __STDC__
-SCM
-scm_alarm (SCM i)
-#else
+
SCM
scm_alarm (i)
SCM i;
-#endif
{
unsigned int j;
SCM_ASSERT (SCM_INUMP (i) && (SCM_INUM (i) >= 0), i, SCM_ARG1, s_alarm);
SCM_PROC(s_pause, "pause", 0, 0, 0, scm_pause);
-#ifdef __STDC__
-SCM
-scm_pause (void)
-#else
+
SCM
scm_pause ()
-#endif
{
pause ();
return SCM_UNSPECIFIED;
}
SCM_PROC(s_sleep, "sleep", 1, 0, 0, scm_sleep);
-#ifdef __STDC__
-SCM
-scm_sleep (SCM i)
-#else
+
SCM
scm_sleep (i)
SCM i;
-#endif
{
unsigned int j;
SCM_ASSERT (SCM_INUMP (i) && (SCM_INUM (i) >= 0), i, SCM_ARG1, s_sleep);
}
SCM_PROC(s_raise, "raise", 1, 0, 0, scm_raise);
-#ifdef __STDC__
-SCM
-scm_raise(SCM sig)
-#else
+
SCM
scm_raise(sig)
SCM sig;
-#endif
{
SCM_ASSERT(SCM_INUMP(sig), sig, SCM_ARG1, s_raise);
# ifdef vms
#endif
-#ifdef __STDC__
-void
-scm_init_signals (void)
-#else
+
void
scm_init_signals ()
-#endif
{
#ifdef SIGINT
oldint = signal (SIGINT, scm_int_signal);
/* This is used in preparation for a possible fork(). Ignore all
signals before the fork so that child will catch only if it
establishes a handler */
-#ifdef __STDC__
-void
-scm_ignore_signals (void)
-#else
+
void
scm_ignore_signals ()
-#endif
{
#ifdef ultrix
siginterrupt (SIGINT, 0);
fflush (stderr);
}
-#ifdef __STDC__
-void
-scm_unignore_signals (void)
-#else
+
void
scm_unignore_signals ()
-#endif
{
signal (SIGINT, scm_int_signal);
#ifdef SIGHUP
}
SCM_PROC (s_restore_signals, "restore-signals", 0, 0, 0, scm_restore_signals);
-#ifdef __STDC__
-SCM
-scm_restore_signals (void)
-#else
+
SCM
scm_restore_signals ()
-#endif
{
#ifdef ultrix
siginterrupt (SIGINT, 0);
}
-#ifdef __STDC__
-void
-scm_init_scmsigs (void)
-#else
+
void
scm_init_scmsigs ()
-#endif
{
#include "scmsigs.x"
}