mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* guile-doc-snarf.in (filename): Strip path to source dir before

Browse source 
touching the .x-files.
This commit is contained in:
Mikael Djurfeldt 1999-12-18 18:21:39 +00:00
parent f73295a881
commit aff882a874
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,6 +3,9 @@
filename=$1; shift filename=$1; shift
# strip path to source directory
filename=`basename $filename`
# we need to be sure that the .x file exists # we need to be sure that the .x file exists
# since the .c/.cc file may include it # since the .c/.cc file may include it
# (the old guile-snarf did not have this problem # (the old guile-snarf did not have this problem
@ -21,4 +24,4 @@ test -n "${CPP+set}" || CPP="@CPP@"
## We must use a temporary file here, instead of a pipe, because we ## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status. ## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $? ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
< ${temp} awk -f `dirname $0`/guile-snarf.awk `basename $filename` < ${temp} awk -f `dirname $0`/guile-snarf.awk $filename