2 # Extract the initialization actions for builtin things.
6 # strip path to source directory
7 filename
=`basename $fullfilename`
9 # we need to be sure that the .x file exists
10 # since the .c/.cc file may include it
11 # (the old guile-snarf did not have this problem
12 # because the makefile redirects output to the .x file
13 # which creates the file before the inclusion occurs)
15 no_ext
=`echo $filename | sed 's/\.[^.]*$//g'`
19 trap "rm -f $temp" 0 1 2 15
21 ## Let the user override the preprocessor & awk autoconf found.
22 test -n "${CPP+set}" || CPP
="@CPP@"
23 test -n "${AWK+set}" || AWK
="@AWK@"
25 ## Must run guile-func-name-check on the unpreprocessed source
26 ${AWK} -f guile-func-name-check
"$fullfilename"
28 ## We must use a temporary file here, instead of a pipe, because we
29 ## need to know if CPP exits with a non-zero status.
30 ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} ||
exit $?
31 < ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`