mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity
guile/libguile/scmsigs.c
Jim Blandy 20e6290e38 C files should #include only the header files they need, not 
libguile.h (which #includes all the header files); the pointless
recompilation was wasting my time.
* Makefile.in (all .o dependency lists): Regenerated.
* libguile.h: Don't try to get a definition for size_t here...
* __scm.h: Do it here.
* _scm.h: Since this is the internal libguile header, put things
here that all (or a majority) of the libguile files will want.
Don't #include <libguile.h> here; that generates dependencies on
way too much.  Instead, get "__scm.h", "error.h", "pairs.h",
"list.h", "gc.h", "gsubr.h", "procs.h", "numbers.h", "symbols.h",
"boolean.h", "strings.h", "vectors.h", "root.h", "ports.h", and
"async.h".
* alist.c: Get "eq.h", "list.h", "alist.h".
* append.c: Get "append.h", "list.h".
* arbiters.c: Get "arbiters.h", "smob.h".
* async.c: Get "async.h", "smob.h", "throw.h", "eval.h".
* boolean.c: Get "boolean.h".
* chars.c: Get "chars.h".
* continuations.c: Get "continuations.h", "dynwind.h", "debug.h",
"stackchk.h".
* debug.c: Get "debug.h", "feature.h", "read.h", "strports.h",
"continuations.h", "alist.h", "srcprop.h", "procprop.h", "smob.h",
"genio.h", "throw.h", "eval.h".
* dynwind.c: Get "dynwind.h", "alist.h", "eval.h".
* eq.c: Get "eq.h", "unif.h", "smob.h", "strorder.h",
"stackchk.h".
* error.c: Get "error.h", "throw.h", "genio.h", "pairs.h".
* eval.c: Get "eval.h", "stackchk.h", "srcprop.h", "debug.h",
"hashtab.h", "procprop.h", "markers.h", "smob.h", "throw.h",
"continuations.h", "eq.h", "sequences.h", "alist.h", "append.h",
"debug.h".
* fdsocket.c: Get "fdsocket.h", "unif.h", "filesys.h".
* feature.c: Get "feature.h".
* files.c: Get "files.h".
* filesys.c: Get "filesys.h", "smob.h", "genio.h".
* fports.c: Get "fports.h", "markers.h".
* gc.c: Get "async.h", "unif.h", "smob.h", "weaks.h",
"genio.h", "struct.h", "stackchk.h", "stime.h".
* gdbint.c: Get "gdbint.h", "chars.h", "eval.h", "print.h",
"read.h", "strports.h", "tag.h".
* genio.c: Get "genio.h", "chars.h".
* gsubr.c: Get "gsubr.h", "genio.h".
* hash.c: Get "hash.h", "chars.h".
* hashtab.c: Get "hashtab.h", "eval.h", "hash.h", "alist.h".
* init.c: Get everyone who has an scm_init_mumble function:
"weaks.h", "vports.h", "version.h", "vectors.h", "variable.h",
"unif.h", "throw.h", "tag.h", "symbols.h", "struct.h",
"strports.h", "strorder.h", "strop.h", "strings.h", "stime.h",
"stackchk.h", "srcprop.h", "socket.h", "simpos.h", "sequences.h",
"scmsigs.h", "read.h", "ramap.h", "procs.h", "procprop.h",
"print.h", "posix.h", "ports.h", "pairs.h", "options.h",
"objprop.h", "numbers.h", "mbstrings.h", "mallocs.h", "load.h",
"list.h", "kw.h", "ioext.h", "hashtab.h", "hash.h", "gsubr.h",
"gdbint.h", "gc.h", "fports.h", "filesys.h", "files.h",
"feature.h", "fdsocket.h", "eval.h", "error.h", "eq.h",
"dynwind.h", "debug.h", "continuations.h", "chars.h", "boolean.h",
"async.h", "arbiters.h", "append.h", "alist.h".
* ioext.c: Get "ioext.h", "fports.h".
* kw.c: Get "kw.h", "smob.h", "mbstrings.h", "genio.h".
* list.c: Get "list.h", "eq.h".
* load.c: Get "load.h", "eval.h", "read.h", "fports.h".
* mallocs.c: Get "smob.h", "genio.h".
* markers.c: Get "markers.h".
* mbstrings.c: Get "mbstrings.h", "read.h", "genio.h", "unif.h",
"chars.h".
* numbers.c: Get "unif.h", "genio.h".
* objprop.c: Get "objprop.h", "weaks.h", "alist.h", "hashtab.h".
* options.c: Get "options.h".
* ports.c: Get "ports.h", "vports.h", "strports.h", "fports.h",
"markers.h", "chars.h", "genio.h".
* posix.c: Get "posix.h", "sequences.h", "feature.h", "unif.h",
"read.h", "scmsigs.h", "genio.h", "fports.h".
* print.c: Get "print.h",  "unif.h", "weaks.h", "read.h",
"procprop.h", "eval.h", "smob.h", "mbstrings.h", "genio.h",
"chars.h".
* procprop.c: Get "procprop.h", "eval.h", "alist.h".
* procs.c: Get "procs.h".
* ramap.c: Get "ramap.h", "feature.h", "eval.h", "eq.h",
"chars.h", "smob.h", "unif.h".
* read.c: Get "alist.h", "kw.h", "mbstrings.h", "unif.h",
"eval.h", "genio.h", "chars.h".
* root.c: Get "root.h", "stackchk.h".
* scmsigs.c: Get "scmsigs.h".
* sequences.c: Get "sequences.h".
* simpos.c: Get "simpos.h", "scmsigs.h".
* smob.c: Get "smob.h".
* socket.c: Get "socket.h", "feature.h".
* srcprop.c: Get "srcprop.h", "weaks.h", "hashtab.h", "debug.h",
"alist.h", "smob.h".
* stackchk.c: Get "stackchk.h", "genio.h".
* stime.c: Get "stime.h"."libguile/continuations.h".
* strings.c: Get "strings.h", "chars.h".
* strop.c: Get "strop.h", "chars.h".
* strorder.c: Get "strorder.h", "chars.h".
* strports.c: Get "strports.h", "print.h", "eval.h", "unif.h".
* struct.c: Get "struct.h", "chars.h".
* symbols.c: Get "symbols.h", "mbstrings.h", "alist.h",
"variable.h", "eval.h", "chars.h".
* tag.c: Get "tag.h", "struct.h", "chars.h".
* throw.c: Get "throw.h", "continuations.h", "debug.h",
"dynwind.h", "eval.h", "alist.h", "smob.h", "genio.h".
* unif.c: Get "unif.h", "feature.h", "strop.h", "sequences.h",
"smob.h", "genio.h", "eval.h", "chars.h".
* variable.c: Get "variable.h", "smob.h", "genio.h".
* vectors.c: Get "vectors.h", "eq.h".
* version.c: Get "version.h".
* vports.c: Get "vports.h", "fports.h", "chars.h", "eval.h".
* weaks.c: Get "weaks.h".
1996-09-10 02:26:07 +00:00

399 lines
8.2 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* Copyright (C) 1995,1996 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*
* As a special exception, the Free Software Foundation gives permission
* for additional uses of the text contained in its release of GUILE.
*
* The exception is that, if you link the GUILE library with other files
* to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the GUILE library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the
* Free Software Foundation under the name GUILE. If you copy
* code from other Free Software Foundation releases into a copy of
* GUILE, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*/
#include <stdio.h>
#include <signal.h>
#include "_scm.h"
#include "scmsigs.h"
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#if (__TURBOC__==1)
#define signal ssignal /* Needed for TURBOC V1.0 */
#endif
/* SIGRETTYPE is the type that signal handlers return. See <signal.h>*/
#ifdef RETSIGTYPE
#define SIGRETTYPE RETSIGTYPE
#else
#ifdef STDC_HEADERS
#if (__TURBOC__==1)
#define SIGRETTYPE int
#else
#define SIGRETTYPE void
#endif
#else
#ifdef linux
#define SIGRETTYPE void
#else
#define SIGRETTYPE int
#endif
#endif
#endif
#ifdef vms
#ifdef __GNUC__
#define SIGRETTYPE int
#endif
#endif
#define SIGFN(NAME, SCM_NAME, SIGNAL) \
static SIGRETTYPE \
NAME (sig) \
int sig; \
{ \
signal (SIGNAL, NAME); \
scm_take_signal (SCM_NAME); \
}
#ifdef SIGHUP
SIGFN(scm_hup_signal, SCM_HUP_SIGNAL, SIGHUP)
#endif
#ifdef SIGINT
SIGFN(scm_int_signal, SCM_INT_SIGNAL, SIGINT)
#endif
#ifdef SIGFPE
SIGFN(scm_fpe_signal, SCM_FPE_SIGNAL, SIGFPE)
#endif
#ifdef SIGBUS
SIGFN(scm_bus_signal, SCM_BUS_SIGNAL, SIGBUS)
#endif
#ifdef SIGSEGV
SIGFN(scm_segv_signal, SCM_SEGV_SIGNAL, SIGSEGV)
#endif
#ifdef SIGALRM
SIGFN(scm_alrm_signal, SCM_ALRM_SIGNAL, SIGALRM)
#endif
#define FAKESIGFN(NAME, SCM_NAME) \
static SIGRETTYPE \
NAME (sig) \
int sig; \
{ \
scm_take_signal (SCM_NAME); \
}
#if 0
/* !!! */
FAKESIGFN(scm_gc_signal, SCM_GC_SIGNAL)
FAKESIGFN(scm_tick_signal, SCM_TICK_SIGNAL)
#endif
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_SYSCALL (j = alarm (SCM_INUM (i)));
return SCM_MAKINUM (j);
}
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);
#ifdef __HIGHC__
SCM_SYSCALL(j = 0; sleep(SCM_INUM(i)););
#else
SCM_SYSCALL(j = sleep(SCM_INUM(i)););
#endif
return SCM_MAKINUM (j);
}
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
return SCM_MAKINUM(gsignal((int)SCM_INUM(sig)));
# else
return kill (getpid(), (int)SCM_INUM(sig)) ? SCM_BOOL_F : SCM_BOOL_T;
# endif
}
#ifdef SIGHUP
static SIGRETTYPE (*oldhup) ();
#endif
#ifdef SIGINT
static SIGRETTYPE (*oldint) ();
#endif
#ifdef SIGFPE
static SIGRETTYPE (*oldfpe) ();
#endif
#ifdef SIGBUS
static SIGRETTYPE (*oldbus) ();
#endif
#ifdef SIGSEGV /* AMIGA lacks! */
static SIGRETTYPE (*oldsegv) ();
#endif
#ifdef SIGALRM
static SIGRETTYPE (*oldalrm) ();
#endif
#ifdef SIGPIPE
static SIGRETTYPE (*oldpipe) ();
#endif
#ifdef __STDC__
void
scm_init_signals (void)
#else
void
scm_init_signals ()
#endif
{
#ifdef SIGINT
oldint = signal (SIGINT, scm_int_signal);
#endif
#ifdef SIGHUP
oldhup = signal (SIGHUP, scm_hup_signal);
#endif
#ifdef SIGFPE
oldfpe = signal (SIGFPE, scm_fpe_signal);
#endif
#ifdef SIGBUS
oldbus = signal (SIGBUS, scm_bus_signal);
#endif
#ifdef SIGSEGV /* AMIGA lacks! */
oldsegv = signal (SIGSEGV, scm_segv_signal);
#endif
#ifdef SIGALRM
alarm (0); /* kill any pending ALRM interrupts */
oldalrm = signal (SIGALRM, scm_alrm_signal);
#endif
#ifdef SIGPIPE
oldpipe = signal (SIGPIPE, SIG_IGN);
#endif
#ifdef ultrix
siginterrupt (SIGINT, 1);
siginterrupt (SIGALRM, 1);
siginterrupt (SIGHUP, 1);
siginterrupt (SIGPIPE, 1);
#endif /* ultrix */
}
/* 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);
siginterrupt (SIGALRM, 0);
siginterrupt (SIGHUP, 0);
siginterrupt (SIGPIPE, 0);
#endif /* ultrix */
signal (SIGINT, SIG_IGN);
#ifdef SIGHUP
signal (SIGHUP, SIG_DFL);
#endif
#ifdef SCM_FLOATS
signal (SIGFPE, SIG_DFL);
#endif
#ifdef SIGBUS
signal (SIGBUS, SIG_DFL);
#endif
#ifdef SIGSEGV /* AMIGA lacks! */
signal (SIGSEGV, SIG_DFL);
#endif
/* Some documentation claims that ALRMs are cleared accross forks.
If this is not always true then the value returned by alarm(0)
will have to be saved and scm_unignore_signals() will have to
reinstate it. */
/* This code should be neccessary only if the forked process calls
alarm() without establishing a handler:
#ifdef SIGALRM
oldalrm = signal(SIGALRM, SIG_DFL);
#endif */
/* These flushes are per warning in man page on fork(). */
fflush (stdout);
fflush (stderr);
}
#ifdef __STDC__
void
scm_unignore_signals (void)
#else
void
scm_unignore_signals ()
#endif
{
signal (SIGINT, scm_int_signal);
#ifdef SIGHUP
signal (SIGHUP, scm_hup_signal);
#endif
#ifdef SCM_FLOATS
signal (SIGFPE, scm_fpe_signal);
#endif
#ifdef SIGBUS
signal (SIGBUS, scm_bus_signal);
#endif
#ifdef SIGSEGV /* AMIGA lacks! */
signal (SIGSEGV, scm_segv_signal);
#endif
#ifdef SIGALRM
signal (SIGALRM, scm_alrm_signal);
#endif
#ifdef ultrix
siginterrupt (SIGINT, 1);
siginterrupt (SIGALRM, 1);
siginterrupt (SIGHUP, 1);
siginterrupt (SIGPIPE, 1);
#endif /* ultrix */
}
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);
siginterrupt (SIGALRM, 0);
siginterrupt (SIGHUP, 0);
siginterrupt (SIGPIPE, 0);
#endif /* ultrix */
signal (SIGINT, oldint);
#ifdef SIGHUP
signal (SIGHUP, oldhup);
#endif
#ifdef SCM_FLOATS
signal (SIGFPE, oldfpe);
#endif
#ifdef SIGBUS
signal (SIGBUS, oldbus);
#endif
#ifdef SIGSEGV /* AMIGA lacks! */
signal (SIGSEGV, oldsegv);
#endif
#ifdef SIGPIPE
signal (SIGPIPE, oldpipe);
#endif
#ifdef SIGALRM
alarm (0); /* kill any pending ALRM interrupts */
signal (SIGALRM, oldalrm);
#endif
return SCM_UNSPECIFIED;
}
#ifdef __STDC__
void
scm_init_scmsigs (void)
#else
void
scm_init_scmsigs ()
#endif
{
#include "scmsigs.x"
}
View git blame Copy permalink