mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 18:40:22 +02:00
adb2c53b47
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.
32 lines
1.1 KiB
Bash
Executable file
32 lines
1.1 KiB
Bash
Executable file
#!/bin/sh
|
|
# Extract the initialization actions for builtin things.
|
|
|
|
fullfilename=$1; shift
|
|
|
|
# strip path to source directory
|
|
filename=`basename $fullfilename`
|
|
|
|
# we need to be sure that the .x file exists
|
|
# since the .c/.cc file may include it
|
|
# (the old guile-snarf did not have this problem
|
|
# because the makefile redirects output to the .x file
|
|
# which creates the file before the inclusion occurs)
|
|
# --12/12/99 gjb
|
|
no_ext=`echo $filename | sed 's/\.[^.]*$//g'`
|
|
dot_doc=${no_ext}.doc
|
|
|
|
temp="/tmp/snarf.$$"
|
|
trap "rm -f $temp" 0 1 2 15
|
|
|
|
## Let the user override the preprocessor & awk autoconf found.
|
|
test -n "${CPP+set}" || CPP="@CPP@"
|
|
test -n "${AWK+set}" || AWK="@AWK@"
|
|
|
|
## Must run guile-func-name-check on the unpreprocessed source
|
|
${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 "$@" > ${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}`
|