mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Install the trap for removing $cleanfile only when the value of

Browse source 
$cleanfile is actually known.
This commit is contained in:
Marius Vollmer 2002-04-16 20:12:10 +00:00
parent 21550b108e
commit 3be0d96d0f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/guile-snarf.in
View file

@ -107,7 +107,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`'"'
@ -117,6 +117,7 @@ if [ ! "$outfile" = "-" ]; then
# 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