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

Update copyright.

Browse source 
Fix relative path bug.  Thanks to Sergey Poznyakoff.
This commit is contained in:
Thien-Thi Nguyen 2001-05-10 23:34:33 +00:00
parent c9dcc5ae18
commit 230b61abbb
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
#!/bin/sh #!/bin/sh
# Extract the initialization actions for builtin things. # Extract the initialization actions for builtin things.
# #
# Copyright (C) 1999, 2000 Free Software Foundation, Inc. # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -40,9 +40,11 @@ test -n "${CPP+set}" || CPP="@CPP@"
test -n "${AWK+set}" || AWK="@AWK@" test -n "${AWK+set}" || AWK="@AWK@"
## Must run guile-func-name-check on the unpreprocessed source ## Must run guile-func-name-check on the unpreprocessed source
${AWK} -f guile-func-name-check "$fullfilename" ${AWK} -f `dirname $0`/guile-func-name-check "$fullfilename"
## 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 $?
cut -c1-1023 ${temp} | ${AWK} -f `dirname $0`/guile-snarf.awk ${dot_doc} cut -c1-1023 ${temp} | ${AWK} -f `dirname $0`/guile-snarf.awk ${dot_doc}
# guile-doc-snarf ends here