mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +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

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

@ -1,18 +1,18 @@
#!/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
# the Free Software Foundation; either version 2, or (at your option) # the Free Software Foundation; either version 2, or (at your option)
# any later version. # any later version.
# #
# This program is distributed in the hope that it will be useful, # This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details. # GNU General Public License for more details.
# #
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with this software; see the file COPYING. If not, write to # along with this software; see the file COPYING. If not, write to
# the Free Software Foundation, Inc., 59 Temple Place, Suite 330, # the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
@ -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