mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
* guile-doc-snarf.in: don't pipe the CPP output right into sed --
write it to the temp file first and check the CPP return code. (I introduced this bug earlier, and this probably caused people with non-GNU C preprocessors to get empty *.x files and not to have the build fail right away...). * scmsigs.c (s_scm_sigaction): guard the SIGSYS case with an ifdef -- at least my libc5-based Linux system doesn't define SIGSYS.
This commit is contained in:
parent
aa169af814
commit
adb2c53b47
3 changed files with 31 additions and 19 deletions
|
@ -1,3 +1,14 @@
|
|||
2000-06-10 Michael Livshin <mlivshin@bigfoot.com>
|
||||
|
||||
* guile-doc-snarf.in: don't pipe the CPP output right into sed --
|
||||
write it to the temp file first and check the CPP return code.
|
||||
(I introduced this bug earlier, and this probably caused people
|
||||
with non-GNU C preprocessors to get empty *.x files and not to
|
||||
have the build fail right away...).
|
||||
|
||||
* scmsigs.c (s_scm_sigaction): guard the SIGSYS case with an ifdef
|
||||
-- at least my libc5-based Linux system doesn't define SIGSYS.
|
||||
|
||||
2000-06-08 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
|
||||
|
||||
* snarf.h, guile-snarf.awk.in, guile-snarf.in: Replaced snarf
|
||||
|
|
|
@ -27,7 +27,6 @@ ${AWK} -f guile-func-name-check "$fullfilename"
|
|||
|
||||
## We must use a temporary file here, instead of a pipe, because we
|
||||
## need to know if CPP exits with a non-zero status.
|
||||
${CPP} -DSCM_MAGIC_SNARFER "$@" | \
|
||||
sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' \
|
||||
> ${temp} || exit $?
|
||||
< ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
|
||||
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
|
||||
cat ${temp} | sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' | \
|
||||
${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
|
||||
|
|
|
@ -1,15 +1,15 @@
|
|||
/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 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, Inc., 59 Temple Place, Suite 330,
|
||||
|
@ -165,7 +165,7 @@ sys_deliver_signals (void)
|
|||
#ifndef HAVE_SIGACTION
|
||||
signal (i, take_signal);
|
||||
#endif
|
||||
scm_apply (SCM_VELTS (*signal_handlers)[i],
|
||||
scm_apply (SCM_VELTS (*signal_handlers)[i],
|
||||
scm_listify (SCM_MAKINUM (i), SCM_UNDEFINED),
|
||||
SCM_EOL);
|
||||
}
|
||||
|
@ -174,7 +174,7 @@ sys_deliver_signals (void)
|
|||
}
|
||||
|
||||
/* 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 handler for a specified signal.\n\n"
|
||||
"@var{signum} is the signal number, which can be specified using the value\n"
|
||||
|
@ -271,7 +271,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
|
|||
scheme_handlers[csig] = SCM_BOOL_F;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
SCM_VALIDATE_NIM (2,handler);
|
||||
|
@ -286,7 +286,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
|
|||
#endif
|
||||
scheme_handlers[csig] = handler;
|
||||
}
|
||||
|
||||
|
||||
/* XXX - Silently ignore setting handlers for `program error signals'
|
||||
because they can't currently be handled by Scheme code.
|
||||
*/
|
||||
|
@ -307,7 +307,9 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
|
|||
#ifdef SIGEMT
|
||||
case SIGEMT:
|
||||
#endif
|
||||
#ifdef SIGSYS
|
||||
case SIGSYS:
|
||||
#endif
|
||||
query_only = 1;
|
||||
}
|
||||
|
||||
|
@ -351,14 +353,14 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
|
|||
}
|
||||
#undef FUNC_NAME
|
||||
|
||||
SCM_DEFINE (scm_restore_signals, "restore-signals", 0, 0, 0,
|
||||
SCM_DEFINE (scm_restore_signals, "restore-signals", 0, 0, 0,
|
||||
(void),
|
||||
"Return all signal handlers to the values they had before any call to\n"
|
||||
"@code{sigaction} was made. The return value is unspecified.")
|
||||
#define FUNC_NAME s_scm_restore_signals
|
||||
{
|
||||
int i;
|
||||
SCM *scheme_handlers = SCM_VELTS (*signal_handlers);
|
||||
SCM *scheme_handlers = SCM_VELTS (*signal_handlers);
|
||||
|
||||
for (i = 0; i < NSIG; i++)
|
||||
{
|
||||
|
@ -384,7 +386,7 @@ SCM_DEFINE (scm_restore_signals, "restore-signals", 0, 0, 0,
|
|||
}
|
||||
#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\n"
|
||||
"number of seconds (an integer). It's advisable to install a signal\n"
|
||||
|
@ -404,7 +406,7 @@ SCM_DEFINE (scm_alarm, "alarm", 1, 0, 0,
|
|||
#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\n"
|
||||
"action is to either terminate the current process or invoke a\n"
|
||||
|
@ -417,7 +419,7 @@ SCM_DEFINE (scm_pause, "pause", 0, 0, 0,
|
|||
#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\n"
|
||||
"arrives. The return value is zero if the time elapses or the number\n"
|
||||
|
@ -436,7 +438,7 @@ SCM_DEFINE (scm_sleep, "sleep", 1, 0, 0,
|
|||
#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),
|
||||
"Sleep for I microseconds.\n"
|
||||
"`usleep' is not available on all platforms.")
|
||||
|
@ -465,7 +467,7 @@ SCM_DEFINE (scm_usleep, "usleep", 1, 0, 0,
|
|||
#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),
|
||||
"\n"
|
||||
"Sends a specified signal @var{sig} to the current process, where\n"
|
||||
|
@ -509,7 +511,7 @@ scm_init_scmsigs ()
|
|||
|
||||
#ifdef HAVE_RESTARTABLE_SYSCALLS
|
||||
/* If HAVE_RESTARTABLE_SYSCALLS is defined, it's important that
|
||||
signals really are restartable. don't rely on the same
|
||||
signals really are restartable. don't rely on the same
|
||||
run-time that configure got: reset the default for every signal.
|
||||
*/
|
||||
#ifdef HAVE_SIGINTERRUPT
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue