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

* guile-doc-snarf.in: don't pipe the CPP output right into sed --

Browse source 
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:
Michael Livshin 2000-06-10 13:24:28 +00:00
parent aa169af814
commit adb2c53b47
3 changed files with 31 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/ChangeLog
View file

@ -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> 2000-06-08 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* snarf.h, guile-snarf.awk.in, guile-snarf.in: Replaced snarf * snarf.h, guile-snarf.awk.in, guile-snarf.in: Replaced snarf

7
libguile/guile-doc-snarf.in
View file

@ -27,7 +27,6 @@ ${AWK} -f guile-func-name-check "$fullfilename"
## We must use a temporary file here, instead of a pipe, because we ## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status. ## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" | \ ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' \ cat ${temp} | sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' | \
> ${temp} || exit $? ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
< ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`

2
libguile/scmsigs.c
View file

@ -307,7 +307,9 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
#ifdef SIGEMT #ifdef SIGEMT
case SIGEMT: case SIGEMT:
#endif #endif
#ifdef SIGSYS
case SIGSYS: case SIGSYS:
#endif
query_only = 1; query_only = 1;
} }