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

guile-snarf.in: Install the trap for removing $cleanfile only when the

Browse source 
value of $cleanfile is actually known.
This commit is contained in:
Marius Vollmer 2002-04-07 22:23:48 +00:00
parent a9f0370dc6
commit 38476238d3
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/guile-snarf.in
View file

@ -33,7 +33,7 @@
# If there are errors during processing, delete OUTFILE and exit with # If there are errors during processing, delete OUTFILE and exit with
# non-zero status. # non-zero status.
# #
# During snarfing, the pre-processor macro @code{SCM_MAGIC_SNARFER} is # During snarfing, the pre-processor macro SCM_MAGIC_SNARFER is
# defined. # defined.
# #
# If env var CPP is set, use its value instead of the C pre-processor # If env var CPP is set, use its value instead of the C pre-processor
@ -74,7 +74,7 @@ cpp_ok_p=false
temp="/tmp/snarf.$$" temp="/tmp/snarf.$$"
if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
trap "rm -f $temp $clean_infile" 0 1 2 15 trap "rm -f $temp" 0 1 2 15
if [ ! "$outfile" = "-" ] ; then if [ ! "$outfile" = "-" ] ; then
self_blind_regexp='^#include ".*'`basename $outfile`'"' self_blind_regexp='^#include ".*'`basename $outfile`'"'
@ -83,6 +83,7 @@ if [ ! "$outfile" = "-" ] ; then
# (e.g., see libguile/eval.c). # (e.g., see libguile/eval.c).
# use .c to satisfy cpp heuristics. # use .c to satisfy cpp heuristics.
# clean input file # clean input file
trap "rm -f $cleanfile" 0 1 2 15
grep -v "$self_blind_regexp" $infile > $clean_infile grep -v "$self_blind_regexp" $infile > $clean_infile
modern_snarf "$@" $clean_infile > $outfile modern_snarf "$@" $clean_infile > $outfile
else else