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

* guile-doc-snarf.in: Use new $fullfilename for running

Browse source 
guile-func-name-check, and put "$fullfilename" and "$filename" in
quotes at uses to make sure re-splitting on whitespace does not
occur (so filenames w/ embedded whitespace would work okay, though
I sure hope we never have to deal with that! :-) ).  Thanks to
Mikael for pointing out the source_dir != build_dir was broken.
This commit is contained in:
Greg J. Badros 2000-01-12 02:25:40 +00:00
parent fb4956c9fc
commit dd3c73d230
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,10 +1,10 @@
#!/bin/sh
# Extract the initialization actions for builtin things.
filename=$1; shift
fullfilename=$1; shift
# strip path to source directory
filename=`basename $filename`
filename=`basename $fullfilename`
# we need to be sure that the .x file exists
# since the .c/.cc file may include it
@ -22,9 +22,9 @@ trap "rm -f $temp" 0 1 2 15
test -n "${CPP+set}" || CPP="@CPP@"
## Must run guile-func-name-check on the unpreprocessed source
guile-func-name-check "$filename"
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 $?
< ${temp} awk -f `dirname $0`/guile-snarf.awk $filename
< ${temp} awk -f `dirname $0`/guile-snarf.awk "$filename"